From 7adf06f4e25c795ba32ff0b2e8591330f6a41afb Mon Sep 17 00:00:00 2001 From: Bram Moolenaar Date: Sun, 27 Aug 2017 15:23:41 +0200 Subject: patch 8.0.1006: quickfix list changes when parsing text with 'erroformat' Problem: Cannot parse text with 'erroformat' without changing a quickfix list. Solution: Add the "text" argument to getqflist(). (Yegappan Lakshmanan) --- src/evalfunc.c | 2 +- src/proto/quickfix.pro | 2 +- src/quickfix.c | 62 +++++++++++++++++++++++++++++++++++++------ src/testdir/test_quickfix.vim | 26 ++++++++++++++++++ src/version.c | 2 ++ 5 files changed, 84 insertions(+), 10 deletions(-) (limited to 'src') diff --git a/src/evalfunc.c b/src/evalfunc.c index c900b532c2..d11d96db94 100644 --- a/src/evalfunc.c +++ b/src/evalfunc.c @@ -4810,7 +4810,7 @@ get_qf_loc_list(int is_qf, win_T *wp, typval_T *what_arg, typval_T *rettv) { if (rettv_list_alloc(rettv) == OK) if (is_qf || wp != NULL) - (void)get_errorlist(wp, -1, rettv->vval.v_list); + (void)get_errorlist(NULL, wp, -1, rettv->vval.v_list); } else { diff --git a/src/proto/quickfix.pro b/src/proto/quickfix.pro index 4418cc47b8..ad6ad34330 100644 --- a/src/proto/quickfix.pro +++ b/src/proto/quickfix.pro @@ -21,7 +21,7 @@ void ex_cc(exarg_T *eap); void ex_cnext(exarg_T *eap); void ex_cfile(exarg_T *eap); void ex_vimgrep(exarg_T *eap); -int get_errorlist(win_T *wp, int qf_idx, list_T *list); +int get_errorlist(qf_info_T *qi, win_T *wp, int qf_idx, list_T *list); int get_errorlist_properties(win_T *wp, dict_T *what, dict_T *retdict); int set_errorlist(win_T *wp, list_T *list, int action, char_u *title, dict_T *what); int set_ref_in_quickfix(int copyID); diff --git a/src/quickfix.c b/src/quickfix.c index 42077c2a3c..71270d9b97 100644 --- a/src/quickfix.c +++ b/src/quickfix.c @@ -2762,7 +2762,7 @@ qf_free_items(qf_info_T *qi, int idx) { qfp = qfl->qf_start; qfpnext = qfp->qf_next; - if (qfl->qf_title != NULL && !stop) + if (!stop) { vim_free(qfp->qf_text); stop = (qfp == qfpnext); @@ -4556,20 +4556,24 @@ unload_dummy_buffer(buf_T *buf, char_u *dirname_start) * If qf_idx is -1, use the current list. Otherwise, use the specified list. */ int -get_errorlist(win_T *wp, int qf_idx, list_T *list) +get_errorlist(qf_info_T *qi_arg, win_T *wp, int qf_idx, list_T *list) { - qf_info_T *qi = &ql_info; + qf_info_T *qi = qi_arg; dict_T *dict; char_u buf[2]; qfline_T *qfp; int i; int bufnum; - if (wp != NULL) + if (qi == NULL) { - qi = GET_LOC_LIST(wp); - if (qi == NULL) - return FAIL; + qi = &ql_info; + if (wp != NULL) + { + qi = GET_LOC_LIST(wp); + if (qi == NULL) + return FAIL; + } } if (qf_idx == -1) @@ -4627,6 +4631,45 @@ enum { QF_GETLIST_ALL = 0xFF }; +/* + * Parse text from 'di' and return the quickfix list items + */ + static int +qf_get_list_from_text(dictitem_T *di, dict_T *retdict) +{ + int status = FAIL; + qf_info_T *qi; + + /* Only string and list values are supported */ + if ((di->di_tv.v_type == VAR_STRING && di->di_tv.vval.v_string != NULL) + || (di->di_tv.v_type == VAR_LIST + && di->di_tv.vval.v_list != NULL)) + { + qi = (qf_info_T *)alloc((unsigned)sizeof(qf_info_T)); + if (qi != NULL) + { + vim_memset(qi, 0, (size_t)(sizeof(qf_info_T))); + qi->qf_refcount++; + + if (qf_init_ext(qi, 0, NULL, NULL, &di->di_tv, p_efm, + TRUE, (linenr_T)0, (linenr_T)0, NULL, NULL) > 0) + { + list_T *l = list_alloc(); + if (l != NULL) + { + (void)get_errorlist(qi, NULL, 0, l); + dict_add_list(retdict, "items", l); + status = OK; + } + qf_free(qi, 0); + } + free(qi); + } + } + + return status; +} + /* * Return quickfix/location list details (title) as a * dictionary. 'what' contains the details to return. If 'list_idx' is -1, @@ -4641,6 +4684,9 @@ get_errorlist_properties(win_T *wp, dict_T *what, dict_T *retdict) dictitem_T *di; int flags = QF_GETLIST_NONE; + if ((di = dict_find(what, (char_u *)"text", -1)) != NULL) + return qf_get_list_from_text(di, retdict); + if (wp != NULL) { qi = GET_LOC_LIST(wp); @@ -4726,7 +4772,7 @@ get_errorlist_properties(win_T *wp, dict_T *what, dict_T *retdict) list_T *l = list_alloc(); if (l != NULL) { - (void)get_errorlist(wp, qf_idx, l); + (void)get_errorlist(qi, NULL, qf_idx, l); dict_add_list(retdict, "items", l); } else diff --git a/src/testdir/test_quickfix.vim b/src/testdir/test_quickfix.vim index 8fa715395c..32b04c34e9 100644 --- a/src/testdir/test_quickfix.vim +++ b/src/testdir/test_quickfix.vim @@ -2519,3 +2519,29 @@ func Test_add_qf() call XaddQf_tests('c') call XaddQf_tests('l') endfunc + +" Test for getting the quickfix list items from some text without modifying +" the quickfix stack +func XgetListFromText(cchar) + call s:setup_commands(a:cchar) + call g:Xsetlist([], 'f') + + let l = g:Xgetlist({'text' : "File1:10:Line10"}).items + call assert_equal(1, len(l)) + call assert_equal('Line10', l[0].text) + + let l = g:Xgetlist({'text' : ["File2:20:Line20", "File2:30:Line30"]}).items + call assert_equal(2, len(l)) + call assert_equal(30, l[1].lnum) + + call assert_equal({}, g:Xgetlist({'text' : 10})) + call assert_equal({}, g:Xgetlist({'text' : []})) + + " Make sure that the quickfix stack is not modified + call assert_equal(0, g:Xgetlist({'nr' : '$'}).nr) +endfunc + +func Test_get_list_from_text() + call XgetListFromText('c') + call XgetListFromText('l') +endfunc diff --git a/src/version.c b/src/version.c index 68f3534f6d..5df1fc36ac 100644 --- a/src/version.c +++ b/src/version.c @@ -769,6 +769,8 @@ static char *(features[]) = static int included_patches[] = { /* Add new patch number below this line */ +/**/ + 1006, /**/ 1005, /**/ -- cgit v1.2.3