Mercurial > vim
annotate src/quickfix.c @ 14885:5e47597de905 v8.1.0454
patch 8.1.0454: resolve() was not tested with a symlink cycle
commit https://github.com/vim/vim/commit/261099070940fb64d4633a766ae3510fffe4171d
Author: Bram Moolenaar <Bram@vim.org>
Date: Sat Oct 6 15:43:17 2018 +0200
patch 8.1.0454: resolve() was not tested with a symlink cycle
Problem: resolve() was not tested with a symlink cycle.
Solution: Add a test. (Dominique Pelle, closes https://github.com/vim/vim/issues/3513)
| author | Bram Moolenaar <Bram@vim.org> |
|---|---|
| date | Sat, 06 Oct 2018 15:45:04 +0200 |
| parents | 3c8a4b25427c |
| children | 863bdbc8465b |
| rev | line source |
|---|---|
|
10042
4aead6a9b7a9
commit https://github.com/vim/vim/commit/edf3f97ae2af024708ebb4ac614227327033ca47
Christian Brabandt <cb@256bit.org>
parents:
9982
diff
changeset
|
1 /* vi:set ts=8 sts=4 sw=4 noet: |
| 7 | 2 * |
| 3 * VIM - Vi IMproved by Bram Moolenaar | |
| 4 * | |
| 5 * Do ":help uganda" in Vim to read copying and usage conditions. | |
| 6 * Do ":help credits" in Vim to see a list of people who contributed. | |
| 7 * See README.txt for an overview of the Vim source code. | |
| 8 */ | |
| 9 | |
| 10 /* | |
| 11 * quickfix.c: functions for quickfix mode, using a file with error messages | |
| 12 */ | |
| 13 | |
| 14 #include "vim.h" | |
| 15 | |
| 16 #if defined(FEAT_QUICKFIX) || defined(PROTO) | |
| 17 | |
| 18 struct dir_stack_T | |
| 19 { | |
| 20 struct dir_stack_T *next; | |
| 21 char_u *dirname; | |
| 22 }; | |
| 23 | |
| 24 /* | |
| 230 | 25 * For each error the next struct is allocated and linked in a list. |
| 7 | 26 */ |
| 230 | 27 typedef struct qfline_S qfline_T; |
| 28 struct qfline_S | |
| 7 | 29 { |
| 230 | 30 qfline_T *qf_next; /* pointer to next error in the list */ |
| 31 qfline_T *qf_prev; /* pointer to previous error in the list */ | |
| 32 linenr_T qf_lnum; /* line number where the error occurred */ | |
| 33 int qf_fnum; /* file number for the line */ | |
| 34 int qf_col; /* column where the error occurred */ | |
| 35 int qf_nr; /* error number */ | |
|
13821
98274127d675
patch 8.0.1782: no simple way to label quickfix entries
Christian Brabandt <cb@256bit.org>
parents:
13819
diff
changeset
|
36 char_u *qf_module; /* module name for this error */ |
| 230 | 37 char_u *qf_pattern; /* search pattern for the error */ |
| 38 char_u *qf_text; /* description of the error */ | |
| 39 char_u qf_viscol; /* set to TRUE if qf_col is screen column */ | |
| 40 char_u qf_cleared; /* set to TRUE if line has been deleted */ | |
| 41 char_u qf_type; /* type of the error (mostly 'E'); 1 for | |
| 7 | 42 :helpgrep */ |
| 230 | 43 char_u qf_valid; /* valid error message detected */ |
| 7 | 44 }; |
| 45 | |
| 46 /* | |
| 47 * There is a stack of error lists. | |
| 48 */ | |
| 49 #define LISTCOUNT 10 | |
|
13760
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
50 #define INVALID_QFIDX (-1) |
| 7 | 51 |
|
11549
f5add45f9848
patch 8.0.0657: cannot get and set quickfix list items
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
52 /* |
|
f5add45f9848
patch 8.0.0657: cannot get and set quickfix list items
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
53 * Quickfix/Location list definition |
|
f5add45f9848
patch 8.0.0657: cannot get and set quickfix list items
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
54 * Contains a list of entries (qfline_T). qf_start points to the first entry |
|
f5add45f9848
patch 8.0.0657: cannot get and set quickfix list items
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
55 * and qf_last points to the last entry. qf_count contains the list size. |
|
f5add45f9848
patch 8.0.0657: cannot get and set quickfix list items
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
56 * |
|
f5add45f9848
patch 8.0.0657: cannot get and set quickfix list items
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
57 * Usually the list contains one or more entries. But an empty list can be |
|
f5add45f9848
patch 8.0.0657: cannot get and set quickfix list items
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
58 * created using setqflist()/setloclist() with a title and/or user context |
|
f5add45f9848
patch 8.0.0657: cannot get and set quickfix list items
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
59 * information and entries can be added later using setqflist()/setloclist(). |
|
f5add45f9848
patch 8.0.0657: cannot get and set quickfix list items
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
60 */ |
| 644 | 61 typedef struct qf_list_S |
| 7 | 62 { |
|
12287
20641a7e1fc9
patch 8.0.1023: it is not easy to identify a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
12252
diff
changeset
|
63 int_u qf_id; /* Unique identifier for this list */ |
| 230 | 64 qfline_T *qf_start; /* pointer to the first error */ |
|
9195
543f068f3706
commit https://github.com/vim/vim/commit/83e6d7ac6a1c2a0cb5ee6c8420a5dc792f1d5ffa
Christian Brabandt <cb@256bit.org>
parents:
9175
diff
changeset
|
65 qfline_T *qf_last; /* pointer to the last error */ |
| 230 | 66 qfline_T *qf_ptr; /* pointer to the current error */ |
|
11549
f5add45f9848
patch 8.0.0657: cannot get and set quickfix list items
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
67 int qf_count; /* number of errors (0 means empty list) */ |
| 230 | 68 int qf_index; /* current index in the error list */ |
| 69 int qf_nonevalid; /* TRUE if not a single valid entry found */ | |
|
2411
68e394361ca3
Add "q" item for 'statusline'. Add w:quickfix_title. (Lech Lorens)
Bram Moolenaar <bram@vim.org>
parents:
2296
diff
changeset
|
70 char_u *qf_title; /* title derived from the command that created |
|
11549
f5add45f9848
patch 8.0.0657: cannot get and set quickfix list items
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
71 * the error list or set by setqflist */ |
|
11412
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
72 typval_T *qf_ctx; /* context set by setqflist/setloclist */ |
|
11700
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
73 |
|
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
74 struct dir_stack_T *qf_dir_stack; |
|
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
75 char_u *qf_directory; |
|
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
76 struct dir_stack_T *qf_file_stack; |
|
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
77 char_u *qf_currfile; |
|
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
78 int qf_multiline; |
|
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
79 int qf_multiignore; |
|
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
80 int qf_multiscan; |
|
13062
6479dadcf214
patch 8.0.1406: difficult to track changes to a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13056
diff
changeset
|
81 long qf_changedtick; |
| 644 | 82 } qf_list_T; |
| 83 | |
|
11549
f5add45f9848
patch 8.0.0657: cannot get and set quickfix list items
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
84 /* |
|
f5add45f9848
patch 8.0.0657: cannot get and set quickfix list items
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
85 * Quickfix/Location list stack definition |
|
f5add45f9848
patch 8.0.0657: cannot get and set quickfix list items
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
86 * Contains a list of quickfix/location lists (qf_list_T) |
|
f5add45f9848
patch 8.0.0657: cannot get and set quickfix list items
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
87 */ |
| 644 | 88 struct qf_info_S |
| 89 { | |
| 90 /* | |
| 91 * Count of references to this list. Used only for location lists. | |
| 92 * When a location list window reference this list, qf_refcount | |
| 93 * will be 2. Otherwise, qf_refcount will be 1. When qf_refcount | |
| 94 * reaches 0, the list is freed. | |
| 95 */ | |
| 96 int qf_refcount; | |
| 97 int qf_listcount; /* current number of lists */ | |
| 98 int qf_curlist; /* current error list */ | |
| 99 qf_list_T qf_lists[LISTCOUNT]; | |
| 100 }; | |
| 101 | |
| 102 static qf_info_T ql_info; /* global quickfix list */ | |
|
12287
20641a7e1fc9
patch 8.0.1023: it is not easy to identify a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
12252
diff
changeset
|
103 static int_u last_qf_id = 0; /* Last used quickfix list id */ |
| 7 | 104 |
|
13821
98274127d675
patch 8.0.1782: no simple way to label quickfix entries
Christian Brabandt <cb@256bit.org>
parents:
13819
diff
changeset
|
105 #define FMT_PATTERNS 11 /* maximum number of % recognized */ |
| 7 | 106 |
| 107 /* | |
| 108 * Structure used to hold the info of one part of 'errorformat' | |
| 109 */ | |
| 789 | 110 typedef struct efm_S efm_T; |
| 111 struct efm_S | |
| 7 | 112 { |
| 113 regprog_T *prog; /* pre-formatted part of 'errorformat' */ | |
| 789 | 114 efm_T *next; /* pointer to next (NULL if last) */ |
| 7 | 115 char_u addr[FMT_PATTERNS]; /* indices of used % patterns */ |
| 116 char_u prefix; /* prefix of this format line: */ | |
| 117 /* 'D' enter directory */ | |
| 118 /* 'X' leave directory */ | |
| 119 /* 'A' start of multi-line message */ | |
| 120 /* 'E' error message */ | |
| 121 /* 'W' warning message */ | |
| 122 /* 'I' informational message */ | |
| 123 /* 'C' continuation line */ | |
| 124 /* 'Z' end of multi-line message */ | |
| 125 /* 'G' general, unspecific message */ | |
| 126 /* 'P' push file (partial) message */ | |
| 127 /* 'Q' pop/quit file (partial) message */ | |
| 128 /* 'O' overread (partial) message */ | |
| 129 char_u flags; /* additional flags given in prefix */ | |
| 130 /* '-' do not include this line */ | |
| 625 | 131 /* '+' include whole line in message */ |
| 789 | 132 int conthere; /* %> used */ |
| 7 | 133 }; |
| 134 | |
|
10367
4e4e116e3689
commit https://github.com/vim/vim/commit/63bed3d319b5d90765dbdae93a3579b6322d79fb
Christian Brabandt <cb@256bit.org>
parents:
10359
diff
changeset
|
135 static efm_T *fmt_start = NULL; /* cached across qf_parse_line() calls */ |
|
4e4e116e3689
commit https://github.com/vim/vim/commit/63bed3d319b5d90765dbdae93a3579b6322d79fb
Christian Brabandt <cb@256bit.org>
parents:
10359
diff
changeset
|
136 |
|
7805
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7710
diff
changeset
|
137 static void qf_new_list(qf_info_T *qi, char_u *qf_title); |
|
13821
98274127d675
patch 8.0.1782: no simple way to label quickfix entries
Christian Brabandt <cb@256bit.org>
parents:
13819
diff
changeset
|
138 static int qf_add_entry(qf_info_T *qi, int qf_idx, char_u *dir, char_u *fname, char_u *module, int bufnum, char_u *mesg, long lnum, int col, int vis_col, char_u *pattern, int nr, int type, int valid); |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
139 static void qf_free(qf_list_T *qfl); |
|
7805
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7710
diff
changeset
|
140 static char_u *qf_types(int, int); |
|
11700
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
141 static int qf_get_fnum(qf_info_T *qi, int qf_idx, char_u *, char_u *); |
|
9397
e08e8b00fe48
commit https://github.com/vim/vim/commit/361c8f0e517e41f1f1d34dae328044406fde80ac
Christian Brabandt <cb@256bit.org>
parents:
9389
diff
changeset
|
142 static char_u *qf_push_dir(char_u *, struct dir_stack_T **, int is_file_stack); |
|
7805
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7710
diff
changeset
|
143 static char_u *qf_pop_dir(struct dir_stack_T **); |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
144 static char_u *qf_guess_filepath(qf_list_T *qfl, char_u *); |
|
7805
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7710
diff
changeset
|
145 static void qf_fmt_text(char_u *text, char_u *buf, int bufsize); |
|
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7710
diff
changeset
|
146 static int qf_win_pos_update(qf_info_T *qi, int old_qf_index); |
|
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7710
diff
changeset
|
147 static win_T *qf_find_win(qf_info_T *qi); |
|
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7710
diff
changeset
|
148 static buf_T *qf_find_buf(qf_info_T *qi); |
|
9175
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
149 static void qf_update_buffer(qf_info_T *qi, qfline_T *old_last); |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
150 static void qf_fill_buffer(qf_info_T *qi, buf_T *buf, qfline_T *old_last); |
|
7805
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7710
diff
changeset
|
151 static buf_T *load_dummy_buffer(char_u *fname, char_u *dirname_start, char_u *resulting_dir); |
|
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7710
diff
changeset
|
152 static void wipe_dummy_buffer(buf_T *buf, char_u *dirname_start); |
|
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7710
diff
changeset
|
153 static void unload_dummy_buffer(buf_T *buf, char_u *dirname_start); |
|
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
7710
diff
changeset
|
154 static qf_info_T *ll_get_or_alloc_list(win_T *); |
| 7 | 155 |
| 644 | 156 /* Quickfix window check helper macro */ |
| 157 #define IS_QF_WINDOW(wp) (bt_quickfix(wp->w_buffer) && wp->w_llist_ref == NULL) | |
| 158 /* Location list window check helper macro */ | |
| 159 #define IS_LL_WINDOW(wp) (bt_quickfix(wp->w_buffer) && wp->w_llist_ref != NULL) | |
|
14560
8413e66d00a1
patch 8.1.0293: checks for type of stack is cryptic
Christian Brabandt <cb@256bit.org>
parents:
14552
diff
changeset
|
160 |
|
8413e66d00a1
patch 8.1.0293: checks for type of stack is cryptic
Christian Brabandt <cb@256bit.org>
parents:
14552
diff
changeset
|
161 // Quickfix and location list stack check helper macros |
|
8413e66d00a1
patch 8.1.0293: checks for type of stack is cryptic
Christian Brabandt <cb@256bit.org>
parents:
14552
diff
changeset
|
162 #define IS_QF_STACK(qi) (qi == &ql_info) |
|
8413e66d00a1
patch 8.1.0293: checks for type of stack is cryptic
Christian Brabandt <cb@256bit.org>
parents:
14552
diff
changeset
|
163 #define IS_LL_STACK(qi) (qi != &ql_info) |
|
8413e66d00a1
patch 8.1.0293: checks for type of stack is cryptic
Christian Brabandt <cb@256bit.org>
parents:
14552
diff
changeset
|
164 |
| 644 | 165 /* |
| 166 * Return location list for window 'wp' | |
| 167 * For location list window, return the referenced location list | |
| 168 */ | |
| 169 #define GET_LOC_LIST(wp) (IS_LL_WINDOW(wp) ? wp->w_llist_ref : wp->w_llist) | |
| 170 | |
| 7 | 171 /* |
|
11443
30b3775addb2
patch 8.0.0605: the quickfix cached buffer may become invalid
Christian Brabandt <cb@256bit.org>
parents:
11426
diff
changeset
|
172 * Looking up a buffer can be slow if there are many. Remember the last one |
|
30b3775addb2
patch 8.0.0605: the quickfix cached buffer may become invalid
Christian Brabandt <cb@256bit.org>
parents:
11426
diff
changeset
|
173 * to make this a lot faster if there are multiple matches in the same file. |
|
30b3775addb2
patch 8.0.0605: the quickfix cached buffer may become invalid
Christian Brabandt <cb@256bit.org>
parents:
11426
diff
changeset
|
174 */ |
|
11447
698ee9d4fe9f
patch 8.0.0607: after :bwipe + :new bufref might still be valid
Christian Brabandt <cb@256bit.org>
parents:
11445
diff
changeset
|
175 static char_u *qf_last_bufname = NULL; |
|
698ee9d4fe9f
patch 8.0.0607: after :bwipe + :new bufref might still be valid
Christian Brabandt <cb@256bit.org>
parents:
11445
diff
changeset
|
176 static bufref_T qf_last_bufref = {NULL, 0, 0}; |
|
11443
30b3775addb2
patch 8.0.0605: the quickfix cached buffer may become invalid
Christian Brabandt <cb@256bit.org>
parents:
11426
diff
changeset
|
177 |
|
13090
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
178 static char *e_loc_list_changed = |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
179 N_("E926: Current location list was changed"); |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
180 |
|
11443
30b3775addb2
patch 8.0.0605: the quickfix cached buffer may become invalid
Christian Brabandt <cb@256bit.org>
parents:
11426
diff
changeset
|
181 /* |
|
9033
0536d1469b67
commit https://github.com/vim/vim/commit/6be8c8e165204b8aa4eeb8a52be87a58d8b41b9e
Christian Brabandt <cb@256bit.org>
parents:
8932
diff
changeset
|
182 * Maximum number of bytes allowed per line while reading a errorfile. |
|
0536d1469b67
commit https://github.com/vim/vim/commit/6be8c8e165204b8aa4eeb8a52be87a58d8b41b9e
Christian Brabandt <cb@256bit.org>
parents:
8932
diff
changeset
|
183 */ |
|
0536d1469b67
commit https://github.com/vim/vim/commit/6be8c8e165204b8aa4eeb8a52be87a58d8b41b9e
Christian Brabandt <cb@256bit.org>
parents:
8932
diff
changeset
|
184 #define LINE_MAXLEN 4096 |
|
0536d1469b67
commit https://github.com/vim/vim/commit/6be8c8e165204b8aa4eeb8a52be87a58d8b41b9e
Christian Brabandt <cb@256bit.org>
parents:
8932
diff
changeset
|
185 |
|
9365
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
186 static struct fmtpattern |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
187 { |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
188 char_u convchar; |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
189 char *pattern; |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
190 } fmt_pat[FMT_PATTERNS] = |
|
13868
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
191 { |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
192 {'f', ".\\+"}, /* only used when at end */ |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
193 {'n', "\\d\\+"}, |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
194 {'l', "\\d\\+"}, |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
195 {'c', "\\d\\+"}, |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
196 {'t', "."}, |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
197 {'m', ".\\+"}, |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
198 {'r', ".*"}, |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
199 {'p', "[- .]*"}, |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
200 {'v', "\\d\\+"}, |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
201 {'s', ".\\+"}, |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
202 {'o', ".\\+"} |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
203 }; |
|
9365
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
204 |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
205 /* |
|
13984
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
206 * Convert an errorformat pattern to a regular expression pattern. |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
207 * See fmt_pat definition above for the list of supported patterns. The |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
208 * pattern specifier is supplied in "efmpat". The converted pattern is stored |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
209 * in "regpat". Returns a pointer to the location after the pattern. |
|
13984
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
210 */ |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
211 static char_u * |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
212 efmpat_to_regpat( |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
213 char_u *efmpat, |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
214 char_u *regpat, |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
215 efm_T *efminfo, |
|
13984
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
216 int idx, |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
217 int round, |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
218 char_u *errmsg) |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
219 { |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
220 char_u *srcptr; |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
221 |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
222 if (efminfo->addr[idx]) |
|
13984
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
223 { |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
224 /* Each errorformat pattern can occur only once */ |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
225 sprintf((char *)errmsg, |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
226 _("E372: Too many %%%c in format string"), *efmpat); |
|
13984
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
227 EMSG(errmsg); |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
228 return NULL; |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
229 } |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
230 if ((idx && idx < 6 |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
231 && vim_strchr((char_u *)"DXOPQ", efminfo->prefix) != NULL) |
|
13984
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
232 || (idx == 6 |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
233 && vim_strchr((char_u *)"OPQ", efminfo->prefix) == NULL)) |
|
13984
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
234 { |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
235 sprintf((char *)errmsg, |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
236 _("E373: Unexpected %%%c in format string"), *efmpat); |
|
13984
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
237 EMSG(errmsg); |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
238 return NULL; |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
239 } |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
240 efminfo->addr[idx] = (char_u)++round; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
241 *regpat++ = '\\'; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
242 *regpat++ = '('; |
|
13984
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
243 #ifdef BACKSLASH_IN_FILENAME |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
244 if (*efmpat == 'f') |
|
13984
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
245 { |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
246 /* Also match "c:" in the file name, even when |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
247 * checking for a colon next: "%f:". |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
248 * "\%(\a:\)\=" */ |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
249 STRCPY(regpat, "\\%(\\a:\\)\\="); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
250 regpat += 10; |
|
13984
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
251 } |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
252 #endif |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
253 if (*efmpat == 'f' && efmpat[1] != NUL) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
254 { |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
255 if (efmpat[1] != '\\' && efmpat[1] != '%') |
|
13984
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
256 { |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
257 /* A file name may contain spaces, but this isn't |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
258 * in "\f". For "%f:%l:%m" there may be a ":" in |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
259 * the file name. Use ".\{-1,}x" instead (x is |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
260 * the next character), the requirement that :999: |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
261 * follows should work. */ |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
262 STRCPY(regpat, ".\\{-1,}"); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
263 regpat += 7; |
|
13984
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
264 } |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
265 else |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
266 { |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
267 /* File name followed by '\\' or '%': include as |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
268 * many file name chars as possible. */ |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
269 STRCPY(regpat, "\\f\\+"); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
270 regpat += 4; |
|
13984
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
271 } |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
272 } |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
273 else |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
274 { |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
275 srcptr = (char_u *)fmt_pat[idx].pattern; |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
276 while ((*regpat = *srcptr++) != NUL) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
277 ++regpat; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
278 } |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
279 *regpat++ = '\\'; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
280 *regpat++ = ')'; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
281 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
282 return regpat; |
|
13984
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
283 } |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
284 |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
285 /* |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
286 * Convert a scanf like format in 'errorformat' to a regular expression. |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
287 * Returns a pointer to the location after the pattern. |
|
13984
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
288 */ |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
289 static char_u * |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
290 scanf_fmt_to_regpat( |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
291 char_u **pefmp, |
|
13984
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
292 char_u *efm, |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
293 int len, |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
294 char_u *regpat, |
|
13984
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
295 char_u *errmsg) |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
296 { |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
297 char_u *efmp = *pefmp; |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
298 |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
299 if (*efmp == '[' || *efmp == '\\') |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
300 { |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
301 if ((*regpat++ = *efmp) == '[') /* %*[^a-z0-9] etc. */ |
|
13984
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
302 { |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
303 if (efmp[1] == '^') |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
304 *regpat++ = *++efmp; |
|
13984
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
305 if (efmp < efm + len) |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
306 { |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
307 *regpat++ = *++efmp; /* could be ']' */ |
|
13984
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
308 while (efmp < efm + len |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
309 && (*regpat++ = *++efmp) != ']') |
|
13984
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
310 /* skip */; |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
311 if (efmp == efm + len) |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
312 { |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
313 EMSG(_("E374: Missing ] in format string")); |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
314 return NULL; |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
315 } |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
316 } |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
317 } |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
318 else if (efmp < efm + len) /* %*\D, %*\s etc. */ |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
319 *regpat++ = *++efmp; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
320 *regpat++ = '\\'; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
321 *regpat++ = '+'; |
|
13984
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
322 } |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
323 else |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
324 { |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
325 /* TODO: scanf()-like: %*ud, %*3c, %*f, ... ? */ |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
326 sprintf((char *)errmsg, |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
327 _("E375: Unsupported %%%c in format string"), *efmp); |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
328 EMSG(errmsg); |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
329 return NULL; |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
330 } |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
331 |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
332 *pefmp = efmp; |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
333 |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
334 return regpat; |
|
13984
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
335 } |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
336 |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
337 /* |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
338 * Analyze/parse an errorformat prefix. |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
339 */ |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
340 static char_u * |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
341 efm_analyze_prefix(char_u *efmp, efm_T *efminfo, char_u *errmsg) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
342 { |
|
13984
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
343 if (vim_strchr((char_u *)"+-", *efmp) != NULL) |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
344 efminfo->flags = *efmp++; |
|
13984
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
345 if (vim_strchr((char_u *)"DXAEWICZGOPQ", *efmp) != NULL) |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
346 efminfo->prefix = *efmp; |
|
13984
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
347 else |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
348 { |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
349 sprintf((char *)errmsg, |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
350 _("E376: Invalid %%%c in format string prefix"), *efmp); |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
351 EMSG(errmsg); |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
352 return NULL; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
353 } |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
354 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
355 return efmp; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
356 } |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
357 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
358 /* |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
359 * Converts a 'errorformat' string part in 'efm' to a regular expression |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
360 * pattern. The resulting regex pattern is returned in "regpat". Additional |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
361 * information about the 'erroformat' pattern is returned in "fmt_ptr". |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
362 * Returns OK or FAIL. |
|
9365
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
363 */ |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
364 static int |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
365 efm_to_regpat( |
|
12449
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
366 char_u *efm, |
|
13984
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
367 int len, |
|
12449
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
368 efm_T *fmt_ptr, |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
369 char_u *regpat, |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
370 char_u *errmsg) |
|
9365
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
371 { |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
372 char_u *ptr; |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
373 char_u *efmp; |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
374 int round; |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
375 int idx = 0; |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
376 |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
377 /* |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
378 * Build a regexp pattern for a 'errorformat' option part |
|
9365
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
379 */ |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
380 ptr = regpat; |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
381 *ptr++ = '^'; |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
382 round = 0; |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
383 for (efmp = efm; efmp < efm + len; ++efmp) |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
384 { |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
385 if (*efmp == '%') |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
386 { |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
387 ++efmp; |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
388 for (idx = 0; idx < FMT_PATTERNS; ++idx) |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
389 if (fmt_pat[idx].convchar == *efmp) |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
390 break; |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
391 if (idx < FMT_PATTERNS) |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
392 { |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
393 ptr = efmpat_to_regpat(efmp, ptr, fmt_ptr, idx, round, |
|
13984
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
394 errmsg); |
|
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
395 if (ptr == NULL) |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
396 return FAIL; |
|
13984
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
397 round++; |
|
9365
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
398 } |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
399 else if (*efmp == '*') |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
400 { |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
401 ++efmp; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
402 ptr = scanf_fmt_to_regpat(&efmp, efm, len, ptr, errmsg); |
|
13984
9b1dc5c2f460
patch 8.1.0010: efm_to_regpat() is too long
Christian Brabandt <cb@256bit.org>
parents:
13948
diff
changeset
|
403 if (ptr == NULL) |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
404 return FAIL; |
|
9365
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
405 } |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
406 else if (vim_strchr((char_u *)"%\\.^$~[", *efmp) != NULL) |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
407 *ptr++ = *efmp; /* regexp magic characters */ |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
408 else if (*efmp == '#') |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
409 *ptr++ = '*'; |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
410 else if (*efmp == '>') |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
411 fmt_ptr->conthere = TRUE; |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
412 else if (efmp == efm + 1) /* analyse prefix */ |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
413 { |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
414 /* |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
415 * prefix is allowed only at the beginning of the errorformat |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
416 * option part |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
417 */ |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
418 efmp = efm_analyze_prefix(efmp, fmt_ptr, errmsg); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
419 if (efmp == NULL) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
420 return FAIL; |
|
9365
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
421 } |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
422 else |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
423 { |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
424 sprintf((char *)errmsg, |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
425 _("E377: Invalid %%%c in format string"), *efmp); |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
426 EMSG(errmsg); |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
427 return FAIL; |
|
9365
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
428 } |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
429 } |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
430 else /* copy normal character */ |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
431 { |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
432 if (*efmp == '\\' && efmp + 1 < efm + len) |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
433 ++efmp; |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
434 else if (vim_strchr((char_u *)".*^$~[", *efmp) != NULL) |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
435 *ptr++ = '\\'; /* escape regexp atoms */ |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
436 if (*efmp) |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
437 *ptr++ = *efmp; |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
438 } |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
439 } |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
440 *ptr++ = '$'; |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
441 *ptr = NUL; |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
442 |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
443 return OK; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
444 } |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
445 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
446 /* |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
447 * Free the 'errorformat' information list |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
448 */ |
|
9365
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
449 static void |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
450 free_efm_list(efm_T **efm_first) |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
451 { |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
452 efm_T *efm_ptr; |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
453 |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
454 for (efm_ptr = *efm_first; efm_ptr != NULL; efm_ptr = *efm_first) |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
455 { |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
456 *efm_first = efm_ptr->next; |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
457 vim_regfree(efm_ptr->prog); |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
458 vim_free(efm_ptr); |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
459 } |
|
10367
4e4e116e3689
commit https://github.com/vim/vim/commit/63bed3d319b5d90765dbdae93a3579b6322d79fb
Christian Brabandt <cb@256bit.org>
parents:
10359
diff
changeset
|
460 fmt_start = NULL; |
|
9365
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
461 } |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
462 |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
463 /* |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
464 * Compute the size of the buffer used to convert a 'errorformat' pattern into |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
465 * a regular expression pattern. |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
466 */ |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
467 static int |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
468 efm_regpat_bufsz(char_u *efm) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
469 { |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
470 int sz; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
471 int i; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
472 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
473 sz = (FMT_PATTERNS * 3) + ((int)STRLEN(efm) << 2); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
474 for (i = FMT_PATTERNS; i > 0; ) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
475 sz += (int)STRLEN(fmt_pat[--i].pattern); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
476 #ifdef BACKSLASH_IN_FILENAME |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
477 sz += 12; /* "%f" can become twelve chars longer (see efm_to_regpat) */ |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
478 #else |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
479 sz += 2; /* "%f" can become two chars longer */ |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
480 #endif |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
481 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
482 return sz; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
483 } |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
484 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
485 /* |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
486 * Return the length of a 'errorformat' option part (separated by ","). |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
487 */ |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
488 static int |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
489 efm_option_part_len(char_u *efm) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
490 { |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
491 int len; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
492 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
493 for (len = 0; efm[len] != NUL && efm[len] != ','; ++len) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
494 if (efm[len] == '\\' && efm[len + 1] != NUL) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
495 ++len; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
496 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
497 return len; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
498 } |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
499 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
500 /* |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
501 * Parse the 'errorformat' option. Multiple parts in the 'errorformat' option |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
502 * are parsed and converted to regular expressions. Returns information about |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
503 * the parsed 'errorformat' option. |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
504 */ |
|
9365
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
505 static efm_T * |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
506 parse_efm_option(char_u *efm) |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
507 { |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
508 char_u *errmsg = NULL; |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
509 int errmsglen; |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
510 efm_T *fmt_ptr = NULL; |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
511 efm_T *fmt_first = NULL; |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
512 efm_T *fmt_last = NULL; |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
513 char_u *fmtstr = NULL; |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
514 int len; |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
515 int sz; |
|
9365
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
516 |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
517 errmsglen = CMDBUFFSIZE + 1; |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
518 errmsg = alloc_id(errmsglen, aid_qf_errmsg); |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
519 if (errmsg == NULL) |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
520 goto parse_efm_end; |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
521 |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
522 /* |
|
9568
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
523 * Each part of the format string is copied and modified from errorformat |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
524 * to regex prog. Only a few % characters are allowed. |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
525 */ |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
526 |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
527 /* |
|
9365
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
528 * Get some space to modify the format string into. |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
529 */ |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
530 sz = efm_regpat_bufsz(efm); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
531 if ((fmtstr = alloc(sz)) == NULL) |
|
9365
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
532 goto parse_efm_error; |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
533 |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
534 while (efm[0] != NUL) |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
535 { |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
536 /* |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
537 * Allocate a new eformat structure and put it at the end of the list |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
538 */ |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
539 fmt_ptr = (efm_T *)alloc_clear((unsigned)sizeof(efm_T)); |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
540 if (fmt_ptr == NULL) |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
541 goto parse_efm_error; |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
542 if (fmt_first == NULL) /* first one */ |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
543 fmt_first = fmt_ptr; |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
544 else |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
545 fmt_last->next = fmt_ptr; |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
546 fmt_last = fmt_ptr; |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
547 |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
548 /* |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
549 * Isolate one part in the 'errorformat' option |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
550 */ |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
551 len = efm_option_part_len(efm); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
552 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
553 if (efm_to_regpat(efm, len, fmt_ptr, fmtstr, errmsg) == FAIL) |
|
9365
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
554 goto parse_efm_error; |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
555 if ((fmt_ptr->prog = vim_regcomp(fmtstr, RE_MAGIC + RE_STRING)) == NULL) |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
556 goto parse_efm_error; |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
557 /* |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
558 * Advance to next part |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
559 */ |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
560 efm = skip_to_option_part(efm + len); /* skip comma and spaces */ |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
561 } |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
562 |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
563 if (fmt_first == NULL) /* nothing found */ |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
564 EMSG(_("E378: 'errorformat' contains no pattern")); |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
565 |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
566 goto parse_efm_end; |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
567 |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
568 parse_efm_error: |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
569 free_efm_list(&fmt_first); |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
570 |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
571 parse_efm_end: |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
572 vim_free(fmtstr); |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
573 vim_free(errmsg); |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
574 |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
575 return fmt_first; |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
576 } |
|
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
577 |
|
9531
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
578 enum { |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
579 QF_FAIL = 0, |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
580 QF_OK = 1, |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
581 QF_END_OF_INPUT = 2, |
|
9568
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
582 QF_NOMEM = 3, |
|
13868
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
583 QF_IGNORE_LINE = 4, |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
584 QF_MULTISCAN = 5, |
|
9531
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
585 }; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
586 |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
587 /* |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
588 * State information used to parse lines and add entries to a quickfix/location |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
589 * list. |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
590 */ |
|
9531
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
591 typedef struct { |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
592 char_u *linebuf; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
593 int linelen; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
594 char_u *growbuf; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
595 int growbufsiz; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
596 FILE *fd; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
597 typval_T *tv; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
598 char_u *p_str; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
599 listitem_T *p_li; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
600 buf_T *buf; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
601 linenr_T buflnum; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
602 linenr_T lnumlast; |
|
11063
e71d3bdf3bc3
patch 8.0.0420: text garbled when the system encoding differs from 'encoding'
Christian Brabandt <cb@256bit.org>
parents:
10379
diff
changeset
|
603 vimconv_T vc; |
|
9531
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
604 } qfstate_T; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
605 |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
606 /* |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
607 * Allocate more memory for the line buffer used for parsing lines. |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
608 */ |
|
9531
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
609 static char_u * |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
610 qf_grow_linebuf(qfstate_T *state, int newsz) |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
611 { |
|
13868
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
612 char_u *p; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
613 |
|
9531
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
614 /* |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
615 * If the line exceeds LINE_MAXLEN exclude the last |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
616 * byte since it's not a NL character. |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
617 */ |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
618 state->linelen = newsz > LINE_MAXLEN ? LINE_MAXLEN - 1 : newsz; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
619 if (state->growbuf == NULL) |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
620 { |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
621 state->growbuf = alloc(state->linelen + 1); |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
622 if (state->growbuf == NULL) |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
623 return NULL; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
624 state->growbufsiz = state->linelen; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
625 } |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
626 else if (state->linelen > state->growbufsiz) |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
627 { |
|
13868
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
628 if ((p = vim_realloc(state->growbuf, state->linelen + 1)) == NULL) |
|
9531
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
629 return NULL; |
|
13868
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
630 state->growbuf = p; |
|
9531
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
631 state->growbufsiz = state->linelen; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
632 } |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
633 return state->growbuf; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
634 } |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
635 |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
636 /* |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
637 * Get the next string (separated by newline) from state->p_str. |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
638 */ |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
639 static int |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
640 qf_get_next_str_line(qfstate_T *state) |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
641 { |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
642 /* Get the next line from the supplied string */ |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
643 char_u *p_str = state->p_str; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
644 char_u *p; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
645 int len; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
646 |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
647 if (*p_str == NUL) /* Reached the end of the string */ |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
648 return QF_END_OF_INPUT; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
649 |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
650 p = vim_strchr(p_str, '\n'); |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
651 if (p != NULL) |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
652 len = (int)(p - p_str) + 1; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
653 else |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
654 len = (int)STRLEN(p_str); |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
655 |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
656 if (len > IOSIZE - 2) |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
657 { |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
658 state->linebuf = qf_grow_linebuf(state, len); |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
659 if (state->linebuf == NULL) |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
660 return QF_NOMEM; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
661 } |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
662 else |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
663 { |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
664 state->linebuf = IObuff; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
665 state->linelen = len; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
666 } |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
667 vim_strncpy(state->linebuf, p_str, state->linelen); |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
668 |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
669 /* |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
670 * Increment using len in order to discard the rest of the |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
671 * line if it exceeds LINE_MAXLEN. |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
672 */ |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
673 p_str += len; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
674 state->p_str = p_str; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
675 |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
676 return QF_OK; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
677 } |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
678 |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
679 /* |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
680 * Get the next string from state->p_Li. |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
681 */ |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
682 static int |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
683 qf_get_next_list_line(qfstate_T *state) |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
684 { |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
685 listitem_T *p_li = state->p_li; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
686 int len; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
687 |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
688 while (p_li != NULL |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
689 && (p_li->li_tv.v_type != VAR_STRING |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
690 || p_li->li_tv.vval.v_string == NULL)) |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
691 p_li = p_li->li_next; /* Skip non-string items */ |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
692 |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
693 if (p_li == NULL) /* End of the list */ |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
694 { |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
695 state->p_li = NULL; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
696 return QF_END_OF_INPUT; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
697 } |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
698 |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
699 len = (int)STRLEN(p_li->li_tv.vval.v_string); |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
700 if (len > IOSIZE - 2) |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
701 { |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
702 state->linebuf = qf_grow_linebuf(state, len); |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
703 if (state->linebuf == NULL) |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
704 return QF_NOMEM; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
705 } |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
706 else |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
707 { |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
708 state->linebuf = IObuff; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
709 state->linelen = len; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
710 } |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
711 |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
712 vim_strncpy(state->linebuf, p_li->li_tv.vval.v_string, state->linelen); |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
713 |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
714 state->p_li = p_li->li_next; /* next item */ |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
715 return QF_OK; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
716 } |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
717 |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
718 /* |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
719 * Get the next string from state->buf. |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
720 */ |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
721 static int |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
722 qf_get_next_buf_line(qfstate_T *state) |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
723 { |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
724 char_u *p_buf = NULL; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
725 int len; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
726 |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
727 /* Get the next line from the supplied buffer */ |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
728 if (state->buflnum > state->lnumlast) |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
729 return QF_END_OF_INPUT; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
730 |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
731 p_buf = ml_get_buf(state->buf, state->buflnum, FALSE); |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
732 state->buflnum += 1; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
733 |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
734 len = (int)STRLEN(p_buf); |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
735 if (len > IOSIZE - 2) |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
736 { |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
737 state->linebuf = qf_grow_linebuf(state, len); |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
738 if (state->linebuf == NULL) |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
739 return QF_NOMEM; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
740 } |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
741 else |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
742 { |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
743 state->linebuf = IObuff; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
744 state->linelen = len; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
745 } |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
746 vim_strncpy(state->linebuf, p_buf, state->linelen); |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
747 |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
748 return QF_OK; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
749 } |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
750 |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
751 /* |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
752 * Get the next string from file state->fd. |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
753 */ |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
754 static int |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
755 qf_get_next_file_line(qfstate_T *state) |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
756 { |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
757 int discard; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
758 int growbuflen; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
759 |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
760 if (fgets((char *)IObuff, IOSIZE, state->fd) == NULL) |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
761 return QF_END_OF_INPUT; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
762 |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
763 discard = FALSE; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
764 state->linelen = (int)STRLEN(IObuff); |
|
9738
6818e3c96473
commit https://github.com/vim/vim/commit/796aa9c804f09276bd3cc45123f4a191a001dec2
Christian Brabandt <cb@256bit.org>
parents:
9649
diff
changeset
|
765 if (state->linelen == IOSIZE - 1 && !(IObuff[state->linelen - 1] == '\n')) |
|
9531
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
766 { |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
767 /* |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
768 * The current line exceeds IObuff, continue reading using |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
769 * growbuf until EOL or LINE_MAXLEN bytes is read. |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
770 */ |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
771 if (state->growbuf == NULL) |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
772 { |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
773 state->growbufsiz = 2 * (IOSIZE - 1); |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
774 state->growbuf = alloc(state->growbufsiz); |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
775 if (state->growbuf == NULL) |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
776 return QF_NOMEM; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
777 } |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
778 |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
779 /* Copy the read part of the line, excluding null-terminator */ |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
780 memcpy(state->growbuf, IObuff, IOSIZE - 1); |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
781 growbuflen = state->linelen; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
782 |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
783 for (;;) |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
784 { |
|
13868
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
785 char_u *p; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
786 |
|
9531
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
787 if (fgets((char *)state->growbuf + growbuflen, |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
788 state->growbufsiz - growbuflen, state->fd) == NULL) |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
789 break; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
790 state->linelen = (int)STRLEN(state->growbuf + growbuflen); |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
791 growbuflen += state->linelen; |
|
9738
6818e3c96473
commit https://github.com/vim/vim/commit/796aa9c804f09276bd3cc45123f4a191a001dec2
Christian Brabandt <cb@256bit.org>
parents:
9649
diff
changeset
|
792 if ((state->growbuf)[growbuflen - 1] == '\n') |
|
9531
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
793 break; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
794 if (state->growbufsiz == LINE_MAXLEN) |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
795 { |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
796 discard = TRUE; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
797 break; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
798 } |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
799 |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
800 state->growbufsiz = 2 * state->growbufsiz < LINE_MAXLEN |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
801 ? 2 * state->growbufsiz : LINE_MAXLEN; |
|
13868
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
802 if ((p = vim_realloc(state->growbuf, state->growbufsiz)) == NULL) |
|
9531
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
803 return QF_NOMEM; |
|
13868
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
804 state->growbuf = p; |
|
9531
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
805 } |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
806 |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
807 while (discard) |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
808 { |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
809 /* |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
810 * The current line is longer than LINE_MAXLEN, continue |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
811 * reading but discard everything until EOL or EOF is |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
812 * reached. |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
813 */ |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
814 if (fgets((char *)IObuff, IOSIZE, state->fd) == NULL |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
815 || (int)STRLEN(IObuff) < IOSIZE - 1 |
|
9738
6818e3c96473
commit https://github.com/vim/vim/commit/796aa9c804f09276bd3cc45123f4a191a001dec2
Christian Brabandt <cb@256bit.org>
parents:
9649
diff
changeset
|
816 || IObuff[IOSIZE - 1] == '\n') |
|
9531
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
817 break; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
818 } |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
819 |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
820 state->linebuf = state->growbuf; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
821 state->linelen = growbuflen; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
822 } |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
823 else |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
824 state->linebuf = IObuff; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
825 |
|
11063
e71d3bdf3bc3
patch 8.0.0420: text garbled when the system encoding differs from 'encoding'
Christian Brabandt <cb@256bit.org>
parents:
10379
diff
changeset
|
826 #ifdef FEAT_MBYTE |
|
e71d3bdf3bc3
patch 8.0.0420: text garbled when the system encoding differs from 'encoding'
Christian Brabandt <cb@256bit.org>
parents:
10379
diff
changeset
|
827 /* Convert a line if it contains a non-ASCII character. */ |
|
11263
ae5f9f26f81c
patch 8.0.0517: there is no way to remove quickfix lists
Christian Brabandt <cb@256bit.org>
parents:
11195
diff
changeset
|
828 if (state->vc.vc_type != CONV_NONE && has_non_ascii(state->linebuf)) |
|
ae5f9f26f81c
patch 8.0.0517: there is no way to remove quickfix lists
Christian Brabandt <cb@256bit.org>
parents:
11195
diff
changeset
|
829 { |
|
11063
e71d3bdf3bc3
patch 8.0.0420: text garbled when the system encoding differs from 'encoding'
Christian Brabandt <cb@256bit.org>
parents:
10379
diff
changeset
|
830 char_u *line; |
|
e71d3bdf3bc3
patch 8.0.0420: text garbled when the system encoding differs from 'encoding'
Christian Brabandt <cb@256bit.org>
parents:
10379
diff
changeset
|
831 |
|
e71d3bdf3bc3
patch 8.0.0420: text garbled when the system encoding differs from 'encoding'
Christian Brabandt <cb@256bit.org>
parents:
10379
diff
changeset
|
832 line = string_convert(&state->vc, state->linebuf, &state->linelen); |
|
e71d3bdf3bc3
patch 8.0.0420: text garbled when the system encoding differs from 'encoding'
Christian Brabandt <cb@256bit.org>
parents:
10379
diff
changeset
|
833 if (line != NULL) |
|
e71d3bdf3bc3
patch 8.0.0420: text garbled when the system encoding differs from 'encoding'
Christian Brabandt <cb@256bit.org>
parents:
10379
diff
changeset
|
834 { |
|
e71d3bdf3bc3
patch 8.0.0420: text garbled when the system encoding differs from 'encoding'
Christian Brabandt <cb@256bit.org>
parents:
10379
diff
changeset
|
835 if (state->linelen < IOSIZE) |
|
e71d3bdf3bc3
patch 8.0.0420: text garbled when the system encoding differs from 'encoding'
Christian Brabandt <cb@256bit.org>
parents:
10379
diff
changeset
|
836 { |
|
e71d3bdf3bc3
patch 8.0.0420: text garbled when the system encoding differs from 'encoding'
Christian Brabandt <cb@256bit.org>
parents:
10379
diff
changeset
|
837 STRCPY(state->linebuf, line); |
|
e71d3bdf3bc3
patch 8.0.0420: text garbled when the system encoding differs from 'encoding'
Christian Brabandt <cb@256bit.org>
parents:
10379
diff
changeset
|
838 vim_free(line); |
|
e71d3bdf3bc3
patch 8.0.0420: text garbled when the system encoding differs from 'encoding'
Christian Brabandt <cb@256bit.org>
parents:
10379
diff
changeset
|
839 } |
|
e71d3bdf3bc3
patch 8.0.0420: text garbled when the system encoding differs from 'encoding'
Christian Brabandt <cb@256bit.org>
parents:
10379
diff
changeset
|
840 else |
|
e71d3bdf3bc3
patch 8.0.0420: text garbled when the system encoding differs from 'encoding'
Christian Brabandt <cb@256bit.org>
parents:
10379
diff
changeset
|
841 { |
|
e71d3bdf3bc3
patch 8.0.0420: text garbled when the system encoding differs from 'encoding'
Christian Brabandt <cb@256bit.org>
parents:
10379
diff
changeset
|
842 vim_free(state->growbuf); |
|
e71d3bdf3bc3
patch 8.0.0420: text garbled when the system encoding differs from 'encoding'
Christian Brabandt <cb@256bit.org>
parents:
10379
diff
changeset
|
843 state->linebuf = state->growbuf = line; |
|
e71d3bdf3bc3
patch 8.0.0420: text garbled when the system encoding differs from 'encoding'
Christian Brabandt <cb@256bit.org>
parents:
10379
diff
changeset
|
844 state->growbufsiz = state->linelen < LINE_MAXLEN |
|
e71d3bdf3bc3
patch 8.0.0420: text garbled when the system encoding differs from 'encoding'
Christian Brabandt <cb@256bit.org>
parents:
10379
diff
changeset
|
845 ? state->linelen : LINE_MAXLEN; |
|
e71d3bdf3bc3
patch 8.0.0420: text garbled when the system encoding differs from 'encoding'
Christian Brabandt <cb@256bit.org>
parents:
10379
diff
changeset
|
846 } |
|
e71d3bdf3bc3
patch 8.0.0420: text garbled when the system encoding differs from 'encoding'
Christian Brabandt <cb@256bit.org>
parents:
10379
diff
changeset
|
847 } |
|
e71d3bdf3bc3
patch 8.0.0420: text garbled when the system encoding differs from 'encoding'
Christian Brabandt <cb@256bit.org>
parents:
10379
diff
changeset
|
848 } |
|
e71d3bdf3bc3
patch 8.0.0420: text garbled when the system encoding differs from 'encoding'
Christian Brabandt <cb@256bit.org>
parents:
10379
diff
changeset
|
849 #endif |
|
e71d3bdf3bc3
patch 8.0.0420: text garbled when the system encoding differs from 'encoding'
Christian Brabandt <cb@256bit.org>
parents:
10379
diff
changeset
|
850 |
|
9531
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
851 return QF_OK; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
852 } |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
853 |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
854 /* |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
855 * Get the next string from a file/buffer/list/string. |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
856 */ |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
857 static int |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
858 qf_get_nextline(qfstate_T *state) |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
859 { |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
860 int status = QF_FAIL; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
861 |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
862 if (state->fd == NULL) |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
863 { |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
864 if (state->tv != NULL) |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
865 { |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
866 if (state->tv->v_type == VAR_STRING) |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
867 /* Get the next line from the supplied string */ |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
868 status = qf_get_next_str_line(state); |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
869 else if (state->tv->v_type == VAR_LIST) |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
870 /* Get the next line from the supplied list */ |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
871 status = qf_get_next_list_line(state); |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
872 } |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
873 else |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
874 /* Get the next line from the supplied buffer */ |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
875 status = qf_get_next_buf_line(state); |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
876 } |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
877 else |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
878 /* Get the next line from the supplied file */ |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
879 status = qf_get_next_file_line(state); |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
880 |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
881 if (status != QF_OK) |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
882 return status; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
883 |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
884 /* remove newline/CR from the line */ |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
885 if (state->linelen > 0 && state->linebuf[state->linelen - 1] == '\n') |
|
9738
6818e3c96473
commit https://github.com/vim/vim/commit/796aa9c804f09276bd3cc45123f4a191a001dec2
Christian Brabandt <cb@256bit.org>
parents:
9649
diff
changeset
|
886 { |
|
9531
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
887 state->linebuf[state->linelen - 1] = NUL; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
888 #ifdef USE_CRNL |
|
9738
6818e3c96473
commit https://github.com/vim/vim/commit/796aa9c804f09276bd3cc45123f4a191a001dec2
Christian Brabandt <cb@256bit.org>
parents:
9649
diff
changeset
|
889 if (state->linelen > 1 && state->linebuf[state->linelen - 2] == '\r') |
|
6818e3c96473
commit https://github.com/vim/vim/commit/796aa9c804f09276bd3cc45123f4a191a001dec2
Christian Brabandt <cb@256bit.org>
parents:
9649
diff
changeset
|
890 state->linebuf[state->linelen - 2] = NUL; |
|
9531
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
891 #endif |
|
9738
6818e3c96473
commit https://github.com/vim/vim/commit/796aa9c804f09276bd3cc45123f4a191a001dec2
Christian Brabandt <cb@256bit.org>
parents:
9649
diff
changeset
|
892 } |
|
9531
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
893 |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
894 #ifdef FEAT_MBYTE |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
895 remove_bom(state->linebuf); |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
896 #endif |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
897 |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
898 return QF_OK; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
899 } |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
900 |
|
9568
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
901 typedef struct { |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
902 char_u *namebuf; |
|
13821
98274127d675
patch 8.0.1782: no simple way to label quickfix entries
Christian Brabandt <cb@256bit.org>
parents:
13819
diff
changeset
|
903 char_u *module; |
|
9568
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
904 char_u *errmsg; |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
905 int errmsglen; |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
906 long lnum; |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
907 int col; |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
908 char_u use_viscol; |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
909 char_u *pattern; |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
910 int enr; |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
911 int type; |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
912 int valid; |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
913 } qffields_T; |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
914 |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
915 /* |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
916 * Parse the match for filename ('%f') pattern in regmatch. |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
917 * Return the matched value in "fields->namebuf". |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
918 */ |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
919 static int |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
920 qf_parse_fmt_f(regmatch_T *rmp, int midx, qffields_T *fields, int prefix) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
921 { |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
922 int c; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
923 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
924 if (rmp->startp[midx] == NULL || rmp->endp[midx] == NULL) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
925 return QF_FAIL; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
926 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
927 /* Expand ~/file and $HOME/file to full path. */ |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
928 c = *rmp->endp[midx]; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
929 *rmp->endp[midx] = NUL; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
930 expand_env(rmp->startp[midx], fields->namebuf, CMDBUFFSIZE); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
931 *rmp->endp[midx] = c; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
932 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
933 /* |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
934 * For separate filename patterns (%O, %P and %Q), the specified file |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
935 * should exist. |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
936 */ |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
937 if (vim_strchr((char_u *)"OPQ", prefix) != NULL |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
938 && mch_getperm(fields->namebuf) == -1) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
939 return QF_FAIL; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
940 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
941 return QF_OK; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
942 } |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
943 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
944 /* |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
945 * Parse the match for error number ('%n') pattern in regmatch. |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
946 * Return the matched value in "fields->enr". |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
947 */ |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
948 static int |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
949 qf_parse_fmt_n(regmatch_T *rmp, int midx, qffields_T *fields) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
950 { |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
951 if (rmp->startp[midx] == NULL) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
952 return QF_FAIL; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
953 fields->enr = (int)atol((char *)rmp->startp[midx]); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
954 return QF_OK; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
955 } |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
956 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
957 /* |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
958 * Parse the match for line number (%l') pattern in regmatch. |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
959 * Return the matched value in "fields->lnum". |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
960 */ |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
961 static int |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
962 qf_parse_fmt_l(regmatch_T *rmp, int midx, qffields_T *fields) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
963 { |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
964 if (rmp->startp[midx] == NULL) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
965 return QF_FAIL; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
966 fields->lnum = atol((char *)rmp->startp[midx]); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
967 return QF_OK; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
968 } |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
969 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
970 /* |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
971 * Parse the match for column number ('%c') pattern in regmatch. |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
972 * Return the matched value in "fields->col". |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
973 */ |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
974 static int |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
975 qf_parse_fmt_c(regmatch_T *rmp, int midx, qffields_T *fields) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
976 { |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
977 if (rmp->startp[midx] == NULL) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
978 return QF_FAIL; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
979 fields->col = (int)atol((char *)rmp->startp[midx]); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
980 return QF_OK; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
981 } |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
982 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
983 /* |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
984 * Parse the match for error type ('%t') pattern in regmatch. |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
985 * Return the matched value in "fields->type". |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
986 */ |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
987 static int |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
988 qf_parse_fmt_t(regmatch_T *rmp, int midx, qffields_T *fields) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
989 { |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
990 if (rmp->startp[midx] == NULL) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
991 return QF_FAIL; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
992 fields->type = *rmp->startp[midx]; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
993 return QF_OK; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
994 } |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
995 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
996 /* |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
997 * Parse the match for '%+' format pattern. The whole matching line is included |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
998 * in the error string. Return the matched line in "fields->errmsg". |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
999 */ |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1000 static int |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1001 qf_parse_fmt_plus(char_u *linebuf, int linelen, qffields_T *fields) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1002 { |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1003 char_u *p; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1004 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1005 if (linelen >= fields->errmsglen) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1006 { |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1007 /* linelen + null terminator */ |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1008 if ((p = vim_realloc(fields->errmsg, linelen + 1)) == NULL) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1009 return QF_NOMEM; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1010 fields->errmsg = p; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1011 fields->errmsglen = linelen + 1; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1012 } |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1013 vim_strncpy(fields->errmsg, linebuf, linelen); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1014 return QF_OK; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1015 } |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1016 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1017 /* |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1018 * Parse the match for error message ('%m') pattern in regmatch. |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1019 * Return the matched value in "fields->errmsg". |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1020 */ |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1021 static int |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1022 qf_parse_fmt_m(regmatch_T *rmp, int midx, qffields_T *fields) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1023 { |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1024 char_u *p; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1025 int len; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1026 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1027 if (rmp->startp[midx] == NULL || rmp->endp[midx] == NULL) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1028 return QF_FAIL; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1029 len = (int)(rmp->endp[midx] - rmp->startp[midx]); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1030 if (len >= fields->errmsglen) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1031 { |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1032 /* len + null terminator */ |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1033 if ((p = vim_realloc(fields->errmsg, len + 1)) == NULL) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1034 return QF_NOMEM; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1035 fields->errmsg = p; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1036 fields->errmsglen = len + 1; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1037 } |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1038 vim_strncpy(fields->errmsg, rmp->startp[midx], len); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1039 return QF_OK; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1040 } |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1041 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1042 /* |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1043 * Parse the match for rest of a single-line file message ('%r') pattern. |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1044 * Return the matched value in "tail". |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1045 */ |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1046 static int |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1047 qf_parse_fmt_r(regmatch_T *rmp, int midx, char_u **tail) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1048 { |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1049 if (rmp->startp[midx] == NULL) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1050 return QF_FAIL; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1051 *tail = rmp->startp[midx]; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1052 return QF_OK; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1053 } |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1054 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1055 /* |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1056 * Parse the match for the pointer line ('%p') pattern in regmatch. |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1057 * Return the matched value in "fields->col". |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1058 */ |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1059 static int |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1060 qf_parse_fmt_p(regmatch_T *rmp, int midx, qffields_T *fields) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1061 { |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1062 char_u *match_ptr; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1063 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1064 if (rmp->startp[midx] == NULL || rmp->endp[midx] == NULL) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1065 return QF_FAIL; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1066 fields->col = 0; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1067 for (match_ptr = rmp->startp[midx]; match_ptr != rmp->endp[midx]; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1068 ++match_ptr) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1069 { |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1070 ++fields->col; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1071 if (*match_ptr == TAB) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1072 { |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1073 fields->col += 7; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1074 fields->col -= fields->col % 8; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1075 } |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1076 } |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1077 ++fields->col; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1078 fields->use_viscol = TRUE; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1079 return QF_OK; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1080 } |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1081 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1082 /* |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1083 * Parse the match for the virtual column number ('%v') pattern in regmatch. |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1084 * Return the matched value in "fields->col". |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1085 */ |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1086 static int |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1087 qf_parse_fmt_v(regmatch_T *rmp, int midx, qffields_T *fields) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1088 { |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1089 if (rmp->startp[midx] == NULL) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1090 return QF_FAIL; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1091 fields->col = (int)atol((char *)rmp->startp[midx]); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1092 fields->use_viscol = TRUE; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1093 return QF_OK; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1094 } |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1095 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1096 /* |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1097 * Parse the match for the search text ('%s') pattern in regmatch. |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1098 * Return the matched value in "fields->pattern". |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1099 */ |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1100 static int |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1101 qf_parse_fmt_s(regmatch_T *rmp, int midx, qffields_T *fields) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1102 { |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1103 int len; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1104 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1105 if (rmp->startp[midx] == NULL || rmp->endp[midx] == NULL) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1106 return QF_FAIL; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1107 len = (int)(rmp->endp[midx] - rmp->startp[midx]); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1108 if (len > CMDBUFFSIZE - 5) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1109 len = CMDBUFFSIZE - 5; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1110 STRCPY(fields->pattern, "^\\V"); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1111 STRNCAT(fields->pattern, rmp->startp[midx], len); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1112 fields->pattern[len + 3] = '\\'; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1113 fields->pattern[len + 4] = '$'; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1114 fields->pattern[len + 5] = NUL; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1115 return QF_OK; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1116 } |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1117 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1118 /* |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1119 * Parse the match for the module ('%o') pattern in regmatch. |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1120 * Return the matched value in "fields->module". |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1121 */ |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1122 static int |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1123 qf_parse_fmt_o(regmatch_T *rmp, int midx, qffields_T *fields) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1124 { |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1125 int len; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1126 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1127 if (rmp->startp[midx] == NULL || rmp->endp[midx] == NULL) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1128 return QF_FAIL; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1129 len = (int)(rmp->endp[midx] - rmp->startp[midx]); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1130 if (len > CMDBUFFSIZE) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1131 len = CMDBUFFSIZE; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1132 STRNCAT(fields->module, rmp->startp[midx], len); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1133 return QF_OK; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1134 } |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1135 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1136 /* |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1137 * 'errorformat' format pattern parser functions. |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1138 * The '%f' and '%r' formats are parsed differently from other formats. |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1139 * See qf_parse_match() for details. |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1140 */ |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1141 static int (*qf_parse_fmt[FMT_PATTERNS])(regmatch_T *, int, qffields_T *) = |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1142 { |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1143 NULL, |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1144 qf_parse_fmt_n, |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1145 qf_parse_fmt_l, |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1146 qf_parse_fmt_c, |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1147 qf_parse_fmt_t, |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1148 qf_parse_fmt_m, |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1149 NULL, |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1150 qf_parse_fmt_p, |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1151 qf_parse_fmt_v, |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1152 qf_parse_fmt_s, |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1153 qf_parse_fmt_o |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1154 }; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1155 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1156 /* |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1157 * Parse the error format pattern matches in "regmatch" and set the values in |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1158 * "fields". fmt_ptr contains the 'efm' format specifiers/prefixes that have a |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1159 * match. Returns QF_OK if all the matches are successfully parsed. On |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1160 * failure, returns QF_FAIL or QF_NOMEM. |
|
13868
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1161 */ |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1162 static int |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1163 qf_parse_match( |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1164 char_u *linebuf, |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1165 int linelen, |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1166 efm_T *fmt_ptr, |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1167 regmatch_T *regmatch, |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1168 qffields_T *fields, |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1169 int qf_multiline, |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1170 int qf_multiscan, |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1171 char_u **tail) |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1172 { |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1173 int idx = fmt_ptr->prefix; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1174 int i; |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1175 int midx; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1176 int status; |
|
13868
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1177 |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1178 if ((idx == 'C' || idx == 'Z') && !qf_multiline) |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1179 return QF_FAIL; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1180 if (vim_strchr((char_u *)"EWI", idx) != NULL) |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1181 fields->type = idx; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1182 else |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1183 fields->type = 0; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1184 /* |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1185 * Extract error message data from matched line. |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1186 * We check for an actual submatch, because "\[" and "\]" in |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1187 * the 'errorformat' may cause the wrong submatch to be used. |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1188 */ |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1189 for (i = 0; i < FMT_PATTERNS; i++) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1190 { |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1191 status = QF_OK; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1192 midx = (int)fmt_ptr->addr[i]; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1193 if (i == 0 && midx > 0) /* %f */ |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1194 status = qf_parse_fmt_f(regmatch, midx, fields, idx); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1195 else if (i == 5) |
|
13868
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1196 { |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1197 if (fmt_ptr->flags == '+' && !qf_multiscan) /* %+ */ |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1198 status = qf_parse_fmt_plus(linebuf, linelen, fields); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1199 else if (midx > 0) /* %m */ |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1200 status = qf_parse_fmt_m(regmatch, midx, fields); |
|
13868
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1201 } |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1202 else if (i == 6 && midx > 0) /* %r */ |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1203 status = qf_parse_fmt_r(regmatch, midx, tail); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1204 else if (midx > 0) /* others */ |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1205 status = (qf_parse_fmt[i])(regmatch, midx, fields); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1206 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1207 if (status != QF_OK) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1208 return status; |
|
13868
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1209 } |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1210 |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1211 return QF_OK; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1212 } |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1213 |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1214 /* |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1215 * Parse an error line in 'linebuf' using a single error format string in |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1216 * 'fmt_ptr->prog' and return the matching values in 'fields'. |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1217 * Returns QF_OK if the efm format matches completely and the fields are |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1218 * successfully copied. Otherwise returns QF_FAIL or QF_NOMEM. |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1219 */ |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1220 static int |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1221 qf_parse_get_fields( |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1222 char_u *linebuf, |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1223 int linelen, |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1224 efm_T *fmt_ptr, |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1225 qffields_T *fields, |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1226 int qf_multiline, |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1227 int qf_multiscan, |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1228 char_u **tail) |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1229 { |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1230 regmatch_T regmatch; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1231 int status = QF_FAIL; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1232 int r; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1233 |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1234 if (qf_multiscan && |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1235 vim_strchr((char_u *)"OPQ", fmt_ptr->prefix) == NULL) |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1236 return QF_FAIL; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1237 |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1238 fields->namebuf[0] = NUL; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1239 fields->module[0] = NUL; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1240 fields->pattern[0] = NUL; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1241 if (!qf_multiscan) |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1242 fields->errmsg[0] = NUL; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1243 fields->lnum = 0; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1244 fields->col = 0; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1245 fields->use_viscol = FALSE; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1246 fields->enr = -1; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1247 fields->type = 0; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1248 *tail = NULL; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1249 |
|
13921
3b6c29f8c1a2
patch 8.0.1831: sometimes the quickfix title is incorrectly prefixed with ':'
Christian Brabandt <cb@256bit.org>
parents:
13882
diff
changeset
|
1250 /* Always ignore case when looking for a matching error. */ |
|
3b6c29f8c1a2
patch 8.0.1831: sometimes the quickfix title is incorrectly prefixed with ':'
Christian Brabandt <cb@256bit.org>
parents:
13882
diff
changeset
|
1251 regmatch.rm_ic = TRUE; |
|
13868
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1252 regmatch.regprog = fmt_ptr->prog; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1253 r = vim_regexec(®match, linebuf, (colnr_T)0); |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1254 fmt_ptr->prog = regmatch.regprog; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1255 if (r) |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1256 status = qf_parse_match(linebuf, linelen, fmt_ptr, ®match, |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1257 fields, qf_multiline, qf_multiscan, tail); |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1258 |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1259 return status; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1260 } |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1261 |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1262 /* |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1263 * Parse directory error format prefixes (%D and %X). |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1264 * Push and pop directories from the directory stack when scanning directory |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1265 * names. |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1266 */ |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1267 static int |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1268 qf_parse_dir_pfx(int idx, qffields_T *fields, qf_list_T *qfl) |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1269 { |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1270 if (idx == 'D') /* enter directory */ |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1271 { |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1272 if (*fields->namebuf == NUL) |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1273 { |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1274 EMSG(_("E379: Missing or empty directory name")); |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1275 return QF_FAIL; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1276 } |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1277 qfl->qf_directory = |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1278 qf_push_dir(fields->namebuf, &qfl->qf_dir_stack, FALSE); |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1279 if (qfl->qf_directory == NULL) |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1280 return QF_FAIL; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1281 } |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1282 else if (idx == 'X') /* leave directory */ |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1283 qfl->qf_directory = qf_pop_dir(&qfl->qf_dir_stack); |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1284 |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1285 return QF_OK; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1286 } |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1287 |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1288 /* |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1289 * Parse global file name error format prefixes (%O, %P and %Q). |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1290 */ |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1291 static int |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1292 qf_parse_file_pfx( |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1293 int idx, |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1294 qffields_T *fields, |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1295 qf_list_T *qfl, |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1296 char_u *tail) |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1297 { |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1298 fields->valid = FALSE; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1299 if (*fields->namebuf == NUL || mch_getperm(fields->namebuf) >= 0) |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1300 { |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1301 if (*fields->namebuf && idx == 'P') |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1302 qfl->qf_currfile = |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1303 qf_push_dir(fields->namebuf, &qfl->qf_file_stack, TRUE); |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1304 else if (idx == 'Q') |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1305 qfl->qf_currfile = qf_pop_dir(&qfl->qf_file_stack); |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1306 *fields->namebuf = NUL; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1307 if (tail && *tail) |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1308 { |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1309 STRMOVE(IObuff, skipwhite(tail)); |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1310 qfl->qf_multiscan = TRUE; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1311 return QF_MULTISCAN; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1312 } |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1313 } |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1314 |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1315 return QF_OK; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1316 } |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1317 |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1318 /* |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1319 * Parse a non-error line (a line which doesn't match any of the error |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1320 * format in 'efm'). |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1321 */ |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1322 static int |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1323 qf_parse_line_nomatch(char_u *linebuf, int linelen, qffields_T *fields) |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1324 { |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1325 char_u *p; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1326 |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1327 fields->namebuf[0] = NUL; /* no match found, remove file name */ |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1328 fields->lnum = 0; /* don't jump to this line */ |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1329 fields->valid = FALSE; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1330 if (linelen >= fields->errmsglen) |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1331 { |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1332 /* linelen + null terminator */ |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1333 if ((p = vim_realloc(fields->errmsg, linelen + 1)) == NULL) |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1334 return QF_NOMEM; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1335 fields->errmsg = p; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1336 fields->errmsglen = linelen + 1; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1337 } |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1338 /* copy whole line to error message */ |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1339 vim_strncpy(fields->errmsg, linebuf, linelen); |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1340 |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1341 return QF_OK; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1342 } |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1343 |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1344 /* |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1345 * Parse multi-line error format prefixes (%C and %Z) |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1346 */ |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1347 static int |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1348 qf_parse_multiline_pfx( |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1349 qf_info_T *qi, |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1350 int qf_idx, |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1351 int idx, |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1352 qf_list_T *qfl, |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1353 qffields_T *fields) |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1354 { |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1355 char_u *ptr; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1356 int len; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1357 |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1358 if (!qfl->qf_multiignore) |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1359 { |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1360 qfline_T *qfprev = qfl->qf_last; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1361 |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1362 if (qfprev == NULL) |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1363 return QF_FAIL; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1364 if (*fields->errmsg && !qfl->qf_multiignore) |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1365 { |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1366 len = (int)STRLEN(qfprev->qf_text); |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1367 if ((ptr = alloc((unsigned)(len + STRLEN(fields->errmsg) + 2))) |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1368 == NULL) |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1369 return QF_FAIL; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1370 STRCPY(ptr, qfprev->qf_text); |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1371 vim_free(qfprev->qf_text); |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1372 qfprev->qf_text = ptr; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1373 *(ptr += len) = '\n'; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1374 STRCPY(++ptr, fields->errmsg); |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1375 } |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1376 if (qfprev->qf_nr == -1) |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1377 qfprev->qf_nr = fields->enr; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1378 if (vim_isprintc(fields->type) && !qfprev->qf_type) |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1379 /* only printable chars allowed */ |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1380 qfprev->qf_type = fields->type; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1381 |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1382 if (!qfprev->qf_lnum) |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1383 qfprev->qf_lnum = fields->lnum; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1384 if (!qfprev->qf_col) |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1385 qfprev->qf_col = fields->col; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1386 qfprev->qf_viscol = fields->use_viscol; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1387 if (!qfprev->qf_fnum) |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1388 qfprev->qf_fnum = qf_get_fnum(qi, qf_idx, |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1389 qfl->qf_directory, |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1390 *fields->namebuf || qfl->qf_directory != NULL |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1391 ? fields->namebuf |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1392 : qfl->qf_currfile != NULL && fields->valid |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1393 ? qfl->qf_currfile : 0); |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1394 } |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1395 if (idx == 'Z') |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1396 qfl->qf_multiline = qfl->qf_multiignore = FALSE; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1397 line_breakcheck(); |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1398 |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1399 return QF_IGNORE_LINE; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1400 } |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1401 |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1402 /* |
|
9568
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1403 * Parse a line and get the quickfix fields. |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1404 * Return the QF_ status. |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1405 */ |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1406 static int |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1407 qf_parse_line( |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1408 qf_info_T *qi, |
|
11700
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
1409 int qf_idx, |
|
9568
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1410 char_u *linebuf, |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1411 int linelen, |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1412 efm_T *fmt_first, |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1413 qffields_T *fields) |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1414 { |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1415 efm_T *fmt_ptr; |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1416 int idx = 0; |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1417 char_u *tail = NULL; |
|
11700
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
1418 qf_list_T *qfl = &qi->qf_lists[qf_idx]; |
|
13868
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1419 int status; |
|
9568
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1420 |
|
13612
89223f5d5d12
patch 8.0.1678: errorformat "%r" implies "%>"
Christian Brabandt <cb@256bit.org>
parents:
13594
diff
changeset
|
1421 restofline: |
|
9568
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1422 /* If there was no %> item start at the first pattern */ |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1423 if (fmt_start == NULL) |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1424 fmt_ptr = fmt_first; |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1425 else |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1426 { |
|
13868
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1427 /* Otherwise start from the last used pattern */ |
|
9568
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1428 fmt_ptr = fmt_start; |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1429 fmt_start = NULL; |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1430 } |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1431 |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1432 /* |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1433 * Try to match each part of 'errorformat' until we find a complete |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1434 * match or no match. |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1435 */ |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1436 fields->valid = TRUE; |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1437 for ( ; fmt_ptr != NULL; fmt_ptr = fmt_ptr->next) |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1438 { |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1439 idx = fmt_ptr->prefix; |
|
13868
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1440 status = qf_parse_get_fields(linebuf, linelen, fmt_ptr, fields, |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1441 qfl->qf_multiline, qfl->qf_multiscan, &tail); |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1442 if (status == QF_NOMEM) |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1443 return status; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1444 if (status == QF_OK) |
|
9568
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1445 break; |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1446 } |
|
11700
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
1447 qfl->qf_multiscan = FALSE; |
|
9568
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1448 |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1449 if (fmt_ptr == NULL || idx == 'D' || idx == 'X') |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1450 { |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1451 if (fmt_ptr != NULL) |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1452 { |
|
13868
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1453 /* 'D' and 'X' directory specifiers */ |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1454 status = qf_parse_dir_pfx(idx, fields, qfl); |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1455 if (status != QF_OK) |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1456 return status; |
|
9568
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1457 } |
|
13868
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1458 |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1459 status = qf_parse_line_nomatch(linebuf, linelen, fields); |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1460 if (status != QF_OK) |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1461 return status; |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1462 |
|
9568
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1463 if (fmt_ptr == NULL) |
|
11700
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
1464 qfl->qf_multiline = qfl->qf_multiignore = FALSE; |
|
9568
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1465 } |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1466 else if (fmt_ptr != NULL) |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1467 { |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1468 /* honor %> item */ |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1469 if (fmt_ptr->conthere) |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1470 fmt_start = fmt_ptr; |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1471 |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1472 if (vim_strchr((char_u *)"AEWI", idx) != NULL) |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1473 { |
|
11700
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
1474 qfl->qf_multiline = TRUE; /* start of a multi-line message */ |
|
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
1475 qfl->qf_multiignore = FALSE;/* reset continuation */ |
|
9568
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1476 } |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1477 else if (vim_strchr((char_u *)"CZ", idx) != NULL) |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1478 { /* continuation of multi-line msg */ |
|
13868
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1479 status = qf_parse_multiline_pfx(qi, qf_idx, idx, qfl, fields); |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1480 if (status != QF_OK) |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1481 return status; |
|
9568
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1482 } |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1483 else if (vim_strchr((char_u *)"OPQ", idx) != NULL) |
|
13868
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1484 { /* global file names */ |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1485 status = qf_parse_file_pfx(idx, fields, qfl, tail); |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1486 if (status == QF_MULTISCAN) |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1487 goto restofline; |
|
9568
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1488 } |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1489 if (fmt_ptr->flags == '-') /* generally exclude this line */ |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1490 { |
|
11700
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
1491 if (qfl->qf_multiline) |
|
9568
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1492 /* also exclude continuation lines */ |
|
11700
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
1493 qfl->qf_multiignore = TRUE; |
|
9568
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1494 return QF_IGNORE_LINE; |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1495 } |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1496 } |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1497 |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1498 return QF_OK; |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1499 } |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1500 |
|
9033
0536d1469b67
commit https://github.com/vim/vim/commit/6be8c8e165204b8aa4eeb8a52be87a58d8b41b9e
Christian Brabandt <cb@256bit.org>
parents:
8932
diff
changeset
|
1501 /* |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1502 * Returns TRUE if the specified quickfix/location list is empty. |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1503 */ |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1504 static int |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1505 qf_list_empty(qf_info_T *qi, int qf_idx) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1506 { |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1507 if (qi == NULL || qf_idx < 0 || qf_idx >= LISTCOUNT) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1508 return TRUE; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1509 return qi->qf_lists[qf_idx].qf_count <= 0; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1510 } |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1511 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1512 /* |
|
13992
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1513 * Allocate the fields used for parsing lines and populating a quickfix list. |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1514 */ |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1515 static int |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1516 qf_alloc_fields(qffields_T *pfields) |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1517 { |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1518 pfields->namebuf = alloc_id(CMDBUFFSIZE + 1, aid_qf_namebuf); |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1519 pfields->module = alloc_id(CMDBUFFSIZE + 1, aid_qf_module); |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1520 pfields->errmsglen = CMDBUFFSIZE + 1; |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1521 pfields->errmsg = alloc_id(pfields->errmsglen, aid_qf_errmsg); |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1522 pfields->pattern = alloc_id(CMDBUFFSIZE + 1, aid_qf_pattern); |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1523 if (pfields->namebuf == NULL || pfields->errmsg == NULL |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1524 || pfields->pattern == NULL || pfields->module == NULL) |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1525 return FAIL; |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1526 |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1527 return OK; |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1528 } |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1529 |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1530 /* |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1531 * Free the fields used for parsing lines and populating a quickfix list. |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1532 */ |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1533 static void |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1534 qf_free_fields(qffields_T *pfields) |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1535 { |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1536 vim_free(pfields->namebuf); |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1537 vim_free(pfields->module); |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1538 vim_free(pfields->errmsg); |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1539 vim_free(pfields->pattern); |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1540 } |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1541 |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1542 /* |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1543 * Setup the state information used for parsing lines and populating a |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1544 * quickfix list. |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1545 */ |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1546 static int |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1547 qf_setup_state( |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1548 qfstate_T *pstate, |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1549 char_u *enc, |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1550 char_u *efile, |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1551 typval_T *tv, |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1552 buf_T *buf, |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1553 linenr_T lnumfirst, |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1554 linenr_T lnumlast) |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1555 { |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1556 #ifdef FEAT_MBYTE |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1557 pstate->vc.vc_type = CONV_NONE; |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1558 if (enc != NULL && *enc != NUL) |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1559 convert_setup(&pstate->vc, enc, p_enc); |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1560 #endif |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1561 |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1562 if (efile != NULL && (pstate->fd = mch_fopen((char *)efile, "r")) == NULL) |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1563 { |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1564 EMSG2(_(e_openerrf), efile); |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1565 return FAIL; |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1566 } |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1567 |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1568 if (tv != NULL) |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1569 { |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1570 if (tv->v_type == VAR_STRING) |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1571 pstate->p_str = tv->vval.v_string; |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1572 else if (tv->v_type == VAR_LIST) |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1573 pstate->p_li = tv->vval.v_list->lv_first; |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1574 pstate->tv = tv; |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1575 } |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1576 pstate->buf = buf; |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1577 pstate->buflnum = lnumfirst; |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1578 pstate->lnumlast = lnumlast; |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1579 |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1580 return OK; |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1581 } |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1582 |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1583 /* |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1584 * Cleanup the state information used for parsing lines and populating a |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1585 * quickfix list. |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1586 */ |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1587 static void |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1588 qf_cleanup_state(qfstate_T *pstate) |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1589 { |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1590 if (pstate->fd != NULL) |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1591 fclose(pstate->fd); |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1592 |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1593 vim_free(pstate->growbuf); |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1594 #ifdef FEAT_MBYTE |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1595 if (pstate->vc.vc_type != CONV_NONE) |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1596 convert_setup(&pstate->vc, NULL, NULL); |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1597 #endif |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1598 } |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1599 |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1600 /* |
| 41 | 1601 * Read the errorfile "efile" into memory, line by line, building the error |
| 1602 * list. | |
|
9175
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
1603 * Alternative: when "efile" is NULL read errors from buffer "buf". |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
1604 * Alternative: when "tv" is not NULL get errors from the string or list. |
| 41 | 1605 * Always use 'errorformat' from "buf" if there is a local value. |
|
2411
68e394361ca3
Add "q" item for 'statusline'. Add w:quickfix_title. (Lech Lorens)
Bram Moolenaar <bram@vim.org>
parents:
2296
diff
changeset
|
1606 * Then "lnumfirst" and "lnumlast" specify the range of lines to use. |
|
68e394361ca3
Add "q" item for 'statusline'. Add w:quickfix_title. (Lech Lorens)
Bram Moolenaar <bram@vim.org>
parents:
2296
diff
changeset
|
1607 * Set the title of the list to "qf_title". |
| 41 | 1608 * Return -1 for error, number of errors for success. |
| 1609 */ | |
| 1610 static int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1611 qf_init_ext( |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1612 qf_info_T *qi, |
|
11700
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
1613 int qf_idx, |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1614 char_u *efile, |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1615 buf_T *buf, |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1616 typval_T *tv, |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1617 char_u *errorformat, |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1618 int newlist, /* TRUE: start a new error list */ |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1619 linenr_T lnumfirst, /* first line number to use */ |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1620 linenr_T lnumlast, /* last line number to use */ |
|
11063
e71d3bdf3bc3
patch 8.0.0420: text garbled when the system encoding differs from 'encoding'
Christian Brabandt <cb@256bit.org>
parents:
10379
diff
changeset
|
1621 char_u *qf_title, |
|
e71d3bdf3bc3
patch 8.0.0420: text garbled when the system encoding differs from 'encoding'
Christian Brabandt <cb@256bit.org>
parents:
10379
diff
changeset
|
1622 char_u *enc) |
| 41 | 1623 { |
|
11700
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
1624 qf_list_T *qfl; |
|
11063
e71d3bdf3bc3
patch 8.0.0420: text garbled when the system encoding differs from 'encoding'
Christian Brabandt <cb@256bit.org>
parents:
10379
diff
changeset
|
1625 qfstate_T state; |
|
e71d3bdf3bc3
patch 8.0.0420: text garbled when the system encoding differs from 'encoding'
Christian Brabandt <cb@256bit.org>
parents:
10379
diff
changeset
|
1626 qffields_T fields; |
|
9175
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
1627 qfline_T *old_last = NULL; |
|
10369
4e5b307638cb
commit https://github.com/vim/vim/commit/2b946c9f9b0e0fd805fb8f3e4c16e0a68ae13129
Christian Brabandt <cb@256bit.org>
parents:
10367
diff
changeset
|
1628 int adding = FALSE; |
|
9397
e08e8b00fe48
commit https://github.com/vim/vim/commit/361c8f0e517e41f1f1d34dae328044406fde80ac
Christian Brabandt <cb@256bit.org>
parents:
9389
diff
changeset
|
1629 static efm_T *fmt_first = NULL; |
| 7 | 1630 char_u *efm; |
|
9397
e08e8b00fe48
commit https://github.com/vim/vim/commit/361c8f0e517e41f1f1d34dae328044406fde80ac
Christian Brabandt <cb@256bit.org>
parents:
9389
diff
changeset
|
1631 static char_u *last_efm = NULL; |
| 7 | 1632 int retval = -1; /* default: return error flag */ |
|
9531
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
1633 int status; |
|
9568
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1634 |
|
11443
30b3775addb2
patch 8.0.0605: the quickfix cached buffer may become invalid
Christian Brabandt <cb@256bit.org>
parents:
11426
diff
changeset
|
1635 /* Do not used the cached buffer, it may have been wiped out. */ |
|
13244
ac42c4b11dbc
patch 8.0.1496: clearing a pointer takes two lines
Christian Brabandt <cb@256bit.org>
parents:
13115
diff
changeset
|
1636 VIM_CLEAR(qf_last_bufname); |
|
11443
30b3775addb2
patch 8.0.0605: the quickfix cached buffer may become invalid
Christian Brabandt <cb@256bit.org>
parents:
11426
diff
changeset
|
1637 |
|
11063
e71d3bdf3bc3
patch 8.0.0420: text garbled when the system encoding differs from 'encoding'
Christian Brabandt <cb@256bit.org>
parents:
10379
diff
changeset
|
1638 vim_memset(&state, 0, sizeof(state)); |
|
e71d3bdf3bc3
patch 8.0.0420: text garbled when the system encoding differs from 'encoding'
Christian Brabandt <cb@256bit.org>
parents:
10379
diff
changeset
|
1639 vim_memset(&fields, 0, sizeof(fields)); |
|
13992
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1640 if ((qf_alloc_fields(&fields) == FAIL) || |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1641 (qf_setup_state(&state, enc, efile, tv, buf, |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1642 lnumfirst, lnumlast) == FAIL)) |
| 7 | 1643 goto qf_init_end; |
| 1644 | |
|
11700
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
1645 if (newlist || qf_idx == qi->qf_listcount) |
|
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
1646 { |
| 7 | 1647 /* make place for a new list */ |
| 3965 | 1648 qf_new_list(qi, qf_title); |
|
11700
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
1649 qf_idx = qi->qf_curlist; |
|
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
1650 } |
|
11609
6f11697fb92c
patch 8.0.0687: minor issues related to quickfix
Christian Brabandt <cb@256bit.org>
parents:
11589
diff
changeset
|
1651 else |
|
9175
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
1652 { |
|
9195
543f068f3706
commit https://github.com/vim/vim/commit/83e6d7ac6a1c2a0cb5ee6c8420a5dc792f1d5ffa
Christian Brabandt <cb@256bit.org>
parents:
9175
diff
changeset
|
1653 /* Adding to existing list, use last entry. */ |
|
10369
4e5b307638cb
commit https://github.com/vim/vim/commit/2b946c9f9b0e0fd805fb8f3e4c16e0a68ae13129
Christian Brabandt <cb@256bit.org>
parents:
10367
diff
changeset
|
1654 adding = TRUE; |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1655 if (!qf_list_empty(qi, qf_idx)) |
|
11700
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
1656 old_last = qi->qf_lists[qf_idx].qf_last; |
|
9175
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
1657 } |
| 7 | 1658 |
|
11700
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
1659 qfl = &qi->qf_lists[qf_idx]; |
|
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
1660 |
| 7 | 1661 /* Use the local value of 'errorformat' if it's set. */ |
| 446 | 1662 if (errorformat == p_efm && tv == NULL && *buf->b_p_efm != NUL) |
| 41 | 1663 efm = buf->b_p_efm; |
| 7 | 1664 else |
| 1665 efm = errorformat; | |
|
9365
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
1666 |
|
9397
e08e8b00fe48
commit https://github.com/vim/vim/commit/361c8f0e517e41f1f1d34dae328044406fde80ac
Christian Brabandt <cb@256bit.org>
parents:
9389
diff
changeset
|
1667 /* |
|
e08e8b00fe48
commit https://github.com/vim/vim/commit/361c8f0e517e41f1f1d34dae328044406fde80ac
Christian Brabandt <cb@256bit.org>
parents:
9389
diff
changeset
|
1668 * If the errorformat didn't change between calls, then reuse the |
|
e08e8b00fe48
commit https://github.com/vim/vim/commit/361c8f0e517e41f1f1d34dae328044406fde80ac
Christian Brabandt <cb@256bit.org>
parents:
9389
diff
changeset
|
1669 * previously parsed values. |
|
e08e8b00fe48
commit https://github.com/vim/vim/commit/361c8f0e517e41f1f1d34dae328044406fde80ac
Christian Brabandt <cb@256bit.org>
parents:
9389
diff
changeset
|
1670 */ |
|
e08e8b00fe48
commit https://github.com/vim/vim/commit/361c8f0e517e41f1f1d34dae328044406fde80ac
Christian Brabandt <cb@256bit.org>
parents:
9389
diff
changeset
|
1671 if (last_efm == NULL || (STRCMP(last_efm, efm) != 0)) |
|
e08e8b00fe48
commit https://github.com/vim/vim/commit/361c8f0e517e41f1f1d34dae328044406fde80ac
Christian Brabandt <cb@256bit.org>
parents:
9389
diff
changeset
|
1672 { |
|
e08e8b00fe48
commit https://github.com/vim/vim/commit/361c8f0e517e41f1f1d34dae328044406fde80ac
Christian Brabandt <cb@256bit.org>
parents:
9389
diff
changeset
|
1673 /* free the previously parsed data */ |
|
13244
ac42c4b11dbc
patch 8.0.1496: clearing a pointer takes two lines
Christian Brabandt <cb@256bit.org>
parents:
13115
diff
changeset
|
1674 VIM_CLEAR(last_efm); |
|
9397
e08e8b00fe48
commit https://github.com/vim/vim/commit/361c8f0e517e41f1f1d34dae328044406fde80ac
Christian Brabandt <cb@256bit.org>
parents:
9389
diff
changeset
|
1675 free_efm_list(&fmt_first); |
|
e08e8b00fe48
commit https://github.com/vim/vim/commit/361c8f0e517e41f1f1d34dae328044406fde80ac
Christian Brabandt <cb@256bit.org>
parents:
9389
diff
changeset
|
1676 |
|
e08e8b00fe48
commit https://github.com/vim/vim/commit/361c8f0e517e41f1f1d34dae328044406fde80ac
Christian Brabandt <cb@256bit.org>
parents:
9389
diff
changeset
|
1677 /* parse the current 'efm' */ |
|
e08e8b00fe48
commit https://github.com/vim/vim/commit/361c8f0e517e41f1f1d34dae328044406fde80ac
Christian Brabandt <cb@256bit.org>
parents:
9389
diff
changeset
|
1678 fmt_first = parse_efm_option(efm); |
|
e08e8b00fe48
commit https://github.com/vim/vim/commit/361c8f0e517e41f1f1d34dae328044406fde80ac
Christian Brabandt <cb@256bit.org>
parents:
9389
diff
changeset
|
1679 if (fmt_first != NULL) |
|
e08e8b00fe48
commit https://github.com/vim/vim/commit/361c8f0e517e41f1f1d34dae328044406fde80ac
Christian Brabandt <cb@256bit.org>
parents:
9389
diff
changeset
|
1680 last_efm = vim_strsave(efm); |
|
e08e8b00fe48
commit https://github.com/vim/vim/commit/361c8f0e517e41f1f1d34dae328044406fde80ac
Christian Brabandt <cb@256bit.org>
parents:
9389
diff
changeset
|
1681 } |
|
e08e8b00fe48
commit https://github.com/vim/vim/commit/361c8f0e517e41f1f1d34dae328044406fde80ac
Christian Brabandt <cb@256bit.org>
parents:
9389
diff
changeset
|
1682 |
|
9365
3830a92c12bf
commit https://github.com/vim/vim/commit/688e3d1fd9b9129a5ba0e0d599ccfe6f4443daf3
Christian Brabandt <cb@256bit.org>
parents:
9334
diff
changeset
|
1683 if (fmt_first == NULL) /* nothing found */ |
| 7 | 1684 goto error2; |
| 1685 | |
| 1686 /* | |
| 1687 * got_int is reset here, because it was probably set when killing the | |
| 1688 * ":make" command, but we still want to read the errorfile then. | |
| 1689 */ | |
| 1690 got_int = FALSE; | |
| 1691 | |
| 1692 /* | |
| 1693 * Read the lines in the error file one by one. | |
| 1694 * Try to recognize one of the error formats in each line. | |
| 1695 */ | |
| 41 | 1696 while (!got_int) |
| 7 | 1697 { |
|
9531
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
1698 /* Get the next line from a file/buffer/list/string */ |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
1699 status = qf_get_nextline(&state); |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
1700 if (status == QF_NOMEM) /* memory alloc failure */ |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
1701 goto qf_init_end; |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
1702 if (status == QF_END_OF_INPUT) /* end of input */ |
|
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
1703 break; |
| 7 | 1704 |
|
11700
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
1705 status = qf_parse_line(qi, qf_idx, state.linebuf, state.linelen, |
|
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
1706 fmt_first, &fields); |
|
9568
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1707 if (status == QF_FAIL) |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1708 goto error2; |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1709 if (status == QF_NOMEM) |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1710 goto qf_init_end; |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1711 if (status == QF_IGNORE_LINE) |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1712 continue; |
| 7 | 1713 |
|
9195
543f068f3706
commit https://github.com/vim/vim/commit/83e6d7ac6a1c2a0cb5ee6c8420a5dc792f1d5ffa
Christian Brabandt <cb@256bit.org>
parents:
9175
diff
changeset
|
1714 if (qf_add_entry(qi, |
|
11700
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
1715 qf_idx, |
|
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
1716 qfl->qf_directory, |
|
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
1717 (*fields.namebuf || qfl->qf_directory != NULL) |
|
9568
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1718 ? fields.namebuf |
|
11700
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
1719 : ((qfl->qf_currfile != NULL && fields.valid) |
|
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
1720 ? qfl->qf_currfile : (char_u *)NULL), |
|
13821
98274127d675
patch 8.0.1782: no simple way to label quickfix entries
Christian Brabandt <cb@256bit.org>
parents:
13819
diff
changeset
|
1721 fields.module, |
| 1065 | 1722 0, |
|
9568
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1723 fields.errmsg, |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1724 fields.lnum, |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1725 fields.col, |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1726 fields.use_viscol, |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1727 fields.pattern, |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1728 fields.enr, |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1729 fields.type, |
|
ccbd2e604e59
commit https://github.com/vim/vim/commit/e87e6dddc2b2a99572ec0db0833c052214c4fbd3
Christian Brabandt <cb@256bit.org>
parents:
9540
diff
changeset
|
1730 fields.valid) == FAIL) |
| 7 | 1731 goto error2; |
| 1732 line_breakcheck(); | |
| 1733 } | |
|
9531
50697f3b49d6
commit https://github.com/vim/vim/commit/e0d3797664c59afc9705808f86a7cf00fd6d874d
Christian Brabandt <cb@256bit.org>
parents:
9487
diff
changeset
|
1734 if (state.fd == NULL || !ferror(state.fd)) |
| 7 | 1735 { |
|
11700
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
1736 if (qfl->qf_index == 0) |
| 7 | 1737 { |
| 644 | 1738 /* no valid entry found */ |
|
11700
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
1739 qfl->qf_ptr = qfl->qf_start; |
|
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
1740 qfl->qf_index = 1; |
|
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
1741 qfl->qf_nonevalid = TRUE; |
| 7 | 1742 } |
| 1743 else | |
| 1744 { | |
|
11700
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
1745 qfl->qf_nonevalid = FALSE; |
|
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
1746 if (qfl->qf_ptr == NULL) |
|
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
1747 qfl->qf_ptr = qfl->qf_start; |
| 7 | 1748 } |
| 644 | 1749 /* return number of matches */ |
|
11700
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
1750 retval = qfl->qf_count; |
|
9369
ce5b79b005ec
commit https://github.com/vim/vim/commit/bcf7772a23624edc0942120e564f6b4ac95604ad
Christian Brabandt <cb@256bit.org>
parents:
9365
diff
changeset
|
1751 goto qf_init_end; |
| 7 | 1752 } |
| 1753 EMSG(_(e_readerrf)); | |
| 1754 error2: | |
|
10369
4e5b307638cb
commit https://github.com/vim/vim/commit/2b946c9f9b0e0fd805fb8f3e4c16e0a68ae13129
Christian Brabandt <cb@256bit.org>
parents:
10367
diff
changeset
|
1755 if (!adding) |
|
4e5b307638cb
commit https://github.com/vim/vim/commit/2b946c9f9b0e0fd805fb8f3e4c16e0a68ae13129
Christian Brabandt <cb@256bit.org>
parents:
10367
diff
changeset
|
1756 { |
|
11700
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
1757 /* Error when creating a new list. Free the new list */ |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
1758 qf_free(&qi->qf_lists[qi->qf_curlist]); |
|
10369
4e5b307638cb
commit https://github.com/vim/vim/commit/2b946c9f9b0e0fd805fb8f3e4c16e0a68ae13129
Christian Brabandt <cb@256bit.org>
parents:
10367
diff
changeset
|
1759 qi->qf_listcount--; |
|
4e5b307638cb
commit https://github.com/vim/vim/commit/2b946c9f9b0e0fd805fb8f3e4c16e0a68ae13129
Christian Brabandt <cb@256bit.org>
parents:
10367
diff
changeset
|
1760 if (qi->qf_curlist > 0) |
|
4e5b307638cb
commit https://github.com/vim/vim/commit/2b946c9f9b0e0fd805fb8f3e4c16e0a68ae13129
Christian Brabandt <cb@256bit.org>
parents:
10367
diff
changeset
|
1761 --qi->qf_curlist; |
|
4e5b307638cb
commit https://github.com/vim/vim/commit/2b946c9f9b0e0fd805fb8f3e4c16e0a68ae13129
Christian Brabandt <cb@256bit.org>
parents:
10367
diff
changeset
|
1762 } |
|
9369
ce5b79b005ec
commit https://github.com/vim/vim/commit/bcf7772a23624edc0942120e564f6b4ac95604ad
Christian Brabandt <cb@256bit.org>
parents:
9365
diff
changeset
|
1763 qf_init_end: |
|
11700
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
1764 if (qf_idx == qi->qf_curlist) |
|
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
1765 qf_update_buffer(qi, old_last); |
|
13992
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1766 qf_cleanup_state(&state); |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1767 qf_free_fields(&fields); |
| 7 | 1768 |
| 1769 return retval; | |
| 1770 } | |
| 1771 | |
|
13868
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1772 /* |
|
13992
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1773 * Read the errorfile "efile" into memory, line by line, building the error |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1774 * list. Set the error list's title to qf_title. |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1775 * Return -1 for error, number of errors for success. |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1776 */ |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1777 int |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1778 qf_init(win_T *wp, |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1779 char_u *efile, |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1780 char_u *errorformat, |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1781 int newlist, /* TRUE: start a new error list */ |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1782 char_u *qf_title, |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1783 char_u *enc) |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1784 { |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1785 qf_info_T *qi = &ql_info; |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1786 |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1787 if (wp != NULL) |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1788 { |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1789 qi = ll_get_or_alloc_list(wp); |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1790 if (qi == NULL) |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1791 return FAIL; |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1792 } |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1793 |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1794 return qf_init_ext(qi, qi->qf_curlist, efile, curbuf, NULL, errorformat, |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1795 newlist, (linenr_T)0, (linenr_T)0, qf_title, enc); |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1796 } |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1797 |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
1798 /* |
|
13868
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1799 * Set the title of the specified quickfix list. Frees the previous title. |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1800 * Prepends ':' to the title. |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1801 */ |
| 6079 | 1802 static void |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
1803 qf_store_title(qf_list_T *qfl, char_u *title) |
|
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
1804 { |
|
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
1805 VIM_CLEAR(qfl->qf_title); |
|
11549
f5add45f9848
patch 8.0.0657: cannot get and set quickfix list items
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
1806 |
| 6079 | 1807 if (title != NULL) |
| 1808 { | |
| 1809 char_u *p = alloc((int)STRLEN(title) + 2); | |
| 1810 | |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
1811 qfl->qf_title = p; |
| 6079 | 1812 if (p != NULL) |
|
13921
3b6c29f8c1a2
patch 8.0.1831: sometimes the quickfix title is incorrectly prefixed with ':'
Christian Brabandt <cb@256bit.org>
parents:
13882
diff
changeset
|
1813 STRCPY(p, title); |
|
3b6c29f8c1a2
patch 8.0.1831: sometimes the quickfix title is incorrectly prefixed with ':'
Christian Brabandt <cb@256bit.org>
parents:
13882
diff
changeset
|
1814 } |
|
3b6c29f8c1a2
patch 8.0.1831: sometimes the quickfix title is incorrectly prefixed with ':'
Christian Brabandt <cb@256bit.org>
parents:
13882
diff
changeset
|
1815 } |
|
3b6c29f8c1a2
patch 8.0.1831: sometimes the quickfix title is incorrectly prefixed with ':'
Christian Brabandt <cb@256bit.org>
parents:
13882
diff
changeset
|
1816 |
|
3b6c29f8c1a2
patch 8.0.1831: sometimes the quickfix title is incorrectly prefixed with ':'
Christian Brabandt <cb@256bit.org>
parents:
13882
diff
changeset
|
1817 /* |
|
3b6c29f8c1a2
patch 8.0.1831: sometimes the quickfix title is incorrectly prefixed with ':'
Christian Brabandt <cb@256bit.org>
parents:
13882
diff
changeset
|
1818 * The title of a quickfix/location list is set, by default, to the command |
|
3b6c29f8c1a2
patch 8.0.1831: sometimes the quickfix title is incorrectly prefixed with ':'
Christian Brabandt <cb@256bit.org>
parents:
13882
diff
changeset
|
1819 * that created the quickfix list with the ":" prefix. |
|
3b6c29f8c1a2
patch 8.0.1831: sometimes the quickfix title is incorrectly prefixed with ':'
Christian Brabandt <cb@256bit.org>
parents:
13882
diff
changeset
|
1820 * Create a quickfix list title string by prepending ":" to a user command. |
|
3b6c29f8c1a2
patch 8.0.1831: sometimes the quickfix title is incorrectly prefixed with ':'
Christian Brabandt <cb@256bit.org>
parents:
13882
diff
changeset
|
1821 * Returns a pointer to a static buffer with the title. |
|
3b6c29f8c1a2
patch 8.0.1831: sometimes the quickfix title is incorrectly prefixed with ':'
Christian Brabandt <cb@256bit.org>
parents:
13882
diff
changeset
|
1822 */ |
|
3b6c29f8c1a2
patch 8.0.1831: sometimes the quickfix title is incorrectly prefixed with ':'
Christian Brabandt <cb@256bit.org>
parents:
13882
diff
changeset
|
1823 static char_u * |
|
3b6c29f8c1a2
patch 8.0.1831: sometimes the quickfix title is incorrectly prefixed with ':'
Christian Brabandt <cb@256bit.org>
parents:
13882
diff
changeset
|
1824 qf_cmdtitle(char_u *cmd) |
|
3b6c29f8c1a2
patch 8.0.1831: sometimes the quickfix title is incorrectly prefixed with ':'
Christian Brabandt <cb@256bit.org>
parents:
13882
diff
changeset
|
1825 { |
|
3b6c29f8c1a2
patch 8.0.1831: sometimes the quickfix title is incorrectly prefixed with ':'
Christian Brabandt <cb@256bit.org>
parents:
13882
diff
changeset
|
1826 static char_u qftitle_str[IOSIZE]; |
|
3b6c29f8c1a2
patch 8.0.1831: sometimes the quickfix title is incorrectly prefixed with ':'
Christian Brabandt <cb@256bit.org>
parents:
13882
diff
changeset
|
1827 |
|
3b6c29f8c1a2
patch 8.0.1831: sometimes the quickfix title is incorrectly prefixed with ':'
Christian Brabandt <cb@256bit.org>
parents:
13882
diff
changeset
|
1828 vim_snprintf((char *)qftitle_str, IOSIZE, ":%s", (char *)cmd); |
|
3b6c29f8c1a2
patch 8.0.1831: sometimes the quickfix title is incorrectly prefixed with ':'
Christian Brabandt <cb@256bit.org>
parents:
13882
diff
changeset
|
1829 return qftitle_str; |
| 6079 | 1830 } |
| 1831 | |
| 7 | 1832 /* |
|
12084
69ce6b3f0834
patch 8.0.0922: quickfix list always added after current one
Christian Brabandt <cb@256bit.org>
parents:
12048
diff
changeset
|
1833 * Prepare for adding a new quickfix list. If the current list is in the |
|
69ce6b3f0834
patch 8.0.0922: quickfix list always added after current one
Christian Brabandt <cb@256bit.org>
parents:
12048
diff
changeset
|
1834 * middle of the stack, then all the following lists are freed and then |
|
69ce6b3f0834
patch 8.0.0922: quickfix list always added after current one
Christian Brabandt <cb@256bit.org>
parents:
12048
diff
changeset
|
1835 * the new list is added. |
| 7 | 1836 */ |
| 1837 static void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1838 qf_new_list(qf_info_T *qi, char_u *qf_title) |
| 7 | 1839 { |
| 1840 int i; | |
| 1841 | |
| 1842 /* | |
| 6079 | 1843 * If the current entry is not the last entry, delete entries beyond |
| 7 | 1844 * the current entry. This makes it possible to browse in a tree-like |
| 1845 * way with ":grep'. | |
| 1846 */ | |
| 644 | 1847 while (qi->qf_listcount > qi->qf_curlist + 1) |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
1848 qf_free(&qi->qf_lists[--qi->qf_listcount]); |
| 7 | 1849 |
| 1850 /* | |
| 1851 * When the stack is full, remove to oldest entry | |
| 1852 * Otherwise, add a new entry. | |
| 1853 */ | |
| 644 | 1854 if (qi->qf_listcount == LISTCOUNT) |
| 7 | 1855 { |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
1856 qf_free(&qi->qf_lists[0]); |
| 7 | 1857 for (i = 1; i < LISTCOUNT; ++i) |
| 644 | 1858 qi->qf_lists[i - 1] = qi->qf_lists[i]; |
| 1859 qi->qf_curlist = LISTCOUNT - 1; | |
| 7 | 1860 } |
| 1861 else | |
| 644 | 1862 qi->qf_curlist = qi->qf_listcount++; |
| 3259 | 1863 vim_memset(&qi->qf_lists[qi->qf_curlist], 0, (size_t)(sizeof(qf_list_T))); |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
1864 qf_store_title(&qi->qf_lists[qi->qf_curlist], qf_title); |
|
12287
20641a7e1fc9
patch 8.0.1023: it is not easy to identify a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
12252
diff
changeset
|
1865 qi->qf_lists[qi->qf_curlist].qf_id = ++last_qf_id; |
| 7 | 1866 } |
| 1867 | |
| 644 | 1868 /* |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
1869 * Free a location list stack |
| 644 | 1870 */ |
| 1871 static void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1872 ll_free_all(qf_info_T **pqi) |
| 359 | 1873 { |
| 1874 int i; | |
| 644 | 1875 qf_info_T *qi; |
| 1876 | |
| 1877 qi = *pqi; | |
| 1878 if (qi == NULL) | |
| 1879 return; | |
| 1880 *pqi = NULL; /* Remove reference to this list */ | |
| 1881 | |
| 1882 qi->qf_refcount--; | |
| 1883 if (qi->qf_refcount < 1) | |
| 1884 { | |
| 1885 /* No references to this location list */ | |
| 1886 for (i = 0; i < qi->qf_listcount; ++i) | |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
1887 qf_free(&qi->qf_lists[i]); |
| 644 | 1888 vim_free(qi); |
| 1889 } | |
| 359 | 1890 } |
| 644 | 1891 |
|
13868
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1892 /* |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1893 * Free all the quickfix/location lists in the stack. |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
1894 */ |
| 644 | 1895 void |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1896 qf_free_all(win_T *wp) |
| 644 | 1897 { |
| 1898 int i; | |
| 1899 qf_info_T *qi = &ql_info; | |
| 1900 | |
| 1901 if (wp != NULL) | |
| 1902 { | |
| 1903 /* location list */ | |
| 1904 ll_free_all(&wp->w_llist); | |
| 1905 ll_free_all(&wp->w_llist_ref); | |
| 1906 } | |
| 1907 else | |
| 1908 /* quickfix list */ | |
| 1909 for (i = 0; i < qi->qf_listcount; ++i) | |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
1910 qf_free(&qi->qf_lists[i]); |
| 644 | 1911 } |
| 359 | 1912 |
| 7 | 1913 /* |
| 1914 * Add an entry to the end of the list of errors. | |
| 1915 * Returns OK or FAIL. | |
| 1916 */ | |
| 1917 static int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1918 qf_add_entry( |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1919 qf_info_T *qi, /* quickfix list */ |
|
11449
d2f00eb352b9
patch 8.0.0608: cannot manipulate other than the current quickfix list
Christian Brabandt <cb@256bit.org>
parents:
11447
diff
changeset
|
1920 int qf_idx, /* list index */ |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1921 char_u *dir, /* optional directory name */ |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1922 char_u *fname, /* file name or NULL */ |
|
13821
98274127d675
patch 8.0.1782: no simple way to label quickfix entries
Christian Brabandt <cb@256bit.org>
parents:
13819
diff
changeset
|
1923 char_u *module, /* module name or NULL */ |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1924 int bufnum, /* buffer number or zero */ |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1925 char_u *mesg, /* message */ |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1926 long lnum, /* line number */ |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1927 int col, /* column */ |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1928 int vis_col, /* using visual column */ |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1929 char_u *pattern, /* search pattern */ |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1930 int nr, /* error number */ |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1931 int type, /* type character */ |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1932 int valid) /* valid entry */ |
| 7 | 1933 { |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
1934 qf_list_T *qfl = &qi->qf_lists[qf_idx]; |
| 230 | 1935 qfline_T *qfp; |
|
9195
543f068f3706
commit https://github.com/vim/vim/commit/83e6d7ac6a1c2a0cb5ee6c8420a5dc792f1d5ffa
Christian Brabandt <cb@256bit.org>
parents:
9175
diff
changeset
|
1936 qfline_T **lastp; /* pointer to qf_last or NULL */ |
| 7 | 1937 |
| 230 | 1938 if ((qfp = (qfline_T *)alloc((unsigned)sizeof(qfline_T))) == NULL) |
| 7 | 1939 return FAIL; |
| 1065 | 1940 if (bufnum != 0) |
|
9201
692e156c7023
commit https://github.com/vim/vim/commit/2f095a4bc4d786e0ac834f48dd18a94fe2d140e3
Christian Brabandt <cb@256bit.org>
parents:
9197
diff
changeset
|
1941 { |
|
692e156c7023
commit https://github.com/vim/vim/commit/2f095a4bc4d786e0ac834f48dd18a94fe2d140e3
Christian Brabandt <cb@256bit.org>
parents:
9197
diff
changeset
|
1942 buf_T *buf = buflist_findnr(bufnum); |
|
692e156c7023
commit https://github.com/vim/vim/commit/2f095a4bc4d786e0ac834f48dd18a94fe2d140e3
Christian Brabandt <cb@256bit.org>
parents:
9197
diff
changeset
|
1943 |
| 1065 | 1944 qfp->qf_fnum = bufnum; |
|
9201
692e156c7023
commit https://github.com/vim/vim/commit/2f095a4bc4d786e0ac834f48dd18a94fe2d140e3
Christian Brabandt <cb@256bit.org>
parents:
9197
diff
changeset
|
1945 if (buf != NULL) |
|
9608
fa64afb99dda
commit https://github.com/vim/vim/commit/c1542744e788d96fed24dd421f43009288092504
Christian Brabandt <cb@256bit.org>
parents:
9579
diff
changeset
|
1946 buf->b_has_qf_entry |= |
|
14560
8413e66d00a1
patch 8.1.0293: checks for type of stack is cryptic
Christian Brabandt <cb@256bit.org>
parents:
14552
diff
changeset
|
1947 IS_QF_STACK(qi) ? BUF_HAS_QF_ENTRY : BUF_HAS_LL_ENTRY; |
|
9201
692e156c7023
commit https://github.com/vim/vim/commit/2f095a4bc4d786e0ac834f48dd18a94fe2d140e3
Christian Brabandt <cb@256bit.org>
parents:
9197
diff
changeset
|
1948 } |
| 1065 | 1949 else |
|
11700
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
1950 qfp->qf_fnum = qf_get_fnum(qi, qf_idx, dir, fname); |
| 7 | 1951 if ((qfp->qf_text = vim_strsave(mesg)) == NULL) |
| 1952 { | |
| 1953 vim_free(qfp); | |
| 1954 return FAIL; | |
| 1955 } | |
| 1956 qfp->qf_lnum = lnum; | |
| 1957 qfp->qf_col = col; | |
| 170 | 1958 qfp->qf_viscol = vis_col; |
| 230 | 1959 if (pattern == NULL || *pattern == NUL) |
| 1960 qfp->qf_pattern = NULL; | |
| 1961 else if ((qfp->qf_pattern = vim_strsave(pattern)) == NULL) | |
| 1962 { | |
| 1963 vim_free(qfp->qf_text); | |
| 1964 vim_free(qfp); | |
| 1965 return FAIL; | |
| 1966 } | |
|
13821
98274127d675
patch 8.0.1782: no simple way to label quickfix entries
Christian Brabandt <cb@256bit.org>
parents:
13819
diff
changeset
|
1967 if (module == NULL || *module == NUL) |
|
98274127d675
patch 8.0.1782: no simple way to label quickfix entries
Christian Brabandt <cb@256bit.org>
parents:
13819
diff
changeset
|
1968 qfp->qf_module = NULL; |
|
98274127d675
patch 8.0.1782: no simple way to label quickfix entries
Christian Brabandt <cb@256bit.org>
parents:
13819
diff
changeset
|
1969 else if ((qfp->qf_module = vim_strsave(module)) == NULL) |
|
98274127d675
patch 8.0.1782: no simple way to label quickfix entries
Christian Brabandt <cb@256bit.org>
parents:
13819
diff
changeset
|
1970 { |
|
98274127d675
patch 8.0.1782: no simple way to label quickfix entries
Christian Brabandt <cb@256bit.org>
parents:
13819
diff
changeset
|
1971 vim_free(qfp->qf_text); |
|
98274127d675
patch 8.0.1782: no simple way to label quickfix entries
Christian Brabandt <cb@256bit.org>
parents:
13819
diff
changeset
|
1972 vim_free(qfp->qf_pattern); |
|
98274127d675
patch 8.0.1782: no simple way to label quickfix entries
Christian Brabandt <cb@256bit.org>
parents:
13819
diff
changeset
|
1973 vim_free(qfp); |
|
98274127d675
patch 8.0.1782: no simple way to label quickfix entries
Christian Brabandt <cb@256bit.org>
parents:
13819
diff
changeset
|
1974 return FAIL; |
|
98274127d675
patch 8.0.1782: no simple way to label quickfix entries
Christian Brabandt <cb@256bit.org>
parents:
13819
diff
changeset
|
1975 } |
| 7 | 1976 qfp->qf_nr = nr; |
| 1977 if (type != 1 && !vim_isprintc(type)) /* only printable chars allowed */ | |
| 1978 type = 0; | |
| 1979 qfp->qf_type = type; | |
| 1980 qfp->qf_valid = valid; | |
| 1981 | |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
1982 lastp = &qfl->qf_last; |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
1983 if (qf_list_empty(qi, qf_idx)) /* first element in the list */ |
| 7 | 1984 { |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
1985 qfl->qf_start = qfp; |
|
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
1986 qfl->qf_ptr = qfp; |
|
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
1987 qfl->qf_index = 0; |
|
9195
543f068f3706
commit https://github.com/vim/vim/commit/83e6d7ac6a1c2a0cb5ee6c8420a5dc792f1d5ffa
Christian Brabandt <cb@256bit.org>
parents:
9175
diff
changeset
|
1988 qfp->qf_prev = NULL; |
| 7 | 1989 } |
| 1990 else | |
| 1991 { | |
|
9195
543f068f3706
commit https://github.com/vim/vim/commit/83e6d7ac6a1c2a0cb5ee6c8420a5dc792f1d5ffa
Christian Brabandt <cb@256bit.org>
parents:
9175
diff
changeset
|
1992 qfp->qf_prev = *lastp; |
|
543f068f3706
commit https://github.com/vim/vim/commit/83e6d7ac6a1c2a0cb5ee6c8420a5dc792f1d5ffa
Christian Brabandt <cb@256bit.org>
parents:
9175
diff
changeset
|
1993 (*lastp)->qf_next = qfp; |
| 7 | 1994 } |
|
9195
543f068f3706
commit https://github.com/vim/vim/commit/83e6d7ac6a1c2a0cb5ee6c8420a5dc792f1d5ffa
Christian Brabandt <cb@256bit.org>
parents:
9175
diff
changeset
|
1995 qfp->qf_next = NULL; |
| 7 | 1996 qfp->qf_cleared = FALSE; |
|
9195
543f068f3706
commit https://github.com/vim/vim/commit/83e6d7ac6a1c2a0cb5ee6c8420a5dc792f1d5ffa
Christian Brabandt <cb@256bit.org>
parents:
9175
diff
changeset
|
1997 *lastp = qfp; |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
1998 ++qfl->qf_count; |
|
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
1999 if (qfl->qf_index == 0 && qfp->qf_valid) |
| 644 | 2000 /* first valid entry */ |
| 7 | 2001 { |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
2002 qfl->qf_index = qfl->qf_count; |
|
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
2003 qfl->qf_ptr = qfp; |
| 7 | 2004 } |
| 2005 | |
| 2006 return OK; | |
| 2007 } | |
| 2008 | |
| 2009 /* | |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
2010 * Allocate a new location list stack |
| 644 | 2011 */ |
| 659 | 2012 static qf_info_T * |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
2013 ll_new_list(void) |
| 644 | 2014 { |
| 659 | 2015 qf_info_T *qi; |
| 2016 | |
|
14495
178162aeebeb
patch 8.1.0261: Coverity complains about a negative array index
Christian Brabandt <cb@256bit.org>
parents:
14491
diff
changeset
|
2017 qi = (qf_info_T *)alloc_clear((unsigned)sizeof(qf_info_T)); |
| 659 | 2018 if (qi != NULL) |
| 2019 qi->qf_refcount++; | |
| 2020 return qi; | |
| 644 | 2021 } |
| 2022 | |
| 2023 /* | |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
2024 * Return the location list stack for window 'wp'. |
|
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
2025 * If not present, allocate a location list stack |
| 644 | 2026 */ |
| 2027 static qf_info_T * | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
2028 ll_get_or_alloc_list(win_T *wp) |
| 644 | 2029 { |
| 2030 if (IS_LL_WINDOW(wp)) | |
| 2031 /* For a location list window, use the referenced location list */ | |
| 2032 return wp->w_llist_ref; | |
| 2033 | |
| 2034 /* | |
| 2035 * For a non-location list window, w_llist_ref should not point to a | |
| 2036 * location list. | |
| 2037 */ | |
| 2038 ll_free_all(&wp->w_llist_ref); | |
| 2039 | |
| 2040 if (wp->w_llist == NULL) | |
| 659 | 2041 wp->w_llist = ll_new_list(); /* new location list */ |
| 644 | 2042 return wp->w_llist; |
| 2043 } | |
| 2044 | |
| 2045 /* | |
|
14844
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2046 * Copy location list entries from 'from_qfl' to 'to_qfl'. |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2047 */ |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2048 static int |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2049 copy_loclist_entries(qf_list_T *from_qfl, qf_list_T *to_qfl, qf_info_T *to_qi) |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2050 { |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2051 int i; |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2052 qfline_T *from_qfp; |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2053 qfline_T *prevp; |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2054 |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2055 // copy all the location entries in this list |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2056 for (i = 0, from_qfp = from_qfl->qf_start; |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2057 i < from_qfl->qf_count && from_qfp != NULL; |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2058 ++i, from_qfp = from_qfp->qf_next) |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2059 { |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2060 if (qf_add_entry(to_qi, |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2061 to_qi->qf_curlist, |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2062 NULL, |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2063 NULL, |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2064 from_qfp->qf_module, |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2065 0, |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2066 from_qfp->qf_text, |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2067 from_qfp->qf_lnum, |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2068 from_qfp->qf_col, |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2069 from_qfp->qf_viscol, |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2070 from_qfp->qf_pattern, |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2071 from_qfp->qf_nr, |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2072 0, |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2073 from_qfp->qf_valid) == FAIL) |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2074 return FAIL; |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2075 |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2076 // qf_add_entry() will not set the qf_num field, as the |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2077 // directory and file names are not supplied. So the qf_fnum |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2078 // field is copied here. |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2079 prevp = to_qfl->qf_last; |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2080 prevp->qf_fnum = from_qfp->qf_fnum; // file number |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2081 prevp->qf_type = from_qfp->qf_type; // error type |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2082 if (from_qfl->qf_ptr == from_qfp) |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2083 to_qfl->qf_ptr = prevp; // current location |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2084 } |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2085 |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2086 return OK; |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2087 } |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2088 |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2089 /* |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2090 * Copy the specified location list 'from_qfl' to 'to_qfl'. |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2091 */ |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2092 static int |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2093 copy_loclist(qf_list_T *from_qfl, qf_list_T *to_qfl, qf_info_T *to_qi) |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2094 { |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2095 // Some of the fields are populated by qf_add_entry() |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2096 to_qfl->qf_nonevalid = from_qfl->qf_nonevalid; |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2097 to_qfl->qf_count = 0; |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2098 to_qfl->qf_index = 0; |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2099 to_qfl->qf_start = NULL; |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2100 to_qfl->qf_last = NULL; |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2101 to_qfl->qf_ptr = NULL; |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2102 if (from_qfl->qf_title != NULL) |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2103 to_qfl->qf_title = vim_strsave(from_qfl->qf_title); |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2104 else |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2105 to_qfl->qf_title = NULL; |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2106 if (from_qfl->qf_ctx != NULL) |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2107 { |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2108 to_qfl->qf_ctx = alloc_tv(); |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2109 if (to_qfl->qf_ctx != NULL) |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2110 copy_tv(from_qfl->qf_ctx, to_qfl->qf_ctx); |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2111 } |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2112 else |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2113 to_qfl->qf_ctx = NULL; |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2114 |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2115 if (from_qfl->qf_count) |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2116 if (copy_loclist_entries(from_qfl, to_qfl, to_qi) == FAIL) |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2117 return FAIL; |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2118 |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2119 to_qfl->qf_index = from_qfl->qf_index; // current index in the list |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2120 |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2121 // Assign a new ID for the location list |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2122 to_qfl->qf_id = ++last_qf_id; |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2123 to_qfl->qf_changedtick = 0L; |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2124 |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2125 // When no valid entries are present in the list, qf_ptr points to |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2126 // the first item in the list |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2127 if (to_qfl->qf_nonevalid) |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2128 { |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2129 to_qfl->qf_ptr = to_qfl->qf_start; |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2130 to_qfl->qf_index = 1; |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2131 } |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2132 |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2133 return OK; |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2134 } |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2135 |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2136 /* |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2137 * Copy the location list stack 'from' window to 'to' window. |
| 644 | 2138 */ |
| 2139 void | |
|
14844
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2140 copy_loclist_stack(win_T *from, win_T *to) |
| 644 | 2141 { |
| 2142 qf_info_T *qi; | |
| 2143 int idx; | |
|
14844
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2144 |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2145 // When copying from a location list window, copy the referenced |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2146 // location list. For other windows, copy the location list for |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2147 // that window. |
| 644 | 2148 if (IS_LL_WINDOW(from)) |
| 2149 qi = from->w_llist_ref; | |
| 2150 else | |
| 2151 qi = from->w_llist; | |
| 2152 | |
|
14844
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2153 if (qi == NULL) // no location list to copy |
| 644 | 2154 return; |
| 2155 | |
|
14844
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2156 // allocate a new location list |
| 659 | 2157 if ((to->w_llist = ll_new_list()) == NULL) |
| 644 | 2158 return; |
| 2159 | |
| 2160 to->w_llist->qf_listcount = qi->qf_listcount; | |
| 2161 | |
|
14844
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2162 // Copy the location lists one at a time |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
2163 for (idx = 0; idx < qi->qf_listcount; ++idx) |
| 644 | 2164 { |
| 2165 to->w_llist->qf_curlist = idx; | |
| 2166 | |
|
14844
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2167 if (copy_loclist(&qi->qf_lists[idx], |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2168 &to->w_llist->qf_lists[idx], to->w_llist) == FAIL) |
| 644 | 2169 { |
|
14844
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2170 qf_free_all(to); |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2171 return; |
| 644 | 2172 } |
|
14844
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2173 } |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2174 |
|
a74786d0370c
patch 8.1.0434: copy_loclist() is too long
Christian Brabandt <cb@256bit.org>
parents:
14838
diff
changeset
|
2175 to->w_llist->qf_curlist = qi->qf_curlist; // current list |
| 644 | 2176 } |
| 2177 | |
| 2178 /* | |
|
10379
73e2a7abe2a3
commit https://github.com/vim/vim/commit/7618e00d3b8bfe064cfc524640d754607361f9df
Christian Brabandt <cb@256bit.org>
parents:
10369
diff
changeset
|
2179 * Get buffer number for file "directory/fname". |
|
9201
692e156c7023
commit https://github.com/vim/vim/commit/2f095a4bc4d786e0ac834f48dd18a94fe2d140e3
Christian Brabandt <cb@256bit.org>
parents:
9197
diff
changeset
|
2180 * Also sets the b_has_qf_entry flag. |
| 7 | 2181 */ |
| 2182 static int | |
|
11700
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
2183 qf_get_fnum(qf_info_T *qi, int qf_idx, char_u *directory, char_u *fname) |
| 7 | 2184 { |
|
9473
bdac1019552f
commit https://github.com/vim/vim/commit/8240433f48f7383c281ba2453cc55f10b8ec47d9
Christian Brabandt <cb@256bit.org>
parents:
9458
diff
changeset
|
2185 char_u *ptr = NULL; |
|
9201
692e156c7023
commit https://github.com/vim/vim/commit/2f095a4bc4d786e0ac834f48dd18a94fe2d140e3
Christian Brabandt <cb@256bit.org>
parents:
9197
diff
changeset
|
2186 buf_T *buf; |
|
9473
bdac1019552f
commit https://github.com/vim/vim/commit/8240433f48f7383c281ba2453cc55f10b8ec47d9
Christian Brabandt <cb@256bit.org>
parents:
9458
diff
changeset
|
2187 char_u *bufname; |
|
9201
692e156c7023
commit https://github.com/vim/vim/commit/2f095a4bc4d786e0ac834f48dd18a94fe2d140e3
Christian Brabandt <cb@256bit.org>
parents:
9197
diff
changeset
|
2188 |
| 7 | 2189 if (fname == NULL || *fname == NUL) /* no file name */ |
| 2190 return 0; | |
| 2191 | |
| 2823 | 2192 #ifdef VMS |
|
9201
692e156c7023
commit https://github.com/vim/vim/commit/2f095a4bc4d786e0ac834f48dd18a94fe2d140e3
Christian Brabandt <cb@256bit.org>
parents:
9197
diff
changeset
|
2193 vms_remove_version(fname); |
| 2823 | 2194 #endif |
| 2195 #ifdef BACKSLASH_IN_FILENAME | |
|
9201
692e156c7023
commit https://github.com/vim/vim/commit/2f095a4bc4d786e0ac834f48dd18a94fe2d140e3
Christian Brabandt <cb@256bit.org>
parents:
9197
diff
changeset
|
2196 if (directory != NULL) |
|
692e156c7023
commit https://github.com/vim/vim/commit/2f095a4bc4d786e0ac834f48dd18a94fe2d140e3
Christian Brabandt <cb@256bit.org>
parents:
9197
diff
changeset
|
2197 slash_adjust(directory); |
|
692e156c7023
commit https://github.com/vim/vim/commit/2f095a4bc4d786e0ac834f48dd18a94fe2d140e3
Christian Brabandt <cb@256bit.org>
parents:
9197
diff
changeset
|
2198 slash_adjust(fname); |
| 2823 | 2199 #endif |
|
9201
692e156c7023
commit https://github.com/vim/vim/commit/2f095a4bc4d786e0ac834f48dd18a94fe2d140e3
Christian Brabandt <cb@256bit.org>
parents:
9197
diff
changeset
|
2200 if (directory != NULL && !vim_isAbsName(fname) |
|
692e156c7023
commit https://github.com/vim/vim/commit/2f095a4bc4d786e0ac834f48dd18a94fe2d140e3
Christian Brabandt <cb@256bit.org>
parents:
9197
diff
changeset
|
2201 && (ptr = concat_fnames(directory, fname, TRUE)) != NULL) |
|
692e156c7023
commit https://github.com/vim/vim/commit/2f095a4bc4d786e0ac834f48dd18a94fe2d140e3
Christian Brabandt <cb@256bit.org>
parents:
9197
diff
changeset
|
2202 { |
|
692e156c7023
commit https://github.com/vim/vim/commit/2f095a4bc4d786e0ac834f48dd18a94fe2d140e3
Christian Brabandt <cb@256bit.org>
parents:
9197
diff
changeset
|
2203 /* |
|
692e156c7023
commit https://github.com/vim/vim/commit/2f095a4bc4d786e0ac834f48dd18a94fe2d140e3
Christian Brabandt <cb@256bit.org>
parents:
9197
diff
changeset
|
2204 * Here we check if the file really exists. |
|
692e156c7023
commit https://github.com/vim/vim/commit/2f095a4bc4d786e0ac834f48dd18a94fe2d140e3
Christian Brabandt <cb@256bit.org>
parents:
9197
diff
changeset
|
2205 * This should normally be true, but if make works without |
|
692e156c7023
commit https://github.com/vim/vim/commit/2f095a4bc4d786e0ac834f48dd18a94fe2d140e3
Christian Brabandt <cb@256bit.org>
parents:
9197
diff
changeset
|
2206 * "leaving directory"-messages we might have missed a |
|
692e156c7023
commit https://github.com/vim/vim/commit/2f095a4bc4d786e0ac834f48dd18a94fe2d140e3
Christian Brabandt <cb@256bit.org>
parents:
9197
diff
changeset
|
2207 * directory change. |
|
692e156c7023
commit https://github.com/vim/vim/commit/2f095a4bc4d786e0ac834f48dd18a94fe2d140e3
Christian Brabandt <cb@256bit.org>
parents:
9197
diff
changeset
|
2208 */ |
|
692e156c7023
commit https://github.com/vim/vim/commit/2f095a4bc4d786e0ac834f48dd18a94fe2d140e3
Christian Brabandt <cb@256bit.org>
parents:
9197
diff
changeset
|
2209 if (mch_getperm(ptr) < 0) |
| 7 | 2210 { |
| 2211 vim_free(ptr); | |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
2212 directory = qf_guess_filepath(&qi->qf_lists[qf_idx], fname); |
|
9201
692e156c7023
commit https://github.com/vim/vim/commit/2f095a4bc4d786e0ac834f48dd18a94fe2d140e3
Christian Brabandt <cb@256bit.org>
parents:
9197
diff
changeset
|
2213 if (directory) |
|
692e156c7023
commit https://github.com/vim/vim/commit/2f095a4bc4d786e0ac834f48dd18a94fe2d140e3
Christian Brabandt <cb@256bit.org>
parents:
9197
diff
changeset
|
2214 ptr = concat_fnames(directory, fname, TRUE); |
|
692e156c7023
commit https://github.com/vim/vim/commit/2f095a4bc4d786e0ac834f48dd18a94fe2d140e3
Christian Brabandt <cb@256bit.org>
parents:
9197
diff
changeset
|
2215 else |
|
692e156c7023
commit https://github.com/vim/vim/commit/2f095a4bc4d786e0ac834f48dd18a94fe2d140e3
Christian Brabandt <cb@256bit.org>
parents:
9197
diff
changeset
|
2216 ptr = vim_strsave(fname); |
| 7 | 2217 } |
|
9201
692e156c7023
commit https://github.com/vim/vim/commit/2f095a4bc4d786e0ac834f48dd18a94fe2d140e3
Christian Brabandt <cb@256bit.org>
parents:
9197
diff
changeset
|
2218 /* Use concatenated directory name and file name */ |
|
9473
bdac1019552f
commit https://github.com/vim/vim/commit/8240433f48f7383c281ba2453cc55f10b8ec47d9
Christian Brabandt <cb@256bit.org>
parents:
9458
diff
changeset
|
2219 bufname = ptr; |
|
bdac1019552f
commit https://github.com/vim/vim/commit/8240433f48f7383c281ba2453cc55f10b8ec47d9
Christian Brabandt <cb@256bit.org>
parents:
9458
diff
changeset
|
2220 } |
|
bdac1019552f
commit https://github.com/vim/vim/commit/8240433f48f7383c281ba2453cc55f10b8ec47d9
Christian Brabandt <cb@256bit.org>
parents:
9458
diff
changeset
|
2221 else |
|
bdac1019552f
commit https://github.com/vim/vim/commit/8240433f48f7383c281ba2453cc55f10b8ec47d9
Christian Brabandt <cb@256bit.org>
parents:
9458
diff
changeset
|
2222 bufname = fname; |
|
bdac1019552f
commit https://github.com/vim/vim/commit/8240433f48f7383c281ba2453cc55f10b8ec47d9
Christian Brabandt <cb@256bit.org>
parents:
9458
diff
changeset
|
2223 |
|
bdac1019552f
commit https://github.com/vim/vim/commit/8240433f48f7383c281ba2453cc55f10b8ec47d9
Christian Brabandt <cb@256bit.org>
parents:
9458
diff
changeset
|
2224 if (qf_last_bufname != NULL && STRCMP(bufname, qf_last_bufname) == 0 |
|
9475
4d8f7f8da90c
commit https://github.com/vim/vim/commit/b25f9a97e9aad3cbb4bc3fe87cdbd5700f8aa0c6
Christian Brabandt <cb@256bit.org>
parents:
9473
diff
changeset
|
2225 && bufref_valid(&qf_last_bufref)) |
|
9473
bdac1019552f
commit https://github.com/vim/vim/commit/8240433f48f7383c281ba2453cc55f10b8ec47d9
Christian Brabandt <cb@256bit.org>
parents:
9458
diff
changeset
|
2226 { |
|
9475
4d8f7f8da90c
commit https://github.com/vim/vim/commit/b25f9a97e9aad3cbb4bc3fe87cdbd5700f8aa0c6
Christian Brabandt <cb@256bit.org>
parents:
9473
diff
changeset
|
2227 buf = qf_last_bufref.br_buf; |
|
9201
692e156c7023
commit https://github.com/vim/vim/commit/2f095a4bc4d786e0ac834f48dd18a94fe2d140e3
Christian Brabandt <cb@256bit.org>
parents:
9197
diff
changeset
|
2228 vim_free(ptr); |
| 7 | 2229 } |
|
9201
692e156c7023
commit https://github.com/vim/vim/commit/2f095a4bc4d786e0ac834f48dd18a94fe2d140e3
Christian Brabandt <cb@256bit.org>
parents:
9197
diff
changeset
|
2230 else |
|
9473
bdac1019552f
commit https://github.com/vim/vim/commit/8240433f48f7383c281ba2453cc55f10b8ec47d9
Christian Brabandt <cb@256bit.org>
parents:
9458
diff
changeset
|
2231 { |
|
bdac1019552f
commit https://github.com/vim/vim/commit/8240433f48f7383c281ba2453cc55f10b8ec47d9
Christian Brabandt <cb@256bit.org>
parents:
9458
diff
changeset
|
2232 vim_free(qf_last_bufname); |
|
bdac1019552f
commit https://github.com/vim/vim/commit/8240433f48f7383c281ba2453cc55f10b8ec47d9
Christian Brabandt <cb@256bit.org>
parents:
9458
diff
changeset
|
2233 buf = buflist_new(bufname, NULL, (linenr_T)0, BLN_NOOPT); |
|
bdac1019552f
commit https://github.com/vim/vim/commit/8240433f48f7383c281ba2453cc55f10b8ec47d9
Christian Brabandt <cb@256bit.org>
parents:
9458
diff
changeset
|
2234 if (bufname == ptr) |
|
bdac1019552f
commit https://github.com/vim/vim/commit/8240433f48f7383c281ba2453cc55f10b8ec47d9
Christian Brabandt <cb@256bit.org>
parents:
9458
diff
changeset
|
2235 qf_last_bufname = bufname; |
|
bdac1019552f
commit https://github.com/vim/vim/commit/8240433f48f7383c281ba2453cc55f10b8ec47d9
Christian Brabandt <cb@256bit.org>
parents:
9458
diff
changeset
|
2236 else |
|
bdac1019552f
commit https://github.com/vim/vim/commit/8240433f48f7383c281ba2453cc55f10b8ec47d9
Christian Brabandt <cb@256bit.org>
parents:
9458
diff
changeset
|
2237 qf_last_bufname = vim_strsave(bufname); |
|
9475
4d8f7f8da90c
commit https://github.com/vim/vim/commit/b25f9a97e9aad3cbb4bc3fe87cdbd5700f8aa0c6
Christian Brabandt <cb@256bit.org>
parents:
9473
diff
changeset
|
2238 set_bufref(&qf_last_bufref, buf); |
|
9473
bdac1019552f
commit https://github.com/vim/vim/commit/8240433f48f7383c281ba2453cc55f10b8ec47d9
Christian Brabandt <cb@256bit.org>
parents:
9458
diff
changeset
|
2239 } |
|
9201
692e156c7023
commit https://github.com/vim/vim/commit/2f095a4bc4d786e0ac834f48dd18a94fe2d140e3
Christian Brabandt <cb@256bit.org>
parents:
9197
diff
changeset
|
2240 if (buf == NULL) |
|
692e156c7023
commit https://github.com/vim/vim/commit/2f095a4bc4d786e0ac834f48dd18a94fe2d140e3
Christian Brabandt <cb@256bit.org>
parents:
9197
diff
changeset
|
2241 return 0; |
|
9473
bdac1019552f
commit https://github.com/vim/vim/commit/8240433f48f7383c281ba2453cc55f10b8ec47d9
Christian Brabandt <cb@256bit.org>
parents:
9458
diff
changeset
|
2242 |
|
9608
fa64afb99dda
commit https://github.com/vim/vim/commit/c1542744e788d96fed24dd421f43009288092504
Christian Brabandt <cb@256bit.org>
parents:
9579
diff
changeset
|
2243 buf->b_has_qf_entry = |
|
14560
8413e66d00a1
patch 8.1.0293: checks for type of stack is cryptic
Christian Brabandt <cb@256bit.org>
parents:
14552
diff
changeset
|
2244 IS_QF_STACK(qi) ? BUF_HAS_QF_ENTRY : BUF_HAS_LL_ENTRY; |
|
9201
692e156c7023
commit https://github.com/vim/vim/commit/2f095a4bc4d786e0ac834f48dd18a94fe2d140e3
Christian Brabandt <cb@256bit.org>
parents:
9197
diff
changeset
|
2245 return buf->b_fnum; |
| 7 | 2246 } |
| 2247 | |
| 2248 /* | |
|
9334
674f9e3ccd1a
commit https://github.com/vim/vim/commit/38df43bd13a2498cc96b3ddd9a20dd75126bd171
Christian Brabandt <cb@256bit.org>
parents:
9201
diff
changeset
|
2249 * Push dirbuf onto the directory stack and return pointer to actual dir or |
|
674f9e3ccd1a
commit https://github.com/vim/vim/commit/38df43bd13a2498cc96b3ddd9a20dd75126bd171
Christian Brabandt <cb@256bit.org>
parents:
9201
diff
changeset
|
2250 * NULL on error. |
| 7 | 2251 */ |
| 2252 static char_u * | |
|
9397
e08e8b00fe48
commit https://github.com/vim/vim/commit/361c8f0e517e41f1f1d34dae328044406fde80ac
Christian Brabandt <cb@256bit.org>
parents:
9389
diff
changeset
|
2253 qf_push_dir(char_u *dirbuf, struct dir_stack_T **stackptr, int is_file_stack) |
| 7 | 2254 { |
| 2255 struct dir_stack_T *ds_new; | |
| 2256 struct dir_stack_T *ds_ptr; | |
| 2257 | |
| 2258 /* allocate new stack element and hook it in */ | |
| 2259 ds_new = (struct dir_stack_T *)alloc((unsigned)sizeof(struct dir_stack_T)); | |
| 2260 if (ds_new == NULL) | |
| 2261 return NULL; | |
| 2262 | |
| 2263 ds_new->next = *stackptr; | |
| 2264 *stackptr = ds_new; | |
| 2265 | |
| 2266 /* store directory on the stack */ | |
| 2267 if (vim_isAbsName(dirbuf) | |
| 2268 || (*stackptr)->next == NULL | |
|
9397
e08e8b00fe48
commit https://github.com/vim/vim/commit/361c8f0e517e41f1f1d34dae328044406fde80ac
Christian Brabandt <cb@256bit.org>
parents:
9389
diff
changeset
|
2269 || (*stackptr && is_file_stack)) |
| 7 | 2270 (*stackptr)->dirname = vim_strsave(dirbuf); |
| 2271 else | |
| 2272 { | |
| 2273 /* Okay we don't have an absolute path. | |
| 2274 * dirbuf must be a subdir of one of the directories on the stack. | |
| 2275 * Let's search... | |
| 2276 */ | |
| 2277 ds_new = (*stackptr)->next; | |
| 2278 (*stackptr)->dirname = NULL; | |
| 2279 while (ds_new) | |
| 2280 { | |
| 2281 vim_free((*stackptr)->dirname); | |
| 2282 (*stackptr)->dirname = concat_fnames(ds_new->dirname, dirbuf, | |
| 2283 TRUE); | |
| 2284 if (mch_isdir((*stackptr)->dirname) == TRUE) | |
| 2285 break; | |
| 2286 | |
| 2287 ds_new = ds_new->next; | |
| 2288 } | |
| 2289 | |
| 2290 /* clean up all dirs we already left */ | |
| 2291 while ((*stackptr)->next != ds_new) | |
| 2292 { | |
| 2293 ds_ptr = (*stackptr)->next; | |
| 2294 (*stackptr)->next = (*stackptr)->next->next; | |
| 2295 vim_free(ds_ptr->dirname); | |
| 2296 vim_free(ds_ptr); | |
| 2297 } | |
| 2298 | |
| 2299 /* Nothing found -> it must be on top level */ | |
| 2300 if (ds_new == NULL) | |
| 2301 { | |
| 2302 vim_free((*stackptr)->dirname); | |
| 2303 (*stackptr)->dirname = vim_strsave(dirbuf); | |
| 2304 } | |
| 2305 } | |
| 2306 | |
| 2307 if ((*stackptr)->dirname != NULL) | |
| 2308 return (*stackptr)->dirname; | |
| 2309 else | |
| 2310 { | |
| 2311 ds_ptr = *stackptr; | |
| 2312 *stackptr = (*stackptr)->next; | |
| 2313 vim_free(ds_ptr); | |
| 2314 return NULL; | |
| 2315 } | |
| 2316 } | |
| 2317 | |
| 2318 /* | |
| 2319 * pop dirbuf from the directory stack and return previous directory or NULL if | |
| 2320 * stack is empty | |
| 2321 */ | |
| 2322 static char_u * | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
2323 qf_pop_dir(struct dir_stack_T **stackptr) |
| 7 | 2324 { |
| 2325 struct dir_stack_T *ds_ptr; | |
| 2326 | |
| 2327 /* TODO: Should we check if dirbuf is the directory on top of the stack? | |
| 2328 * What to do if it isn't? */ | |
| 2329 | |
| 2330 /* pop top element and free it */ | |
| 2331 if (*stackptr != NULL) | |
| 2332 { | |
| 2333 ds_ptr = *stackptr; | |
| 2334 *stackptr = (*stackptr)->next; | |
| 2335 vim_free(ds_ptr->dirname); | |
| 2336 vim_free(ds_ptr); | |
| 2337 } | |
| 2338 | |
| 2339 /* return NEW top element as current dir or NULL if stack is empty*/ | |
| 2340 return *stackptr ? (*stackptr)->dirname : NULL; | |
| 2341 } | |
| 2342 | |
| 2343 /* | |
| 2344 * clean up directory stack | |
| 2345 */ | |
| 2346 static void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
2347 qf_clean_dir_stack(struct dir_stack_T **stackptr) |
| 7 | 2348 { |
| 2349 struct dir_stack_T *ds_ptr; | |
| 2350 | |
| 2351 while ((ds_ptr = *stackptr) != NULL) | |
| 2352 { | |
| 2353 *stackptr = (*stackptr)->next; | |
| 2354 vim_free(ds_ptr->dirname); | |
| 2355 vim_free(ds_ptr); | |
| 2356 } | |
| 2357 } | |
| 2358 | |
| 2359 /* | |
| 2360 * Check in which directory of the directory stack the given file can be | |
| 2361 * found. | |
|
7092
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
2362 * Returns a pointer to the directory name or NULL if not found. |
| 7 | 2363 * Cleans up intermediate directory entries. |
| 2364 * | |
| 2365 * TODO: How to solve the following problem? | |
|
13882
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2366 * If we have this directory tree: |
| 7 | 2367 * ./ |
| 2368 * ./aa | |
| 2369 * ./aa/bb | |
| 2370 * ./bb | |
| 2371 * ./bb/x.c | |
| 2372 * and make says: | |
| 2373 * making all in aa | |
| 2374 * making all in bb | |
| 2375 * x.c:9: Error | |
| 2376 * Then qf_push_dir thinks we are in ./aa/bb, but we are in ./bb. | |
| 2377 * qf_guess_filepath will return NULL. | |
| 2378 */ | |
| 2379 static char_u * | |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
2380 qf_guess_filepath(qf_list_T *qfl, char_u *filename) |
| 7 | 2381 { |
| 2382 struct dir_stack_T *ds_ptr; | |
| 2383 struct dir_stack_T *ds_tmp; | |
| 2384 char_u *fullname; | |
| 2385 | |
| 2386 /* no dirs on the stack - there's nothing we can do */ | |
|
11700
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
2387 if (qfl->qf_dir_stack == NULL) |
| 7 | 2388 return NULL; |
| 2389 | |
|
11700
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
2390 ds_ptr = qfl->qf_dir_stack->next; |
| 7 | 2391 fullname = NULL; |
| 2392 while (ds_ptr) | |
| 2393 { | |
| 2394 vim_free(fullname); | |
| 2395 fullname = concat_fnames(ds_ptr->dirname, filename, TRUE); | |
| 2396 | |
| 2397 /* If concat_fnames failed, just go on. The worst thing that can happen | |
| 2398 * is that we delete the entire stack. | |
| 2399 */ | |
| 2400 if ((fullname != NULL) && (mch_getperm(fullname) >= 0)) | |
| 2401 break; | |
| 2402 | |
| 2403 ds_ptr = ds_ptr->next; | |
| 2404 } | |
| 2405 | |
| 2406 vim_free(fullname); | |
| 2407 | |
| 2408 /* clean up all dirs we already left */ | |
|
11700
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
2409 while (qfl->qf_dir_stack->next != ds_ptr) |
| 7 | 2410 { |
|
11700
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
2411 ds_tmp = qfl->qf_dir_stack->next; |
|
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
2412 qfl->qf_dir_stack->next = qfl->qf_dir_stack->next->next; |
| 7 | 2413 vim_free(ds_tmp->dirname); |
| 2414 vim_free(ds_tmp); | |
| 2415 } | |
| 2416 | |
|
13882
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2417 return ds_ptr == NULL ? NULL : ds_ptr->dirname; |
| 7 | 2418 } |
| 2419 | |
| 2420 /* | |
|
13090
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2421 * Returns TRUE if a quickfix/location list with the given identifier exists. |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2422 */ |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2423 static int |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2424 qflist_valid (win_T *wp, int_u qf_id) |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2425 { |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2426 qf_info_T *qi = &ql_info; |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2427 int i; |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2428 |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2429 if (wp != NULL) |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2430 { |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2431 qi = GET_LOC_LIST(wp); /* Location list */ |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2432 if (qi == NULL) |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2433 return FALSE; |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2434 } |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2435 |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2436 for (i = 0; i < qi->qf_listcount; ++i) |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2437 if (qi->qf_lists[i].qf_id == qf_id) |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2438 return TRUE; |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2439 |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2440 return FALSE; |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2441 } |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2442 |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2443 /* |
|
14250
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
2444 * When loading a file from the quickfix, the autocommands may modify it. |
|
8702
39d6e4f2f748
commit https://github.com/vim/vim/commit/ffec3c53496d49668669deabc0724ec78e2274fd
Christian Brabandt <cb@256bit.org>
parents:
8643
diff
changeset
|
2445 * This may invalidate the current quickfix entry. This function checks |
|
13882
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2446 * whether an entry is still present in the quickfix list. |
|
8702
39d6e4f2f748
commit https://github.com/vim/vim/commit/ffec3c53496d49668669deabc0724ec78e2274fd
Christian Brabandt <cb@256bit.org>
parents:
8643
diff
changeset
|
2447 * Similar to location list. |
|
39d6e4f2f748
commit https://github.com/vim/vim/commit/ffec3c53496d49668669deabc0724ec78e2274fd
Christian Brabandt <cb@256bit.org>
parents:
8643
diff
changeset
|
2448 */ |
|
39d6e4f2f748
commit https://github.com/vim/vim/commit/ffec3c53496d49668669deabc0724ec78e2274fd
Christian Brabandt <cb@256bit.org>
parents:
8643
diff
changeset
|
2449 static int |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
2450 is_qf_entry_present(qf_list_T *qfl, qfline_T *qf_ptr) |
|
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
2451 { |
|
8702
39d6e4f2f748
commit https://github.com/vim/vim/commit/ffec3c53496d49668669deabc0724ec78e2274fd
Christian Brabandt <cb@256bit.org>
parents:
8643
diff
changeset
|
2452 qfline_T *qfp; |
|
39d6e4f2f748
commit https://github.com/vim/vim/commit/ffec3c53496d49668669deabc0724ec78e2274fd
Christian Brabandt <cb@256bit.org>
parents:
8643
diff
changeset
|
2453 int i; |
|
39d6e4f2f748
commit https://github.com/vim/vim/commit/ffec3c53496d49668669deabc0724ec78e2274fd
Christian Brabandt <cb@256bit.org>
parents:
8643
diff
changeset
|
2454 |
|
39d6e4f2f748
commit https://github.com/vim/vim/commit/ffec3c53496d49668669deabc0724ec78e2274fd
Christian Brabandt <cb@256bit.org>
parents:
8643
diff
changeset
|
2455 /* Search for the entry in the current list */ |
|
39d6e4f2f748
commit https://github.com/vim/vim/commit/ffec3c53496d49668669deabc0724ec78e2274fd
Christian Brabandt <cb@256bit.org>
parents:
8643
diff
changeset
|
2456 for (i = 0, qfp = qfl->qf_start; i < qfl->qf_count; |
|
39d6e4f2f748
commit https://github.com/vim/vim/commit/ffec3c53496d49668669deabc0724ec78e2274fd
Christian Brabandt <cb@256bit.org>
parents:
8643
diff
changeset
|
2457 ++i, qfp = qfp->qf_next) |
|
9195
543f068f3706
commit https://github.com/vim/vim/commit/83e6d7ac6a1c2a0cb5ee6c8420a5dc792f1d5ffa
Christian Brabandt <cb@256bit.org>
parents:
9175
diff
changeset
|
2458 if (qfp == NULL || qfp == qf_ptr) |
|
8702
39d6e4f2f748
commit https://github.com/vim/vim/commit/ffec3c53496d49668669deabc0724ec78e2274fd
Christian Brabandt <cb@256bit.org>
parents:
8643
diff
changeset
|
2459 break; |
|
39d6e4f2f748
commit https://github.com/vim/vim/commit/ffec3c53496d49668669deabc0724ec78e2274fd
Christian Brabandt <cb@256bit.org>
parents:
8643
diff
changeset
|
2460 |
|
39d6e4f2f748
commit https://github.com/vim/vim/commit/ffec3c53496d49668669deabc0724ec78e2274fd
Christian Brabandt <cb@256bit.org>
parents:
8643
diff
changeset
|
2461 if (i == qfl->qf_count) /* Entry is not found */ |
|
39d6e4f2f748
commit https://github.com/vim/vim/commit/ffec3c53496d49668669deabc0724ec78e2274fd
Christian Brabandt <cb@256bit.org>
parents:
8643
diff
changeset
|
2462 return FALSE; |
|
39d6e4f2f748
commit https://github.com/vim/vim/commit/ffec3c53496d49668669deabc0724ec78e2274fd
Christian Brabandt <cb@256bit.org>
parents:
8643
diff
changeset
|
2463 |
|
39d6e4f2f748
commit https://github.com/vim/vim/commit/ffec3c53496d49668669deabc0724ec78e2274fd
Christian Brabandt <cb@256bit.org>
parents:
8643
diff
changeset
|
2464 return TRUE; |
|
39d6e4f2f748
commit https://github.com/vim/vim/commit/ffec3c53496d49668669deabc0724ec78e2274fd
Christian Brabandt <cb@256bit.org>
parents:
8643
diff
changeset
|
2465 } |
|
39d6e4f2f748
commit https://github.com/vim/vim/commit/ffec3c53496d49668669deabc0724ec78e2274fd
Christian Brabandt <cb@256bit.org>
parents:
8643
diff
changeset
|
2466 |
|
39d6e4f2f748
commit https://github.com/vim/vim/commit/ffec3c53496d49668669deabc0724ec78e2274fd
Christian Brabandt <cb@256bit.org>
parents:
8643
diff
changeset
|
2467 /* |
|
12449
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2468 * Get the next valid entry in the current quickfix/location list. The search |
|
12503
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2469 * starts from the current entry. Returns NULL on failure. |
|
12449
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2470 */ |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2471 static qfline_T * |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2472 get_next_valid_entry( |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
2473 qf_list_T *qfl, |
|
12449
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2474 qfline_T *qf_ptr, |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2475 int *qf_index, |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2476 int dir) |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2477 { |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2478 int idx; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2479 int old_qf_fnum; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2480 |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2481 idx = *qf_index; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2482 old_qf_fnum = qf_ptr->qf_fnum; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2483 |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2484 do |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2485 { |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
2486 if (idx == qfl->qf_count || qf_ptr->qf_next == NULL) |
|
12449
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2487 return NULL; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2488 ++idx; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2489 qf_ptr = qf_ptr->qf_next; |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
2490 } while ((!qfl->qf_nonevalid && !qf_ptr->qf_valid) |
|
12449
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2491 || (dir == FORWARD_FILE && qf_ptr->qf_fnum == old_qf_fnum)); |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2492 |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2493 *qf_index = idx; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2494 return qf_ptr; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2495 } |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2496 |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2497 /* |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2498 * Get the previous valid entry in the current quickfix/location list. The |
|
12503
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2499 * search starts from the current entry. Returns NULL on failure. |
|
12449
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2500 */ |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2501 static qfline_T * |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2502 get_prev_valid_entry( |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
2503 qf_list_T *qfl, |
|
12449
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2504 qfline_T *qf_ptr, |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2505 int *qf_index, |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2506 int dir) |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2507 { |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2508 int idx; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2509 int old_qf_fnum; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2510 |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2511 idx = *qf_index; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2512 old_qf_fnum = qf_ptr->qf_fnum; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2513 |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2514 do |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2515 { |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2516 if (idx == 1 || qf_ptr->qf_prev == NULL) |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2517 return NULL; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2518 --idx; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2519 qf_ptr = qf_ptr->qf_prev; |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
2520 } while ((!qfl->qf_nonevalid && !qf_ptr->qf_valid) |
|
12449
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2521 || (dir == BACKWARD_FILE && qf_ptr->qf_fnum == old_qf_fnum)); |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2522 |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2523 *qf_index = idx; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2524 return qf_ptr; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2525 } |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2526 |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2527 /* |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2528 * Get the n'th (errornr) previous/next valid entry from the current entry in |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2529 * the quickfix list. |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2530 * dir == FORWARD or FORWARD_FILE: next valid entry |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2531 * dir == BACKWARD or BACKWARD_FILE: previous valid entry |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2532 */ |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2533 static qfline_T * |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2534 get_nth_valid_entry( |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
2535 qf_list_T *qfl, |
|
12449
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2536 int errornr, |
|
14838
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2537 int dir, |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2538 int *new_qfidx) |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2539 { |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2540 qfline_T *qf_ptr = qfl->qf_ptr; |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2541 int qf_idx = qfl->qf_index; |
|
12449
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2542 qfline_T *prev_qf_ptr; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2543 int prev_index; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2544 static char_u *e_no_more_items = (char_u *)N_("E553: No more items"); |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2545 char_u *err = e_no_more_items; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2546 |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2547 while (errornr--) |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2548 { |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2549 prev_qf_ptr = qf_ptr; |
|
14838
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2550 prev_index = qf_idx; |
|
12449
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2551 |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2552 if (dir == FORWARD || dir == FORWARD_FILE) |
|
14838
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2553 qf_ptr = get_next_valid_entry(qfl, qf_ptr, &qf_idx, dir); |
|
12449
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2554 else |
|
14838
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2555 qf_ptr = get_prev_valid_entry(qfl, qf_ptr, &qf_idx, dir); |
|
12449
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2556 if (qf_ptr == NULL) |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2557 { |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2558 qf_ptr = prev_qf_ptr; |
|
14838
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2559 qf_idx = prev_index; |
|
12449
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2560 if (err != NULL) |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2561 { |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2562 EMSG(_(err)); |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2563 return NULL; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2564 } |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2565 break; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2566 } |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2567 |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2568 err = NULL; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2569 } |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2570 |
|
14838
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2571 *new_qfidx = qf_idx; |
|
12449
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2572 return qf_ptr; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2573 } |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2574 |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2575 /* |
|
14838
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2576 * Get n'th (errornr) quickfix entry from the current entry in the quickfix |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2577 * list 'qfl'. Returns a pointer to the new entry and the index in 'new_qfidx' |
|
12449
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2578 */ |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2579 static qfline_T * |
|
14838
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2580 get_nth_entry(qf_list_T *qfl, int errornr, int *new_qfidx) |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2581 { |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2582 qfline_T *qf_ptr = qfl->qf_ptr; |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2583 int qf_idx = qfl->qf_index; |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2584 |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2585 // New error number is less than the current error number |
|
12449
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2586 while (errornr < qf_idx && qf_idx > 1 && qf_ptr->qf_prev != NULL) |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2587 { |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2588 --qf_idx; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2589 qf_ptr = qf_ptr->qf_prev; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2590 } |
|
14838
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2591 // New error number is greater than the current error number |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
2592 while (errornr > qf_idx && qf_idx < qfl->qf_count && |
|
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
2593 qf_ptr->qf_next != NULL) |
|
12449
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2594 { |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2595 ++qf_idx; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2596 qf_ptr = qf_ptr->qf_next; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2597 } |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2598 |
|
14838
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2599 *new_qfidx = qf_idx; |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2600 return qf_ptr; |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2601 } |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2602 |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2603 /* |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2604 * Get a entry specied by 'errornr' and 'dir' from the current |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2605 * quickfix/location list. 'errornr' specifies the index of the entry and 'dir' |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2606 * specifies the direction (FORWARD/BACKWARD/FORWARD_FILE/BACKWARD_FILE). |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2607 * Returns a pointer to the entry and the index of the new entry is stored in |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2608 * 'new_qfidx'. |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2609 */ |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2610 static qfline_T * |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2611 qf_get_entry( |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2612 qf_list_T *qfl, |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2613 int errornr, |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2614 int dir, |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2615 int *new_qfidx) |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2616 { |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2617 qfline_T *qf_ptr = qfl->qf_ptr; |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2618 int qfidx = qfl->qf_index; |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2619 |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2620 if (dir != 0) // next/prev valid entry |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2621 qf_ptr = get_nth_valid_entry(qfl, errornr, dir, &qfidx); |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2622 else if (errornr != 0) // go to specified number |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2623 qf_ptr = get_nth_entry(qfl, errornr, &qfidx); |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2624 |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2625 *new_qfidx = qfidx; |
|
12449
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2626 return qf_ptr; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2627 } |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2628 |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2629 /* |
|
13882
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2630 * Find a window displaying a Vim help file. |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2631 */ |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2632 static win_T * |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2633 qf_find_help_win(void) |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2634 { |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2635 win_T *wp; |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2636 |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2637 FOR_ALL_WINDOWS(wp) |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2638 if (bt_help(wp->w_buffer)) |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2639 return wp; |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2640 |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2641 return NULL; |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2642 } |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2643 |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2644 /* |
|
12449
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2645 * Find a help window or open one. |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2646 */ |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2647 static int |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2648 jump_to_help_window(qf_info_T *qi, int *opened_window) |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2649 { |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2650 win_T *wp; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2651 int flags; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2652 |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2653 if (cmdmod.tab != 0) |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2654 wp = NULL; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2655 else |
|
13882
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2656 wp = qf_find_help_win(); |
|
12449
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2657 if (wp != NULL && wp->w_buffer->b_nwindows > 0) |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2658 win_enter(wp, TRUE); |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2659 else |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2660 { |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2661 /* |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2662 * Split off help window; put it at far top if no position |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2663 * specified, the current window is vertically split and narrow. |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2664 */ |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2665 flags = WSP_HELP; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2666 if (cmdmod.split == 0 && curwin->w_width != Columns |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2667 && curwin->w_width < 80) |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2668 flags |= WSP_TOP; |
|
14560
8413e66d00a1
patch 8.1.0293: checks for type of stack is cryptic
Christian Brabandt <cb@256bit.org>
parents:
14552
diff
changeset
|
2669 if (IS_LL_STACK(qi)) |
|
12449
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2670 flags |= WSP_NEWLOC; /* don't copy the location list */ |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2671 |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2672 if (win_split(0, flags) == FAIL) |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2673 return FAIL; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2674 |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2675 *opened_window = TRUE; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2676 |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2677 if (curwin->w_height < p_hh) |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2678 win_setheight((int)p_hh); |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2679 |
|
14560
8413e66d00a1
patch 8.1.0293: checks for type of stack is cryptic
Christian Brabandt <cb@256bit.org>
parents:
14552
diff
changeset
|
2680 if (IS_LL_STACK(qi)) // not a quickfix list |
|
12449
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2681 { |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2682 /* The new window should use the supplied location list */ |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2683 curwin->w_llist = qi; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2684 qi->qf_refcount++; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2685 } |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2686 } |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2687 |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2688 if (!p_im) |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2689 restart_edit = 0; /* don't want insert mode in help file */ |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2690 |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2691 return OK; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2692 } |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2693 |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
2694 /* |
|
13882
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2695 * Find a non-quickfix window using the given location list. |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2696 * Returns NULL if a matching window is not found. |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2697 */ |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2698 static win_T * |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2699 qf_find_win_with_loclist(qf_info_T *ll) |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2700 { |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2701 win_T *wp; |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2702 |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2703 FOR_ALL_WINDOWS(wp) |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2704 if (wp->w_llist == ll && !bt_quickfix(wp->w_buffer)) |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2705 return wp; |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2706 |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2707 return NULL; |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2708 } |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2709 |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2710 /* |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2711 * Find a window containing a normal buffer |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2712 */ |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2713 static win_T * |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2714 qf_find_win_with_normal_buf(void) |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2715 { |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2716 win_T *wp; |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2717 |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2718 FOR_ALL_WINDOWS(wp) |
|
14433
4a94173743d9
patch 8.1.0230: directly checking 'buftype' value
Christian Brabandt <cb@256bit.org>
parents:
14397
diff
changeset
|
2719 if (bt_normal(wp->w_buffer)) |
|
13882
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2720 return wp; |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2721 |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2722 return NULL; |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2723 } |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2724 |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2725 /* |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2726 * Go to a window in any tabpage containing the specified file. Returns TRUE |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2727 * if successfully jumped to the window. Otherwise returns FALSE. |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2728 */ |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2729 static int |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2730 qf_goto_tabwin_with_file(int fnum) |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2731 { |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2732 tabpage_T *tp; |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2733 win_T *wp; |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2734 |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2735 FOR_ALL_TAB_WINDOWS(tp, wp) |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2736 if (wp->w_buffer->b_fnum == fnum) |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2737 { |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2738 goto_tabpage_win(tp, wp); |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2739 return TRUE; |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2740 } |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2741 |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2742 return FALSE; |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2743 } |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2744 |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2745 /* |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2746 * Create a new window to show a file above the quickfix window. Called when |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2747 * only the quickfix window is present. |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2748 */ |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2749 static int |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2750 qf_open_new_file_win(qf_info_T *ll_ref) |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2751 { |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2752 int flags; |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2753 |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2754 flags = WSP_ABOVE; |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2755 if (ll_ref != NULL) |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2756 flags |= WSP_NEWLOC; |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2757 if (win_split(0, flags) == FAIL) |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2758 return FAIL; /* not enough room for window */ |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2759 p_swb = empty_option; /* don't split again */ |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2760 swb_flags = 0; |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2761 RESET_BINDING(curwin); |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2762 if (ll_ref != NULL) |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2763 { |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2764 /* The new window should use the location list from the |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2765 * location list window */ |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2766 curwin->w_llist = ll_ref; |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2767 ll_ref->qf_refcount++; |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2768 } |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2769 return OK; |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2770 } |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2771 |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2772 /* |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2773 * Go to a window that shows the right buffer. If the window is not found, go |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2774 * to the window just above the location list window. This is used for opening |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2775 * a file from a location window and not from a quickfix window. If some usable |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2776 * window is previously found, then it is supplied in 'use_win'. |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2777 */ |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2778 static void |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2779 qf_goto_win_with_ll_file(win_T *use_win, int qf_fnum, qf_info_T *ll_ref) |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2780 { |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2781 win_T *win = use_win; |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2782 |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2783 if (win == NULL) |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2784 { |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2785 /* Find the window showing the selected file */ |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2786 FOR_ALL_WINDOWS(win) |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2787 if (win->w_buffer->b_fnum == qf_fnum) |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2788 break; |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2789 if (win == NULL) |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2790 { |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2791 /* Find a previous usable window */ |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2792 win = curwin; |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2793 do |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2794 { |
|
14433
4a94173743d9
patch 8.1.0230: directly checking 'buftype' value
Christian Brabandt <cb@256bit.org>
parents:
14397
diff
changeset
|
2795 if (bt_normal(win->w_buffer)) |
|
13882
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2796 break; |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2797 if (win->w_prev == NULL) |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2798 win = lastwin; /* wrap around the top */ |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2799 else |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2800 win = win->w_prev; /* go to previous window */ |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2801 } while (win != curwin); |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2802 } |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2803 } |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2804 win_goto(win); |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2805 |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2806 /* If the location list for the window is not set, then set it |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2807 * to the location list from the location window */ |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2808 if (win->w_llist == NULL) |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2809 { |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2810 win->w_llist = ll_ref; |
|
14250
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
2811 if (ll_ref != NULL) |
|
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
2812 ll_ref->qf_refcount++; |
|
13882
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2813 } |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2814 } |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2815 |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2816 /* |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
2817 * Go to a window that contains the specified buffer 'qf_fnum'. If a window is |
|
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
2818 * not found, then go to the window just above the quickfix window. This is |
|
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
2819 * used for opening a file from a quickfix window and not from a location |
|
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
2820 * window. |
|
13882
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2821 */ |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2822 static void |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2823 qf_goto_win_with_qfl_file(int qf_fnum) |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2824 { |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2825 win_T *win; |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2826 win_T *altwin; |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2827 |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2828 win = curwin; |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2829 altwin = NULL; |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2830 for (;;) |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2831 { |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2832 if (win->w_buffer->b_fnum == qf_fnum) |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2833 break; |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2834 if (win->w_prev == NULL) |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2835 win = lastwin; /* wrap around the top */ |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2836 else |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2837 win = win->w_prev; /* go to previous window */ |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2838 |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2839 if (IS_QF_WINDOW(win)) |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2840 { |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2841 /* Didn't find it, go to the window before the quickfix |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2842 * window. */ |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2843 if (altwin != NULL) |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2844 win = altwin; |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2845 else if (curwin->w_prev != NULL) |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2846 win = curwin->w_prev; |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2847 else |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2848 win = curwin->w_next; |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2849 break; |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2850 } |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2851 |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2852 /* Remember a usable window. */ |
|
14433
4a94173743d9
patch 8.1.0230: directly checking 'buftype' value
Christian Brabandt <cb@256bit.org>
parents:
14397
diff
changeset
|
2853 if (altwin == NULL && !win->w_p_pvw && bt_normal(win->w_buffer)) |
|
13882
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2854 altwin = win; |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2855 } |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2856 |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2857 win_goto(win); |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2858 } |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2859 |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2860 /* |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2861 * Find a suitable window for opening a file (qf_fnum) from the |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2862 * quickfix/location list and jump to it. If the file is already opened in a |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2863 * window, jump to it. Otherwise open a new window to display the file. This is |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2864 * called from either a quickfix or a location list window. |
|
12503
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2865 */ |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2866 static int |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2867 qf_jump_to_usable_window(int qf_fnum, int *opened_window) |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2868 { |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2869 win_T *usable_win_ptr = NULL; |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2870 int usable_win; |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2871 qf_info_T *ll_ref; |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2872 win_T *win; |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2873 |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2874 usable_win = 0; |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2875 |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2876 ll_ref = curwin->w_llist_ref; |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2877 if (ll_ref != NULL) |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2878 { |
|
13882
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2879 /* Find a non-quickfix window with this location list */ |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2880 usable_win_ptr = qf_find_win_with_loclist(ll_ref); |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2881 if (usable_win_ptr != NULL) |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2882 usable_win = 1; |
|
12503
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2883 } |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2884 |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2885 if (!usable_win) |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2886 { |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2887 /* Locate a window showing a normal buffer */ |
|
13882
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2888 win = qf_find_win_with_normal_buf(); |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2889 if (win != NULL) |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2890 usable_win = 1; |
|
12503
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2891 } |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2892 |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2893 /* |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2894 * If no usable window is found and 'switchbuf' contains "usetab" |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2895 * then search in other tabs. |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2896 */ |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2897 if (!usable_win && (swb_flags & SWB_USETAB)) |
|
13882
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2898 usable_win = qf_goto_tabwin_with_file(qf_fnum); |
|
12503
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2899 |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2900 /* |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2901 * If there is only one window and it is the quickfix window, create a |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2902 * new one above the quickfix window. |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2903 */ |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2904 if ((ONE_WINDOW && bt_quickfix(curbuf)) || !usable_win) |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2905 { |
|
13882
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2906 if (qf_open_new_file_win(ll_ref) != OK) |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2907 return FAIL; |
|
12503
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2908 *opened_window = TRUE; /* close it when fail */ |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2909 } |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2910 else |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2911 { |
|
13882
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2912 if (curwin->w_llist_ref != NULL) /* In a location window */ |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2913 qf_goto_win_with_ll_file(usable_win_ptr, qf_fnum, ll_ref); |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2914 else /* In a quickfix window */ |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2915 qf_goto_win_with_qfl_file(qf_fnum); |
|
12503
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2916 } |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2917 |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2918 return OK; |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2919 } |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2920 |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2921 /* |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2922 * Edit the selected file or help file. |
|
14838
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2923 * Returns OK if successfully edited the file, FAIL on failing to open the |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2924 * buffer and NOTDONE if the quickfix/location list was freed by an autocmd |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2925 * when opening the buffer. |
|
12503
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2926 */ |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2927 static int |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2928 qf_jump_edit_buffer( |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2929 qf_info_T *qi, |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2930 qfline_T *qf_ptr, |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2931 int forceit, |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2932 win_T *oldwin, |
|
14838
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2933 int *opened_window) |
|
12503
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2934 { |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
2935 qf_list_T *qfl = &qi->qf_lists[qi->qf_curlist]; |
|
12503
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2936 int retval = OK; |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2937 |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2938 if (qf_ptr->qf_type == 1) |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2939 { |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2940 /* Open help file (do_ecmd() will set b_help flag, readfile() will |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2941 * set b_p_ro flag). */ |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2942 if (!can_abandon(curbuf, forceit)) |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2943 { |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2944 no_write_message(); |
|
13800
e4dc4ede9ef8
patch 8.0.1772: quickfix: mixup of FALSE and FAIL, returning -1
Christian Brabandt <cb@256bit.org>
parents:
13764
diff
changeset
|
2945 retval = FAIL; |
|
12503
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2946 } |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2947 else |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2948 retval = do_ecmd(qf_ptr->qf_fnum, NULL, NULL, NULL, (linenr_T)1, |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2949 ECMD_HIDE + ECMD_SET_HELP, |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2950 oldwin == curwin ? curwin : NULL); |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2951 } |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2952 else |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2953 { |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2954 int old_qf_curlist = qi->qf_curlist; |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
2955 int save_qfid = qfl->qf_id; |
|
12503
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2956 |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2957 retval = buflist_getfile(qf_ptr->qf_fnum, |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2958 (linenr_T)1, GETF_SETMARK | GETF_SWITCH, forceit); |
|
13090
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2959 |
|
14560
8413e66d00a1
patch 8.1.0293: checks for type of stack is cryptic
Christian Brabandt <cb@256bit.org>
parents:
14552
diff
changeset
|
2960 if (IS_LL_STACK(qi)) |
|
12503
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2961 { |
|
13090
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2962 /* |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2963 * Location list. Check whether the associated window is still |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2964 * present and the list is still valid. |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2965 */ |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2966 if (!win_valid_any_tab(oldwin)) |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2967 { |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2968 EMSG(_("E924: Current window was closed")); |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2969 *opened_window = FALSE; |
|
14838
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2970 return NOTDONE; |
|
13090
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2971 } |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2972 else if (!qflist_valid(oldwin, save_qfid)) |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2973 { |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2974 EMSG(_(e_loc_list_changed)); |
|
14838
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2975 return NOTDONE; |
|
13090
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2976 } |
|
12503
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2977 } |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2978 else if (old_qf_curlist != qi->qf_curlist |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
2979 || !is_qf_entry_present(qfl, qf_ptr)) |
|
12503
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2980 { |
|
14560
8413e66d00a1
patch 8.1.0293: checks for type of stack is cryptic
Christian Brabandt <cb@256bit.org>
parents:
14552
diff
changeset
|
2981 if (IS_QF_STACK(qi)) |
|
12503
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2982 EMSG(_("E925: Current quickfix was changed")); |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2983 else |
|
13090
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
2984 EMSG(_(e_loc_list_changed)); |
|
14838
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
2985 return NOTDONE; |
|
12503
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2986 } |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2987 } |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2988 |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2989 return retval; |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2990 } |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2991 |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2992 /* |
|
13882
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2993 * Go to the error line in the current file using either line/column number or |
|
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
2994 * a search pattern. |
|
12503
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2995 */ |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2996 static void |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2997 qf_jump_goto_line( |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2998 linenr_T qf_lnum, |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2999 int qf_col, |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3000 char_u qf_viscol, |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3001 char_u *qf_pattern) |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3002 { |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3003 linenr_T i; |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3004 char_u *line; |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3005 colnr_T screen_col; |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3006 colnr_T char_col; |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3007 |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3008 if (qf_pattern == NULL) |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3009 { |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3010 /* |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3011 * Go to line with error, unless qf_lnum is 0. |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3012 */ |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3013 i = qf_lnum; |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3014 if (i > 0) |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3015 { |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3016 if (i > curbuf->b_ml.ml_line_count) |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3017 i = curbuf->b_ml.ml_line_count; |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3018 curwin->w_cursor.lnum = i; |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3019 } |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3020 if (qf_col > 0) |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3021 { |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3022 curwin->w_cursor.col = qf_col - 1; |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3023 #ifdef FEAT_VIRTUALEDIT |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3024 curwin->w_cursor.coladd = 0; |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3025 #endif |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3026 if (qf_viscol == TRUE) |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3027 { |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3028 /* |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3029 * Check each character from the beginning of the error |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3030 * line up to the error column. For each tab character |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3031 * found, reduce the error column value by the length of |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3032 * a tab character. |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3033 */ |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3034 line = ml_get_curline(); |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3035 screen_col = 0; |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3036 for (char_col = 0; char_col < curwin->w_cursor.col; ++char_col) |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3037 { |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3038 if (*line == NUL) |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3039 break; |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3040 if (*line++ == '\t') |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3041 { |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3042 curwin->w_cursor.col -= 7 - (screen_col % 8); |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3043 screen_col += 8 - (screen_col % 8); |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3044 } |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3045 else |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3046 ++screen_col; |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3047 } |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3048 } |
|
14552
b298737a7188
patch 8.1.0289: cursor moves to wrong column after quickfix jump
Christian Brabandt <cb@256bit.org>
parents:
14550
diff
changeset
|
3049 curwin->w_set_curswant = TRUE; |
|
12503
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3050 check_cursor(); |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3051 } |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3052 else |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3053 beginline(BL_WHITE | BL_FIX); |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3054 } |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3055 else |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3056 { |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3057 pos_T save_cursor; |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3058 |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3059 /* Move the cursor to the first line in the buffer */ |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3060 save_cursor = curwin->w_cursor; |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3061 curwin->w_cursor.lnum = 0; |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3062 if (!do_search(NULL, '/', qf_pattern, (long)1, |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3063 SEARCH_KEEP, NULL, NULL)) |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3064 curwin->w_cursor = save_cursor; |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3065 } |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3066 } |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3067 |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3068 /* |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3069 * Display quickfix list index and size message |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3070 */ |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3071 static void |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3072 qf_jump_print_msg( |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3073 qf_info_T *qi, |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3074 int qf_index, |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3075 qfline_T *qf_ptr, |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3076 buf_T *old_curbuf, |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3077 linenr_T old_lnum) |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3078 { |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3079 linenr_T i; |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3080 int len; |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3081 |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3082 /* Update the screen before showing the message, unless the screen |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3083 * scrolled up. */ |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3084 if (!msg_scrolled) |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3085 update_topline_redraw(); |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3086 sprintf((char *)IObuff, _("(%d of %d)%s%s: "), qf_index, |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3087 qi->qf_lists[qi->qf_curlist].qf_count, |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3088 qf_ptr->qf_cleared ? _(" (line deleted)") : "", |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3089 (char *)qf_types(qf_ptr->qf_type, qf_ptr->qf_nr)); |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3090 /* Add the message, skipping leading whitespace and newlines. */ |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3091 len = (int)STRLEN(IObuff); |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3092 qf_fmt_text(skipwhite(qf_ptr->qf_text), IObuff + len, IOSIZE - len); |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3093 |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3094 /* Output the message. Overwrite to avoid scrolling when the 'O' |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3095 * flag is present in 'shortmess'; But when not jumping, print the |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3096 * whole message. */ |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3097 i = msg_scroll; |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3098 if (curbuf == old_curbuf && curwin->w_cursor.lnum == old_lnum) |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3099 msg_scroll = TRUE; |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3100 else if (!msg_scrolled && shortmess(SHM_OVERALL)) |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3101 msg_scroll = FALSE; |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3102 msg_attr_keep(IObuff, 0, TRUE); |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3103 msg_scroll = i; |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3104 } |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3105 |
|
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3106 /* |
|
14838
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3107 * Find a usable window for opening a file from the quickfix/location list. If |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3108 * a window is not found then open a new window. |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3109 * Returns OK if successfully jumped or opened a window. Returns FAIL if not |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3110 * able to jump/open a window. Returns NOTDONE if a file is not associated |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3111 * with the entry. |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3112 */ |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3113 static int |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3114 qf_jump_open_window(qf_info_T *qi, qfline_T *qf_ptr, int *opened_window) |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3115 { |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3116 // For ":helpgrep" find a help window or open one. |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3117 if (qf_ptr->qf_type == 1 && (!bt_help(curwin->w_buffer) || cmdmod.tab != 0)) |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3118 if (jump_to_help_window(qi, opened_window) == FAIL) |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3119 return FAIL; |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3120 |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3121 // If currently in the quickfix window, find another window to show the |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3122 // file in. |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3123 if (bt_quickfix(curbuf) && !*opened_window) |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3124 { |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3125 // If there is no file specified, we don't know where to go. |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3126 // But do advance, otherwise ":cn" gets stuck. |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3127 if (qf_ptr->qf_fnum == 0) |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3128 return NOTDONE; |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3129 |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3130 if (qf_jump_to_usable_window(qf_ptr->qf_fnum, opened_window) == FAIL) |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3131 return FAIL; |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3132 } |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3133 |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3134 return OK; |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3135 } |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3136 |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3137 /* |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3138 * Edit a selected file from the quickfix/location list and jump to a |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3139 * particular line/column, adjust the folds and display a message about the |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3140 * jump. |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3141 * Returns OK on success and FAIL on failing to open the file/buffer. Returns |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3142 * NOTDONE if the quickfix/location list is freed by an autocmd when opening |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3143 * the file. |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3144 */ |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3145 static int |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3146 qf_jump_to_buffer( |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3147 qf_info_T *qi, |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3148 int qf_index, |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3149 qfline_T *qf_ptr, |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3150 int forceit, |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3151 win_T *oldwin, |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3152 int *opened_window, |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3153 int openfold, |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3154 int print_message) |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3155 { |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3156 buf_T *old_curbuf; |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3157 linenr_T old_lnum; |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3158 int retval = OK; |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3159 |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3160 // If there is a file name, read the wanted file if needed, and check |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3161 // autowrite etc. |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3162 old_curbuf = curbuf; |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3163 old_lnum = curwin->w_cursor.lnum; |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3164 |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3165 if (qf_ptr->qf_fnum != 0) |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3166 { |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3167 retval = qf_jump_edit_buffer(qi, qf_ptr, forceit, oldwin, |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3168 opened_window); |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3169 if (retval != OK) |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3170 return retval; |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3171 } |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3172 |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3173 // When not switched to another buffer, still need to set pc mark |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3174 if (curbuf == old_curbuf) |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3175 setpcmark(); |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3176 |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3177 qf_jump_goto_line(qf_ptr->qf_lnum, qf_ptr->qf_col, qf_ptr->qf_viscol, |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3178 qf_ptr->qf_pattern); |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3179 |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3180 #ifdef FEAT_FOLDING |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3181 if ((fdo_flags & FDO_QUICKFIX) && openfold) |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3182 foldOpenCursor(); |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3183 #endif |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3184 if (print_message) |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3185 qf_jump_print_msg(qi, qf_index, qf_ptr, old_curbuf, old_lnum); |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3186 |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3187 return retval; |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3188 } |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3189 |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3190 /* |
| 7 | 3191 * jump to a quickfix line |
| 3192 * if dir == FORWARD go "errornr" valid entries forward | |
| 3193 * if dir == BACKWARD go "errornr" valid entries backward | |
| 3194 * if dir == FORWARD_FILE go "errornr" valid entries files backward | |
| 3195 * if dir == BACKWARD_FILE go "errornr" valid entries files backward | |
| 3196 * else if "errornr" is zero, redisplay the same line | |
| 3197 * else go to entry "errornr" | |
| 3198 */ | |
| 3199 void | |
|
12449
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
3200 qf_jump(qf_info_T *qi, |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
3201 int dir, |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
3202 int errornr, |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
3203 int forceit) |
| 7 | 3204 { |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
3205 qf_list_T *qfl; |
| 230 | 3206 qfline_T *qf_ptr; |
| 3207 qfline_T *old_qf_ptr; | |
| 7 | 3208 int qf_index; |
| 3209 int old_qf_index; | |
| 639 | 3210 char_u *old_swb = p_swb; |
| 1621 | 3211 unsigned old_swb_flags = swb_flags; |
| 7 | 3212 int opened_window = FALSE; |
| 1743 | 3213 win_T *oldwin = curwin; |
| 7 | 3214 int print_message = TRUE; |
| 3215 #ifdef FEAT_FOLDING | |
|
14838
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3216 int old_KeyTyped = KeyTyped; // getting file may reset it |
| 7 | 3217 #endif |
|
12503
4d40b2644e92
patch 8.0.1130: the qf_jump() function is still too long
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
3218 int retval = OK; |
| 644 | 3219 |
| 659 | 3220 if (qi == NULL) |
| 3221 qi = &ql_info; | |
| 644 | 3222 |
| 3223 if (qi->qf_curlist >= qi->qf_listcount | |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3224 || qf_list_empty(qi, qi->qf_curlist)) |
| 7 | 3225 { |
| 3226 EMSG(_(e_quickfix)); | |
| 3227 return; | |
| 3228 } | |
| 3229 | |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
3230 qfl = &qi->qf_lists[qi->qf_curlist]; |
|
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
3231 |
|
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
3232 qf_ptr = qfl->qf_ptr; |
| 7 | 3233 old_qf_ptr = qf_ptr; |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
3234 qf_index = qfl->qf_index; |
| 7 | 3235 old_qf_index = qf_index; |
|
14838
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3236 |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3237 qf_ptr = qf_get_entry(qfl, errornr, dir, &qf_index); |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3238 if (qf_ptr == NULL) |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3239 { |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3240 qf_ptr = old_qf_ptr; |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3241 qf_index = old_qf_index; |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3242 goto theend; |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3243 } |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
3244 |
|
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
3245 qfl->qf_index = qf_index; |
| 644 | 3246 if (qf_win_pos_update(qi, old_qf_index)) |
|
14838
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3247 // No need to print the error message if it's visible in the error |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3248 // window |
| 7 | 3249 print_message = FALSE; |
| 3250 | |
|
14838
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3251 retval = qf_jump_open_window(qi, qf_ptr, &opened_window); |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3252 if (retval == FAIL) |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3253 goto failed; |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3254 if (retval == NOTDONE) |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3255 goto theend; |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3256 |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3257 retval = qf_jump_to_buffer(qi, qf_index, qf_ptr, forceit, oldwin, |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3258 &opened_window, old_KeyTyped, print_message); |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3259 if (retval == NOTDONE) |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3260 { |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3261 // Quickfix/location list is freed by an autocmd |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3262 qi = NULL; |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3263 qf_ptr = NULL; |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3264 } |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3265 |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3266 if (retval != OK) |
| 7 | 3267 { |
| 3268 if (opened_window) | |
|
14838
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3269 win_close(curwin, TRUE); // Close opened window |
|
8605
536b9b88d1ca
commit https://github.com/vim/vim/commit/0899d698030ec076eb26352cda1ea334ab0819d9
Christian Brabandt <cb@256bit.org>
parents:
8603
diff
changeset
|
3270 if (qf_ptr != NULL && qf_ptr->qf_fnum != 0) |
| 7 | 3271 { |
|
14838
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3272 // Couldn't open file, so put index back where it was. This could |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3273 // happen if the file was readonly and we changed something. |
| 7 | 3274 failed: |
| 3275 qf_ptr = old_qf_ptr; | |
| 3276 qf_index = old_qf_index; | |
| 3277 } | |
| 3278 } | |
| 3279 theend: | |
|
8605
536b9b88d1ca
commit https://github.com/vim/vim/commit/0899d698030ec076eb26352cda1ea334ab0819d9
Christian Brabandt <cb@256bit.org>
parents:
8603
diff
changeset
|
3280 if (qi != NULL) |
|
536b9b88d1ca
commit https://github.com/vim/vim/commit/0899d698030ec076eb26352cda1ea334ab0819d9
Christian Brabandt <cb@256bit.org>
parents:
8603
diff
changeset
|
3281 { |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
3282 qfl->qf_ptr = qf_ptr; |
|
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
3283 qfl->qf_index = qf_index; |
|
8605
536b9b88d1ca
commit https://github.com/vim/vim/commit/0899d698030ec076eb26352cda1ea334ab0819d9
Christian Brabandt <cb@256bit.org>
parents:
8603
diff
changeset
|
3284 } |
| 7 | 3285 if (p_swb != old_swb && opened_window) |
| 3286 { | |
|
14838
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3287 // Restore old 'switchbuf' value, but not when an autocommand or |
|
6040d93396de
patch 8.1.0431: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14796
diff
changeset
|
3288 // modeline has changed the value. |
| 7 | 3289 if (p_swb == empty_option) |
| 1621 | 3290 { |
| 7 | 3291 p_swb = old_swb; |
| 1621 | 3292 swb_flags = old_swb_flags; |
| 3293 } | |
| 7 | 3294 else |
| 3295 free_string_option(old_swb); | |
| 3296 } | |
| 3297 } | |
| 3298 | |
| 3299 /* | |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3300 * Highlight attributes used for displaying entries from the quickfix list. |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3301 */ |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3302 static int qfFileAttr; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3303 static int qfSepAttr; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3304 static int qfLineAttr; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3305 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3306 /* |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3307 * Display information about a single entry from the quickfix/location list. |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3308 * Used by ":clist/:llist" commands. |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
3309 * 'cursel' will be set to TRUE for the currently selected entry in the |
|
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
3310 * quickfix list. |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3311 */ |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3312 static void |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
3313 qf_list_entry(qfline_T *qfp, int qf_idx, int cursel) |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3314 { |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3315 char_u *fname; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3316 buf_T *buf; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3317 int filter_entry; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3318 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3319 fname = NULL; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3320 if (qfp->qf_module != NULL && *qfp->qf_module != NUL) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3321 vim_snprintf((char *)IObuff, IOSIZE, "%2d %s", qf_idx, |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3322 (char *)qfp->qf_module); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3323 else { |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3324 if (qfp->qf_fnum != 0 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3325 && (buf = buflist_findnr(qfp->qf_fnum)) != NULL) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3326 { |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3327 fname = buf->b_fname; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3328 if (qfp->qf_type == 1) /* :helpgrep */ |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3329 fname = gettail(fname); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3330 } |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3331 if (fname == NULL) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3332 sprintf((char *)IObuff, "%2d", qf_idx); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3333 else |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3334 vim_snprintf((char *)IObuff, IOSIZE, "%2d %s", |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3335 qf_idx, (char *)fname); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3336 } |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3337 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3338 // Support for filtering entries using :filter /pat/ clist |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3339 // Match against the module name, file name, search pattern and |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3340 // text of the entry. |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3341 filter_entry = TRUE; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3342 if (qfp->qf_module != NULL && *qfp->qf_module != NUL) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3343 filter_entry &= message_filtered(qfp->qf_module); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3344 if (filter_entry && fname != NULL) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3345 filter_entry &= message_filtered(fname); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3346 if (filter_entry && qfp->qf_pattern != NULL) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3347 filter_entry &= message_filtered(qfp->qf_pattern); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3348 if (filter_entry) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3349 filter_entry &= message_filtered(qfp->qf_text); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3350 if (filter_entry) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3351 return; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3352 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3353 msg_putchar('\n'); |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
3354 msg_outtrans_attr(IObuff, cursel ? HL_ATTR(HLF_QFL) : qfFileAttr); |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3355 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3356 if (qfp->qf_lnum != 0) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3357 msg_puts_attr((char_u *)":", qfSepAttr); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3358 if (qfp->qf_lnum == 0) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3359 IObuff[0] = NUL; |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3360 else if (qfp->qf_col == 0) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3361 sprintf((char *)IObuff, "%ld", qfp->qf_lnum); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3362 else |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3363 sprintf((char *)IObuff, "%ld col %d", |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3364 qfp->qf_lnum, qfp->qf_col); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3365 sprintf((char *)IObuff + STRLEN(IObuff), "%s", |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3366 (char *)qf_types(qfp->qf_type, qfp->qf_nr)); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3367 msg_puts_attr(IObuff, qfLineAttr); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3368 msg_puts_attr((char_u *)":", qfSepAttr); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3369 if (qfp->qf_pattern != NULL) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3370 { |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3371 qf_fmt_text(qfp->qf_pattern, IObuff, IOSIZE); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3372 msg_puts(IObuff); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3373 msg_puts_attr((char_u *)":", qfSepAttr); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3374 } |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3375 msg_puts((char_u *)" "); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3376 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3377 /* Remove newlines and leading whitespace from the text. For an |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3378 * unrecognized line keep the indent, the compiler may mark a word |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3379 * with ^^^^. */ |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3380 qf_fmt_text((fname != NULL || qfp->qf_lnum != 0) |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3381 ? skipwhite(qfp->qf_text) : qfp->qf_text, |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3382 IObuff, IOSIZE); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3383 msg_prt_line(IObuff, FALSE); |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3384 out_flush(); /* show one line at a time */ |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3385 } |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3386 |
|
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3387 /* |
| 7 | 3388 * ":clist": list all errors |
| 644 | 3389 * ":llist": list all locations |
| 7 | 3390 */ |
| 3391 void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
3392 qf_list(exarg_T *eap) |
| 7 | 3393 { |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
3394 qf_list_T *qfl; |
| 230 | 3395 qfline_T *qfp; |
| 3396 int i; | |
| 3397 int idx1 = 1; | |
| 3398 int idx2 = -1; | |
| 3399 char_u *arg = eap->arg; | |
|
9379
b398e4e12751
commit https://github.com/vim/vim/commit/e8fea0728a2fa1fe78ef0ac90dee1a84bd7ef9fb
Christian Brabandt <cb@256bit.org>
parents:
9369
diff
changeset
|
3400 int plus = FALSE; |
| 230 | 3401 int all = eap->forceit; /* if not :cl!, only show |
| 7 | 3402 recognised errors */ |
| 644 | 3403 qf_info_T *qi = &ql_info; |
| 3404 | |
|
14550
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
3405 if (is_loclist_cmd(eap->cmdidx)) |
| 644 | 3406 { |
| 3407 qi = GET_LOC_LIST(curwin); | |
| 3408 if (qi == NULL) | |
| 3409 { | |
| 3410 EMSG(_(e_loclist)); | |
| 3411 return; | |
| 3412 } | |
| 3413 } | |
| 3414 | |
| 3415 if (qi->qf_curlist >= qi->qf_listcount | |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3416 || qf_list_empty(qi, qi->qf_curlist)) |
| 7 | 3417 { |
| 3418 EMSG(_(e_quickfix)); | |
| 3419 return; | |
| 3420 } | |
|
9379
b398e4e12751
commit https://github.com/vim/vim/commit/e8fea0728a2fa1fe78ef0ac90dee1a84bd7ef9fb
Christian Brabandt <cb@256bit.org>
parents:
9369
diff
changeset
|
3421 if (*arg == '+') |
|
b398e4e12751
commit https://github.com/vim/vim/commit/e8fea0728a2fa1fe78ef0ac90dee1a84bd7ef9fb
Christian Brabandt <cb@256bit.org>
parents:
9369
diff
changeset
|
3422 { |
|
b398e4e12751
commit https://github.com/vim/vim/commit/e8fea0728a2fa1fe78ef0ac90dee1a84bd7ef9fb
Christian Brabandt <cb@256bit.org>
parents:
9369
diff
changeset
|
3423 ++arg; |
|
b398e4e12751
commit https://github.com/vim/vim/commit/e8fea0728a2fa1fe78ef0ac90dee1a84bd7ef9fb
Christian Brabandt <cb@256bit.org>
parents:
9369
diff
changeset
|
3424 plus = TRUE; |
|
b398e4e12751
commit https://github.com/vim/vim/commit/e8fea0728a2fa1fe78ef0ac90dee1a84bd7ef9fb
Christian Brabandt <cb@256bit.org>
parents:
9369
diff
changeset
|
3425 } |
| 7 | 3426 if (!get_list_range(&arg, &idx1, &idx2) || *arg != NUL) |
| 3427 { | |
| 3428 EMSG(_(e_trailing)); | |
| 3429 return; | |
| 3430 } | |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
3431 qfl = &qi->qf_lists[qi->qf_curlist]; |
|
9379
b398e4e12751
commit https://github.com/vim/vim/commit/e8fea0728a2fa1fe78ef0ac90dee1a84bd7ef9fb
Christian Brabandt <cb@256bit.org>
parents:
9369
diff
changeset
|
3432 if (plus) |
|
b398e4e12751
commit https://github.com/vim/vim/commit/e8fea0728a2fa1fe78ef0ac90dee1a84bd7ef9fb
Christian Brabandt <cb@256bit.org>
parents:
9369
diff
changeset
|
3433 { |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
3434 i = qfl->qf_index; |
|
9379
b398e4e12751
commit https://github.com/vim/vim/commit/e8fea0728a2fa1fe78ef0ac90dee1a84bd7ef9fb
Christian Brabandt <cb@256bit.org>
parents:
9369
diff
changeset
|
3435 idx2 = i + idx1; |
|
b398e4e12751
commit https://github.com/vim/vim/commit/e8fea0728a2fa1fe78ef0ac90dee1a84bd7ef9fb
Christian Brabandt <cb@256bit.org>
parents:
9369
diff
changeset
|
3436 idx1 = i; |
|
b398e4e12751
commit https://github.com/vim/vim/commit/e8fea0728a2fa1fe78ef0ac90dee1a84bd7ef9fb
Christian Brabandt <cb@256bit.org>
parents:
9369
diff
changeset
|
3437 } |
|
b398e4e12751
commit https://github.com/vim/vim/commit/e8fea0728a2fa1fe78ef0ac90dee1a84bd7ef9fb
Christian Brabandt <cb@256bit.org>
parents:
9369
diff
changeset
|
3438 else |
|
b398e4e12751
commit https://github.com/vim/vim/commit/e8fea0728a2fa1fe78ef0ac90dee1a84bd7ef9fb
Christian Brabandt <cb@256bit.org>
parents:
9369
diff
changeset
|
3439 { |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
3440 i = qfl->qf_count; |
|
9379
b398e4e12751
commit https://github.com/vim/vim/commit/e8fea0728a2fa1fe78ef0ac90dee1a84bd7ef9fb
Christian Brabandt <cb@256bit.org>
parents:
9369
diff
changeset
|
3441 if (idx1 < 0) |
|
b398e4e12751
commit https://github.com/vim/vim/commit/e8fea0728a2fa1fe78ef0ac90dee1a84bd7ef9fb
Christian Brabandt <cb@256bit.org>
parents:
9369
diff
changeset
|
3442 idx1 = (-idx1 > i) ? 0 : idx1 + i + 1; |
|
b398e4e12751
commit https://github.com/vim/vim/commit/e8fea0728a2fa1fe78ef0ac90dee1a84bd7ef9fb
Christian Brabandt <cb@256bit.org>
parents:
9369
diff
changeset
|
3443 if (idx2 < 0) |
|
b398e4e12751
commit https://github.com/vim/vim/commit/e8fea0728a2fa1fe78ef0ac90dee1a84bd7ef9fb
Christian Brabandt <cb@256bit.org>
parents:
9369
diff
changeset
|
3444 idx2 = (-idx2 > i) ? 0 : idx2 + i + 1; |
|
b398e4e12751
commit https://github.com/vim/vim/commit/e8fea0728a2fa1fe78ef0ac90dee1a84bd7ef9fb
Christian Brabandt <cb@256bit.org>
parents:
9369
diff
changeset
|
3445 } |
| 7 | 3446 |
|
13819
31bb8e1f7625
patch 8.0.1781: file names in quickfix window are not shortened
Christian Brabandt <cb@256bit.org>
parents:
13802
diff
changeset
|
3447 /* Shorten all the file names, so that it is easy to read */ |
|
31bb8e1f7625
patch 8.0.1781: file names in quickfix window are not shortened
Christian Brabandt <cb@256bit.org>
parents:
13802
diff
changeset
|
3448 shorten_fnames(FALSE); |
|
31bb8e1f7625
patch 8.0.1781: file names in quickfix window are not shortened
Christian Brabandt <cb@256bit.org>
parents:
13802
diff
changeset
|
3449 |
|
12912
888441e8fbb0
patch 8.0.1332: highlighting in quickfix window could be better
Christian Brabandt <cb@256bit.org>
parents:
12531
diff
changeset
|
3450 /* |
|
888441e8fbb0
patch 8.0.1332: highlighting in quickfix window could be better
Christian Brabandt <cb@256bit.org>
parents:
12531
diff
changeset
|
3451 * Get the attributes for the different quickfix highlight items. Note |
|
888441e8fbb0
patch 8.0.1332: highlighting in quickfix window could be better
Christian Brabandt <cb@256bit.org>
parents:
12531
diff
changeset
|
3452 * that this depends on syntax items defined in the qf.vim syntax file |
|
888441e8fbb0
patch 8.0.1332: highlighting in quickfix window could be better
Christian Brabandt <cb@256bit.org>
parents:
12531
diff
changeset
|
3453 */ |
|
888441e8fbb0
patch 8.0.1332: highlighting in quickfix window could be better
Christian Brabandt <cb@256bit.org>
parents:
12531
diff
changeset
|
3454 qfFileAttr = syn_name2attr((char_u *)"qfFileName"); |
|
888441e8fbb0
patch 8.0.1332: highlighting in quickfix window could be better
Christian Brabandt <cb@256bit.org>
parents:
12531
diff
changeset
|
3455 if (qfFileAttr == 0) |
|
888441e8fbb0
patch 8.0.1332: highlighting in quickfix window could be better
Christian Brabandt <cb@256bit.org>
parents:
12531
diff
changeset
|
3456 qfFileAttr = HL_ATTR(HLF_D); |
|
888441e8fbb0
patch 8.0.1332: highlighting in quickfix window could be better
Christian Brabandt <cb@256bit.org>
parents:
12531
diff
changeset
|
3457 qfSepAttr = syn_name2attr((char_u *)"qfSeparator"); |
|
888441e8fbb0
patch 8.0.1332: highlighting in quickfix window could be better
Christian Brabandt <cb@256bit.org>
parents:
12531
diff
changeset
|
3458 if (qfSepAttr == 0) |
|
888441e8fbb0
patch 8.0.1332: highlighting in quickfix window could be better
Christian Brabandt <cb@256bit.org>
parents:
12531
diff
changeset
|
3459 qfSepAttr = HL_ATTR(HLF_D); |
|
888441e8fbb0
patch 8.0.1332: highlighting in quickfix window could be better
Christian Brabandt <cb@256bit.org>
parents:
12531
diff
changeset
|
3460 qfLineAttr = syn_name2attr((char_u *)"qfLineNr"); |
|
888441e8fbb0
patch 8.0.1332: highlighting in quickfix window could be better
Christian Brabandt <cb@256bit.org>
parents:
12531
diff
changeset
|
3461 if (qfLineAttr == 0) |
|
888441e8fbb0
patch 8.0.1332: highlighting in quickfix window could be better
Christian Brabandt <cb@256bit.org>
parents:
12531
diff
changeset
|
3462 qfLineAttr = HL_ATTR(HLF_N); |
|
888441e8fbb0
patch 8.0.1332: highlighting in quickfix window could be better
Christian Brabandt <cb@256bit.org>
parents:
12531
diff
changeset
|
3463 |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
3464 if (qfl->qf_nonevalid) |
| 7 | 3465 all = TRUE; |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
3466 qfp = qfl->qf_start; |
|
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
3467 for (i = 1; !got_int && i <= qfl->qf_count; ) |
| 7 | 3468 { |
| 3469 if ((qfp->qf_valid || all) && idx1 <= i && i <= idx2) | |
| 3470 { | |
|
2047
85da03763130
updated for version 7.2.333
Bram Moolenaar <bram@zimbu.org>
parents:
1918
diff
changeset
|
3471 if (got_int) |
|
85da03763130
updated for version 7.2.333
Bram Moolenaar <bram@zimbu.org>
parents:
1918
diff
changeset
|
3472 break; |
| 446 | 3473 |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
3474 qf_list_entry(qfp, i, i == qfl->qf_index); |
| 7 | 3475 } |
| 446 | 3476 |
| 3477 qfp = qfp->qf_next; | |
|
9195
543f068f3706
commit https://github.com/vim/vim/commit/83e6d7ac6a1c2a0cb5ee6c8420a5dc792f1d5ffa
Christian Brabandt <cb@256bit.org>
parents:
9175
diff
changeset
|
3478 if (qfp == NULL) |
|
543f068f3706
commit https://github.com/vim/vim/commit/83e6d7ac6a1c2a0cb5ee6c8420a5dc792f1d5ffa
Christian Brabandt <cb@256bit.org>
parents:
9175
diff
changeset
|
3479 break; |
| 446 | 3480 ++i; |
| 7 | 3481 ui_breakcheck(); |
| 3482 } | |
| 3483 } | |
| 3484 | |
| 3485 /* | |
| 3486 * Remove newlines and leading whitespace from an error message. | |
| 3487 * Put the result in "buf[bufsize]". | |
| 3488 */ | |
| 3489 static void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
3490 qf_fmt_text(char_u *text, char_u *buf, int bufsize) |
| 7 | 3491 { |
| 3492 int i; | |
| 3493 char_u *p = text; | |
| 3494 | |
| 3495 for (i = 0; *p != NUL && i < bufsize - 1; ++i) | |
| 3496 { | |
| 3497 if (*p == '\n') | |
| 3498 { | |
| 3499 buf[i] = ' '; | |
| 3500 while (*++p != NUL) | |
|
11129
f4ea50924c6d
patch 8.0.0452: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents:
11063
diff
changeset
|
3501 if (!VIM_ISWHITE(*p) && *p != '\n') |
| 7 | 3502 break; |
| 3503 } | |
| 3504 else | |
| 3505 buf[i] = *p++; | |
| 3506 } | |
| 3507 buf[i] = NUL; | |
| 3508 } | |
| 3509 | |
|
13868
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
3510 /* |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
3511 * Display information (list number, list size and the title) about a |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
3512 * quickfix/location list. |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
3513 */ |
|
9538
26da1efa9e46
commit https://github.com/vim/vim/commit/f6acffbe83e622542d9fdf3066f51933e46e4954
Christian Brabandt <cb@256bit.org>
parents:
9534
diff
changeset
|
3514 static void |
|
26da1efa9e46
commit https://github.com/vim/vim/commit/f6acffbe83e622542d9fdf3066f51933e46e4954
Christian Brabandt <cb@256bit.org>
parents:
9534
diff
changeset
|
3515 qf_msg(qf_info_T *qi, int which, char *lead) |
|
26da1efa9e46
commit https://github.com/vim/vim/commit/f6acffbe83e622542d9fdf3066f51933e46e4954
Christian Brabandt <cb@256bit.org>
parents:
9534
diff
changeset
|
3516 { |
|
26da1efa9e46
commit https://github.com/vim/vim/commit/f6acffbe83e622542d9fdf3066f51933e46e4954
Christian Brabandt <cb@256bit.org>
parents:
9534
diff
changeset
|
3517 char *title = (char *)qi->qf_lists[which].qf_title; |
|
26da1efa9e46
commit https://github.com/vim/vim/commit/f6acffbe83e622542d9fdf3066f51933e46e4954
Christian Brabandt <cb@256bit.org>
parents:
9534
diff
changeset
|
3518 int count = qi->qf_lists[which].qf_count; |
|
26da1efa9e46
commit https://github.com/vim/vim/commit/f6acffbe83e622542d9fdf3066f51933e46e4954
Christian Brabandt <cb@256bit.org>
parents:
9534
diff
changeset
|
3519 char_u buf[IOSIZE]; |
|
26da1efa9e46
commit https://github.com/vim/vim/commit/f6acffbe83e622542d9fdf3066f51933e46e4954
Christian Brabandt <cb@256bit.org>
parents:
9534
diff
changeset
|
3520 |
|
26da1efa9e46
commit https://github.com/vim/vim/commit/f6acffbe83e622542d9fdf3066f51933e46e4954
Christian Brabandt <cb@256bit.org>
parents:
9534
diff
changeset
|
3521 vim_snprintf((char *)buf, IOSIZE, _("%serror list %d of %d; %d errors "), |
|
26da1efa9e46
commit https://github.com/vim/vim/commit/f6acffbe83e622542d9fdf3066f51933e46e4954
Christian Brabandt <cb@256bit.org>
parents:
9534
diff
changeset
|
3522 lead, |
|
26da1efa9e46
commit https://github.com/vim/vim/commit/f6acffbe83e622542d9fdf3066f51933e46e4954
Christian Brabandt <cb@256bit.org>
parents:
9534
diff
changeset
|
3523 which + 1, |
|
26da1efa9e46
commit https://github.com/vim/vim/commit/f6acffbe83e622542d9fdf3066f51933e46e4954
Christian Brabandt <cb@256bit.org>
parents:
9534
diff
changeset
|
3524 qi->qf_listcount, |
|
26da1efa9e46
commit https://github.com/vim/vim/commit/f6acffbe83e622542d9fdf3066f51933e46e4954
Christian Brabandt <cb@256bit.org>
parents:
9534
diff
changeset
|
3525 count); |
|
26da1efa9e46
commit https://github.com/vim/vim/commit/f6acffbe83e622542d9fdf3066f51933e46e4954
Christian Brabandt <cb@256bit.org>
parents:
9534
diff
changeset
|
3526 |
|
26da1efa9e46
commit https://github.com/vim/vim/commit/f6acffbe83e622542d9fdf3066f51933e46e4954
Christian Brabandt <cb@256bit.org>
parents:
9534
diff
changeset
|
3527 if (title != NULL) |
|
26da1efa9e46
commit https://github.com/vim/vim/commit/f6acffbe83e622542d9fdf3066f51933e46e4954
Christian Brabandt <cb@256bit.org>
parents:
9534
diff
changeset
|
3528 { |
|
9579
2fb7e008ac9b
commit https://github.com/vim/vim/commit/16ec3c9be3fcdc38530bddb12978bc5a7b98c0f6
Christian Brabandt <cb@256bit.org>
parents:
9573
diff
changeset
|
3529 size_t len = STRLEN(buf); |
|
2fb7e008ac9b
commit https://github.com/vim/vim/commit/16ec3c9be3fcdc38530bddb12978bc5a7b98c0f6
Christian Brabandt <cb@256bit.org>
parents:
9573
diff
changeset
|
3530 |
|
2fb7e008ac9b
commit https://github.com/vim/vim/commit/16ec3c9be3fcdc38530bddb12978bc5a7b98c0f6
Christian Brabandt <cb@256bit.org>
parents:
9573
diff
changeset
|
3531 if (len < 34) |
|
2fb7e008ac9b
commit https://github.com/vim/vim/commit/16ec3c9be3fcdc38530bddb12978bc5a7b98c0f6
Christian Brabandt <cb@256bit.org>
parents:
9573
diff
changeset
|
3532 { |
|
2fb7e008ac9b
commit https://github.com/vim/vim/commit/16ec3c9be3fcdc38530bddb12978bc5a7b98c0f6
Christian Brabandt <cb@256bit.org>
parents:
9573
diff
changeset
|
3533 vim_memset(buf + len, ' ', 34 - len); |
|
2fb7e008ac9b
commit https://github.com/vim/vim/commit/16ec3c9be3fcdc38530bddb12978bc5a7b98c0f6
Christian Brabandt <cb@256bit.org>
parents:
9573
diff
changeset
|
3534 buf[34] = NUL; |
|
2fb7e008ac9b
commit https://github.com/vim/vim/commit/16ec3c9be3fcdc38530bddb12978bc5a7b98c0f6
Christian Brabandt <cb@256bit.org>
parents:
9573
diff
changeset
|
3535 } |
|
2fb7e008ac9b
commit https://github.com/vim/vim/commit/16ec3c9be3fcdc38530bddb12978bc5a7b98c0f6
Christian Brabandt <cb@256bit.org>
parents:
9573
diff
changeset
|
3536 vim_strcat(buf, (char_u *)title, IOSIZE); |
|
9538
26da1efa9e46
commit https://github.com/vim/vim/commit/f6acffbe83e622542d9fdf3066f51933e46e4954
Christian Brabandt <cb@256bit.org>
parents:
9534
diff
changeset
|
3537 } |
|
26da1efa9e46
commit https://github.com/vim/vim/commit/f6acffbe83e622542d9fdf3066f51933e46e4954
Christian Brabandt <cb@256bit.org>
parents:
9534
diff
changeset
|
3538 trunc_string(buf, buf, Columns - 1, IOSIZE); |
|
26da1efa9e46
commit https://github.com/vim/vim/commit/f6acffbe83e622542d9fdf3066f51933e46e4954
Christian Brabandt <cb@256bit.org>
parents:
9534
diff
changeset
|
3539 msg(buf); |
|
26da1efa9e46
commit https://github.com/vim/vim/commit/f6acffbe83e622542d9fdf3066f51933e46e4954
Christian Brabandt <cb@256bit.org>
parents:
9534
diff
changeset
|
3540 } |
|
26da1efa9e46
commit https://github.com/vim/vim/commit/f6acffbe83e622542d9fdf3066f51933e46e4954
Christian Brabandt <cb@256bit.org>
parents:
9534
diff
changeset
|
3541 |
| 7 | 3542 /* |
| 3543 * ":colder [count]": Up in the quickfix stack. | |
| 3544 * ":cnewer [count]": Down in the quickfix stack. | |
| 644 | 3545 * ":lolder [count]": Up in the location list stack. |
| 3546 * ":lnewer [count]": Down in the location list stack. | |
| 7 | 3547 */ |
| 3548 void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
3549 qf_age(exarg_T *eap) |
| 7 | 3550 { |
| 644 | 3551 qf_info_T *qi = &ql_info; |
| 7 | 3552 int count; |
| 3553 | |
|
14550
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
3554 if (is_loclist_cmd(eap->cmdidx)) |
| 644 | 3555 { |
| 3556 qi = GET_LOC_LIST(curwin); | |
| 3557 if (qi == NULL) | |
| 3558 { | |
| 3559 EMSG(_(e_loclist)); | |
| 3560 return; | |
| 3561 } | |
| 3562 } | |
| 3563 | |
| 7 | 3564 if (eap->addr_count != 0) |
| 3565 count = eap->line2; | |
| 3566 else | |
| 3567 count = 1; | |
| 3568 while (count--) | |
| 3569 { | |
| 644 | 3570 if (eap->cmdidx == CMD_colder || eap->cmdidx == CMD_lolder) |
| 7 | 3571 { |
| 644 | 3572 if (qi->qf_curlist == 0) |
| 7 | 3573 { |
| 3574 EMSG(_("E380: At bottom of quickfix stack")); | |
| 4371 | 3575 break; |
| 7 | 3576 } |
| 644 | 3577 --qi->qf_curlist; |
| 7 | 3578 } |
| 3579 else | |
| 3580 { | |
| 644 | 3581 if (qi->qf_curlist >= qi->qf_listcount - 1) |
| 7 | 3582 { |
| 3583 EMSG(_("E381: At top of quickfix stack")); | |
| 4371 | 3584 break; |
| 7 | 3585 } |
| 644 | 3586 ++qi->qf_curlist; |
| 7 | 3587 } |
| 3588 } | |
|
9538
26da1efa9e46
commit https://github.com/vim/vim/commit/f6acffbe83e622542d9fdf3066f51933e46e4954
Christian Brabandt <cb@256bit.org>
parents:
9534
diff
changeset
|
3589 qf_msg(qi, qi->qf_curlist, ""); |
|
9175
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
3590 qf_update_buffer(qi, NULL); |
| 7 | 3591 } |
| 3592 | |
|
13868
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
3593 /* |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
3594 * Display the information about all the quickfix/location lists in the stack |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
3595 */ |
|
9538
26da1efa9e46
commit https://github.com/vim/vim/commit/f6acffbe83e622542d9fdf3066f51933e46e4954
Christian Brabandt <cb@256bit.org>
parents:
9534
diff
changeset
|
3596 void |
|
26da1efa9e46
commit https://github.com/vim/vim/commit/f6acffbe83e622542d9fdf3066f51933e46e4954
Christian Brabandt <cb@256bit.org>
parents:
9534
diff
changeset
|
3597 qf_history(exarg_T *eap) |
|
26da1efa9e46
commit https://github.com/vim/vim/commit/f6acffbe83e622542d9fdf3066f51933e46e4954
Christian Brabandt <cb@256bit.org>
parents:
9534
diff
changeset
|
3598 { |
|
26da1efa9e46
commit https://github.com/vim/vim/commit/f6acffbe83e622542d9fdf3066f51933e46e4954
Christian Brabandt <cb@256bit.org>
parents:
9534
diff
changeset
|
3599 qf_info_T *qi = &ql_info; |
|
26da1efa9e46
commit https://github.com/vim/vim/commit/f6acffbe83e622542d9fdf3066f51933e46e4954
Christian Brabandt <cb@256bit.org>
parents:
9534
diff
changeset
|
3600 int i; |
|
26da1efa9e46
commit https://github.com/vim/vim/commit/f6acffbe83e622542d9fdf3066f51933e46e4954
Christian Brabandt <cb@256bit.org>
parents:
9534
diff
changeset
|
3601 |
|
14550
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
3602 if (is_loclist_cmd(eap->cmdidx)) |
|
9538
26da1efa9e46
commit https://github.com/vim/vim/commit/f6acffbe83e622542d9fdf3066f51933e46e4954
Christian Brabandt <cb@256bit.org>
parents:
9534
diff
changeset
|
3603 qi = GET_LOC_LIST(curwin); |
|
26da1efa9e46
commit https://github.com/vim/vim/commit/f6acffbe83e622542d9fdf3066f51933e46e4954
Christian Brabandt <cb@256bit.org>
parents:
9534
diff
changeset
|
3604 if (qi == NULL || (qi->qf_listcount == 0 |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3605 && qf_list_empty(qi, qi->qf_curlist))) |
|
9538
26da1efa9e46
commit https://github.com/vim/vim/commit/f6acffbe83e622542d9fdf3066f51933e46e4954
Christian Brabandt <cb@256bit.org>
parents:
9534
diff
changeset
|
3606 MSG(_("No entries")); |
|
26da1efa9e46
commit https://github.com/vim/vim/commit/f6acffbe83e622542d9fdf3066f51933e46e4954
Christian Brabandt <cb@256bit.org>
parents:
9534
diff
changeset
|
3607 else |
|
26da1efa9e46
commit https://github.com/vim/vim/commit/f6acffbe83e622542d9fdf3066f51933e46e4954
Christian Brabandt <cb@256bit.org>
parents:
9534
diff
changeset
|
3608 for (i = 0; i < qi->qf_listcount; ++i) |
|
26da1efa9e46
commit https://github.com/vim/vim/commit/f6acffbe83e622542d9fdf3066f51933e46e4954
Christian Brabandt <cb@256bit.org>
parents:
9534
diff
changeset
|
3609 qf_msg(qi, i, i == qi->qf_curlist ? "> " : " "); |
|
26da1efa9e46
commit https://github.com/vim/vim/commit/f6acffbe83e622542d9fdf3066f51933e46e4954
Christian Brabandt <cb@256bit.org>
parents:
9534
diff
changeset
|
3610 } |
|
26da1efa9e46
commit https://github.com/vim/vim/commit/f6acffbe83e622542d9fdf3066f51933e46e4954
Christian Brabandt <cb@256bit.org>
parents:
9534
diff
changeset
|
3611 |
| 7 | 3612 /* |
|
11549
f5add45f9848
patch 8.0.0657: cannot get and set quickfix list items
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
3613 * Free all the entries in the error list "idx". Note that other information |
|
f5add45f9848
patch 8.0.0657: cannot get and set quickfix list items
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
3614 * associated with the list like context and title are not freed. |
| 7 | 3615 */ |
| 3616 static void | |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
3617 qf_free_items(qf_list_T *qfl) |
| 7 | 3618 { |
| 230 | 3619 qfline_T *qfp; |
|
9195
543f068f3706
commit https://github.com/vim/vim/commit/83e6d7ac6a1c2a0cb5ee6c8420a5dc792f1d5ffa
Christian Brabandt <cb@256bit.org>
parents:
9175
diff
changeset
|
3620 qfline_T *qfpnext; |
| 3982 | 3621 int stop = FALSE; |
|
11700
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
3622 |
|
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
3623 while (qfl->qf_count && qfl->qf_start != NULL) |
| 7 | 3624 { |
|
11700
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
3625 qfp = qfl->qf_start; |
|
9195
543f068f3706
commit https://github.com/vim/vim/commit/83e6d7ac6a1c2a0cb5ee6c8420a5dc792f1d5ffa
Christian Brabandt <cb@256bit.org>
parents:
9175
diff
changeset
|
3626 qfpnext = qfp->qf_next; |
|
12252
3d0e042ec13c
patch 8.0.1006: quickfix list changes when parsing text with 'erroformat'
Christian Brabandt <cb@256bit.org>
parents:
12146
diff
changeset
|
3627 if (!stop) |
| 3949 | 3628 { |
|
13821
98274127d675
patch 8.0.1782: no simple way to label quickfix entries
Christian Brabandt <cb@256bit.org>
parents:
13819
diff
changeset
|
3629 vim_free(qfp->qf_module); |
|
9195
543f068f3706
commit https://github.com/vim/vim/commit/83e6d7ac6a1c2a0cb5ee6c8420a5dc792f1d5ffa
Christian Brabandt <cb@256bit.org>
parents:
9175
diff
changeset
|
3630 vim_free(qfp->qf_text); |
|
13821
98274127d675
patch 8.0.1782: no simple way to label quickfix entries
Christian Brabandt <cb@256bit.org>
parents:
13819
diff
changeset
|
3631 vim_free(qfp->qf_pattern); |
|
9195
543f068f3706
commit https://github.com/vim/vim/commit/83e6d7ac6a1c2a0cb5ee6c8420a5dc792f1d5ffa
Christian Brabandt <cb@256bit.org>
parents:
9175
diff
changeset
|
3632 stop = (qfp == qfpnext); |
|
543f068f3706
commit https://github.com/vim/vim/commit/83e6d7ac6a1c2a0cb5ee6c8420a5dc792f1d5ffa
Christian Brabandt <cb@256bit.org>
parents:
9175
diff
changeset
|
3633 vim_free(qfp); |
| 3982 | 3634 if (stop) |
| 3635 /* Somehow qf_count may have an incorrect value, set it to 1 | |
| 3636 * to avoid crashing when it's wrong. | |
| 3637 * TODO: Avoid qf_count being incorrect. */ | |
|
11700
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
3638 qfl->qf_count = 1; |
| 3949 | 3639 } |
|
11700
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
3640 qfl->qf_start = qfpnext; |
|
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
3641 --qfl->qf_count; |
| 7 | 3642 } |
|
11549
f5add45f9848
patch 8.0.0657: cannot get and set quickfix list items
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
3643 |
|
11700
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
3644 qfl->qf_index = 0; |
|
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
3645 qfl->qf_start = NULL; |
|
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
3646 qfl->qf_last = NULL; |
|
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
3647 qfl->qf_ptr = NULL; |
|
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
3648 qfl->qf_nonevalid = TRUE; |
|
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
3649 |
|
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
3650 qf_clean_dir_stack(&qfl->qf_dir_stack); |
|
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
3651 qfl->qf_directory = NULL; |
|
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
3652 qf_clean_dir_stack(&qfl->qf_file_stack); |
|
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
3653 qfl->qf_currfile = NULL; |
|
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
3654 qfl->qf_multiline = FALSE; |
|
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
3655 qfl->qf_multiignore = FALSE; |
|
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
3656 qfl->qf_multiscan = FALSE; |
| 7 | 3657 } |
| 3658 | |
| 3659 /* | |
|
11549
f5add45f9848
patch 8.0.0657: cannot get and set quickfix list items
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
3660 * Free error list "idx". Frees all the entries in the quickfix list, |
|
f5add45f9848
patch 8.0.0657: cannot get and set quickfix list items
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
3661 * associated context information and the title. |
|
f5add45f9848
patch 8.0.0657: cannot get and set quickfix list items
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
3662 */ |
|
f5add45f9848
patch 8.0.0657: cannot get and set quickfix list items
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
3663 static void |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
3664 qf_free(qf_list_T *qfl) |
|
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
3665 { |
|
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
3666 qf_free_items(qfl); |
|
11549
f5add45f9848
patch 8.0.0657: cannot get and set quickfix list items
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
3667 |
|
13244
ac42c4b11dbc
patch 8.0.1496: clearing a pointer takes two lines
Christian Brabandt <cb@256bit.org>
parents:
13115
diff
changeset
|
3668 VIM_CLEAR(qfl->qf_title); |
|
11700
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
3669 free_tv(qfl->qf_ctx); |
|
dd821396754e
patch 8.0.0733: can only add entries to one list in the quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11609
diff
changeset
|
3670 qfl->qf_ctx = NULL; |
|
12287
20641a7e1fc9
patch 8.0.1023: it is not easy to identify a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
12252
diff
changeset
|
3671 qfl->qf_id = 0; |
|
13062
6479dadcf214
patch 8.0.1406: difficult to track changes to a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13056
diff
changeset
|
3672 qfl->qf_changedtick = 0L; |
|
11549
f5add45f9848
patch 8.0.0657: cannot get and set quickfix list items
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
3673 } |
|
f5add45f9848
patch 8.0.0657: cannot get and set quickfix list items
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
3674 |
|
f5add45f9848
patch 8.0.0657: cannot get and set quickfix list items
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
3675 /* |
| 7 | 3676 * qf_mark_adjust: adjust marks |
| 3677 */ | |
| 3678 void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
3679 qf_mark_adjust( |
|
12449
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
3680 win_T *wp, |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
3681 linenr_T line1, |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
3682 linenr_T line2, |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
3683 long amount, |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
3684 long amount_after) |
| 7 | 3685 { |
| 230 | 3686 int i; |
| 3687 qfline_T *qfp; | |
| 3688 int idx; | |
| 644 | 3689 qf_info_T *qi = &ql_info; |
|
9201
692e156c7023
commit https://github.com/vim/vim/commit/2f095a4bc4d786e0ac834f48dd18a94fe2d140e3
Christian Brabandt <cb@256bit.org>
parents:
9197
diff
changeset
|
3690 int found_one = FALSE; |
|
9608
fa64afb99dda
commit https://github.com/vim/vim/commit/c1542744e788d96fed24dd421f43009288092504
Christian Brabandt <cb@256bit.org>
parents:
9579
diff
changeset
|
3691 int buf_has_flag = wp == NULL ? BUF_HAS_QF_ENTRY : BUF_HAS_LL_ENTRY; |
|
fa64afb99dda
commit https://github.com/vim/vim/commit/c1542744e788d96fed24dd421f43009288092504
Christian Brabandt <cb@256bit.org>
parents:
9579
diff
changeset
|
3692 |
|
fa64afb99dda
commit https://github.com/vim/vim/commit/c1542744e788d96fed24dd421f43009288092504
Christian Brabandt <cb@256bit.org>
parents:
9579
diff
changeset
|
3693 if (!(curbuf->b_has_qf_entry & buf_has_flag)) |
|
9201
692e156c7023
commit https://github.com/vim/vim/commit/2f095a4bc4d786e0ac834f48dd18a94fe2d140e3
Christian Brabandt <cb@256bit.org>
parents:
9197
diff
changeset
|
3694 return; |
| 644 | 3695 if (wp != NULL) |
| 3696 { | |
| 3697 if (wp->w_llist == NULL) | |
| 3698 return; | |
| 3699 qi = wp->w_llist; | |
| 3700 } | |
| 3701 | |
| 3702 for (idx = 0; idx < qi->qf_listcount; ++idx) | |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3703 if (!qf_list_empty(qi, idx)) |
| 644 | 3704 for (i = 0, qfp = qi->qf_lists[idx].qf_start; |
|
12449
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
3705 i < qi->qf_lists[idx].qf_count && qfp != NULL; |
|
7a743053dfd6
patch 8.0.1104: the qf_jump() function is too long
Christian Brabandt <cb@256bit.org>
parents:
12427
diff
changeset
|
3706 ++i, qfp = qfp->qf_next) |
| 7 | 3707 if (qfp->qf_fnum == curbuf->b_fnum) |
| 3708 { | |
|
9201
692e156c7023
commit https://github.com/vim/vim/commit/2f095a4bc4d786e0ac834f48dd18a94fe2d140e3
Christian Brabandt <cb@256bit.org>
parents:
9197
diff
changeset
|
3709 found_one = TRUE; |
| 7 | 3710 if (qfp->qf_lnum >= line1 && qfp->qf_lnum <= line2) |
| 3711 { | |
| 3712 if (amount == MAXLNUM) | |
| 3713 qfp->qf_cleared = TRUE; | |
| 3714 else | |
| 3715 qfp->qf_lnum += amount; | |
| 3716 } | |
| 3717 else if (amount_after && qfp->qf_lnum > line2) | |
| 3718 qfp->qf_lnum += amount_after; | |
| 3719 } | |
|
9201
692e156c7023
commit https://github.com/vim/vim/commit/2f095a4bc4d786e0ac834f48dd18a94fe2d140e3
Christian Brabandt <cb@256bit.org>
parents:
9197
diff
changeset
|
3720 |
|
692e156c7023
commit https://github.com/vim/vim/commit/2f095a4bc4d786e0ac834f48dd18a94fe2d140e3
Christian Brabandt <cb@256bit.org>
parents:
9197
diff
changeset
|
3721 if (!found_one) |
|
9608
fa64afb99dda
commit https://github.com/vim/vim/commit/c1542744e788d96fed24dd421f43009288092504
Christian Brabandt <cb@256bit.org>
parents:
9579
diff
changeset
|
3722 curbuf->b_has_qf_entry &= ~buf_has_flag; |
| 7 | 3723 } |
| 3724 | |
| 3725 /* | |
| 3726 * Make a nice message out of the error character and the error number: | |
| 3727 * char number message | |
| 3728 * e or E 0 " error" | |
| 3729 * w or W 0 " warning" | |
| 3730 * i or I 0 " info" | |
| 3731 * 0 0 "" | |
| 3732 * other 0 " c" | |
| 3733 * e or E n " error n" | |
| 3734 * w or W n " warning n" | |
| 3735 * i or I n " info n" | |
| 3736 * 0 n " error n" | |
| 3737 * other n " c n" | |
| 3738 * 1 x "" :helpgrep | |
| 3739 */ | |
| 3740 static char_u * | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
3741 qf_types(int c, int nr) |
| 7 | 3742 { |
| 3743 static char_u buf[20]; | |
| 3744 static char_u cc[3]; | |
| 3745 char_u *p; | |
| 3746 | |
| 3747 if (c == 'W' || c == 'w') | |
| 3748 p = (char_u *)" warning"; | |
| 3749 else if (c == 'I' || c == 'i') | |
| 3750 p = (char_u *)" info"; | |
| 3751 else if (c == 'E' || c == 'e' || (c == 0 && nr > 0)) | |
| 3752 p = (char_u *)" error"; | |
| 3753 else if (c == 0 || c == 1) | |
| 3754 p = (char_u *)""; | |
| 3755 else | |
| 3756 { | |
| 3757 cc[0] = ' '; | |
| 3758 cc[1] = c; | |
| 3759 cc[2] = NUL; | |
| 3760 p = cc; | |
| 3761 } | |
| 3762 | |
| 3763 if (nr <= 0) | |
| 3764 return p; | |
| 3765 | |
| 3766 sprintf((char *)buf, "%s %3d", (char *)p, nr); | |
| 3767 return buf; | |
| 3768 } | |
| 3769 | |
| 3770 /* | |
|
14397
19d99d9e670c
patch 8.1.0213: CTRL-W CR does not work properly in a quickfix window
Christian Brabandt <cb@256bit.org>
parents:
14307
diff
changeset
|
3771 * When "split" is FALSE: Open the entry/result under the cursor. |
|
19d99d9e670c
patch 8.1.0213: CTRL-W CR does not work properly in a quickfix window
Christian Brabandt <cb@256bit.org>
parents:
14307
diff
changeset
|
3772 * When "split" is TRUE: Open the entry/result under the cursor in a new window. |
|
19d99d9e670c
patch 8.1.0213: CTRL-W CR does not work properly in a quickfix window
Christian Brabandt <cb@256bit.org>
parents:
14307
diff
changeset
|
3773 */ |
|
19d99d9e670c
patch 8.1.0213: CTRL-W CR does not work properly in a quickfix window
Christian Brabandt <cb@256bit.org>
parents:
14307
diff
changeset
|
3774 void |
|
19d99d9e670c
patch 8.1.0213: CTRL-W CR does not work properly in a quickfix window
Christian Brabandt <cb@256bit.org>
parents:
14307
diff
changeset
|
3775 qf_view_result(int split) |
|
19d99d9e670c
patch 8.1.0213: CTRL-W CR does not work properly in a quickfix window
Christian Brabandt <cb@256bit.org>
parents:
14307
diff
changeset
|
3776 { |
|
19d99d9e670c
patch 8.1.0213: CTRL-W CR does not work properly in a quickfix window
Christian Brabandt <cb@256bit.org>
parents:
14307
diff
changeset
|
3777 qf_info_T *qi = &ql_info; |
|
19d99d9e670c
patch 8.1.0213: CTRL-W CR does not work properly in a quickfix window
Christian Brabandt <cb@256bit.org>
parents:
14307
diff
changeset
|
3778 |
|
19d99d9e670c
patch 8.1.0213: CTRL-W CR does not work properly in a quickfix window
Christian Brabandt <cb@256bit.org>
parents:
14307
diff
changeset
|
3779 if (!bt_quickfix(curbuf)) |
|
19d99d9e670c
patch 8.1.0213: CTRL-W CR does not work properly in a quickfix window
Christian Brabandt <cb@256bit.org>
parents:
14307
diff
changeset
|
3780 return; |
|
19d99d9e670c
patch 8.1.0213: CTRL-W CR does not work properly in a quickfix window
Christian Brabandt <cb@256bit.org>
parents:
14307
diff
changeset
|
3781 |
|
19d99d9e670c
patch 8.1.0213: CTRL-W CR does not work properly in a quickfix window
Christian Brabandt <cb@256bit.org>
parents:
14307
diff
changeset
|
3782 if (IS_LL_WINDOW(curwin)) |
|
19d99d9e670c
patch 8.1.0213: CTRL-W CR does not work properly in a quickfix window
Christian Brabandt <cb@256bit.org>
parents:
14307
diff
changeset
|
3783 qi = GET_LOC_LIST(curwin); |
|
19d99d9e670c
patch 8.1.0213: CTRL-W CR does not work properly in a quickfix window
Christian Brabandt <cb@256bit.org>
parents:
14307
diff
changeset
|
3784 |
|
14491
9df0fcbfebb2
patch 8.1.0259: no test for fixed quickfix issue
Christian Brabandt <cb@256bit.org>
parents:
14477
diff
changeset
|
3785 if (qf_list_empty(qi, qi->qf_curlist)) |
|
14397
19d99d9e670c
patch 8.1.0213: CTRL-W CR does not work properly in a quickfix window
Christian Brabandt <cb@256bit.org>
parents:
14307
diff
changeset
|
3786 { |
|
19d99d9e670c
patch 8.1.0213: CTRL-W CR does not work properly in a quickfix window
Christian Brabandt <cb@256bit.org>
parents:
14307
diff
changeset
|
3787 EMSG(_(e_quickfix)); |
|
19d99d9e670c
patch 8.1.0213: CTRL-W CR does not work properly in a quickfix window
Christian Brabandt <cb@256bit.org>
parents:
14307
diff
changeset
|
3788 return; |
|
19d99d9e670c
patch 8.1.0213: CTRL-W CR does not work properly in a quickfix window
Christian Brabandt <cb@256bit.org>
parents:
14307
diff
changeset
|
3789 } |
|
19d99d9e670c
patch 8.1.0213: CTRL-W CR does not work properly in a quickfix window
Christian Brabandt <cb@256bit.org>
parents:
14307
diff
changeset
|
3790 |
|
19d99d9e670c
patch 8.1.0213: CTRL-W CR does not work properly in a quickfix window
Christian Brabandt <cb@256bit.org>
parents:
14307
diff
changeset
|
3791 if (split) |
|
19d99d9e670c
patch 8.1.0213: CTRL-W CR does not work properly in a quickfix window
Christian Brabandt <cb@256bit.org>
parents:
14307
diff
changeset
|
3792 { |
|
19d99d9e670c
patch 8.1.0213: CTRL-W CR does not work properly in a quickfix window
Christian Brabandt <cb@256bit.org>
parents:
14307
diff
changeset
|
3793 char_u cmd[32]; |
|
19d99d9e670c
patch 8.1.0213: CTRL-W CR does not work properly in a quickfix window
Christian Brabandt <cb@256bit.org>
parents:
14307
diff
changeset
|
3794 |
|
19d99d9e670c
patch 8.1.0213: CTRL-W CR does not work properly in a quickfix window
Christian Brabandt <cb@256bit.org>
parents:
14307
diff
changeset
|
3795 vim_snprintf((char *)cmd, sizeof(cmd), "split +%ld%s", |
|
19d99d9e670c
patch 8.1.0213: CTRL-W CR does not work properly in a quickfix window
Christian Brabandt <cb@256bit.org>
parents:
14307
diff
changeset
|
3796 (long)curwin->w_cursor.lnum, |
|
19d99d9e670c
patch 8.1.0213: CTRL-W CR does not work properly in a quickfix window
Christian Brabandt <cb@256bit.org>
parents:
14307
diff
changeset
|
3797 IS_LL_WINDOW(curwin) ? "ll" : "cc"); |
|
19d99d9e670c
patch 8.1.0213: CTRL-W CR does not work properly in a quickfix window
Christian Brabandt <cb@256bit.org>
parents:
14307
diff
changeset
|
3798 if (do_cmdline_cmd(cmd) == OK) |
|
19d99d9e670c
patch 8.1.0213: CTRL-W CR does not work properly in a quickfix window
Christian Brabandt <cb@256bit.org>
parents:
14307
diff
changeset
|
3799 do_cmdline_cmd((char_u *) "clearjumps"); |
|
19d99d9e670c
patch 8.1.0213: CTRL-W CR does not work properly in a quickfix window
Christian Brabandt <cb@256bit.org>
parents:
14307
diff
changeset
|
3800 return; |
|
19d99d9e670c
patch 8.1.0213: CTRL-W CR does not work properly in a quickfix window
Christian Brabandt <cb@256bit.org>
parents:
14307
diff
changeset
|
3801 } |
|
19d99d9e670c
patch 8.1.0213: CTRL-W CR does not work properly in a quickfix window
Christian Brabandt <cb@256bit.org>
parents:
14307
diff
changeset
|
3802 |
|
19d99d9e670c
patch 8.1.0213: CTRL-W CR does not work properly in a quickfix window
Christian Brabandt <cb@256bit.org>
parents:
14307
diff
changeset
|
3803 do_cmdline_cmd((char_u *)(IS_LL_WINDOW(curwin) ? ".ll" : ".cc")); |
|
19d99d9e670c
patch 8.1.0213: CTRL-W CR does not work properly in a quickfix window
Christian Brabandt <cb@256bit.org>
parents:
14307
diff
changeset
|
3804 } |
|
19d99d9e670c
patch 8.1.0213: CTRL-W CR does not work properly in a quickfix window
Christian Brabandt <cb@256bit.org>
parents:
14307
diff
changeset
|
3805 |
|
19d99d9e670c
patch 8.1.0213: CTRL-W CR does not work properly in a quickfix window
Christian Brabandt <cb@256bit.org>
parents:
14307
diff
changeset
|
3806 /* |
| 7 | 3807 * ":cwindow": open the quickfix window if we have errors to display, |
| 3808 * close it if not. | |
| 644 | 3809 * ":lwindow": open the location list window if we have locations to display, |
| 3810 * close it if not. | |
| 7 | 3811 */ |
| 3812 void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
3813 ex_cwindow(exarg_T *eap) |
| 7 | 3814 { |
| 644 | 3815 qf_info_T *qi = &ql_info; |
| 7 | 3816 win_T *win; |
| 3817 | |
|
14550
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
3818 if (is_loclist_cmd(eap->cmdidx)) |
| 644 | 3819 { |
| 3820 qi = GET_LOC_LIST(curwin); | |
| 3821 if (qi == NULL) | |
| 3822 return; | |
| 3823 } | |
| 3824 | |
| 3825 /* Look for an existing quickfix window. */ | |
| 3826 win = qf_find_win(qi); | |
| 7 | 3827 |
| 3828 /* | |
| 3829 * If a quickfix window is open but we have no errors to display, | |
| 3830 * close the window. If a quickfix window is not open, then open | |
| 3831 * it if we have errors; otherwise, leave it closed. | |
| 3832 */ | |
| 644 | 3833 if (qi->qf_lists[qi->qf_curlist].qf_nonevalid |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
3834 || qf_list_empty(qi, qi->qf_curlist) |
| 857 | 3835 || qi->qf_curlist >= qi->qf_listcount) |
| 7 | 3836 { |
| 3837 if (win != NULL) | |
| 3838 ex_cclose(eap); | |
| 3839 } | |
| 3840 else if (win == NULL) | |
| 3841 ex_copen(eap); | |
| 3842 } | |
| 3843 | |
| 3844 /* | |
| 3845 * ":cclose": close the window showing the list of errors. | |
| 644 | 3846 * ":lclose": close the window showing the location list |
| 7 | 3847 */ |
| 3848 void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
3849 ex_cclose(exarg_T *eap) |
| 7 | 3850 { |
| 644 | 3851 win_T *win = NULL; |
| 3852 qf_info_T *qi = &ql_info; | |
| 3853 | |
|
14550
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
3854 if (is_loclist_cmd(eap->cmdidx)) |
| 644 | 3855 { |
| 3856 qi = GET_LOC_LIST(curwin); | |
| 3857 if (qi == NULL) | |
| 3858 return; | |
| 3859 } | |
| 3860 | |
| 3861 /* Find existing quickfix window and close it. */ | |
| 3862 win = qf_find_win(qi); | |
| 7 | 3863 if (win != NULL) |
| 3864 win_close(win, FALSE); | |
| 3865 } | |
| 3866 | |
| 3867 /* | |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
3868 * Set "w:quickfix_title" if "qi" has a title. |
|
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
3869 */ |
|
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
3870 static void |
|
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
3871 qf_set_title_var(qf_list_T *qfl) |
|
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
3872 { |
|
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
3873 if (qfl->qf_title != NULL) |
|
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
3874 set_internal_string_var((char_u *)"w:quickfix_title", qfl->qf_title); |
|
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
3875 } |
|
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
3876 |
|
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
3877 /* |
|
14796
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3878 * Goto a quickfix or location list window (if present). |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3879 * Returns OK if the window is found, FAIL otherwise. |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3880 */ |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3881 static int |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3882 qf_goto_cwindow(qf_info_T *qi, int resize, int sz, int vertsplit) |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3883 { |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3884 win_T *win; |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3885 |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3886 win = qf_find_win(qi); |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3887 if (win == NULL) |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3888 return FAIL; |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3889 |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3890 win_goto(win); |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3891 if (resize) |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3892 { |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3893 if (vertsplit) |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3894 { |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3895 if (sz != win->w_width) |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3896 win_setwidth(sz); |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3897 } |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3898 else if (sz != win->w_height) |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3899 win_setheight(sz); |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3900 } |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3901 |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3902 return OK; |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3903 } |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3904 |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3905 /* |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3906 * Open a new quickfix or location list window, load the quickfix buffer and |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3907 * set the appropriate options for the window. |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3908 * Returns FAIL if the window could not be opened. |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3909 */ |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3910 static int |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3911 qf_open_new_cwindow(qf_info_T *qi, int height) |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3912 { |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3913 buf_T *qf_buf; |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3914 win_T *oldwin = curwin; |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3915 tabpage_T *prevtab = curtab; |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3916 int flags = 0; |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3917 win_T *win; |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3918 |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3919 qf_buf = qf_find_buf(qi); |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3920 |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3921 // The current window becomes the previous window afterwards. |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3922 win = curwin; |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3923 |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3924 if (IS_QF_STACK(qi) && cmdmod.split == 0) |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3925 // Create the new quickfix window at the very bottom, except when |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3926 // :belowright or :aboveleft is used. |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3927 win_goto(lastwin); |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3928 // Default is to open the window below the current window |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3929 if (cmdmod.split == 0) |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3930 flags = WSP_BELOW; |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3931 flags |= WSP_NEWLOC; |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3932 if (win_split(height, flags) == FAIL) |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3933 return FAIL; // not enough room for window |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3934 RESET_BINDING(curwin); |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3935 |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3936 if (IS_LL_STACK(qi)) |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3937 { |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3938 // For the location list window, create a reference to the |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3939 // location list from the window 'win'. |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3940 curwin->w_llist_ref = win->w_llist; |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3941 win->w_llist->qf_refcount++; |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3942 } |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3943 |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3944 if (oldwin != curwin) |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3945 oldwin = NULL; // don't store info when in another window |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3946 if (qf_buf != NULL) |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3947 { |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3948 // Use the existing quickfix buffer |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3949 (void)do_ecmd(qf_buf->b_fnum, NULL, NULL, NULL, ECMD_ONE, |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3950 ECMD_HIDE + ECMD_OLDBUF, oldwin); |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3951 } |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3952 else |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3953 { |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3954 // Create a new quickfix buffer |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3955 (void)do_ecmd(0, NULL, NULL, NULL, ECMD_ONE, ECMD_HIDE, oldwin); |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3956 |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3957 // switch off 'swapfile' |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3958 set_option_value((char_u *)"swf", 0L, NULL, OPT_LOCAL); |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3959 set_option_value((char_u *)"bt", 0L, (char_u *)"quickfix", |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3960 OPT_LOCAL); |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3961 set_option_value((char_u *)"bh", 0L, (char_u *)"wipe", OPT_LOCAL); |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3962 RESET_BINDING(curwin); |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3963 #ifdef FEAT_DIFF |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3964 curwin->w_p_diff = FALSE; |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3965 #endif |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3966 #ifdef FEAT_FOLDING |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3967 set_option_value((char_u *)"fdm", 0L, (char_u *)"manual", |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3968 OPT_LOCAL); |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3969 #endif |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3970 } |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3971 |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3972 // Only set the height when still in the same tab page and there is no |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3973 // window to the side. |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3974 if (curtab == prevtab && curwin->w_width == Columns) |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3975 win_setheight(height); |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3976 curwin->w_p_wfh = TRUE; // set 'winfixheight' |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3977 if (win_valid(win)) |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3978 prevwin = win; |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3979 |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3980 return OK; |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3981 } |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3982 |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3983 /* |
| 7 | 3984 * ":copen": open a window that shows the list of errors. |
| 644 | 3985 * ":lopen": open a window that shows the location list. |
| 7 | 3986 */ |
| 3987 void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
3988 ex_copen(exarg_T *eap) |
| 7 | 3989 { |
| 644 | 3990 qf_info_T *qi = &ql_info; |
| 7 | 3991 int height; |
|
14796
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
3992 int status = FAIL; |
| 7 | 3993 |
|
14550
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
3994 if (is_loclist_cmd(eap->cmdidx)) |
| 644 | 3995 { |
| 3996 qi = GET_LOC_LIST(curwin); | |
| 3997 if (qi == NULL) | |
| 3998 { | |
| 3999 EMSG(_(e_loclist)); | |
| 4000 return; | |
| 4001 } | |
| 4002 } | |
| 4003 | |
| 7 | 4004 if (eap->addr_count != 0) |
| 4005 height = eap->line2; | |
| 4006 else | |
| 4007 height = QF_WINHEIGHT; | |
| 4008 | |
|
14796
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
4009 reset_VIsual_and_resel(); // stop Visual mode |
| 7 | 4010 #ifdef FEAT_GUI |
| 4011 need_mouse_correct = TRUE; | |
| 4012 #endif | |
| 4013 | |
|
14796
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
4014 // Find an existing quickfix window, or open a new one. |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
4015 if (cmdmod.tab == 0) |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
4016 status = qf_goto_cwindow(qi, eap->addr_count != 0, height, |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
4017 cmdmod.split & WSP_VERT); |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
4018 if (status == FAIL) |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
4019 if (qf_open_new_cwindow(qi, height) == FAIL) |
|
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
4020 return; |
| 7 | 4021 |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
4022 qf_set_title_var(&qi->qf_lists[qi->qf_curlist]); |
| 6793 | 4023 |
|
14796
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
4024 // Fill the buffer with the quickfix list. |
|
9175
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4025 qf_fill_buffer(qi, curbuf, NULL); |
| 644 | 4026 |
| 4027 curwin->w_cursor.lnum = qi->qf_lists[qi->qf_curlist].qf_index; | |
| 7 | 4028 curwin->w_cursor.col = 0; |
| 4029 check_cursor(); | |
|
14796
74fd69162d50
patch 8.1.0410: the ex_copen() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14790
diff
changeset
|
4030 update_topline(); // scroll to show the line |
| 7 | 4031 } |
| 4032 | |
| 4033 /* | |
|
9432
abb72f0b9e06
commit https://github.com/vim/vim/commit/dcb170018642ec144cd87d9d9fe076575b8d1263
Christian Brabandt <cb@256bit.org>
parents:
9397
diff
changeset
|
4034 * Move the cursor in the quickfix window to "lnum". |
|
abb72f0b9e06
commit https://github.com/vim/vim/commit/dcb170018642ec144cd87d9d9fe076575b8d1263
Christian Brabandt <cb@256bit.org>
parents:
9397
diff
changeset
|
4035 */ |
|
abb72f0b9e06
commit https://github.com/vim/vim/commit/dcb170018642ec144cd87d9d9fe076575b8d1263
Christian Brabandt <cb@256bit.org>
parents:
9397
diff
changeset
|
4036 static void |
|
abb72f0b9e06
commit https://github.com/vim/vim/commit/dcb170018642ec144cd87d9d9fe076575b8d1263
Christian Brabandt <cb@256bit.org>
parents:
9397
diff
changeset
|
4037 qf_win_goto(win_T *win, linenr_T lnum) |
|
abb72f0b9e06
commit https://github.com/vim/vim/commit/dcb170018642ec144cd87d9d9fe076575b8d1263
Christian Brabandt <cb@256bit.org>
parents:
9397
diff
changeset
|
4038 { |
|
abb72f0b9e06
commit https://github.com/vim/vim/commit/dcb170018642ec144cd87d9d9fe076575b8d1263
Christian Brabandt <cb@256bit.org>
parents:
9397
diff
changeset
|
4039 win_T *old_curwin = curwin; |
|
abb72f0b9e06
commit https://github.com/vim/vim/commit/dcb170018642ec144cd87d9d9fe076575b8d1263
Christian Brabandt <cb@256bit.org>
parents:
9397
diff
changeset
|
4040 |
|
abb72f0b9e06
commit https://github.com/vim/vim/commit/dcb170018642ec144cd87d9d9fe076575b8d1263
Christian Brabandt <cb@256bit.org>
parents:
9397
diff
changeset
|
4041 curwin = win; |
|
abb72f0b9e06
commit https://github.com/vim/vim/commit/dcb170018642ec144cd87d9d9fe076575b8d1263
Christian Brabandt <cb@256bit.org>
parents:
9397
diff
changeset
|
4042 curbuf = win->w_buffer; |
|
abb72f0b9e06
commit https://github.com/vim/vim/commit/dcb170018642ec144cd87d9d9fe076575b8d1263
Christian Brabandt <cb@256bit.org>
parents:
9397
diff
changeset
|
4043 curwin->w_cursor.lnum = lnum; |
|
abb72f0b9e06
commit https://github.com/vim/vim/commit/dcb170018642ec144cd87d9d9fe076575b8d1263
Christian Brabandt <cb@256bit.org>
parents:
9397
diff
changeset
|
4044 curwin->w_cursor.col = 0; |
|
abb72f0b9e06
commit https://github.com/vim/vim/commit/dcb170018642ec144cd87d9d9fe076575b8d1263
Christian Brabandt <cb@256bit.org>
parents:
9397
diff
changeset
|
4045 #ifdef FEAT_VIRTUALEDIT |
|
abb72f0b9e06
commit https://github.com/vim/vim/commit/dcb170018642ec144cd87d9d9fe076575b8d1263
Christian Brabandt <cb@256bit.org>
parents:
9397
diff
changeset
|
4046 curwin->w_cursor.coladd = 0; |
|
abb72f0b9e06
commit https://github.com/vim/vim/commit/dcb170018642ec144cd87d9d9fe076575b8d1263
Christian Brabandt <cb@256bit.org>
parents:
9397
diff
changeset
|
4047 #endif |
|
abb72f0b9e06
commit https://github.com/vim/vim/commit/dcb170018642ec144cd87d9d9fe076575b8d1263
Christian Brabandt <cb@256bit.org>
parents:
9397
diff
changeset
|
4048 curwin->w_curswant = 0; |
|
abb72f0b9e06
commit https://github.com/vim/vim/commit/dcb170018642ec144cd87d9d9fe076575b8d1263
Christian Brabandt <cb@256bit.org>
parents:
9397
diff
changeset
|
4049 update_topline(); /* scroll to show the line */ |
|
abb72f0b9e06
commit https://github.com/vim/vim/commit/dcb170018642ec144cd87d9d9fe076575b8d1263
Christian Brabandt <cb@256bit.org>
parents:
9397
diff
changeset
|
4050 redraw_later(VALID); |
|
abb72f0b9e06
commit https://github.com/vim/vim/commit/dcb170018642ec144cd87d9d9fe076575b8d1263
Christian Brabandt <cb@256bit.org>
parents:
9397
diff
changeset
|
4051 curwin->w_redr_status = TRUE; /* update ruler */ |
|
abb72f0b9e06
commit https://github.com/vim/vim/commit/dcb170018642ec144cd87d9d9fe076575b8d1263
Christian Brabandt <cb@256bit.org>
parents:
9397
diff
changeset
|
4052 curwin = old_curwin; |
|
abb72f0b9e06
commit https://github.com/vim/vim/commit/dcb170018642ec144cd87d9d9fe076575b8d1263
Christian Brabandt <cb@256bit.org>
parents:
9397
diff
changeset
|
4053 curbuf = curwin->w_buffer; |
|
abb72f0b9e06
commit https://github.com/vim/vim/commit/dcb170018642ec144cd87d9d9fe076575b8d1263
Christian Brabandt <cb@256bit.org>
parents:
9397
diff
changeset
|
4054 } |
|
abb72f0b9e06
commit https://github.com/vim/vim/commit/dcb170018642ec144cd87d9d9fe076575b8d1263
Christian Brabandt <cb@256bit.org>
parents:
9397
diff
changeset
|
4055 |
|
abb72f0b9e06
commit https://github.com/vim/vim/commit/dcb170018642ec144cd87d9d9fe076575b8d1263
Christian Brabandt <cb@256bit.org>
parents:
9397
diff
changeset
|
4056 /* |
|
9458
374afcf9d11d
commit https://github.com/vim/vim/commit/537ef08408c50e0c4104d57f74993b3b0ed9560d
Christian Brabandt <cb@256bit.org>
parents:
9432
diff
changeset
|
4057 * :cbottom/:lbottom commands. |
|
9432
abb72f0b9e06
commit https://github.com/vim/vim/commit/dcb170018642ec144cd87d9d9fe076575b8d1263
Christian Brabandt <cb@256bit.org>
parents:
9397
diff
changeset
|
4058 */ |
|
abb72f0b9e06
commit https://github.com/vim/vim/commit/dcb170018642ec144cd87d9d9fe076575b8d1263
Christian Brabandt <cb@256bit.org>
parents:
9397
diff
changeset
|
4059 void |
|
14550
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4060 ex_cbottom(exarg_T *eap) |
|
9432
abb72f0b9e06
commit https://github.com/vim/vim/commit/dcb170018642ec144cd87d9d9fe076575b8d1263
Christian Brabandt <cb@256bit.org>
parents:
9397
diff
changeset
|
4061 { |
|
9458
374afcf9d11d
commit https://github.com/vim/vim/commit/537ef08408c50e0c4104d57f74993b3b0ed9560d
Christian Brabandt <cb@256bit.org>
parents:
9432
diff
changeset
|
4062 qf_info_T *qi = &ql_info; |
|
374afcf9d11d
commit https://github.com/vim/vim/commit/537ef08408c50e0c4104d57f74993b3b0ed9560d
Christian Brabandt <cb@256bit.org>
parents:
9432
diff
changeset
|
4063 win_T *win; |
|
374afcf9d11d
commit https://github.com/vim/vim/commit/537ef08408c50e0c4104d57f74993b3b0ed9560d
Christian Brabandt <cb@256bit.org>
parents:
9432
diff
changeset
|
4064 |
|
14550
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4065 if (is_loclist_cmd(eap->cmdidx)) |
|
9458
374afcf9d11d
commit https://github.com/vim/vim/commit/537ef08408c50e0c4104d57f74993b3b0ed9560d
Christian Brabandt <cb@256bit.org>
parents:
9432
diff
changeset
|
4066 { |
|
374afcf9d11d
commit https://github.com/vim/vim/commit/537ef08408c50e0c4104d57f74993b3b0ed9560d
Christian Brabandt <cb@256bit.org>
parents:
9432
diff
changeset
|
4067 qi = GET_LOC_LIST(curwin); |
|
374afcf9d11d
commit https://github.com/vim/vim/commit/537ef08408c50e0c4104d57f74993b3b0ed9560d
Christian Brabandt <cb@256bit.org>
parents:
9432
diff
changeset
|
4068 if (qi == NULL) |
|
374afcf9d11d
commit https://github.com/vim/vim/commit/537ef08408c50e0c4104d57f74993b3b0ed9560d
Christian Brabandt <cb@256bit.org>
parents:
9432
diff
changeset
|
4069 { |
|
374afcf9d11d
commit https://github.com/vim/vim/commit/537ef08408c50e0c4104d57f74993b3b0ed9560d
Christian Brabandt <cb@256bit.org>
parents:
9432
diff
changeset
|
4070 EMSG(_(e_loclist)); |
|
374afcf9d11d
commit https://github.com/vim/vim/commit/537ef08408c50e0c4104d57f74993b3b0ed9560d
Christian Brabandt <cb@256bit.org>
parents:
9432
diff
changeset
|
4071 return; |
|
374afcf9d11d
commit https://github.com/vim/vim/commit/537ef08408c50e0c4104d57f74993b3b0ed9560d
Christian Brabandt <cb@256bit.org>
parents:
9432
diff
changeset
|
4072 } |
|
374afcf9d11d
commit https://github.com/vim/vim/commit/537ef08408c50e0c4104d57f74993b3b0ed9560d
Christian Brabandt <cb@256bit.org>
parents:
9432
diff
changeset
|
4073 } |
|
374afcf9d11d
commit https://github.com/vim/vim/commit/537ef08408c50e0c4104d57f74993b3b0ed9560d
Christian Brabandt <cb@256bit.org>
parents:
9432
diff
changeset
|
4074 |
|
374afcf9d11d
commit https://github.com/vim/vim/commit/537ef08408c50e0c4104d57f74993b3b0ed9560d
Christian Brabandt <cb@256bit.org>
parents:
9432
diff
changeset
|
4075 win = qf_find_win(qi); |
|
9432
abb72f0b9e06
commit https://github.com/vim/vim/commit/dcb170018642ec144cd87d9d9fe076575b8d1263
Christian Brabandt <cb@256bit.org>
parents:
9397
diff
changeset
|
4076 if (win != NULL && win->w_cursor.lnum != win->w_buffer->b_ml.ml_line_count) |
|
abb72f0b9e06
commit https://github.com/vim/vim/commit/dcb170018642ec144cd87d9d9fe076575b8d1263
Christian Brabandt <cb@256bit.org>
parents:
9397
diff
changeset
|
4077 qf_win_goto(win, win->w_buffer->b_ml.ml_line_count); |
|
abb72f0b9e06
commit https://github.com/vim/vim/commit/dcb170018642ec144cd87d9d9fe076575b8d1263
Christian Brabandt <cb@256bit.org>
parents:
9397
diff
changeset
|
4078 } |
|
abb72f0b9e06
commit https://github.com/vim/vim/commit/dcb170018642ec144cd87d9d9fe076575b8d1263
Christian Brabandt <cb@256bit.org>
parents:
9397
diff
changeset
|
4079 |
|
abb72f0b9e06
commit https://github.com/vim/vim/commit/dcb170018642ec144cd87d9d9fe076575b8d1263
Christian Brabandt <cb@256bit.org>
parents:
9397
diff
changeset
|
4080 /* |
| 7 | 4081 * Return the number of the current entry (line number in the quickfix |
| 4082 * window). | |
| 4083 */ | |
| 4084 linenr_T | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
4085 qf_current_entry(win_T *wp) |
| 7 | 4086 { |
| 644 | 4087 qf_info_T *qi = &ql_info; |
| 4088 | |
| 4089 if (IS_LL_WINDOW(wp)) | |
| 4090 /* In the location list window, use the referenced location list */ | |
| 4091 qi = wp->w_llist_ref; | |
| 4092 | |
| 4093 return qi->qf_lists[qi->qf_curlist].qf_index; | |
| 7 | 4094 } |
| 4095 | |
| 4096 /* | |
| 4097 * Update the cursor position in the quickfix window to the current error. | |
| 4098 * Return TRUE if there is a quickfix window. | |
| 4099 */ | |
| 4100 static int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
4101 qf_win_pos_update( |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
4102 qf_info_T *qi, |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
4103 int old_qf_index) /* previous qf_index or zero */ |
| 7 | 4104 { |
| 4105 win_T *win; | |
| 644 | 4106 int qf_index = qi->qf_lists[qi->qf_curlist].qf_index; |
| 7 | 4107 |
| 4108 /* | |
| 4109 * Put the cursor on the current error in the quickfix window, so that | |
| 4110 * it's viewable. | |
| 4111 */ | |
| 644 | 4112 win = qf_find_win(qi); |
| 7 | 4113 if (win != NULL |
| 4114 && qf_index <= win->w_buffer->b_ml.ml_line_count | |
| 4115 && old_qf_index != qf_index) | |
| 4116 { | |
| 4117 if (qf_index > old_qf_index) | |
| 4118 { | |
|
9432
abb72f0b9e06
commit https://github.com/vim/vim/commit/dcb170018642ec144cd87d9d9fe076575b8d1263
Christian Brabandt <cb@256bit.org>
parents:
9397
diff
changeset
|
4119 win->w_redraw_top = old_qf_index; |
|
abb72f0b9e06
commit https://github.com/vim/vim/commit/dcb170018642ec144cd87d9d9fe076575b8d1263
Christian Brabandt <cb@256bit.org>
parents:
9397
diff
changeset
|
4120 win->w_redraw_bot = qf_index; |
| 7 | 4121 } |
| 4122 else | |
| 4123 { | |
|
9432
abb72f0b9e06
commit https://github.com/vim/vim/commit/dcb170018642ec144cd87d9d9fe076575b8d1263
Christian Brabandt <cb@256bit.org>
parents:
9397
diff
changeset
|
4124 win->w_redraw_top = qf_index; |
|
abb72f0b9e06
commit https://github.com/vim/vim/commit/dcb170018642ec144cd87d9d9fe076575b8d1263
Christian Brabandt <cb@256bit.org>
parents:
9397
diff
changeset
|
4125 win->w_redraw_bot = old_qf_index; |
| 7 | 4126 } |
|
9432
abb72f0b9e06
commit https://github.com/vim/vim/commit/dcb170018642ec144cd87d9d9fe076575b8d1263
Christian Brabandt <cb@256bit.org>
parents:
9397
diff
changeset
|
4127 qf_win_goto(win, qf_index); |
| 7 | 4128 } |
| 4129 return win != NULL; | |
| 4130 } | |
| 4131 | |
| 4132 /* | |
| 859 | 4133 * Check whether the given window is displaying the specified quickfix/location |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
4134 * stack. |
| 859 | 4135 */ |
| 4136 static int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
4137 is_qf_win(win_T *win, qf_info_T *qi) |
| 859 | 4138 { |
| 4139 /* | |
| 4140 * A window displaying the quickfix buffer will have the w_llist_ref field | |
| 4141 * set to NULL. | |
| 4142 * A window displaying a location list buffer will have the w_llist_ref | |
| 4143 * pointing to the location list. | |
| 4144 */ | |
| 4145 if (bt_quickfix(win->w_buffer)) | |
|
14560
8413e66d00a1
patch 8.1.0293: checks for type of stack is cryptic
Christian Brabandt <cb@256bit.org>
parents:
14552
diff
changeset
|
4146 if ((IS_QF_STACK(qi) && win->w_llist_ref == NULL) |
|
8413e66d00a1
patch 8.1.0293: checks for type of stack is cryptic
Christian Brabandt <cb@256bit.org>
parents:
14552
diff
changeset
|
4147 || (IS_LL_STACK(qi) && win->w_llist_ref == qi)) |
| 859 | 4148 return TRUE; |
| 4149 | |
| 4150 return FALSE; | |
| 4151 } | |
| 4152 | |
| 4153 /* | |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
4154 * Find a window displaying the quickfix/location stack 'qi' |
|
13115
9812a9ca3ab2
patch 8.0.1432: after ":copen" can't get the window-ID of the quickfix window
Christian Brabandt <cb@256bit.org>
parents:
13105
diff
changeset
|
4155 * Only searches in the current tabpage. |
| 644 | 4156 */ |
| 4157 static win_T * | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
4158 qf_find_win(qf_info_T *qi) |
| 644 | 4159 { |
| 4160 win_T *win; | |
| 4161 | |
| 4162 FOR_ALL_WINDOWS(win) | |
| 859 | 4163 if (is_qf_win(win, qi)) |
|
13115
9812a9ca3ab2
patch 8.0.1432: after ":copen" can't get the window-ID of the quickfix window
Christian Brabandt <cb@256bit.org>
parents:
13105
diff
changeset
|
4164 return win; |
|
9812a9ca3ab2
patch 8.0.1432: after ":copen" can't get the window-ID of the quickfix window
Christian Brabandt <cb@256bit.org>
parents:
13105
diff
changeset
|
4165 return NULL; |
| 644 | 4166 } |
| 4167 | |
| 4168 /* | |
| 859 | 4169 * Find a quickfix buffer. |
| 4170 * Searches in windows opened in all the tabs. | |
| 7 | 4171 */ |
| 4172 static buf_T * | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
4173 qf_find_buf(qf_info_T *qi) |
| 7 | 4174 { |
| 859 | 4175 tabpage_T *tp; |
| 644 | 4176 win_T *win; |
| 4177 | |
| 859 | 4178 FOR_ALL_TAB_WINDOWS(tp, win) |
| 4179 if (is_qf_win(win, qi)) | |
| 4180 return win->w_buffer; | |
| 4181 | |
| 4182 return NULL; | |
| 7 | 4183 } |
| 4184 | |
| 4185 /* | |
|
9850
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
4186 * Update the w:quickfix_title variable in the quickfix/location list window |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
4187 */ |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
4188 static void |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
4189 qf_update_win_titlevar(qf_info_T *qi) |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
4190 { |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
4191 win_T *win; |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
4192 win_T *curwin_save; |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
4193 |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
4194 if ((win = qf_find_win(qi)) != NULL) |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
4195 { |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
4196 curwin_save = curwin; |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
4197 curwin = win; |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
4198 qf_set_title_var(&qi->qf_lists[qi->qf_curlist]); |
|
9850
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
4199 curwin = curwin_save; |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
4200 } |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
4201 } |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
4202 |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
4203 /* |
| 7 | 4204 * Find the quickfix buffer. If it exists, update the contents. |
| 4205 */ | |
| 4206 static void | |
|
9175
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4207 qf_update_buffer(qf_info_T *qi, qfline_T *old_last) |
| 7 | 4208 { |
| 4209 buf_T *buf; | |
| 3016 | 4210 win_T *win; |
| 7 | 4211 aco_save_T aco; |
| 4212 | |
| 4213 /* Check if a buffer for the quickfix list exists. Update it. */ | |
| 644 | 4214 buf = qf_find_buf(qi); |
| 7 | 4215 if (buf != NULL) |
| 4216 { | |
|
9175
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4217 linenr_T old_line_count = buf->b_ml.ml_line_count; |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4218 |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4219 if (old_last == NULL) |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4220 /* set curwin/curbuf to buf and save a few things */ |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4221 aucmd_prepbuf(&aco, buf); |
| 7 | 4222 |
|
9850
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
4223 qf_update_win_titlevar(qi); |
| 3016 | 4224 |
|
9175
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4225 qf_fill_buffer(qi, buf, old_last); |
|
11705
c43118ecb0a3
patch 8.0.0735: no indication that the quickfix window/buffer changed
Christian Brabandt <cb@256bit.org>
parents:
11700
diff
changeset
|
4226 ++CHANGEDTICK(buf); |
|
9175
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4227 |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4228 if (old_last == NULL) |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4229 { |
|
8932
25c2031e9f9f
commit https://github.com/vim/vim/commit/c1808d5822ed9534ef7f0fe509b15bee92a5cc28
Christian Brabandt <cb@256bit.org>
parents:
8751
diff
changeset
|
4230 (void)qf_win_pos_update(qi, 0); |
|
9175
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4231 |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4232 /* restore curwin/curbuf and a few other things */ |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4233 aucmd_restbuf(&aco); |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4234 } |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4235 |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4236 /* Only redraw when added lines are visible. This avoids flickering |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4237 * when the added lines are not visible. */ |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4238 if ((win = qf_find_win(qi)) != NULL && old_line_count < win->w_botline) |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4239 redraw_buf_later(buf, NOT_VALID); |
| 7 | 4240 } |
| 4241 } | |
| 4242 | |
| 6793 | 4243 /* |
|
13992
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4244 * Add an error line to the quickfix buffer. |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4245 */ |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4246 static int |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4247 qf_buf_add_line(buf_T *buf, linenr_T lnum, qfline_T *qfp, char_u *dirname) |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4248 { |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4249 int len; |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4250 buf_T *errbuf; |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4251 |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4252 if (qfp->qf_module != NULL) |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4253 { |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4254 STRCPY(IObuff, qfp->qf_module); |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4255 len = (int)STRLEN(IObuff); |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4256 } |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4257 else if (qfp->qf_fnum != 0 |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4258 && (errbuf = buflist_findnr(qfp->qf_fnum)) != NULL |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4259 && errbuf->b_fname != NULL) |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4260 { |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4261 if (qfp->qf_type == 1) /* :helpgrep */ |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4262 STRCPY(IObuff, gettail(errbuf->b_fname)); |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4263 else |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4264 { |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4265 /* shorten the file name if not done already */ |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4266 if (errbuf->b_sfname == NULL |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4267 || mch_isFullName(errbuf->b_sfname)) |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4268 { |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4269 if (*dirname == NUL) |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4270 mch_dirname(dirname, MAXPATHL); |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4271 shorten_buf_fname(errbuf, dirname, FALSE); |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4272 } |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4273 STRCPY(IObuff, errbuf->b_fname); |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4274 } |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4275 len = (int)STRLEN(IObuff); |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4276 } |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4277 else |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4278 len = 0; |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4279 IObuff[len++] = '|'; |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4280 |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4281 if (qfp->qf_lnum > 0) |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4282 { |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4283 sprintf((char *)IObuff + len, "%ld", qfp->qf_lnum); |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4284 len += (int)STRLEN(IObuff + len); |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4285 |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4286 if (qfp->qf_col > 0) |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4287 { |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4288 sprintf((char *)IObuff + len, " col %d", qfp->qf_col); |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4289 len += (int)STRLEN(IObuff + len); |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4290 } |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4291 |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4292 sprintf((char *)IObuff + len, "%s", |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4293 (char *)qf_types(qfp->qf_type, qfp->qf_nr)); |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4294 len += (int)STRLEN(IObuff + len); |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4295 } |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4296 else if (qfp->qf_pattern != NULL) |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4297 { |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4298 qf_fmt_text(qfp->qf_pattern, IObuff + len, IOSIZE - len); |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4299 len += (int)STRLEN(IObuff + len); |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4300 } |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4301 IObuff[len++] = '|'; |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4302 IObuff[len++] = ' '; |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4303 |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4304 /* Remove newlines and leading whitespace from the text. |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4305 * For an unrecognized line keep the indent, the compiler may |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4306 * mark a word with ^^^^. */ |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4307 qf_fmt_text(len > 3 ? skipwhite(qfp->qf_text) : qfp->qf_text, |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4308 IObuff + len, IOSIZE - len); |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4309 |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4310 if (ml_append_buf(buf, lnum, IObuff, |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4311 (colnr_T)STRLEN(IObuff) + 1, FALSE) == FAIL) |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4312 return FAIL; |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4313 |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4314 return OK; |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4315 } |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4316 |
|
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4317 /* |
| 7 | 4318 * Fill current buffer with quickfix errors, replacing any previous contents. |
| 4319 * curbuf must be the quickfix buffer! | |
|
9175
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4320 * If "old_last" is not NULL append the items after this one. |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4321 * When "old_last" is NULL then "buf" must equal "curbuf"! Because |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4322 * ml_delete() is used and autocommands will be triggered. |
| 7 | 4323 */ |
| 4324 static void | |
|
9175
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4325 qf_fill_buffer(qf_info_T *qi, buf_T *buf, qfline_T *old_last) |
| 7 | 4326 { |
| 230 | 4327 linenr_T lnum; |
| 4328 qfline_T *qfp; | |
| 4329 int old_KeyTyped = KeyTyped; | |
| 7 | 4330 |
|
9175
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4331 if (old_last == NULL) |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4332 { |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4333 if (buf != curbuf) |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4334 { |
|
10359
66f1b5bf3fa6
commit https://github.com/vim/vim/commit/95f096030ed1a8afea028f2ea295d6f6a70f466f
Christian Brabandt <cb@256bit.org>
parents:
10349
diff
changeset
|
4335 internal_error("qf_fill_buffer()"); |
|
9175
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4336 return; |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4337 } |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4338 |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4339 /* delete all existing lines */ |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4340 while ((curbuf->b_ml.ml_flags & ML_EMPTY) == 0) |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4341 (void)ml_delete((linenr_T)1, FALSE); |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4342 } |
| 7 | 4343 |
| 4344 /* Check if there is anything to display */ | |
| 644 | 4345 if (qi->qf_curlist < qi->qf_listcount) |
| 7 | 4346 { |
|
13819
31bb8e1f7625
patch 8.0.1781: file names in quickfix window are not shortened
Christian Brabandt <cb@256bit.org>
parents:
13802
diff
changeset
|
4347 char_u dirname[MAXPATHL]; |
|
31bb8e1f7625
patch 8.0.1781: file names in quickfix window are not shortened
Christian Brabandt <cb@256bit.org>
parents:
13802
diff
changeset
|
4348 |
|
31bb8e1f7625
patch 8.0.1781: file names in quickfix window are not shortened
Christian Brabandt <cb@256bit.org>
parents:
13802
diff
changeset
|
4349 *dirname = NUL; |
|
31bb8e1f7625
patch 8.0.1781: file names in quickfix window are not shortened
Christian Brabandt <cb@256bit.org>
parents:
13802
diff
changeset
|
4350 |
| 7 | 4351 /* Add one line for each error */ |
|
9175
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4352 if (old_last == NULL) |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4353 { |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4354 qfp = qi->qf_lists[qi->qf_curlist].qf_start; |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4355 lnum = 0; |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4356 } |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4357 else |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4358 { |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4359 qfp = old_last->qf_next; |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4360 lnum = buf->b_ml.ml_line_count; |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4361 } |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4362 while (lnum < qi->qf_lists[qi->qf_curlist].qf_count) |
| 7 | 4363 { |
|
13992
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4364 if (qf_buf_add_line(buf, lnum, qfp, dirname) == FAIL) |
| 7 | 4365 break; |
|
13992
710b1bb82f2c
patch 8.1.0014: qf_init_ext() is too long
Christian Brabandt <cb@256bit.org>
parents:
13984
diff
changeset
|
4366 |
|
9175
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4367 ++lnum; |
| 7 | 4368 qfp = qfp->qf_next; |
|
9195
543f068f3706
commit https://github.com/vim/vim/commit/83e6d7ac6a1c2a0cb5ee6c8420a5dc792f1d5ffa
Christian Brabandt <cb@256bit.org>
parents:
9175
diff
changeset
|
4369 if (qfp == NULL) |
|
543f068f3706
commit https://github.com/vim/vim/commit/83e6d7ac6a1c2a0cb5ee6c8420a5dc792f1d5ffa
Christian Brabandt <cb@256bit.org>
parents:
9175
diff
changeset
|
4370 break; |
| 7 | 4371 } |
|
9175
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4372 |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4373 if (old_last == NULL) |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4374 /* Delete the empty line which is now at the end */ |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4375 (void)ml_delete(lnum + 1, FALSE); |
| 7 | 4376 } |
| 4377 | |
| 4378 /* correct cursor position */ | |
| 4379 check_lnums(TRUE); | |
| 4380 | |
|
9175
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4381 if (old_last == NULL) |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4382 { |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4383 /* Set the 'filetype' to "qf" each time after filling the buffer. |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4384 * This resembles reading a file into a buffer, it's more logical when |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4385 * using autocommands. */ |
|
11589
39787def24bb
patch 8.0.0677: setting 'filetype' may switch buffers
Christian Brabandt <cb@256bit.org>
parents:
11549
diff
changeset
|
4386 ++curbuf_lock; |
|
9175
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4387 set_option_value((char_u *)"ft", 0L, (char_u *)"qf", OPT_LOCAL); |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4388 curbuf->b_p_ma = FALSE; |
| 7 | 4389 |
|
9175
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4390 keep_filetype = TRUE; /* don't detect 'filetype' */ |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4391 apply_autocmds(EVENT_BUFREADPOST, (char_u *)"quickfix", NULL, |
| 7 | 4392 FALSE, curbuf); |
|
9175
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4393 apply_autocmds(EVENT_BUFWINENTER, (char_u *)"quickfix", NULL, |
| 7 | 4394 FALSE, curbuf); |
|
9175
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4395 keep_filetype = FALSE; |
|
11589
39787def24bb
patch 8.0.0677: setting 'filetype' may switch buffers
Christian Brabandt <cb@256bit.org>
parents:
11549
diff
changeset
|
4396 --curbuf_lock; |
|
13380
69517d67421f
patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
13252
diff
changeset
|
4397 |
|
9175
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4398 /* make sure it will be redrawn */ |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4399 redraw_curbuf_later(NOT_VALID); |
|
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
4400 } |
| 7 | 4401 |
| 4402 /* Restore KeyTyped, setting 'filetype' may reset it. */ | |
| 4403 KeyTyped = old_KeyTyped; | |
| 4404 } | |
| 4405 | |
|
13868
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
4406 /* |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
4407 * For every change made to the quickfix list, update the changed tick. |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
4408 */ |
|
13062
6479dadcf214
patch 8.0.1406: difficult to track changes to a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13056
diff
changeset
|
4409 static void |
|
6479dadcf214
patch 8.0.1406: difficult to track changes to a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13056
diff
changeset
|
4410 qf_list_changed(qf_info_T *qi, int qf_idx) |
|
6479dadcf214
patch 8.0.1406: difficult to track changes to a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13056
diff
changeset
|
4411 { |
|
6479dadcf214
patch 8.0.1406: difficult to track changes to a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13056
diff
changeset
|
4412 qi->qf_lists[qf_idx].qf_changedtick++; |
|
6479dadcf214
patch 8.0.1406: difficult to track changes to a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13056
diff
changeset
|
4413 } |
|
6479dadcf214
patch 8.0.1406: difficult to track changes to a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13056
diff
changeset
|
4414 |
| 7 | 4415 /* |
|
14250
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
4416 * Return the quickfix/location list number with the given identifier. |
|
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
4417 * Returns -1 if list is not found. |
|
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
4418 */ |
|
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
4419 static int |
|
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
4420 qf_id2nr(qf_info_T *qi, int_u qfid) |
|
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
4421 { |
|
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
4422 int qf_idx; |
|
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
4423 |
|
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
4424 for (qf_idx = 0; qf_idx < qi->qf_listcount; qf_idx++) |
|
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
4425 if (qi->qf_lists[qf_idx].qf_id == qfid) |
|
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
4426 return qf_idx; |
|
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
4427 return INVALID_QFIDX; |
|
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
4428 } |
|
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
4429 |
|
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
4430 /* |
|
14495
178162aeebeb
patch 8.1.0261: Coverity complains about a negative array index
Christian Brabandt <cb@256bit.org>
parents:
14491
diff
changeset
|
4431 * If the current list is not "save_qfid" and we can find the list with that ID |
|
178162aeebeb
patch 8.1.0261: Coverity complains about a negative array index
Christian Brabandt <cb@256bit.org>
parents:
14491
diff
changeset
|
4432 * then make it the current list. |
|
178162aeebeb
patch 8.1.0261: Coverity complains about a negative array index
Christian Brabandt <cb@256bit.org>
parents:
14491
diff
changeset
|
4433 * This is used when autocommands may have changed the current list. |
|
14507
5a10a0020c3e
patch 8.1.0267: no good check if restoring quickfix list worked
Christian Brabandt <cb@256bit.org>
parents:
14495
diff
changeset
|
4434 * Returns OK if successfully restored the list. Returns FAIL if the list with |
|
5a10a0020c3e
patch 8.1.0267: no good check if restoring quickfix list worked
Christian Brabandt <cb@256bit.org>
parents:
14495
diff
changeset
|
4435 * the specified identifier (save_qfid) is not found in the stack. |
|
5a10a0020c3e
patch 8.1.0267: no good check if restoring quickfix list worked
Christian Brabandt <cb@256bit.org>
parents:
14495
diff
changeset
|
4436 */ |
|
5a10a0020c3e
patch 8.1.0267: no good check if restoring quickfix list worked
Christian Brabandt <cb@256bit.org>
parents:
14495
diff
changeset
|
4437 static int |
|
14495
178162aeebeb
patch 8.1.0261: Coverity complains about a negative array index
Christian Brabandt <cb@256bit.org>
parents:
14491
diff
changeset
|
4438 qf_restore_list(qf_info_T *qi, int_u save_qfid) |
|
178162aeebeb
patch 8.1.0261: Coverity complains about a negative array index
Christian Brabandt <cb@256bit.org>
parents:
14491
diff
changeset
|
4439 { |
|
178162aeebeb
patch 8.1.0261: Coverity complains about a negative array index
Christian Brabandt <cb@256bit.org>
parents:
14491
diff
changeset
|
4440 int curlist; |
|
178162aeebeb
patch 8.1.0261: Coverity complains about a negative array index
Christian Brabandt <cb@256bit.org>
parents:
14491
diff
changeset
|
4441 |
|
178162aeebeb
patch 8.1.0261: Coverity complains about a negative array index
Christian Brabandt <cb@256bit.org>
parents:
14491
diff
changeset
|
4442 if (qi->qf_lists[qi->qf_curlist].qf_id != save_qfid) |
|
178162aeebeb
patch 8.1.0261: Coverity complains about a negative array index
Christian Brabandt <cb@256bit.org>
parents:
14491
diff
changeset
|
4443 { |
|
178162aeebeb
patch 8.1.0261: Coverity complains about a negative array index
Christian Brabandt <cb@256bit.org>
parents:
14491
diff
changeset
|
4444 curlist = qf_id2nr(qi, save_qfid); |
|
14507
5a10a0020c3e
patch 8.1.0267: no good check if restoring quickfix list worked
Christian Brabandt <cb@256bit.org>
parents:
14495
diff
changeset
|
4445 if (curlist < 0) |
|
5a10a0020c3e
patch 8.1.0267: no good check if restoring quickfix list worked
Christian Brabandt <cb@256bit.org>
parents:
14495
diff
changeset
|
4446 // list is not present |
|
5a10a0020c3e
patch 8.1.0267: no good check if restoring quickfix list worked
Christian Brabandt <cb@256bit.org>
parents:
14495
diff
changeset
|
4447 return FAIL; |
|
5a10a0020c3e
patch 8.1.0267: no good check if restoring quickfix list worked
Christian Brabandt <cb@256bit.org>
parents:
14495
diff
changeset
|
4448 qi->qf_curlist = curlist; |
|
5a10a0020c3e
patch 8.1.0267: no good check if restoring quickfix list worked
Christian Brabandt <cb@256bit.org>
parents:
14495
diff
changeset
|
4449 } |
|
5a10a0020c3e
patch 8.1.0267: no good check if restoring quickfix list worked
Christian Brabandt <cb@256bit.org>
parents:
14495
diff
changeset
|
4450 return OK; |
|
14495
178162aeebeb
patch 8.1.0261: Coverity complains about a negative array index
Christian Brabandt <cb@256bit.org>
parents:
14491
diff
changeset
|
4451 } |
|
178162aeebeb
patch 8.1.0261: Coverity complains about a negative array index
Christian Brabandt <cb@256bit.org>
parents:
14491
diff
changeset
|
4452 |
|
178162aeebeb
patch 8.1.0261: Coverity complains about a negative array index
Christian Brabandt <cb@256bit.org>
parents:
14491
diff
changeset
|
4453 /* |
|
14469
0211e295835e
patch 8.1.0248: duplicated quickfix code
Christian Brabandt <cb@256bit.org>
parents:
14433
diff
changeset
|
4454 * Jump to the first entry if there is one. |
|
0211e295835e
patch 8.1.0248: duplicated quickfix code
Christian Brabandt <cb@256bit.org>
parents:
14433
diff
changeset
|
4455 */ |
|
0211e295835e
patch 8.1.0248: duplicated quickfix code
Christian Brabandt <cb@256bit.org>
parents:
14433
diff
changeset
|
4456 static void |
|
0211e295835e
patch 8.1.0248: duplicated quickfix code
Christian Brabandt <cb@256bit.org>
parents:
14433
diff
changeset
|
4457 qf_jump_first(qf_info_T *qi, int_u save_qfid, int forceit) |
|
0211e295835e
patch 8.1.0248: duplicated quickfix code
Christian Brabandt <cb@256bit.org>
parents:
14433
diff
changeset
|
4458 { |
|
14507
5a10a0020c3e
patch 8.1.0267: no good check if restoring quickfix list worked
Christian Brabandt <cb@256bit.org>
parents:
14495
diff
changeset
|
4459 if (qf_restore_list(qi, save_qfid) == FAIL) |
|
5a10a0020c3e
patch 8.1.0267: no good check if restoring quickfix list worked
Christian Brabandt <cb@256bit.org>
parents:
14495
diff
changeset
|
4460 return; |
|
5a10a0020c3e
patch 8.1.0267: no good check if restoring quickfix list worked
Christian Brabandt <cb@256bit.org>
parents:
14495
diff
changeset
|
4461 |
|
5a10a0020c3e
patch 8.1.0267: no good check if restoring quickfix list worked
Christian Brabandt <cb@256bit.org>
parents:
14495
diff
changeset
|
4462 // Autocommands might have cleared the list, check for that. |
|
14491
9df0fcbfebb2
patch 8.1.0259: no test for fixed quickfix issue
Christian Brabandt <cb@256bit.org>
parents:
14477
diff
changeset
|
4463 if (!qf_list_empty(qi, qi->qf_curlist)) |
|
14469
0211e295835e
patch 8.1.0248: duplicated quickfix code
Christian Brabandt <cb@256bit.org>
parents:
14433
diff
changeset
|
4464 qf_jump(qi, 0, 0, forceit); |
|
0211e295835e
patch 8.1.0248: duplicated quickfix code
Christian Brabandt <cb@256bit.org>
parents:
14433
diff
changeset
|
4465 } |
|
0211e295835e
patch 8.1.0248: duplicated quickfix code
Christian Brabandt <cb@256bit.org>
parents:
14433
diff
changeset
|
4466 |
|
0211e295835e
patch 8.1.0248: duplicated quickfix code
Christian Brabandt <cb@256bit.org>
parents:
14433
diff
changeset
|
4467 /* |
| 41 | 4468 * Return TRUE when using ":vimgrep" for ":grep". |
| 4469 */ | |
| 4470 int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
4471 grep_internal(cmdidx_T cmdidx) |
| 41 | 4472 { |
| 661 | 4473 return ((cmdidx == CMD_grep |
| 4474 || cmdidx == CMD_lgrep | |
| 4475 || cmdidx == CMD_grepadd | |
| 4476 || cmdidx == CMD_lgrepadd) | |
| 41 | 4477 && STRCMP("internal", |
| 4478 *curbuf->b_p_gp == NUL ? p_gp : curbuf->b_p_gp) == 0); | |
| 4479 } | |
| 4480 | |
| 4481 /* | |
|
14852
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4482 * Return the make/grep autocmd name. |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4483 */ |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4484 static char_u * |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4485 make_get_auname(cmdidx_T cmdidx) |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4486 { |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4487 switch (cmdidx) |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4488 { |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4489 case CMD_make: return (char_u *)"make"; |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4490 case CMD_lmake: return (char_u *)"lmake"; |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4491 case CMD_grep: return (char_u *)"grep"; |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4492 case CMD_lgrep: return (char_u *)"lgrep"; |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4493 case CMD_grepadd: return (char_u *)"grepadd"; |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4494 case CMD_lgrepadd: return (char_u *)"lgrepadd"; |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4495 default: return NULL; |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4496 } |
| 7 | 4497 } |
| 4498 | |
| 4499 /* | |
| 4500 * Return the name for the errorfile, in allocated memory. | |
| 4501 * Find a new unique name when 'makeef' contains "##". | |
| 4502 * Returns NULL for error. | |
| 4503 */ | |
| 4504 static char_u * | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
4505 get_mef_name(void) |
| 7 | 4506 { |
| 4507 char_u *p; | |
| 4508 char_u *name; | |
| 4509 static int start = -1; | |
| 4510 static int off = 0; | |
| 4511 #ifdef HAVE_LSTAT | |
|
9387
f094d4085014
commit https://github.com/vim/vim/commit/8767f52fbfd4f053ce00a978227c95f1d7d323fe
Christian Brabandt <cb@256bit.org>
parents:
9379
diff
changeset
|
4512 stat_T sb; |
| 7 | 4513 #endif |
| 4514 | |
| 4515 if (*p_mef == NUL) | |
| 4516 { | |
| 6721 | 4517 name = vim_tempname('e', FALSE); |
| 7 | 4518 if (name == NULL) |
| 4519 EMSG(_(e_notmp)); | |
| 4520 return name; | |
| 4521 } | |
| 4522 | |
| 4523 for (p = p_mef; *p; ++p) | |
| 4524 if (p[0] == '#' && p[1] == '#') | |
| 4525 break; | |
| 4526 | |
| 4527 if (*p == NUL) | |
| 4528 return vim_strsave(p_mef); | |
| 4529 | |
|
14852
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4530 // Keep trying until the name doesn't exist yet. |
| 7 | 4531 for (;;) |
| 4532 { | |
| 4533 if (start == -1) | |
| 4534 start = mch_get_pid(); | |
| 4535 else | |
| 4536 off += 19; | |
| 4537 | |
| 4538 name = alloc((unsigned)STRLEN(p_mef) + 30); | |
| 4539 if (name == NULL) | |
| 4540 break; | |
| 4541 STRCPY(name, p_mef); | |
| 4542 sprintf((char *)name + (p - p_mef), "%d%d", start, off); | |
| 4543 STRCAT(name, p + 2); | |
| 4544 if (mch_getperm(name) < 0 | |
| 4545 #ifdef HAVE_LSTAT | |
|
14852
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4546 // Don't accept a symbolic link, it's a security risk. |
| 7 | 4547 && mch_lstat((char *)name, &sb) < 0 |
| 4548 #endif | |
| 4549 ) | |
| 4550 break; | |
| 4551 vim_free(name); | |
| 4552 } | |
| 4553 return name; | |
| 4554 } | |
| 4555 | |
| 4556 /* | |
|
14852
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4557 * Form the complete command line to invoke 'make'/'grep'. Quote the command |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4558 * using 'shellquote' and append 'shellpipe'. Echo the fully formed command. |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4559 */ |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4560 static char_u * |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4561 make_get_fullcmd(char_u *makecmd, char_u *fname) |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4562 { |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4563 char_u *cmd; |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4564 unsigned len; |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4565 |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4566 len = (unsigned)STRLEN(p_shq) * 2 + (unsigned)STRLEN(makecmd) + 1; |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4567 if (*p_sp != NUL) |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4568 len += (unsigned)STRLEN(p_sp) + (unsigned)STRLEN(fname) + 3; |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4569 cmd = alloc(len); |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4570 if (cmd == NULL) |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4571 return NULL; |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4572 sprintf((char *)cmd, "%s%s%s", (char *)p_shq, (char *)makecmd, |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4573 (char *)p_shq); |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4574 |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4575 // If 'shellpipe' empty: don't redirect to 'errorfile'. |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4576 if (*p_sp != NUL) |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4577 append_redir(cmd, len, p_sp, fname); |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4578 |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4579 // Display the fully formed command. Output a newline if there's something |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4580 // else than the :make command that was typed (in which case the cursor is |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4581 // in column 0). |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4582 if (msg_col == 0) |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4583 msg_didout = FALSE; |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4584 msg_start(); |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4585 MSG_PUTS(":!"); |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4586 msg_outtrans(cmd); // show what we are doing |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4587 |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4588 return cmd; |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4589 } |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4590 |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4591 /* |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4592 * Used for ":make", ":lmake", ":grep", ":lgrep", ":grepadd", and ":lgrepadd" |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4593 */ |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4594 void |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4595 ex_make(exarg_T *eap) |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4596 { |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4597 char_u *fname; |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4598 char_u *cmd; |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4599 char_u *enc = NULL; |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4600 win_T *wp = NULL; |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4601 qf_info_T *qi = &ql_info; |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4602 int res; |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4603 char_u *au_name = NULL; |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4604 int_u save_qfid; |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4605 |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4606 // Redirect ":grep" to ":vimgrep" if 'grepprg' is "internal". |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4607 if (grep_internal(eap->cmdidx)) |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4608 { |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4609 ex_vimgrep(eap); |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4610 return; |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4611 } |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4612 |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4613 au_name = make_get_auname(eap->cmdidx); |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4614 if (au_name != NULL && apply_autocmds(EVENT_QUICKFIXCMDPRE, au_name, |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4615 curbuf->b_fname, TRUE, curbuf)) |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4616 { |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4617 #ifdef FEAT_EVAL |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4618 if (aborting()) |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4619 return; |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4620 #endif |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4621 } |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4622 #ifdef FEAT_MBYTE |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4623 enc = (*curbuf->b_p_menc != NUL) ? curbuf->b_p_menc : p_menc; |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4624 #endif |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4625 |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4626 if (is_loclist_cmd(eap->cmdidx)) |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4627 wp = curwin; |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4628 |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4629 autowrite_all(); |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4630 fname = get_mef_name(); |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4631 if (fname == NULL) |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4632 return; |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4633 mch_remove(fname); // in case it's not unique |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4634 |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4635 cmd = make_get_fullcmd(eap->arg, fname); |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4636 if (cmd == NULL) |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4637 return; |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4638 |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4639 // let the shell know if we are redirecting output or not |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4640 do_shell(cmd, *p_sp != NUL ? SHELL_DOOUT : 0); |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4641 |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4642 #ifdef AMIGA |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4643 out_flush(); |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4644 // read window status report and redraw before message |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4645 (void)char_avail(); |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4646 #endif |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4647 |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4648 res = qf_init(wp, fname, (eap->cmdidx != CMD_make |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4649 && eap->cmdidx != CMD_lmake) ? p_gefm : p_efm, |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4650 (eap->cmdidx != CMD_grepadd |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4651 && eap->cmdidx != CMD_lgrepadd), |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4652 qf_cmdtitle(*eap->cmdlinep), enc); |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4653 if (wp != NULL) |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4654 { |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4655 qi = GET_LOC_LIST(wp); |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4656 if (qi == NULL) |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4657 goto cleanup; |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4658 } |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4659 if (res >= 0) |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4660 qf_list_changed(qi, qi->qf_curlist); |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4661 |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4662 // Remember the current quickfix list identifier, so that we can |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4663 // check for autocommands changing the current quickfix list. |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4664 save_qfid = qi->qf_lists[qi->qf_curlist].qf_id; |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4665 if (au_name != NULL) |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4666 apply_autocmds(EVENT_QUICKFIXCMDPOST, au_name, |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4667 curbuf->b_fname, TRUE, curbuf); |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4668 if (res > 0 && !eap->forceit && qflist_valid(wp, save_qfid)) |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4669 // display the first error |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4670 qf_jump_first(qi, save_qfid, FALSE); |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4671 |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4672 cleanup: |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4673 mch_remove(fname); |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4674 vim_free(fname); |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4675 vim_free(cmd); |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4676 } |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4677 |
|
3c8a4b25427c
patch 8.1.0438: the ex_make() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14844
diff
changeset
|
4678 /* |
|
7092
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4679 * Returns the number of valid entries in the current quickfix/location list. |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4680 */ |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4681 int |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
4682 qf_get_size(exarg_T *eap) |
|
7092
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4683 { |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4684 qf_info_T *qi = &ql_info; |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4685 qfline_T *qfp; |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4686 int i, sz = 0; |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4687 int prev_fnum = 0; |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4688 |
|
14550
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4689 if (is_loclist_cmd(eap->cmdidx)) |
|
7092
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4690 { |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4691 /* Location list */ |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4692 qi = GET_LOC_LIST(curwin); |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4693 if (qi == NULL) |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4694 return 0; |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4695 } |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4696 |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4697 for (i = 0, qfp = qi->qf_lists[qi->qf_curlist].qf_start; |
|
9195
543f068f3706
commit https://github.com/vim/vim/commit/83e6d7ac6a1c2a0cb5ee6c8420a5dc792f1d5ffa
Christian Brabandt <cb@256bit.org>
parents:
9175
diff
changeset
|
4698 i < qi->qf_lists[qi->qf_curlist].qf_count && qfp != NULL; |
|
7092
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4699 ++i, qfp = qfp->qf_next) |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4700 { |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4701 if (qfp->qf_valid) |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4702 { |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4703 if (eap->cmdidx == CMD_cdo || eap->cmdidx == CMD_ldo) |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4704 sz++; /* Count all valid entries */ |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4705 else if (qfp->qf_fnum > 0 && qfp->qf_fnum != prev_fnum) |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4706 { |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4707 /* Count the number of files */ |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4708 sz++; |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4709 prev_fnum = qfp->qf_fnum; |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4710 } |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4711 } |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4712 } |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4713 |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4714 return sz; |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4715 } |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4716 |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4717 /* |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4718 * Returns the current index of the quickfix/location list. |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4719 * Returns 0 if there is an error. |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4720 */ |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4721 int |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
4722 qf_get_cur_idx(exarg_T *eap) |
|
7092
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4723 { |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4724 qf_info_T *qi = &ql_info; |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4725 |
|
14550
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4726 if (is_loclist_cmd(eap->cmdidx)) |
|
7092
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4727 { |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4728 /* Location list */ |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4729 qi = GET_LOC_LIST(curwin); |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4730 if (qi == NULL) |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4731 return 0; |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4732 } |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4733 |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4734 return qi->qf_lists[qi->qf_curlist].qf_index; |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4735 } |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4736 |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4737 /* |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4738 * Returns the current index in the quickfix/location list (counting only valid |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4739 * entries). If no valid entries are in the list, then returns 1. |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4740 */ |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4741 int |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
4742 qf_get_cur_valid_idx(exarg_T *eap) |
|
7092
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4743 { |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4744 qf_info_T *qi = &ql_info; |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4745 qf_list_T *qfl; |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4746 qfline_T *qfp; |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4747 int i, eidx = 0; |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4748 int prev_fnum = 0; |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4749 |
|
14550
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4750 if (is_loclist_cmd(eap->cmdidx)) |
|
7092
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4751 { |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4752 /* Location list */ |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4753 qi = GET_LOC_LIST(curwin); |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4754 if (qi == NULL) |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4755 return 1; |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4756 } |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4757 |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4758 qfl = &qi->qf_lists[qi->qf_curlist]; |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4759 qfp = qfl->qf_start; |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4760 |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4761 /* check if the list has valid errors */ |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4762 if (qfl->qf_count <= 0 || qfl->qf_nonevalid) |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4763 return 1; |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4764 |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4765 for (i = 1; i <= qfl->qf_index && qfp!= NULL; i++, qfp = qfp->qf_next) |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4766 { |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4767 if (qfp->qf_valid) |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4768 { |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4769 if (eap->cmdidx == CMD_cfdo || eap->cmdidx == CMD_lfdo) |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4770 { |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4771 if (qfp->qf_fnum > 0 && qfp->qf_fnum != prev_fnum) |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4772 { |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4773 /* Count the number of files */ |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4774 eidx++; |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4775 prev_fnum = qfp->qf_fnum; |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4776 } |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4777 } |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4778 else |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4779 eidx++; |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4780 } |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4781 } |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4782 |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4783 return eidx ? eidx : 1; |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4784 } |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4785 |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4786 /* |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4787 * Get the 'n'th valid error entry in the quickfix or location list. |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4788 * Used by :cdo, :ldo, :cfdo and :lfdo commands. |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4789 * For :cdo and :ldo returns the 'n'th valid error entry. |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4790 * For :cfdo and :lfdo returns the 'n'th valid file entry. |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4791 */ |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4792 static int |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
4793 qf_get_nth_valid_entry(qf_list_T *qfl, int n, int fdo) |
|
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
4794 { |
|
7092
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4795 qfline_T *qfp = qfl->qf_start; |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4796 int i, eidx; |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4797 int prev_fnum = 0; |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4798 |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4799 /* check if the list has valid errors */ |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4800 if (qfl->qf_count <= 0 || qfl->qf_nonevalid) |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4801 return 1; |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4802 |
|
9195
543f068f3706
commit https://github.com/vim/vim/commit/83e6d7ac6a1c2a0cb5ee6c8420a5dc792f1d5ffa
Christian Brabandt <cb@256bit.org>
parents:
9175
diff
changeset
|
4803 for (i = 1, eidx = 0; i <= qfl->qf_count && qfp != NULL; |
|
7092
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4804 i++, qfp = qfp->qf_next) |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4805 { |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4806 if (qfp->qf_valid) |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4807 { |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4808 if (fdo) |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4809 { |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4810 if (qfp->qf_fnum > 0 && qfp->qf_fnum != prev_fnum) |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4811 { |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4812 /* Count the number of files */ |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4813 eidx++; |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4814 prev_fnum = qfp->qf_fnum; |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4815 } |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4816 } |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4817 else |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4818 eidx++; |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4819 } |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4820 |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4821 if (eidx == n) |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4822 break; |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4823 } |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4824 |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4825 if (i <= qfl->qf_count) |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4826 return i; |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4827 else |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4828 return 1; |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4829 } |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4830 |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4831 /* |
| 7 | 4832 * ":cc", ":crewind", ":cfirst" and ":clast". |
| 644 | 4833 * ":ll", ":lrewind", ":lfirst" and ":llast". |
|
7092
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4834 * ":cdo", ":ldo", ":cfdo" and ":lfdo" |
| 7 | 4835 */ |
| 4836 void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
4837 ex_cc(exarg_T *eap) |
| 7 | 4838 { |
| 659 | 4839 qf_info_T *qi = &ql_info; |
|
7092
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4840 int errornr; |
| 659 | 4841 |
|
14550
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4842 if (is_loclist_cmd(eap->cmdidx)) |
| 644 | 4843 { |
| 4844 qi = GET_LOC_LIST(curwin); | |
| 4845 if (qi == NULL) | |
| 4846 { | |
| 4847 EMSG(_(e_loclist)); | |
| 4848 return; | |
| 4849 } | |
| 4850 } | |
| 4851 | |
|
7092
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4852 if (eap->addr_count > 0) |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4853 errornr = (int)eap->line2; |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4854 else |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4855 { |
|
14550
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4856 switch (eap->cmdidx) |
|
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4857 { |
|
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4858 case CMD_cc: case CMD_ll: |
|
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4859 errornr = 0; |
|
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4860 break; |
|
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4861 case CMD_crewind: case CMD_lrewind: case CMD_cfirst: |
|
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4862 case CMD_lfirst: |
|
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4863 errornr = 1; |
|
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4864 break; |
|
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4865 default: |
|
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4866 errornr = 32767; |
|
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4867 } |
|
7092
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4868 } |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4869 |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4870 /* For cdo and ldo commands, jump to the nth valid error. |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4871 * For cfdo and lfdo commands, jump to the nth valid file entry. |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4872 */ |
|
12084
69ce6b3f0834
patch 8.0.0922: quickfix list always added after current one
Christian Brabandt <cb@256bit.org>
parents:
12048
diff
changeset
|
4873 if (eap->cmdidx == CMD_cdo || eap->cmdidx == CMD_ldo |
|
69ce6b3f0834
patch 8.0.0922: quickfix list always added after current one
Christian Brabandt <cb@256bit.org>
parents:
12048
diff
changeset
|
4874 || eap->cmdidx == CMD_cfdo || eap->cmdidx == CMD_lfdo) |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
4875 errornr = qf_get_nth_valid_entry(&qi->qf_lists[qi->qf_curlist], |
|
7092
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4876 eap->addr_count > 0 ? (int)eap->line1 : 1, |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4877 eap->cmdidx == CMD_cfdo || eap->cmdidx == CMD_lfdo); |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4878 |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4879 qf_jump(qi, 0, errornr, eap->forceit); |
| 7 | 4880 } |
| 4881 | |
| 4882 /* | |
| 4883 * ":cnext", ":cnfile", ":cNext" and ":cprevious". | |
| 644 | 4884 * ":lnext", ":lNext", ":lprevious", ":lnfile", ":lNfile" and ":lpfile". |
|
7092
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4885 * Also, used by ":cdo", ":ldo", ":cfdo" and ":lfdo" commands. |
| 7 | 4886 */ |
| 4887 void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
4888 ex_cnext(exarg_T *eap) |
| 7 | 4889 { |
| 659 | 4890 qf_info_T *qi = &ql_info; |
|
7092
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4891 int errornr; |
|
14550
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4892 int dir; |
|
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4893 |
|
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4894 if (is_loclist_cmd(eap->cmdidx)) |
| 644 | 4895 { |
| 4896 qi = GET_LOC_LIST(curwin); | |
| 4897 if (qi == NULL) | |
| 4898 { | |
| 4899 EMSG(_(e_loclist)); | |
| 4900 return; | |
| 4901 } | |
| 4902 } | |
| 4903 | |
|
12084
69ce6b3f0834
patch 8.0.0922: quickfix list always added after current one
Christian Brabandt <cb@256bit.org>
parents:
12048
diff
changeset
|
4904 if (eap->addr_count > 0 |
|
69ce6b3f0834
patch 8.0.0922: quickfix list always added after current one
Christian Brabandt <cb@256bit.org>
parents:
12048
diff
changeset
|
4905 && (eap->cmdidx != CMD_cdo && eap->cmdidx != CMD_ldo |
|
69ce6b3f0834
patch 8.0.0922: quickfix list always added after current one
Christian Brabandt <cb@256bit.org>
parents:
12048
diff
changeset
|
4906 && eap->cmdidx != CMD_cfdo && eap->cmdidx != CMD_lfdo)) |
|
7092
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4907 errornr = (int)eap->line2; |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4908 else |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4909 errornr = 1; |
|
64e30831fa42
commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09
Christian Brabandt <cb@256bit.org>
parents:
6853
diff
changeset
|
4910 |
|
14550
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4911 // Depending on the command jump to either next or previous entry/file. |
|
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4912 switch (eap->cmdidx) |
|
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4913 { |
|
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4914 case CMD_cnext: case CMD_lnext: case CMD_cdo: case CMD_ldo: |
|
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4915 dir = FORWARD; |
|
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4916 break; |
|
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4917 case CMD_cprevious: case CMD_lprevious: case CMD_cNext: |
|
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4918 case CMD_lNext: |
|
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4919 dir = BACKWARD; |
|
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4920 break; |
|
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4921 case CMD_cnfile: case CMD_lnfile: case CMD_cfdo: case CMD_lfdo: |
|
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4922 dir = FORWARD_FILE; |
|
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4923 break; |
|
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4924 case CMD_cpfile: case CMD_lpfile: case CMD_cNfile: case CMD_lNfile: |
|
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4925 dir = BACKWARD_FILE; |
|
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4926 break; |
|
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4927 default: |
|
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4928 dir = FORWARD; |
|
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4929 break; |
|
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4930 } |
|
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4931 |
|
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4932 qf_jump(qi, dir, errornr, eap->forceit); |
| 7 | 4933 } |
| 4934 | |
| 4935 /* | |
| 446 | 4936 * ":cfile"/":cgetfile"/":caddfile" commands. |
| 644 | 4937 * ":lfile"/":lgetfile"/":laddfile" commands. |
| 7 | 4938 */ |
| 4939 void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
4940 ex_cfile(exarg_T *eap) |
| 7 | 4941 { |
|
11063
e71d3bdf3bc3
patch 8.0.0420: text garbled when the system encoding differs from 'encoding'
Christian Brabandt <cb@256bit.org>
parents:
10379
diff
changeset
|
4942 char_u *enc = NULL; |
| 644 | 4943 win_T *wp = NULL; |
| 659 | 4944 qf_info_T *qi = &ql_info; |
| 3404 | 4945 char_u *au_name = NULL; |
|
14250
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
4946 int_u save_qfid = 0; /* init for gcc */ |
|
12954
49e136457c66
patch 8.0.1353: QuickFixCmdPost is not used consistently
Christian Brabandt <cb@256bit.org>
parents:
12912
diff
changeset
|
4947 int res; |
| 644 | 4948 |
| 3404 | 4949 switch (eap->cmdidx) |
| 4950 { | |
| 4951 case CMD_cfile: au_name = (char_u *)"cfile"; break; | |
| 4952 case CMD_cgetfile: au_name = (char_u *)"cgetfile"; break; | |
| 4953 case CMD_caddfile: au_name = (char_u *)"caddfile"; break; | |
| 4954 case CMD_lfile: au_name = (char_u *)"lfile"; break; | |
| 4955 case CMD_lgetfile: au_name = (char_u *)"lgetfile"; break; | |
| 4956 case CMD_laddfile: au_name = (char_u *)"laddfile"; break; | |
| 4957 default: break; | |
| 4958 } | |
| 4959 if (au_name != NULL) | |
| 4960 apply_autocmds(EVENT_QUICKFIXCMDPRE, au_name, NULL, FALSE, curbuf); | |
|
11063
e71d3bdf3bc3
patch 8.0.0420: text garbled when the system encoding differs from 'encoding'
Christian Brabandt <cb@256bit.org>
parents:
10379
diff
changeset
|
4961 #ifdef FEAT_MBYTE |
|
e71d3bdf3bc3
patch 8.0.0420: text garbled when the system encoding differs from 'encoding'
Christian Brabandt <cb@256bit.org>
parents:
10379
diff
changeset
|
4962 enc = (*curbuf->b_p_menc != NUL) ? curbuf->b_p_menc : p_menc; |
|
e71d3bdf3bc3
patch 8.0.0420: text garbled when the system encoding differs from 'encoding'
Christian Brabandt <cb@256bit.org>
parents:
10379
diff
changeset
|
4963 #endif |
|
2296
eb7be7b075a6
Support :browse for commands that use an error file argument. (Lech Lorens)
Bram Moolenaar <bram@vim.org>
parents:
2146
diff
changeset
|
4964 #ifdef FEAT_BROWSE |
|
eb7be7b075a6
Support :browse for commands that use an error file argument. (Lech Lorens)
Bram Moolenaar <bram@vim.org>
parents:
2146
diff
changeset
|
4965 if (cmdmod.browse) |
|
eb7be7b075a6
Support :browse for commands that use an error file argument. (Lech Lorens)
Bram Moolenaar <bram@vim.org>
parents:
2146
diff
changeset
|
4966 { |
|
eb7be7b075a6
Support :browse for commands that use an error file argument. (Lech Lorens)
Bram Moolenaar <bram@vim.org>
parents:
2146
diff
changeset
|
4967 char_u *browse_file = do_browse(0, (char_u *)_("Error file"), eap->arg, |
|
13802
378f9f8e6d8f
patch 8.0.1773: dialog messages are not translated
Christian Brabandt <cb@256bit.org>
parents:
13800
diff
changeset
|
4968 NULL, NULL, |
|
378f9f8e6d8f
patch 8.0.1773: dialog messages are not translated
Christian Brabandt <cb@256bit.org>
parents:
13800
diff
changeset
|
4969 (char_u *)_(BROWSE_FILTER_ALL_FILES), NULL); |
|
2296
eb7be7b075a6
Support :browse for commands that use an error file argument. (Lech Lorens)
Bram Moolenaar <bram@vim.org>
parents:
2146
diff
changeset
|
4970 if (browse_file == NULL) |
|
eb7be7b075a6
Support :browse for commands that use an error file argument. (Lech Lorens)
Bram Moolenaar <bram@vim.org>
parents:
2146
diff
changeset
|
4971 return; |
|
eb7be7b075a6
Support :browse for commands that use an error file argument. (Lech Lorens)
Bram Moolenaar <bram@vim.org>
parents:
2146
diff
changeset
|
4972 set_string_option_direct((char_u *)"ef", -1, browse_file, OPT_FREE, 0); |
|
eb7be7b075a6
Support :browse for commands that use an error file argument. (Lech Lorens)
Bram Moolenaar <bram@vim.org>
parents:
2146
diff
changeset
|
4973 vim_free(browse_file); |
|
eb7be7b075a6
Support :browse for commands that use an error file argument. (Lech Lorens)
Bram Moolenaar <bram@vim.org>
parents:
2146
diff
changeset
|
4974 } |
|
eb7be7b075a6
Support :browse for commands that use an error file argument. (Lech Lorens)
Bram Moolenaar <bram@vim.org>
parents:
2146
diff
changeset
|
4975 else |
|
eb7be7b075a6
Support :browse for commands that use an error file argument. (Lech Lorens)
Bram Moolenaar <bram@vim.org>
parents:
2146
diff
changeset
|
4976 #endif |
| 7 | 4977 if (*eap->arg != NUL) |
| 694 | 4978 set_string_option_direct((char_u *)"ef", -1, eap->arg, OPT_FREE, 0); |
| 446 | 4979 |
|
14550
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
4980 if (is_loclist_cmd(eap->cmdidx)) |
|
13078
a1f8939a4644
patch 8.0.1414: accessing freed memory in :lfile.
Christian Brabandt <cb@256bit.org>
parents:
13076
diff
changeset
|
4981 wp = curwin; |
|
a1f8939a4644
patch 8.0.1414: accessing freed memory in :lfile.
Christian Brabandt <cb@256bit.org>
parents:
13076
diff
changeset
|
4982 |
| 446 | 4983 /* |
| 4984 * This function is used by the :cfile, :cgetfile and :caddfile | |
| 4985 * commands. | |
| 4986 * :cfile always creates a new quickfix list and jumps to the | |
| 4987 * first error. | |
| 4988 * :cgetfile creates a new quickfix list but doesn't jump to the | |
| 4989 * first error. | |
| 4990 * :caddfile adds to an existing quickfix list. If there is no | |
| 4991 * quickfix list then a new list is created. | |
| 4992 */ | |
|
12954
49e136457c66
patch 8.0.1353: QuickFixCmdPost is not used consistently
Christian Brabandt <cb@256bit.org>
parents:
12912
diff
changeset
|
4993 res = qf_init(wp, p_ef, p_efm, (eap->cmdidx != CMD_caddfile |
|
13921
3b6c29f8c1a2
patch 8.0.1831: sometimes the quickfix title is incorrectly prefixed with ':'
Christian Brabandt <cb@256bit.org>
parents:
13882
diff
changeset
|
4994 && eap->cmdidx != CMD_laddfile), |
|
3b6c29f8c1a2
patch 8.0.1831: sometimes the quickfix title is incorrectly prefixed with ':'
Christian Brabandt <cb@256bit.org>
parents:
13882
diff
changeset
|
4995 qf_cmdtitle(*eap->cmdlinep), enc); |
|
13062
6479dadcf214
patch 8.0.1406: difficult to track changes to a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13056
diff
changeset
|
4996 if (wp != NULL) |
|
14250
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
4997 { |
|
13062
6479dadcf214
patch 8.0.1406: difficult to track changes to a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13056
diff
changeset
|
4998 qi = GET_LOC_LIST(wp); |
|
14250
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
4999 if (qi == NULL) |
|
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
5000 return; |
|
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
5001 } |
|
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
5002 if (res >= 0) |
|
13062
6479dadcf214
patch 8.0.1406: difficult to track changes to a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13056
diff
changeset
|
5003 qf_list_changed(qi, qi->qf_curlist); |
|
14250
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
5004 save_qfid = qi->qf_lists[qi->qf_curlist].qf_id; |
|
12954
49e136457c66
patch 8.0.1353: QuickFixCmdPost is not used consistently
Christian Brabandt <cb@256bit.org>
parents:
12912
diff
changeset
|
5005 if (au_name != NULL) |
|
49e136457c66
patch 8.0.1353: QuickFixCmdPost is not used consistently
Christian Brabandt <cb@256bit.org>
parents:
12912
diff
changeset
|
5006 apply_autocmds(EVENT_QUICKFIXCMDPOST, au_name, NULL, FALSE, curbuf); |
|
13252
66b8b29854d9
patch 8.0.1500: possible NULL pointer dereference
Christian Brabandt <cb@256bit.org>
parents:
13244
diff
changeset
|
5007 |
|
14250
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
5008 // Jump to the first error for a new list and if autocmds didn't |
|
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
5009 // free the list. |
|
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
5010 if (res > 0 && (eap->cmdidx == CMD_cfile || eap->cmdidx == CMD_lfile) |
|
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
5011 && qflist_valid(wp, save_qfid)) |
|
14469
0211e295835e
patch 8.1.0248: duplicated quickfix code
Christian Brabandt <cb@256bit.org>
parents:
14433
diff
changeset
|
5012 // display the first error |
|
0211e295835e
patch 8.1.0248: duplicated quickfix code
Christian Brabandt <cb@256bit.org>
parents:
14433
diff
changeset
|
5013 qf_jump_first(qi, save_qfid, eap->forceit); |
|
13594
4d55eb79178b
patch 8.0.1669: :vimgrep may add entries to the wrong quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13521
diff
changeset
|
5014 } |
|
4d55eb79178b
patch 8.0.1669: :vimgrep may add entries to the wrong quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13521
diff
changeset
|
5015 |
|
4d55eb79178b
patch 8.0.1669: :vimgrep may add entries to the wrong quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13521
diff
changeset
|
5016 /* |
|
13521
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5017 * Return the vimgrep autocmd name. |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5018 */ |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5019 static char_u * |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5020 vgr_get_auname(cmdidx_T cmdidx) |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5021 { |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5022 switch (cmdidx) |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5023 { |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5024 case CMD_vimgrep: return (char_u *)"vimgrep"; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5025 case CMD_lvimgrep: return (char_u *)"lvimgrep"; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5026 case CMD_vimgrepadd: return (char_u *)"vimgrepadd"; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5027 case CMD_lvimgrepadd: return (char_u *)"lvimgrepadd"; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5028 case CMD_grep: return (char_u *)"grep"; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5029 case CMD_lgrep: return (char_u *)"lgrep"; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5030 case CMD_grepadd: return (char_u *)"grepadd"; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5031 case CMD_lgrepadd: return (char_u *)"lgrepadd"; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5032 default: return NULL; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5033 } |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5034 } |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5035 |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5036 /* |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5037 * Initialize the regmatch used by vimgrep for pattern "s". |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5038 */ |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5039 static void |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5040 vgr_init_regmatch(regmmatch_T *regmatch, char_u *s) |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5041 { |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5042 /* Get the search pattern: either white-separated or enclosed in // */ |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5043 regmatch->regprog = NULL; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5044 |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5045 if (s == NULL || *s == NUL) |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5046 { |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5047 /* Pattern is empty, use last search pattern. */ |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5048 if (last_search_pat() == NULL) |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5049 { |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5050 EMSG(_(e_noprevre)); |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5051 return; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5052 } |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5053 regmatch->regprog = vim_regcomp(last_search_pat(), RE_MAGIC); |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5054 } |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5055 else |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5056 regmatch->regprog = vim_regcomp(s, RE_MAGIC); |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5057 |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5058 regmatch->rmm_ic = p_ic; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5059 regmatch->rmm_maxcol = 0; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5060 } |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5061 |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5062 /* |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5063 * Display a file name when vimgrep is running. |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5064 */ |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5065 static void |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5066 vgr_display_fname(char_u *fname) |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5067 { |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5068 char_u *p; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5069 |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5070 msg_start(); |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5071 p = msg_strtrunc(fname, TRUE); |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5072 if (p == NULL) |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5073 msg_outtrans(fname); |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5074 else |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5075 { |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5076 msg_outtrans(p); |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5077 vim_free(p); |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5078 } |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5079 msg_clr_eos(); |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5080 msg_didout = FALSE; /* overwrite this message */ |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5081 msg_nowait = TRUE; /* don't wait for this message */ |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5082 msg_col = 0; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5083 out_flush(); |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5084 } |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5085 |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5086 /* |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5087 * Load a dummy buffer to search for a pattern using vimgrep. |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5088 */ |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5089 static buf_T * |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5090 vgr_load_dummy_buf( |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5091 char_u *fname, |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5092 char_u *dirname_start, |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5093 char_u *dirname_now) |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5094 { |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5095 int save_mls; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5096 #if defined(FEAT_SYN_HL) |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5097 char_u *save_ei = NULL; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5098 #endif |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5099 buf_T *buf; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5100 |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5101 #if defined(FEAT_SYN_HL) |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5102 /* Don't do Filetype autocommands to avoid loading syntax and |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5103 * indent scripts, a great speed improvement. */ |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5104 save_ei = au_event_disable(",Filetype"); |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5105 #endif |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5106 /* Don't use modelines here, it's useless. */ |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5107 save_mls = p_mls; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5108 p_mls = 0; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5109 |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5110 /* Load file into a buffer, so that 'fileencoding' is detected, |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5111 * autocommands applied, etc. */ |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5112 buf = load_dummy_buffer(fname, dirname_start, dirname_now); |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5113 |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5114 p_mls = save_mls; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5115 #if defined(FEAT_SYN_HL) |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5116 au_event_restore(save_ei); |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5117 #endif |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5118 |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5119 return buf; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5120 } |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5121 |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5122 /* |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5123 * Check whether a quickfix/location list valid. Autocmds may remove or change |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5124 * a quickfix list when vimgrep is running. If the list is not found, create a |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5125 * new list. |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5126 */ |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5127 static int |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5128 vgr_qflist_valid( |
|
13594
4d55eb79178b
patch 8.0.1669: :vimgrep may add entries to the wrong quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13521
diff
changeset
|
5129 win_T *wp, |
|
13521
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5130 qf_info_T *qi, |
|
13594
4d55eb79178b
patch 8.0.1669: :vimgrep may add entries to the wrong quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13521
diff
changeset
|
5131 int_u qfid, |
|
13521
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5132 char_u *title) |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5133 { |
|
13594
4d55eb79178b
patch 8.0.1669: :vimgrep may add entries to the wrong quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13521
diff
changeset
|
5134 /* Verify that the quickfix/location list was not freed by an autocmd */ |
|
4d55eb79178b
patch 8.0.1669: :vimgrep may add entries to the wrong quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13521
diff
changeset
|
5135 if (!qflist_valid(wp, qfid)) |
|
4d55eb79178b
patch 8.0.1669: :vimgrep may add entries to the wrong quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13521
diff
changeset
|
5136 { |
|
4d55eb79178b
patch 8.0.1669: :vimgrep may add entries to the wrong quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13521
diff
changeset
|
5137 if (wp != NULL) |
|
13521
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5138 { |
|
13594
4d55eb79178b
patch 8.0.1669: :vimgrep may add entries to the wrong quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13521
diff
changeset
|
5139 /* An autocmd has freed the location list. */ |
|
13521
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5140 EMSG(_(e_loc_list_changed)); |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5141 return FALSE; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5142 } |
|
13594
4d55eb79178b
patch 8.0.1669: :vimgrep may add entries to the wrong quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13521
diff
changeset
|
5143 else |
|
4d55eb79178b
patch 8.0.1669: :vimgrep may add entries to the wrong quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13521
diff
changeset
|
5144 { |
|
4d55eb79178b
patch 8.0.1669: :vimgrep may add entries to the wrong quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13521
diff
changeset
|
5145 /* Quickfix list is not found, create a new one. */ |
|
4d55eb79178b
patch 8.0.1669: :vimgrep may add entries to the wrong quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13521
diff
changeset
|
5146 qf_new_list(qi, title); |
|
4d55eb79178b
patch 8.0.1669: :vimgrep may add entries to the wrong quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13521
diff
changeset
|
5147 return TRUE; |
|
4d55eb79178b
patch 8.0.1669: :vimgrep may add entries to the wrong quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13521
diff
changeset
|
5148 } |
|
4d55eb79178b
patch 8.0.1669: :vimgrep may add entries to the wrong quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13521
diff
changeset
|
5149 } |
|
4d55eb79178b
patch 8.0.1669: :vimgrep may add entries to the wrong quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13521
diff
changeset
|
5150 |
|
14507
5a10a0020c3e
patch 8.1.0267: no good check if restoring quickfix list worked
Christian Brabandt <cb@256bit.org>
parents:
14495
diff
changeset
|
5151 if (qf_restore_list(qi, qfid) == FAIL) |
|
5a10a0020c3e
patch 8.1.0267: no good check if restoring quickfix list worked
Christian Brabandt <cb@256bit.org>
parents:
14495
diff
changeset
|
5152 return FALSE; |
|
13521
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5153 |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5154 return TRUE; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5155 } |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5156 |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5157 /* |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5158 * Search for a pattern in all the lines in a buffer and add the matching lines |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5159 * to a quickfix list. |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5160 */ |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5161 static int |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5162 vgr_match_buflines( |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5163 qf_info_T *qi, |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5164 char_u *fname, |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5165 buf_T *buf, |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5166 regmmatch_T *regmatch, |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5167 long tomatch, |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5168 int duplicate_name, |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5169 int flags) |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5170 { |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5171 int found_match = FALSE; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5172 long lnum; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5173 colnr_T col; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5174 |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5175 for (lnum = 1; lnum <= buf->b_ml.ml_line_count && tomatch > 0; ++lnum) |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5176 { |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5177 col = 0; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5178 while (vim_regexec_multi(regmatch, curwin, buf, lnum, |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5179 col, NULL, NULL) > 0) |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5180 { |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5181 /* Pass the buffer number so that it gets used even for a |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5182 * dummy buffer, unless duplicate_name is set, then the |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5183 * buffer will be wiped out below. */ |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5184 if (qf_add_entry(qi, |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5185 qi->qf_curlist, |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5186 NULL, /* dir */ |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5187 fname, |
|
13821
98274127d675
patch 8.0.1782: no simple way to label quickfix entries
Christian Brabandt <cb@256bit.org>
parents:
13819
diff
changeset
|
5188 NULL, |
|
13521
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5189 duplicate_name ? 0 : buf->b_fnum, |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5190 ml_get_buf(buf, |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5191 regmatch->startpos[0].lnum + lnum, FALSE), |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5192 regmatch->startpos[0].lnum + lnum, |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5193 regmatch->startpos[0].col + 1, |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5194 FALSE, /* vis_col */ |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5195 NULL, /* search pattern */ |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5196 0, /* nr */ |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5197 0, /* type */ |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5198 TRUE /* valid */ |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5199 ) == FAIL) |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5200 { |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5201 got_int = TRUE; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5202 break; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5203 } |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5204 found_match = TRUE; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5205 if (--tomatch == 0) |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5206 break; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5207 if ((flags & VGR_GLOBAL) == 0 |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5208 || regmatch->endpos[0].lnum > 0) |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5209 break; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5210 col = regmatch->endpos[0].col |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5211 + (col == regmatch->endpos[0].col); |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5212 if (col > (colnr_T)STRLEN(ml_get_buf(buf, lnum, FALSE))) |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5213 break; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5214 } |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5215 line_breakcheck(); |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5216 if (got_int) |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5217 break; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5218 } |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5219 |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5220 return found_match; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5221 } |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5222 |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5223 /* |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5224 * Jump to the first match and update the directory. |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5225 */ |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5226 static void |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5227 vgr_jump_to_match( |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5228 qf_info_T *qi, |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5229 int forceit, |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5230 int *redraw_for_dummy, |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5231 buf_T *first_match_buf, |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5232 char_u *target_dir) |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5233 { |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5234 buf_T *buf; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5235 |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5236 buf = curbuf; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5237 qf_jump(qi, 0, 0, forceit); |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5238 if (buf != curbuf) |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5239 /* If we jumped to another buffer redrawing will already be |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5240 * taken care of. */ |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5241 *redraw_for_dummy = FALSE; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5242 |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5243 /* Jump to the directory used after loading the buffer. */ |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5244 if (curbuf == first_match_buf && target_dir != NULL) |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5245 { |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5246 exarg_T ea; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5247 |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5248 ea.arg = target_dir; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5249 ea.cmdidx = CMD_lcd; |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5250 ex_cd(&ea); |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5251 } |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5252 } |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5253 |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5254 /* |
| 41 | 5255 * ":vimgrep {pattern} file(s)" |
| 657 | 5256 * ":vimgrepadd {pattern} file(s)" |
| 5257 * ":lvimgrep {pattern} file(s)" | |
| 5258 * ":lvimgrepadd {pattern} file(s)" | |
| 41 | 5259 */ |
| 5260 void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
5261 ex_vimgrep(exarg_T *eap) |
| 41 | 5262 { |
| 42 | 5263 regmmatch_T regmatch; |
| 153 | 5264 int fcount; |
| 41 | 5265 char_u **fnames; |
| 1411 | 5266 char_u *fname; |
|
8603
bfa74b84c41c
commit https://github.com/vim/vim/commit/5584df65a0ca2315d1eebc13c54a448bee4d0758
Christian Brabandt <cb@256bit.org>
parents:
7833
diff
changeset
|
5267 char_u *title; |
| 153 | 5268 char_u *s; |
| 5269 char_u *p; | |
| 5270 int fi; | |
| 657 | 5271 qf_info_T *qi = &ql_info; |
|
13090
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
5272 int_u save_qfid; |
|
13594
4d55eb79178b
patch 8.0.1669: :vimgrep may add entries to the wrong quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13521
diff
changeset
|
5273 win_T *wp = NULL; |
| 42 | 5274 buf_T *buf; |
| 5275 int duplicate_name = FALSE; | |
| 5276 int using_dummy; | |
| 1396 | 5277 int redraw_for_dummy = FALSE; |
| 42 | 5278 int found_match; |
| 123 | 5279 buf_T *first_match_buf = NULL; |
| 5280 time_t seconds = 0; | |
| 5281 aco_save_T aco; | |
| 170 | 5282 int flags = 0; |
| 716 | 5283 long tomatch; |
| 2770 | 5284 char_u *dirname_start = NULL; |
| 5285 char_u *dirname_now = NULL; | |
| 1411 | 5286 char_u *target_dir = NULL; |
| 1683 | 5287 char_u *au_name = NULL; |
| 161 | 5288 |
|
13521
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5289 au_name = vgr_get_auname(eap->cmdidx); |
|
10346
d52d97bf675e
commit https://github.com/vim/vim/commit/21662be2211675824df1771c7f169948ede40c41
Christian Brabandt <cb@256bit.org>
parents:
10281
diff
changeset
|
5290 if (au_name != NULL && apply_autocmds(EVENT_QUICKFIXCMDPRE, au_name, |
|
d52d97bf675e
commit https://github.com/vim/vim/commit/21662be2211675824df1771c7f169948ede40c41
Christian Brabandt <cb@256bit.org>
parents:
10281
diff
changeset
|
5291 curbuf->b_fname, TRUE, curbuf)) |
| 161 | 5292 { |
|
13380
69517d67421f
patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
13252
diff
changeset
|
5293 #ifdef FEAT_EVAL |
|
10346
d52d97bf675e
commit https://github.com/vim/vim/commit/21662be2211675824df1771c7f169948ede40c41
Christian Brabandt <cb@256bit.org>
parents:
10281
diff
changeset
|
5294 if (aborting()) |
| 161 | 5295 return; |
| 5296 #endif | |
|
13380
69517d67421f
patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
13252
diff
changeset
|
5297 } |
| 41 | 5298 |
|
14550
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
5299 if (is_loclist_cmd(eap->cmdidx)) |
| 657 | 5300 { |
| 5301 qi = ll_get_or_alloc_list(curwin); | |
| 5302 if (qi == NULL) | |
| 5303 return; | |
|
13594
4d55eb79178b
patch 8.0.1669: :vimgrep may add entries to the wrong quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13521
diff
changeset
|
5304 wp = curwin; |
| 657 | 5305 } |
| 5306 | |
| 716 | 5307 if (eap->addr_count > 0) |
| 5308 tomatch = eap->line2; | |
| 5309 else | |
| 5310 tomatch = MAXLNUM; | |
| 5311 | |
| 42 | 5312 /* Get the search pattern: either white-separated or enclosed in // */ |
| 41 | 5313 regmatch.regprog = NULL; |
|
13921
3b6c29f8c1a2
patch 8.0.1831: sometimes the quickfix title is incorrectly prefixed with ':'
Christian Brabandt <cb@256bit.org>
parents:
13882
diff
changeset
|
5314 title = vim_strsave(qf_cmdtitle(*eap->cmdlinep)); |
| 170 | 5315 p = skip_vimgrep_pat(eap->arg, &s, &flags); |
| 153 | 5316 if (p == NULL) |
| 41 | 5317 { |
| 282 | 5318 EMSG(_(e_invalpat)); |
| 153 | 5319 goto theend; |
| 41 | 5320 } |
| 4197 | 5321 |
|
13521
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5322 vgr_init_regmatch(®match, s); |
| 41 | 5323 if (regmatch.regprog == NULL) |
| 5324 goto theend; | |
| 5325 | |
| 5326 p = skipwhite(p); | |
| 5327 if (*p == NUL) | |
| 5328 { | |
| 5329 EMSG(_("E683: File name missing or invalid pattern")); | |
| 5330 goto theend; | |
| 5331 } | |
| 5332 | |
|
12084
69ce6b3f0834
patch 8.0.0922: quickfix list always added after current one
Christian Brabandt <cb@256bit.org>
parents:
12048
diff
changeset
|
5333 if ((eap->cmdidx != CMD_grepadd && eap->cmdidx != CMD_lgrepadd |
|
13521
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5334 && eap->cmdidx != CMD_vimgrepadd |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5335 && eap->cmdidx != CMD_lvimgrepadd) |
| 644 | 5336 || qi->qf_curlist == qi->qf_listcount) |
| 41 | 5337 /* make place for a new list */ |
|
13921
3b6c29f8c1a2
patch 8.0.1831: sometimes the quickfix title is incorrectly prefixed with ':'
Christian Brabandt <cb@256bit.org>
parents:
13882
diff
changeset
|
5338 qf_new_list(qi, title != NULL ? title : qf_cmdtitle(*eap->cmdlinep)); |
| 41 | 5339 |
| 5340 /* parse the list of arguments */ | |
| 3620 | 5341 if (get_arglist_exp(p, &fcount, &fnames, TRUE) == FAIL) |
| 41 | 5342 goto theend; |
| 5343 if (fcount == 0) | |
| 5344 { | |
| 5345 EMSG(_(e_nomatch)); | |
| 5346 goto theend; | |
| 5347 } | |
| 5348 | |
|
7558
9a4c9dccd603
commit https://github.com/vim/vim/commit/b86a343280b08d6701da68ee0651e960a0a7a61c
Christian Brabandt <cb@256bit.org>
parents:
7515
diff
changeset
|
5349 dirname_start = alloc_id(MAXPATHL, aid_qf_dirname_start); |
|
9a4c9dccd603
commit https://github.com/vim/vim/commit/b86a343280b08d6701da68ee0651e960a0a7a61c
Christian Brabandt <cb@256bit.org>
parents:
7515
diff
changeset
|
5350 dirname_now = alloc_id(MAXPATHL, aid_qf_dirname_now); |
| 2770 | 5351 if (dirname_start == NULL || dirname_now == NULL) |
|
7662
4d34891e98f4
commit https://github.com/vim/vim/commit/61ff4dd6a4d47bd32383fe28087be2b37dec53f4
Christian Brabandt <cb@256bit.org>
parents:
7558
diff
changeset
|
5352 { |
|
4d34891e98f4
commit https://github.com/vim/vim/commit/61ff4dd6a4d47bd32383fe28087be2b37dec53f4
Christian Brabandt <cb@256bit.org>
parents:
7558
diff
changeset
|
5353 FreeWild(fcount, fnames); |
| 2770 | 5354 goto theend; |
|
7662
4d34891e98f4
commit https://github.com/vim/vim/commit/61ff4dd6a4d47bd32383fe28087be2b37dec53f4
Christian Brabandt <cb@256bit.org>
parents:
7558
diff
changeset
|
5355 } |
| 2770 | 5356 |
| 1411 | 5357 /* Remember the current directory, because a BufRead autocommand that does |
| 5358 * ":lcd %:p:h" changes the meaning of short path names. */ | |
| 5359 mch_dirname(dirname_start, MAXPATHL); | |
| 5360 | |
|
13594
4d55eb79178b
patch 8.0.1669: :vimgrep may add entries to the wrong quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13521
diff
changeset
|
5361 /* Remember the current quickfix list identifier, so that we can check for |
|
4d55eb79178b
patch 8.0.1669: :vimgrep may add entries to the wrong quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13521
diff
changeset
|
5362 * autocommands changing the current quickfix list. */ |
|
13090
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
5363 save_qfid = qi->qf_lists[qi->qf_curlist].qf_id; |
| 4003 | 5364 |
| 123 | 5365 seconds = (time_t)0; |
| 716 | 5366 for (fi = 0; fi < fcount && !got_int && tomatch > 0; ++fi) |
| 41 | 5367 { |
| 1411 | 5368 fname = shorten_fname1(fnames[fi]); |
| 123 | 5369 if (time(NULL) > seconds) |
| 5370 { | |
| 1411 | 5371 /* Display the file name every second or so, show the user we are |
| 5372 * working on it. */ | |
| 123 | 5373 seconds = time(NULL); |
|
13521
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5374 vgr_display_fname(fname); |
| 123 | 5375 } |
| 5376 | |
| 42 | 5377 buf = buflist_findname_exp(fnames[fi]); |
| 5378 if (buf == NULL || buf->b_ml.ml_mfp == NULL) | |
| 5379 { | |
| 5380 /* Remember that a buffer with this name already exists. */ | |
| 5381 duplicate_name = (buf != NULL); | |
| 123 | 5382 using_dummy = TRUE; |
| 1396 | 5383 redraw_for_dummy = TRUE; |
| 123 | 5384 |
|
13521
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5385 buf = vgr_load_dummy_buf(fname, dirname_start, dirname_now); |
| 42 | 5386 } |
| 5387 else | |
| 5388 /* Use existing, loaded buffer. */ | |
| 5389 using_dummy = FALSE; | |
| 123 | 5390 |
|
13594
4d55eb79178b
patch 8.0.1669: :vimgrep may add entries to the wrong quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13521
diff
changeset
|
5391 /* Check whether the quickfix list is still valid. When loading a |
|
4d55eb79178b
patch 8.0.1669: :vimgrep may add entries to the wrong quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13521
diff
changeset
|
5392 * buffer above, autocommands might have changed the quickfix list. */ |
|
13921
3b6c29f8c1a2
patch 8.0.1831: sometimes the quickfix title is incorrectly prefixed with ':'
Christian Brabandt <cb@256bit.org>
parents:
13882
diff
changeset
|
5393 if (!vgr_qflist_valid(wp, qi, save_qfid, qf_cmdtitle(*eap->cmdlinep))) |
|
13660
2d94fcb0277d
patch 8.0.1702: leaking memory when autocommands make quickfix list invalid
Christian Brabandt <cb@256bit.org>
parents:
13612
diff
changeset
|
5394 { |
|
2d94fcb0277d
patch 8.0.1702: leaking memory when autocommands make quickfix list invalid
Christian Brabandt <cb@256bit.org>
parents:
13612
diff
changeset
|
5395 FreeWild(fcount, fnames); |
|
13521
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5396 goto theend; |
|
13660
2d94fcb0277d
patch 8.0.1702: leaking memory when autocommands make quickfix list invalid
Christian Brabandt <cb@256bit.org>
parents:
13612
diff
changeset
|
5397 } |
|
13594
4d55eb79178b
patch 8.0.1669: :vimgrep may add entries to the wrong quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13521
diff
changeset
|
5398 save_qfid = qi->qf_lists[qi->qf_curlist].qf_id; |
| 4003 | 5399 |
| 42 | 5400 if (buf == NULL) |
| 123 | 5401 { |
| 5402 if (!got_int) | |
| 1411 | 5403 smsg((char_u *)_("Cannot open file \"%s\""), fname); |
| 123 | 5404 } |
| 41 | 5405 else |
| 5406 { | |
| 717 | 5407 /* Try for a match in all lines of the buffer. |
| 5408 * For ":1vimgrep" look for first match only. */ | |
|
13521
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5409 found_match = vgr_match_buflines(qi, fname, buf, ®match, |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5410 tomatch, duplicate_name, flags); |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5411 |
| 42 | 5412 if (using_dummy) |
| 5413 { | |
| 123 | 5414 if (found_match && first_match_buf == NULL) |
| 5415 first_match_buf = buf; | |
| 42 | 5416 if (duplicate_name) |
| 123 | 5417 { |
| 42 | 5418 /* Never keep a dummy buffer if there is another buffer |
| 5419 * with the same name. */ | |
| 3490 | 5420 wipe_dummy_buffer(buf, dirname_start); |
| 123 | 5421 buf = NULL; |
| 5422 } | |
| 717 | 5423 else if (!cmdmod.hide |
| 5424 || buf->b_p_bh[0] == 'u' /* "unload" */ | |
| 5425 || buf->b_p_bh[0] == 'w' /* "wipe" */ | |
| 5426 || buf->b_p_bh[0] == 'd') /* "delete" */ | |
| 42 | 5427 { |
| 717 | 5428 /* When no match was found we don't need to remember the |
| 5429 * buffer, wipe it out. If there was a match and it | |
| 5430 * wasn't the first one or we won't jump there: only | |
| 5431 * unload the buffer. | |
| 5432 * Ignore 'hidden' here, because it may lead to having too | |
| 5433 * many swap files. */ | |
| 42 | 5434 if (!found_match) |
| 123 | 5435 { |
| 3490 | 5436 wipe_dummy_buffer(buf, dirname_start); |
| 123 | 5437 buf = NULL; |
| 5438 } | |
| 170 | 5439 else if (buf != first_match_buf || (flags & VGR_NOJUMP)) |
| 123 | 5440 { |
| 3490 | 5441 unload_dummy_buffer(buf, dirname_start); |
|
9540
64a791c53418
commit https://github.com/vim/vim/commit/015102e91e978a0bb42a14461c132a85e8f7e1ea
Christian Brabandt <cb@256bit.org>
parents:
9538
diff
changeset
|
5442 /* Keeping the buffer, remove the dummy flag. */ |
|
64a791c53418
commit https://github.com/vim/vim/commit/015102e91e978a0bb42a14461c132a85e8f7e1ea
Christian Brabandt <cb@256bit.org>
parents:
9538
diff
changeset
|
5443 buf->b_flags &= ~BF_DUMMY; |
| 123 | 5444 buf = NULL; |
| 5445 } | |
| 42 | 5446 } |
| 123 | 5447 |
| 5448 if (buf != NULL) | |
| 5449 { | |
|
9540
64a791c53418
commit https://github.com/vim/vim/commit/015102e91e978a0bb42a14461c132a85e8f7e1ea
Christian Brabandt <cb@256bit.org>
parents:
9538
diff
changeset
|
5450 /* Keeping the buffer, remove the dummy flag. */ |
|
64a791c53418
commit https://github.com/vim/vim/commit/015102e91e978a0bb42a14461c132a85e8f7e1ea
Christian Brabandt <cb@256bit.org>
parents:
9538
diff
changeset
|
5451 buf->b_flags &= ~BF_DUMMY; |
|
64a791c53418
commit https://github.com/vim/vim/commit/015102e91e978a0bb42a14461c132a85e8f7e1ea
Christian Brabandt <cb@256bit.org>
parents:
9538
diff
changeset
|
5452 |
| 1411 | 5453 /* If the buffer is still loaded we need to use the |
| 5454 * directory we jumped to below. */ | |
| 5455 if (buf == first_match_buf | |
| 5456 && target_dir == NULL | |
| 5457 && STRCMP(dirname_start, dirname_now) != 0) | |
| 5458 target_dir = vim_strsave(dirname_now); | |
| 5459 | |
| 123 | 5460 /* The buffer is still loaded, the Filetype autocommands |
| 677 | 5461 * need to be done now, in that buffer. And the modelines |
| 717 | 5462 * need to be done (again). But not the window-local |
| 5463 * options! */ | |
| 123 | 5464 aucmd_prepbuf(&aco, buf); |
|
13380
69517d67421f
patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
13252
diff
changeset
|
5465 #if defined(FEAT_SYN_HL) |
| 123 | 5466 apply_autocmds(EVENT_FILETYPE, buf->b_p_ft, |
| 5467 buf->b_fname, TRUE, buf); | |
| 677 | 5468 #endif |
| 717 | 5469 do_modelines(OPT_NOWIN); |
| 123 | 5470 aucmd_restbuf(&aco); |
| 5471 } | |
| 42 | 5472 } |
| 41 | 5473 } |
| 5474 } | |
| 5475 | |
| 5476 FreeWild(fcount, fnames); | |
| 5477 | |
| 644 | 5478 qi->qf_lists[qi->qf_curlist].qf_nonevalid = FALSE; |
| 5479 qi->qf_lists[qi->qf_curlist].qf_ptr = qi->qf_lists[qi->qf_curlist].qf_start; | |
| 5480 qi->qf_lists[qi->qf_curlist].qf_index = 1; | |
|
13062
6479dadcf214
patch 8.0.1406: difficult to track changes to a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13056
diff
changeset
|
5481 qf_list_changed(qi, qi->qf_curlist); |
| 41 | 5482 |
|
9175
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
5483 qf_update_buffer(qi, NULL); |
| 41 | 5484 |
| 842 | 5485 if (au_name != NULL) |
| 5486 apply_autocmds(EVENT_QUICKFIXCMDPOST, au_name, | |
| 5487 curbuf->b_fname, TRUE, curbuf); | |
|
13090
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
5488 /* |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
5489 * The QuickFixCmdPost autocmd may free the quickfix list. Check the list |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
5490 * is still valid. |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
5491 */ |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
5492 if (!qflist_valid(wp, save_qfid)) |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
5493 goto theend; |
| 842 | 5494 |
|
14507
5a10a0020c3e
patch 8.1.0267: no good check if restoring quickfix list worked
Christian Brabandt <cb@256bit.org>
parents:
14495
diff
changeset
|
5495 if (qf_restore_list(qi, save_qfid) == FAIL) |
|
5a10a0020c3e
patch 8.1.0267: no good check if restoring quickfix list worked
Christian Brabandt <cb@256bit.org>
parents:
14495
diff
changeset
|
5496 goto theend; |
|
14250
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
5497 |
|
14603
d1b69129db99
patch 8.1.0315: helpgrep with language doesn't work properly
Christian Brabandt <cb@256bit.org>
parents:
14560
diff
changeset
|
5498 // Jump to first match. |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
5499 if (!qf_list_empty(qi, qi->qf_curlist)) |
| 170 | 5500 { |
| 5501 if ((flags & VGR_NOJUMP) == 0) | |
|
13521
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5502 vgr_jump_to_match(qi, eap->forceit, &redraw_for_dummy, |
|
15c856a1617b
patch 8.0.1634: the ex_vimgrep() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13497
diff
changeset
|
5503 first_match_buf, target_dir); |
| 170 | 5504 } |
| 42 | 5505 else |
| 5506 EMSG2(_(e_nomatch2), s); | |
| 41 | 5507 |
| 1396 | 5508 /* If we loaded a dummy buffer into the current window, the autocommands |
| 5509 * may have messed up things, need to redraw and recompute folds. */ | |
| 5510 if (redraw_for_dummy) | |
| 5511 { | |
| 5512 #ifdef FEAT_FOLDING | |
| 5513 foldUpdateAll(curwin); | |
| 5514 #else | |
| 5515 redraw_later(NOT_VALID); | |
| 5516 #endif | |
| 5517 } | |
| 5518 | |
| 41 | 5519 theend: |
|
8603
bfa74b84c41c
commit https://github.com/vim/vim/commit/5584df65a0ca2315d1eebc13c54a448bee4d0758
Christian Brabandt <cb@256bit.org>
parents:
7833
diff
changeset
|
5520 vim_free(title); |
| 2770 | 5521 vim_free(dirname_now); |
| 5522 vim_free(dirname_start); | |
| 1411 | 5523 vim_free(target_dir); |
|
4805
66803af09906
updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents:
4371
diff
changeset
|
5524 vim_regfree(regmatch.regprog); |
| 41 | 5525 } |
| 5526 | |
| 5527 /* | |
| 3490 | 5528 * Restore current working directory to "dirname_start" if they differ, taking |
| 5529 * into account whether it is set locally or globally. | |
| 5530 */ | |
| 5531 static void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
5532 restore_start_dir(char_u *dirname_start) |
| 3490 | 5533 { |
| 5534 char_u *dirname_now = alloc(MAXPATHL); | |
| 5535 | |
| 5536 if (NULL != dirname_now) | |
| 5537 { | |
| 5538 mch_dirname(dirname_now, MAXPATHL); | |
| 5539 if (STRCMP(dirname_start, dirname_now) != 0) | |
| 5540 { | |
| 5541 /* If the directory has changed, change it back by building up an | |
| 5542 * appropriate ex command and executing it. */ | |
| 5543 exarg_T ea; | |
| 5544 | |
| 5545 ea.arg = dirname_start; | |
| 5546 ea.cmdidx = (curwin->w_localdir == NULL) ? CMD_cd : CMD_lcd; | |
| 5547 ex_cd(&ea); | |
| 5548 } | |
| 3974 | 5549 vim_free(dirname_now); |
| 3490 | 5550 } |
| 5551 } | |
| 5552 | |
| 5553 /* | |
| 5554 * Load file "fname" into a dummy buffer and return the buffer pointer, | |
| 5555 * placing the directory resulting from the buffer load into the | |
| 5556 * "resulting_dir" pointer. "resulting_dir" must be allocated by the caller | |
| 5557 * prior to calling this function. Restores directory to "dirname_start" prior | |
| 5558 * to returning, if autocmds or the 'autochdir' option have changed it. | |
| 5559 * | |
| 5560 * If creating the dummy buffer does not fail, must call unload_dummy_buffer() | |
| 5561 * or wipe_dummy_buffer() later! | |
| 5562 * | |
| 42 | 5563 * Returns NULL if it fails. |
| 5564 */ | |
| 5565 static buf_T * | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
5566 load_dummy_buffer( |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
5567 char_u *fname, |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
5568 char_u *dirname_start, /* in: old directory */ |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
5569 char_u *resulting_dir) /* out: new directory */ |
| 42 | 5570 { |
| 5571 buf_T *newbuf; | |
|
9487
69ed2c9d34a6
commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b
Christian Brabandt <cb@256bit.org>
parents:
9485
diff
changeset
|
5572 bufref_T newbufref; |
|
69ed2c9d34a6
commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b
Christian Brabandt <cb@256bit.org>
parents:
9485
diff
changeset
|
5573 bufref_T newbuf_to_wipe; |
| 42 | 5574 int failed = TRUE; |
| 5575 aco_save_T aco; | |
|
13056
b931b2751650
patch 8.0.1403: using freed buffer in grep command
Christian Brabandt <cb@256bit.org>
parents:
13026
diff
changeset
|
5576 int readfile_result; |
| 42 | 5577 |
| 5578 /* Allocate a buffer without putting it in the buffer list. */ | |
| 5579 newbuf = buflist_new(NULL, NULL, (linenr_T)1, BLN_DUMMY); | |
| 5580 if (newbuf == NULL) | |
| 5581 return NULL; | |
|
9487
69ed2c9d34a6
commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b
Christian Brabandt <cb@256bit.org>
parents:
9485
diff
changeset
|
5582 set_bufref(&newbufref, newbuf); |
| 42 | 5583 |
| 177 | 5584 /* Init the options. */ |
| 5585 buf_copy_options(newbuf, BCO_ENTER | BCO_NOHELP); | |
| 5586 | |
| 1918 | 5587 /* need to open the memfile before putting the buffer in a window */ |
| 5588 if (ml_open(newbuf) == OK) | |
| 42 | 5589 { |
|
14250
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
5590 /* Make sure this buffer isn't wiped out by autocommands. */ |
|
13056
b931b2751650
patch 8.0.1403: using freed buffer in grep command
Christian Brabandt <cb@256bit.org>
parents:
13026
diff
changeset
|
5591 ++newbuf->b_locked; |
|
b931b2751650
patch 8.0.1403: using freed buffer in grep command
Christian Brabandt <cb@256bit.org>
parents:
13026
diff
changeset
|
5592 |
| 1918 | 5593 /* set curwin/curbuf to buf and save a few things */ |
| 5594 aucmd_prepbuf(&aco, newbuf); | |
| 5595 | |
| 5596 /* Need to set the filename for autocommands. */ | |
| 5597 (void)setfname(curbuf, fname, NULL, FALSE); | |
| 5598 | |
| 42 | 5599 /* Create swap file now to avoid the ATTENTION message. */ |
| 5600 check_need_swap(TRUE); | |
| 5601 | |
| 5602 /* Remove the "dummy" flag, otherwise autocommands may not | |
| 5603 * work. */ | |
| 5604 curbuf->b_flags &= ~BF_DUMMY; | |
| 5605 | |
|
9487
69ed2c9d34a6
commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b
Christian Brabandt <cb@256bit.org>
parents:
9485
diff
changeset
|
5606 newbuf_to_wipe.br_buf = NULL; |
|
13056
b931b2751650
patch 8.0.1403: using freed buffer in grep command
Christian Brabandt <cb@256bit.org>
parents:
13026
diff
changeset
|
5607 readfile_result = readfile(fname, NULL, |
| 42 | 5608 (linenr_T)0, (linenr_T)0, (linenr_T)MAXLNUM, |
|
13056
b931b2751650
patch 8.0.1403: using freed buffer in grep command
Christian Brabandt <cb@256bit.org>
parents:
13026
diff
changeset
|
5609 NULL, READ_NEW | READ_DUMMY); |
|
b931b2751650
patch 8.0.1403: using freed buffer in grep command
Christian Brabandt <cb@256bit.org>
parents:
13026
diff
changeset
|
5610 --newbuf->b_locked; |
|
b931b2751650
patch 8.0.1403: using freed buffer in grep command
Christian Brabandt <cb@256bit.org>
parents:
13026
diff
changeset
|
5611 if (readfile_result == OK |
| 857 | 5612 && !got_int |
| 42 | 5613 && !(curbuf->b_flags & BF_NEW)) |
| 5614 { | |
| 5615 failed = FALSE; | |
| 5616 if (curbuf != newbuf) | |
| 5617 { | |
| 2646 | 5618 /* Bloody autocommands changed the buffer! Can happen when |
| 5619 * using netrw and editing a remote file. Use the current | |
| 5620 * buffer instead, delete the dummy one after restoring the | |
| 5621 * window stuff. */ | |
|
9487
69ed2c9d34a6
commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b
Christian Brabandt <cb@256bit.org>
parents:
9485
diff
changeset
|
5622 set_bufref(&newbuf_to_wipe, newbuf); |
| 42 | 5623 newbuf = curbuf; |
| 5624 } | |
| 5625 } | |
| 1918 | 5626 |
| 5627 /* restore curwin/curbuf and a few other things */ | |
| 5628 aucmd_restbuf(&aco); | |
|
9487
69ed2c9d34a6
commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b
Christian Brabandt <cb@256bit.org>
parents:
9485
diff
changeset
|
5629 if (newbuf_to_wipe.br_buf != NULL && bufref_valid(&newbuf_to_wipe)) |
|
69ed2c9d34a6
commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b
Christian Brabandt <cb@256bit.org>
parents:
9485
diff
changeset
|
5630 wipe_buffer(newbuf_to_wipe.br_buf, FALSE); |
|
9485
c16e207dc465
commit https://github.com/vim/vim/commit/ea3f2e7be447a8f0c4436869620f908de5e8ef1e
Christian Brabandt <cb@256bit.org>
parents:
9475
diff
changeset
|
5631 |
|
c16e207dc465
commit https://github.com/vim/vim/commit/ea3f2e7be447a8f0c4436869620f908de5e8ef1e
Christian Brabandt <cb@256bit.org>
parents:
9475
diff
changeset
|
5632 /* Add back the "dummy" flag, otherwise buflist_findname_stat() won't |
|
c16e207dc465
commit https://github.com/vim/vim/commit/ea3f2e7be447a8f0c4436869620f908de5e8ef1e
Christian Brabandt <cb@256bit.org>
parents:
9475
diff
changeset
|
5633 * skip it. */ |
|
c16e207dc465
commit https://github.com/vim/vim/commit/ea3f2e7be447a8f0c4436869620f908de5e8ef1e
Christian Brabandt <cb@256bit.org>
parents:
9475
diff
changeset
|
5634 newbuf->b_flags |= BF_DUMMY; |
| 42 | 5635 } |
| 5636 | |
| 3490 | 5637 /* |
| 5638 * When autocommands/'autochdir' option changed directory: go back. | |
| 5639 * Let the caller know what the resulting dir was first, in case it is | |
| 5640 * important. | |
| 5641 */ | |
| 5642 mch_dirname(resulting_dir, MAXPATHL); | |
| 5643 restore_start_dir(dirname_start); | |
| 5644 | |
|
9487
69ed2c9d34a6
commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b
Christian Brabandt <cb@256bit.org>
parents:
9485
diff
changeset
|
5645 if (!bufref_valid(&newbufref)) |
| 42 | 5646 return NULL; |
| 5647 if (failed) | |
| 5648 { | |
| 3490 | 5649 wipe_dummy_buffer(newbuf, dirname_start); |
| 42 | 5650 return NULL; |
| 5651 } | |
| 5652 return newbuf; | |
| 5653 } | |
| 5654 | |
| 5655 /* | |
| 3490 | 5656 * Wipe out the dummy buffer that load_dummy_buffer() created. Restores |
| 5657 * directory to "dirname_start" prior to returning, if autocmds or the | |
| 5658 * 'autochdir' option have changed it. | |
| 42 | 5659 */ |
| 5660 static void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
5661 wipe_dummy_buffer(buf_T *buf, char_u *dirname_start) |
| 42 | 5662 { |
| 5663 if (curbuf != buf) /* safety check */ | |
| 857 | 5664 { |
|
13380
69517d67421f
patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
13252
diff
changeset
|
5665 #if defined(FEAT_EVAL) |
| 857 | 5666 cleanup_T cs; |
| 5667 | |
| 5668 /* Reset the error/interrupt/exception state here so that aborting() | |
| 5669 * returns FALSE when wiping out the buffer. Otherwise it doesn't | |
| 5670 * work when got_int is set. */ | |
| 5671 enter_cleanup(&cs); | |
| 5672 #endif | |
| 5673 | |
| 42 | 5674 wipe_buffer(buf, FALSE); |
| 857 | 5675 |
|
13380
69517d67421f
patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
13252
diff
changeset
|
5676 #if defined(FEAT_EVAL) |
| 857 | 5677 /* Restore the error/interrupt/exception state if not discarded by a |
| 5678 * new aborting error, interrupt, or uncaught exception. */ | |
| 5679 leave_cleanup(&cs); | |
| 5680 #endif | |
| 3490 | 5681 /* When autocommands/'autochdir' option changed directory: go back. */ |
| 5682 restore_start_dir(dirname_start); | |
| 857 | 5683 } |
| 42 | 5684 } |
| 5685 | |
| 5686 /* | |
| 3490 | 5687 * Unload the dummy buffer that load_dummy_buffer() created. Restores |
| 5688 * directory to "dirname_start" prior to returning, if autocmds or the | |
| 5689 * 'autochdir' option have changed it. | |
| 42 | 5690 */ |
| 5691 static void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
5692 unload_dummy_buffer(buf_T *buf, char_u *dirname_start) |
| 42 | 5693 { |
| 5694 if (curbuf != buf) /* safety check */ | |
| 3490 | 5695 { |
| 3365 | 5696 close_buffer(NULL, buf, DOBUF_UNLOAD, FALSE); |
| 3490 | 5697 |
| 5698 /* When autocommands/'autochdir' option changed directory: go back. */ | |
| 5699 restore_start_dir(dirname_start); | |
| 5700 } | |
| 42 | 5701 } |
| 5702 | |
| 170 | 5703 #if defined(FEAT_EVAL) || defined(PROTO) |
| 5704 /* | |
| 5705 * Add each quickfix error to list "list" as a dictionary. | |
|
9850
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
5706 * If qf_idx is -1, use the current list. Otherwise, use the specified list. |
| 170 | 5707 */ |
| 5708 int | |
|
12252
3d0e042ec13c
patch 8.0.1006: quickfix list changes when parsing text with 'erroformat'
Christian Brabandt <cb@256bit.org>
parents:
12146
diff
changeset
|
5709 get_errorlist(qf_info_T *qi_arg, win_T *wp, int qf_idx, list_T *list) |
| 170 | 5710 { |
|
12252
3d0e042ec13c
patch 8.0.1006: quickfix list changes when parsing text with 'erroformat'
Christian Brabandt <cb@256bit.org>
parents:
12146
diff
changeset
|
5711 qf_info_T *qi = qi_arg; |
| 230 | 5712 dict_T *dict; |
| 5713 char_u buf[2]; | |
| 5714 qfline_T *qfp; | |
| 5715 int i; | |
| 1065 | 5716 int bufnum; |
| 170 | 5717 |
|
12252
3d0e042ec13c
patch 8.0.1006: quickfix list changes when parsing text with 'erroformat'
Christian Brabandt <cb@256bit.org>
parents:
12146
diff
changeset
|
5718 if (qi == NULL) |
| 647 | 5719 { |
|
12252
3d0e042ec13c
patch 8.0.1006: quickfix list changes when parsing text with 'erroformat'
Christian Brabandt <cb@256bit.org>
parents:
12146
diff
changeset
|
5720 qi = &ql_info; |
|
3d0e042ec13c
patch 8.0.1006: quickfix list changes when parsing text with 'erroformat'
Christian Brabandt <cb@256bit.org>
parents:
12146
diff
changeset
|
5721 if (wp != NULL) |
|
3d0e042ec13c
patch 8.0.1006: quickfix list changes when parsing text with 'erroformat'
Christian Brabandt <cb@256bit.org>
parents:
12146
diff
changeset
|
5722 { |
|
3d0e042ec13c
patch 8.0.1006: quickfix list changes when parsing text with 'erroformat'
Christian Brabandt <cb@256bit.org>
parents:
12146
diff
changeset
|
5723 qi = GET_LOC_LIST(wp); |
|
3d0e042ec13c
patch 8.0.1006: quickfix list changes when parsing text with 'erroformat'
Christian Brabandt <cb@256bit.org>
parents:
12146
diff
changeset
|
5724 if (qi == NULL) |
|
3d0e042ec13c
patch 8.0.1006: quickfix list changes when parsing text with 'erroformat'
Christian Brabandt <cb@256bit.org>
parents:
12146
diff
changeset
|
5725 return FAIL; |
|
3d0e042ec13c
patch 8.0.1006: quickfix list changes when parsing text with 'erroformat'
Christian Brabandt <cb@256bit.org>
parents:
12146
diff
changeset
|
5726 } |
| 647 | 5727 } |
| 5728 | |
|
13800
e4dc4ede9ef8
patch 8.0.1772: quickfix: mixup of FALSE and FAIL, returning -1
Christian Brabandt <cb@256bit.org>
parents:
13764
diff
changeset
|
5729 if (qf_idx == INVALID_QFIDX) |
|
9850
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
5730 qf_idx = qi->qf_curlist; |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
5731 |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
5732 if (qf_idx >= qi->qf_listcount || qf_list_empty(qi, qf_idx)) |
| 170 | 5733 return FAIL; |
| 5734 | |
|
9850
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
5735 qfp = qi->qf_lists[qf_idx].qf_start; |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
5736 for (i = 1; !got_int && i <= qi->qf_lists[qf_idx].qf_count; ++i) |
| 170 | 5737 { |
| 1065 | 5738 /* Handle entries with a non-existing buffer number. */ |
| 5739 bufnum = qfp->qf_fnum; | |
| 5740 if (bufnum != 0 && (buflist_findnr(bufnum) == NULL)) | |
| 5741 bufnum = 0; | |
| 5742 | |
| 170 | 5743 if ((dict = dict_alloc()) == NULL) |
| 5744 return FAIL; | |
| 5745 if (list_append_dict(list, dict) == FAIL) | |
| 5746 return FAIL; | |
| 5747 | |
| 5748 buf[0] = qfp->qf_type; | |
| 5749 buf[1] = NUL; | |
|
14301
3c80092eb211
patch 8.1.0166: using dict_add_nr_str() is clumsy
Christian Brabandt <cb@256bit.org>
parents:
14299
diff
changeset
|
5750 if ( dict_add_number(dict, "bufnr", (long)bufnum) == FAIL |
|
3c80092eb211
patch 8.1.0166: using dict_add_nr_str() is clumsy
Christian Brabandt <cb@256bit.org>
parents:
14299
diff
changeset
|
5751 || dict_add_number(dict, "lnum", (long)qfp->qf_lnum) == FAIL |
|
3c80092eb211
patch 8.1.0166: using dict_add_nr_str() is clumsy
Christian Brabandt <cb@256bit.org>
parents:
14299
diff
changeset
|
5752 || dict_add_number(dict, "col", (long)qfp->qf_col) == FAIL |
|
3c80092eb211
patch 8.1.0166: using dict_add_nr_str() is clumsy
Christian Brabandt <cb@256bit.org>
parents:
14299
diff
changeset
|
5753 || dict_add_number(dict, "vcol", (long)qfp->qf_viscol) == FAIL |
|
3c80092eb211
patch 8.1.0166: using dict_add_nr_str() is clumsy
Christian Brabandt <cb@256bit.org>
parents:
14299
diff
changeset
|
5754 || dict_add_number(dict, "nr", (long)qfp->qf_nr) == FAIL |
|
3c80092eb211
patch 8.1.0166: using dict_add_nr_str() is clumsy
Christian Brabandt <cb@256bit.org>
parents:
14299
diff
changeset
|
5755 || dict_add_string(dict, "module", qfp->qf_module) == FAIL |
|
3c80092eb211
patch 8.1.0166: using dict_add_nr_str() is clumsy
Christian Brabandt <cb@256bit.org>
parents:
14299
diff
changeset
|
5756 || dict_add_string(dict, "pattern", qfp->qf_pattern) == FAIL |
|
3c80092eb211
patch 8.1.0166: using dict_add_nr_str() is clumsy
Christian Brabandt <cb@256bit.org>
parents:
14299
diff
changeset
|
5757 || dict_add_string(dict, "text", qfp->qf_text) == FAIL |
|
3c80092eb211
patch 8.1.0166: using dict_add_nr_str() is clumsy
Christian Brabandt <cb@256bit.org>
parents:
14299
diff
changeset
|
5758 || dict_add_string(dict, "type", buf) == FAIL |
|
3c80092eb211
patch 8.1.0166: using dict_add_nr_str() is clumsy
Christian Brabandt <cb@256bit.org>
parents:
14299
diff
changeset
|
5759 || dict_add_number(dict, "valid", (long)qfp->qf_valid) == FAIL) |
| 170 | 5760 return FAIL; |
| 5761 | |
| 5762 qfp = qfp->qf_next; | |
|
9195
543f068f3706
commit https://github.com/vim/vim/commit/83e6d7ac6a1c2a0cb5ee6c8420a5dc792f1d5ffa
Christian Brabandt <cb@256bit.org>
parents:
9175
diff
changeset
|
5763 if (qfp == NULL) |
|
543f068f3706
commit https://github.com/vim/vim/commit/83e6d7ac6a1c2a0cb5ee6c8420a5dc792f1d5ffa
Christian Brabandt <cb@256bit.org>
parents:
9175
diff
changeset
|
5764 break; |
| 170 | 5765 } |
| 5766 return OK; | |
| 5767 } | |
| 230 | 5768 |
| 5769 /* | |
|
9850
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
5770 * Flags used by getqflist()/getloclist() to determine which fields to return. |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
5771 */ |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
5772 enum { |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
5773 QF_GETLIST_NONE = 0x0, |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
5774 QF_GETLIST_TITLE = 0x1, |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
5775 QF_GETLIST_ITEMS = 0x2, |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
5776 QF_GETLIST_NR = 0x4, |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
5777 QF_GETLIST_WINID = 0x8, |
|
11412
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
5778 QF_GETLIST_CONTEXT = 0x10, |
|
12287
20641a7e1fc9
patch 8.0.1023: it is not easy to identify a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
12252
diff
changeset
|
5779 QF_GETLIST_ID = 0x20, |
|
12465
805f7fd40e0d
patch 8.0.1112: can't get size or current index from quickfix list
Christian Brabandt <cb@256bit.org>
parents:
12449
diff
changeset
|
5780 QF_GETLIST_IDX = 0x40, |
|
805f7fd40e0d
patch 8.0.1112: can't get size or current index from quickfix list
Christian Brabandt <cb@256bit.org>
parents:
12449
diff
changeset
|
5781 QF_GETLIST_SIZE = 0x80, |
|
13062
6479dadcf214
patch 8.0.1406: difficult to track changes to a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13056
diff
changeset
|
5782 QF_GETLIST_TICK = 0x100, |
|
14664
8770189c3e22
patch 8.1.0345: cannot get the window id associated with the location list
Christian Brabandt <cb@256bit.org>
parents:
14633
diff
changeset
|
5783 QF_GETLIST_FILEWINID = 0x200, |
|
8770189c3e22
patch 8.1.0345: cannot get the window id associated with the location list
Christian Brabandt <cb@256bit.org>
parents:
14633
diff
changeset
|
5784 QF_GETLIST_ALL = 0x3FF, |
|
9850
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
5785 }; |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
5786 |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
5787 /* |
|
13710
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5788 * Parse text from 'di' and return the quickfix list items. |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5789 * Existing quickfix lists are not modified. |
|
12252
3d0e042ec13c
patch 8.0.1006: quickfix list changes when parsing text with 'erroformat'
Christian Brabandt <cb@256bit.org>
parents:
12146
diff
changeset
|
5790 */ |
|
3d0e042ec13c
patch 8.0.1006: quickfix list changes when parsing text with 'erroformat'
Christian Brabandt <cb@256bit.org>
parents:
12146
diff
changeset
|
5791 static int |
|
12321
2779d593a706
patch 8.0.1040: cannot use another error format in getqflist()
Christian Brabandt <cb@256bit.org>
parents:
12303
diff
changeset
|
5792 qf_get_list_from_lines(dict_T *what, dictitem_T *di, dict_T *retdict) |
|
12252
3d0e042ec13c
patch 8.0.1006: quickfix list changes when parsing text with 'erroformat'
Christian Brabandt <cb@256bit.org>
parents:
12146
diff
changeset
|
5793 { |
|
3d0e042ec13c
patch 8.0.1006: quickfix list changes when parsing text with 'erroformat'
Christian Brabandt <cb@256bit.org>
parents:
12146
diff
changeset
|
5794 int status = FAIL; |
|
3d0e042ec13c
patch 8.0.1006: quickfix list changes when parsing text with 'erroformat'
Christian Brabandt <cb@256bit.org>
parents:
12146
diff
changeset
|
5795 qf_info_T *qi; |
|
12321
2779d593a706
patch 8.0.1040: cannot use another error format in getqflist()
Christian Brabandt <cb@256bit.org>
parents:
12303
diff
changeset
|
5796 char_u *errorformat = p_efm; |
|
2779d593a706
patch 8.0.1040: cannot use another error format in getqflist()
Christian Brabandt <cb@256bit.org>
parents:
12303
diff
changeset
|
5797 dictitem_T *efm_di; |
|
2779d593a706
patch 8.0.1040: cannot use another error format in getqflist()
Christian Brabandt <cb@256bit.org>
parents:
12303
diff
changeset
|
5798 list_T *l; |
|
12252
3d0e042ec13c
patch 8.0.1006: quickfix list changes when parsing text with 'erroformat'
Christian Brabandt <cb@256bit.org>
parents:
12146
diff
changeset
|
5799 |
|
12303
ec7a4fd21dd5
patch 8.0.1031: "text" argument for getqflist() is confusing
Christian Brabandt <cb@256bit.org>
parents:
12299
diff
changeset
|
5800 /* Only a List value is supported */ |
|
ec7a4fd21dd5
patch 8.0.1031: "text" argument for getqflist() is confusing
Christian Brabandt <cb@256bit.org>
parents:
12299
diff
changeset
|
5801 if (di->di_tv.v_type == VAR_LIST && di->di_tv.vval.v_list != NULL) |
|
12252
3d0e042ec13c
patch 8.0.1006: quickfix list changes when parsing text with 'erroformat'
Christian Brabandt <cb@256bit.org>
parents:
12146
diff
changeset
|
5802 { |
|
12321
2779d593a706
patch 8.0.1040: cannot use another error format in getqflist()
Christian Brabandt <cb@256bit.org>
parents:
12303
diff
changeset
|
5803 /* If errorformat is supplied then use it, otherwise use the 'efm' |
|
2779d593a706
patch 8.0.1040: cannot use another error format in getqflist()
Christian Brabandt <cb@256bit.org>
parents:
12303
diff
changeset
|
5804 * option setting |
|
2779d593a706
patch 8.0.1040: cannot use another error format in getqflist()
Christian Brabandt <cb@256bit.org>
parents:
12303
diff
changeset
|
5805 */ |
|
2779d593a706
patch 8.0.1040: cannot use another error format in getqflist()
Christian Brabandt <cb@256bit.org>
parents:
12303
diff
changeset
|
5806 if ((efm_di = dict_find(what, (char_u *)"efm", -1)) != NULL) |
|
2779d593a706
patch 8.0.1040: cannot use another error format in getqflist()
Christian Brabandt <cb@256bit.org>
parents:
12303
diff
changeset
|
5807 { |
|
2779d593a706
patch 8.0.1040: cannot use another error format in getqflist()
Christian Brabandt <cb@256bit.org>
parents:
12303
diff
changeset
|
5808 if (efm_di->di_tv.v_type != VAR_STRING || |
|
2779d593a706
patch 8.0.1040: cannot use another error format in getqflist()
Christian Brabandt <cb@256bit.org>
parents:
12303
diff
changeset
|
5809 efm_di->di_tv.vval.v_string == NULL) |
|
2779d593a706
patch 8.0.1040: cannot use another error format in getqflist()
Christian Brabandt <cb@256bit.org>
parents:
12303
diff
changeset
|
5810 return FAIL; |
|
2779d593a706
patch 8.0.1040: cannot use another error format in getqflist()
Christian Brabandt <cb@256bit.org>
parents:
12303
diff
changeset
|
5811 errorformat = efm_di->di_tv.vval.v_string; |
|
2779d593a706
patch 8.0.1040: cannot use another error format in getqflist()
Christian Brabandt <cb@256bit.org>
parents:
12303
diff
changeset
|
5812 } |
|
2779d593a706
patch 8.0.1040: cannot use another error format in getqflist()
Christian Brabandt <cb@256bit.org>
parents:
12303
diff
changeset
|
5813 |
|
2779d593a706
patch 8.0.1040: cannot use another error format in getqflist()
Christian Brabandt <cb@256bit.org>
parents:
12303
diff
changeset
|
5814 l = list_alloc(); |
|
12299
f4d00472e617
patch 8.0.1029: return value of getqflist() is inconsistent
Christian Brabandt <cb@256bit.org>
parents:
12287
diff
changeset
|
5815 if (l == NULL) |
|
f4d00472e617
patch 8.0.1029: return value of getqflist() is inconsistent
Christian Brabandt <cb@256bit.org>
parents:
12287
diff
changeset
|
5816 return FAIL; |
|
f4d00472e617
patch 8.0.1029: return value of getqflist() is inconsistent
Christian Brabandt <cb@256bit.org>
parents:
12287
diff
changeset
|
5817 |
|
14495
178162aeebeb
patch 8.1.0261: Coverity complains about a negative array index
Christian Brabandt <cb@256bit.org>
parents:
14491
diff
changeset
|
5818 qi = ll_new_list(); |
|
12252
3d0e042ec13c
patch 8.0.1006: quickfix list changes when parsing text with 'erroformat'
Christian Brabandt <cb@256bit.org>
parents:
12146
diff
changeset
|
5819 if (qi != NULL) |
|
3d0e042ec13c
patch 8.0.1006: quickfix list changes when parsing text with 'erroformat'
Christian Brabandt <cb@256bit.org>
parents:
12146
diff
changeset
|
5820 { |
|
12321
2779d593a706
patch 8.0.1040: cannot use another error format in getqflist()
Christian Brabandt <cb@256bit.org>
parents:
12303
diff
changeset
|
5821 if (qf_init_ext(qi, 0, NULL, NULL, &di->di_tv, errorformat, |
|
12252
3d0e042ec13c
patch 8.0.1006: quickfix list changes when parsing text with 'erroformat'
Christian Brabandt <cb@256bit.org>
parents:
12146
diff
changeset
|
5822 TRUE, (linenr_T)0, (linenr_T)0, NULL, NULL) > 0) |
|
3d0e042ec13c
patch 8.0.1006: quickfix list changes when parsing text with 'erroformat'
Christian Brabandt <cb@256bit.org>
parents:
12146
diff
changeset
|
5823 { |
|
12299
f4d00472e617
patch 8.0.1029: return value of getqflist() is inconsistent
Christian Brabandt <cb@256bit.org>
parents:
12287
diff
changeset
|
5824 (void)get_errorlist(qi, NULL, 0, l); |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
5825 qf_free(&qi->qf_lists[0]); |
|
12252
3d0e042ec13c
patch 8.0.1006: quickfix list changes when parsing text with 'erroformat'
Christian Brabandt <cb@256bit.org>
parents:
12146
diff
changeset
|
5826 } |
|
3d0e042ec13c
patch 8.0.1006: quickfix list changes when parsing text with 'erroformat'
Christian Brabandt <cb@256bit.org>
parents:
12146
diff
changeset
|
5827 free(qi); |
|
3d0e042ec13c
patch 8.0.1006: quickfix list changes when parsing text with 'erroformat'
Christian Brabandt <cb@256bit.org>
parents:
12146
diff
changeset
|
5828 } |
|
12299
f4d00472e617
patch 8.0.1029: return value of getqflist() is inconsistent
Christian Brabandt <cb@256bit.org>
parents:
12287
diff
changeset
|
5829 dict_add_list(retdict, "items", l); |
|
f4d00472e617
patch 8.0.1029: return value of getqflist() is inconsistent
Christian Brabandt <cb@256bit.org>
parents:
12287
diff
changeset
|
5830 status = OK; |
|
12252
3d0e042ec13c
patch 8.0.1006: quickfix list changes when parsing text with 'erroformat'
Christian Brabandt <cb@256bit.org>
parents:
12146
diff
changeset
|
5831 } |
|
3d0e042ec13c
patch 8.0.1006: quickfix list changes when parsing text with 'erroformat'
Christian Brabandt <cb@256bit.org>
parents:
12146
diff
changeset
|
5832 |
|
3d0e042ec13c
patch 8.0.1006: quickfix list changes when parsing text with 'erroformat'
Christian Brabandt <cb@256bit.org>
parents:
12146
diff
changeset
|
5833 return status; |
|
3d0e042ec13c
patch 8.0.1006: quickfix list changes when parsing text with 'erroformat'
Christian Brabandt <cb@256bit.org>
parents:
12146
diff
changeset
|
5834 } |
|
3d0e042ec13c
patch 8.0.1006: quickfix list changes when parsing text with 'erroformat'
Christian Brabandt <cb@256bit.org>
parents:
12146
diff
changeset
|
5835 |
|
3d0e042ec13c
patch 8.0.1006: quickfix list changes when parsing text with 'erroformat'
Christian Brabandt <cb@256bit.org>
parents:
12146
diff
changeset
|
5836 /* |
|
13115
9812a9ca3ab2
patch 8.0.1432: after ":copen" can't get the window-ID of the quickfix window
Christian Brabandt <cb@256bit.org>
parents:
13105
diff
changeset
|
5837 * Return the quickfix/location list window identifier in the current tabpage. |
|
9812a9ca3ab2
patch 8.0.1432: after ":copen" can't get the window-ID of the quickfix window
Christian Brabandt <cb@256bit.org>
parents:
13105
diff
changeset
|
5838 */ |
|
9812a9ca3ab2
patch 8.0.1432: after ":copen" can't get the window-ID of the quickfix window
Christian Brabandt <cb@256bit.org>
parents:
13105
diff
changeset
|
5839 static int |
|
9812a9ca3ab2
patch 8.0.1432: after ":copen" can't get the window-ID of the quickfix window
Christian Brabandt <cb@256bit.org>
parents:
13105
diff
changeset
|
5840 qf_winid(qf_info_T *qi) |
|
9812a9ca3ab2
patch 8.0.1432: after ":copen" can't get the window-ID of the quickfix window
Christian Brabandt <cb@256bit.org>
parents:
13105
diff
changeset
|
5841 { |
|
9812a9ca3ab2
patch 8.0.1432: after ":copen" can't get the window-ID of the quickfix window
Christian Brabandt <cb@256bit.org>
parents:
13105
diff
changeset
|
5842 win_T *win; |
|
9812a9ca3ab2
patch 8.0.1432: after ":copen" can't get the window-ID of the quickfix window
Christian Brabandt <cb@256bit.org>
parents:
13105
diff
changeset
|
5843 |
|
9812a9ca3ab2
patch 8.0.1432: after ":copen" can't get the window-ID of the quickfix window
Christian Brabandt <cb@256bit.org>
parents:
13105
diff
changeset
|
5844 /* The quickfix window can be opened even if the quickfix list is not set |
|
9812a9ca3ab2
patch 8.0.1432: after ":copen" can't get the window-ID of the quickfix window
Christian Brabandt <cb@256bit.org>
parents:
13105
diff
changeset
|
5845 * using ":copen". This is not true for location lists. */ |
|
9812a9ca3ab2
patch 8.0.1432: after ":copen" can't get the window-ID of the quickfix window
Christian Brabandt <cb@256bit.org>
parents:
13105
diff
changeset
|
5846 if (qi == NULL) |
|
9812a9ca3ab2
patch 8.0.1432: after ":copen" can't get the window-ID of the quickfix window
Christian Brabandt <cb@256bit.org>
parents:
13105
diff
changeset
|
5847 return 0; |
|
9812a9ca3ab2
patch 8.0.1432: after ":copen" can't get the window-ID of the quickfix window
Christian Brabandt <cb@256bit.org>
parents:
13105
diff
changeset
|
5848 win = qf_find_win(qi); |
|
9812a9ca3ab2
patch 8.0.1432: after ":copen" can't get the window-ID of the quickfix window
Christian Brabandt <cb@256bit.org>
parents:
13105
diff
changeset
|
5849 if (win != NULL) |
|
9812a9ca3ab2
patch 8.0.1432: after ":copen" can't get the window-ID of the quickfix window
Christian Brabandt <cb@256bit.org>
parents:
13105
diff
changeset
|
5850 return win->w_id; |
|
9812a9ca3ab2
patch 8.0.1432: after ":copen" can't get the window-ID of the quickfix window
Christian Brabandt <cb@256bit.org>
parents:
13105
diff
changeset
|
5851 return 0; |
|
9812a9ca3ab2
patch 8.0.1432: after ":copen" can't get the window-ID of the quickfix window
Christian Brabandt <cb@256bit.org>
parents:
13105
diff
changeset
|
5852 } |
|
9812a9ca3ab2
patch 8.0.1432: after ":copen" can't get the window-ID of the quickfix window
Christian Brabandt <cb@256bit.org>
parents:
13105
diff
changeset
|
5853 |
|
9812a9ca3ab2
patch 8.0.1432: after ":copen" can't get the window-ID of the quickfix window
Christian Brabandt <cb@256bit.org>
parents:
13105
diff
changeset
|
5854 /* |
|
13710
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5855 * Convert the keys in 'what' to quickfix list property flags. |
| 230 | 5856 */ |
|
13710
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5857 static int |
|
14664
8770189c3e22
patch 8.1.0345: cannot get the window id associated with the location list
Christian Brabandt <cb@256bit.org>
parents:
14633
diff
changeset
|
5858 qf_getprop_keys2flags(dict_T *what, int loclist) |
|
9850
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
5859 { |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
5860 int flags = QF_GETLIST_NONE; |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
5861 |
|
12287
20641a7e1fc9
patch 8.0.1023: it is not easy to identify a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
12252
diff
changeset
|
5862 if (dict_find(what, (char_u *)"all", -1) != NULL) |
|
14664
8770189c3e22
patch 8.1.0345: cannot get the window id associated with the location list
Christian Brabandt <cb@256bit.org>
parents:
14633
diff
changeset
|
5863 { |
|
12287
20641a7e1fc9
patch 8.0.1023: it is not easy to identify a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
12252
diff
changeset
|
5864 flags |= QF_GETLIST_ALL; |
|
14664
8770189c3e22
patch 8.1.0345: cannot get the window id associated with the location list
Christian Brabandt <cb@256bit.org>
parents:
14633
diff
changeset
|
5865 if (!loclist) |
|
8770189c3e22
patch 8.1.0345: cannot get the window id associated with the location list
Christian Brabandt <cb@256bit.org>
parents:
14633
diff
changeset
|
5866 // File window ID is applicable only to location list windows |
|
8770189c3e22
patch 8.1.0345: cannot get the window id associated with the location list
Christian Brabandt <cb@256bit.org>
parents:
14633
diff
changeset
|
5867 flags &= ~ QF_GETLIST_FILEWINID; |
|
8770189c3e22
patch 8.1.0345: cannot get the window id associated with the location list
Christian Brabandt <cb@256bit.org>
parents:
14633
diff
changeset
|
5868 } |
|
12287
20641a7e1fc9
patch 8.0.1023: it is not easy to identify a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
12252
diff
changeset
|
5869 |
|
20641a7e1fc9
patch 8.0.1023: it is not easy to identify a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
12252
diff
changeset
|
5870 if (dict_find(what, (char_u *)"title", -1) != NULL) |
|
20641a7e1fc9
patch 8.0.1023: it is not easy to identify a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
12252
diff
changeset
|
5871 flags |= QF_GETLIST_TITLE; |
|
20641a7e1fc9
patch 8.0.1023: it is not easy to identify a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
12252
diff
changeset
|
5872 |
|
13026
7c0e0e923537
patch 8.0.1389: getqflist() items are missing if not set
Christian Brabandt <cb@256bit.org>
parents:
13016
diff
changeset
|
5873 if (dict_find(what, (char_u *)"nr", -1) != NULL) |
|
7c0e0e923537
patch 8.0.1389: getqflist() items are missing if not set
Christian Brabandt <cb@256bit.org>
parents:
13016
diff
changeset
|
5874 flags |= QF_GETLIST_NR; |
|
7c0e0e923537
patch 8.0.1389: getqflist() items are missing if not set
Christian Brabandt <cb@256bit.org>
parents:
13016
diff
changeset
|
5875 |
|
12287
20641a7e1fc9
patch 8.0.1023: it is not easy to identify a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
12252
diff
changeset
|
5876 if (dict_find(what, (char_u *)"winid", -1) != NULL) |
|
20641a7e1fc9
patch 8.0.1023: it is not easy to identify a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
12252
diff
changeset
|
5877 flags |= QF_GETLIST_WINID; |
|
20641a7e1fc9
patch 8.0.1023: it is not easy to identify a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
12252
diff
changeset
|
5878 |
|
20641a7e1fc9
patch 8.0.1023: it is not easy to identify a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
12252
diff
changeset
|
5879 if (dict_find(what, (char_u *)"context", -1) != NULL) |
|
20641a7e1fc9
patch 8.0.1023: it is not easy to identify a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
12252
diff
changeset
|
5880 flags |= QF_GETLIST_CONTEXT; |
|
20641a7e1fc9
patch 8.0.1023: it is not easy to identify a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
12252
diff
changeset
|
5881 |
|
13026
7c0e0e923537
patch 8.0.1389: getqflist() items are missing if not set
Christian Brabandt <cb@256bit.org>
parents:
13016
diff
changeset
|
5882 if (dict_find(what, (char_u *)"id", -1) != NULL) |
|
7c0e0e923537
patch 8.0.1389: getqflist() items are missing if not set
Christian Brabandt <cb@256bit.org>
parents:
13016
diff
changeset
|
5883 flags |= QF_GETLIST_ID; |
|
7c0e0e923537
patch 8.0.1389: getqflist() items are missing if not set
Christian Brabandt <cb@256bit.org>
parents:
13016
diff
changeset
|
5884 |
|
12287
20641a7e1fc9
patch 8.0.1023: it is not easy to identify a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
12252
diff
changeset
|
5885 if (dict_find(what, (char_u *)"items", -1) != NULL) |
|
20641a7e1fc9
patch 8.0.1023: it is not easy to identify a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
12252
diff
changeset
|
5886 flags |= QF_GETLIST_ITEMS; |
|
11412
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
5887 |
|
12465
805f7fd40e0d
patch 8.0.1112: can't get size or current index from quickfix list
Christian Brabandt <cb@256bit.org>
parents:
12449
diff
changeset
|
5888 if (dict_find(what, (char_u *)"idx", -1) != NULL) |
|
805f7fd40e0d
patch 8.0.1112: can't get size or current index from quickfix list
Christian Brabandt <cb@256bit.org>
parents:
12449
diff
changeset
|
5889 flags |= QF_GETLIST_IDX; |
|
805f7fd40e0d
patch 8.0.1112: can't get size or current index from quickfix list
Christian Brabandt <cb@256bit.org>
parents:
12449
diff
changeset
|
5890 |
|
805f7fd40e0d
patch 8.0.1112: can't get size or current index from quickfix list
Christian Brabandt <cb@256bit.org>
parents:
12449
diff
changeset
|
5891 if (dict_find(what, (char_u *)"size", -1) != NULL) |
|
805f7fd40e0d
patch 8.0.1112: can't get size or current index from quickfix list
Christian Brabandt <cb@256bit.org>
parents:
12449
diff
changeset
|
5892 flags |= QF_GETLIST_SIZE; |
|
805f7fd40e0d
patch 8.0.1112: can't get size or current index from quickfix list
Christian Brabandt <cb@256bit.org>
parents:
12449
diff
changeset
|
5893 |
|
13062
6479dadcf214
patch 8.0.1406: difficult to track changes to a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13056
diff
changeset
|
5894 if (dict_find(what, (char_u *)"changedtick", -1) != NULL) |
|
6479dadcf214
patch 8.0.1406: difficult to track changes to a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13056
diff
changeset
|
5895 flags |= QF_GETLIST_TICK; |
|
6479dadcf214
patch 8.0.1406: difficult to track changes to a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13056
diff
changeset
|
5896 |
|
14664
8770189c3e22
patch 8.1.0345: cannot get the window id associated with the location list
Christian Brabandt <cb@256bit.org>
parents:
14633
diff
changeset
|
5897 if (loclist && dict_find(what, (char_u *)"filewinid", -1) != NULL) |
|
8770189c3e22
patch 8.1.0345: cannot get the window id associated with the location list
Christian Brabandt <cb@256bit.org>
parents:
14633
diff
changeset
|
5898 flags |= QF_GETLIST_FILEWINID; |
|
8770189c3e22
patch 8.1.0345: cannot get the window id associated with the location list
Christian Brabandt <cb@256bit.org>
parents:
14633
diff
changeset
|
5899 |
|
13710
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5900 return flags; |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5901 } |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5902 |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5903 /* |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5904 * Return the quickfix list index based on 'nr' or 'id' in 'what'. |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5905 * If 'nr' and 'id' are not present in 'what' then return the current |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5906 * quickfix list index. |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5907 * If 'nr' is zero then return the current quickfix list index. |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5908 * If 'nr' is '$' then return the last quickfix list index. |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5909 * If 'id' is present then return the index of the quickfix list with that id. |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5910 * If 'id' is zero then return the quickfix list index specified by 'nr'. |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5911 * Return -1, if quickfix list is not present or if the stack is empty. |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5912 */ |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5913 static int |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5914 qf_getprop_qfidx(qf_info_T *qi, dict_T *what) |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5915 { |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5916 int qf_idx; |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5917 dictitem_T *di; |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5918 |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5919 qf_idx = qi->qf_curlist; /* default is the current list */ |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5920 if ((di = dict_find(what, (char_u *)"nr", -1)) != NULL) |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5921 { |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5922 /* Use the specified quickfix/location list */ |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5923 if (di->di_tv.v_type == VAR_NUMBER) |
|
13026
7c0e0e923537
patch 8.0.1389: getqflist() items are missing if not set
Christian Brabandt <cb@256bit.org>
parents:
13016
diff
changeset
|
5924 { |
|
13710
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5925 /* for zero use the current list */ |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5926 if (di->di_tv.vval.v_number != 0) |
|
13026
7c0e0e923537
patch 8.0.1389: getqflist() items are missing if not set
Christian Brabandt <cb@256bit.org>
parents:
13016
diff
changeset
|
5927 { |
|
13710
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5928 qf_idx = di->di_tv.vval.v_number - 1; |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5929 if (qf_idx < 0 || qf_idx >= qi->qf_listcount) |
|
13760
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
5930 qf_idx = INVALID_QFIDX; |
|
13026
7c0e0e923537
patch 8.0.1389: getqflist() items are missing if not set
Christian Brabandt <cb@256bit.org>
parents:
13016
diff
changeset
|
5931 } |
|
7c0e0e923537
patch 8.0.1389: getqflist() items are missing if not set
Christian Brabandt <cb@256bit.org>
parents:
13016
diff
changeset
|
5932 } |
|
13710
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5933 else if (di->di_tv.v_type == VAR_STRING |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5934 && di->di_tv.vval.v_string != NULL |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5935 && STRCMP(di->di_tv.vval.v_string, "$") == 0) |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5936 /* Get the last quickfix list number */ |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5937 qf_idx = qi->qf_listcount - 1; |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5938 else |
|
13760
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
5939 qf_idx = INVALID_QFIDX; |
|
13710
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5940 } |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5941 |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5942 if ((di = dict_find(what, (char_u *)"id", -1)) != NULL) |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5943 { |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5944 /* Look for a list with the specified id */ |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5945 if (di->di_tv.v_type == VAR_NUMBER) |
|
13026
7c0e0e923537
patch 8.0.1389: getqflist() items are missing if not set
Christian Brabandt <cb@256bit.org>
parents:
13016
diff
changeset
|
5946 { |
|
13710
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5947 /* |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5948 * For zero, use the current list or the list specified by 'nr' |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5949 */ |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5950 if (di->di_tv.vval.v_number != 0) |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5951 qf_idx = qf_id2nr(qi, di->di_tv.vval.v_number); |
|
13026
7c0e0e923537
patch 8.0.1389: getqflist() items are missing if not set
Christian Brabandt <cb@256bit.org>
parents:
13016
diff
changeset
|
5952 } |
|
13710
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5953 else |
|
13760
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
5954 qf_idx = INVALID_QFIDX; |
|
13710
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5955 } |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5956 |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5957 return qf_idx; |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5958 } |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5959 |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5960 /* |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5961 * Return default values for quickfix list properties in retdict. |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5962 */ |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5963 static int |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5964 qf_getprop_defaults(qf_info_T *qi, int flags, dict_T *retdict) |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5965 { |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5966 int status = OK; |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5967 |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5968 if (flags & QF_GETLIST_TITLE) |
|
14301
3c80092eb211
patch 8.1.0166: using dict_add_nr_str() is clumsy
Christian Brabandt <cb@256bit.org>
parents:
14299
diff
changeset
|
5969 status = dict_add_string(retdict, "title", (char_u *)""); |
|
13710
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5970 if ((status == OK) && (flags & QF_GETLIST_ITEMS)) |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5971 { |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5972 list_T *l = list_alloc(); |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5973 if (l != NULL) |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5974 status = dict_add_list(retdict, "items", l); |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5975 else |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5976 status = FAIL; |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5977 } |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5978 if ((status == OK) && (flags & QF_GETLIST_NR)) |
|
14301
3c80092eb211
patch 8.1.0166: using dict_add_nr_str() is clumsy
Christian Brabandt <cb@256bit.org>
parents:
14299
diff
changeset
|
5979 status = dict_add_number(retdict, "nr", 0); |
|
13710
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5980 if ((status == OK) && (flags & QF_GETLIST_WINID)) |
|
14301
3c80092eb211
patch 8.1.0166: using dict_add_nr_str() is clumsy
Christian Brabandt <cb@256bit.org>
parents:
14299
diff
changeset
|
5981 status = dict_add_number(retdict, "winid", qf_winid(qi)); |
|
13710
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5982 if ((status == OK) && (flags & QF_GETLIST_CONTEXT)) |
|
14301
3c80092eb211
patch 8.1.0166: using dict_add_nr_str() is clumsy
Christian Brabandt <cb@256bit.org>
parents:
14299
diff
changeset
|
5983 status = dict_add_string(retdict, "context", (char_u *)""); |
|
13710
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5984 if ((status == OK) && (flags & QF_GETLIST_ID)) |
|
14301
3c80092eb211
patch 8.1.0166: using dict_add_nr_str() is clumsy
Christian Brabandt <cb@256bit.org>
parents:
14299
diff
changeset
|
5985 status = dict_add_number(retdict, "id", 0); |
|
13710
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5986 if ((status == OK) && (flags & QF_GETLIST_IDX)) |
|
14301
3c80092eb211
patch 8.1.0166: using dict_add_nr_str() is clumsy
Christian Brabandt <cb@256bit.org>
parents:
14299
diff
changeset
|
5987 status = dict_add_number(retdict, "idx", 0); |
|
13710
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5988 if ((status == OK) && (flags & QF_GETLIST_SIZE)) |
|
14301
3c80092eb211
patch 8.1.0166: using dict_add_nr_str() is clumsy
Christian Brabandt <cb@256bit.org>
parents:
14299
diff
changeset
|
5989 status = dict_add_number(retdict, "size", 0); |
|
13710
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5990 if ((status == OK) && (flags & QF_GETLIST_TICK)) |
|
14301
3c80092eb211
patch 8.1.0166: using dict_add_nr_str() is clumsy
Christian Brabandt <cb@256bit.org>
parents:
14299
diff
changeset
|
5991 status = dict_add_number(retdict, "changedtick", 0); |
|
14664
8770189c3e22
patch 8.1.0345: cannot get the window id associated with the location list
Christian Brabandt <cb@256bit.org>
parents:
14633
diff
changeset
|
5992 if ((status == OK) && (qi != &ql_info) && (flags & QF_GETLIST_FILEWINID)) |
|
8770189c3e22
patch 8.1.0345: cannot get the window id associated with the location list
Christian Brabandt <cb@256bit.org>
parents:
14633
diff
changeset
|
5993 status = dict_add_number(retdict, "filewinid", 0); |
|
13710
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5994 |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5995 return status; |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5996 } |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5997 |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5998 /* |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
5999 * Return the quickfix list title as 'title' in retdict |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6000 */ |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6001 static int |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6002 qf_getprop_title(qf_info_T *qi, int qf_idx, dict_T *retdict) |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6003 { |
|
14301
3c80092eb211
patch 8.1.0166: using dict_add_nr_str() is clumsy
Christian Brabandt <cb@256bit.org>
parents:
14299
diff
changeset
|
6004 return dict_add_string(retdict, "title", qi->qf_lists[qf_idx].qf_title); |
|
13710
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6005 } |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6006 |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6007 /* |
|
14664
8770189c3e22
patch 8.1.0345: cannot get the window id associated with the location list
Christian Brabandt <cb@256bit.org>
parents:
14633
diff
changeset
|
6008 * Returns the identifier of the window used to display files from a location |
|
8770189c3e22
patch 8.1.0345: cannot get the window id associated with the location list
Christian Brabandt <cb@256bit.org>
parents:
14633
diff
changeset
|
6009 * list. If there is no associated window, then returns 0. Useful only when |
|
8770189c3e22
patch 8.1.0345: cannot get the window id associated with the location list
Christian Brabandt <cb@256bit.org>
parents:
14633
diff
changeset
|
6010 * called from a location list window. |
|
8770189c3e22
patch 8.1.0345: cannot get the window id associated with the location list
Christian Brabandt <cb@256bit.org>
parents:
14633
diff
changeset
|
6011 */ |
|
8770189c3e22
patch 8.1.0345: cannot get the window id associated with the location list
Christian Brabandt <cb@256bit.org>
parents:
14633
diff
changeset
|
6012 static int |
|
8770189c3e22
patch 8.1.0345: cannot get the window id associated with the location list
Christian Brabandt <cb@256bit.org>
parents:
14633
diff
changeset
|
6013 qf_getprop_filewinid(win_T *wp, qf_info_T *qi, dict_T *retdict) |
|
8770189c3e22
patch 8.1.0345: cannot get the window id associated with the location list
Christian Brabandt <cb@256bit.org>
parents:
14633
diff
changeset
|
6014 { |
|
8770189c3e22
patch 8.1.0345: cannot get the window id associated with the location list
Christian Brabandt <cb@256bit.org>
parents:
14633
diff
changeset
|
6015 int winid = 0; |
|
8770189c3e22
patch 8.1.0345: cannot get the window id associated with the location list
Christian Brabandt <cb@256bit.org>
parents:
14633
diff
changeset
|
6016 |
|
8770189c3e22
patch 8.1.0345: cannot get the window id associated with the location list
Christian Brabandt <cb@256bit.org>
parents:
14633
diff
changeset
|
6017 if (wp != NULL && IS_LL_WINDOW(wp)) |
|
8770189c3e22
patch 8.1.0345: cannot get the window id associated with the location list
Christian Brabandt <cb@256bit.org>
parents:
14633
diff
changeset
|
6018 { |
|
8770189c3e22
patch 8.1.0345: cannot get the window id associated with the location list
Christian Brabandt <cb@256bit.org>
parents:
14633
diff
changeset
|
6019 win_T *ll_wp = qf_find_win_with_loclist(qi); |
|
8770189c3e22
patch 8.1.0345: cannot get the window id associated with the location list
Christian Brabandt <cb@256bit.org>
parents:
14633
diff
changeset
|
6020 if (ll_wp != NULL) |
|
8770189c3e22
patch 8.1.0345: cannot get the window id associated with the location list
Christian Brabandt <cb@256bit.org>
parents:
14633
diff
changeset
|
6021 winid = ll_wp->w_id; |
|
8770189c3e22
patch 8.1.0345: cannot get the window id associated with the location list
Christian Brabandt <cb@256bit.org>
parents:
14633
diff
changeset
|
6022 } |
|
8770189c3e22
patch 8.1.0345: cannot get the window id associated with the location list
Christian Brabandt <cb@256bit.org>
parents:
14633
diff
changeset
|
6023 |
|
8770189c3e22
patch 8.1.0345: cannot get the window id associated with the location list
Christian Brabandt <cb@256bit.org>
parents:
14633
diff
changeset
|
6024 return dict_add_number(retdict, "filewinid", winid); |
|
8770189c3e22
patch 8.1.0345: cannot get the window id associated with the location list
Christian Brabandt <cb@256bit.org>
parents:
14633
diff
changeset
|
6025 } |
|
8770189c3e22
patch 8.1.0345: cannot get the window id associated with the location list
Christian Brabandt <cb@256bit.org>
parents:
14633
diff
changeset
|
6026 |
|
8770189c3e22
patch 8.1.0345: cannot get the window id associated with the location list
Christian Brabandt <cb@256bit.org>
parents:
14633
diff
changeset
|
6027 /* |
|
13710
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6028 * Return the quickfix list items/entries as 'items' in retdict |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6029 */ |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6030 static int |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6031 qf_getprop_items(qf_info_T *qi, int qf_idx, dict_T *retdict) |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6032 { |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6033 int status = OK; |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6034 list_T *l = list_alloc(); |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6035 if (l != NULL) |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6036 { |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6037 (void)get_errorlist(qi, NULL, qf_idx, l); |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6038 dict_add_list(retdict, "items", l); |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6039 } |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6040 else |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6041 status = FAIL; |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6042 |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6043 return status; |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6044 } |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6045 |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6046 /* |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6047 * Return the quickfix list context (if any) as 'context' in retdict. |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6048 */ |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6049 static int |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6050 qf_getprop_ctx(qf_info_T *qi, int qf_idx, dict_T *retdict) |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6051 { |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6052 int status; |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6053 dictitem_T *di; |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6054 |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6055 if (qi->qf_lists[qf_idx].qf_ctx != NULL) |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6056 { |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6057 di = dictitem_alloc((char_u *)"context"); |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6058 if (di != NULL) |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6059 { |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6060 copy_tv(qi->qf_lists[qf_idx].qf_ctx, &di->di_tv); |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6061 status = dict_add(retdict, di); |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6062 if (status == FAIL) |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6063 dictitem_free(di); |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6064 } |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6065 else |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6066 status = FAIL; |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6067 } |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6068 else |
|
14301
3c80092eb211
patch 8.1.0166: using dict_add_nr_str() is clumsy
Christian Brabandt <cb@256bit.org>
parents:
14299
diff
changeset
|
6069 status = dict_add_string(retdict, "context", (char_u *)""); |
|
13710
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6070 |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6071 return status; |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6072 } |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6073 |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6074 /* |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6075 * Return the quickfix list index as 'idx' in retdict |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6076 */ |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6077 static int |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6078 qf_getprop_idx(qf_info_T *qi, int qf_idx, dict_T *retdict) |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6079 { |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6080 int idx = qi->qf_lists[qf_idx].qf_index; |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
6081 if (qf_list_empty(qi, qf_idx)) |
|
13710
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6082 /* For empty lists, qf_index is set to 1 */ |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6083 idx = 0; |
|
14301
3c80092eb211
patch 8.1.0166: using dict_add_nr_str() is clumsy
Christian Brabandt <cb@256bit.org>
parents:
14299
diff
changeset
|
6084 return dict_add_number(retdict, "idx", idx); |
|
13710
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6085 } |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6086 |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6087 /* |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6088 * Return quickfix/location list details (title) as a |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6089 * dictionary. 'what' contains the details to return. If 'list_idx' is -1, |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6090 * then current list is used. Otherwise the specified list is used. |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6091 */ |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6092 int |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6093 qf_get_properties(win_T *wp, dict_T *what, dict_T *retdict) |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6094 { |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6095 qf_info_T *qi = &ql_info; |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
6096 qf_list_T *qfl; |
|
13710
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6097 int status = OK; |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6098 int qf_idx; |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6099 dictitem_T *di; |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6100 int flags = QF_GETLIST_NONE; |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6101 |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6102 if ((di = dict_find(what, (char_u *)"lines", -1)) != NULL) |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6103 return qf_get_list_from_lines(what, di, retdict); |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6104 |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6105 if (wp != NULL) |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6106 qi = GET_LOC_LIST(wp); |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6107 |
|
14664
8770189c3e22
patch 8.1.0345: cannot get the window id associated with the location list
Christian Brabandt <cb@256bit.org>
parents:
14633
diff
changeset
|
6108 flags = qf_getprop_keys2flags(what, (wp != NULL)); |
|
13710
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6109 |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6110 if (qi != NULL && qi->qf_listcount != 0) |
|
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6111 qf_idx = qf_getprop_qfidx(qi, what); |
|
13026
7c0e0e923537
patch 8.0.1389: getqflist() items are missing if not set
Christian Brabandt <cb@256bit.org>
parents:
13016
diff
changeset
|
6112 |
|
7c0e0e923537
patch 8.0.1389: getqflist() items are missing if not set
Christian Brabandt <cb@256bit.org>
parents:
13016
diff
changeset
|
6113 /* List is not present or is empty */ |
|
13760
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6114 if (qi == NULL || qi->qf_listcount == 0 || qf_idx == INVALID_QFIDX) |
|
13710
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6115 return qf_getprop_defaults(qi, flags, retdict); |
|
13026
7c0e0e923537
patch 8.0.1389: getqflist() items are missing if not set
Christian Brabandt <cb@256bit.org>
parents:
13016
diff
changeset
|
6116 |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
6117 qfl = &qi->qf_lists[qf_idx]; |
|
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
6118 |
|
9850
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6119 if (flags & QF_GETLIST_TITLE) |
|
13710
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6120 status = qf_getprop_title(qi, qf_idx, retdict); |
|
9850
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6121 if ((status == OK) && (flags & QF_GETLIST_NR)) |
|
14301
3c80092eb211
patch 8.1.0166: using dict_add_nr_str() is clumsy
Christian Brabandt <cb@256bit.org>
parents:
14299
diff
changeset
|
6122 status = dict_add_number(retdict, "nr", qf_idx + 1); |
|
9850
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6123 if ((status == OK) && (flags & QF_GETLIST_WINID)) |
|
14301
3c80092eb211
patch 8.1.0166: using dict_add_nr_str() is clumsy
Christian Brabandt <cb@256bit.org>
parents:
14299
diff
changeset
|
6124 status = dict_add_number(retdict, "winid", qf_winid(qi)); |
|
11549
f5add45f9848
patch 8.0.0657: cannot get and set quickfix list items
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
6125 if ((status == OK) && (flags & QF_GETLIST_ITEMS)) |
|
13710
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6126 status = qf_getprop_items(qi, qf_idx, retdict); |
|
11412
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6127 if ((status == OK) && (flags & QF_GETLIST_CONTEXT)) |
|
13710
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6128 status = qf_getprop_ctx(qi, qf_idx, retdict); |
|
12287
20641a7e1fc9
patch 8.0.1023: it is not easy to identify a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
12252
diff
changeset
|
6129 if ((status == OK) && (flags & QF_GETLIST_ID)) |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
6130 status = dict_add_number(retdict, "id", qfl->qf_id); |
|
12465
805f7fd40e0d
patch 8.0.1112: can't get size or current index from quickfix list
Christian Brabandt <cb@256bit.org>
parents:
12449
diff
changeset
|
6131 if ((status == OK) && (flags & QF_GETLIST_IDX)) |
|
13710
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6132 status = qf_getprop_idx(qi, qf_idx, retdict); |
|
12465
805f7fd40e0d
patch 8.0.1112: can't get size or current index from quickfix list
Christian Brabandt <cb@256bit.org>
parents:
12449
diff
changeset
|
6133 if ((status == OK) && (flags & QF_GETLIST_SIZE)) |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
6134 status = dict_add_number(retdict, "size", qfl->qf_count); |
|
13062
6479dadcf214
patch 8.0.1406: difficult to track changes to a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13056
diff
changeset
|
6135 if ((status == OK) && (flags & QF_GETLIST_TICK)) |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
6136 status = dict_add_number(retdict, "changedtick", qfl->qf_changedtick); |
|
14664
8770189c3e22
patch 8.1.0345: cannot get the window id associated with the location list
Christian Brabandt <cb@256bit.org>
parents:
14633
diff
changeset
|
6137 if ((status == OK) && (wp != NULL) && (flags & QF_GETLIST_FILEWINID)) |
|
8770189c3e22
patch 8.1.0345: cannot get the window id associated with the location list
Christian Brabandt <cb@256bit.org>
parents:
14633
diff
changeset
|
6138 status = qf_getprop_filewinid(wp, qi, retdict); |
|
13062
6479dadcf214
patch 8.0.1406: difficult to track changes to a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13056
diff
changeset
|
6139 |
|
9850
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6140 return status; |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6141 } |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6142 |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6143 /* |
|
14633
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6144 * Add a new quickfix entry to list at 'qf_idx' in the stack 'qi' from the |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6145 * items in the dict 'd'. |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6146 */ |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6147 static int |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6148 qf_add_entry_from_dict( |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6149 qf_info_T *qi, |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6150 int qf_idx, |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6151 dict_T *d, |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6152 int first_entry) |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6153 { |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6154 static int did_bufnr_emsg; |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6155 char_u *filename, *module, *pattern, *text, *type; |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6156 int bufnum, valid, status, col, vcol, nr; |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6157 long lnum; |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6158 |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6159 if (first_entry) |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6160 did_bufnr_emsg = FALSE; |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6161 |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6162 filename = get_dict_string(d, (char_u *)"filename", TRUE); |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6163 module = get_dict_string(d, (char_u *)"module", TRUE); |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6164 bufnum = (int)get_dict_number(d, (char_u *)"bufnr"); |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6165 lnum = (int)get_dict_number(d, (char_u *)"lnum"); |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6166 col = (int)get_dict_number(d, (char_u *)"col"); |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6167 vcol = (int)get_dict_number(d, (char_u *)"vcol"); |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6168 nr = (int)get_dict_number(d, (char_u *)"nr"); |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6169 type = get_dict_string(d, (char_u *)"type", TRUE); |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6170 pattern = get_dict_string(d, (char_u *)"pattern", TRUE); |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6171 text = get_dict_string(d, (char_u *)"text", TRUE); |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6172 if (text == NULL) |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6173 text = vim_strsave((char_u *)""); |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6174 |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6175 valid = TRUE; |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6176 if ((filename == NULL && bufnum == 0) || (lnum == 0 && pattern == NULL)) |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6177 valid = FALSE; |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6178 |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6179 // Mark entries with non-existing buffer number as not valid. Give the |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6180 // error message only once. |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6181 if (bufnum != 0 && (buflist_findnr(bufnum) == NULL)) |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6182 { |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6183 if (!did_bufnr_emsg) |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6184 { |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6185 did_bufnr_emsg = TRUE; |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6186 EMSGN(_("E92: Buffer %ld not found"), bufnum); |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6187 } |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6188 valid = FALSE; |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6189 bufnum = 0; |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6190 } |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6191 |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6192 // If the 'valid' field is present it overrules the detected value. |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6193 if ((dict_find(d, (char_u *)"valid", -1)) != NULL) |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6194 valid = (int)get_dict_number(d, (char_u *)"valid"); |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6195 |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6196 status = qf_add_entry(qi, |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6197 qf_idx, |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6198 NULL, // dir |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6199 filename, |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6200 module, |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6201 bufnum, |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6202 text, |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6203 lnum, |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6204 col, |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6205 vcol, // vis_col |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6206 pattern, // search pattern |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6207 nr, |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6208 type == NULL ? NUL : *type, |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6209 valid); |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6210 |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6211 vim_free(filename); |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6212 vim_free(module); |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6213 vim_free(pattern); |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6214 vim_free(text); |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6215 vim_free(type); |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6216 |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6217 return status; |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6218 } |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6219 |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6220 /* |
|
9850
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6221 * Add list of entries to quickfix/location list. Each list entry is |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6222 * a dictionary with item information. |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6223 */ |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6224 static int |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6225 qf_add_entries( |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6226 qf_info_T *qi, |
|
11449
d2f00eb352b9
patch 8.0.0608: cannot manipulate other than the current quickfix list
Christian Brabandt <cb@256bit.org>
parents:
11447
diff
changeset
|
6227 int qf_idx, |
|
9850
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6228 list_T *list, |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6229 char_u *title, |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6230 int action) |
| 230 | 6231 { |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
6232 qf_list_T *qfl = &qi->qf_lists[qf_idx]; |
| 230 | 6233 listitem_T *li; |
| 6234 dict_T *d; | |
|
9175
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
6235 qfline_T *old_last = NULL; |
| 230 | 6236 int retval = OK; |
| 644 | 6237 |
|
11449
d2f00eb352b9
patch 8.0.0608: cannot manipulate other than the current quickfix list
Christian Brabandt <cb@256bit.org>
parents:
11447
diff
changeset
|
6238 if (action == ' ' || qf_idx == qi->qf_listcount) |
|
d2f00eb352b9
patch 8.0.0608: cannot manipulate other than the current quickfix list
Christian Brabandt <cb@256bit.org>
parents:
11447
diff
changeset
|
6239 { |
| 277 | 6240 /* make place for a new list */ |
| 3965 | 6241 qf_new_list(qi, title); |
|
11449
d2f00eb352b9
patch 8.0.0608: cannot manipulate other than the current quickfix list
Christian Brabandt <cb@256bit.org>
parents:
11447
diff
changeset
|
6242 qf_idx = qi->qf_curlist; |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
6243 qfl = &qi->qf_lists[qf_idx]; |
|
11449
d2f00eb352b9
patch 8.0.0608: cannot manipulate other than the current quickfix list
Christian Brabandt <cb@256bit.org>
parents:
11447
diff
changeset
|
6244 } |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
6245 else if (action == 'a' && !qf_list_empty(qi, qf_idx)) |
|
9195
543f068f3706
commit https://github.com/vim/vim/commit/83e6d7ac6a1c2a0cb5ee6c8420a5dc792f1d5ffa
Christian Brabandt <cb@256bit.org>
parents:
9175
diff
changeset
|
6246 /* Adding to existing list, use last entry. */ |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
6247 old_last = qfl->qf_last; |
| 277 | 6248 else if (action == 'r') |
| 6079 | 6249 { |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
6250 qf_free_items(qfl); |
|
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
6251 qf_store_title(qfl, title); |
| 6079 | 6252 } |
| 230 | 6253 |
| 6254 for (li = list->lv_first; li != NULL; li = li->li_next) | |
| 6255 { | |
| 6256 if (li->li_tv.v_type != VAR_DICT) | |
| 6257 continue; /* Skip non-dict items */ | |
| 6258 | |
| 6259 d = li->li_tv.vval.v_dict; | |
| 6260 if (d == NULL) | |
| 6261 continue; | |
| 6262 | |
|
14633
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6263 retval = qf_add_entry_from_dict(qi, qf_idx, d, li == list->lv_first); |
|
462087b5c415
patch 8.1.0330: the qf_add_entries() function is too long
Christian Brabandt <cb@256bit.org>
parents:
14603
diff
changeset
|
6264 if (retval == FAIL) |
| 230 | 6265 break; |
| 6266 } | |
| 6267 | |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
6268 if (qfl->qf_index == 0) |
| 2795 | 6269 /* no valid entry */ |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
6270 qfl->qf_nonevalid = TRUE; |
|
2146
c17a42da3920
updated for version 7.2.428
Bram Moolenaar <bram@zimbu.org>
parents:
2047
diff
changeset
|
6271 else |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
6272 qfl->qf_nonevalid = FALSE; |
|
11263
ae5f9f26f81c
patch 8.0.0517: there is no way to remove quickfix lists
Christian Brabandt <cb@256bit.org>
parents:
11195
diff
changeset
|
6273 if (action != 'a') |
|
ae5f9f26f81c
patch 8.0.0517: there is no way to remove quickfix lists
Christian Brabandt <cb@256bit.org>
parents:
11195
diff
changeset
|
6274 { |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
6275 qfl->qf_ptr = qfl->qf_start; |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
6276 if (!qf_list_empty(qi, qf_idx)) |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
6277 qfl->qf_index = 1; |
|
8932
25c2031e9f9f
commit https://github.com/vim/vim/commit/c1808d5822ed9534ef7f0fe509b15bee92a5cc28
Christian Brabandt <cb@256bit.org>
parents:
8751
diff
changeset
|
6278 } |
| 230 | 6279 |
|
8932
25c2031e9f9f
commit https://github.com/vim/vim/commit/c1808d5822ed9534ef7f0fe509b15bee92a5cc28
Christian Brabandt <cb@256bit.org>
parents:
8751
diff
changeset
|
6280 /* Don't update the cursor in quickfix window when appending entries */ |
|
9175
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
6281 qf_update_buffer(qi, old_last); |
| 230 | 6282 |
| 6283 return retval; | |
| 6284 } | |
|
9850
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6285 |
|
13760
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6286 /* |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6287 * Get the quickfix list index from 'nr' or 'id' |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6288 */ |
|
9850
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6289 static int |
|
13760
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6290 qf_setprop_get_qfidx( |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6291 qf_info_T *qi, |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6292 dict_T *what, |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6293 int action, |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6294 int *newlist) |
|
9850
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6295 { |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6296 dictitem_T *di; |
|
13760
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6297 int qf_idx = qi->qf_curlist; /* default is the current list */ |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6298 |
|
9850
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6299 if ((di = dict_find(what, (char_u *)"nr", -1)) != NULL) |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6300 { |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6301 /* Use the specified quickfix/location list */ |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6302 if (di->di_tv.v_type == VAR_NUMBER) |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6303 { |
|
11445
461ac47c3793
patch 8.0.0606: cannot set the context for a specified quickfix list
Christian Brabandt <cb@256bit.org>
parents:
11443
diff
changeset
|
6304 /* for zero use the current list */ |
|
461ac47c3793
patch 8.0.0606: cannot set the context for a specified quickfix list
Christian Brabandt <cb@256bit.org>
parents:
11443
diff
changeset
|
6305 if (di->di_tv.vval.v_number != 0) |
|
461ac47c3793
patch 8.0.0606: cannot set the context for a specified quickfix list
Christian Brabandt <cb@256bit.org>
parents:
11443
diff
changeset
|
6306 qf_idx = di->di_tv.vval.v_number - 1; |
|
11549
f5add45f9848
patch 8.0.0657: cannot get and set quickfix list items
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
6307 |
|
12084
69ce6b3f0834
patch 8.0.0922: quickfix list always added after current one
Christian Brabandt <cb@256bit.org>
parents:
12048
diff
changeset
|
6308 if ((action == ' ' || action == 'a') && qf_idx == qi->qf_listcount) |
|
69ce6b3f0834
patch 8.0.0922: quickfix list always added after current one
Christian Brabandt <cb@256bit.org>
parents:
12048
diff
changeset
|
6309 { |
|
11549
f5add45f9848
patch 8.0.0657: cannot get and set quickfix list items
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
6310 /* |
|
f5add45f9848
patch 8.0.0657: cannot get and set quickfix list items
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
6311 * When creating a new list, accept qf_idx pointing to the next |
|
12084
69ce6b3f0834
patch 8.0.0922: quickfix list always added after current one
Christian Brabandt <cb@256bit.org>
parents:
12048
diff
changeset
|
6312 * non-available list and add the new list at the end of the |
|
69ce6b3f0834
patch 8.0.0922: quickfix list always added after current one
Christian Brabandt <cb@256bit.org>
parents:
12048
diff
changeset
|
6313 * stack. |
|
11549
f5add45f9848
patch 8.0.0657: cannot get and set quickfix list items
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
6314 */ |
|
13760
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6315 *newlist = TRUE; |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6316 qf_idx = qi->qf_listcount > 0 ? qi->qf_listcount - 1 : 0; |
|
12084
69ce6b3f0834
patch 8.0.0922: quickfix list always added after current one
Christian Brabandt <cb@256bit.org>
parents:
12048
diff
changeset
|
6317 } |
|
11549
f5add45f9848
patch 8.0.0657: cannot get and set quickfix list items
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
6318 else if (qf_idx < 0 || qf_idx >= qi->qf_listcount) |
|
13760
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6319 return INVALID_QFIDX; |
|
12084
69ce6b3f0834
patch 8.0.0922: quickfix list always added after current one
Christian Brabandt <cb@256bit.org>
parents:
12048
diff
changeset
|
6320 else if (action != ' ') |
|
13760
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6321 *newlist = FALSE; /* use the specified list */ |
|
12084
69ce6b3f0834
patch 8.0.0922: quickfix list always added after current one
Christian Brabandt <cb@256bit.org>
parents:
12048
diff
changeset
|
6322 } |
|
69ce6b3f0834
patch 8.0.0922: quickfix list always added after current one
Christian Brabandt <cb@256bit.org>
parents:
12048
diff
changeset
|
6323 else if (di->di_tv.v_type == VAR_STRING |
|
13760
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6324 && di->di_tv.vval.v_string != NULL |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6325 && STRCMP(di->di_tv.vval.v_string, "$") == 0) |
|
11549
f5add45f9848
patch 8.0.0657: cannot get and set quickfix list items
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
6326 { |
|
12084
69ce6b3f0834
patch 8.0.0922: quickfix list always added after current one
Christian Brabandt <cb@256bit.org>
parents:
12048
diff
changeset
|
6327 if (qi->qf_listcount > 0) |
|
69ce6b3f0834
patch 8.0.0922: quickfix list always added after current one
Christian Brabandt <cb@256bit.org>
parents:
12048
diff
changeset
|
6328 qf_idx = qi->qf_listcount - 1; |
|
13760
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6329 else if (*newlist) |
|
12084
69ce6b3f0834
patch 8.0.0922: quickfix list always added after current one
Christian Brabandt <cb@256bit.org>
parents:
12048
diff
changeset
|
6330 qf_idx = 0; |
|
69ce6b3f0834
patch 8.0.0922: quickfix list always added after current one
Christian Brabandt <cb@256bit.org>
parents:
12048
diff
changeset
|
6331 else |
|
13760
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6332 return INVALID_QFIDX; |
|
11549
f5add45f9848
patch 8.0.0657: cannot get and set quickfix list items
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
6333 } |
|
9850
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6334 else |
|
13760
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6335 return INVALID_QFIDX; |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6336 } |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6337 |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6338 if (!*newlist && (di = dict_find(what, (char_u *)"id", -1)) != NULL) |
|
12287
20641a7e1fc9
patch 8.0.1023: it is not easy to identify a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
12252
diff
changeset
|
6339 { |
|
20641a7e1fc9
patch 8.0.1023: it is not easy to identify a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
12252
diff
changeset
|
6340 /* Use the quickfix/location list with the specified id */ |
|
13760
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6341 if (di->di_tv.v_type != VAR_NUMBER) |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6342 return INVALID_QFIDX; |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6343 |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6344 return qf_id2nr(qi, di->di_tv.vval.v_number); |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6345 } |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6346 |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6347 return qf_idx; |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6348 } |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6349 |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6350 /* |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6351 * Set the quickfix list title. |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6352 */ |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6353 static int |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6354 qf_setprop_title(qf_info_T *qi, int qf_idx, dict_T *what, dictitem_T *di) |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6355 { |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6356 if (di->di_tv.v_type != VAR_STRING) |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6357 return FAIL; |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6358 |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6359 vim_free(qi->qf_lists[qf_idx].qf_title); |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6360 qi->qf_lists[qf_idx].qf_title = |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6361 get_dict_string(what, (char_u *)"title", TRUE); |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6362 if (qf_idx == qi->qf_curlist) |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6363 qf_update_win_titlevar(qi); |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6364 |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6365 return OK; |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6366 } |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6367 |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6368 /* |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6369 * Set quickfix list items/entries. |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6370 */ |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6371 static int |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6372 qf_setprop_items(qf_info_T *qi, int qf_idx, dictitem_T *di, int action) |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6373 { |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6374 int retval = FAIL; |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6375 char_u *title_save; |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6376 |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6377 if (di->di_tv.v_type != VAR_LIST) |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6378 return FAIL; |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6379 |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6380 title_save = vim_strsave(qi->qf_lists[qf_idx].qf_title); |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6381 retval = qf_add_entries(qi, qf_idx, di->di_tv.vval.v_list, |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6382 title_save, action == ' ' ? 'a' : action); |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6383 vim_free(title_save); |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6384 |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6385 return retval; |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6386 } |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6387 |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6388 /* |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6389 * Set quickfix list items/entries from a list of lines. |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6390 */ |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6391 static int |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6392 qf_setprop_items_from_lines( |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6393 qf_info_T *qi, |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6394 int qf_idx, |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6395 dict_T *what, |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6396 dictitem_T *di, |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6397 int action) |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6398 { |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6399 char_u *errorformat = p_efm; |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6400 dictitem_T *efm_di; |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6401 int retval = FAIL; |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6402 |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6403 /* Use the user supplied errorformat settings (if present) */ |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6404 if ((efm_di = dict_find(what, (char_u *)"efm", -1)) != NULL) |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6405 { |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6406 if (efm_di->di_tv.v_type != VAR_STRING || |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6407 efm_di->di_tv.vval.v_string == NULL) |
|
12287
20641a7e1fc9
patch 8.0.1023: it is not easy to identify a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
12252
diff
changeset
|
6408 return FAIL; |
|
13760
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6409 errorformat = efm_di->di_tv.vval.v_string; |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6410 } |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6411 |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6412 /* Only a List value is supported */ |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6413 if (di->di_tv.v_type != VAR_LIST || di->di_tv.vval.v_list == NULL) |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6414 return FAIL; |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6415 |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6416 if (action == 'r') |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
6417 qf_free_items(&qi->qf_lists[qf_idx]); |
|
13760
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6418 if (qf_init_ext(qi, qf_idx, NULL, NULL, &di->di_tv, errorformat, |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6419 FALSE, (linenr_T)0, (linenr_T)0, NULL, NULL) > 0) |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6420 retval = OK; |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6421 |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6422 return retval; |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6423 } |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6424 |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6425 /* |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6426 * Set quickfix list context. |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6427 */ |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6428 static int |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
6429 qf_setprop_context(qf_list_T *qfl, dictitem_T *di) |
|
13760
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6430 { |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6431 typval_T *ctx; |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6432 |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
6433 free_tv(qfl->qf_ctx); |
|
13760
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6434 ctx = alloc_tv(); |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6435 if (ctx != NULL) |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6436 copy_tv(&di->di_tv, ctx); |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
6437 qfl->qf_ctx = ctx; |
|
13760
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6438 |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6439 return OK; |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6440 } |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6441 |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6442 /* |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6443 * Set quickfix/location list properties (title, items, context). |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6444 * Also used to add items from parsing a list of lines. |
|
13882
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
6445 * Used by the setqflist() and setloclist() Vim script functions. |
|
13760
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6446 */ |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6447 static int |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6448 qf_set_properties(qf_info_T *qi, dict_T *what, int action, char_u *title) |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6449 { |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6450 dictitem_T *di; |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6451 int retval = FAIL; |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6452 int qf_idx; |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6453 int newlist = FALSE; |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6454 |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6455 if (action == ' ' || qi->qf_curlist == qi->qf_listcount) |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6456 newlist = TRUE; |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6457 |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6458 qf_idx = qf_setprop_get_qfidx(qi, what, action, &newlist); |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6459 if (qf_idx == INVALID_QFIDX) /* List not found */ |
|
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6460 return FAIL; |
|
12287
20641a7e1fc9
patch 8.0.1023: it is not easy to identify a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
12252
diff
changeset
|
6461 |
|
9982
e24aa20d815c
commit https://github.com/vim/vim/commit/2b529bb6260b52246e92429375d995b9b5ce76b6
Christian Brabandt <cb@256bit.org>
parents:
9931
diff
changeset
|
6462 if (newlist) |
|
e24aa20d815c
commit https://github.com/vim/vim/commit/2b529bb6260b52246e92429375d995b9b5ce76b6
Christian Brabandt <cb@256bit.org>
parents:
9931
diff
changeset
|
6463 { |
|
12084
69ce6b3f0834
patch 8.0.0922: quickfix list always added after current one
Christian Brabandt <cb@256bit.org>
parents:
12048
diff
changeset
|
6464 qi->qf_curlist = qf_idx; |
|
12048
ebd313aa5a6c
patch 8.0.0904: cannot set a location list from text
Christian Brabandt <cb@256bit.org>
parents:
11800
diff
changeset
|
6465 qf_new_list(qi, title); |
|
9982
e24aa20d815c
commit https://github.com/vim/vim/commit/2b529bb6260b52246e92429375d995b9b5ce76b6
Christian Brabandt <cb@256bit.org>
parents:
9931
diff
changeset
|
6466 qf_idx = qi->qf_curlist; |
|
9850
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6467 } |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6468 |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6469 if ((di = dict_find(what, (char_u *)"title", -1)) != NULL) |
|
13760
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6470 retval = qf_setprop_title(qi, qf_idx, what, di); |
|
11549
f5add45f9848
patch 8.0.0657: cannot get and set quickfix list items
Christian Brabandt <cb@256bit.org>
parents:
11521
diff
changeset
|
6471 if ((di = dict_find(what, (char_u *)"items", -1)) != NULL) |
|
13760
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6472 retval = qf_setprop_items(qi, qf_idx, di, action); |
|
12303
ec7a4fd21dd5
patch 8.0.1031: "text" argument for getqflist() is confusing
Christian Brabandt <cb@256bit.org>
parents:
12299
diff
changeset
|
6473 if ((di = dict_find(what, (char_u *)"lines", -1)) != NULL) |
|
13760
aef8ba129a4f
patch 8.0.1752: qf_set_properties() is to long
Christian Brabandt <cb@256bit.org>
parents:
13756
diff
changeset
|
6474 retval = qf_setprop_items_from_lines(qi, qf_idx, what, di, action); |
|
11412
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6475 if ((di = dict_find(what, (char_u *)"context", -1)) != NULL) |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
6476 retval = qf_setprop_context(&qi->qf_lists[qf_idx], di); |
|
11412
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6477 |
|
13062
6479dadcf214
patch 8.0.1406: difficult to track changes to a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13056
diff
changeset
|
6478 if (retval == OK) |
|
6479dadcf214
patch 8.0.1406: difficult to track changes to a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13056
diff
changeset
|
6479 qf_list_changed(qi, qf_idx); |
|
6479dadcf214
patch 8.0.1406: difficult to track changes to a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13056
diff
changeset
|
6480 |
|
9850
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6481 return retval; |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6482 } |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6483 |
|
11301
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6484 /* |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
6485 * Find the non-location list window with the specified location list in the |
|
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
6486 * current tabpage. |
|
11301
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6487 */ |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6488 static win_T * |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6489 find_win_with_ll(qf_info_T *qi) |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6490 { |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6491 win_T *wp = NULL; |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6492 |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6493 FOR_ALL_WINDOWS(wp) |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6494 if ((wp->w_llist == qi) && !bt_quickfix(wp->w_buffer)) |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6495 return wp; |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6496 |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6497 return NULL; |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6498 } |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6499 |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6500 /* |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6501 * Free the entire quickfix/location list stack. |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6502 * If the quickfix/location list window is open, then clear it. |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6503 */ |
|
11263
ae5f9f26f81c
patch 8.0.0517: there is no way to remove quickfix lists
Christian Brabandt <cb@256bit.org>
parents:
11195
diff
changeset
|
6504 static void |
|
ae5f9f26f81c
patch 8.0.0517: there is no way to remove quickfix lists
Christian Brabandt <cb@256bit.org>
parents:
11195
diff
changeset
|
6505 qf_free_stack(win_T *wp, qf_info_T *qi) |
|
ae5f9f26f81c
patch 8.0.0517: there is no way to remove quickfix lists
Christian Brabandt <cb@256bit.org>
parents:
11195
diff
changeset
|
6506 { |
|
11301
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6507 win_T *qfwin = qf_find_win(qi); |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6508 win_T *llwin = NULL; |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6509 win_T *orig_wp = wp; |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6510 |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6511 if (qfwin != NULL) |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6512 { |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6513 /* If the quickfix/location list window is open, then clear it */ |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6514 if (qi->qf_curlist < qi->qf_listcount) |
|
14790
3ca7aba1116e
patch 8.1.0407: quickfix code mixes using the stack and a list pointer
Christian Brabandt <cb@256bit.org>
parents:
14664
diff
changeset
|
6515 qf_free(&qi->qf_lists[qi->qf_curlist]); |
|
11301
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6516 qf_update_buffer(qi, NULL); |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6517 } |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6518 |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6519 if (wp != NULL && IS_LL_WINDOW(wp)) |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6520 { |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6521 /* If in the location list window, then use the non-location list |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6522 * window with this location list (if present) |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6523 */ |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6524 llwin = find_win_with_ll(qi); |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6525 if (llwin != NULL) |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6526 wp = llwin; |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6527 } |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6528 |
|
11263
ae5f9f26f81c
patch 8.0.0517: there is no way to remove quickfix lists
Christian Brabandt <cb@256bit.org>
parents:
11195
diff
changeset
|
6529 qf_free_all(wp); |
|
ae5f9f26f81c
patch 8.0.0517: there is no way to remove quickfix lists
Christian Brabandt <cb@256bit.org>
parents:
11195
diff
changeset
|
6530 if (wp == NULL) |
|
ae5f9f26f81c
patch 8.0.0517: there is no way to remove quickfix lists
Christian Brabandt <cb@256bit.org>
parents:
11195
diff
changeset
|
6531 { |
|
ae5f9f26f81c
patch 8.0.0517: there is no way to remove quickfix lists
Christian Brabandt <cb@256bit.org>
parents:
11195
diff
changeset
|
6532 /* quickfix list */ |
|
ae5f9f26f81c
patch 8.0.0517: there is no way to remove quickfix lists
Christian Brabandt <cb@256bit.org>
parents:
11195
diff
changeset
|
6533 qi->qf_curlist = 0; |
|
ae5f9f26f81c
patch 8.0.0517: there is no way to remove quickfix lists
Christian Brabandt <cb@256bit.org>
parents:
11195
diff
changeset
|
6534 qi->qf_listcount = 0; |
|
ae5f9f26f81c
patch 8.0.0517: there is no way to remove quickfix lists
Christian Brabandt <cb@256bit.org>
parents:
11195
diff
changeset
|
6535 } |
|
11301
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6536 else if (IS_LL_WINDOW(orig_wp)) |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6537 { |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6538 /* If the location list window is open, then create a new empty |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6539 * location list */ |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6540 qf_info_T *new_ll = ll_new_list(); |
|
11378
2ed7a34ecc54
patch 8.0.0574: get only one quickfix list after :caddbuf
Christian Brabandt <cb@256bit.org>
parents:
11360
diff
changeset
|
6541 |
|
11398
30af33f4d353
patch 8.0.0584: memory leak when executing quickfix tests
Christian Brabandt <cb@256bit.org>
parents:
11390
diff
changeset
|
6542 /* first free the list reference in the location list window */ |
|
30af33f4d353
patch 8.0.0584: memory leak when executing quickfix tests
Christian Brabandt <cb@256bit.org>
parents:
11390
diff
changeset
|
6543 ll_free_all(&orig_wp->w_llist_ref); |
|
30af33f4d353
patch 8.0.0584: memory leak when executing quickfix tests
Christian Brabandt <cb@256bit.org>
parents:
11390
diff
changeset
|
6544 |
|
11301
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6545 orig_wp->w_llist_ref = new_ll; |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6546 if (llwin != NULL) |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6547 { |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6548 llwin->w_llist = new_ll; |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6549 new_ll->qf_refcount++; |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6550 } |
|
cc8ece2aa389
patch 8.0.0536: quickfix window not updated when freeing quickfix stack
Christian Brabandt <cb@256bit.org>
parents:
11263
diff
changeset
|
6551 } |
|
11263
ae5f9f26f81c
patch 8.0.0517: there is no way to remove quickfix lists
Christian Brabandt <cb@256bit.org>
parents:
11195
diff
changeset
|
6552 } |
|
ae5f9f26f81c
patch 8.0.0517: there is no way to remove quickfix lists
Christian Brabandt <cb@256bit.org>
parents:
11195
diff
changeset
|
6553 |
|
9850
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6554 /* |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6555 * Populate the quickfix list with the items supplied in the list |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6556 * of dictionaries. "title" will be copied to w:quickfix_title. |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6557 * "action" is 'a' for add, 'r' for replace. Otherwise create a new list. |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6558 */ |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6559 int |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6560 set_errorlist( |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6561 win_T *wp, |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6562 list_T *list, |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6563 int action, |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6564 char_u *title, |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6565 dict_T *what) |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6566 { |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6567 qf_info_T *qi = &ql_info; |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6568 int retval = OK; |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6569 |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6570 if (wp != NULL) |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6571 { |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6572 qi = ll_get_or_alloc_list(wp); |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6573 if (qi == NULL) |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6574 return FAIL; |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6575 } |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6576 |
|
11263
ae5f9f26f81c
patch 8.0.0517: there is no way to remove quickfix lists
Christian Brabandt <cb@256bit.org>
parents:
11195
diff
changeset
|
6577 if (action == 'f') |
|
ae5f9f26f81c
patch 8.0.0517: there is no way to remove quickfix lists
Christian Brabandt <cb@256bit.org>
parents:
11195
diff
changeset
|
6578 { |
|
ae5f9f26f81c
patch 8.0.0517: there is no way to remove quickfix lists
Christian Brabandt <cb@256bit.org>
parents:
11195
diff
changeset
|
6579 /* Free the entire quickfix or location list stack */ |
|
ae5f9f26f81c
patch 8.0.0517: there is no way to remove quickfix lists
Christian Brabandt <cb@256bit.org>
parents:
11195
diff
changeset
|
6580 qf_free_stack(wp, qi); |
|
ae5f9f26f81c
patch 8.0.0517: there is no way to remove quickfix lists
Christian Brabandt <cb@256bit.org>
parents:
11195
diff
changeset
|
6581 } |
|
ae5f9f26f81c
patch 8.0.0517: there is no way to remove quickfix lists
Christian Brabandt <cb@256bit.org>
parents:
11195
diff
changeset
|
6582 else if (what != NULL) |
|
12048
ebd313aa5a6c
patch 8.0.0904: cannot set a location list from text
Christian Brabandt <cb@256bit.org>
parents:
11800
diff
changeset
|
6583 retval = qf_set_properties(qi, what, action, title); |
|
9850
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6584 else |
|
13062
6479dadcf214
patch 8.0.1406: difficult to track changes to a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13056
diff
changeset
|
6585 { |
|
11449
d2f00eb352b9
patch 8.0.0608: cannot manipulate other than the current quickfix list
Christian Brabandt <cb@256bit.org>
parents:
11447
diff
changeset
|
6586 retval = qf_add_entries(qi, qi->qf_curlist, list, title, action); |
|
13062
6479dadcf214
patch 8.0.1406: difficult to track changes to a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13056
diff
changeset
|
6587 if (retval == OK) |
|
6479dadcf214
patch 8.0.1406: difficult to track changes to a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13056
diff
changeset
|
6588 qf_list_changed(qi, qi->qf_curlist); |
|
6479dadcf214
patch 8.0.1406: difficult to track changes to a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13056
diff
changeset
|
6589 } |
|
9850
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6590 |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6591 return retval; |
|
67781bb0a61a
commit https://github.com/vim/vim/commit/d823fa910cca43fec3c31c030ee908a14c272640
Christian Brabandt <cb@256bit.org>
parents:
9738
diff
changeset
|
6592 } |
|
11412
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6593 |
|
13868
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
6594 /* |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
6595 * Mark the context as in use for all the lists in a quickfix stack. |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
6596 */ |
|
11412
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6597 static int |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6598 mark_quickfix_ctx(qf_info_T *qi, int copyID) |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6599 { |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6600 int i; |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6601 int abort = FALSE; |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6602 typval_T *ctx; |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6603 |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6604 for (i = 0; i < LISTCOUNT && !abort; ++i) |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6605 { |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6606 ctx = qi->qf_lists[i].qf_ctx; |
|
12084
69ce6b3f0834
patch 8.0.0922: quickfix list always added after current one
Christian Brabandt <cb@256bit.org>
parents:
12048
diff
changeset
|
6607 if (ctx != NULL && ctx->v_type != VAR_NUMBER |
|
69ce6b3f0834
patch 8.0.0922: quickfix list always added after current one
Christian Brabandt <cb@256bit.org>
parents:
12048
diff
changeset
|
6608 && ctx->v_type != VAR_STRING && ctx->v_type != VAR_FLOAT) |
|
11412
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6609 abort = set_ref_in_item(ctx, copyID, NULL, NULL); |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6610 } |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6611 |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6612 return abort; |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6613 } |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6614 |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6615 /* |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6616 * Mark the context of the quickfix list and the location lists (if present) as |
|
13710
b33f04873475
patch 8.0.1727: qf_get_properties() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13660
diff
changeset
|
6617 * "in use". So that garbage collection doesn't free the context. |
|
11412
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6618 */ |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6619 int |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6620 set_ref_in_quickfix(int copyID) |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6621 { |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6622 int abort = FALSE; |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6623 tabpage_T *tp; |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6624 win_T *win; |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6625 |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6626 abort = mark_quickfix_ctx(&ql_info, copyID); |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6627 if (abort) |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6628 return abort; |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6629 |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6630 FOR_ALL_TAB_WINDOWS(tp, win) |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6631 { |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6632 if (win->w_llist != NULL) |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6633 { |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6634 abort = mark_quickfix_ctx(win->w_llist, copyID); |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6635 if (abort) |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6636 return abort; |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6637 } |
|
13074
66c014c71dad
patch 8.0.1412: using free memory using setloclist()
Christian Brabandt <cb@256bit.org>
parents:
13066
diff
changeset
|
6638 if (IS_LL_WINDOW(win) && (win->w_llist_ref->qf_refcount == 1)) |
|
66c014c71dad
patch 8.0.1412: using free memory using setloclist()
Christian Brabandt <cb@256bit.org>
parents:
13066
diff
changeset
|
6639 { |
|
66c014c71dad
patch 8.0.1412: using free memory using setloclist()
Christian Brabandt <cb@256bit.org>
parents:
13066
diff
changeset
|
6640 /* In a location list window and none of the other windows is |
|
66c014c71dad
patch 8.0.1412: using free memory using setloclist()
Christian Brabandt <cb@256bit.org>
parents:
13066
diff
changeset
|
6641 * referring to this location list. Mark the location list |
|
66c014c71dad
patch 8.0.1412: using free memory using setloclist()
Christian Brabandt <cb@256bit.org>
parents:
13066
diff
changeset
|
6642 * context as still in use. |
|
66c014c71dad
patch 8.0.1412: using free memory using setloclist()
Christian Brabandt <cb@256bit.org>
parents:
13066
diff
changeset
|
6643 */ |
|
66c014c71dad
patch 8.0.1412: using free memory using setloclist()
Christian Brabandt <cb@256bit.org>
parents:
13066
diff
changeset
|
6644 abort = mark_quickfix_ctx(win->w_llist_ref, copyID); |
|
66c014c71dad
patch 8.0.1412: using free memory using setloclist()
Christian Brabandt <cb@256bit.org>
parents:
13066
diff
changeset
|
6645 if (abort) |
|
66c014c71dad
patch 8.0.1412: using free memory using setloclist()
Christian Brabandt <cb@256bit.org>
parents:
13066
diff
changeset
|
6646 return abort; |
|
66c014c71dad
patch 8.0.1412: using free memory using setloclist()
Christian Brabandt <cb@256bit.org>
parents:
13066
diff
changeset
|
6647 } |
|
11412
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6648 } |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6649 |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6650 return abort; |
|
84baca75b7f2
patch 8.0.0590: cannot add a context to locations
Christian Brabandt <cb@256bit.org>
parents:
11398
diff
changeset
|
6651 } |
| 170 | 6652 #endif |
| 6653 | |
| 42 | 6654 /* |
| 41 | 6655 * ":[range]cbuffer [bufnr]" command. |
| 657 | 6656 * ":[range]caddbuffer [bufnr]" command. |
| 798 | 6657 * ":[range]cgetbuffer [bufnr]" command. |
| 644 | 6658 * ":[range]lbuffer [bufnr]" command. |
| 657 | 6659 * ":[range]laddbuffer [bufnr]" command. |
| 798 | 6660 * ":[range]lgetbuffer [bufnr]" command. |
| 41 | 6661 */ |
| 6662 void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
6663 ex_cbuffer(exarg_T *eap) |
| 41 | 6664 { |
| 6665 buf_T *buf = NULL; | |
| 644 | 6666 qf_info_T *qi = &ql_info; |
|
10056
21f685af3fc1
commit https://github.com/vim/vim/commit/04c4ce650f9e533cd35b2aa6803f4d354d3ec7aa
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
6667 char_u *au_name = NULL; |
|
12954
49e136457c66
patch 8.0.1353: QuickFixCmdPost is not used consistently
Christian Brabandt <cb@256bit.org>
parents:
12912
diff
changeset
|
6668 int res; |
|
14250
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
6669 int_u save_qfid; |
|
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
6670 win_T *wp = NULL; |
| 644 | 6671 |
|
10056
21f685af3fc1
commit https://github.com/vim/vim/commit/04c4ce650f9e533cd35b2aa6803f4d354d3ec7aa
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
6672 switch (eap->cmdidx) |
|
21f685af3fc1
commit https://github.com/vim/vim/commit/04c4ce650f9e533cd35b2aa6803f4d354d3ec7aa
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
6673 { |
|
21f685af3fc1
commit https://github.com/vim/vim/commit/04c4ce650f9e533cd35b2aa6803f4d354d3ec7aa
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
6674 case CMD_cbuffer: au_name = (char_u *)"cbuffer"; break; |
|
21f685af3fc1
commit https://github.com/vim/vim/commit/04c4ce650f9e533cd35b2aa6803f4d354d3ec7aa
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
6675 case CMD_cgetbuffer: au_name = (char_u *)"cgetbuffer"; break; |
|
21f685af3fc1
commit https://github.com/vim/vim/commit/04c4ce650f9e533cd35b2aa6803f4d354d3ec7aa
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
6676 case CMD_caddbuffer: au_name = (char_u *)"caddbuffer"; break; |
|
21f685af3fc1
commit https://github.com/vim/vim/commit/04c4ce650f9e533cd35b2aa6803f4d354d3ec7aa
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
6677 case CMD_lbuffer: au_name = (char_u *)"lbuffer"; break; |
|
21f685af3fc1
commit https://github.com/vim/vim/commit/04c4ce650f9e533cd35b2aa6803f4d354d3ec7aa
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
6678 case CMD_lgetbuffer: au_name = (char_u *)"lgetbuffer"; break; |
|
21f685af3fc1
commit https://github.com/vim/vim/commit/04c4ce650f9e533cd35b2aa6803f4d354d3ec7aa
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
6679 case CMD_laddbuffer: au_name = (char_u *)"laddbuffer"; break; |
|
21f685af3fc1
commit https://github.com/vim/vim/commit/04c4ce650f9e533cd35b2aa6803f4d354d3ec7aa
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
6680 default: break; |
|
21f685af3fc1
commit https://github.com/vim/vim/commit/04c4ce650f9e533cd35b2aa6803f4d354d3ec7aa
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
6681 } |
|
10346
d52d97bf675e
commit https://github.com/vim/vim/commit/21662be2211675824df1771c7f169948ede40c41
Christian Brabandt <cb@256bit.org>
parents:
10281
diff
changeset
|
6682 if (au_name != NULL && apply_autocmds(EVENT_QUICKFIXCMDPRE, au_name, |
|
d52d97bf675e
commit https://github.com/vim/vim/commit/21662be2211675824df1771c7f169948ede40c41
Christian Brabandt <cb@256bit.org>
parents:
10281
diff
changeset
|
6683 curbuf->b_fname, TRUE, curbuf)) |
|
10056
21f685af3fc1
commit https://github.com/vim/vim/commit/04c4ce650f9e533cd35b2aa6803f4d354d3ec7aa
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
6684 { |
|
13380
69517d67421f
patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
13252
diff
changeset
|
6685 #ifdef FEAT_EVAL |
|
10346
d52d97bf675e
commit https://github.com/vim/vim/commit/21662be2211675824df1771c7f169948ede40c41
Christian Brabandt <cb@256bit.org>
parents:
10281
diff
changeset
|
6686 if (aborting()) |
|
10056
21f685af3fc1
commit https://github.com/vim/vim/commit/04c4ce650f9e533cd35b2aa6803f4d354d3ec7aa
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
6687 return; |
|
21f685af3fc1
commit https://github.com/vim/vim/commit/04c4ce650f9e533cd35b2aa6803f4d354d3ec7aa
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
6688 #endif |
|
13380
69517d67421f
patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
13252
diff
changeset
|
6689 } |
|
10056
21f685af3fc1
commit https://github.com/vim/vim/commit/04c4ce650f9e533cd35b2aa6803f4d354d3ec7aa
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
6690 |
|
13076
7c071a3f7f8e
patch 8.0.1413: accessing freed memory in :cbuffer
Christian Brabandt <cb@256bit.org>
parents:
13074
diff
changeset
|
6691 /* Must come after autocommands. */ |
|
14550
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
6692 if (is_loclist_cmd(eap->cmdidx)) |
|
13076
7c071a3f7f8e
patch 8.0.1413: accessing freed memory in :cbuffer
Christian Brabandt <cb@256bit.org>
parents:
13074
diff
changeset
|
6693 { |
|
7c071a3f7f8e
patch 8.0.1413: accessing freed memory in :cbuffer
Christian Brabandt <cb@256bit.org>
parents:
13074
diff
changeset
|
6694 qi = ll_get_or_alloc_list(curwin); |
|
7c071a3f7f8e
patch 8.0.1413: accessing freed memory in :cbuffer
Christian Brabandt <cb@256bit.org>
parents:
13074
diff
changeset
|
6695 if (qi == NULL) |
|
7c071a3f7f8e
patch 8.0.1413: accessing freed memory in :cbuffer
Christian Brabandt <cb@256bit.org>
parents:
13074
diff
changeset
|
6696 return; |
|
14250
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
6697 wp = curwin; |
|
13076
7c071a3f7f8e
patch 8.0.1413: accessing freed memory in :cbuffer
Christian Brabandt <cb@256bit.org>
parents:
13074
diff
changeset
|
6698 } |
|
7c071a3f7f8e
patch 8.0.1413: accessing freed memory in :cbuffer
Christian Brabandt <cb@256bit.org>
parents:
13074
diff
changeset
|
6699 |
| 41 | 6700 if (*eap->arg == NUL) |
| 6701 buf = curbuf; | |
| 6702 else if (*skipwhite(skipdigits(eap->arg)) == NUL) | |
| 6703 buf = buflist_findnr(atoi((char *)eap->arg)); | |
| 6704 if (buf == NULL) | |
| 6705 EMSG(_(e_invarg)); | |
| 6706 else if (buf->b_ml.ml_mfp == NULL) | |
| 6707 EMSG(_("E681: Buffer is not loaded")); | |
| 6708 else | |
| 6709 { | |
| 6710 if (eap->addr_count == 0) | |
| 6711 { | |
| 6712 eap->line1 = 1; | |
| 6713 eap->line2 = buf->b_ml.ml_line_count; | |
| 6714 } | |
| 6715 if (eap->line1 < 1 || eap->line1 > buf->b_ml.ml_line_count | |
| 6716 || eap->line2 < 1 || eap->line2 > buf->b_ml.ml_line_count) | |
| 6717 EMSG(_(e_invrange)); | |
| 6718 else | |
| 661 | 6719 { |
|
13921
3b6c29f8c1a2
patch 8.0.1831: sometimes the quickfix title is incorrectly prefixed with ':'
Christian Brabandt <cb@256bit.org>
parents:
13882
diff
changeset
|
6720 char_u *qf_title = qf_cmdtitle(*eap->cmdlinep); |
|
2411
68e394361ca3
Add "q" item for 'statusline'. Add w:quickfix_title. (Lech Lorens)
Bram Moolenaar <bram@vim.org>
parents:
2296
diff
changeset
|
6721 |
|
68e394361ca3
Add "q" item for 'statusline'. Add w:quickfix_title. (Lech Lorens)
Bram Moolenaar <bram@vim.org>
parents:
2296
diff
changeset
|
6722 if (buf->b_sfname) |
|
68e394361ca3
Add "q" item for 'statusline'. Add w:quickfix_title. (Lech Lorens)
Bram Moolenaar <bram@vim.org>
parents:
2296
diff
changeset
|
6723 { |
|
68e394361ca3
Add "q" item for 'statusline'. Add w:quickfix_title. (Lech Lorens)
Bram Moolenaar <bram@vim.org>
parents:
2296
diff
changeset
|
6724 vim_snprintf((char *)IObuff, IOSIZE, "%s (%s)", |
|
68e394361ca3
Add "q" item for 'statusline'. Add w:quickfix_title. (Lech Lorens)
Bram Moolenaar <bram@vim.org>
parents:
2296
diff
changeset
|
6725 (char *)qf_title, (char *)buf->b_sfname); |
|
68e394361ca3
Add "q" item for 'statusline'. Add w:quickfix_title. (Lech Lorens)
Bram Moolenaar <bram@vim.org>
parents:
2296
diff
changeset
|
6726 qf_title = IObuff; |
|
68e394361ca3
Add "q" item for 'statusline'. Add w:quickfix_title. (Lech Lorens)
Bram Moolenaar <bram@vim.org>
parents:
2296
diff
changeset
|
6727 } |
|
68e394361ca3
Add "q" item for 'statusline'. Add w:quickfix_title. (Lech Lorens)
Bram Moolenaar <bram@vim.org>
parents:
2296
diff
changeset
|
6728 |
|
12954
49e136457c66
patch 8.0.1353: QuickFixCmdPost is not used consistently
Christian Brabandt <cb@256bit.org>
parents:
12912
diff
changeset
|
6729 res = qf_init_ext(qi, qi->qf_curlist, NULL, buf, NULL, p_efm, |
| 798 | 6730 (eap->cmdidx != CMD_caddbuffer |
| 6731 && eap->cmdidx != CMD_laddbuffer), | |
|
2411
68e394361ca3
Add "q" item for 'statusline'. Add w:quickfix_title. (Lech Lorens)
Bram Moolenaar <bram@vim.org>
parents:
2296
diff
changeset
|
6732 eap->line1, eap->line2, |
|
12954
49e136457c66
patch 8.0.1353: QuickFixCmdPost is not used consistently
Christian Brabandt <cb@256bit.org>
parents:
12912
diff
changeset
|
6733 qf_title, NULL); |
|
13062
6479dadcf214
patch 8.0.1406: difficult to track changes to a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13056
diff
changeset
|
6734 if (res >= 0) |
|
6479dadcf214
patch 8.0.1406: difficult to track changes to a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13056
diff
changeset
|
6735 qf_list_changed(qi, qi->qf_curlist); |
|
14250
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
6736 |
|
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
6737 // Remember the current quickfix list identifier, so that we can |
|
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
6738 // check for autocommands changing the current quickfix list. |
|
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
6739 save_qfid = qi->qf_lists[qi->qf_curlist].qf_id; |
|
12954
49e136457c66
patch 8.0.1353: QuickFixCmdPost is not used consistently
Christian Brabandt <cb@256bit.org>
parents:
12912
diff
changeset
|
6740 if (au_name != NULL) |
|
14085
59e76d550c10
patch 8.1.0060: crash when autocommands delete the current buffer
Christian Brabandt <cb@256bit.org>
parents:
13992
diff
changeset
|
6741 { |
|
59e76d550c10
patch 8.1.0060: crash when autocommands delete the current buffer
Christian Brabandt <cb@256bit.org>
parents:
13992
diff
changeset
|
6742 buf_T *curbuf_old = curbuf; |
|
59e76d550c10
patch 8.1.0060: crash when autocommands delete the current buffer
Christian Brabandt <cb@256bit.org>
parents:
13992
diff
changeset
|
6743 |
|
12954
49e136457c66
patch 8.0.1353: QuickFixCmdPost is not used consistently
Christian Brabandt <cb@256bit.org>
parents:
12912
diff
changeset
|
6744 apply_autocmds(EVENT_QUICKFIXCMDPOST, au_name, |
|
49e136457c66
patch 8.0.1353: QuickFixCmdPost is not used consistently
Christian Brabandt <cb@256bit.org>
parents:
12912
diff
changeset
|
6745 curbuf->b_fname, TRUE, curbuf); |
|
14085
59e76d550c10
patch 8.1.0060: crash when autocommands delete the current buffer
Christian Brabandt <cb@256bit.org>
parents:
13992
diff
changeset
|
6746 if (curbuf != curbuf_old) |
|
59e76d550c10
patch 8.1.0060: crash when autocommands delete the current buffer
Christian Brabandt <cb@256bit.org>
parents:
13992
diff
changeset
|
6747 // Autocommands changed buffer, don't jump now, "qi" may |
|
59e76d550c10
patch 8.1.0060: crash when autocommands delete the current buffer
Christian Brabandt <cb@256bit.org>
parents:
13992
diff
changeset
|
6748 // be invalid. |
|
59e76d550c10
patch 8.1.0060: crash when autocommands delete the current buffer
Christian Brabandt <cb@256bit.org>
parents:
13992
diff
changeset
|
6749 res = 0; |
|
59e76d550c10
patch 8.1.0060: crash when autocommands delete the current buffer
Christian Brabandt <cb@256bit.org>
parents:
13992
diff
changeset
|
6750 } |
|
14250
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
6751 // Jump to the first error for a new list and if autocmds didn't |
|
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
6752 // free the list. |
|
12954
49e136457c66
patch 8.0.1353: QuickFixCmdPost is not used consistently
Christian Brabandt <cb@256bit.org>
parents:
12912
diff
changeset
|
6753 if (res > 0 && (eap->cmdidx == CMD_cbuffer || |
|
14250
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
6754 eap->cmdidx == CMD_lbuffer) |
|
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
6755 && qflist_valid(wp, save_qfid)) |
|
14469
0211e295835e
patch 8.1.0248: duplicated quickfix code
Christian Brabandt <cb@256bit.org>
parents:
14433
diff
changeset
|
6756 // display the first error |
|
0211e295835e
patch 8.1.0248: duplicated quickfix code
Christian Brabandt <cb@256bit.org>
parents:
14433
diff
changeset
|
6757 qf_jump_first(qi, save_qfid, eap->forceit); |
| 661 | 6758 } |
| 41 | 6759 } |
| 6760 } | |
| 6761 | |
| 532 | 6762 #if defined(FEAT_EVAL) || defined(PROTO) |
| 41 | 6763 /* |
| 798 | 6764 * ":cexpr {expr}", ":cgetexpr {expr}", ":caddexpr {expr}" command. |
| 6765 * ":lexpr {expr}", ":lgetexpr {expr}", ":laddexpr {expr}" command. | |
| 446 | 6766 */ |
| 6767 void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
6768 ex_cexpr(exarg_T *eap) |
| 446 | 6769 { |
| 6770 typval_T *tv; | |
| 644 | 6771 qf_info_T *qi = &ql_info; |
|
10056
21f685af3fc1
commit https://github.com/vim/vim/commit/04c4ce650f9e533cd35b2aa6803f4d354d3ec7aa
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
6772 char_u *au_name = NULL; |
|
12954
49e136457c66
patch 8.0.1353: QuickFixCmdPost is not used consistently
Christian Brabandt <cb@256bit.org>
parents:
12912
diff
changeset
|
6773 int res; |
|
14250
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
6774 int_u save_qfid; |
|
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
6775 win_T *wp = NULL; |
| 644 | 6776 |
|
10056
21f685af3fc1
commit https://github.com/vim/vim/commit/04c4ce650f9e533cd35b2aa6803f4d354d3ec7aa
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
6777 switch (eap->cmdidx) |
|
21f685af3fc1
commit https://github.com/vim/vim/commit/04c4ce650f9e533cd35b2aa6803f4d354d3ec7aa
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
6778 { |
|
21f685af3fc1
commit https://github.com/vim/vim/commit/04c4ce650f9e533cd35b2aa6803f4d354d3ec7aa
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
6779 case CMD_cexpr: au_name = (char_u *)"cexpr"; break; |
|
21f685af3fc1
commit https://github.com/vim/vim/commit/04c4ce650f9e533cd35b2aa6803f4d354d3ec7aa
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
6780 case CMD_cgetexpr: au_name = (char_u *)"cgetexpr"; break; |
|
21f685af3fc1
commit https://github.com/vim/vim/commit/04c4ce650f9e533cd35b2aa6803f4d354d3ec7aa
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
6781 case CMD_caddexpr: au_name = (char_u *)"caddexpr"; break; |
|
21f685af3fc1
commit https://github.com/vim/vim/commit/04c4ce650f9e533cd35b2aa6803f4d354d3ec7aa
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
6782 case CMD_lexpr: au_name = (char_u *)"lexpr"; break; |
|
21f685af3fc1
commit https://github.com/vim/vim/commit/04c4ce650f9e533cd35b2aa6803f4d354d3ec7aa
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
6783 case CMD_lgetexpr: au_name = (char_u *)"lgetexpr"; break; |
|
21f685af3fc1
commit https://github.com/vim/vim/commit/04c4ce650f9e533cd35b2aa6803f4d354d3ec7aa
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
6784 case CMD_laddexpr: au_name = (char_u *)"laddexpr"; break; |
|
21f685af3fc1
commit https://github.com/vim/vim/commit/04c4ce650f9e533cd35b2aa6803f4d354d3ec7aa
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
6785 default: break; |
|
21f685af3fc1
commit https://github.com/vim/vim/commit/04c4ce650f9e533cd35b2aa6803f4d354d3ec7aa
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
6786 } |
|
10346
d52d97bf675e
commit https://github.com/vim/vim/commit/21662be2211675824df1771c7f169948ede40c41
Christian Brabandt <cb@256bit.org>
parents:
10281
diff
changeset
|
6787 if (au_name != NULL && apply_autocmds(EVENT_QUICKFIXCMDPRE, au_name, |
|
d52d97bf675e
commit https://github.com/vim/vim/commit/21662be2211675824df1771c7f169948ede40c41
Christian Brabandt <cb@256bit.org>
parents:
10281
diff
changeset
|
6788 curbuf->b_fname, TRUE, curbuf)) |
|
10056
21f685af3fc1
commit https://github.com/vim/vim/commit/04c4ce650f9e533cd35b2aa6803f4d354d3ec7aa
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
6789 { |
|
13380
69517d67421f
patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
13252
diff
changeset
|
6790 #ifdef FEAT_EVAL |
|
10346
d52d97bf675e
commit https://github.com/vim/vim/commit/21662be2211675824df1771c7f169948ede40c41
Christian Brabandt <cb@256bit.org>
parents:
10281
diff
changeset
|
6791 if (aborting()) |
|
10056
21f685af3fc1
commit https://github.com/vim/vim/commit/04c4ce650f9e533cd35b2aa6803f4d354d3ec7aa
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
6792 return; |
|
21f685af3fc1
commit https://github.com/vim/vim/commit/04c4ce650f9e533cd35b2aa6803f4d354d3ec7aa
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
6793 #endif |
|
13380
69517d67421f
patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
13252
diff
changeset
|
6794 } |
|
10056
21f685af3fc1
commit https://github.com/vim/vim/commit/04c4ce650f9e533cd35b2aa6803f4d354d3ec7aa
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
6795 |
|
14550
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
6796 if (is_loclist_cmd(eap->cmdidx)) |
|
13090
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
6797 { |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
6798 qi = ll_get_or_alloc_list(curwin); |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
6799 if (qi == NULL) |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
6800 return; |
|
14250
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
6801 wp = curwin; |
|
13090
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
6802 } |
|
a0c6910e7fa4
patch 8.0.1420: accessing freed memory in vimgrep
Christian Brabandt <cb@256bit.org>
parents:
13078
diff
changeset
|
6803 |
| 625 | 6804 /* Evaluate the expression. When the result is a string or a list we can |
| 6805 * use it to fill the errorlist. */ | |
| 446 | 6806 tv = eval_expr(eap->arg, NULL); |
| 625 | 6807 if (tv != NULL) |
| 6808 { | |
| 6809 if ((tv->v_type == VAR_STRING && tv->vval.v_string != NULL) | |
| 6810 || (tv->v_type == VAR_LIST && tv->vval.v_list != NULL)) | |
| 6811 { | |
|
12954
49e136457c66
patch 8.0.1353: QuickFixCmdPost is not used consistently
Christian Brabandt <cb@256bit.org>
parents:
12912
diff
changeset
|
6812 res = qf_init_ext(qi, qi->qf_curlist, NULL, NULL, tv, p_efm, |
| 798 | 6813 (eap->cmdidx != CMD_caddexpr |
| 6814 && eap->cmdidx != CMD_laddexpr), | |
|
13921
3b6c29f8c1a2
patch 8.0.1831: sometimes the quickfix title is incorrectly prefixed with ':'
Christian Brabandt <cb@256bit.org>
parents:
13882
diff
changeset
|
6815 (linenr_T)0, (linenr_T)0, |
|
3b6c29f8c1a2
patch 8.0.1831: sometimes the quickfix title is incorrectly prefixed with ':'
Christian Brabandt <cb@256bit.org>
parents:
13882
diff
changeset
|
6816 qf_cmdtitle(*eap->cmdlinep), NULL); |
|
13062
6479dadcf214
patch 8.0.1406: difficult to track changes to a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13056
diff
changeset
|
6817 if (res >= 0) |
|
6479dadcf214
patch 8.0.1406: difficult to track changes to a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13056
diff
changeset
|
6818 qf_list_changed(qi, qi->qf_curlist); |
|
14250
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
6819 |
|
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
6820 // Remember the current quickfix list identifier, so that we can |
|
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
6821 // check for autocommands changing the current quickfix list. |
|
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
6822 save_qfid = qi->qf_lists[qi->qf_curlist].qf_id; |
|
12954
49e136457c66
patch 8.0.1353: QuickFixCmdPost is not used consistently
Christian Brabandt <cb@256bit.org>
parents:
12912
diff
changeset
|
6823 if (au_name != NULL) |
|
49e136457c66
patch 8.0.1353: QuickFixCmdPost is not used consistently
Christian Brabandt <cb@256bit.org>
parents:
12912
diff
changeset
|
6824 apply_autocmds(EVENT_QUICKFIXCMDPOST, au_name, |
|
49e136457c66
patch 8.0.1353: QuickFixCmdPost is not used consistently
Christian Brabandt <cb@256bit.org>
parents:
12912
diff
changeset
|
6825 curbuf->b_fname, TRUE, curbuf); |
|
14250
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
6826 |
|
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
6827 // Jump to the first error for a new list and if autocmds didn't |
|
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
6828 // free the list. |
|
14111
678e326bf7eb
patch 8.1.0073: crash when autocommands call setloclist()
Christian Brabandt <cb@256bit.org>
parents:
14085
diff
changeset
|
6829 if (res > 0 && (eap->cmdidx == CMD_cexpr |
|
678e326bf7eb
patch 8.1.0073: crash when autocommands call setloclist()
Christian Brabandt <cb@256bit.org>
parents:
14085
diff
changeset
|
6830 || eap->cmdidx == CMD_lexpr) |
|
14250
ca6ccee4823f
patch 8.1.0141: :cexpr no longer jumps to the first error
Christian Brabandt <cb@256bit.org>
parents:
14113
diff
changeset
|
6831 && qflist_valid(wp, save_qfid)) |
|
14469
0211e295835e
patch 8.1.0248: duplicated quickfix code
Christian Brabandt <cb@256bit.org>
parents:
14433
diff
changeset
|
6832 // display the first error |
|
0211e295835e
patch 8.1.0248: duplicated quickfix code
Christian Brabandt <cb@256bit.org>
parents:
14433
diff
changeset
|
6833 qf_jump_first(qi, save_qfid, eap->forceit); |
| 625 | 6834 } |
| 6835 else | |
| 626 | 6836 EMSG(_("E777: String or List expected")); |
| 625 | 6837 free_tv(tv); |
| 6838 } | |
| 446 | 6839 } |
| 532 | 6840 #endif |
| 446 | 6841 |
| 6842 /* | |
|
13764
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6843 * Get the location list for ":lhelpgrep" |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6844 */ |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6845 static qf_info_T * |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6846 hgr_get_ll(int *new_ll) |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6847 { |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6848 win_T *wp; |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6849 qf_info_T *qi; |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6850 |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6851 /* If the current window is a help window, then use it */ |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6852 if (bt_help(curwin->w_buffer)) |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6853 wp = curwin; |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6854 else |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6855 /* Find an existing help window */ |
|
13882
f48fcaa196a9
patch 8.0.1812: the qf_jump_to_usable_window() function is too long
Christian Brabandt <cb@256bit.org>
parents:
13868
diff
changeset
|
6856 wp = qf_find_help_win(); |
|
13764
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6857 |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6858 if (wp == NULL) /* Help window not found */ |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6859 qi = NULL; |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6860 else |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6861 qi = wp->w_llist; |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6862 |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6863 if (qi == NULL) |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6864 { |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6865 /* Allocate a new location list for help text matches */ |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6866 if ((qi = ll_new_list()) == NULL) |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6867 return NULL; |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6868 *new_ll = TRUE; |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6869 } |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6870 |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6871 return qi; |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6872 } |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6873 |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6874 /* |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6875 * Search for a pattern in a help file. |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6876 */ |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6877 static void |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6878 hgr_search_file( |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6879 qf_info_T *qi, |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6880 char_u *fname, |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6881 #ifdef FEAT_MBYTE |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6882 vimconv_T *p_vc, |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6883 #endif |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6884 regmatch_T *p_regmatch) |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6885 { |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6886 FILE *fd; |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6887 long lnum; |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6888 |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6889 fd = mch_fopen((char *)fname, "r"); |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6890 if (fd == NULL) |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6891 return; |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6892 |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6893 lnum = 1; |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6894 while (!vim_fgets(IObuff, IOSIZE, fd) && !got_int) |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6895 { |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6896 char_u *line = IObuff; |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6897 #ifdef FEAT_MBYTE |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6898 /* Convert a line if 'encoding' is not utf-8 and |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6899 * the line contains a non-ASCII character. */ |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6900 if (p_vc->vc_type != CONV_NONE |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6901 && has_non_ascii(IObuff)) |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6902 { |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6903 line = string_convert(p_vc, IObuff, NULL); |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6904 if (line == NULL) |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6905 line = IObuff; |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6906 } |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6907 #endif |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6908 |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6909 if (vim_regexec(p_regmatch, line, (colnr_T)0)) |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6910 { |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6911 int l = (int)STRLEN(line); |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6912 |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6913 /* remove trailing CR, LF, spaces, etc. */ |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6914 while (l > 0 && line[l - 1] <= ' ') |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6915 line[--l] = NUL; |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6916 |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6917 if (qf_add_entry(qi, |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6918 qi->qf_curlist, |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6919 NULL, /* dir */ |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6920 fname, |
|
13821
98274127d675
patch 8.0.1782: no simple way to label quickfix entries
Christian Brabandt <cb@256bit.org>
parents:
13819
diff
changeset
|
6921 NULL, |
|
13764
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6922 0, |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6923 line, |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6924 lnum, |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6925 (int)(p_regmatch->startp[0] - line) |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6926 + 1, /* col */ |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6927 FALSE, /* vis_col */ |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6928 NULL, /* search pattern */ |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6929 0, /* nr */ |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6930 1, /* type */ |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6931 TRUE /* valid */ |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6932 ) == FAIL) |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6933 { |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6934 got_int = TRUE; |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6935 #ifdef FEAT_MBYTE |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6936 if (line != IObuff) |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6937 vim_free(line); |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6938 #endif |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6939 break; |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6940 } |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6941 } |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6942 #ifdef FEAT_MBYTE |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6943 if (line != IObuff) |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6944 vim_free(line); |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6945 #endif |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6946 ++lnum; |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6947 line_breakcheck(); |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6948 } |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6949 fclose(fd); |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6950 } |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6951 |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6952 /* |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6953 * Search for a pattern in all the help files in the doc directory under |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6954 * the given directory. |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6955 */ |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6956 static void |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6957 hgr_search_files_in_dir( |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6958 qf_info_T *qi, |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6959 char_u *dirname, |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6960 regmatch_T *p_regmatch |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6961 #ifdef FEAT_MBYTE |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6962 , vimconv_T *p_vc |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6963 #endif |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6964 #ifdef FEAT_MULTI_LANG |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6965 , char_u *lang |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6966 #endif |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6967 ) |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6968 { |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6969 int fcount; |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6970 char_u **fnames; |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6971 int fi; |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6972 |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6973 /* Find all "*.txt" and "*.??x" files in the "doc" directory. */ |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6974 add_pathsep(dirname); |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6975 STRCAT(dirname, "doc/*.\\(txt\\|??x\\)"); |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6976 if (gen_expand_wildcards(1, &dirname, &fcount, |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6977 &fnames, EW_FILE|EW_SILENT) == OK |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6978 && fcount > 0) |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6979 { |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6980 for (fi = 0; fi < fcount && !got_int; ++fi) |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6981 { |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6982 #ifdef FEAT_MULTI_LANG |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6983 /* Skip files for a different language. */ |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6984 if (lang != NULL |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6985 && STRNICMP(lang, fnames[fi] |
|
13821
98274127d675
patch 8.0.1782: no simple way to label quickfix entries
Christian Brabandt <cb@256bit.org>
parents:
13819
diff
changeset
|
6986 + STRLEN(fnames[fi]) - 3, 2) != 0 |
|
13764
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6987 && !(STRNICMP(lang, "en", 2) == 0 |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6988 && STRNICMP("txt", fnames[fi] |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6989 + STRLEN(fnames[fi]) - 3, 3) == 0)) |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6990 continue; |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6991 #endif |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6992 |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6993 hgr_search_file(qi, fnames[fi], |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6994 #ifdef FEAT_MBYTE |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6995 p_vc, |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6996 #endif |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6997 p_regmatch); |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6998 } |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
6999 FreeWild(fcount, fnames); |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7000 } |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7001 } |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7002 |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7003 /* |
|
13868
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
7004 * Search for a pattern in all the help files in the 'runtimepath' |
|
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
7005 * and add the matches to a quickfix list. |
|
14603
d1b69129db99
patch 8.1.0315: helpgrep with language doesn't work properly
Christian Brabandt <cb@256bit.org>
parents:
14560
diff
changeset
|
7006 * 'lang' is the language specifier. If supplied, then only matches in the |
|
13868
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
7007 * specified language are found. |
|
13764
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7008 */ |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7009 static void |
|
14603
d1b69129db99
patch 8.1.0315: helpgrep with language doesn't work properly
Christian Brabandt <cb@256bit.org>
parents:
14560
diff
changeset
|
7010 hgr_search_in_rtp(qf_info_T *qi, regmatch_T *p_regmatch, char_u *lang) |
|
13764
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7011 { |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7012 char_u *p; |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7013 |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7014 #ifdef FEAT_MBYTE |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7015 vimconv_T vc; |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7016 |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7017 /* Help files are in utf-8 or latin1, convert lines when 'encoding' |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7018 * differs. */ |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7019 vc.vc_type = CONV_NONE; |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7020 if (!enc_utf8) |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7021 convert_setup(&vc, (char_u *)"utf-8", p_enc); |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7022 #endif |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7023 |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7024 |
|
13868
1282a54c1f5a
patch 8.0.1805: qf_parse_line() is too long
Christian Brabandt <cb@256bit.org>
parents:
13821
diff
changeset
|
7025 /* Go through all the directories in 'runtimepath' */ |
|
13764
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7026 p = p_rtp; |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7027 while (*p != NUL && !got_int) |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7028 { |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7029 copy_option_part(&p, NameBuff, MAXPATHL, ","); |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7030 |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7031 hgr_search_files_in_dir(qi, NameBuff, p_regmatch |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7032 #ifdef FEAT_MBYTE |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7033 , &vc |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7034 #endif |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7035 #ifdef FEAT_MULTI_LANG |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7036 , lang |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7037 #endif |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7038 ); |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7039 } |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7040 |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7041 #ifdef FEAT_MBYTE |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7042 if (vc.vc_type != CONV_NONE) |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7043 convert_setup(&vc, NULL, NULL); |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7044 #endif |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7045 } |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7046 |
|
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7047 /* |
| 7 | 7048 * ":helpgrep {pattern}" |
| 7049 */ | |
| 7050 void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
7051 ex_helpgrep(exarg_T *eap) |
| 7 | 7052 { |
| 7053 regmatch_T regmatch; | |
| 7054 char_u *save_cpo; | |
| 644 | 7055 qf_info_T *qi = &ql_info; |
| 659 | 7056 int new_qi = FALSE; |
| 3269 | 7057 char_u *au_name = NULL; |
|
14603
d1b69129db99
patch 8.1.0315: helpgrep with language doesn't work properly
Christian Brabandt <cb@256bit.org>
parents:
14560
diff
changeset
|
7058 char_u *lang = NULL; |
| 7 | 7059 |
| 3269 | 7060 switch (eap->cmdidx) |
| 7061 { | |
| 7062 case CMD_helpgrep: au_name = (char_u *)"helpgrep"; break; | |
| 7063 case CMD_lhelpgrep: au_name = (char_u *)"lhelpgrep"; break; | |
| 7064 default: break; | |
| 7065 } | |
|
10346
d52d97bf675e
commit https://github.com/vim/vim/commit/21662be2211675824df1771c7f169948ede40c41
Christian Brabandt <cb@256bit.org>
parents:
10281
diff
changeset
|
7066 if (au_name != NULL && apply_autocmds(EVENT_QUICKFIXCMDPRE, au_name, |
|
d52d97bf675e
commit https://github.com/vim/vim/commit/21662be2211675824df1771c7f169948ede40c41
Christian Brabandt <cb@256bit.org>
parents:
10281
diff
changeset
|
7067 curbuf->b_fname, TRUE, curbuf)) |
| 3269 | 7068 { |
|
13380
69517d67421f
patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
13252
diff
changeset
|
7069 #ifdef FEAT_EVAL |
|
10346
d52d97bf675e
commit https://github.com/vim/vim/commit/21662be2211675824df1771c7f169948ede40c41
Christian Brabandt <cb@256bit.org>
parents:
10281
diff
changeset
|
7070 if (aborting()) |
| 3269 | 7071 return; |
| 7072 #endif | |
|
13380
69517d67421f
patch 8.0.1564: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents:
13252
diff
changeset
|
7073 } |
| 3269 | 7074 |
|
14603
d1b69129db99
patch 8.1.0315: helpgrep with language doesn't work properly
Christian Brabandt <cb@256bit.org>
parents:
14560
diff
changeset
|
7075 // Make 'cpoptions' empty, the 'l' flag should not be used here. |
| 3269 | 7076 save_cpo = p_cpo; |
| 7077 p_cpo = empty_option; | |
| 7078 | |
|
14550
60b9b6196644
patch 8.1.0288: quickfix code uses cmdidx too often
Christian Brabandt <cb@256bit.org>
parents:
14507
diff
changeset
|
7079 if (is_loclist_cmd(eap->cmdidx)) |
| 659 | 7080 { |
|
13764
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7081 qi = hgr_get_ll(&new_qi); |
| 659 | 7082 if (qi == NULL) |
|
13764
7bba231fdddc
patch 8.0.1754: ex_helpgrep() is too long
Christian Brabandt <cb@256bit.org>
parents:
13760
diff
changeset
|
7083 return; |
| 659 | 7084 } |
| 7085 | |
|
14603
d1b69129db99
patch 8.1.0315: helpgrep with language doesn't work properly
Christian Brabandt <cb@256bit.org>
parents:
14560
diff
changeset
|
7086 #ifdef FEAT_MULTI_LANG |
|
d1b69129db99
patch 8.1.0315: helpgrep with language doesn't work properly
Christian Brabandt <cb@256bit.org>
parents:
14560
diff
changeset
|
7087 // Check for a specified language |
|
d1b69129db99
patch 8.1.0315: helpgrep with language doesn't work properly
Christian Brabandt <cb@256bit.org>
parents:
14560
diff
changeset
|
7088 lang = check_help_lang(eap->arg); |
|
d1b69129db99
patch 8.1.0315: helpgrep with language doesn't work properly
Christian Brabandt <cb@256bit.org>
parents:
14560
diff
changeset
|
7089 #endif |
| 7 | 7090 regmatch.regprog = vim_regcomp(eap->arg, RE_MAGIC + RE_STRING); |
| 7091 regmatch.rm_ic = FALSE; | |
| 7092 if (regmatch.regprog != NULL) | |
| 7093 { | |
|
14603
d1b69129db99
patch 8.1.0315: helpgrep with language doesn't work properly
Christian Brabandt <cb@256bit.org>
parents:
14560
diff
changeset
|
7094 // create a new quickfix list |
|
13921
3b6c29f8c1a2
patch 8.0.1831: sometimes the quickfix title is incorrectly prefixed with ':'
Christian Brabandt <cb@256bit.org>
parents:
13882
diff
changeset
|
7095 qf_new_list(qi, qf_cmdtitle(*eap->cmdlinep)); |
| 7 | 7096 |
|
14603
d1b69129db99
patch 8.1.0315: helpgrep with language doesn't work properly
Christian Brabandt <cb@256bit.org>
parents:
14560
diff
changeset
|
7097 hgr_search_in_rtp(qi, ®match, lang); |
| 3257 | 7098 |
|
4805
66803af09906
updated for version 7.3.1149
Bram Moolenaar <bram@vim.org>
parents:
4371
diff
changeset
|
7099 vim_regfree(regmatch.regprog); |
| 7 | 7100 |
| 644 | 7101 qi->qf_lists[qi->qf_curlist].qf_nonevalid = FALSE; |
| 7102 qi->qf_lists[qi->qf_curlist].qf_ptr = | |
| 7103 qi->qf_lists[qi->qf_curlist].qf_start; | |
| 7104 qi->qf_lists[qi->qf_curlist].qf_index = 1; | |
| 7 | 7105 } |
| 7106 | |
| 1672 | 7107 if (p_cpo == empty_option) |
| 7108 p_cpo = save_cpo; | |
| 7109 else | |
|
14603
d1b69129db99
patch 8.1.0315: helpgrep with language doesn't work properly
Christian Brabandt <cb@256bit.org>
parents:
14560
diff
changeset
|
7110 // Darn, some plugin changed the value. |
| 1672 | 7111 free_string_option(save_cpo); |
| 7 | 7112 |
|
13062
6479dadcf214
patch 8.0.1406: difficult to track changes to a quickfix list
Christian Brabandt <cb@256bit.org>
parents:
13056
diff
changeset
|
7113 qf_list_changed(qi, qi->qf_curlist); |
|
9175
d415c079f84e
commit https://github.com/vim/vim/commit/864293abb72d62604d8d6b458addfb43c14230c3
Christian Brabandt <cb@256bit.org>
parents:
9114
diff
changeset
|
7114 qf_update_buffer(qi, NULL); |
| 7 | 7115 |
| 3269 | 7116 if (au_name != NULL) |
| 7117 { | |
| 7118 apply_autocmds(EVENT_QUICKFIXCMDPOST, au_name, | |
| 7119 curbuf->b_fname, TRUE, curbuf); | |
|
14560
8413e66d00a1
patch 8.1.0293: checks for type of stack is cryptic
Christian Brabandt <cb@256bit.org>
parents:
14552
diff
changeset
|
7120 if (!new_qi && IS_LL_STACK(qi) && qf_find_buf(qi) == NULL) |
| 3269 | 7121 /* autocommands made "qi" invalid */ |
| 7122 return; | |
| 7123 } | |
| 7124 | |
| 7 | 7125 /* Jump to first match. */ |
|
14477
1ccf5dcd88ca
patch 8.1.0252: quickfix functions are too long
Christian Brabandt <cb@256bit.org>
parents:
14469
diff
changeset
|
7126 if (!qf_list_empty(qi, qi->qf_curlist)) |
| 659 | 7127 qf_jump(qi, 0, 0, FALSE); |
| 9 | 7128 else |
| 7129 EMSG2(_(e_nomatch2), eap->arg); | |
| 659 | 7130 |
| 7131 if (eap->cmdidx == CMD_lhelpgrep) | |
| 7132 { | |
|
14603
d1b69129db99
patch 8.1.0315: helpgrep with language doesn't work properly
Christian Brabandt <cb@256bit.org>
parents:
14560
diff
changeset
|
7133 // If the help window is not opened or if it already points to the |
|
d1b69129db99
patch 8.1.0315: helpgrep with language doesn't work properly
Christian Brabandt <cb@256bit.org>
parents:
14560
diff
changeset
|
7134 // correct location list, then free the new location list. |
|
11800
5ceaecedbad2
patch 8.0.0782: using freed memory in quickfix code
Christian Brabandt <cb@256bit.org>
parents:
11788
diff
changeset
|
7135 if (!bt_help(curwin->w_buffer) || curwin->w_llist == qi) |
| 659 | 7136 { |
| 7137 if (new_qi) | |
| 7138 ll_free_all(&qi); | |
| 7139 } | |
| 7140 else if (curwin->w_llist == NULL) | |
| 7141 curwin->w_llist = qi; | |
| 7142 } | |
| 7 | 7143 } |
| 7144 | |
| 7145 #endif /* FEAT_QUICKFIX */ |