To: vim_dev@googlegroups.com

Subject: Patch 7.4.858

Fcc: outbox

From: Bram Moolenaar <Bram@moolenaar.net>

Mime-Version: 1.0

Content-Type: text/plain; charset=UTF-8

Content-Transfer-Encoding: 8bit

------------

Patch 7.4.858

Problem:    It's a bit clumsy to execute a command on a list of matches.

Solution:   Add the ":ldo", ":lfdo", ":cdo" and ":cfdo" commands. (Yegappan

            Lakshmanan)

Files:      runtime/doc/cmdline.txt, runtime/doc/editing.txt,

            runtime/doc/index.txt, runtime/doc/quickfix.txt,

            runtime/doc/tabpage.txt, runtime/doc/windows.txt, src/ex_cmds.h,

            src/ex_cmds2.c, src/ex_docmd.c, src/proto/quickfix.pro,

            src/quickfix.c, src/testdir/Make_amiga.mak,

            src/testdir/Make_dos.mak, src/testdir/Make_ming.mak,

            src/testdir/Make_os2.mak, src/testdir/Make_vms.mms,

            src/testdir/Makefile, src/testdir/test_cdo.in,

            src/testdir/test_cdo.ok

*** ../vim-7.4.857/runtime/doc/cmdline.txt	2014-02-23 23:38:58.812760280 +0100

--- runtime/doc/cmdline.txt	2015-09-08 18:07:42.256948348 +0200

***************

*** 511,516 ****

--- 511,518 ----

      :argdo

      :autocmd

      :bufdo

+     :cdo

+     :cfdo

      :command

      :cscope

      :debug

***************

*** 521,526 ****

--- 523,530 ----

      :help

      :helpfind

      :lcscope

+     :ldo

+     :lfdo

      :make

      :normal

      :perl

*** ../vim-7.4.857/runtime/doc/editing.txt	2015-01-07 16:52:53.506792420 +0100

--- runtime/doc/editing.txt	2015-09-08 18:07:42.256948348 +0200

***************

*** 854,860 ****

  			each file.

  			{not in Vi} {not available when compiled without the

  			|+listcmds| feature}

! 			Also see |:windo|, |:tabdo| and |:bufdo|.

  Example: >

  	:args *.c

--- 868,875 ----

  			each file.

  			{not in Vi} {not available when compiled without the

  			|+listcmds| feature}

! 			Also see |:windo|, |:tabdo|, |:bufdo|, |:cdo|, |:ldo|,

! 			|:cfdo| and |:lfdo|

  Example: >

  	:args *.c

*** ../vim-7.4.857/runtime/doc/index.txt	2014-09-19 19:39:30.762446025 +0200

--- runtime/doc/index.txt	2015-09-08 18:10:53.402969644 +0200

***************

*** 1133,1138 ****

--- 1138,1145 ----

  |:cc|		:cc		go to specific error

  |:cclose|	:ccl[ose]	close quickfix window

  |:cd|		:cd		change directory

+ |:cdo|		:cdo		execute command in each valid error list entry

+ |:cfdo|		:cfd[o]		execute command in each file in error list

  |:center|	:ce[nter]	format lines at the center

  |:cexpr|	:cex[pr]	read errors from expr and jump to first

  |:cfile|	:cf[ile]	read file with error messages and jump to first

***************

*** 1290,1295 ****

--- 1298,1305 ----

  |:lchdir|	:lch[dir]	change directory locally

  |:lclose|	:lcl[ose]	close location window

  |:lcscope|	:lcs[cope]      like ":cscope" but uses location list

+ |:ldo|		:ld[o]		execute command in valid location list entries

+ |:lfdo|		:lfd[o]		execute command in each file in location list

  |:left|		:le[ft]		left align lines

  |:leftabove|	:lefta[bove]	make split window appear left or above

  |:let|		:let		assign a value to a variable or option

*** ../vim-7.4.857/runtime/doc/quickfix.txt	2014-02-23 23:38:58.820760280 +0100

--- runtime/doc/quickfix.txt	2015-09-08 18:27:53.564412123 +0200

***************

