/tags/vim7.0.243/src/quickfix.c
C | 2655 lines | 1977 code | 219 blank | 459 comment | 768 complexity | e1a46df193033ed9f508caf568e19b38 MD5 | raw file
Large files files are truncated, but you can click here to view the full file
- /* vi:set ts=8 sts=4 sw=4:
- *
- * VIM - Vi IMproved by Bram Moolenaar
- *
- * Do ":help uganda" in Vim to read copying and usage conditions.
- * Do ":help credits" in Vim to see a list of people who contributed.
- * See README.txt for an overview of the Vim source code.
- */
- /*
- * quickfix.c: functions for quickfix mode, using a file with error messages
- */
- #include "vim.h"
- #if defined(FEAT_QUICKFIX) || defined(PROTO)
- struct dir_stack_T
- {
- struct dir_stack_T *next;
- char_u *dirname;
- };
- static struct dir_stack_T *dir_stack = NULL;
- /*
- * For each error the next struct is allocated and linked in a list.
- */
- typedef struct qfline_S qfline_T;
- struct qfline_S
- {
- qfline_T *qf_next; /* pointer to next error in the list */
- qfline_T *qf_prev; /* pointer to previous error in the list */
- linenr_T qf_lnum; /* line number where the error occurred */
- int qf_fnum; /* file number for the line */
- int qf_col; /* column where the error occurred */
- int qf_nr; /* error number */
- char_u *qf_pattern; /* search pattern for the error */
- char_u *qf_text; /* description of the error */
- char_u qf_viscol; /* set to TRUE if qf_col is screen column */
- char_u qf_cleared; /* set to TRUE if line has been deleted */
- char_u qf_type; /* type of the error (mostly 'E'); 1 for
- :helpgrep */
- char_u qf_valid; /* valid error message detected */
- };
- /*
- * There is a stack of error lists.
- */
- #define LISTCOUNT 10
- typedef struct qf_list_S
- {
- qfline_T *qf_start; /* pointer to the first error */
- qfline_T *qf_ptr; /* pointer to the current error */
- int qf_count; /* number of errors (0 means no error list) */
- int qf_index; /* current index in the error list */
- int qf_nonevalid; /* TRUE if not a single valid entry found */
- } qf_list_T;
- struct qf_info_S
- {
- /*
- * Count of references to this list. Used only for location lists.
- * When a location list window reference this list, qf_refcount
- * will be 2. Otherwise, qf_refcount will be 1. When qf_refcount
- * reaches 0, the list is freed.
- */
- int qf_refcount;
- int qf_listcount; /* current number of lists */
- int qf_curlist; /* current error list */
- qf_list_T qf_lists[LISTCOUNT];
- };
- static qf_info_T ql_info; /* global quickfix list */
- #define FMT_PATTERNS 10 /* maximum number of % recognized */
- /*
- * Structure used to hold the info of one part of 'errorformat'
- */
- typedef struct efm_S efm_T;
- struct efm_S
- {
- regprog_T *prog; /* pre-formatted part of 'errorformat' */
- efm_T *next; /* pointer to next (NULL if last) */
- char_u addr[FMT_PATTERNS]; /* indices of used % patterns */
- char_u prefix; /* prefix of this format line: */
- /* 'D' enter directory */
- /* 'X' leave directory */
- /* 'A' start of multi-line message */
- /* 'E' error message */
- /* 'W' warning message */
- /* 'I' informational message */
- /* 'C' continuation line */
- /* 'Z' end of multi-line message */
- /* 'G' general, unspecific message */
- /* 'P' push file (partial) message */
- /* 'Q' pop/quit file (partial) message */
- /* 'O' overread (partial) message */
- char_u flags; /* additional flags given in prefix */
- /* '-' do not include this line */
- /* '+' include whole line in message */
- int conthere; /* %> used */
- };
- static int qf_init_ext __ARGS((qf_info_T *qi, char_u *efile, buf_T *buf, typval_T *tv, char_u *errorformat, int newlist, linenr_T lnumfirst, linenr_T lnumlast));
- static void qf_new_list __ARGS((qf_info_T *qi));
- static int qf_add_entry __ARGS((qf_info_T *qi, qfline_T **prevp, char_u *dir, char_u *fname, int bufnum, char_u *mesg, long lnum, int col, int vis_col, char_u *pattern, int nr, int type, int valid));
- static void qf_msg __ARGS((qf_info_T *qi));
- static void qf_free __ARGS((qf_info_T *qi, int idx));
- static char_u *qf_types __ARGS((int, int));
- static int qf_get_fnum __ARGS((char_u *, char_u *));
- static char_u *qf_push_dir __ARGS((char_u *, struct dir_stack_T **));
- static char_u *qf_pop_dir __ARGS((struct dir_stack_T **));
- static char_u *qf_guess_filepath __ARGS((char_u *));
- static void qf_fmt_text __ARGS((char_u *text, char_u *buf, int bufsize));
- static void qf_clean_dir_stack __ARGS((struct dir_stack_T **));
- #ifdef FEAT_WINDOWS
- static int qf_win_pos_update __ARGS((qf_info_T *qi, int old_qf_index));
- static int is_qf_win __ARGS((win_T *win, qf_info_T *qi));
- static win_T *qf_find_win __ARGS((qf_info_T *qi));
- static buf_T *qf_find_buf __ARGS((qf_info_T *qi));
- static void qf_update_buffer __ARGS((qf_info_T *qi));
- static void qf_fill_buffer __ARGS((qf_info_T *qi));
- #endif
- static char_u *get_mef_name __ARGS((void));
- static buf_T *load_dummy_buffer __ARGS((char_u *fname));
- static void wipe_dummy_buffer __ARGS((buf_T *buf));
- static void unload_dummy_buffer __ARGS((buf_T *buf));
- static qf_info_T *ll_get_or_alloc_list __ARGS((win_T *));
- /* Quickfix window check helper macro */
- #define IS_QF_WINDOW(wp) (bt_quickfix(wp->w_buffer) && wp->w_llist_ref == NULL)
- /* Location list window check helper macro */
- #define IS_LL_WINDOW(wp) (bt_quickfix(wp->w_buffer) && wp->w_llist_ref != NULL)
- /*
- * Return location list for window 'wp'
- * For location list window, return the referenced location list
- */
- #define GET_LOC_LIST(wp) (IS_LL_WINDOW(wp) ? wp->w_llist_ref : wp->w_llist)
- /*
- * Read the errorfile "efile" into memory, line by line, building the error
- * list.
- * Return -1 for error, number of errors for success.
- */
- int
- qf_init(wp, efile, errorformat, newlist)
- win_T *wp;
- char_u *efile;
- char_u *errorformat;
- int newlist; /* TRUE: start a new error list */
- {
- qf_info_T *qi = &ql_info;
- if (efile == NULL)
- return FAIL;
- if (wp != NULL)
- {
- qi = ll_get_or_alloc_list(wp);
- if (qi == NULL)
- return FAIL;
- }
- return qf_init_ext(qi, efile, curbuf, NULL, errorformat, newlist,
- (linenr_T)0, (linenr_T)0);
- }
- /*
- * Read the errorfile "efile" into memory, line by line, building the error
- * list.
- * Alternative: when "efile" is null read errors from buffer "buf".
- * Always use 'errorformat' from "buf" if there is a local value.
- * Then lnumfirst and lnumlast specify the range of lines to use.
- * Return -1 for error, number of errors for success.
- */
- static int
- qf_init_ext(qi, efile, buf, tv, errorformat, newlist, lnumfirst, lnumlast)
- qf_info_T *qi;
- char_u *efile;
- buf_T *buf;
- typval_T *tv;
- char_u *errorformat;
- int newlist; /* TRUE: start a new error list */
- linenr_T lnumfirst; /* first line number to use */
- linenr_T lnumlast; /* last line number to use */
- {
- char_u *namebuf;
- char_u *errmsg;
- char_u *pattern;
- char_u *fmtstr = NULL;
- int col = 0;
- char_u use_viscol = FALSE;
- int type = 0;
- int valid;
- linenr_T buflnum = lnumfirst;
- long lnum = 0L;
- int enr = 0;
- FILE *fd = NULL;
- qfline_T *qfprev = NULL; /* init to make SASC shut up */
- char_u *efmp;
- efm_T *fmt_first = NULL;
- efm_T *fmt_last = NULL;
- efm_T *fmt_ptr;
- efm_T *fmt_start = NULL;
- char_u *efm;
- char_u *ptr;
- char_u *srcptr;
- int len;
- int i;
- int round;
- int idx = 0;
- int multiline = FALSE;
- int multiignore = FALSE;
- int multiscan = FALSE;
- int retval = -1; /* default: return error flag */
- char_u *directory = NULL;
- char_u *currfile = NULL;
- char_u *tail = NULL;
- char_u *p_str = NULL;
- listitem_T *p_li = NULL;
- struct dir_stack_T *file_stack = NULL;
- regmatch_T regmatch;
- static struct fmtpattern
- {
- char_u convchar;
- char *pattern;
- } fmt_pat[FMT_PATTERNS] =
- {
- {'f', ".\\+"}, /* only used when at end */
- {'n', "\\d\\+"},
- {'l', "\\d\\+"},
- {'c', "\\d\\+"},
- {'t', "."},
- {'m', ".\\+"},
- {'r', ".*"},
- {'p', "[- .]*"},
- {'v', "\\d\\+"},
- {'s', ".\\+"}
- };
- namebuf = alloc(CMDBUFFSIZE + 1);
- errmsg = alloc(CMDBUFFSIZE + 1);
- pattern = alloc(CMDBUFFSIZE + 1);
- if (namebuf == NULL || errmsg == NULL || pattern == NULL)
- goto qf_init_end;
- if (efile != NULL && (fd = mch_fopen((char *)efile, "r")) == NULL)
- {
- EMSG2(_(e_openerrf), efile);
- goto qf_init_end;
- }
- if (newlist || qi->qf_curlist == qi->qf_listcount)
- /* make place for a new list */
- qf_new_list(qi);
- else if (qi->qf_lists[qi->qf_curlist].qf_count > 0)
- /* Adding to existing list, find last entry. */
- for (qfprev = qi->qf_lists[qi->qf_curlist].qf_start;
- qfprev->qf_next != qfprev; qfprev = qfprev->qf_next)
- ;
- /*
- * Each part of the format string is copied and modified from errorformat to
- * regex prog. Only a few % characters are allowed.
- */
- /* Use the local value of 'errorformat' if it's set. */
- if (errorformat == p_efm && tv == NULL && *buf->b_p_efm != NUL)
- efm = buf->b_p_efm;
- else
- efm = errorformat;
- /*
- * Get some space to modify the format string into.
- */
- i = (FMT_PATTERNS * 3) + ((int)STRLEN(efm) << 2);
- for (round = FMT_PATTERNS; round > 0; )
- i += (int)STRLEN(fmt_pat[--round].pattern);
- #ifdef COLON_IN_FILENAME
- i += 12; /* "%f" can become twelve chars longer */
- #else
- i += 2; /* "%f" can become two chars longer */
- #endif
- if ((fmtstr = alloc(i)) == NULL)
- goto error2;
- while (efm[0] != NUL)
- {
- /*
- * Allocate a new eformat structure and put it at the end of the list
- */
- fmt_ptr = (efm_T *)alloc_clear((unsigned)sizeof(efm_T));
- if (fmt_ptr == NULL)
- goto error2;
- if (fmt_first == NULL) /* first one */
- fmt_first = fmt_ptr;
- else
- fmt_last->next = fmt_ptr;
- fmt_last = fmt_ptr;
- /*
- * Isolate one part in the 'errorformat' option
- */
- for (len = 0; efm[len] != NUL && efm[len] != ','; ++len)
- if (efm[len] == '\\' && efm[len + 1] != NUL)
- ++len;
- /*
- * Build regexp pattern from current 'errorformat' option
- */
- ptr = fmtstr;
- *ptr++ = '^';
- round = 0;
- for (efmp = efm; efmp < efm + len; ++efmp)
- {
- if (*efmp == '%')
- {
- ++efmp;
- for (idx = 0; idx < FMT_PATTERNS; ++idx)
- if (fmt_pat[idx].convchar == *efmp)
- break;
- if (idx < FMT_PATTERNS)
- {
- if (fmt_ptr->addr[idx])
- {
- sprintf((char *)errmsg,
- _("E372: Too many %%%c in format string"), *efmp);
- EMSG(errmsg);
- goto error2;
- }
- if ((idx
- && idx < 6
- && vim_strchr((char_u *)"DXOPQ",
- fmt_ptr->prefix) != NULL)
- || (idx == 6
- && vim_strchr((char_u *)"OPQ",
- fmt_ptr->prefix) == NULL))
- {
- sprintf((char *)errmsg,
- _("E373: Unexpected %%%c in format string"), *efmp);
- EMSG(errmsg);
- goto error2;
- }
- fmt_ptr->addr[idx] = (char_u)++round;
- *ptr++ = '\\';
- *ptr++ = '(';
- #ifdef BACKSLASH_IN_FILENAME
- if (*efmp == 'f')
- {
- /* Also match "c:" in the file name, even when
- * checking for a colon next: "%f:".
- * "\%(\a:\)\=" */
- STRCPY(ptr, "\\%(\\a:\\)\\=");
- ptr += 10;
- }
- #endif
- if (*efmp == 'f' && efmp[1] != NUL)
- {
- if (efmp[1] != '\\' && efmp[1] != '%')
- {
- /* A file name may contain spaces, but this isn't
- * in "\f". For "%f:%l:%m" there may be a ":" in
- * the file name. Use ".\{-1,}x" instead (x is
- * the next character), the requirement that :999:
- * follows should work. */
- STRCPY(ptr, ".\\{-1,}");
- ptr += 7;
- }
- else
- {
- /* File name followed by '\\' or '%': include as
- * many file name chars as possible. */
- STRCPY(ptr, "\\f\\+");
- ptr += 4;
- }
- }
- else
- {
- srcptr = (char_u *)fmt_pat[idx].pattern;
- while ((*ptr = *srcptr++) != NUL)
- ++ptr;
- }
- *ptr++ = '\\';
- *ptr++ = ')';
- }
- else if (*efmp == '*')
- {
- if (*++efmp == '[' || *efmp == '\\')
- {
- if ((*ptr++ = *efmp) == '[') /* %*[^a-z0-9] etc. */
- {
- if (efmp[1] == '^')
- *ptr++ = *++efmp;
- if (efmp < efm + len)
- {
- *ptr++ = *++efmp; /* could be ']' */
- while (efmp < efm + len
- && (*ptr++ = *++efmp) != ']')
- /* skip */;
- if (efmp == efm + len)
- {
- EMSG(_("E374: Missing ] in format string"));
- goto error2;
- }
- }
- }
- else if (efmp < efm + len) /* %*\D, %*\s etc. */
- *ptr++ = *++efmp;
- *ptr++ = '\\';
- *ptr++ = '+';
- }
- else
- {
- /* TODO: scanf()-like: %*ud, %*3c, %*f, ... ? */
- sprintf((char *)errmsg,
- _("E375: Unsupported %%%c in format string"), *efmp);
- EMSG(errmsg);
- goto error2;
- }
- }
- else if (vim_strchr((char_u *)"%\\.^$~[", *efmp) != NULL)
- *ptr++ = *efmp; /* regexp magic characters */
- else if (*efmp == '#')
- *ptr++ = '*';
- else if (*efmp == '>')
- fmt_ptr->conthere = TRUE;
- else if (efmp == efm + 1) /* analyse prefix */
- {
- if (vim_strchr((char_u *)"+-", *efmp) != NULL)
- fmt_ptr->flags = *efmp++;
- if (vim_strchr((char_u *)"DXAEWICZGOPQ", *efmp) != NULL)
- fmt_ptr->prefix = *efmp;
- else
- {
- sprintf((char *)errmsg,
- _("E376: Invalid %%%c in format string prefix"), *efmp);
- EMSG(errmsg);
- goto error2;
- }
- }
- else
- {
- sprintf((char *)errmsg,
- _("E377: Invalid %%%c in format string"), *efmp);
- EMSG(errmsg);
- goto error2;
- }
- }
- else /* copy normal character */
- {
- if (*efmp == '\\' && efmp + 1 < efm + len)
- ++efmp;
- else if (vim_strchr((char_u *)".*^$~[", *efmp) != NULL)
- *ptr++ = '\\'; /* escape regexp atoms */
- if (*efmp)
- *ptr++ = *efmp;
- }
- }
- *ptr++ = '$';
- *ptr = NUL;
- if ((fmt_ptr->prog = vim_regcomp(fmtstr, RE_MAGIC + RE_STRING)) == NULL)
- goto error2;
- /*
- * Advance to next part
- */
- efm = skip_to_option_part(efm + len); /* skip comma and spaces */
- }
- if (fmt_first == NULL) /* nothing found */
- {
- EMSG(_("E378: 'errorformat' contains no pattern"));
- goto error2;
- }
- /*
- * got_int is reset here, because it was probably set when killing the
- * ":make" command, but we still want to read the errorfile then.
- */
- got_int = FALSE;
- /* Always ignore case when looking for a matching error. */
- regmatch.rm_ic = TRUE;
- if (tv != NULL)
- {
- if (tv->v_type == VAR_STRING)
- p_str = tv->vval.v_string;
- else if (tv->v_type == VAR_LIST)
- p_li = tv->vval.v_list->lv_first;
- }
- /*
- * Read the lines in the error file one by one.
- * Try to recognize one of the error formats in each line.
- */
- while (!got_int)
- {
- /* Get the next line. */
- if (fd == NULL)
- {
- if (tv != NULL)
- {
- if (tv->v_type == VAR_STRING)
- {
- /* Get the next line from the supplied string */
- char_u *p;
- if (!*p_str) /* Reached the end of the string */
- break;
- p = vim_strchr(p_str, '\n');
- if (p)
- len = (int)(p - p_str + 1);
- else
- len = (int)STRLEN(p_str);
- if (len > CMDBUFFSIZE - 2)
- vim_strncpy(IObuff, p_str, CMDBUFFSIZE - 2);
- else
- vim_strncpy(IObuff, p_str, len);
- p_str += len;
- }
- else if (tv->v_type == VAR_LIST)
- {
- /* Get the next line from the supplied list */
- while (p_li && p_li->li_tv.v_type != VAR_STRING)
- p_li = p_li->li_next; /* Skip non-string items */
- if (!p_li) /* End of the list */
- break;
- len = (int)STRLEN(p_li->li_tv.vval.v_string);
- if (len > CMDBUFFSIZE - 2)
- len = CMDBUFFSIZE - 2;
- vim_strncpy(IObuff, p_li->li_tv.vval.v_string, len);
- p_li = p_li->li_next; /* next item */
- }
- }
- else
- {
- /* Get the next line from the supplied buffer */
- if (buflnum > lnumlast)
- break;
- vim_strncpy(IObuff, ml_get_buf(buf, buflnum++, FALSE),
- CMDBUFFSIZE - 2);
- }
- }
- else if (fgets((char *)IObuff, CMDBUFFSIZE - 2, fd) == NULL)
- break;
- IObuff[CMDBUFFSIZE - 2] = NUL; /* for very long lines */
- if ((efmp = vim_strrchr(IObuff, '\n')) != NULL)
- *efmp = NUL;
- #ifdef USE_CRNL
- if ((efmp = vim_strrchr(IObuff, '\r')) != NULL)
- *efmp = NUL;
- #endif
- /* If there was no %> item start at the first pattern */
- if (fmt_start == NULL)
- fmt_ptr = fmt_first;
- else
- {
- fmt_ptr = fmt_start;
- fmt_start = NULL;
- }
- /*
- * Try to match each part of 'errorformat' until we find a complete
- * match or no match.
- */
- valid = TRUE;
- restofline:
- for ( ; fmt_ptr != NULL; fmt_ptr = fmt_ptr->next)
- {
- idx = fmt_ptr->prefix;
- if (multiscan && vim_strchr((char_u *)"OPQ", idx) == NULL)
- continue;
- namebuf[0] = NUL;
- pattern[0] = NUL;
- if (!multiscan)
- errmsg[0] = NUL;
- lnum = 0;
- col = 0;
- use_viscol = FALSE;
- enr = -1;
- type = 0;
- tail = NULL;
- regmatch.regprog = fmt_ptr->prog;
- if (vim_regexec(®match, IObuff, (colnr_T)0))
- {
- if ((idx == 'C' || idx == 'Z') && !multiline)
- continue;
- if (vim_strchr((char_u *)"EWI", idx) != NULL)
- type = idx;
- else
- type = 0;
- /*
- * Extract error message data from matched line.
- * We check for an actual submatch, because "\[" and "\]" in
- * the 'errorformat' may cause the wrong submatch to be used.
- */
- if ((i = (int)fmt_ptr->addr[0]) > 0) /* %f */
- {
- int c;
- if (regmatch.startp[i] == NULL || regmatch.endp[i] == NULL)
- continue;
- /* Expand ~/file and $HOME/file to full path. */
- c = *regmatch.endp[i];
- *regmatch.endp[i] = NUL;
- expand_env(regmatch.startp[i], namebuf, CMDBUFFSIZE);
- *regmatch.endp[i] = c;
- if (vim_strchr((char_u *)"OPQ", idx) != NULL
- && mch_getperm(namebuf) == -1)
- continue;
- }
- if ((i = (int)fmt_ptr->addr[1]) > 0) /* %n */
- {
- if (regmatch.startp[i] == NULL)
- continue;
- enr = (int)atol((char *)regmatch.startp[i]);
- }
- if ((i = (int)fmt_ptr->addr[2]) > 0) /* %l */
- {
- if (regmatch.startp[i] == NULL)
- continue;
- lnum = atol((char *)regmatch.startp[i]);
- }
- if ((i = (int)fmt_ptr->addr[3]) > 0) /* %c */
- {
- if (regmatch.startp[i] == NULL)
- continue;
- col = (int)atol((char *)regmatch.startp[i]);
- }
- if ((i = (int)fmt_ptr->addr[4]) > 0) /* %t */
- {
- if (regmatch.startp[i] == NULL)
- continue;
- type = *regmatch.startp[i];
- }
- if (fmt_ptr->flags == '+' && !multiscan) /* %+ */
- STRCPY(errmsg, IObuff);
- else if ((i = (int)fmt_ptr->addr[5]) > 0) /* %m */
- {
- if (regmatch.startp[i] == NULL || regmatch.endp[i] == NULL)
- continue;
- len = (int)(regmatch.endp[i] - regmatch.startp[i]);
- vim_strncpy(errmsg, regmatch.startp[i], len);
- }
- if ((i = (int)fmt_ptr->addr[6]) > 0) /* %r */
- {
- if (regmatch.startp[i] == NULL)
- continue;
- tail = regmatch.startp[i];
- }
- if ((i = (int)fmt_ptr->addr[7]) > 0) /* %p */
- {
- if (regmatch.startp[i] == NULL || regmatch.endp[i] == NULL)
- continue;
- col = (int)(regmatch.endp[i] - regmatch.startp[i] + 1);
- if (*((char_u *)regmatch.startp[i]) != TAB)
- use_viscol = TRUE;
- }
- if ((i = (int)fmt_ptr->addr[8]) > 0) /* %v */
- {
- if (regmatch.startp[i] == NULL)
- continue;
- col = (int)atol((char *)regmatch.startp[i]);
- use_viscol = TRUE;
- }
- if ((i = (int)fmt_ptr->addr[9]) > 0) /* %s */
- {
- if (regmatch.startp[i] == NULL || regmatch.endp[i] == NULL)
- continue;
- len = (int)(regmatch.endp[i] - regmatch.startp[i]);
- if (len > CMDBUFFSIZE - 5)
- len = CMDBUFFSIZE - 5;
- STRCPY(pattern, "^\\V");
- STRNCAT(pattern, regmatch.startp[i], len);
- pattern[len + 3] = '\\';
- pattern[len + 4] = '$';
- pattern[len + 5] = NUL;
- }
- break;
- }
- }
- multiscan = FALSE;
- if (fmt_ptr == NULL || idx == 'D' || idx == 'X')
- {
- if (fmt_ptr != NULL)
- {
- if (idx == 'D') /* enter directory */
- {
- if (*namebuf == NUL)
- {
- EMSG(_("E379: Missing or empty directory name"));
- goto error2;
- }
- if ((directory = qf_push_dir(namebuf, &dir_stack)) == NULL)
- goto error2;
- }
- else if (idx == 'X') /* leave directory */
- directory = qf_pop_dir(&dir_stack);
- }
- namebuf[0] = NUL; /* no match found, remove file name */
- lnum = 0; /* don't jump to this line */
- valid = FALSE;
- STRCPY(errmsg, IObuff); /* copy whole line to error message */
- if (fmt_ptr == NULL)
- multiline = multiignore = FALSE;
- }
- else if (fmt_ptr != NULL)
- {
- /* honor %> item */
- if (fmt_ptr->conthere)
- fmt_start = fmt_ptr;
- if (vim_strchr((char_u *)"AEWI", idx) != NULL)
- multiline = TRUE; /* start of a multi-line message */
- else if (vim_strchr((char_u *)"CZ", idx) != NULL)
- { /* continuation of multi-line msg */
- if (qfprev == NULL)
- goto error2;
- if (*errmsg && !multiignore)
- {
- len = (int)STRLEN(qfprev->qf_text);
- if ((ptr = alloc((unsigned)(len + STRLEN(errmsg) + 2)))
- == NULL)
- goto error2;
- STRCPY(ptr, qfprev->qf_text);
- vim_free(qfprev->qf_text);
- qfprev->qf_text = ptr;
- *(ptr += len) = '\n';
- STRCPY(++ptr, errmsg);
- }
- if (qfprev->qf_nr == -1)
- qfprev->qf_nr = enr;
- if (vim_isprintc(type) && !qfprev->qf_type)
- qfprev->qf_type = type; /* only printable chars allowed */
- if (!qfprev->qf_lnum)
- qfprev->qf_lnum = lnum;
- if (!qfprev->qf_col)
- qfprev->qf_col = col;
- qfprev->qf_viscol = use_viscol;
- if (!qfprev->qf_fnum)
- qfprev->qf_fnum = qf_get_fnum(directory,
- *namebuf || directory ? namebuf
- : currfile && valid ? currfile : 0);
- if (idx == 'Z')
- multiline = multiignore = FALSE;
- line_breakcheck();
- continue;
- }
- else if (vim_strchr((char_u *)"OPQ", idx) != NULL)
- {
- /* global file names */
- valid = FALSE;
- if (*namebuf == NUL || mch_getperm(namebuf) >= 0)
- {
- if (*namebuf && idx == 'P')
- currfile = qf_push_dir(namebuf, &file_stack);
- else if (idx == 'Q')
- currfile = qf_pop_dir(&file_stack);
- *namebuf = NUL;
- if (tail && *tail)
- {
- STRCPY(IObuff, skipwhite(tail));
- multiscan = TRUE;
- goto restofline;
- }
- }
- }
- if (fmt_ptr->flags == '-') /* generally exclude this line */
- {
- if (multiline)
- multiignore = TRUE; /* also exclude continuation lines */
- continue;
- }
- }
- if (qf_add_entry(qi, &qfprev,
- directory,
- (*namebuf || directory)
- ? namebuf
- : ((currfile && valid) ? currfile : (char_u *)NULL),
- 0,
- errmsg,
- lnum,
- col,
- use_viscol,
- pattern,
- enr,
- type,
- valid) == FAIL)
- goto error2;
- line_breakcheck();
- }
- if (fd == NULL || !ferror(fd))
- {
- if (qi->qf_lists[qi->qf_curlist].qf_index == 0)
- {
- /* no valid entry found */
- qi->qf_lists[qi->qf_curlist].qf_ptr =
- qi->qf_lists[qi->qf_curlist].qf_start;
- qi->qf_lists[qi->qf_curlist].qf_index = 1;
- qi->qf_lists[qi->qf_curlist].qf_nonevalid = TRUE;
- }
- else
- {
- qi->qf_lists[qi->qf_curlist].qf_nonevalid = FALSE;
- if (qi->qf_lists[qi->qf_curlist].qf_ptr == NULL)
- qi->qf_lists[qi->qf_curlist].qf_ptr =
- qi->qf_lists[qi->qf_curlist].qf_start;
- }
- /* return number of matches */
- retval = qi->qf_lists[qi->qf_curlist].qf_count;
- goto qf_init_ok;
- }
- EMSG(_(e_readerrf));
- error2:
- qf_free(qi, qi->qf_curlist);
- qi->qf_listcount--;
- if (qi->qf_curlist > 0)
- --qi->qf_curlist;
- qf_init_ok:
- if (fd != NULL)
- fclose(fd);
- for (fmt_ptr = fmt_first; fmt_ptr != NULL; fmt_ptr = fmt_first)
- {
- fmt_first = fmt_ptr->next;
- vim_free(fmt_ptr->prog);
- vim_free(fmt_ptr);
- }
- qf_clean_dir_stack(&dir_stack);
- qf_clean_dir_stack(&file_stack);
- qf_init_end:
- vim_free(namebuf);
- vim_free(errmsg);
- vim_free(pattern);
- vim_free(fmtstr);
- #ifdef FEAT_WINDOWS
- qf_update_buffer(qi);
- #endif
- return retval;
- }
- /*
- * Prepare for adding a new quickfix list.
- */
- static void
- qf_new_list(qi)
- qf_info_T *qi;
- {
- int i;
- /*
- * If the current entry is not the last entry, delete entries below
- * the current entry. This makes it possible to browse in a tree-like
- * way with ":grep'.
- */
- while (qi->qf_listcount > qi->qf_curlist + 1)
- qf_free(qi, --qi->qf_listcount);
- /*
- * When the stack is full, remove to oldest entry
- * Otherwise, add a new entry.
- */
- if (qi->qf_listcount == LISTCOUNT)
- {
- qf_free(qi, 0);
- for (i = 1; i < LISTCOUNT; ++i)
- qi->qf_lists[i - 1] = qi->qf_lists[i];
- qi->qf_curlist = LISTCOUNT - 1;
- }
- else
- qi->qf_curlist = qi->qf_listcount++;
- qi->qf_lists[qi->qf_curlist].qf_index = 0;
- qi->qf_lists[qi->qf_curlist].qf_count = 0;
- }
- /*
- * Free a location list
- */
- static void
- ll_free_all(pqi)
- qf_info_T **pqi;
- {
- int i;
- qf_info_T *qi;
- qi = *pqi;
- if (qi == NULL)
- return;
- *pqi = NULL; /* Remove reference to this list */
- qi->qf_refcount--;
- if (qi->qf_refcount < 1)
- {
- /* No references to this location list */
- for (i = 0; i < qi->qf_listcount; ++i)
- qf_free(qi, i);
- vim_free(qi);
- }
- }
- void
- qf_free_all(wp)
- win_T *wp;
- {
- int i;
- qf_info_T *qi = &ql_info;
- if (wp != NULL)
- {
- /* location list */
- ll_free_all(&wp->w_llist);
- ll_free_all(&wp->w_llist_ref);
- }
- else
- /* quickfix list */
- for (i = 0; i < qi->qf_listcount; ++i)
- qf_free(qi, i);
- }
- /*
- * Add an entry to the end of the list of errors.
- * Returns OK or FAIL.
- */
- static int
- qf_add_entry(qi, prevp, dir, fname, bufnum, mesg, lnum, col, vis_col, pattern,
- nr, type, valid)
- qf_info_T *qi; /* quickfix list */
- qfline_T **prevp; /* pointer to previously added entry or NULL */
- char_u *dir; /* optional directory name */
- char_u *fname; /* file name or NULL */
- int bufnum; /* buffer number or zero */
- char_u *mesg; /* message */
- long lnum; /* line number */
- int col; /* column */
- int vis_col; /* using visual column */
- char_u *pattern; /* search pattern */
- int nr; /* error number */
- int type; /* type character */
- int valid; /* valid entry */
- {
- qfline_T *qfp;
- if ((qfp = (qfline_T *)alloc((unsigned)sizeof(qfline_T))) == NULL)
- return FAIL;
- if (bufnum != 0)
- qfp->qf_fnum = bufnum;
- else
- qfp->qf_fnum = qf_get_fnum(dir, fname);
- if ((qfp->qf_text = vim_strsave(mesg)) == NULL)
- {
- vim_free(qfp);
- return FAIL;
- }
- qfp->qf_lnum = lnum;
- qfp->qf_col = col;
- qfp->qf_viscol = vis_col;
- if (pattern == NULL || *pattern == NUL)
- qfp->qf_pattern = NULL;
- else if ((qfp->qf_pattern = vim_strsave(pattern)) == NULL)
- {
- vim_free(qfp->qf_text);
- vim_free(qfp);
- return FAIL;
- }
- qfp->qf_nr = nr;
- if (type != 1 && !vim_isprintc(type)) /* only printable chars allowed */
- type = 0;
- qfp->qf_type = type;
- qfp->qf_valid = valid;
- if (qi->qf_lists[qi->qf_curlist].qf_count == 0)
- /* first element in the list */
- {
- qi->qf_lists[qi->qf_curlist].qf_start = qfp;
- qfp->qf_prev = qfp; /* first element points to itself */
- }
- else
- {
- qfp->qf_prev = *prevp;
- (*prevp)->qf_next = qfp;
- }
- qfp->qf_next = qfp; /* last element points to itself */
- qfp->qf_cleared = FALSE;
- *prevp = qfp;
- ++qi->qf_lists[qi->qf_curlist].qf_count;
- if (qi->qf_lists[qi->qf_curlist].qf_index == 0 && qfp->qf_valid)
- /* first valid entry */
- {
- qi->qf_lists[qi->qf_curlist].qf_index =
- qi->qf_lists[qi->qf_curlist].qf_count;
- qi->qf_lists[qi->qf_curlist].qf_ptr = qfp;
- }
- return OK;
- }
- /*
- * Allocate a new location list
- */
- static qf_info_T *
- ll_new_list()
- {
- qf_info_T *qi;
- 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++;
- }
- return qi;
- }
- /*
- * Return the location list for window 'wp'.
- * If not present, allocate a location list
- */
- static qf_info_T *
- ll_get_or_alloc_list(wp)
- win_T *wp;
- {
- if (IS_LL_WINDOW(wp))
- /* For a location list window, use the referenced location list */
- return wp->w_llist_ref;
- /*
- * For a non-location list window, w_llist_ref should not point to a
- * location list.
- */
- ll_free_all(&wp->w_llist_ref);
- if (wp->w_llist == NULL)
- wp->w_llist = ll_new_list(); /* new location list */
- return wp->w_llist;
- }
- /*
- * Copy the location list from window "from" to window "to".
- */
- void
- copy_loclist(from, to)
- win_T *from;
- win_T *to;
- {
- qf_info_T *qi;
- int idx;
- int i;
- /*
- * When copying from a location list window, copy the referenced
- * location list. For other windows, copy the location list for
- * that window.
- */
- if (IS_LL_WINDOW(from))
- qi = from->w_llist_ref;
- else
- qi = from->w_llist;
- if (qi == NULL) /* no location list to copy */
- return;
- /* allocate a new location list */
- if ((to->w_llist = ll_new_list()) == NULL)
- return;
- to->w_llist->qf_listcount = qi->qf_listcount;
- /* Copy the location lists one at a time */
- for (idx = 0; idx < qi->qf_listcount; idx++)
- {
- qf_list_T *from_qfl;
- qf_list_T *to_qfl;
- to->w_llist->qf_curlist = idx;
- from_qfl = &qi->qf_lists[idx];
- to_qfl = &to->w_llist->qf_lists[idx];
- /* Some of the fields are populated by qf_add_entry() */
- to_qfl->qf_nonevalid = from_qfl->qf_nonevalid;
- to_qfl->qf_count = 0;
- to_qfl->qf_index = 0;
- to_qfl->qf_start = NULL;
- to_qfl->qf_ptr = NULL;
- if (from_qfl->qf_count)
- {
- qfline_T *from_qfp;
- qfline_T *prevp = NULL;
- /* copy all the location entries in this list */
- for (i = 0, from_qfp = from_qfl->qf_start; i < from_qfl->qf_count;
- ++i, from_qfp = from_qfp->qf_next)
- {
- if (qf_add_entry(to->w_llist, &prevp,
- NULL,
- NULL,
- 0,
- from_qfp->qf_text,
- from_qfp->qf_lnum,
- from_qfp->qf_col,
- from_qfp->qf_viscol,
- from_qfp->qf_pattern,
- from_qfp->qf_nr,
- 0,
- from_qfp->qf_valid) == FAIL)
- {
- qf_free_all(to);
- return;
- }
- /*
- * qf_add_entry() will not set the qf_num field, as the
- * directory and file names are not supplied. So the qf_fnum
- * field is copied here.
- */
- prevp->qf_fnum = from_qfp->qf_fnum; /* file number */
- prevp->qf_type = from_qfp->qf_type; /* error type */
- if (from_qfl->qf_ptr == from_qfp)
- to_qfl->qf_ptr = prevp; /* current location */
- }
- }
- to_qfl->qf_index = from_qfl->qf_index; /* current index in the list */
- /* When no valid entries are present in the list, qf_ptr points to
- * the first item in the list */
- if (to_qfl->qf_nonevalid == TRUE)
- to_qfl->qf_ptr = to_qfl->qf_start;
- }
- to->w_llist->qf_curlist = qi->qf_curlist; /* current list */
- }
- /*
- * get buffer number for file "dir.name"
- */
- static int
- qf_get_fnum(directory, fname)
- char_u *directory;
- char_u *fname;
- {
- if (fname == NULL || *fname == NUL) /* no file name */
- return 0;
- {
- #ifdef RISCOS
- /* Name is reported as `main.c', but file is `c.main' */
- return ro_buflist_add(fname);
- #else
- char_u *ptr;
- int fnum;
- # ifdef VMS
- vms_remove_version(fname);
- # endif
- # ifdef BACKSLASH_IN_FILENAME
- if (directory != NULL)
- slash_adjust(directory);
- slash_adjust(fname);
- # endif
- if (directory != NULL && !vim_isAbsName(fname)
- && (ptr = concat_fnames(directory, fname, TRUE)) != NULL)
- {
- /*
- * Here we check if the file really exists.
- * This should normally be true, but if make works without
- * "leaving directory"-messages we might have missed a
- * directory change.
- */
- if (mch_getperm(ptr) < 0)
- {
- vim_free(ptr);
- directory = qf_guess_filepath(fname);
- if (directory)
- ptr = concat_fnames(directory, fname, TRUE);
- else
- ptr = vim_strsave(fname);
- }
- /* Use concatenated directory name and file name */
- fnum = buflist_add(ptr, 0);
- vim_free(ptr);
- return fnum;
- }
- return buflist_add(fname, 0);
- #endif
- }
- }
- /*
- * push dirbuf onto the directory stack and return pointer to actual dir or
- * NULL on error
- */
- static char_u *
- qf_push_dir(dirbuf, stackptr)
- char_u *dirbuf;
- struct dir_stack_T **stackptr;
- {
- struct dir_stack_T *ds_new;
- struct dir_stack_T *ds_ptr;
- /* allocate new stack element and hook it in */
- ds_new = (struct dir_stack_T *)alloc((unsigned)sizeof(struct dir_stack_T));
- if (ds_new == NULL)
- return NULL;
- ds_new->next = *stackptr;
- *stackptr = ds_new;
- /* store directory on the stack */
- if (vim_isAbsName(dirbuf)
- || (*stackptr)->next == NULL
- || (*stackptr && dir_stack != *stackptr))
- (*stackptr)->dirname = vim_strsave(dirbuf);
- else
- {
- /* Okay we don't have an absolute path.
- * dirbuf must be a subdir of one of the directories on the stack.
- * Let's search...
- */
- ds_new = (*stackptr)->next;
- (*stackptr)->dirname = NULL;
- while (ds_new)
- {
- vim_free((*stackptr)->dirname);
- (*stackptr)->dirname = concat_fnames(ds_new->dirname, dirbuf,
- TRUE);
- if (mch_isdir((*stackptr)->dirname) == TRUE)
- break;
- ds_new = ds_new->next;
- }
- /* clean up all dirs we already left */
- while ((*stackptr)->next != ds_new)
- {
- ds_ptr = (*stackptr)->next;
- (*stackptr)->next = (*stackptr)->next->next;
- vim_free(ds_ptr->dirname);
- vim_free(ds_ptr);
- }
- /* Nothing found -> it must be on top level */
- if (ds_new == NULL)
- {
- vim_free((*stackptr)->dirname);
- (*stackptr)->dirname = vim_strsave(dirbuf);
- }
- }
- if ((*stackptr)->dirname != NULL)
- return (*stackptr)->dirname;
- else
- {
- ds_ptr = *stackptr;
- *stackptr = (*stackptr)->next;
- vim_free(ds_ptr);
- return NULL;
- }
- }
- /*
- * pop dirbuf from the directory stack and return previous directory or NULL if
- * stack is empty
- */
- static char_u *
- qf_pop_dir(stackptr)
- struct dir_stack_T **stackptr;
- {
- struct dir_stack_T *ds_ptr;
- /* TODO: Should we check if dirbuf is the directory on top of the stack?
- * What to do if it isn't? */
- /* pop top element and free it */
- if (*stackptr != NULL)
- {
- ds_ptr = *stackptr;
- *stackptr = (*stackptr)->next;
- vim_free(ds_ptr->dirname);
- vim_free(ds_ptr);
- }
- /* return NEW top element as current dir or NULL if stack is empty*/
- return *stackptr ? (*stackptr)->dirname : NULL;
- }
- /*
- * clean up directory stack
- */
- static void
- qf_clean_dir_stack(stackptr)
- struct dir_stack_T **stackptr;
- {
- struct dir_stack_T *ds_ptr;
- while ((ds_ptr = *stackptr) != NULL)
- {
- *stackptr = (*stackptr)->next;
- vim_free(ds_ptr->dirname);
- vim_free(ds_ptr);
- }
- }
- /*
- * Check in which directory of the directory stack the given file can be
- * found.
- * Returns a pointer to the directory name or NULL if not found
- * Cleans up intermediate directory entries.
- *
- * TODO: How to solve the following problem?
- * If we have the this directory tree:
- * ./
- * ./aa
- * ./aa/bb
- * ./bb
- * ./bb/x.c
- * and make says:
- * making all in aa
- * making all in bb
- * x.c:9: Error
- * Then qf_push_dir thinks we are in ./aa/bb, but we are in ./bb.
- * qf_guess_filepath will return NULL.
- */
- static char_u *
- qf_guess_filepath(filename)
- char_u *filename;
- {
- struct dir_stack_T *ds_ptr;
- struct dir_stack_T *ds_tmp;
- char_u *fullname;
- /* no dirs on the stack - there's nothing we can do */
- if (dir_stack == NULL)
- return NULL;
- ds_ptr = dir_stack->next;
- fullname = NULL;
- while (ds_ptr)
- {
- vim_free(fullname);
- fullname = concat_fnames(ds_ptr->dirname, filename, TRUE);
- /* If concat_fnames failed, just go on. The worst thing that can happen
- * is that we delete the entire stack.
- */
- if ((fullname != NULL) && (mch_getperm(fullname) >= 0))
- break;
- ds_ptr = ds_ptr->next;
- }
- vim_free(fullname);
- /* clean up all dirs we already left */
- while (dir_stack->next != ds_ptr)
- {
- ds_tmp = dir_stack->next;
- dir_stack->next = dir_stack->next->next;
- vim_free(ds_tmp->dirname);
- vim_free(ds_tmp);
- }
- return ds_ptr==NULL? NULL: ds_ptr->dirname;
- }
- /*
- * jump to a quickfix line
- * if dir == FORWARD go "errornr" valid entries forward
- * if dir == BACKWARD go "errornr" valid entries backward
- * if dir == FORWARD_FILE go "errornr" valid entries files backward
- * if dir == BACKWARD_FILE go "errornr" valid entries files backward
- * else if "errornr" is zero, redisplay the same line
- * else go to entry "errornr"
- */
- void
- qf_jump(qi, dir, errornr, forceit)
- qf_info_T *qi;
- int dir;
- int errornr;
- int forceit;
- {
- qf_info_T *ll_ref;
- qfline_T *qf_ptr;
- qfline_T *old_qf_ptr;
- int qf_index;
- int old_qf_fnum;
- int old_qf_index;
- int prev_index;
- static char_u *e_no_more_items = (char_u *)N_("E553: No more items");
- char_u *err = e_no_more_items;
- linenr_T i;
- buf_T *old_curbuf;
- linenr_T old_lnum;
- colnr_T screen_col;
- colnr_T char_col;
- char_u *line;
- #ifdef FEAT_WINDOWS
- char_u *old_swb = p_swb;
- int opened_window = FALSE;
- win_T *win;
- win_T *altwin;
- #endif
- int print_message = TRUE;
- int len;
- #ifdef FEAT_FOLDING
- int old_KeyTyped = KeyTyped; /* getting file may reset it */
- #endif
- int ok = OK;
- int usable_win;
- if (qi == NULL)
- qi = &ql_info;
- if (qi->qf_curlist >= qi->qf_listcount
- || qi->qf_lists[qi->qf_curlist].qf_count == 0)
- {
- EMSG(_(e_quickfix));
- return;
- }
- qf_ptr = qi->qf_lists[qi->qf_curlist].qf_ptr;
- old_qf_ptr = qf_ptr;
- qf_index = qi->qf_lists[qi->qf_curlist].qf_index;
- old_qf_index = qf_index;
- if (dir == FORWARD || dir == FORWARD_FILE) /* next valid entry */
- {
- while (errornr--)
- {
- old_qf_ptr = qf_ptr;
- prev_index = qf_index;
- old_qf_fnum = qf_ptr->qf_fnum;
- do
- {
- if (qf_index == qi->qf_lists[qi->qf_curlist].qf_count
- || qf_ptr->qf_next == NULL)
- {
- qf_ptr = old_qf_ptr;
- qf_index = prev_index;
- if (err != NULL)
- {
- EMSG(_(err));
- goto theend;
- }
- errornr = 0;
- break;
- }
- ++qf_index;
- qf_ptr = qf_ptr->qf_next;
- } while ((!qi->qf_lists[qi->qf_curlist].qf_nonevalid
- && !qf_ptr->qf_valid)
- || (dir == FORWARD_FILE && qf_ptr->qf_fnum == old_qf_fnum));
- err = NULL;
- }
- }
- else if (dir == BACKWARD || dir == BACKWARD_FILE) /* prev. valid entry */
- {
- while (errornr--)
- {
- old_qf_ptr = qf_ptr;
- prev_index = qf_index;
- old_qf_fnum = qf_ptr->qf_fnum;
- do
- {
- if (qf_index == 1 || qf_ptr->qf_prev == NULL)
- {
- qf_ptr = old_qf_ptr;
- qf_index = prev_index;
- if (err != NULL)
- {
- EMSG(_(err));
- goto theend;
- }
- errornr = 0;
- break;
- }
- --qf_index;
- qf_ptr = qf_ptr->qf_prev;
- } while ((!qi->qf_lists[qi->qf_curlist].qf_nonevalid
- && !qf_ptr->qf_valid)
- || (dir == BACKWARD_FILE && qf_ptr->qf_fnum == old_qf_fnum));
- err = NULL;
- }
- }
- else if (errornr != 0) /* go to specified number */
- {
- while (errornr < qf_index && qf_index > 1 && qf_ptr->qf_prev != NULL)
- {
- --qf_index;
- qf_ptr = qf_ptr->qf_prev;
- }
- while (errornr > qf_index && qf_index <
- qi->qf_lists[qi->qf_curlist].qf_count
- && qf_ptr->qf_next != NULL)
- {
- ++qf_index;
- qf_ptr = qf_ptr->qf_next;
- }
- }
- #ifdef FEAT_WINDOWS
- qi->qf_lists[qi->qf_curlist].qf_index = qf_index;
- if (qf_win_pos_update(qi, old_qf_index))
- /* No need to print the error message if it's visible in the error
- * window */
- print_message = FALSE;
- /*
- * For ":helpgrep" find a help window or open one.
- */
- if (qf_ptr->qf_type == 1 && (!curwin->w_buffer->b_help || cmdmod.tab != 0))
- {
- win_T *wp;
- int n;
- if (cmdmod.tab != 0)
- wp = NULL;
- else
- for (wp = firstwin; wp != NULL; wp = wp->w_next)
- if (wp->w_buffer != NULL && wp->w_buffer->b_help)
- break;
- if (wp != NULL && wp->w_buffer->b_nwindows > 0)
- win_enter(wp, TRUE);
- else
- {
- /*
- * Split off help window; put it at far top if no position
- * specified, the current window is vertically split and narrow.
- */
- n = WSP_HELP;
- # ifdef FEAT_VERTSPLIT
- if (cmdmod.split == 0 && curwin->w_width != Columns
- && curwin->w_width < 80)
- n |= WSP_TOP;
- # endif
- if (win_split(0, n) == FAIL)
- goto theend;
- opened_window = TRUE; /* close it when fail */
- if (curwin->w_height < p_hh)
- win_setheight((int)p_hh);
- if (qi != &ql_info) /* not a quickfix list */
- {
- /* The new window should use the supplied location list */
- qf_free_all(curwin);
- curwin->w_llist = qi;
- qi->qf_refcount++;
- }
- }
- if (!p_im)
- restart_edit = 0; /* don't want insert mode in help file */
- }
- /*
- * If currently in the quickfix window, find another window to show the
- * file in.
- */
- if (bt_quickfix(curbuf) && !opened_window)
- {
- /*
- * If there is no file specified, we don't know where to go.
- * But do advance, otherwise ":cn" gets stuck.
- */
- if (qf_ptr->qf_fnum == 0)
- goto theend;
- /* Locate a window showing a normal buffer */
- usable_win = 0;
- FOR_ALL_WINDOWS(win)
- if (win->w_buffer->b_p_bt[0] == NUL)
- {
- usable_win = 1;
- break;
- }
- /*
- * If no usable window is found and 'switchbuf' is set to 'usetab'
- * then search in other tabs.
- */
- if (!usable_win && vim_strchr(p_swb, 'a') != NULL)
- {
- tabpage_T *tp;
- win_T *wp;
- FOR_ALL_TAB_WINDOWS(tp, wp)
- {
- if (wp->w_buffer->b_fnum == qf_ptr->qf_fnum)
- {
- goto_tabpage_win(tp, wp);
- usable_win = 1;
- break;
- }
- }
- }
- /*
- * If there is only one window and is the quickfix window, create a new
- * one above the quickfix window.
- */
- if (((firstwin == lastwin) && bt_quickfix(curbuf)) || !usable_win)
- {
- ll_ref = curwin->w_llist_ref;
- if (win_split(0, WSP_ABOVE) == FAIL)
- goto failed; /* not enough room for window */
- opened_window = TRUE; /* close it when fail */
- p_swb = empty_option; /* don't split again */
- # ifdef FEAT_SCROLLBIND
- curwin->w_p_scb = FALSE;
- # endif
- if (ll_ref != NULL)
- {
- /* The new window should use the location list from the
- * location list window */
- qf_free_all(curwin);
- curwin->w_llist = ll_ref;
- ll_ref->qf_refcount++;
- }
- }
- else
- {
- if (curwin->w_llist_ref != NULL)
- {
- /* In a location window */
- ll_ref = curwin->w_llist_ref;
- /* Find the window with the same location list */
- FOR_ALL_WINDOWS(win)
- if (win->w_llist == ll_ref)
- break;
- if (win == NULL)
- {
- /* Find the window showing the selected file */
- FOR_ALL_WINDOWS(win)
- if (win->w_buffer->b_fnum == qf_ptr->qf_fnum)
- break;
- if (win == NULL)
- {
- /* Find a previous usable window */
- win = curwin;
- do
- {
- if (win->w_buffer->b_p_bt[0] == NUL)
- break;
- if (win->w_prev == NULL)
- win = lastwin; /* wrap around the top */
- else
- win = win->w_prev; /* go to previous window */
- } while (win != curwin);
- }
- }
- win_goto(win);
- /* If the location list for the window is not set, then set it
- * to the location list from the location window */
- if (win->w_llist == NULL)
- {
- win->w_llist = ll_ref;
- ll_ref->qf_refcount++;
- }
- }
- else
- {
- /*
- * Try to find a window that shows the right buffer.
- * Default to the window just above the quickfix buffer.
- */
- win = curwin;
- altwin = NULL;
- for (;;)
- {
- if (win->w_buffer->b_fnum == qf_ptr->qf_fnum)
- break;
- if (win->w_prev == NULL)
- win = lastwin; /* wrap around the top */
- else
- win = win->w_prev; /* go to previous window */
- if (IS_QF_WINDOW(win))
- {
- /* Didn't find it, go to the window before the quickfix
- * window. */
- if (altwin != NULL)
- win = altwin;
- else if (curwin->w_prev != NULL)
- win = curwin->w_prev;
- else
- win = curwin->w_next;
- break;
- }
- /* Remember a usable window. */
- if (altwin == NULL && !win->w_p_pvw
- && win->w_buffer->b_p_bt[0] == NUL)
- altwin = win;
- }
- win_goto(win);
- }
- }
- }
- #endif
- /*
- * If there is a file name,
- * read the wanted file if needed, and check autowrite etc.
- */
- old_curbuf = curbuf;
- old_lnum = curwin->w_cursor.lnum;
- if (qf_ptr->qf_fnum != 0)
- {
- if (qf_ptr->qf_type == 1)
- {
- /* Open help file (do_ecmd() will set b_help flag, readfile() will
- * set b_p_ro flag). */
- if (!can_abandon(curbuf, forceit))
- {
- EMSG(_(e_nowrtmsg));
- ok = FALSE;
- }
- else
- ok = do_ecmd(qf_ptr->qf_fnum, NULL, NULL, NULL, (linenr_T)1,
- ECMD_HIDE + ECMD_SET_HELP);
- }
- else
- ok = buflist_getfile(qf_ptr->qf_fnum,
- (linenr_T)1, GETF_SETMARK | GETF_SWITCH, forceit);
- }
- if (ok == OK)
- {
- /* When not switched to another buffer, still need to set pc mark */
- if (curbuf == old_curbuf)
- setpcmark();
- if (qf_ptr->qf_pattern == NULL)
- {
- /*
- * Go to line with error, unless qf_lnum is 0.
- */
- i = qf_ptr->qf_lnum;
- if (i > 0)
- {
- if (i > curbuf->b_ml.ml_line_count)
- i = curbuf->b_ml.ml_line_count;
- curwin->w_cursor.lnum = i;
- }
- if (qf_ptr->qf_col > 0)
- {
- curwin->w_cursor.col = qf_ptr->qf_col - 1;
- if (qf_ptr->qf_viscol == TRUE)
- {
- /*
- * Check each character from the beginning of the error
- * line up to the error column. For each tab character
- * found, reduce the error column value by the length of
- * a tab character.
- */
- line = ml_get_curline();
- screen_col = 0;
- for (char_col = 0; char_col < curwin->w_cursor.col; ++char_col)
- {
- if (*line == NUL)
- break;
- if (*line++ == '\t')
- {
- curwin->w_cursor.col -= 7 - (screen_col % 8);
- screen_col += 8 - (screen_col % 8);
- }
- else
- ++screen_col;
- }
- }
- check_cursor();
- }
- else
- beginline(BL_WHITE | BL_FIX);
- }
- else
- {
- pos_T save_cursor;
- /* Move the cursor to the first line in the buffer */
- save_cursor = curwin->w_cursor;
- curwin->w_cursor.lnum = 0;
- if (!do_search(NULL, '/', qf_ptr->qf_pattern, (long)1, SEARCH_KEEP))
- curwin->w_cursor = save_cursor;
- }
- #ifdef FEAT_FOLDING
- if ((fdo_flags & FDO_QUICKFIX) && old_KeyTyped)
- foldOpenCursor();
- #endif
- if (print_message)
- {
- /* Update the screen before showing the message */
- update_topline_redraw();
- sprintf((char *)IObuff, _("(%d of %d)%s%s: "), qf_index,
- qi->qf_lists[qi->qf_curlist].qf_count,
- qf_ptr->qf_cleared ? _(" (line deleted)") : "",
- (char *)qf_types(qf_ptr->qf_type, qf_ptr->qf_nr));
- /* Add the message, skipping leading whitespace and newlines. */
- len = (int)STRLEN(IObuff);
- qf_fmt_text(skipwhite(qf_ptr->qf_text), IObuff + len, IOSIZE - len);
- /* Output the message. Overwrite to avoid scrolling when the 'O'
- * flag is present in 'shortmess'; But when not jumping, print the
- * whole message. */
- i = msg_scroll;
- if (curbuf == old_curbuf && curwin->w_cursor.lnum == old_lnum)
- msg_scroll = TRUE;
- else if (!msg_scrolled && shortmess(SHM_OVERALL))
- msg_scroll = FALSE;
- msg_attr_keep(IObuff, 0, TRUE);
- msg_scroll = i;
- }
- }
- else
- {
- #ifdef FEAT_WINDOWS
- if (opened_window)
- win_close(curwin, TRUE); /* Close opened window */
- #endif
- if (qf_ptr->qf_fnum != 0)
- {
- /*
- * Couldn't open file, so put index back where it was. This could
- * happen if the file was readonly and we changed something.
- */
- #ifdef FEAT_WINDOWS
- failed:
- #endif
- qf_ptr = old_qf_ptr;
- qf_index = old_qf_index;
- }
- }
- theend:
- qi->qf_lists[qi->qf_curlist].qf_ptr = qf_ptr;
- qi->qf_lists[qi->qf_curlist].qf_index = qf_index;
- #ifdef FEAT_WINDOWS
- if (p_swb != old_swb && opened_window)
- {
- /* Restore old 'switchbuf' value, but not when an autocommand or
- * modeline has changed the value. */
- if (p_swb == empty_option)
- p_swb = old_swb;
- else
- free_string_option(old_swb);
- }
- #endif
- }
- /*
- * ":clist": list all errors
- * ":llist": list all locations
- */
- void
- qf_list(eap)
- exarg_T *eap;
- {
- buf_T *buf;
- char_u *fname;
- qfline_T *qfp;
- int i;
- int idx1 = 1;
- int idx2 = -1;
- int need_return = TRUE;
- char_u *arg = eap->arg;
- int all = eap->forceit; /* if not :cl!, only show
- recognised errors */
- qf_info_T *qi = &ql_info;
- if (eap->cmdidx == CMD_llist)
- {
- qi = GET_LOC_LIST(curwin);
- if (qi == NULL)
- {
- EMSG(_(e_loclist));
- return;
- }
- }
- if (qi->qf_curlist >= qi->qf_listcount
- || qi->qf_lists[qi->qf_curlist].qf_count == 0)
- {
- EMSG(_(e_quickfix));
- return;
- }
- if (!get_list_range(&arg, &idx1, &idx2) || *arg != NUL)
- {
- EMSG(_(e_trailing));
- return;
- }
- i = qi->qf_lists[qi->qf_curlist].qf_count;
- if (idx1 < 0)
- idx1 = (-idx1 > i) ? 0 : idx1 + i + 1;
- if (idx2 < 0)
- idx2 = (-idx2 > i) ? 0 : idx2 + i + 1;
- if (qi->qf_lists[qi->qf_curlist].qf_nonevalid)
- all = TRUE;
- qfp = qi->qf_lists[qi->qf_curlist].qf_start;
- for (i = 1; !got_int && i <= qi->qf_lists[qi->qf_curlist].qf_count; )
- {
- if ((qfp->qf_valid || all) && idx1 <= i && i <= idx2)
- {
- if (need_return)
- {
- msg_putchar('\n');
- if (got_int)
- break;
- need_return = FALSE;
- }
- fname = NULL;
- if (qfp->qf_fnum != 0
- && (buf = buflist_findnr(qfp->qf_fnum)) != NULL)
- {
- fname = buf->b_fname;
- if (qfp->qf_type == 1) /* :helpgrep */
- fname = gettail(fname);
- }
- if (fname == NULL)
- sprintf((char *)IObuff, "%2d", i);
- else
- vim_snprintf((char *)IObuff, IOSIZE, "%2d %s",
- i, (char *)fname);
- msg_outtrans_attr(IObuff, i == qi->qf_lists[qi->qf_curlist].qf_index
- ? hl_attr(HLF_L) : hl_attr(HLF_D));
- if (qfp->qf_lnum == 0)
- IObuff[0] = NUL;
- else if (qfp->qf_col == 0)
- sprintf((char *)IObuff, ":%ld", qfp->qf_lnum);
- else
- sprintf((char *)IObuff, ":%ld col %d",
- qfp->qf_lnum, qfp->qf_col);
- sprintf((char *)IObuff + STRLEN(IObuff), "%s:",
- (char *)qf_types(qf…
Large files files are truncated, but you can click here to view the full file