- updated to 0.7.5

[packages/vim.git] / 7.1.256

To: vim-dev@vim.org
Subject: Patch 7.1.256
Fcc: outbox
From: Bram Moolenaar <Bram@moolenaar.net>
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit
------------

Patch 7.1.256
Problem:    findfile() also returns directories.
Solution:   Cleanup the code for finding files and directories in a list of
            directories.  Remove the ugly global ff_search_ctx.
Files:      src/eval.c, src/misc2.c, src/vim.h, src/tag.c


*** ../vim-7.1.255/src/eval.c	Wed Feb 13 12:41:30 2008
--- src/eval.c	Wed Feb 20 11:08:21 2008
***************
*** 9203,9215 ****
      rettv->vval.v_number = filewritable(get_tv_string(&argvars[0]));
  }
  
! static void findfilendir __ARGS((typval_T *argvars, typval_T *rettv, int dir));
  
      static void
! findfilendir(argvars, rettv, dir)
      typval_T	*argvars;
      typval_T	*rettv;
!     int		dir;
  {
  #ifdef FEAT_SEARCHPATH
      char_u	*fname;
--- 9205,9217 ----
      rettv->vval.v_number = filewritable(get_tv_string(&argvars[0]));
  }
  
! static void findfilendir __ARGS((typval_T *argvars, typval_T *rettv, int find_what));
  
      static void
! findfilendir(argvars, rettv, find_what)
      typval_T	*argvars;
      typval_T	*rettv;