*** 299,321 ****

  	au QuickfixCmdPost make call QfMakeConv()

  =============================================================================

  2. The error window					*quickfix-window*

  					    *:cope* *:copen* *w:quickfix_title*

  :cope[n] [height]	Open a window to show the current list of errors.

  			When [height] is given, the window becomes that high

! 			(if there is room).  Otherwise the window is made ten

! 			lines high.

! 			The window will contain a special buffer, with

! 			'buftype' equal to "quickfix".  Don't change this!

  			If there already is a quickfix window, it will be made

  			the current window.  It is not possible to open a

! 			second quickfix window. The window will have the

! 			w:quickfix_title variable set which will indicate the

! 			command that produced the quickfix list. This can be

! 			used to compose a custom status line if the value of

! 			'statusline' is adjusted properly.

  							*:lop* *:lopen*

  :lop[en] [height]	Open a window to show the location list for the

--- 299,395 ----

  	au QuickfixCmdPost make call QfMakeConv()

+ EXECUTE A COMMAND IN ALL THE BUFFERS IN QUICKFIX OR LOCATION LIST:

+ 							*:cdo*

+ :cdo[!] {cmd}		Execute {cmd} in each valid entry in the quickfix list.

+ 			It works like doing this: >

+ 				:cfirst

+ 				:{cmd}

+ 				:cnext

+ 				:{cmd}

+ 				etc.

+ <			When the current file can't be |abandon|ed and the [!]

+ 			is not present, the command fails.

+ 			When an error is detected excecution stops.

+ 			The last buffer (or where an error occurred) becomes

+ 			the current buffer.

+ 			{cmd} can contain '|' to concatenate several commands.

+ 

+ 			Only valid entries in the quickfix list are used.

+ 			A range can be used to select entries, e.g.: >

+ 				:10,$cdo cmd

+ <			To skip entries 1 to 9.

+ 

+ 			Note: While this command is executing, the Syntax

+ 			autocommand event is disabled by adding it to

+ 			'eventignore'.  This considerably speeds up editing

+ 			each buffer.

+ 			{not in Vi} {not available when compiled without the

+ 			|+listcmds| feature}

+ 			Also see |:bufdo|, |:tabdo|, |:argdo|, |:windo|,

+ 			|:ldo|, |:cfdo| and |:lfdo|.

+ 

+ 							*:cfdo*

+ :cfdo[!] {cmd}		Execute {cmd} in each file in the quickfix list.

+ 			It works like doing this: >

+ 				:cfirst

+ 				:{cmd}

+ 				:cnfile

+ 				:{cmd}

+ 				etc.

+ <			Otherwise it works the same as `:cdo`.

+ 			{not in Vi} {not available when compiled without the

+ 			|+listcmds| feature}

+ 

+ 							*:ldo*

+ :ld[o][!] {cmd}		Execute {cmd} in each valid entry in the location list

+ 			for the current window.

+ 			It works like doing this: >

+ 				:lfirst

+ 				:{cmd}

+ 				:lnext

+ 				:{cmd}

+ 				etc.

+ <			Only valid entries in the location list are used.

+ 			Otherwise it works the same as `:cdo`.

+ 			{not in Vi} {not available when compiled without the

+ 			|+listcmds| feature}

+ 

+ 							*:lfdo*

+ :lfdo[!] {cmd}		Execute {cmd} in each file in the location list for

+ 			the current window.

+ 			It works like doing this: >

+ 				:lfirst

+ 				:{cmd}

+ 				:lnfile

+ 				:{cmd}

+ 				etc.

+ <			Otherwise it works the same as `:ldo`.

+ 			{not in Vi} {not available when compiled without the

+ 			|+listcmds| feature}

+ 

  =============================================================================

  2. The error window					*quickfix-window*

  					    *:cope* *:copen* *w:quickfix_title*

  :cope[n] [height]	Open a window to show the current list of errors.

+ 

  			When [height] is given, the window becomes that high

! 			(if there is room).  When [height] is omitted the

! 			window is made ten lines high.

! 

  			If there already is a quickfix window, it will be made

  			the current window.  It is not possible to open a

! 			second quickfix window.  If [height] is given the

! 			existing window will be resized to it.

! 

! 			The window will contain a special buffer, with

