Introduce nvim namespace: Move files.

Move files from src/ to src/nvim/.
- src/nvim/ becomes the new root dir for nvim executable sources.
- src/libnvim/ is planned to become root dir of the neovim library.

1 files changed, 0 insertions, 3688 deletions

diff --git a/src/quickfix.c b/src/quickfix.c
deleted file mode 100644
index 94b2b05501..0000000000
--- a/src/quickfix.c
+++ /dev/null
@@ -1,3688 +0,0 @@
-/*
- * 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 <string.h>
-
-#include "vim.h"
-#include "quickfix.h"
-#include "buffer.h"
-#include "charset.h"
-#include "edit.h"
-#include "eval.h"
-#include "ex_cmds.h"
-#include "ex_cmds2.h"
-#include "ex_docmd.h"
-#include "ex_eval.h"
-#include "ex_getln.h"
-#include "fileio.h"
-#include "fold.h"
-#include "mark.h"
-#include "mbyte.h"
-#include "memline.h"
-#include "message.h"
-#include "misc1.h"
-#include "misc2.h"
-#include "memory.h"
-#include "move.h"
-#include "normal.h"
-#include "option.h"
-#include "os_unix.h"
-#include "path.h"
-#include "regexp.h"
-#include "screen.h"
-#include "search.h"
-#include "term.h"
-#include "ui.h"
-#include "window.h"
-#include "os/os.h"
-
-
-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 */
-  char_u      *qf_title;        /* title derived from the command that created
-                                 * the error list */
-} 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(qf_info_T *qi, char_u *efile, buf_T *buf,
-                       typval_T *tv, char_u *errorformat, int newlist,
-                       linenr_T lnumfirst,
-                       linenr_T lnumlast,
-                       char_u *qf_title);
-static void qf_new_list(qf_info_T *qi, char_u *qf_title);
-static void ll_free_all(qf_info_T **pqi);
-static int qf_add_entry(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 qf_info_T *ll_new_list(void);
-static void qf_msg(qf_info_T *qi);
-static void qf_free(qf_info_T *qi, int idx);
-static char_u   *qf_types(int, int);
-static int qf_get_fnum(char_u *, char_u *);
-static char_u   *qf_push_dir(char_u *, struct dir_stack_T **);
-static char_u   *qf_pop_dir(struct dir_stack_T **);
-static char_u   *qf_guess_filepath(char_u *);
-static void qf_fmt_text(char_u *text, char_u *buf, int bufsize);
-static void qf_clean_dir_stack(struct dir_stack_T **);
-static int qf_win_pos_update(qf_info_T *qi, int old_qf_index);
-static int is_qf_win(win_T *win, qf_info_T *qi);
-static win_T    *qf_find_win(qf_info_T *qi);
-static buf_T    *qf_find_buf(qf_info_T *qi);
-static void qf_update_buffer(qf_info_T *qi);
-static void qf_set_title(qf_info_T *qi);
-static void qf_fill_buffer(qf_info_T *qi);
-static char_u   *get_mef_name(void);
-static void restore_start_dir(char_u *dirname_start);
-static buf_T    *load_dummy_buffer(char_u *fname, char_u *dirname_start,
-                                           char_u *resulting_dir);
-static void wipe_dummy_buffer(buf_T *buf, char_u *dirname_start);
-static void unload_dummy_buffer(buf_T *buf, char_u *dirname_start);
-static qf_info_T *ll_get_or_alloc_list(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. Set the error list's title to qf_title.
- * Return -1 for error, number of errors for success.
- */
-int 
-qf_init (
-    win_T *wp,
-    char_u *efile,
-    char_u *errorformat,
-    int newlist,                            /* TRUE: start a new error list */
-    char_u *qf_title
-)
-{
-  qf_info_T       *qi = &ql_info;
-
-  if (efile == NULL)
-    return FAIL;
-
-  if (wp != NULL) {
-    qi = ll_get_or_alloc_list(wp);
-  }
-
-  return qf_init_ext(qi, efile, curbuf, NULL, errorformat, newlist,
-      (linenr_T)0, (linenr_T)0,
-      qf_title);
-}
-
-/*
- * 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.
- * Set the title of the list to "qf_title".
- * Return -1 for error, number of errors for success.
- */
-static int 
-qf_init_ext (
-    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 *qf_title
-)
-{
-  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 (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, qf_title);
-  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 = 3 * FMT_PATTERNS + 4 * (int)STRLEN(efm);
-  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
-  fmtstr = alloc(i);
-
-  while (efm[0] != NUL) {
-    /*
-     * Allocate a new eformat structure and put it at the end of the list
-     */
-    fmt_ptr = xcalloc(1, sizeof(efm_T));
-    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 */
-    remove_bom(IObuff);
-
-    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(&regmatch, 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
-              && !os_file_exists(namebuf))
-            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 */
-          char_u      *match_ptr;
-
-          if (regmatch.startp[i] == NULL || regmatch.endp[i] == NULL)
-            continue;
-          col = 0;
-          for (match_ptr = regmatch.startp[i];
-               match_ptr != regmatch.endp[i]; ++match_ptr) {
-            ++col;
-            if (*match_ptr == TAB) {
-              col += 7;
-              col -= col % 8;
-            }
-          }
-          ++col;
-          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 */
-        multiignore = FALSE; /* reset continuation */
-      } 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);
-          ptr = alloc((unsigned)(len + STRLEN(errmsg) + 2));
-          STRCPY(ptr, qfprev->qf_text);
-          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 || os_file_exists(namebuf)) {
-          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) {
-            STRMOVE(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_regfree(fmt_ptr->prog);
-    free(fmt_ptr);
-  }
-  qf_clean_dir_stack(&dir_stack);
-  qf_clean_dir_stack(&file_stack);
-qf_init_end:
-  free(namebuf);
-  free(errmsg);
-  free(pattern);
-  free(fmtstr);
-
-  qf_update_buffer(qi);
-
-  return retval;
-}
-
-/*
- * Prepare for adding a new quickfix list.
- */
-static void qf_new_list(qf_info_T *qi, char_u *qf_title)
-{
-  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++;
-  memset(&qi->qf_lists[qi->qf_curlist], 0, (size_t)(sizeof(qf_list_T)));
-  if (qf_title != NULL) {
-    char_u *p = alloc((int)STRLEN(qf_title) + 2);
-
-    qi->qf_lists[qi->qf_curlist].qf_title = p;
-    sprintf((char *)p, ":%s", (char *)qf_title);
-  }
-}
-
-/*
- * Free a location list
- */
-static void ll_free_all(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);
-    free(qi);
-  }
-}
-
-void qf_free_all(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 (
-    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;
-
-  qfp = (qfline_T *)alloc((unsigned)sizeof(qfline_T));
-
-  if (bufnum != 0)
-    qfp->qf_fnum = bufnum;
-  else
-    qfp->qf_fnum = qf_get_fnum(dir, fname);
-  if ((qfp->qf_text = vim_strsave(mesg)) == NULL) {
-    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) {
-    free(qfp->qf_text);
-    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(void)
-{
-  qf_info_T *qi = xcalloc(1, 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(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(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;