!     int		find_what;
  {
  #ifdef FEAT_SEARCHPATH
      char_u	*fname;
***************
*** 9254,9261 ****
  		vim_free(fresult);
  	    fresult = find_file_in_path_option(first ? fname : NULL,
  					       first ? (int)STRLEN(fname) : 0,
! 					0, first, path, dir, curbuf->b_ffname,
! 					dir ? (char_u *)"" : curbuf->b_p_sua);
  	    first = FALSE;
  
  	    if (fresult != NULL && rettv->v_type == VAR_LIST)
--- 9256,9266 ----
  		vim_free(fresult);
  	    fresult = find_file_in_path_option(first ? fname : NULL,
  					       first ? (int)STRLEN(fname) : 0,
! 					0, first, path,
! 					find_what,
! 					curbuf->b_ffname,
! 					find_what == FINDFILE_DIR
! 					    ? (char_u *)"" : curbuf->b_p_sua);
  	    first = FALSE;
  
  	    if (fresult != NULL && rettv->v_type == VAR_LIST)
***************
*** 9445,9451 ****
      typval_T	*argvars;
      typval_T	*rettv;
  {
!     findfilendir(argvars, rettv, TRUE);
  }
  
  /*
--- 9450,9456 ----
      typval_T	*argvars;
      typval_T	*rettv;
  {
!     findfilendir(argvars, rettv, FINDFILE_DIR);
  }
  
  /*
***************
*** 9456,9462 ****
      typval_T	*argvars;
      typval_T	*rettv;
  {
!     findfilendir(argvars, rettv, FALSE);
  }
  
  /*
--- 9461,9467 ----
      typval_T	*argvars;
      typval_T	*rettv;
  {
!     findfilendir(argvars, rettv, FINDFILE_FILE);
  }
  
  /*
*** ../vim-7.1.255/src/misc2.c	Fri Jan  4 21:25:01 2008
--- src/misc2.c	Wed Feb 13 17:19:21 2008
***************
*** 3777,3785 ****
      char_u		ffs_filearray_cur;   /* needed for partly handled dirs */
  
      /* to store status of partly handled directories
!      * 0: we work the on this directory for the first time
       * 1: this directory was partly searched in an earlier step
!     */
      int			ffs_stage;
  
      /* How deep are we in the directory tree?
--- 3778,3786 ----
      char_u		ffs_filearray_cur;   /* needed for partly handled dirs */
  
      /* to store status of partly handled directories
!      * 0: we work on this directory for the first time
       * 1: this directory was partly searched in an earlier step
!      */
      int			ffs_stage;
  
      /* How deep are we in the directory tree?
***************
*** 3848,3853 ****
--- 3849,3855 ----
   * Set the default maximum depth.
   */
  #define FF_MAX_STAR_STAR_EXPAND ((char_u)30)
+ 
  /*
   * The search context:
   *   ffsc_stack_ptr:	the stack for the dirs to search
***************
*** 3862,3868 ****
   *   ffsc_wc_path:	the part of the given path containing wildcards
   *   ffsc_level:	how many levels of dirs to search downwards
   *   ffsc_stopdirs_v:	array of stop directories for upward search
!  *   ffsc_need_dir:	TRUE if we search for a directory
   */
  typedef struct ff_search_ctx_T
  {
--- 3864,3870 ----
   *   ffsc_wc_path:	the part of the given path containing wildcards
   *   ffsc_level:	how many levels of dirs to search downwards
   *   ffsc_stopdirs_v:	array of stop directories for upward search
!  *   ffsc_find_what:	FINDFILE_BOTH, FINDFILE_DIR or FINDFILE_FILE
   */
  typedef struct ff_search_ctx_T
  {
***************
*** 3879,3889 ****
       int			ffsc_level;
       char_u			**ffsc_stopdirs_v;
  #endif
!      int			ffsc_need_dir;
  } ff_search_ctx_T;
  
- static ff_search_ctx_T *ff_search_ctx = NULL;
- 
  /* locally needed functions */
  #ifdef FEAT_PATH_EXTRA
  static int ff_check_visited __ARGS((ff_visited_T **, char_u *, char_u *));
--- 3881,3889 ----
       int			ffsc_level;
       char_u			**ffsc_stopdirs_v;
  #endif
!      int			ffsc_find_what;
  } ff_search_ctx_T;
  
  /* locally needed functions */
  #ifdef FEAT_PATH_EXTRA
  static int ff_check_visited __ARGS((ff_visited_T **, char_u *, char_u *));
***************
*** 3897,3906 ****
  static int ff_wc_equal __ARGS((char_u *s1, char_u *s2));
  #endif
  
! static void ff_push __ARGS((ff_stack_T *));
! static ff_stack_T * ff_pop __ARGS((void));
! static void ff_clear __ARGS((void));
! static void ff_free_stack_element __ARGS((ff_stack_T *));
  #ifdef FEAT_PATH_EXTRA
  static ff_stack_T *ff_create_stack_element __ARGS((char_u *, char_u *, int, int));
  #else
--- 3897,3906 ----
  static int ff_wc_equal __ARGS((char_u *s1, char_u *s2));
  #endif
  
! static void ff_push __ARGS((ff_search_ctx_T *search_ctx, ff_stack_T *stack_ptr));
! static ff_stack_T *ff_pop __ARGS((ff_search_ctx_T *search_ctx));
! static void ff_clear __ARGS((ff_search_ctx_T *search_ctx));
! static void ff_free_stack_element __ARGS((ff_stack_T *stack_ptr));
  #ifdef FEAT_PATH_EXTRA
  static ff_stack_T *ff_create_stack_element __ARGS((char_u *, char_u *, int, int));
  #else
***************
*** 3961,3966 ****
--- 3961,3969 ----
   * not related to restricts given to the '**' wildcard. If 'level' is 100
   * and you use '**200' vim_findfile() will stop after 100 levels.
   *
+  * 'filename' cannot contain wildcards!  It is used as-is, no backslashes to
+  * escape special characters.
+  *
   * If 'stopdirs' is not NULL and nothing is found downward, the search is
   * restarted on the next higher directory level. This is repeated until the
   * start-directory of a search is contained in 'stopdirs'. 'stopdirs' has the
***************
*** 3980,4053 ****
   * The list of visited files/dirs can also be cleared with the function
   * vim_findfile_free_visited().
   *
!  * Set the parameter 'need_dir' to TRUE if you want to search for a directory
!  * instead of a file.
   *
   * A search context returned by a previous call to vim_findfile_init() can be
!  * passed in the parameter 'search_ctx'. This context is than reused and
!  * reinitialized with the new parameters. The list of already viseted
   * directories from this context is only deleted if the parameter
!  * 'free_visited' is true. Be aware that the passed search_context is freed if
!  * the reinitialization fails.
   *
!  * If you don't have a search context from a previous call 'search_ctx' must be
!  * NULL.
   *
   * This function silently ignores a few errors, vim_findfile() will have
   * limited functionality then.
   */
  /*ARGSUSED*/
      void *
! vim_findfile_init(path, filename, stopdirs, level, free_visited, need_dir,
! 						search_ctx, tagfile, rel_fname)
      char_u	*path;
      char_u	*filename;
      char_u	*stopdirs;
      int		level;
      int		free_visited;
!     int		need_dir;
!     void	*search_ctx;
      int		tagfile;
      char_u	*rel_fname;	/* file name to use for "." */
  {
  #ifdef FEAT_PATH_EXTRA
!     char_u	*wc_part;
  #endif
!     ff_stack_T	*sptr;
  
      /* If a search context is given by the caller, reuse it, else allocate a
       * new one.
       */
!     if (search_ctx != NULL)
! 	ff_search_ctx = search_ctx;
      else
      {
! 	ff_search_ctx = (ff_search_ctx_T*)alloc(
! 					   (unsigned)sizeof(ff_search_ctx_T));
! 	if (ff_search_ctx == NULL)
  	    goto error_return;
! 	memset(ff_search_ctx, 0, sizeof(ff_search_ctx_T));
      }
  
      /* clear the search context, but NOT the visited lists */
!     ff_clear();
  
      /* clear visited list if wanted */
      if (free_visited == TRUE)
! 	vim_findfile_free_visited(ff_search_ctx);
      else
      {
  	/* Reuse old visited lists. Get the visited list for the given
  	 * filename. If no list for the current filename exists, creates a new
! 	 * one.
! 	 */
! 	ff_search_ctx->ffsc_visited_list = ff_get_visited_list(filename,
! 				     &ff_search_ctx->ffsc_visited_lists_list);
! 	if (ff_search_ctx->ffsc_visited_list == NULL)
  	    goto error_return;
! 	ff_search_ctx->ffsc_dir_visited_list = ff_get_visited_list(filename,
! 				 &ff_search_ctx->ffsc_dir_visited_lists_list);
! 	if (ff_search_ctx->ffsc_dir_visited_list == NULL)
  	    goto error_return;
      }
  
--- 3983,4056 ----
   * The list of visited files/dirs can also be cleared with the function
   * vim_findfile_free_visited().
   *
!  * Set the parameter 'find_what' to FINDFILE_DIR if you want to search for
!  * directories only, FINDFILE_FILE for files only, FINDFILE_BOTH for both.
   *
   * A search context returned by a previous call to vim_findfile_init() can be
!  * passed in the parameter "search_ctx_arg".  This context is reused and
!  * reinitialized with the new parameters.  The list of already visited
   * directories from this context is only deleted if the parameter
!  * "free_visited" is true.  Be aware that the passed "search_ctx_arg" is freed
!  * if the reinitialization fails.
   *
!  * If you don't have a search context from a previous call "search_ctx_arg"
!  * must be NULL.
   *
   * This function silently ignores a few errors, vim_findfile() will have
   * limited functionality then.
   */
  /*ARGSUSED*/
      void *
! vim_findfile_init(path, filename, stopdirs, level, free_visited, find_what,
! 					   search_ctx_arg, tagfile, rel_fname)
      char_u	*path;
      char_u	*filename;
      char_u	*stopdirs;
      int		level;
      int		free_visited;
!     int		find_what;
!     void	*search_ctx_arg;
      int		tagfile;
      char_u	*rel_fname;	/* file name to use for "." */
  {
  #ifdef FEAT_PATH_EXTRA
!     char_u		*wc_part;
  #endif
!     ff_stack_T		*sptr;
!     ff_search_ctx_T	*search_ctx;
  
      /* If a search context is given by the caller, reuse it, else allocate a
       * new one.
       */
!     if (search_ctx_arg != NULL)
! 	search_ctx = search_ctx_arg;
      else
      {
! 	search_ctx = (ff_search_ctx_T*)alloc((unsigned)sizeof(ff_search_ctx_T));
! 	if (search_ctx == NULL)
  	    goto error_return;
! 	memset(search_ctx, 0, sizeof(ff_search_ctx_T));
      }
+     search_ctx->ffsc_find_what = find_what;
  
      /* clear the search context, but NOT the visited lists */
!     ff_clear(search_ctx);
  
      /* clear visited list if wanted */
      if (free_visited == TRUE)
! 	vim_findfile_free_visited(search_ctx);
      else
      {
  	/* Reuse old visited lists. Get the visited list for the given
  	 * filename. If no list for the current filename exists, creates a new
! 	 * one. */
! 	search_ctx->ffsc_visited_list = ff_get_visited_list(filename,
! 					&search_ctx->ffsc_visited_lists_list);
! 	if (search_ctx->ffsc_visited_list == NULL)
  	    goto error_return;
! 	search_ctx->ffsc_dir_visited_list = ff_get_visited_list(filename,
! 				    &search_ctx->ffsc_dir_visited_lists_list);
! 	if (search_ctx->ffsc_dir_visited_list == NULL)
  	    goto error_return;
      }
  
***************
*** 4071,4082 ****
  	{
  	    /* Make the start dir an absolute path name. */
  	    vim_strncpy(ff_expand_buffer, rel_fname, len);
! 	    ff_search_ctx->ffsc_start_dir = FullName_save(ff_expand_buffer,
! 								       FALSE);
  	}
  	else
! 	    ff_search_ctx->ffsc_start_dir = vim_strnsave(rel_fname, len);
! 	if (ff_search_ctx->ffsc_start_dir == NULL)
  	    goto error_return;
  	if (*++path != NUL)
  	    ++path;
--- 4074,4084 ----
  	{
  	    /* Make the start dir an absolute path name. */
  	    vim_strncpy(ff_expand_buffer, rel_fname, len);
! 	    search_ctx->ffsc_start_dir = FullName_save(ff_expand_buffer, FALSE);
  	}
  	else
! 	    search_ctx->ffsc_start_dir = vim_strnsave(rel_fname, len);
! 	if (search_ctx->ffsc_start_dir == NULL)
  	    goto error_return;
  	if (*++path != NUL)
  	    ++path;
***************
*** 4101,4108 ****
  	if (mch_dirname(ff_expand_buffer, MAXPATHL) == FAIL)
  	    goto error_return;
  
! 	ff_search_ctx->ffsc_start_dir = vim_strsave(ff_expand_buffer);
! 	if (ff_search_ctx->ffsc_start_dir == NULL)
  	    goto error_return;
  
  #ifdef BACKSLASH_IN_FILENAME
--- 4103,4110 ----
  	if (mch_dirname(ff_expand_buffer, MAXPATHL) == FAIL)
  	    goto error_return;
  
! 	search_ctx->ffsc_start_dir = vim_strsave(ff_expand_buffer);
! 	if (search_ctx->ffsc_start_dir == NULL)
  	    goto error_return;
  
  #ifdef BACKSLASH_IN_FILENAME
***************
*** 4110,4117 ****
  	 * directory (but not for "//machine/dir").  Only use the drive name. */
  	if ((*path == '/' || *path == '\\')
  		&& path[1] != path[0]
! 		&& ff_search_ctx->ffsc_start_dir[1] == ':')
! 	    ff_search_ctx->ffsc_start_dir[2] = NUL;
  #endif
      }
  
--- 4112,4119 ----
  	 * directory (but not for "//machine/dir").  Only use the drive name. */
  	if ((*path == '/' || *path == '\\')
  		&& path[1] != path[0]
! 		&& search_ctx->ffsc_start_dir[1] == ':')
! 	    search_ctx->ffsc_start_dir[2] = NUL;
  #endif
      }
  
***************
*** 4121,4127 ****
       * If this fails (mem allocation), there is no upward search at all or a
       * stop directory is not recognized -> continue silently.
       * If stopdirs just contains a ";" or is empty,
!      * ff_search_ctx->ffsc_stopdirs_v will only contain a  NULL pointer. This
       * is handled as unlimited upward search.  See function
       * ff_path_in_stoplist() for details.
       */
--- 4123,4129 ----
       * If this fails (mem allocation), there is no upward search at all or a
       * stop directory is not recognized -> continue silently.
       * If stopdirs just contains a ";" or is empty,
!      * search_ctx->ffsc_stopdirs_v will only contain a  NULL pointer. This
       * is handled as unlimited upward search.  See function
       * ff_path_in_stoplist() for details.
       */
***************
*** 4134,4143 ****
  	    walker++;
  
  	dircount = 1;
! 	ff_search_ctx->ffsc_stopdirs_v =
! 	    (char_u **)alloc((unsigned)sizeof(char_u *));
  
! 	if (ff_search_ctx->ffsc_stopdirs_v != NULL)
  	{
  	    do
  	    {
--- 4136,4145 ----
  	    walker++;
  
  	dircount = 1;
! 	search_ctx->ffsc_stopdirs_v =
! 				 (char_u **)alloc((unsigned)sizeof(char_u *));
  
! 	if (search_ctx->ffsc_stopdirs_v != NULL)
  	{
  	    do
  	    {
***************
*** 4145,4181 ****
  		void	*ptr;
  
  		helper = walker;
! 		ptr = vim_realloc(ff_search_ctx->ffsc_stopdirs_v,
  					   (dircount + 1) * sizeof(char_u *));
  		if (ptr)
! 		    ff_search_ctx->ffsc_stopdirs_v = ptr;
  		else
  		    /* ignore, keep what we have and continue */
  		    break;
  		walker = vim_strchr(walker, ';');
  		if (walker)
  		{
! 		    ff_search_ctx->ffsc_stopdirs_v[dircount-1] =
! 			vim_strnsave(helper, (int)(walker - helper));
  		    walker++;
  		}
  		else
  		    /* this might be "", which means ascent till top
  		     * of directory tree.
  		     */
! 		    ff_search_ctx->ffsc_stopdirs_v[dircount-1] =
! 			vim_strsave(helper);
  
  		dircount++;
  
  	    } while (walker != NULL);
! 	    ff_search_ctx->ffsc_stopdirs_v[dircount-1] = NULL;
  	}
      }
  #endif
  
  #ifdef FEAT_PATH_EXTRA
!     ff_search_ctx->ffsc_level = level;
  
      /* split into:
       *  -fix path
--- 4147,4183 ----
  		void	*ptr;
  
  		helper = walker;
! 		ptr = vim_realloc(search_ctx->ffsc_stopdirs_v,
  					   (dircount + 1) * sizeof(char_u *));
  		if (ptr)
! 		    search_ctx->ffsc_stopdirs_v = ptr;
  		else
  		    /* ignore, keep what we have and continue */
  		    break;
  		walker = vim_strchr(walker, ';');
  		if (walker)
  		{
! 		    search_ctx->ffsc_stopdirs_v[dircount-1] =
! 				 vim_strnsave(helper, (int)(walker - helper));
  		    walker++;
  		}
  		else
  		    /* this might be "", which means ascent till top
  		     * of directory tree.
  		     */
! 		    search_ctx->ffsc_stopdirs_v[dircount-1] =
! 							  vim_strsave(helper);
  
  		dircount++;
  
  	    } while (walker != NULL);
! 	    search_ctx->ffsc_stopdirs_v[dircount-1] = NULL;
  	}
      }
  #endif
  
  #ifdef FEAT_PATH_EXTRA