! 			'buftype' equal to "quickfix".  Don't change this!

! 			The window will have the w:quickfix_title variable set

! 			which will indicate the command that produced the

! 			quickfix list. This can be used to compose a custom

! 			status line if the value of 'statusline' is adjusted

! 			properly.

  							*:lop* *:lopen*

  :lop[en] [height]	Open a window to show the location list for the

*** ../vim-7.4.857/runtime/doc/tabpage.txt	2015-04-21 18:08:21.838719097 +0200

--- runtime/doc/tabpage.txt	2015-09-08 18:07:42.256948348 +0200

***************

*** 248,254 ****

  		{cmd} must not open or close tab pages or reorder them.

  		{not in Vi} {not available when compiled without the

  		|+listcmds| feature}

! 		Also see |:windo|, |:argdo| and |:bufdo|.

  ==============================================================================

  3. Other items						*tab-page-other*

--- 248,255 ----

  		{cmd} must not open or close tab pages or reorder them.

  		{not in Vi} {not available when compiled without the

  		|+listcmds| feature}

! 		Also see |:windo|, |:argdo|, |:bufdo|, |:cdo|, |:ldo|, |:cfdo|

! 		and |:lfdo|

  ==============================================================================

  3. Other items						*tab-page-other*

*** ../vim-7.4.857/runtime/doc/windows.txt	2015-07-21 15:03:00.691467213 +0200

--- runtime/doc/windows.txt	2015-09-08 18:07:42.256948348 +0200

***************

*** 715,721 ****

  			{cmd} must not open or close windows or reorder them.

  			{not in Vi} {not available when compiled without the

  			|+listcmds| feature}

! 			Also see |:tabdo|, |:argdo| and |:bufdo|.

  							*:bufdo*

  :[range]bufdo[!] {cmd}	Execute {cmd} in each buffer in the buffer list or if

--- 715,722 ----

  			{cmd} must not open or close windows or reorder them.

  			{not in Vi} {not available when compiled without the

  			|+listcmds| feature}

! 			Also see |:tabdo|, |:argdo|, |:bufdo|, |:cdo|, |:ldo|,

! 			|:cfdo| and |:lfdo|

  							*:bufdo*

  :[range]bufdo[!] {cmd}	Execute {cmd} in each buffer in the buffer list or if

***************

*** 743,749 ****

  			each buffer.

  			{not in Vi} {not available when compiled without the

  			|+listcmds| feature}

! 			Also see |:tabdo|, |:argdo| and |:windo|.

  Examples: >

--- 744,751 ----

  			each buffer.

  			{not in Vi} {not available when compiled without the

  			|+listcmds| feature}

! 			Also see |:tabdo|, |:argdo|, |:windo|, |:cdo|, |:ldo|,

! 			|:cfdo| and |:lfdo|

  Examples: >

*** ../vim-7.4.857/src/ex_cmds.h	2015-07-21 15:03:00.691467213 +0200

--- src/ex_cmds.h	2015-09-08 18:20:51.228782439 +0200

***************

*** 65,70 ****

--- 65,71 ----

  #define ADDR_LOADED_BUFFERS	3

  #define ADDR_BUFFERS		4

  #define ADDR_TABS		5

+ #define ADDR_QUICKFIX		6

  #ifndef DO_DECLARE_EXCMD

  typedef struct exarg exarg_T;

***************

*** 270,275 ****

--- 271,279 ----

  EX(CMD_cd,		"cd",		ex_cd,

  			BANG|FILE1|TRLBAR|CMDWIN,

  			ADDR_LINES),

+ EX(CMD_cdo,		"cdo",		ex_listdo,

+ 			BANG|NEEDARG|EXTRA|NOTRLCOM|RANGE|NOTADR|DFLALL,

+ 			ADDR_QUICKFIX),

  EX(CMD_center,		"center",	ex_align,

  			TRLBAR|RANGE|WHOLEFOLD|EXTRA|CMDWIN|MODIFY,

  			ADDR_LINES),

***************

*** 279,284 ****

--- 283,291 ----

  EX(CMD_cfile,		"cfile",	ex_cfile,

  			TRLBAR|FILE1|BANG,

  			ADDR_LINES),

