vim: src/quickfix.c annotate

author	Christian Brabandt <cb@256bit.org>
date	Mon, 26 Jun 2023 09:54:34 +0200
parents	cb1af9880f6d
children	695b50472e85

rev	line source
32669 448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	1 /* vi:set ts=8 sts=4 sw=4 noet:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	2 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	3 * VIM - Vi IMproved by Bram Moolenaar
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	4 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	5 * Do ":help uganda" in Vim to read copying and usage conditions.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	6 * Do ":help credits" in Vim to see a list of people who contributed.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	7 * See README.txt for an overview of the Vim source code.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	8 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	9
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	10 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	11 * quickfix.c: functions for quickfix mode, using a file with error messages
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	12 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	13
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	14 #include "vim.h"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	15
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	16 #if defined(FEAT_QUICKFIX) \|\| defined(PROTO)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	17
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	18 struct dir_stack_T
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	19 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	20 struct dir_stack_T *next;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	21 char_u *dirname;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	22 };
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	23
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	24 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	25 * For each error the next struct is allocated and linked in a list.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	26 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	27 typedef struct qfline_S qfline_T;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	28 struct qfline_S
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	29 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	30 qfline_T *qf_next; // pointer to next error in the list
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	31 qfline_T *qf_prev; // pointer to previous error in the list
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	32 linenr_T qf_lnum; // line number where the error occurred
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	33 linenr_T qf_end_lnum; // line number when the error has range or zero
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	34 int qf_fnum; // file number for the line
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	35 int qf_col; // column where the error occurred
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	36 int qf_end_col; // column when the error has range or zero
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	37 int qf_nr; // error number
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	38 char_u *qf_module; // module name for this error
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	39 char_u *qf_pattern; // search pattern for the error
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	40 char_u *qf_text; // description of the error
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	41 char_u qf_viscol; // set to TRUE if qf_col and qf_end_col is
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	42 // screen column
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	43 char_u qf_cleared; // set to TRUE if line has been deleted
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	44 char_u qf_type; // type of the error (mostly 'E'); 1 for
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	45 // :helpgrep
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	46 char_u qf_valid; // valid error message detected
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	47 };
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	48
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	49 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	50 * There is a stack of error lists.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	51 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	52 #define LISTCOUNT 10
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	53 #define INVALID_QFIDX (-1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	54 #define INVALID_QFBUFNR (0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	55
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	56 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	57 * Quickfix list type.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	58 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	59 typedef enum
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	60 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	61 QFLT_QUICKFIX, // Quickfix list - global list
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	62 QFLT_LOCATION, // Location list - per window list
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	63 QFLT_INTERNAL // Internal - Temporary list used by getqflist()/getloclist()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	64 } qfltype_T;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	65
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	66 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	67 * Quickfix/Location list definition
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	68 * Contains a list of entries (qfline_T). qf_start points to the first entry
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	69 * and qf_last points to the last entry. qf_count contains the list size.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	70 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	71 * Usually the list contains one or more entries. But an empty list can be
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	72 * created using setqflist()/setloclist() with a title and/or user context
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	73 * information and entries can be added later using setqflist()/setloclist().
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	74 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	75 typedef struct qf_list_S
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	76 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	77 int_u qf_id; // Unique identifier for this list
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	78 qfltype_T qfl_type;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	79 qfline_T *qf_start; // pointer to the first error
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	80 qfline_T *qf_last; // pointer to the last error
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	81 qfline_T *qf_ptr; // pointer to the current error
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	82 int qf_count; // number of errors (0 means empty list)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	83 int qf_index; // current index in the error list
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	84 int qf_nonevalid; // TRUE if not a single valid entry found
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	85 char_u *qf_title; // title derived from the command that created
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	86 // the error list or set by setqflist
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	87 typval_T *qf_ctx; // context set by setqflist/setloclist
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	88 callback_T qf_qftf_cb; // 'quickfixtextfunc' callback function
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	89
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	90 struct dir_stack_T *qf_dir_stack;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	91 char_u *qf_directory;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	92 struct dir_stack_T *qf_file_stack;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	93 char_u *qf_currfile;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	94 int qf_multiline;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	95 int qf_multiignore;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	96 int qf_multiscan;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	97 long qf_changedtick;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	98 } qf_list_T;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	99
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	100 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	101 * Quickfix/Location list stack definition
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	102 * Contains a list of quickfix/location lists (qf_list_T)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	103 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	104 struct qf_info_S
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	105 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	106 // Count of references to this list. Used only for location lists.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	107 // When a location list window reference this list, qf_refcount
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	108 // will be 2. Otherwise, qf_refcount will be 1. When qf_refcount
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	109 // reaches 0, the list is freed.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	110 int qf_refcount;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	111 int qf_listcount; // current number of lists
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	112 int qf_curlist; // current error list
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	113 qf_list_T qf_lists[LISTCOUNT];
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	114 qfltype_T qfl_type; // type of list
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	115 int qf_bufnr; // quickfix window buffer number
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	116 };
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	117
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	118 static qf_info_T ql_info; // global quickfix list
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	119 static int_u last_qf_id = 0; // Last used quickfix list id
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	120
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	121 #define FMT_PATTERNS 13 // maximum number of % recognized
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	122
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	123 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	124 * Structure used to hold the info of one part of 'errorformat'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	125 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	126 typedef struct efm_S efm_T;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	127 struct efm_S
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	128 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	129 regprog_T *prog; // pre-formatted part of 'errorformat'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	130 efm_T *next; // pointer to next (NULL if last)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	131 char_u addr[FMT_PATTERNS]; // indices of used % patterns
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	132 char_u prefix; // prefix of this format line:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	133 // 'D' enter directory
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	134 // 'X' leave directory
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	135 // 'A' start of multi-line message
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	136 // 'E' error message
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	137 // 'W' warning message
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	138 // 'I' informational message
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	139 // 'N' note message
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	140 // 'C' continuation line
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	141 // 'Z' end of multi-line message
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	142 // 'G' general, unspecific message
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	143 // 'P' push file (partial) message
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	144 // 'Q' pop/quit file (partial) message
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	145 // 'O' overread (partial) message
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	146 char_u flags; // additional flags given in prefix
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	147 // '-' do not include this line
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	148 // '+' include whole line in message
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	149 int conthere; // %> used
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	150 };
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	151
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	152 // List of location lists to be deleted.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	153 // Used to delay the deletion of locations lists by autocmds.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	154 typedef struct qf_delq_S
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	155 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	156 struct qf_delq_S *next;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	157 qf_info_T *qi;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	158 } qf_delq_T;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	159 static qf_delq_T *qf_delq_head = NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	160
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	161 // Counter to prevent autocmds from freeing up location lists when they are
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	162 // still being used.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	163 static int quickfix_busy = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	164
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	165 static efm_T *fmt_start = NULL; // cached across qf_parse_line() calls
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	166
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	167 // callback function for 'quickfixtextfunc'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	168 static callback_T qftf_cb;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	169
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	170 static void qf_new_list(qf_info_T qi, char_u qf_title);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	171 static int qf_add_entry(qf_list_T qfl, char_u dir, char_u fname, char_u module, int bufnum, char_u mesg, long lnum, long end_lnum, int col, int end_col, int vis_col, char_u pattern, int nr, int type, int valid);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	172 static void qf_free(qf_list_T *qfl);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	173 static char_u *qf_types(int, int);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	174 static int qf_get_fnum(qf_list_T qfl, char_u , char_u *);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	175 static char_u qf_push_dir(char_u , struct dir_stack_T **, int is_file_stack);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	176 static char_u qf_pop_dir(struct dir_stack_T *);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	177 static char_u qf_guess_filepath(qf_list_T qfl, char_u *);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	178 static void qf_jump_newwin(qf_info_T *qi, int dir, int errornr, int forceit, int newwin);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	179 static void qf_fmt_text(garray_T gap, char_u text);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	180 static void qf_range_text(garray_T gap, qfline_T qfp);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	181 static int qf_win_pos_update(qf_info_T *qi, int old_qf_index);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	182 static win_T qf_find_win(qf_info_T qi);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	183 static buf_T qf_find_buf(qf_info_T qi);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	184 static void qf_update_buffer(qf_info_T qi, qfline_T old_last);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	185 static void qf_fill_buffer(qf_list_T qfl, buf_T buf, qfline_T *old_last, int qf_winid);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	186 static buf_T load_dummy_buffer(char_u fname, char_u dirname_start, char_u resulting_dir);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	187 static void wipe_dummy_buffer(buf_T buf, char_u dirname_start);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	188 static void unload_dummy_buffer(buf_T buf, char_u dirname_start);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	189 static qf_info_T ll_get_or_alloc_list(win_T );
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	190
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	191 // Quickfix window check helper macro
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	192 #define IS_QF_WINDOW(wp) (bt_quickfix((wp)->w_buffer) && (wp)->w_llist_ref == NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	193 // Location list window check helper macro
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	194 #define IS_LL_WINDOW(wp) (bt_quickfix((wp)->w_buffer) && (wp)->w_llist_ref != NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	195
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	196 // Quickfix and location list stack check helper macros
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	197 #define IS_QF_STACK(qi) ((qi)->qfl_type == QFLT_QUICKFIX)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	198 #define IS_LL_STACK(qi) ((qi)->qfl_type == QFLT_LOCATION)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	199 #define IS_QF_LIST(qfl) ((qfl)->qfl_type == QFLT_QUICKFIX)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	200 #define IS_LL_LIST(qfl) ((qfl)->qfl_type == QFLT_LOCATION)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	201
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	202 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	203 * Return location list for window 'wp'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	204 * For location list window, return the referenced location list
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	205 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	206 #define GET_LOC_LIST(wp) (IS_LL_WINDOW(wp) ? (wp)->w_llist_ref : (wp)->w_llist)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	207
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	208 // Macro to loop through all the items in a quickfix list
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	209 // Quickfix item index starts from 1, so i below starts at 1
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	210 #define FOR_ALL_QFL_ITEMS(qfl, qfp, i) \
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	211 for ((i) = 1, (qfp) = (qfl)->qf_start; \
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	212 !got_int && (i) <= (qfl)->qf_count && (qfp) != NULL; \
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	213 ++(i), (qfp) = (qfp)->qf_next)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	214
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	215 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	216 * Looking up a buffer can be slow if there are many. Remember the last one
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	217 * to make this a lot faster if there are multiple matches in the same file.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	218 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	219 static char_u *qf_last_bufname = NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	220 static bufref_T qf_last_bufref = {NULL, 0, 0};
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	221
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	222 static garray_T qfga;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	223
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	224 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	225 * Get a growarray to buffer text in. Shared between various commands to avoid
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	226 * many alloc/free calls.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	227 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	228 static garray_T *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	229 qfga_get(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	230 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	231 static int initialized = FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	232
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	233 if (!initialized)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	234 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	235 initialized = TRUE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	236 ga_init2(&qfga, 1, 256);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	237 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	238
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	239 // Reset the length to zero. Retain ga_data from previous use to avoid
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	240 // many alloc/free calls.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	241 qfga.ga_len = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	242
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	243 return &qfga;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	244 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	245
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	246 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	247 * The "qfga" grow array buffer is reused across multiple quickfix commands as
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	248 * a temporary buffer to reduce the number of alloc/free calls. But if the
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	249 * buffer size is large, then to avoid holding on to that memory, clear the
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	250 * grow array. Otherwise just reset the grow array length.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	251 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	252 static void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	253 qfga_clear(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	254 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	255 if (qfga.ga_maxlen > 1000)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	256 ga_clear(&qfga);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	257 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	258 qfga.ga_len = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	259 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	260
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	261 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	262 * Maximum number of bytes allowed per line while reading a errorfile.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	263 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	264 #define LINE_MAXLEN 4096
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	265
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	266 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	267 * Patterns used. Keep in sync with qf_parse_fmt[].
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	268 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	269 static struct fmtpattern
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	270 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	271 char_u convchar;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	272 char *pattern;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	273 } fmt_pat[FMT_PATTERNS] =
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	274 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	275 {'f', ".\\+"}, // only used when at end
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	276 {'n', "\\d\\+"}, // 1
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	277 {'l', "\\d\\+"}, // 2
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	278 {'e', "\\d\\+"}, // 3
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	279 {'c', "\\d\\+"}, // 4
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	280 {'k', "\\d\\+"}, // 5
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	281 {'t', "."}, // 6
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	282 #define FMT_PATTERN_M 7
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	283 {'m', ".\\+"}, // 7
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	284 #define FMT_PATTERN_R 8
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	285 {'r', ".*"}, // 8
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	286 {'p', "[- .]*"}, // 9
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	287 {'v', "\\d\\+"}, // 10
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	288 {'s', ".\\+"}, // 11
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	289 {'o', ".\\+"} // 12
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	290 };
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	291
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	292 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	293 * Convert an errorformat pattern to a regular expression pattern.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	294 * See fmt_pat definition above for the list of supported patterns. The
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	295 * pattern specifier is supplied in "efmpat". The converted pattern is stored
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	296 * in "regpat". Returns a pointer to the location after the pattern.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	297 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	298 static char_u *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	299 efmpat_to_regpat(
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	300 char_u *efmpat,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	301 char_u *regpat,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	302 efm_T *efminfo,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	303 int idx,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	304 int round)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	305 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	306 char_u *srcptr;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	307
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	308 if (efminfo->addr[idx])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	309 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	310 // Each errorformat pattern can occur only once
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	311 semsg(_(e_too_many_chr_in_format_string), *efmpat);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	312 return NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	313 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	314 if ((idx && idx < FMT_PATTERN_R
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	315 && vim_strchr((char_u *)"DXOPQ", efminfo->prefix) != NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	316 \|\| (idx == FMT_PATTERN_R
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	317 && vim_strchr((char_u *)"OPQ", efminfo->prefix) == NULL))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	318 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	319 semsg(_(e_unexpected_chr_in_format_str), *efmpat);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	320 return NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	321 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	322 efminfo->addr[idx] = (char_u)++round;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	323 *regpat++ = '\\';
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	324 *regpat++ = '(';
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	325 #ifdef BACKSLASH_IN_FILENAME
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	326 if (*efmpat == 'f')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	327 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	328 // Also match "c:" in the file name, even when
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	329 // checking for a colon next: "%f:".
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	330 // "\%(\a:\)\="
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	331 STRCPY(regpat, "\\%(\\a:\\)\\=");
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	332 regpat += 10;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	333 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	334 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	335 if (*efmpat == 'f' && efmpat[1] != NUL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	336 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	337 if (efmpat[1] != '\\' && efmpat[1] != '%')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	338 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	339 // A file name may contain spaces, but this isn't
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	340 // in "\f". For "%f:%l:%m" there may be a ":" in
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	341 // the file name. Use ".\{-1,}x" instead (x is
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	342 // the next character), the requirement that :999:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	343 // follows should work.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	344 STRCPY(regpat, ".\\{-1,}");
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	345 regpat += 7;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	346 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	347 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	348 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	349 // File name followed by '\\' or '%': include as
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	350 // many file name chars as possible.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	351 STRCPY(regpat, "\\f\\+");
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	352 regpat += 4;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	353 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	354 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	355 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	356 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	357 srcptr = (char_u *)fmt_pat[idx].pattern;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	358 while ((regpat = srcptr++) != NUL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	359 ++regpat;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	360 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	361 *regpat++ = '\\';
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	362 *regpat++ = ')';
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	363
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	364 return regpat;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	365 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	366
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	367 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	368 * Convert a scanf like format in 'errorformat' to a regular expression.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	369 * Returns a pointer to the location after the pattern.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	370 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	371 static char_u *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	372 scanf_fmt_to_regpat(
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	373 char_u **pefmp,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	374 char_u *efm,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	375 int len,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	376 char_u *regpat)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	377 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	378 char_u efmp = pefmp;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	379
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	380 if (efmp == '[' \|\| efmp == '\\')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	381 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	382 if ((regpat++ = efmp) == '[') // %*[^a-z0-9] etc.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	383 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	384 if (efmp[1] == '^')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	385 regpat++ = ++efmp;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	386 if (efmp < efm + len)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	387 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	388 regpat++ = ++efmp; // could be ']'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	389 while (efmp < efm + len
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	390 && (regpat++ = ++efmp) != ']')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	391 // skip ;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	392 if (efmp == efm + len)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	393 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	394 emsg(_(e_missing_rsb_in_format_string));
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	395 return NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	396 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	397 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	398 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	399 else if (efmp < efm + len) // %\D, %\s etc.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	400 regpat++ = ++efmp;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	401 *regpat++ = '\\';
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	402 *regpat++ = '+';
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	403 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	404 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	405 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	406 // TODO: scanf()-like: %ud, %3c, %*f, ... ?
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	407 semsg(_(e_unsupported_chr_in_format_string), *efmp);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	408 return NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	409 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	410
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	411 *pefmp = efmp;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	412
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	413 return regpat;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	414 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	415
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	416 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	417 * Analyze/parse an errorformat prefix.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	418 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	419 static char_u *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	420 efm_analyze_prefix(char_u efmp, efm_T efminfo)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	421 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	422 if (vim_strchr((char_u )"+-", efmp) != NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	423 efminfo->flags = *efmp++;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	424 if (vim_strchr((char_u )"DXAEWINCZGOPQ", efmp) != NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	425 efminfo->prefix = *efmp;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	426 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	427 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	428 semsg(_(e_invalid_chr_in_format_string_prefix), *efmp);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	429 return NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	430 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	431
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	432 return efmp;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	433 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	434
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	435 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	436 * Converts a 'errorformat' string part in 'efm' to a regular expression
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	437 * pattern. The resulting regex pattern is returned in "regpat". Additional
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	438 * information about the 'erroformat' pattern is returned in "fmt_ptr".
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	439 * Returns OK or FAIL.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	440 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	441 static int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	442 efm_to_regpat(
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	443 char_u *efm,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	444 int len,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	445 efm_T *fmt_ptr,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	446 char_u *regpat)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	447 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	448 char_u *ptr;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	449 char_u *efmp;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	450 int round;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	451 int idx = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	452
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	453 // Build a regexp pattern for a 'errorformat' option part
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	454 ptr = regpat;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	455 *ptr++ = '^';
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	456 round = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	457 for (efmp = efm; efmp < efm + len; ++efmp)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	458 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	459 if (*efmp == '%')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	460 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	461 ++efmp;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	462 for (idx = 0; idx < FMT_PATTERNS; ++idx)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	463 if (fmt_pat[idx].convchar == *efmp)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	464 break;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	465 if (idx < FMT_PATTERNS)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	466 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	467 ptr = efmpat_to_regpat(efmp, ptr, fmt_ptr, idx, round);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	468 if (ptr == NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	469 return FAIL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	470 round++;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	471 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	472 else if (efmp == '')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	473 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	474 ++efmp;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	475 ptr = scanf_fmt_to_regpat(&efmp, efm, len, ptr);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	476 if (ptr == NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	477 return FAIL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	478 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	479 else if (vim_strchr((char_u )"%\\.^$~[", efmp) != NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	480 ptr++ = efmp; // regexp magic characters
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	481 else if (*efmp == '#')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	482 ptr++ = '';
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	483 else if (*efmp == '>')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	484 fmt_ptr->conthere = TRUE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	485 else if (efmp == efm + 1) // analyse prefix
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	486 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	487 // prefix is allowed only at the beginning of the errorformat
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	488 // option part
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	489 efmp = efm_analyze_prefix(efmp, fmt_ptr);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	490 if (efmp == NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	491 return FAIL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	492 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	493 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	494 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	495 semsg(_(e_invalid_chr_in_format_string), *efmp);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	496 return FAIL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	497 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	498 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	499 else // copy normal character
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32568 diff changeset	500 {

32669

448aef880252 normalize line endings