!     search_ctx->ffsc_level = level;
  
      /* split into:
       *  -fix path
***************
*** 4189,4196 ****
  	char	*errpt;
  
  	/* save the fix part of the path */
! 	ff_search_ctx->ffsc_fix_path = vim_strnsave(path,
! 						       (int)(wc_part - path));
  
  	/*
  	 * copy wc_path and add restricts to the '**' wildcard.
--- 4191,4197 ----
  	char	*errpt;
  
  	/* save the fix part of the path */
! 	search_ctx->ffsc_fix_path = vim_strnsave(path, (int)(wc_part - path));
  
  	/*
  	 * copy wc_path and add restricts to the '**' wildcard.
***************
*** 4229,4275 ****
  		ff_expand_buffer[len++] = *wc_part++;
  	}
  	ff_expand_buffer[len] = NUL;
! 	ff_search_ctx->ffsc_wc_path = vim_strsave(ff_expand_buffer);
  
! 	if (ff_search_ctx->ffsc_wc_path == NULL)
  	    goto error_return;
      }
      else
  #endif
! 	ff_search_ctx->ffsc_fix_path = vim_strsave(path);
  
!     if (ff_search_ctx->ffsc_start_dir == NULL)
      {
  	/* store the fix part as startdir.
  	 * This is needed if the parameter path is fully qualified.
  	 */
! 	ff_search_ctx->ffsc_start_dir = vim_strsave(ff_search_ctx->ffsc_fix_path);
! 	if (ff_search_ctx->ffsc_start_dir)
! 	    ff_search_ctx->ffsc_fix_path[0] = NUL;
      }
  
      /* create an absolute path */
!     STRCPY(ff_expand_buffer, ff_search_ctx->ffsc_start_dir);
      add_pathsep(ff_expand_buffer);
!     STRCAT(ff_expand_buffer, ff_search_ctx->ffsc_fix_path);
      add_pathsep(ff_expand_buffer);
  
      sptr = ff_create_stack_element(ff_expand_buffer,
  #ifdef FEAT_PATH_EXTRA
! 	    ff_search_ctx->ffsc_wc_path,
  #endif
  	    level, 0);
  
      if (sptr == NULL)
  	goto error_return;
  
!     ff_push(sptr);
  
!     ff_search_ctx->ffsc_file_to_search = vim_strsave(filename);
!     if (ff_search_ctx->ffsc_file_to_search == NULL)
  	goto error_return;
  
!     return ff_search_ctx;
  
  error_return:
      /*
--- 4230,4276 ----
  		ff_expand_buffer[len++] = *wc_part++;
  	}
  	ff_expand_buffer[len] = NUL;
! 	search_ctx->ffsc_wc_path = vim_strsave(ff_expand_buffer);
  
! 	if (search_ctx->ffsc_wc_path == NULL)
  	    goto error_return;
      }
      else
  #endif
! 	search_ctx->ffsc_fix_path = vim_strsave(path);
  
!     if (search_ctx->ffsc_start_dir == NULL)
      {
  	/* store the fix part as startdir.
  	 * This is needed if the parameter path is fully qualified.
  	 */
! 	search_ctx->ffsc_start_dir = vim_strsave(search_ctx->ffsc_fix_path);
! 	if (search_ctx->ffsc_start_dir)
! 	    search_ctx->ffsc_fix_path[0] = NUL;
      }
  
      /* create an absolute path */
!     STRCPY(ff_expand_buffer, search_ctx->ffsc_start_dir);
      add_pathsep(ff_expand_buffer);
!     STRCAT(ff_expand_buffer, search_ctx->ffsc_fix_path);
      add_pathsep(ff_expand_buffer);
  
      sptr = ff_create_stack_element(ff_expand_buffer,
  #ifdef FEAT_PATH_EXTRA
! 	    search_ctx->ffsc_wc_path,
  #endif
  	    level, 0);
  
      if (sptr == NULL)
  	goto error_return;
  
!     ff_push(search_ctx, sptr);
  
!     search_ctx->ffsc_file_to_search = vim_strsave(filename);
!     if (search_ctx->ffsc_file_to_search == NULL)
  	goto error_return;
  
!     return search_ctx;
  
  error_return:
      /*
***************
*** 4277,4283 ****
       * Even when the caller gave us a (perhaps valid) context we free it here,
       * as we might have already destroyed it.
       */
!     vim_findfile_cleanup(ff_search_ctx);
      return NULL;
  }
  