+ EX(CMD_cfdo,		"cfdo",		ex_listdo,

+ 			BANG|NEEDARG|EXTRA|NOTRLCOM|RANGE|NOTADR|DFLALL,

+ 			ADDR_QUICKFIX),

  EX(CMD_cfirst,		"cfirst",	ex_cc,

  			RANGE|NOTADR|COUNT|TRLBAR|BANG,

  			ADDR_LINES),

***************

*** 729,734 ****

--- 736,744 ----

  EX(CMD_lcscope,		"lcscope",	do_cscope,

  			EXTRA|NOTRLCOM|XFILE,

  			ADDR_LINES),

+ EX(CMD_ldo,		"ldo",		ex_listdo,

+ 			BANG|NEEDARG|EXTRA|NOTRLCOM|RANGE|NOTADR|DFLALL,

+ 			ADDR_QUICKFIX),

  EX(CMD_left,		"left",		ex_align,

  			TRLBAR|RANGE|WHOLEFOLD|EXTRA|CMDWIN|MODIFY,

  			ADDR_LINES),

***************

*** 744,749 ****

--- 754,762 ----

  EX(CMD_lfile,		"lfile",	ex_cfile,

  			TRLBAR|FILE1|BANG,

  			ADDR_LINES),

+ EX(CMD_lfdo,		"lfdo",		ex_listdo,

+ 			BANG|NEEDARG|EXTRA|NOTRLCOM|RANGE|NOTADR|DFLALL,

+ 			ADDR_QUICKFIX),

  EX(CMD_lfirst,		"lfirst",	ex_cc,

  			RANGE|NOTADR|COUNT|TRLBAR|BANG,

  			ADDR_LINES),

*** ../vim-7.4.857/src/ex_cmds2.c	2015-08-11 19:13:55.134175736 +0200

--- src/ex_cmds2.c	2015-09-08 18:24:57.594233149 +0200

***************

*** 2429,2435 ****

  }

  /*

!  * ":argdo", ":windo", ":bufdo", ":tabdo"

   */

      void

  ex_listdo(eap)

--- 2429,2435 ----

  }

  /*

!  * ":argdo", ":windo", ":bufdo", ":tabdo", ":cdo", ":ldo", ":cfdo" and ":lfdo"

   */

      void

  ex_listdo(eap)

***************

*** 2446,2451 ****

--- 2446,2455 ----

      char_u	*save_ei = NULL;

  #endif

      char_u	*p_shm_save;

+ #ifdef FEAT_QUICKFIX

+     int		qf_size;

+     int		qf_idx;

+ #endif

  #ifndef FEAT_WINDOWS

      if (eap->cmdidx == CMD_windo)

***************

*** 2498,2515 ****

  	}

  	/* set pcmark now */

  	if (eap->cmdidx == CMD_bufdo)

!         {

  	    /* Advance to the first listed buffer after "eap->line1". */

!             for (buf = firstbuf; buf != NULL && (buf->b_fnum < eap->line1

  					  || !buf->b_p_bl); buf = buf->b_next)

  		if (buf->b_fnum > eap->line2)

  		{

  		    buf = NULL;

  		    break;

  		}

!             if (buf != NULL)

  		goto_buffer(eap, DOBUF_FIRST, FORWARD, buf->b_fnum);

!         }

  	else

  	    setpcmark();

  	listcmd_busy = TRUE;	    /* avoids setting pcmark below */

--- 2502,2538 ----

  	}

  	/* set pcmark now */

  	if (eap->cmdidx == CMD_bufdo)

! 	{

  	    /* Advance to the first listed buffer after "eap->line1". */

! 	    for (buf = firstbuf; buf != NULL && (buf->b_fnum < eap->line1

  					  || !buf->b_p_bl); buf = buf->b_next)

  		if (buf->b_fnum > eap->line2)

  		{

  		    buf = NULL;

  		    break;

  		}

! 	    if (buf != NULL)

  		goto_buffer(eap, DOBUF_FIRST, FORWARD, buf->b_fnum);

! 	}

! #ifdef FEAT_QUICKFIX

! 	else if (eap->cmdidx == CMD_cdo || eap->cmdidx == CMD_ldo

! 		|| eap->cmdidx == CMD_cfdo || eap->cmdidx == CMD_lfdo)

! 	{

! 	    qf_size = qf_get_size(eap);

! 	    if (qf_size <= 0 || eap->line1 > qf_size)

! 		buf = NULL;

! 	    else

! 	    {

! 		ex_cc(eap);

! 

! 		buf = curbuf;

! 		i = eap->line1 - 1;

! 		if (eap->addr_count <= 0)

! 		    /* default is all the quickfix/location list entries */

! 		    eap->line2 = qf_size;

! 	    }

! 	}

! #endif

  	else

  	    setpcmark();

  	listcmd_busy = TRUE;	    /* avoids setting pcmark below */

***************

*** 2595,2605 ****

  		set_option_value((char_u *)"shm", 0L, p_shm_save, 0);

  		vim_free(p_shm_save);

! 		/* If autocommands took us elsewhere, quit here */

  		if (curbuf->b_fnum != next_fnum)

  		    break;

  	    }

  	    if (eap->cmdidx == CMD_windo)

  	    {

  		validate_cursor();	/* cursor may have moved */

--- 2618,2645 ----

  		set_option_value((char_u *)"shm", 0L, p_shm_save, 0);

  		vim_free(p_shm_save);

! 		/* If autocommands took us elsewhere, quit here. */

  		if (curbuf->b_fnum != next_fnum)

  		    break;

  	    }

+ #ifdef FEAT_QUICKFIX

+ 	    if (eap->cmdidx == CMD_cdo || eap->cmdidx == CMD_ldo

+ 		    || eap->cmdidx == CMD_cfdo || eap->cmdidx == CMD_lfdo)

+ 	    {

+ 		if (i >= qf_size || i >= eap->line2)

+ 		    break;

+ 

+ 		qf_idx = qf_get_cur_idx(eap);

+ 

+ 		ex_cnext(eap);

+ 

+ 		/* If jumping to the next quickfix entry fails, quit here */

+ 		if (qf_get_cur_idx(eap) == qf_idx)

+ 		    break;

+ 	    }

+ #endif

+ 

  	    if (eap->cmdidx == CMD_windo)

  	    {

  		validate_cursor();	/* cursor may have moved */

*** ../vim-7.4.857/src/ex_docmd.c	2015-08-11 18:52:58.073121563 +0200

--- src/ex_docmd.c	2015-09-08 18:07:42.260948306 +0200

***************

*** 135,141 ****

  #endif

  static int	check_more __ARGS((int, int));

! static linenr_T get_address __ARGS((char_u **, int addr_type, int skip, int to_other_file));

  static void	get_flags __ARGS((exarg_T *eap));

  #if !defined(FEAT_PERL) \

  	|| !defined(FEAT_PYTHON) || !defined(FEAT_PYTHON3) \

--- 135,141 ----

  #endif

  static int	check_more __ARGS((int, int));

! static linenr_T get_address __ARGS((exarg_T *, char_u **, int addr_type, int skip, int to_other_file));

  static void	get_flags __ARGS((exarg_T *eap));

  #if !defined(FEAT_PERL) \

  	|| !defined(FEAT_PYTHON) || !defined(FEAT_PYTHON3) \

***************

*** 2173,2181 ****

  		lnum = CURRENT_TAB_NR;

  		ea.line2 = lnum;

  		break;

  	}

  	ea.cmd = skipwhite(ea.cmd);

! 	lnum = get_address(&ea.cmd, ea.addr_type, ea.skip, ea.addr_count == 0);

  	if (ea.cmd == NULL)		    /* error detected */

  	    goto doend;

  	if (lnum == MAXLNUM)

--- 2173,2184 ----

  		lnum = CURRENT_TAB_NR;

  		ea.line2 = lnum;

  		break;

+ 	    case ADDR_QUICKFIX:

+ 		ea.line2 = qf_get_cur_valid_idx(&ea);

+ 		break;

  	}

  	ea.cmd = skipwhite(ea.cmd);