--- 4278,4284 ----
       * Even when the caller gave us a (perhaps valid) context we free it here,
       * as we might have already destroyed it.
       */
!     vim_findfile_cleanup(search_ctx);
      return NULL;
  }
  
***************
*** 4314,4320 ****
  }
  #endif
  
! /* Clean up the given search context. Can handle a NULL pointer */
      void
  vim_findfile_cleanup(ctx)
      void	*ctx;
--- 4315,4323 ----
  }
  #endif
  
! /*
!  * Clean up the given search context. Can handle a NULL pointer.
!  */
      void
  vim_findfile_cleanup(ctx)
      void	*ctx;
***************
*** 4322,4333 ****
      if (ctx == NULL)
  	return;
  
-     ff_search_ctx = ctx;
- 
      vim_findfile_free_visited(ctx);
!     ff_clear();
      vim_free(ctx);
-     ff_search_ctx = NULL;
  }
  
  /*
--- 4325,4333 ----
      if (ctx == NULL)
  	return;
  
      vim_findfile_free_visited(ctx);
!     ff_clear(ctx);
      vim_free(ctx);
  }
  
  /*
***************
*** 4343,4357 ****
   * top of the list).
   */
      char_u *
! vim_findfile(search_ctx)
!     void	*search_ctx;
  {
      char_u	*file_path;
  #ifdef FEAT_PATH_EXTRA
      char_u	*rest_of_wildcards;
      char_u	*path_end = NULL;
  #endif
!     ff_stack_T	*ctx;
  #if defined(FEAT_SEARCHPATH) || defined(FEAT_PATH_EXTRA)
      int		len;
  #endif
--- 4343,4357 ----
   * top of the list).
   */
      char_u *
! vim_findfile(search_ctx_arg)
!     void	*search_ctx_arg;
  {
      char_u	*file_path;
  #ifdef FEAT_PATH_EXTRA
      char_u	*rest_of_wildcards;
      char_u	*path_end = NULL;
  #endif
!     ff_stack_T	*stackp;
  #if defined(FEAT_SEARCHPATH) || defined(FEAT_PATH_EXTRA)
      int		len;
  #endif
***************
*** 4360,4370 ****
  #ifdef FEAT_SEARCHPATH
      char_u	*suf;
  #endif
  
!     if (search_ctx == NULL)
  	return NULL;
  
!     ff_search_ctx = (ff_search_ctx_T*)search_ctx;
  
      /*
       * filepath is used as buffer for various actions and as the storage to
--- 4360,4371 ----
  #ifdef FEAT_SEARCHPATH
      char_u	*suf;
  #endif
+     ff_search_ctx_T *search_ctx;
  
!     if (search_ctx_arg == NULL)
  	return NULL;
  
!     search_ctx = (ff_search_ctx_T *)search_ctx_arg;
  
      /*
       * filepath is used as buffer for various actions and as the storage to
***************
*** 4375,4382 ****
  
  #ifdef FEAT_PATH_EXTRA
      /* store the end of the start dir -- needed for upward search */
!     if (ff_search_ctx->ffsc_start_dir != NULL)
! 	path_end = &ff_search_ctx->ffsc_start_dir[STRLEN(ff_search_ctx->ffsc_start_dir)];
  #endif
  
  #ifdef FEAT_PATH_EXTRA
--- 4376,4384 ----
  
  #ifdef FEAT_PATH_EXTRA
      /* store the end of the start dir -- needed for upward search */
!     if (search_ctx->ffsc_start_dir != NULL)
! 	path_end = &search_ctx->ffsc_start_dir[
! 					  STRLEN(search_ctx->ffsc_start_dir)];
  #endif
  
  #ifdef FEAT_PATH_EXTRA
***************
*** 4393,4400 ****
  		break;
  
  	    /* get directory to work on from stack */
! 	    ctx = ff_pop();
! 	    if (ctx == NULL)
  		break;
  
  	    /*
--- 4395,4402 ----
  		break;
  
  	    /* get directory to work on from stack */
! 	    stackp = ff_pop(search_ctx);
! 	    if (stackp == NULL)
  		break;
  
  	    /*
***************
*** 4414,4427 ****
  	     *  /etc/rc.d/init.d is linked to /etc/rc.d -> endless loop)
  	     *
  	     * This check is only needed for directories we work on for the
! 	     * first time (hence ctx->ff_filearray == NULL)
  	     */
! 	    if (ctx->ffs_filearray == NULL
! 		    && ff_check_visited(&ff_search_ctx->ffsc_dir_visited_list
  							  ->ffvl_visited_list,
! 			ctx->ffs_fix_path
  #ifdef FEAT_PATH_EXTRA
! 			, ctx->ffs_wc_path
  #endif
  			) == FAIL)
  	    {
--- 4416,4429 ----
  	     *  /etc/rc.d/init.d is linked to /etc/rc.d -> endless loop)
  	     *
  	     * This check is only needed for directories we work on for the
! 	     * first time (hence stackp->ff_filearray == NULL)
  	     */
! 	    if (stackp->ffs_filearray == NULL
! 		    && ff_check_visited(&search_ctx->ffsc_dir_visited_list
  							  ->ffvl_visited_list,
! 			stackp->ffs_fix_path
  #ifdef FEAT_PATH_EXTRA
! 			, stackp->ffs_wc_path
  #endif
  			) == FAIL)
  	    {
***************
*** 4430,4442 ****
  		{
  		    verbose_enter_scroll();
  		    smsg((char_u *)"Already Searched: %s (%s)",
! 					   ctx->ffs_fix_path, ctx->ffs_wc_path);
  		    /* don't overwrite this either */
  		    msg_puts((char_u *)"\n");
  		    verbose_leave_scroll();
  		}
  #endif
! 		ff_free_stack_element(ctx);
  		continue;
  	    }
  #ifdef FF_VERBOSE
--- 4432,4444 ----
  		{
  		    verbose_enter_scroll();
  		    smsg((char_u *)"Already Searched: %s (%s)",
! 				   stackp->ffs_fix_path, stackp->ffs_wc_path);
  		    /* don't overwrite this either */
  		    msg_puts((char_u *)"\n");
  		    verbose_leave_scroll();
  		}
  #endif
! 		ff_free_stack_element(stackp);
  		continue;
  	    }
  #ifdef FF_VERBOSE