! 	lnum = get_address(&ea, &ea.cmd, ea.addr_type, ea.skip, ea.addr_count == 0);

  	if (ea.cmd == NULL)		    /* error detected */

  	    goto doend;

  	if (lnum == MAXLNUM)

***************

*** 2233,2238 ****

--- 2236,2247 ----

  			    ea.line2 = ARGCOUNT;

  			}

  			break;

+ 		    case ADDR_QUICKFIX:

+ 			ea.line1 = 1;

+ 			ea.line2 = qf_get_size(&ea);

+ 			if (ea.line2 == 0)

+ 			    ea.line2 = 1;

+ 			break;

  		}

  		++ea.addr_count;

  	    }

***************

*** 2693,2698 ****

--- 2702,2712 ----

  		else

  		    ea.line2 = ARGCOUNT;

  		break;

+ 	    case ADDR_QUICKFIX:

+ 		ea.line2 = qf_get_size(&ea);

+ 		if (ea.line2 == 0)

+ 		    ea.line2 = 1;

+ 		break;

  	}

      }

***************

*** 3839,3844 ****

--- 3853,3860 ----

  	case CMD_botright:

  	case CMD_browse:

  	case CMD_bufdo:

+ 	case CMD_cdo:

+ 	case CMD_cfdo:

  	case CMD_confirm:

  	case CMD_debug:

  	case CMD_folddoclosed:

***************

*** 3848,3854 ****

--- 3864,3872 ----

  	case CMD_keepjumps:

  	case CMD_keepmarks:

  	case CMD_keeppatterns:

+ 	case CMD_ldo:

  	case CMD_leftabove:

+ 	case CMD_lfdo:

  	case CMD_lockmarks:

  	case CMD_noautocmd:

  	case CMD_noswapfile:

***************

*** 4321,4327 ****

   * Return MAXLNUM when no Ex address was found.

   */

      static linenr_T

! get_address(ptr, addr_type, skip, to_other_file)

      char_u	**ptr;

      int		addr_type;  /* flag: one of ADDR_LINES, ... */

      int		skip;	    /* only skip the address, don't use it */

--- 4339,4346 ----

   * Return MAXLNUM when no Ex address was found.

   */

      static linenr_T

! get_address(eap, ptr, addr_type, skip, to_other_file)

!     exarg_T	*eap;

      char_u	**ptr;

      int		addr_type;  /* flag: one of ADDR_LINES, ... */

      int		skip;	    /* only skip the address, don't use it */

***************

*** 4362,4367 ****

--- 4381,4389 ----

  		    case ADDR_TABS:

  			lnum = CURRENT_TAB_NR;

  			break;

+ 		    case ADDR_QUICKFIX:

+ 			lnum = qf_get_cur_valid_idx(eap);

+ 			break;

  		}

  		break;

***************

*** 4394,4399 ****

--- 4416,4426 ----

  		    case ADDR_TABS:

  			lnum = LAST_TAB_NR;

  			break;

+ 		    case ADDR_QUICKFIX:

+ 			lnum = qf_get_size(eap);

+ 			if (lnum == 0)

+ 			    lnum = 1;

+ 			break;

  		}

  		break;

***************

*** 4569,4574 ****

--- 4596,4604 ----

  		    case ADDR_TABS:

  			lnum = CURRENT_TAB_NR;

  			break;

+ 		    case ADDR_QUICKFIX:

+ 			lnum = qf_get_cur_valid_idx(eap);

+ 			break;

  		}

  	    }

***************

*** 4707,4712 ****

--- 4737,4746 ----

  		if (eap->line2 > LAST_TAB_NR)

  		    return (char_u *)_(e_invrange);

  		break;

+ 	    case ADDR_QUICKFIX:

+ 		if (eap->line2 != 1 && eap->line2 > qf_get_size(eap))

+ 		    return (char_u *)_(e_invrange);

+ 		break;

  	}

      }

      return NULL;

***************

*** 5817,5822 ****

--- 5851,5857 ----

      {ADDR_TABS, "tabs"},

      {ADDR_BUFFERS, "buffers"},

      {ADDR_WINDOWS, "windows"},

+     {ADDR_QUICKFIX, "quickfix"},

      {-1, NULL}

  };

  #endif

***************

*** 9224,9230 ****

  {

      long	n;

!     n = get_address(&eap->arg, eap->addr_type, FALSE, FALSE);

      if (eap->arg == NULL)	    /* error detected */

      {

  	eap->nextcmd = NULL;

--- 9259,9265 ----

  {

      long	n;

!     n = get_address(eap, &eap->arg, eap->addr_type, FALSE, FALSE);

      if (eap->arg == NULL)	    /* error detected */

      {

  	eap->nextcmd = NULL;

*** ../vim-7.4.857/src/proto/quickfix.pro	2013-08-10 13:37:24.000000000 +0200

--- src/proto/quickfix.pro	2015-09-08 18:29:04.723675697 +0200

***************

*** 17,22 ****

--- 17,25 ----

  int buf_hide __ARGS((buf_T *buf));

  int grep_internal __ARGS((cmdidx_T cmdidx));

  void ex_make __ARGS((exarg_T *eap));

+ int qf_get_size __ARGS((exarg_T *eap));

+ int qf_get_cur_idx __ARGS((exarg_T *eap));

+ int qf_get_cur_valid_idx __ARGS((exarg_T *eap));

  void ex_cc __ARGS((exarg_T *eap));

  void ex_cnext __ARGS((exarg_T *eap));

  void ex_cfile __ARGS((exarg_T *eap));

*** ../vim-7.4.857/src/quickfix.c	2015-06-19 18:35:29.683602295 +0200

--- src/quickfix.c	2015-09-08 18:30:09.711003127 +0200

***************

*** 1373,1379 ****

  /*

   * Check in which directory of the directory stack the given file can be

   * found.

!  * Returns a pointer to the directory name or NULL if not found

   * Cleans up intermediate directory entries.

   *

   * TODO: How to solve the following problem?

--- 1373,1379 ----

  /*

   * Check in which directory of the directory stack the given file can be

   * found.

!  * Returns a pointer to the directory name or NULL if not found.

   * Cleans up intermediate directory entries.

   *

   * TODO: How to solve the following problem?

***************

*** 2990,3008 ****

  }

  /*

   * ":cc", ":crewind", ":cfirst" and ":clast".

   * ":ll", ":lrewind", ":lfirst" and ":llast".

   */

      void

  ex_cc(eap)

      exarg_T	*eap;

  {

      qf_info_T	*qi = &ql_info;

      if (eap->cmdidx == CMD_ll

  	    || eap->cmdidx == CMD_lrewind

  	    || eap->cmdidx == CMD_lfirst

! 	    || eap->cmdidx == CMD_llast)

      {

  	qi = GET_LOC_LIST(curwin);

  	if (qi == NULL)

--- 2990,3172 ----

  }

  /*

+  * Returns the number of valid entries in the current quickfix/location list.

+  */

+     int

+ qf_get_size(eap)

+     exarg_T	*eap;

+ {

+     qf_info_T	*qi = &ql_info;

+     qfline_T	*qfp;

+     int		i, sz = 0;

+     int		prev_fnum = 0;

+ 

+     if (eap->cmdidx == CMD_ldo || eap->cmdidx == CMD_lfdo)

+     {

+ 	/* Location list */

+ 	qi = GET_LOC_LIST(curwin);

+ 	if (qi == NULL)

+ 	    return 0;

+     }

+ 

+     for (i = 0, qfp = qi->qf_lists[qi->qf_curlist].qf_start;

+ 	    (i < qi->qf_lists[qi->qf_curlist].qf_count) && (qfp != NULL);

+ 	    ++i, qfp = qfp->qf_next)

+     {

+ 	if (qfp->qf_valid)

+ 	{

+ 	    if (eap->cmdidx == CMD_cdo || eap->cmdidx == CMD_ldo)

+ 		sz++;	/* Count all valid entries */

+ 	    else if (qfp->qf_fnum > 0 && qfp->qf_fnum != prev_fnum)

+ 	    {

+ 		/* Count the number of files */

+ 		sz++;

+ 		prev_fnum = qfp->qf_fnum;

+ 	    }

+ 	}

+     }

+ 

+     return sz;

+ }

+ 

+ /*

+  * Returns the current index of the quickfix/location list.

+  * Returns 0 if there is an error.

+  */

+     int

+ qf_get_cur_idx(eap)

+     exarg_T	*eap;

+ {

+     qf_info_T	*qi = &ql_info;

+ 

+     if (eap->cmdidx == CMD_ldo || eap->cmdidx == CMD_lfdo)

+     {

+ 	/* Location list */

+ 	qi = GET_LOC_LIST(curwin);

+ 	if (qi == NULL)

+ 	    return 0;

+     }

+ 

+     return qi->qf_lists[qi->qf_curlist].qf_index;

+ }

+ 

+ /*

+  * Returns the current index in the quickfix/location list (counting only valid

+  * entries). If no valid entries are in the list, then returns 1.

+  */

+     int

+ qf_get_cur_valid_idx(eap)

+     exarg_T	*eap;

+ {

+     qf_info_T	*qi = &ql_info;

+     qf_list_T	*qfl;

+     qfline_T	*qfp;

+     int		i, eidx = 0;

+     int		prev_fnum = 0;

+ 

+     if (eap->cmdidx == CMD_ldo || eap->cmdidx == CMD_lfdo)

+     {

+ 	/* Location list */

+ 	qi = GET_LOC_LIST(curwin);

+ 	if (qi == NULL)

+ 	    return 1;

+     }

+ 

+     qfl = &qi->qf_lists[qi->qf_curlist];

+     qfp = qfl->qf_start;

+ 

+     /* check if the list has valid errors */

+     if (qfl->qf_count <= 0 || qfl->qf_nonevalid)

+ 	return 1;

+ 

+     for (i = 1; i <= qfl->qf_index && qfp!= NULL; i++, qfp = qfp->qf_next)

+     {

+ 	if (qfp->qf_valid)

+ 	{

+ 	    if (eap->cmdidx == CMD_cfdo || eap->cmdidx == CMD_lfdo)

+ 	    {

+ 		if (qfp->qf_fnum > 0 && qfp->qf_fnum != prev_fnum)

+ 		{

+ 		    /* Count the number of files */

+ 		    eidx++;

+ 		    prev_fnum = qfp->qf_fnum;

+ 		}

+ 	    }

+ 	    else

+ 		eidx++;

+ 	}

+     }

+ 

+     return eidx ? eidx : 1;

+ }

+ 

+ /*

+  * Get the 'n'th valid error entry in the quickfix or location list.

+  * Used by :cdo, :ldo, :cfdo and :lfdo commands.

+  * For :cdo and :ldo returns the 'n'th valid error entry.

+  * For :cfdo and :lfdo returns the 'n'th valid file entry.

+  */

+     static int

+ qf_get_nth_valid_entry(qi, n, fdo)

+     qf_info_T	*qi;

+     int		n;

+     int		fdo;

+ {

+     qf_list_T	*qfl = &qi->qf_lists[qi->qf_curlist];

+     qfline_T	*qfp = qfl->qf_start;

+     int		i, eidx;

+     int		prev_fnum = 0;

+ 

+     /* check if the list has valid errors */

+     if (qfl->qf_count <= 0 || qfl->qf_nonevalid)

+ 	return 1;

+ 

+     for (i = 1, eidx = 0; i <= qfl->qf_count && qfp!= NULL;

+ 	    i++, qfp = qfp->qf_next)

+     {

+ 	if (qfp->qf_valid)

+ 	{

+ 	    if (fdo)

+ 	    {

+ 		if (qfp->qf_fnum > 0 && qfp->qf_fnum != prev_fnum)

+ 		{

+ 		    /* Count the number of files */

+ 		    eidx++;

+ 		    prev_fnum = qfp->qf_fnum;

+ 		}

+ 	    }

+ 	    else

+ 		eidx++;

+ 	}

+ 

+ 	if (eidx == n)

+ 	    break;

+     }

+ 

+     if (i <= qfl->qf_count)

+ 	return i;

+     else

+ 	return 1;

+ }

+ 

+ /*

   * ":cc", ":crewind", ":cfirst" and ":clast".

   * ":ll", ":lrewind", ":lfirst" and ":llast".

+  * ":cdo", ":ldo", ":cfdo" and ":lfdo"