***************
*** 4444,4450 ****
  	    {
  		verbose_enter_scroll();
  		smsg((char_u *)"Searching: %s (%s)",
! 					 ctx->ffs_fix_path, ctx->ffs_wc_path);
  		/* don't overwrite this either */
  		msg_puts((char_u *)"\n");
  		verbose_leave_scroll();
--- 4446,4452 ----
  	    {
  		verbose_enter_scroll();
  		smsg((char_u *)"Searching: %s (%s)",
! 				   stackp->ffs_fix_path, stackp->ffs_wc_path);
  		/* don't overwrite this either */
  		msg_puts((char_u *)"\n");
  		verbose_leave_scroll();
***************
*** 4452,4460 ****
  #endif
  
  	    /* check depth */
! 	    if (ctx->ffs_level <= 0)
  	    {
! 		ff_free_stack_element(ctx);
  		continue;
  	    }
  
--- 4454,4462 ----
  #endif
  
  	    /* check depth */
! 	    if (stackp->ffs_level <= 0)
  	    {
! 		ff_free_stack_element(stackp);
  		continue;
  	    }
  
***************
*** 4466,4472 ****
  	     * and all possible expands are returned in one array. We use this
  	     * to handle the expansion of '**' into an empty string.
  	     */
! 	    if (ctx->ffs_filearray == NULL)
  	    {
  		char_u *dirptrs[2];
  
--- 4468,4474 ----
  	     * and all possible expands are returned in one array. We use this
  	     * to handle the expansion of '**' into an empty string.
  	     */
! 	    if (stackp->ffs_filearray == NULL)
  	    {
  		char_u *dirptrs[2];
  
***************
*** 4477,4495 ****
  		dirptrs[1] = NULL;
  
  		/* if we have a start dir copy it in */
! 		if (!vim_isAbsName(ctx->ffs_fix_path)
! 			&& ff_search_ctx->ffsc_start_dir)
  		{
! 		    STRCPY(file_path, ff_search_ctx->ffsc_start_dir);
  		    add_pathsep(file_path);
  		}
  
  		/* append the fix part of the search path */
! 		STRCAT(file_path, ctx->ffs_fix_path);
  		add_pathsep(file_path);
  
  #ifdef FEAT_PATH_EXTRA
! 		rest_of_wildcards = ctx->ffs_wc_path;
  		if (*rest_of_wildcards != NUL)
  		{
  		    len = (int)STRLEN(file_path);
--- 4479,4497 ----
  		dirptrs[1] = NULL;
  
  		/* if we have a start dir copy it in */
! 		if (!vim_isAbsName(stackp->ffs_fix_path)
! 						&& search_ctx->ffsc_start_dir)
  		{
! 		    STRCPY(file_path, search_ctx->ffsc_start_dir);
  		    add_pathsep(file_path);
  		}
  
  		/* append the fix part of the search path */
! 		STRCAT(file_path, stackp->ffs_fix_path);
  		add_pathsep(file_path);
  
  #ifdef FEAT_PATH_EXTRA
! 		rest_of_wildcards = stackp->ffs_wc_path;
  		if (*rest_of_wildcards != NUL)
  		{
  		    len = (int)STRLEN(file_path);
***************
*** 4516,4526 ****
  			else
  			    rest_of_wildcards += 3;
  
! 			if (ctx->ffs_star_star_empty == 0)
  			{
  			    /* if not done before, expand '**' to empty */
! 			    ctx->ffs_star_star_empty = 1;
! 			    dirptrs[1] = ctx->ffs_fix_path;
  			}
  		    }
  
--- 4518,4528 ----
  			else
  			    rest_of_wildcards += 3;
  
! 			if (stackp->ffs_star_star_empty == 0)
  			{
  			    /* if not done before, expand '**' to empty */
! 			    stackp->ffs_star_star_empty = 1;
! 			    dirptrs[1] = stackp->ffs_fix_path;
  			}
  		    }
  
***************
*** 4547,4576 ****
  		 */
  		if (path_with_url(dirptrs[0]))
  		{
! 		    ctx->ffs_filearray = (char_u **)
  					      alloc((unsigned)sizeof(char *));
! 		    if (ctx->ffs_filearray != NULL
! 			    && (ctx->ffs_filearray[0]
  				= vim_strsave(dirptrs[0])) != NULL)
! 			ctx->ffs_filearray_size = 1;
  		    else
! 			ctx->ffs_filearray_size = 0;
  		}
  		else
  		    expand_wildcards((dirptrs[1] == NULL) ? 1 : 2, dirptrs,
! 			    &ctx->ffs_filearray_size,
! 			    &ctx->ffs_filearray,
  			    EW_DIR|EW_ADDSLASH|EW_SILENT);
  
! 		ctx->ffs_filearray_cur = 0;
! 		ctx->ffs_stage = 0;
  	    }
  #ifdef FEAT_PATH_EXTRA
  	    else
! 		rest_of_wildcards = &ctx->ffs_wc_path[STRLEN(ctx->ffs_wc_path)];
  #endif
  
! 	    if (ctx->ffs_stage == 0)
  	    {
  		/* this is the first time we work on this directory */
  #ifdef FEAT_PATH_EXTRA
--- 4549,4579 ----
  		 */
  		if (path_with_url(dirptrs[0]))
  		{
! 		    stackp->ffs_filearray = (char_u **)
  					      alloc((unsigned)sizeof(char *));
! 		    if (stackp->ffs_filearray != NULL
! 			    && (stackp->ffs_filearray[0]
  				= vim_strsave(dirptrs[0])) != NULL)
! 			stackp->ffs_filearray_size = 1;
  		    else
! 			stackp->ffs_filearray_size = 0;
  		}
  		else
  		    expand_wildcards((dirptrs[1] == NULL) ? 1 : 2, dirptrs,
! 			    &stackp->ffs_filearray_size,
! 			    &stackp->ffs_filearray,
  			    EW_DIR|EW_ADDSLASH|EW_SILENT);
  
! 		stackp->ffs_filearray_cur = 0;
! 		stackp->ffs_stage = 0;
  	    }
  #ifdef FEAT_PATH_EXTRA
  	    else
! 		rest_of_wildcards = &stackp->ffs_wc_path[
! 						 STRLEN(stackp->ffs_wc_path)];
  #endif
  
! 	    if (stackp->ffs_stage == 0)
  	    {
  		/* this is the first time we work on this directory */
  #ifdef FEAT_PATH_EXTRA
***************
*** 4581,4598 ****
  		     * we don't have further wildcards to expand, so we have to
  		     * check for the final file now
  		     */
! 		    for (i = ctx->ffs_filearray_cur;
! 					     i < ctx->ffs_filearray_size; ++i)
  		    {
! 			if (!path_with_url(ctx->ffs_filearray[i])
! 					 && !mch_isdir(ctx->ffs_filearray[i]))
  			    continue;   /* not a directory */
  
  			/* prepare the filename to be checked for existance
  			 * below */
! 			STRCPY(file_path, ctx->ffs_filearray[i]);
  			add_pathsep(file_path);
! 			STRCAT(file_path, ff_search_ctx->ffsc_file_to_search);
  
  			/*
  			 * Try without extra suffix and then with suffixes
--- 4584,4601 ----
  		     * we don't have further wildcards to expand, so we have to
  		     * check for the final file now
  		     */
! 		    for (i = stackp->ffs_filearray_cur;
! 					  i < stackp->ffs_filearray_size; ++i)
  		    {
! 			if (!path_with_url(stackp->ffs_filearray[i])
! 				      && !mch_isdir(stackp->ffs_filearray[i]))
  			    continue;   /* not a directory */
  
  			/* prepare the filename to be checked for existance
  			 * below */
! 			STRCPY(file_path, stackp->ffs_filearray[i]);
  			add_pathsep(file_path);
! 			STRCAT(file_path, search_ctx->ffsc_file_to_search);
  
  			/*
  			 * Try without extra suffix and then with suffixes
***************
*** 4606,4617 ****
  			{
  			    /* if file exists and we didn't already find it */
  			    if ((path_with_url(file_path)
! 					|| (mch_getperm(file_path) >= 0
! 					    && (!ff_search_ctx->ffsc_need_dir
! 						|| mch_isdir(file_path))))
  #ifndef FF_VERBOSE
  				    && (ff_check_visited(
! 					    &ff_search_ctx->ffsc_visited_list->ffvl_visited_list,
  					    file_path
  #ifdef FEAT_PATH_EXTRA
  					    , (char_u *)""
--- 4609,4623 ----
  			{
  			    /* if file exists and we didn't already find it */
  			    if ((path_with_url(file_path)
! 				  || (mch_getperm(file_path) >= 0
! 				      && (search_ctx->ffsc_find_what
! 							      == FINDFILE_BOTH
! 					  || ((search_ctx->ffsc_find_what
! 							      == FINDFILE_DIR)
! 						   == mch_isdir(file_path)))))
  #ifndef FF_VERBOSE
  				    && (ff_check_visited(
! 					    &search_ctx->ffsc_visited_list->ffvl_visited_list,
  					    file_path
  #ifdef FEAT_PATH_EXTRA
  					    , (char_u *)""
***************
*** 4622,4628 ****
  			    {
  #ifdef FF_VERBOSE
  				if (ff_check_visited(
! 					    &ff_search_ctx->ffsc_visited_list->ffvl_visited_list,
  					    file_path
  #ifdef FEAT_PATH_EXTRA
  					    , (char_u *)""
--- 4628,4634 ----
  			    {
  #ifdef FF_VERBOSE
  				if (ff_check_visited(
! 					    &search_ctx->ffsc_visited_list->ffvl_visited_list,
  					    file_path
  #ifdef FEAT_PATH_EXTRA
  					    , (char_u *)""
***************
*** 4643,4650 ****
  #endif
  
  				/* push dir to examine rest of subdirs later */
! 				ctx->ffs_filearray_cur = i + 1;
! 				ff_push(ctx);
  
  				simplify_filename(file_path);
  				if (mch_dirname(ff_expand_buffer, MAXPATHL)
--- 4649,4656 ----
  #endif
  
  				/* push dir to examine rest of subdirs later */
! 				stackp->ffs_filearray_cur = i + 1;
! 				ff_push(search_ctx, stackp);
  
  				simplify_filename(file_path);
  				if (mch_dirname(ff_expand_buffer, MAXPATHL)
***************
*** 4686,4704 ****
  		     * still wildcards left, push the directories for further
  		     * search
  		     */
! 		    for (i = ctx->ffs_filearray_cur;
! 					     i < ctx->ffs_filearray_size; ++i)
  		    {
! 			if (!mch_isdir(ctx->ffs_filearray[i]))
  			    continue;	/* not a directory */
  
! 			ff_push(ff_create_stack_element(ctx->ffs_filearray[i],
! 				      rest_of_wildcards, ctx->ffs_level - 1, 0));
  		    }
  		}
  #endif
! 		ctx->ffs_filearray_cur = 0;
! 		ctx->ffs_stage = 1;
  	    }
  
  #ifdef FEAT_PATH_EXTRA
--- 4692,4713 ----
  		     * still wildcards left, push the directories for further
  		     * search
  		     */
! 		    for (i = stackp->ffs_filearray_cur;
! 					  i < stackp->ffs_filearray_size; ++i)
  		    {
! 			if (!mch_isdir(stackp->ffs_filearray[i]))
  			    continue;	/* not a directory */
  
! 			ff_push(search_ctx,
! 				ff_create_stack_element(
! 						     stackp->ffs_filearray[i],
! 						     rest_of_wildcards,
! 						     stackp->ffs_level - 1, 0));
  		    }
  		}
  #endif
! 		stackp->ffs_filearray_cur = 0;
! 		stackp->ffs_stage = 1;
  	    }
  
  #ifdef FEAT_PATH_EXTRA
***************
*** 4706,4728 ****
  	     * if wildcards contains '**' we have to descent till we reach the
  	     * leaves of the directory tree.
  	     */
! 	    if (STRNCMP(ctx->ffs_wc_path, "**", 2) == 0)
  	    {
! 		for (i = ctx->ffs_filearray_cur;
! 					     i < ctx->ffs_filearray_size; ++i)
  		{
! 		    if (fnamecmp(ctx->ffs_filearray[i], ctx->ffs_fix_path) == 0)
  			continue; /* don't repush same directory */
! 		    if (!mch_isdir(ctx->ffs_filearray[i]))
  			continue;   /* not a directory */
! 		    ff_push(ff_create_stack_element(ctx->ffs_filearray[i],
! 				ctx->ffs_wc_path, ctx->ffs_level - 1, 1));
  		}
  	    }
  #endif
  
  	    /* we are done with the current directory */
! 	    ff_free_stack_element(ctx);
  
  	}
  
--- 4715,4739 ----
  	     * if wildcards contains '**' we have to descent till we reach the
  	     * leaves of the directory tree.
  	     */
! 	    if (STRNCMP(stackp->ffs_wc_path, "**", 2) == 0)
  	    {
! 		for (i = stackp->ffs_filearray_cur;
! 					  i < stackp->ffs_filearray_size; ++i)
  		{
! 		    if (fnamecmp(stackp->ffs_filearray[i],
! 						   stackp->ffs_fix_path) == 0)
  			continue; /* don't repush same directory */
! 		    if (!mch_isdir(stackp->ffs_filearray[i]))
  			continue;   /* not a directory */
! 		    ff_push(search_ctx,
! 			    ff_create_stack_element(stackp->ffs_filearray[i],
! 				stackp->ffs_wc_path, stackp->ffs_level - 1, 1));
  		}
  	    }
  #endif
  
  	    /* we are done with the current directory */
! 	    ff_free_stack_element(stackp);
  
  	}
  
***************
*** 4730,4769 ****
  	/* If we reached this, we didn't find anything downwards.
  	 * Let's check if we should do an upward search.
  	 */
! 	if (ff_search_ctx->ffsc_start_dir
! 		&& ff_search_ctx->ffsc_stopdirs_v != NULL && !got_int)
  	{
  	    ff_stack_T  *sptr;
  
  	    /* is the last starting directory in the stop list? */
! 	    if (ff_path_in_stoplist(ff_search_ctx->ffsc_start_dir,
! 		       (int)(path_end - ff_search_ctx->ffsc_start_dir),
! 		       ff_search_ctx->ffsc_stopdirs_v) == TRUE)
  		break;
  
  	    /* cut of last dir */
! 	    while (path_end > ff_search_ctx->ffsc_start_dir
! 		    && vim_ispathsep(*path_end))
  		path_end--;
! 	    while (path_end > ff_search_ctx->ffsc_start_dir
! 		    && !vim_ispathsep(path_end[-1]))
  		path_end--;
  	    *path_end = 0;
  	    path_end--;
  
! 	    if (*ff_search_ctx->ffsc_start_dir == 0)
  		break;
  
! 	    STRCPY(file_path, ff_search_ctx->ffsc_start_dir);
  	    add_pathsep(file_path);
! 	    STRCAT(file_path, ff_search_ctx->ffsc_fix_path);
  
  	    /* create a new stack entry */
  	    sptr = ff_create_stack_element(file_path,
! 		    ff_search_ctx->ffsc_wc_path, ff_search_ctx->ffsc_level, 0);
  	    if (sptr == NULL)
  		break;
! 	    ff_push(sptr);
  	}
  	else
  	    break;
--- 4741,4780 ----
  	/* If we reached this, we didn't find anything downwards.
  	 * Let's check if we should do an upward search.
  	 */
! 	if (search_ctx->ffsc_start_dir
! 		&& search_ctx->ffsc_stopdirs_v != NULL && !got_int)
  	{
  	    ff_stack_T  *sptr;
  
  	    /* is the last starting directory in the stop list? */
! 	    if (ff_path_in_stoplist(search_ctx->ffsc_start_dir,
! 		       (int)(path_end - search_ctx->ffsc_start_dir),
! 		       search_ctx->ffsc_stopdirs_v) == TRUE)
  		break;
  
  	    /* cut of last dir */
! 	    while (path_end > search_ctx->ffsc_start_dir
! 						  && vim_ispathsep(*path_end))
  		path_end--;
! 	    while (path_end > search_ctx->ffsc_start_dir
! 					      && !vim_ispathsep(path_end[-1]))
  		path_end--;
  	    *path_end = 0;
  	    path_end--;
  
! 	    if (*search_ctx->ffsc_start_dir == 0)
  		break;
  
! 	    STRCPY(file_path, search_ctx->ffsc_start_dir);
  	    add_pathsep(file_path);
! 	    STRCAT(file_path, search_ctx->ffsc_fix_path);
  
  	    /* create a new stack entry */
  	    sptr = ff_create_stack_element(file_path,
! 		    search_ctx->ffsc_wc_path, search_ctx->ffsc_level, 0);
  	    if (sptr == NULL)
  		break;
! 	    ff_push(search_ctx, sptr);
  	}
  	else
  	    break;
***************
*** 4779,4794 ****
   * Can handle it if the passed search_context is NULL;
   */
      void
! vim_findfile_free_visited(search_ctx)
!     void	*search_ctx;
  {
!     if (search_ctx == NULL)
! 	return;
  
!     ff_search_ctx = (ff_search_ctx_T *)search_ctx;
  
!     vim_findfile_free_visited_list(&ff_search_ctx->ffsc_visited_lists_list);
!     vim_findfile_free_visited_list(&ff_search_ctx->ffsc_dir_visited_lists_list);
  }
  
      static void
--- 4790,4806 ----
   * Can handle it if the passed search_context is NULL;
   */
      void
! vim_findfile_free_visited(search_ctx_arg)
!     void	*search_ctx_arg;
  {
!     ff_search_ctx_T *search_ctx;
  
!     if (search_ctx_arg == NULL)
! 	return;
  
!     search_ctx = (ff_search_ctx_T *)search_ctx_arg;
!     vim_findfile_free_visited_list(&search_ctx->ffsc_visited_lists_list);
!     vim_findfile_free_visited_list(&search_ctx->ffsc_dir_visited_lists_list);
  }
  
      static void
***************
*** 5103,5135 ****
  }
  
  /*
!  * push a dir on the directory stack
   */
      static void
! ff_push(ctx)
!     ff_stack_T *ctx;
  {
      /* check for NULL pointer, not to return an error to the user, but
       * to prevent a crash */
!     if (ctx != NULL)
      {
! 	ctx->ffs_prev   = ff_search_ctx->ffsc_stack_ptr;
! 	ff_search_ctx->ffsc_stack_ptr = ctx;
      }
  }
  
  /*
!  * pop a dir from the directory stack
!  * returns NULL if stack is empty
   */
      static ff_stack_T *
! ff_pop()
  {
      ff_stack_T  *sptr;
  
!     sptr = ff_search_ctx->ffsc_stack_ptr;
!     if (ff_search_ctx->ffsc_stack_ptr != NULL)
! 	ff_search_ctx->ffsc_stack_ptr = ff_search_ctx->ffsc_stack_ptr->ffs_prev;
  
      return sptr;
  }
--- 5115,5149 ----
  }
  
  /*
!  * Push a dir on the directory stack.
   */
      static void
! ff_push(search_ctx, stack_ptr)
!     ff_search_ctx_T *search_ctx;
!     ff_stack_T	    *stack_ptr;
  {
      /* check for NULL pointer, not to return an error to the user, but
       * to prevent a crash */
!     if (stack_ptr != NULL)
      {
! 	stack_ptr->ffs_prev = search_ctx->ffsc_stack_ptr;
! 	search_ctx->ffsc_stack_ptr = stack_ptr;
      }
  }
  
  /*
!  * Pop a dir from the directory stack.
!  * Returns NULL if stack is empty.
   */
      static ff_stack_T *
! ff_pop(search_ctx)
!     ff_search_ctx_T *search_ctx;
  {
      ff_stack_T  *sptr;
  
!     sptr = search_ctx->ffsc_stack_ptr;
!     if (search_ctx->ffsc_stack_ptr != NULL)
! 	search_ctx->ffsc_stack_ptr = search_ctx->ffsc_stack_ptr->ffs_prev;
  
      return sptr;
  }
***************
*** 5138,5199 ****
   * free the given stack element
   */
      static void
! ff_free_stack_element(ctx)
!     ff_stack_T  *ctx;
  {
      /* vim_free handles possible NULL pointers */
!     vim_free(ctx->ffs_fix_path);
  #ifdef FEAT_PATH_EXTRA
!     vim_free(ctx->ffs_wc_path);
  #endif
  
!     if (ctx->ffs_filearray != NULL)
! 	FreeWild(ctx->ffs_filearray_size, ctx->ffs_filearray);
  
!     vim_free(ctx);
  }
  
  /*
!  * clear the search context
   */
      static void
! ff_clear()
  {
      ff_stack_T   *sptr;
  
      /* clear up stack */
!     while ((sptr = ff_pop()) != NULL)
  	ff_free_stack_element(sptr);
  
!     vim_free(ff_search_ctx->ffsc_file_to_search);
!     vim_free(ff_search_ctx->ffsc_start_dir);
!     vim_free(ff_search_ctx->ffsc_fix_path);
  #ifdef FEAT_PATH_EXTRA
!     vim_free(ff_search_ctx->ffsc_wc_path);
  #endif
  
  #ifdef FEAT_PATH_EXTRA
!     if (ff_search_ctx->ffsc_stopdirs_v != NULL)
      {
  	int  i = 0;
  
! 	while (ff_search_ctx->ffsc_stopdirs_v[i] != NULL)
  	{
! 	    vim_free(ff_search_ctx->ffsc_stopdirs_v[i]);
  	    i++;
  	}
! 	vim_free(ff_search_ctx->ffsc_stopdirs_v);
      }
!     ff_search_ctx->ffsc_stopdirs_v = NULL;
  #endif
  
      /* reset everything */
!     ff_search_ctx->ffsc_file_to_search	= NULL;
!     ff_search_ctx->ffsc_start_dir	= NULL;
!     ff_search_ctx->ffsc_fix_path	= NULL;
  #ifdef FEAT_PATH_EXTRA
!     ff_search_ctx->ffsc_wc_path		= NULL;
!     ff_search_ctx->ffsc_level		= 0;
  #endif
  }
  
--- 5152,5214 ----
   * free the given stack element
   */
      static void
! ff_free_stack_element(stack_ptr)
!     ff_stack_T  *stack_ptr;
  {
      /* vim_free handles possible NULL pointers */
!     vim_free(stack_ptr->ffs_fix_path);
  #ifdef FEAT_PATH_EXTRA
!     vim_free(stack_ptr->ffs_wc_path);
  #endif
  
!     if (stack_ptr->ffs_filearray != NULL)
! 	FreeWild(stack_ptr->ffs_filearray_size, stack_ptr->ffs_filearray);
  
!     vim_free(stack_ptr);
  }
  
  /*
!  * Clear the search context, but NOT the visited list.
   */
      static void
! ff_clear(search_ctx)
!     ff_search_ctx_T *search_ctx;
  {
      ff_stack_T   *sptr;
  
      /* clear up stack */
!     while ((sptr = ff_pop(search_ctx)) != NULL)
  	ff_free_stack_element(sptr);
  
!     vim_free(search_ctx->ffsc_file_to_search);
!     vim_free(search_ctx->ffsc_start_dir);
!     vim_free(search_ctx->ffsc_fix_path);
  #ifdef FEAT_PATH_EXTRA
!     vim_free(search_ctx->ffsc_wc_path);
  #endif
  
  #ifdef FEAT_PATH_EXTRA
!     if (search_ctx->ffsc_stopdirs_v != NULL)
      {
  	int  i = 0;
  
! 	while (search_ctx->ffsc_stopdirs_v[i] != NULL)
  	{
! 	    vim_free(search_ctx->ffsc_stopdirs_v[i]);
  	    i++;
  	}
! 	vim_free(search_ctx->ffsc_stopdirs_v);
      }
!     search_ctx->ffsc_stopdirs_v = NULL;
  #endif
  
      /* reset everything */
!     search_ctx->ffsc_file_to_search = NULL;
!     search_ctx->ffsc_start_dir = NULL;
!     search_ctx->ffsc_fix_path = NULL;
  #ifdef FEAT_PATH_EXTRA
!     search_ctx->ffsc_wc_path = NULL;
!     search_ctx->ffsc_level = 0;
  #endif
  }
  
***************
*** 5242,5248 ****
  
  #if defined(FEAT_SEARCHPATH) || defined(PROTO)
  /*
!  * Find the file name "ptr[len]" in the path.
   *
   * On the first call set the parameter 'first' to TRUE to initialize
   * the search.  For repeating calls to FALSE.
--- 5257,5263 ----
  
  #if defined(FEAT_SEARCHPATH) || defined(PROTO)
  /*
!  * Find the file name "ptr[len]" in the path.  Also finds directory names.
   *
   * On the first call set the parameter 'first' to TRUE to initialize
   * the search.  For repeating calls to FALSE.
***************
*** 5276,5282 ****
  {
      return find_file_in_path_option(ptr, len, options, first,
  	    *curbuf->b_p_path == NUL ? p_path : curbuf->b_p_path,
! 	    FALSE, rel_fname, curbuf->b_p_sua);
  }
  
  static char_u	*ff_file_to_find = NULL;
--- 5291,5297 ----
  {
      return find_file_in_path_option(ptr, len, options, first,
  	    *curbuf->b_p_path == NUL ? p_path : curbuf->b_p_path,
! 	    FINDFILE_BOTH, rel_fname, curbuf->b_p_sua);
  }
  
  static char_u	*ff_file_to_find = NULL;
***************
*** 5309,5325 ****
      char_u	*rel_fname;	/* file name searching relative to */
  {
      return find_file_in_path_option(ptr, len, options, TRUE, p_cdpath,
! 					       TRUE, rel_fname, (char_u *)"");
  }
  
      char_u *
! find_file_in_path_option(ptr, len, options, first, path_option, need_dir, rel_fname, suffixes)
      char_u	*ptr;		/* file name */
      int		len;		/* length of file name */
      int		options;
      int		first;		/* use count'th matching file name */
      char_u	*path_option;	/* p_path or p_cdpath */
!     int		need_dir;	/* looking for directory name */
      char_u	*rel_fname;	/* file name we are looking relative to. */
      char_u	*suffixes;	/* list of suffixes, 'suffixesadd' option */
  {
--- 5324,5340 ----
      char_u	*rel_fname;	/* file name searching relative to */
  {
      return find_file_in_path_option(ptr, len, options, TRUE, p_cdpath,
! 				       FINDFILE_DIR, rel_fname, (char_u *)"");
  }
  
      char_u *
! find_file_in_path_option(ptr, len, options, first, path_option, find_what, rel_fname, suffixes)
      char_u	*ptr;		/* file name */
      int		len;		/* length of file name */
      int		options;
      int		first;		/* use count'th matching file name */
      char_u	*path_option;	/* p_path or p_cdpath */
!     int		find_what;	/* FINDFILE_FILE, _DIR or _BOTH */
      char_u	*rel_fname;	/* file name we are looking relative to. */
      char_u	*suffixes;	/* list of suffixes, 'suffixesadd' option */
  {
***************
*** 5421,5432 ****
  #ifdef DJGPP
  			    /* "C:" by itself will fail for mch_getperm(),
  			     * assume it's always valid. */
! 			    (need_dir && NameBuff[0] != NUL
  				  && NameBuff[1] == ':'
  				  && NameBuff[2] == NUL) ||
  #endif
  			    (mch_getperm(NameBuff) >= 0
! 				       && (!need_dir || mch_isdir(NameBuff))))
  		    {
  			file_name = vim_strsave(NameBuff);
  			goto theend;
--- 5436,5449 ----
  #ifdef DJGPP
  			    /* "C:" by itself will fail for mch_getperm(),
  			     * assume it's always valid. */
! 			    (find_what != FINDFILE_FILE && NameBuff[0] != NUL
  				  && NameBuff[1] == ':'
  				  && NameBuff[2] == NUL) ||
  #endif
  			    (mch_getperm(NameBuff) >= 0
! 			     && (find_what == FINDFILE_BOTH
! 				 || ((find_what == FINDFILE_DIR)
! 						    == mch_isdir(NameBuff)))))
  		    {
  			file_name = vim_strsave(NameBuff);
  			goto theend;
***************
*** 5457,5465 ****
  	{
  	    if (did_findfile_init)
  	    {
- 		ff_search_ctx->ffsc_need_dir = need_dir;
  		file_name = vim_findfile(fdip_search_ctx);
- 		ff_search_ctx->ffsc_need_dir = FALSE;
  		if (file_name != NULL)
  		    break;
  
--- 5474,5480 ----
***************
*** 5492,5498 ****
  		r_ptr = NULL;
  #endif
  		fdip_search_ctx = vim_findfile_init(buf, ff_file_to_find,
! 					    r_ptr, 100, FALSE, TRUE,
  					   fdip_search_ctx, FALSE, rel_fname);
  		if (fdip_search_ctx != NULL)
  		    did_findfile_init = TRUE;
--- 5507,5513 ----
  		r_ptr = NULL;
  #endif
  		fdip_search_ctx = vim_findfile_init(buf, ff_file_to_find,
! 					    r_ptr, 100, FALSE, find_what,
  					   fdip_search_ctx, FALSE, rel_fname);
  		if (fdip_search_ctx != NULL)
  		    did_findfile_init = TRUE;
***************
*** 5504,5510 ****
      {
  	if (first == TRUE)
  	{
! 	    if (need_dir)
  		EMSG2(_("E344: Can't find directory \"%s\" in cdpath"),
  			ff_file_to_find);
  	    else
--- 5519,5525 ----
      {
  	if (first == TRUE)
  	{
! 	    if (find_what == FINDFILE_DIR)
  		EMSG2(_("E344: Can't find directory \"%s\" in cdpath"),
  			ff_file_to_find);
  	    else
***************
*** 5513,5519 ****
  	}
  	else
  	{
! 	    if (need_dir)
  		EMSG2(_("E346: No more directory \"%s\" found in cdpath"),
  			ff_file_to_find);
  	    else
--- 5528,5534 ----
  	}
  	else
  	{
! 	    if (find_what == FINDFILE_DIR)
  		EMSG2(_("E346: No more directory \"%s\" found in cdpath"),
  			ff_file_to_find);
  	    else
*** ../vim-7.1.255/src/vim.h	Sat Jan 19 15:55:51 2008
--- src/vim.h	Tue Jan 22 22:35:16 2008
***************
*** 721,726 ****
--- 721,731 ----
  /* Note: mostly EW_NOTFOUND and EW_SILENT are mutually exclusive: EW_NOTFOUND
   * is used when executing commands and EW_SILENT for interactive expanding. */
  
+ /* Flags for find_file_*() functions. */
+ #define FINDFILE_FILE	0	/* only files */
+ #define FINDFILE_DIR	1	/* only directories */
+ #define FINDFILE_BOTH	2	/* files and directories */
+ 
  #ifdef FEAT_VERTSPLIT
  # define W_WINCOL(wp)	(wp->w_wincol)
  # define W_WIDTH(wp)	(wp->w_width)
*** ../vim-7.1.255/src/tag.c	Sat Jan 19 15:55:51 2008
--- src/tag.c	Wed Feb 13 18:02:32 2008
***************
*** 2669,2676 ****
  
  	    tnp->tn_search_ctx = vim_findfile_init(buf, filename,
  		    r_ptr, 100,
! 		    FALSE, /* don't free visited list */
! 		    FALSE, /* we search for a file */
  		    tnp->tn_search_ctx, TRUE, curbuf->b_ffname);
  	    if (tnp->tn_search_ctx != NULL)
  		tnp->tn_did_filefind_init = TRUE;
--- 2669,2676 ----
  
  	    tnp->tn_search_ctx = vim_findfile_init(buf, filename,
  		    r_ptr, 100,
! 		    FALSE,         /* don't free visited list */
! 		    FINDFILE_FILE, /* we search for a file */
  		    tnp->tn_search_ctx, TRUE, curbuf->b_ffname);
  	    if (tnp->tn_search_ctx != NULL)
  		tnp->tn_did_filefind_init = TRUE;
***************
*** 2691,2696 ****
--- 2691,2697 ----
  {
      vim_free(tnp->tn_tags);
      vim_findfile_cleanup(tnp->tn_search_ctx);
+     tnp->tn_search_ctx = NULL;
      ga_clear_strings(&tag_fnames);
  }
  
*** ../vim-7.1.255/src/version.c	Wed Feb 20 11:27:59 2008
--- src/version.c	Wed Feb 20 12:09:54 2008
***************
*** 668,669 ****
--- 668,671 ----
  {   /* Add new patch number below this line */
+ /**/
+     256,
  /**/

-- 
hundred-and-one symptoms of being an internet addict:
38. You wake up at 3 a.m. to go to the bathroom and stop and check your e-mail
    on the way back to bed.

 /// Bram Moolenaar -- Bram@Moolenaar.net -- http://www.Moolenaar.net   \\\
///        sponsor Vim, vote for features -- http://www.Vim.org/sponsor/ \\\
\\\        download, build and distribute -- http://www.A-A-P.org        ///
 \\\            help me help AIDS victims -- http://ICCF-Holland.org    ///