vim: src/filepath.c annotate

annotate src/filepath.c @ 30150:0fe61fa4e5d1 v9.0.0411

patch 9.0.0411: only created files can be cleaned up with one call Commit: https://github.com/vim/vim/commit/6f14da15ac900589f2f413d77898b9bff3b31ece Author: Bram Moolenaar <Bram@vim.org> Date: Wed Sep 7 21:30:44 2022 +0100 patch 9.0.0411: only created files can be cleaned up with one call Problem: Only created files can be cleaned up with one call. Solution: Add flags to mkdir() to delete with a deferred function. Expand the writefile() name to a full path to handle changing directory.

author	Bram Moolenaar <Bram@vim.org>
date	Wed, 07 Sep 2022 22:45:04 +0200
parents	a542dfb1c1a2
children	b3de17181c19

rev	line source
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1 /* vi:set ts=8 sts=4 sw=4 noet:
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2 *
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	3 * VIM - Vi IMproved by Bram Moolenaar
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	4 *
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	5 * Do ":help uganda" in Vim to read copying and usage conditions.
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	6 * Do ":help credits" in Vim to see a list of people who contributed.
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	7 * See README.txt for an overview of the Vim source code.
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	8 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	9
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	10 /*
18872 410155e75efa patch 8.1.2422: "make depend" does not work correctly for libvterm Bram Moolenaar <Bram@vim.org> parents: 18779 diff changeset	11 * filepath.c: dealing with file names and paths.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	12 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	13
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	14 #include "vim.h"
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	15
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	16 #ifdef MSWIN
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	17 /*
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	18 * Functions for ":8" filename modifier: get 8.3 version of a filename.
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	19 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	20
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	21 /*
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	22 * Get the short path (8.3) for the filename in "fnamep".
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	23 * Only works for a valid file name.
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	24 * When the path gets longer "fnamep" is changed and the allocated buffer
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	25 * is put in "bufp".
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	26 * *fnamelen is the length of "fnamep" and set to 0 for a nonexistent path.
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	27 * Returns OK on success, FAIL on failure.
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	28 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	29 static int
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	30 get_short_pathname(char_u fnamep, char_u bufp, int *fnamelen)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	31 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	32 int l, len;
18479 cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	33 WCHAR *newbuf;
cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	34 WCHAR *wfname;
cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	35
cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	36 len = MAXPATHL;
cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	37 newbuf = malloc(len * sizeof(*newbuf));
cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	38 if (newbuf == NULL)
cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	39 return FAIL;
cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	40
cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	41 wfname = enc_to_utf16(*fnamep, NULL);
cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	42 if (wfname == NULL)
cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	43 {
cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	44 vim_free(newbuf);
cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	45 return FAIL;
cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	46 }
cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	47
cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	48 l = GetShortPathNameW(wfname, newbuf, len);
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	49 if (l > len - 1)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	50 {
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	51 // If that doesn't work (not enough space), then save the string
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	52 // and try again with a new buffer big enough.
18479 cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	53 WCHAR *newbuf_t = newbuf;
cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	54 newbuf = vim_realloc(newbuf, (l + 1) * sizeof(*newbuf));
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	55 if (newbuf == NULL)
18479 cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	56 {
cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	57 vim_free(wfname);
cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	58 vim_free(newbuf_t);
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	59 return FAIL;
18479 cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	60 }
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	61 // Really should always succeed, as the buffer is big enough.
18479 cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	62 l = GetShortPathNameW(wfname, newbuf, l+1);
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	63 }
18479 cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	64 if (l != 0)
cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	65 {
cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	66 char_u *p = utf16_to_enc(newbuf, NULL);
19936 ce463840c826 patch 8.2.0524: Win32: searching for file matches is slow Bram Moolenaar <Bram@vim.org> parents: 19930 diff changeset	67
18479 cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	68 if (p != NULL)
cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	69 {
cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	70 vim_free(*bufp);
cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	71 fnamep = bufp = p;
cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	72 }
cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	73 else
cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	74 {
cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	75 vim_free(wfname);
cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	76 vim_free(newbuf);
cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	77 return FAIL;
cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	78 }
cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	79 }
cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	80 vim_free(wfname);
cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	81 vim_free(newbuf);
cbea1392c393 patch 8.1.2234: get_short_pathname() fails depending on encoding Bram Moolenaar <Bram@vim.org> parents: 18261 diff changeset	82
18516 9676dc5fd705 patch 8.1.2252: compiler warning for int size Bram Moolenaar <Bram@vim.org> parents: 18479 diff changeset	83 fnamelen = l == 0 ? l : (int)STRLEN(bufp);
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	84 return OK;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	85 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	86
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	87 /*
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	88 * Get the short path (8.3) for the filename in "fname". The converted
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	89 * path is returned in "bufp".
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	90 *
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	91 * Some of the directories specified in "fname" may not exist. This function
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	92 * will shorten the existing directories at the beginning of the path and then
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	93 * append the remaining non-existing path.
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	94 *
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	95 * fname - Pointer to the filename to shorten. On return, contains the
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	96 * pointer to the shortened pathname
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	97 * bufp - Pointer to an allocated buffer for the filename.
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	98 * fnamelen - Length of the filename pointed to by fname
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	99 *
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	100 * Returns OK on success (or nothing done) and FAIL on failure (out of memory).
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	101 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	102 static int
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	103 shortpath_for_invalid_fname(
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	104 char_u **fname,
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	105 char_u **bufp,
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	106 int *fnamelen)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	107 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	108 char_u short_fname, save_fname, *pbuf_unused;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	109 char_u endp, save_endp;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	110 char_u ch;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	111 int old_len, len;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	112 int new_len, sfx_len;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	113 int retval = OK;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	114
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	115 // Make a copy
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	116 old_len = *fnamelen;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	117 save_fname = vim_strnsave(*fname, old_len);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	118 pbuf_unused = NULL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	119 short_fname = NULL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	120
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	121 endp = save_fname + old_len - 1; // Find the end of the copy
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	122 save_endp = endp;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	123
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	124 /*
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	125 * Try shortening the supplied path till it succeeds by removing one
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	126 * directory at a time from the tail of the path.
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	127 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	128 len = 0;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	129 for (;;)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	130 {
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	131 // go back one path-separator
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	132 while (endp > save_fname && !after_pathsep(save_fname, endp + 1))
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	133 --endp;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	134 if (endp <= save_fname)
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	135 break; // processed the complete path
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	136
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	137 /*
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	138 * Replace the path separator with a NUL and try to shorten the
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	139 * resulting path.
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	140 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	141 ch = *endp;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	142 *endp = 0;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	143 short_fname = save_fname;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	144 len = (int)STRLEN(short_fname) + 1;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	145 if (get_short_pathname(&short_fname, &pbuf_unused, &len) == FAIL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	146 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	147 retval = FAIL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	148 goto theend;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	149 }
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	150 *endp = ch; // preserve the string
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	151
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	152 if (len > 0)
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	153 break; // successfully shortened the path
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	154
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	155 // failed to shorten the path. Skip the path separator
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	156 --endp;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	157 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	158
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	159 if (len > 0)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	160 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	161 /*
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	162 * Succeeded in shortening the path. Now concatenate the shortened
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	163 * path with the remaining path at the tail.
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	164 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	165
18779 8f05b3cf8557 patch 8.1.2379: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18516 diff changeset	166 // Compute the length of the new path.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	167 sfx_len = (int)(save_endp - endp) + 1;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	168 new_len = len + sfx_len;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	169
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	170 *fnamelen = new_len;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	171 vim_free(*bufp);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	172 if (new_len > old_len)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	173 {
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	174 // There is not enough space in the currently allocated string,
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	175 // copy it to a buffer big enough.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	176 fname = bufp = vim_strnsave(short_fname, new_len);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	177 if (*fname == NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	178 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	179 retval = FAIL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	180 goto theend;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	181 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	182 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	183 else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	184 {
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	185 // Transfer short_fname to the main buffer (it's big enough),
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	186 // unless get_short_pathname() did its work in-place.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	187 fname = bufp = save_fname;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	188 if (short_fname != save_fname)
28021 d4b549180a07 patch 8.2.4535: filename modifer ":8" removes the filename Bram Moolenaar <Bram@vim.org> parents: 27784 diff changeset	189 STRNCPY(save_fname, short_fname, len);
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	190 save_fname = NULL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	191 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	192
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	193 // concat the not-shortened part of the path
29113 495d55210aac patch 8.2.5077: various warnings from clang on MS-Windows Bram Moolenaar <Bram@vim.org> parents: 28881 diff changeset	194 if ((*fname + len) != endp)
495d55210aac patch 8.2.5077: various warnings from clang on MS-Windows Bram Moolenaar <Bram@vim.org> parents: 28881 diff changeset	195 vim_strncpy(*fname + len, endp, sfx_len);
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	196 (*fname)[new_len] = NUL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	197 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	198
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	199 theend:
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	200 vim_free(pbuf_unused);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	201 vim_free(save_fname);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	202
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	203 return retval;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	204 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	205
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	206 /*
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	207 * Get a pathname for a partial path.
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	208 * Returns OK for success, FAIL for failure.
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	209 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	210 static int
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	211 shortpath_for_partial(
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	212 char_u **fnamep,
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	213 char_u **bufp,
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	214 int *fnamelen)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	215 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	216 int sepcount, len, tflen;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	217 char_u *p;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	218 char_u pbuf, tfname;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	219 int hasTilde;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	220
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	221 // Count up the path separators from the RHS.. so we know which part
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	222 // of the path to return.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	223 sepcount = 0;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	224 for (p = fnamep; p < fnamep + *fnamelen; MB_PTR_ADV(p))
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	225 if (vim_ispathsep(*p))
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	226 ++sepcount;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	227
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	228 // Need full path first (use expand_env() to remove a "~/")
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	229 hasTilde = (**fnamep == '~');
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	230 if (hasTilde)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	231 pbuf = tfname = expand_env_save(*fnamep);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	232 else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	233 pbuf = tfname = FullName_save(*fnamep, FALSE);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	234
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	235 len = tflen = (int)STRLEN(tfname);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	236
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	237 if (get_short_pathname(&tfname, &pbuf, &len) == FAIL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	238 return FAIL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	239
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	240 if (len == 0)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	241 {
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	242 // Don't have a valid filename, so shorten the rest of the
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	243 // path if we can. This CAN give us invalid 8.3 filenames, but
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	244 // there's not a lot of point in guessing what it might be.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	245 len = tflen;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	246 if (shortpath_for_invalid_fname(&tfname, &pbuf, &len) == FAIL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	247 return FAIL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	248 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	249
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	250 // Count the paths backward to find the beginning of the desired string.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	251 for (p = tfname + len - 1; p >= tfname; --p)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	252 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	253 if (has_mbyte)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	254 p -= mb_head_off(tfname, p);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	255 if (vim_ispathsep(*p))
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	256 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	257 if (sepcount == 0 \|\| (hasTilde && sepcount == 1))
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	258 break;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	259 else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	260 sepcount --;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	261 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	262 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	263 if (hasTilde)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	264 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	265 --p;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	266 if (p >= tfname)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	267 *p = '~';
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	268 else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	269 return FAIL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	270 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	271 else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	272 ++p;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	273
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	274 // Copy in the string - p indexes into tfname - allocated at pbuf
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	275 vim_free(*bufp);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	276 *fnamelen = (int)STRLEN(p);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	277 *bufp = pbuf;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	278 *fnamep = p;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	279
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	280 return OK;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	281 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	282 #endif // MSWIN
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	283
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	284 /*
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	285 * Adjust a filename, according to a string of modifiers.
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	286 * *fnamep must be NUL terminated when called. When returning, the length is
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	287 * determined by *fnamelen.
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	288 * Returns VALID_ flags or -1 for failure.
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	289 * When there is an error, *fnamep is set to NULL.
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	290 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	291 int
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	292 modify_fname(
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	293 char_u *src, // string with modifiers
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	294 int tilde_file, // "~" is a file name, not $HOME
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	295 int *usedlen, // characters after src that are used
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	296 char_u **fnamep, // file name so far
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	297 char_u **bufp, // buffer for allocated file name or NULL
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	298 int *fnamelen) // length of fnamep
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	299 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	300 int valid = 0;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	301 char_u *tail;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	302 char_u s, p, *pbuf;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	303 char_u dirname[MAXPATHL];
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	304 int c;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	305 int has_fullname = 0;
19299 8b710057093c patch 8.2.0208: fnamemodify() does not apply ":~" when followed by ":." Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	306 int has_homerelative = 0;
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	307 #ifdef MSWIN
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	308 char_u fname_start = fnamep;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	309 int has_shortname = 0;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	310 #endif
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	311
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	312 repeat:
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	313 // ":p" - full path/file_name
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	314 if (src[usedlen] == ':' && src[usedlen + 1] == 'p')
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	315 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	316 has_fullname = 1;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	317
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	318 valid \|= VALID_PATH;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	319 *usedlen += 2;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	320
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	321 // Expand "~/path" for all systems and "~user/path" for Unix and VMS
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	322 if ((*fnamep)[0] == '~'
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	323 #if !defined(UNIX) && !(defined(VMS) && defined(USER_HOME))
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	324 && ((*fnamep)[1] == '/'
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	325 # ifdef BACKSLASH_IN_FILENAME
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	326 \|\| (*fnamep)[1] == '\\'
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	327 # endif
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	328 \|\| (*fnamep)[1] == NUL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	329 #endif
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	330 && !(tilde_file && (*fnamep)[1] == NUL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	331 )
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	332 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	333 fnamep = expand_env_save(fnamep);
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	334 vim_free(*bufp); // free any allocated file name
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	335 bufp = fnamep;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	336 if (*fnamep == NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	337 return -1;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	338 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	339
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	340 // When "/." or "/.." is used: force expansion to get rid of it.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	341 for (p = fnamep; p != NUL; MB_PTR_ADV(p))
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	342 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	343 if (vim_ispathsep(*p)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	344 && p[1] == '.'
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	345 && (p[2] == NUL
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	346 \|\| vim_ispathsep(p[2])
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	347 \|\| (p[2] == '.'
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	348 && (p[3] == NUL \|\| vim_ispathsep(p[3])))))
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	349 break;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	350 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	351
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	352 // FullName_save() is slow, don't use it when not needed.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	353 if (p != NUL \|\| !vim_isAbsName(fnamep))
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	354 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	355 fnamep = FullName_save(fnamep, *p != NUL);
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	356 vim_free(*bufp); // free any allocated file name
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	357 bufp = fnamep;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	358 if (*fnamep == NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	359 return -1;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	360 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	361
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	362 #ifdef MSWIN
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	363 # if _WIN32_WINNT >= 0x0500
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	364 if (vim_strchr(*fnamep, '~') != NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	365 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	366 // Expand 8.3 filename to full path. Needed to make sure the same
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	367 // file does not have two different names.
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	368 // Note: problem does not occur if _WIN32_WINNT < 0x0500.
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	369 WCHAR wfname = enc_to_utf16(fnamep, NULL);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	370 WCHAR buf[_MAX_PATH];
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	371
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	372 if (wfname != NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	373 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	374 if (GetLongPathNameW(wfname, buf, _MAX_PATH))
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	375 {
27523 4c7bb6fd383f patch 8.2.4289: warnings reported by MSVC Bram Moolenaar <Bram@vim.org> parents: 27490 diff changeset	376 char_u *q = utf16_to_enc(buf, NULL);
4c7bb6fd383f patch 8.2.4289: warnings reported by MSVC Bram Moolenaar <Bram@vim.org> parents: 27490 diff changeset	377
4c7bb6fd383f patch 8.2.4289: warnings reported by MSVC Bram Moolenaar <Bram@vim.org> parents: 27490 diff changeset	378 if (q != NULL)
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	379 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	380 vim_free(*bufp); // free any allocated file name
27523 4c7bb6fd383f patch 8.2.4289: warnings reported by MSVC Bram Moolenaar <Bram@vim.org> parents: 27490 diff changeset	381 bufp = fnamep = q;
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	382 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	383 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	384 vim_free(wfname);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	385 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	386 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	387 # endif
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	388 #endif
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	389 // Append a path separator to a directory.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	390 if (mch_isdir(*fnamep))
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	391 {
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	392 // Make room for one or two extra characters.
20830 9064044fd4f6 patch 8.2.0967: unnecessary type casts for vim_strnsave() Bram Moolenaar <Bram@vim.org> parents: 20780 diff changeset	393 fnamep = vim_strnsave(fnamep, STRLEN(*fnamep) + 2);
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	394 vim_free(*bufp); // free any allocated file name
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	395 bufp = fnamep;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	396 if (*fnamep == NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	397 return -1;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	398 add_pathsep(*fnamep);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	399 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	400 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	401
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	402 // ":." - path relative to the current directory
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	403 // ":~" - path relative to the home directory
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	404 // ":8" - shortname path - postponed till after
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	405 while (src[*usedlen] == ':'
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	406 && ((c = src[*usedlen + 1]) == '.' \|\| c == '~' \|\| c == '8'))
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	407 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	408 *usedlen += 2;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	409 if (c == '8')
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	410 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	411 #ifdef MSWIN
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	412 has_shortname = 1; // Postpone this.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	413 #endif
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	414 continue;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	415 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	416 pbuf = NULL;
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	417 // Need full path first (use expand_env() to remove a "~/")
19299 8b710057093c patch 8.2.0208: fnamemodify() does not apply ":~" when followed by ":." Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	418 if (!has_fullname && !has_homerelative)
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	419 {
27621 9a8992489b71 patch 8.2.4337: part of condition is always true Bram Moolenaar <Bram@vim.org> parents: 27523 diff changeset	420 if (**fnamep == '~')
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	421 p = pbuf = expand_env_save(*fnamep);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	422 else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	423 p = pbuf = FullName_save(*fnamep, FALSE);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	424 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	425 else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	426 p = *fnamep;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	427
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	428 has_fullname = 0;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	429
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	430 if (p != NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	431 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	432 if (c == '.')
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	433 {
19299 8b710057093c patch 8.2.0208: fnamemodify() does not apply ":~" when followed by ":." Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	434 size_t namelen;
8b710057093c patch 8.2.0208: fnamemodify() does not apply ":~" when followed by ":." Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	435
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	436 mch_dirname(dirname, MAXPATHL);
19299 8b710057093c patch 8.2.0208: fnamemodify() does not apply ":~" when followed by ":." Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	437 if (has_homerelative)
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	438 {
19299 8b710057093c patch 8.2.0208: fnamemodify() does not apply ":~" when followed by ":." Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	439 s = vim_strsave(dirname);
8b710057093c patch 8.2.0208: fnamemodify() does not apply ":~" when followed by ":." Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	440 if (s != NULL)
8b710057093c patch 8.2.0208: fnamemodify() does not apply ":~" when followed by ":." Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	441 {
8b710057093c patch 8.2.0208: fnamemodify() does not apply ":~" when followed by ":." Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	442 home_replace(NULL, s, dirname, MAXPATHL, TRUE);
8b710057093c patch 8.2.0208: fnamemodify() does not apply ":~" when followed by ":." Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	443 vim_free(s);
8b710057093c patch 8.2.0208: fnamemodify() does not apply ":~" when followed by ":." Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	444 }
8b710057093c patch 8.2.0208: fnamemodify() does not apply ":~" when followed by ":." Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	445 }
8b710057093c patch 8.2.0208: fnamemodify() does not apply ":~" when followed by ":." Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	446 namelen = STRLEN(dirname);
8b710057093c patch 8.2.0208: fnamemodify() does not apply ":~" when followed by ":." Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	447
8b710057093c patch 8.2.0208: fnamemodify() does not apply ":~" when followed by ":." Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	448 // Do not call shorten_fname() here since it removes the prefix
8b710057093c patch 8.2.0208: fnamemodify() does not apply ":~" when followed by ":." Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	449 // even though the path does not have a prefix.
8b710057093c patch 8.2.0208: fnamemodify() does not apply ":~" when followed by ":." Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	450 if (fnamencmp(p, dirname, namelen) == 0)
8b710057093c patch 8.2.0208: fnamemodify() does not apply ":~" when followed by ":." Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	451 {
8b710057093c patch 8.2.0208: fnamemodify() does not apply ":~" when followed by ":." Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	452 p += namelen;
19314 782f410c5df3 patch 8.2.0215: wrong file name shortening Bram Moolenaar <Bram@vim.org> parents: 19301 diff changeset	453 if (vim_ispathsep(*p))
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	454 {
19314 782f410c5df3 patch 8.2.0215: wrong file name shortening Bram Moolenaar <Bram@vim.org> parents: 19301 diff changeset	455 while (p && vim_ispathsep(p))
782f410c5df3 patch 8.2.0215: wrong file name shortening Bram Moolenaar <Bram@vim.org> parents: 19301 diff changeset	456 ++p;
782f410c5df3 patch 8.2.0215: wrong file name shortening Bram Moolenaar <Bram@vim.org> parents: 19301 diff changeset	457 *fnamep = p;
782f410c5df3 patch 8.2.0215: wrong file name shortening Bram Moolenaar <Bram@vim.org> parents: 19301 diff changeset	458 if (pbuf != NULL)
782f410c5df3 patch 8.2.0215: wrong file name shortening Bram Moolenaar <Bram@vim.org> parents: 19301 diff changeset	459 {
782f410c5df3 patch 8.2.0215: wrong file name shortening Bram Moolenaar <Bram@vim.org> parents: 19301 diff changeset	460 // free any allocated file name
782f410c5df3 patch 8.2.0215: wrong file name shortening Bram Moolenaar <Bram@vim.org> parents: 19301 diff changeset	461 vim_free(*bufp);
782f410c5df3 patch 8.2.0215: wrong file name shortening Bram Moolenaar <Bram@vim.org> parents: 19301 diff changeset	462 *bufp = pbuf;
782f410c5df3 patch 8.2.0215: wrong file name shortening Bram Moolenaar <Bram@vim.org> parents: 19301 diff changeset	463 pbuf = NULL;
782f410c5df3 patch 8.2.0215: wrong file name shortening Bram Moolenaar <Bram@vim.org> parents: 19301 diff changeset	464 }
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	465 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	466 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	467 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	468 else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	469 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	470 home_replace(NULL, p, dirname, MAXPATHL, TRUE);
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	471 // Only replace it when it starts with '~'
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	472 if (*dirname == '~')
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	473 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	474 s = vim_strsave(dirname);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	475 if (s != NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	476 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	477 *fnamep = s;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	478 vim_free(*bufp);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	479 *bufp = s;
19299 8b710057093c patch 8.2.0208: fnamemodify() does not apply ":~" when followed by ":." Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	480 has_homerelative = TRUE;
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	481 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	482 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	483 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	484 vim_free(pbuf);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	485 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	486 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	487
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	488 tail = gettail(*fnamep);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	489 fnamelen = (int)STRLEN(fnamep);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	490
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	491 // ":h" - head, remove "/file_name", can be repeated
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	492 // Don't remove the first "/" or "c:\"
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	493 while (src[usedlen] == ':' && src[usedlen + 1] == 'h')
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	494 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	495 valid \|= VALID_HEAD;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	496 *usedlen += 2;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	497 s = get_past_head(*fnamep);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	498 while (tail > s && after_pathsep(s, tail))
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	499 MB_PTR_BACK(*fnamep, tail);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	500 fnamelen = (int)(tail - fnamep);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	501 #ifdef VMS
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	502 if (*fnamelen > 0)
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	503 *fnamelen += 1; // the path separator is part of the path
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	504 #endif
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	505 if (*fnamelen == 0)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	506 {
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	507 // Result is empty. Turn it into "." to make ":cd %:h" work.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	508 p = vim_strsave((char_u *)".");
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	509 if (p == NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	510 return -1;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	511 vim_free(*bufp);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	512 bufp = fnamep = tail = p;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	513 *fnamelen = 1;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	514 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	515 else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	516 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	517 while (tail > s && !after_pathsep(s, tail))
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	518 MB_PTR_BACK(*fnamep, tail);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	519 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	520 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	521
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	522 // ":8" - shortname
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	523 if (src[usedlen] == ':' && src[usedlen + 1] == '8')
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	524 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	525 *usedlen += 2;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	526 #ifdef MSWIN
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	527 has_shortname = 1;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	528 #endif
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	529 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	530
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	531 #ifdef MSWIN
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	532 /*
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	533 * Handle ":8" after we have done 'heads' and before we do 'tails'.
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	534 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	535 if (has_shortname)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	536 {
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	537 // Copy the string if it is shortened by :h and when it wasn't copied
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	538 // yet, because we are going to change it in place. Avoids changing
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	539 // the buffer name for "%:8".
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	540 if (fnamelen < (int)STRLEN(fnamep) \|\| *fnamep == fname_start)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	541 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	542 p = vim_strnsave(fnamep, fnamelen);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	543 if (p == NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	544 return -1;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	545 vim_free(*bufp);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	546 bufp = fnamep = p;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	547 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	548
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	549 // Split into two implementations - makes it easier. First is where
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	550 // there isn't a full name already, second is where there is.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	551 if (!has_fullname && !vim_isAbsName(*fnamep))
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	552 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	553 if (shortpath_for_partial(fnamep, bufp, fnamelen) == FAIL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	554 return -1;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	555 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	556 else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	557 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	558 int l = *fnamelen;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	559
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	560 // Simple case, already have the full-name.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	561 // Nearly always shorter, so try first time.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	562 if (get_short_pathname(fnamep, bufp, &l) == FAIL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	563 return -1;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	564
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	565 if (l == 0)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	566 {
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	567 // Couldn't find the filename, search the paths.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	568 l = *fnamelen;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	569 if (shortpath_for_invalid_fname(fnamep, bufp, &l) == FAIL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	570 return -1;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	571 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	572 *fnamelen = l;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	573 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	574 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	575 #endif // MSWIN
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	576
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	577 // ":t" - tail, just the basename
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	578 if (src[usedlen] == ':' && src[usedlen + 1] == 't')
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	579 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	580 *usedlen += 2;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	581 fnamelen -= (int)(tail - fnamep);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	582 *fnamep = tail;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	583 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	584
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	585 // ":e" - extension, can be repeated
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	586 // ":r" - root, without extension, can be repeated
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	587 while (src[*usedlen] == ':'
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	588 && (src[usedlen + 1] == 'e' \|\| src[usedlen + 1] == 'r'))
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	589 {
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	590 // find a '.' in the tail:
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	591 // - for second :e: before the current fname
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	592 // - otherwise: The last '.'
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	593 if (src[usedlen + 1] == 'e' && fnamep > tail)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	594 s = *fnamep - 2;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	595 else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	596 s = fnamep + fnamelen - 1;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	597 for ( ; s > tail; --s)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	598 if (s[0] == '.')
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	599 break;
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	600 if (src[*usedlen + 1] == 'e') // :e
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	601 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	602 if (s > tail)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	603 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	604 fnamelen += (int)(fnamep - (s + 1));
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	605 *fnamep = s + 1;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	606 #ifdef VMS
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	607 // cut version from the extension
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	608 s = fnamep + fnamelen - 1;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	609 for ( ; s > *fnamep; --s)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	610 if (s[0] == ';')
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	611 break;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	612 if (s > *fnamep)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	613 fnamelen = s - fnamep;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	614 #endif
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	615 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	616 else if (*fnamep <= tail)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	617 *fnamelen = 0;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	618 }
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	619 else // :r
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	620 {
18261 8d09b7f53c71 patch 8.1.2125: fnamemodify() fails when repeating :e Bram Moolenaar <Bram@vim.org> parents: 18251 diff changeset	621 char_u limit = fnamep;
8d09b7f53c71 patch 8.1.2125: fnamemodify() fails when repeating :e Bram Moolenaar <Bram@vim.org> parents: 18251 diff changeset	622
8d09b7f53c71 patch 8.1.2125: fnamemodify() fails when repeating :e Bram Moolenaar <Bram@vim.org> parents: 18251 diff changeset	623 if (limit < tail)
8d09b7f53c71 patch 8.1.2125: fnamemodify() fails when repeating :e Bram Moolenaar <Bram@vim.org> parents: 18251 diff changeset	624 limit = tail;
8d09b7f53c71 patch 8.1.2125: fnamemodify() fails when repeating :e Bram Moolenaar <Bram@vim.org> parents: 18251 diff changeset	625 if (s > limit) // remove one extension
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	626 fnamelen = (int)(s - fnamep);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	627 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	628 *usedlen += 2;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	629 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	630
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	631 // ":s?pat?foo?" - substitute
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	632 // ":gs?pat?foo?" - global substitute
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	633 if (src[*usedlen] == ':'
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	634 && (src[*usedlen + 1] == 's'
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	635 \|\| (src[usedlen + 1] == 'g' && src[usedlen + 2] == 's')))
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	636 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	637 char_u *str;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	638 char_u *pat;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	639 char_u *sub;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	640 int sep;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	641 char_u *flags;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	642 int didit = FALSE;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	643
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	644 flags = (char_u *)"";
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	645 s = src + *usedlen + 2;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	646 if (src[*usedlen + 1] == 'g')
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	647 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	648 flags = (char_u *)"g";
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	649 ++s;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	650 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	651
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	652 sep = *s++;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	653 if (sep)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	654 {
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	655 // find end of pattern
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	656 p = vim_strchr(s, sep);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	657 if (p != NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	658 {
20830 9064044fd4f6 patch 8.2.0967: unnecessary type casts for vim_strnsave() Bram Moolenaar <Bram@vim.org> parents: 20780 diff changeset	659 pat = vim_strnsave(s, p - s);
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	660 if (pat != NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	661 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	662 s = p + 1;
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	663 // find end of substitution
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	664 p = vim_strchr(s, sep);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	665 if (p != NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	666 {
20830 9064044fd4f6 patch 8.2.0967: unnecessary type casts for vim_strnsave() Bram Moolenaar <Bram@vim.org> parents: 20780 diff changeset	667 sub = vim_strnsave(s, p - s);
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	668 str = vim_strnsave(fnamep, fnamelen);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	669 if (sub != NULL && str != NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	670 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	671 *usedlen = (int)(p + 1 - src);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	672 s = do_string_sub(str, pat, sub, NULL, flags);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	673 if (s != NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	674 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	675 *fnamep = s;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	676 *fnamelen = (int)STRLEN(s);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	677 vim_free(*bufp);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	678 *bufp = s;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	679 didit = TRUE;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	680 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	681 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	682 vim_free(sub);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	683 vim_free(str);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	684 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	685 vim_free(pat);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	686 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	687 }
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	688 // after using ":s", repeat all the modifiers
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	689 if (didit)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	690 goto repeat;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	691 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	692 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	693
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	694 if (src[usedlen] == ':' && src[usedlen + 1] == 'S')
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	695 {
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	696 // vim_strsave_shellescape() needs a NUL terminated string.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	697 c = (fnamep)[fnamelen];
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	698 if (c != NUL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	699 (fnamep)[fnamelen] = NUL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	700 p = vim_strsave_shellescape(*fnamep, FALSE, FALSE);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	701 if (c != NUL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	702 (fnamep)[fnamelen] = c;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	703 if (p == NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	704 return -1;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	705 vim_free(*bufp);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	706 bufp = fnamep = p;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	707 *fnamelen = (int)STRLEN(p);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	708 *usedlen += 2;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	709 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	710
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	711 return valid;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	712 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	713
22389 995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	714 /*
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	715 * Shorten the path of a file from "~/foo/../.bar/fname" to "~/f/../.b/fname"
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	716 * "trim_len" specifies how many characters to keep for each directory.
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	717 * Must be 1 or more.
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	718 * It's done in-place.
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	719 */
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	720 static void
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	721 shorten_dir_len(char_u *str, int trim_len)
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	722 {
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	723 char_u tail, s, *d;
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	724 int skip = FALSE;
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	725 int dirchunk_len = 0;
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	726
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	727 tail = gettail(str);
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	728 d = str;
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	729 for (s = str; ; ++s)
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	730 {
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	731 if (s >= tail) // copy the whole tail
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	732 {
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	733 d++ = s;
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	734 if (*s == NUL)
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	735 break;
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	736 }
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	737 else if (vim_ispathsep(*s)) // copy '/' and next char
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	738 {
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	739 d++ = s;
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	740 skip = FALSE;
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	741 dirchunk_len = 0;
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	742 }
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	743 else if (!skip)
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	744 {
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	745 d++ = s; // copy next char
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	746 if (s != '~' && s != '.') // and leading "~" and "."
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	747 {
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	748 ++dirchunk_len; // only count word chars for the size
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	749
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	750 // keep copying chars until we have our preferred length (or
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	751 // until the above if/else branches move us along)
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	752 if (dirchunk_len >= trim_len)
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	753 skip = TRUE;
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	754 }
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	755
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	756 if (has_mbyte)
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	757 {
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	758 int l = mb_ptr2len(s);
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	759
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	760 while (--l > 0)
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	761 d++ = ++s;
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	762 }
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	763 }
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	764 }
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	765 }
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	766
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	767 /*
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	768 * Shorten the path of a file from "~/foo/../.bar/fname" to "~/f/../.b/fname"
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	769 * It's done in-place.
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	770 */
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	771 void
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	772 shorten_dir(char_u *str)
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	773 {
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	774 shorten_dir_len(str, 1);
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	775 }
995f5e061e27 patch 8.2.1743: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 22385 diff changeset	776
29371 f8b07c537036 patch 9.0.0028: MS-Windows: tests fail if there is a "runtime" directory Bram Moolenaar <Bram@vim.org> parents: 29239 diff changeset	777 /*
f8b07c537036 patch 9.0.0028: MS-Windows: tests fail if there is a "runtime" directory Bram Moolenaar <Bram@vim.org> parents: 29239 diff changeset	778 * Return TRUE if "fname" is a readable file.
f8b07c537036 patch 9.0.0028: MS-Windows: tests fail if there is a "runtime" directory Bram Moolenaar <Bram@vim.org> parents: 29239 diff changeset	779 */
f8b07c537036 patch 9.0.0028: MS-Windows: tests fail if there is a "runtime" directory Bram Moolenaar <Bram@vim.org> parents: 29239 diff changeset	780 int
f8b07c537036 patch 9.0.0028: MS-Windows: tests fail if there is a "runtime" directory Bram Moolenaar <Bram@vim.org> parents: 29239 diff changeset	781 file_is_readable(char_u *fname)
f8b07c537036 patch 9.0.0028: MS-Windows: tests fail if there is a "runtime" directory Bram Moolenaar <Bram@vim.org> parents: 29239 diff changeset	782 {
f8b07c537036 patch 9.0.0028: MS-Windows: tests fail if there is a "runtime" directory Bram Moolenaar <Bram@vim.org> parents: 29239 diff changeset	783 int fd;
f8b07c537036 patch 9.0.0028: MS-Windows: tests fail if there is a "runtime" directory Bram Moolenaar <Bram@vim.org> parents: 29239 diff changeset	784
f8b07c537036 patch 9.0.0028: MS-Windows: tests fail if there is a "runtime" directory Bram Moolenaar <Bram@vim.org> parents: 29239 diff changeset	785 #ifndef O_NONBLOCK
f8b07c537036 patch 9.0.0028: MS-Windows: tests fail if there is a "runtime" directory Bram Moolenaar <Bram@vim.org> parents: 29239 diff changeset	786 # define O_NONBLOCK 0
f8b07c537036 patch 9.0.0028: MS-Windows: tests fail if there is a "runtime" directory Bram Moolenaar <Bram@vim.org> parents: 29239 diff changeset	787 #endif
f8b07c537036 patch 9.0.0028: MS-Windows: tests fail if there is a "runtime" directory Bram Moolenaar <Bram@vim.org> parents: 29239 diff changeset	788 if (*fname && !mch_isdir(fname)
f8b07c537036 patch 9.0.0028: MS-Windows: tests fail if there is a "runtime" directory Bram Moolenaar <Bram@vim.org> parents: 29239 diff changeset	789 && (fd = mch_open((char *)fname, O_RDONLY \| O_NONBLOCK, 0)) >= 0)
f8b07c537036 patch 9.0.0028: MS-Windows: tests fail if there is a "runtime" directory Bram Moolenaar <Bram@vim.org> parents: 29239 diff changeset	790 {
f8b07c537036 patch 9.0.0028: MS-Windows: tests fail if there is a "runtime" directory Bram Moolenaar <Bram@vim.org> parents: 29239 diff changeset	791 close(fd);
f8b07c537036 patch 9.0.0028: MS-Windows: tests fail if there is a "runtime" directory Bram Moolenaar <Bram@vim.org> parents: 29239 diff changeset	792 return TRUE;
f8b07c537036 patch 9.0.0028: MS-Windows: tests fail if there is a "runtime" directory Bram Moolenaar <Bram@vim.org> parents: 29239 diff changeset	793 }
f8b07c537036 patch 9.0.0028: MS-Windows: tests fail if there is a "runtime" directory Bram Moolenaar <Bram@vim.org> parents: 29239 diff changeset	794 return FALSE;
f8b07c537036 patch 9.0.0028: MS-Windows: tests fail if there is a "runtime" directory Bram Moolenaar <Bram@vim.org> parents: 29239 diff changeset	795 }
f8b07c537036 patch 9.0.0028: MS-Windows: tests fail if there is a "runtime" directory Bram Moolenaar <Bram@vim.org> parents: 29239 diff changeset	796
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	797 #if defined(FEAT_EVAL) \|\| defined(PROTO)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	798
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	799 /*
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	800 * "chdir(dir)" function
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	801 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	802 void
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	803 f_chdir(typval_T argvars, typval_T rettv)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	804 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	805 char_u *cwd;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	806 cdscope_T scope = CDSCOPE_GLOBAL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	807
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	808 rettv->v_type = VAR_STRING;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	809 rettv->vval.v_string = NULL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	810
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	811 if (argvars[0].v_type != VAR_STRING)
24250 01b274c3f69b patch 8.2.2666: Vim9: not enough function arguments checked for string Bram Moolenaar <Bram@vim.org> parents: 24246 diff changeset	812 {
19299 8b710057093c patch 8.2.0208: fnamemodify() does not apply ":~" when followed by ":." Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	813 // Returning an empty string means it failed.
20711 d91b8d1e5198 patch 8.2.0909: cannot go back to the previous local directory Bram Moolenaar <Bram@vim.org> parents: 20643 diff changeset	814 // No error message, for historic reasons.
24250 01b274c3f69b patch 8.2.2666: Vim9: not enough function arguments checked for string Bram Moolenaar <Bram@vim.org> parents: 24246 diff changeset	815 if (in_vim9script())
01b274c3f69b patch 8.2.2666: Vim9: not enough function arguments checked for string Bram Moolenaar <Bram@vim.org> parents: 24246 diff changeset	816 (void) check_for_string_arg(argvars, 0);
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	817 return;
24250 01b274c3f69b patch 8.2.2666: Vim9: not enough function arguments checked for string Bram Moolenaar <Bram@vim.org> parents: 24246 diff changeset	818 }
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	819
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	820 // Return the current directory
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	821 cwd = alloc(MAXPATHL);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	822 if (cwd != NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	823 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	824 if (mch_dirname(cwd, MAXPATHL) != FAIL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	825 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	826 #ifdef BACKSLASH_IN_FILENAME
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	827 slash_adjust(cwd);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	828 #endif
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	829 rettv->vval.v_string = vim_strsave(cwd);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	830 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	831 vim_free(cwd);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	832 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	833
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	834 if (curwin->w_localdir != NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	835 scope = CDSCOPE_WINDOW;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	836 else if (curtab->tp_localdir != NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	837 scope = CDSCOPE_TABPAGE;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	838
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	839 if (!changedir_func(argvars[0].vval.v_string, TRUE, scope))
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	840 // Directory change failed
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	841 VIM_CLEAR(rettv->vval.v_string);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	842 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	843
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	844 /*
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	845 * "delete()" function
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	846 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	847 void
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	848 f_delete(typval_T argvars, typval_T rettv)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	849 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	850 char_u nbuf[NUMBUFLEN];
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	851 char_u *name;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	852 char_u *flags;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	853
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	854 rettv->vval.v_number = -1;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	855 if (check_restricted() \|\| check_secure())
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	856 return;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	857
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	858 if (in_vim9script()
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	859 && (check_for_string_arg(argvars, 0) == FAIL
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	860 \|\| check_for_opt_string_arg(argvars, 1) == FAIL))
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	861 return;
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	862
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	863 name = tv_get_string(&argvars[0]);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	864 if (name == NULL \|\| *name == NUL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	865 {
26865 bce848ec8b1b patch 8.2.3961: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26173 diff changeset	866 emsg(_(e_invalid_argument));
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	867 return;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	868 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	869
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	870 if (argvars[1].v_type != VAR_UNKNOWN)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	871 flags = tv_get_string_buf(&argvars[1], nbuf);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	872 else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	873 flags = (char_u *)"";
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	874
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	875 if (*flags == NUL)
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	876 // delete a file
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	877 rettv->vval.v_number = mch_remove(name) == 0 ? 0 : -1;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	878 else if (STRCMP(flags, "d") == 0)
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	879 // delete an empty directory
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	880 rettv->vval.v_number = mch_rmdir(name) == 0 ? 0 : -1;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	881 else if (STRCMP(flags, "rf") == 0)
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	882 // delete a directory recursively
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	883 rettv->vval.v_number = delete_recursive(name);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	884 else
25064 8f2262c72178 patch 8.2.3069: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 24822 diff changeset	885 semsg(_(e_invalid_expression_str), flags);
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	886 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	887
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	888 /*
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	889 * "executable()" function
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	890 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	891 void
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	892 f_executable(typval_T argvars, typval_T rettv)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	893 {
24246 35603c7991d7 patch 8.2.2664: Vim9: not enough function arguments checked for string Bram Moolenaar <Bram@vim.org> parents: 24210 diff changeset	894 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
23142 5f08d4a42898 patch 8.2.2117: some functions use any value as a string Bram Moolenaar <Bram@vim.org> parents: 22699 diff changeset	895 return;
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	896
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	897 // Check in $PATH and also check directly if there is a directory name.
23142 5f08d4a42898 patch 8.2.2117: some functions use any value as a string Bram Moolenaar <Bram@vim.org> parents: 22699 diff changeset	898 rettv->vval.v_number = mch_can_exe(tv_get_string(&argvars[0]), NULL, TRUE);
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	899 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	900
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	901 /*
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	902 * "exepath()" function
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	903 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	904 void
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	905 f_exepath(typval_T argvars, typval_T rettv)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	906 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	907 char_u *p = NULL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	908
24246 35603c7991d7 patch 8.2.2664: Vim9: not enough function arguments checked for string Bram Moolenaar <Bram@vim.org> parents: 24210 diff changeset	909 if (in_vim9script() && check_for_nonempty_string_arg(argvars, 0) == FAIL)
23142 5f08d4a42898 patch 8.2.2117: some functions use any value as a string Bram Moolenaar <Bram@vim.org> parents: 22699 diff changeset	910 return;
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	911 (void)mch_can_exe(tv_get_string(&argvars[0]), &p, TRUE);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	912 rettv->v_type = VAR_STRING;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	913 rettv->vval.v_string = p;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	914 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	915
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	916 /*
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	917 * "filereadable()" function
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	918 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	919 void
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	920 f_filereadable(typval_T argvars, typval_T rettv)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	921 {
24246 35603c7991d7 patch 8.2.2664: Vim9: not enough function arguments checked for string Bram Moolenaar <Bram@vim.org> parents: 24210 diff changeset	922 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
23142 5f08d4a42898 patch 8.2.2117: some functions use any value as a string Bram Moolenaar <Bram@vim.org> parents: 22699 diff changeset	923 return;
28255 48b9ffd40f38 patch 8.2.4653: "import autoload" does not check the file name Bram Moolenaar <Bram@vim.org> parents: 28021 diff changeset	924 rettv->vval.v_number = file_is_readable(tv_get_string(&argvars[0]));
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	925 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	926
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	927 /*
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	928 * Return 0 for not writable, 1 for writable file, 2 for a dir which we have
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	929 * rights to write into.
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	930 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	931 void
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	932 f_filewritable(typval_T argvars, typval_T rettv)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	933 {
24246 35603c7991d7 patch 8.2.2664: Vim9: not enough function arguments checked for string Bram Moolenaar <Bram@vim.org> parents: 24210 diff changeset	934 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
23142 5f08d4a42898 patch 8.2.2117: some functions use any value as a string Bram Moolenaar <Bram@vim.org> parents: 22699 diff changeset	935 return;
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	936 rettv->vval.v_number = filewritable(tv_get_string(&argvars[0]));
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	937 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	938
18051 d1e77015f60b patch 8.1.2021: some global functions can be local to the file Bram Moolenaar <Bram@vim.org> parents: 17986 diff changeset	939 static void
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	940 findfilendir(
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	941 typval_T *argvars UNUSED,
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	942 typval_T *rettv,
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	943 int find_what UNUSED)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	944 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	945 char_u *fname;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	946 char_u *fresult = NULL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	947 char_u path = curbuf->b_p_path == NUL ? p_path : curbuf->b_p_path;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	948 char_u *p;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	949 char_u pathbuf[NUMBUFLEN];
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	950 int count = 1;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	951 int first = TRUE;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	952 int error = FALSE;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	953
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	954 rettv->vval.v_string = NULL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	955 rettv->v_type = VAR_STRING;
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	956 if (in_vim9script()
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	957 && (check_for_nonempty_string_arg(argvars, 0) == FAIL
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	958 \|\| check_for_opt_string_arg(argvars, 1) == FAIL
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	959 \|\| (argvars[1].v_type != VAR_UNKNOWN
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	960 && check_for_opt_number_arg(argvars, 2) == FAIL)))
23142 5f08d4a42898 patch 8.2.2117: some functions use any value as a string Bram Moolenaar <Bram@vim.org> parents: 22699 diff changeset	961 return;
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	962
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	963 fname = tv_get_string(&argvars[0]);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	964
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	965 if (argvars[1].v_type != VAR_UNKNOWN)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	966 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	967 p = tv_get_string_buf_chk(&argvars[1], pathbuf);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	968 if (p == NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	969 error = TRUE;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	970 else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	971 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	972 if (*p != NUL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	973 path = p;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	974
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	975 if (argvars[2].v_type != VAR_UNKNOWN)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	976 count = (int)tv_get_number_chk(&argvars[2], &error);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	977 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	978 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	979
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	980 if (count < 0 && rettv_list_alloc(rettv) == FAIL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	981 error = TRUE;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	982
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	983 if (*fname != NUL && !error)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	984 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	985 do
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	986 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	987 if (rettv->v_type == VAR_STRING \|\| rettv->v_type == VAR_LIST)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	988 vim_free(fresult);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	989 fresult = find_file_in_path_option(first ? fname : NULL,
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	990 first ? (int)STRLEN(fname) : 0,
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	991 0, first, path,
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	992 find_what,
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	993 curbuf->b_ffname,
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	994 find_what == FINDFILE_DIR
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	995 ? (char_u *)"" : curbuf->b_p_sua);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	996 first = FALSE;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	997
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	998 if (fresult != NULL && rettv->v_type == VAR_LIST)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	999 list_append_string(rettv->vval.v_list, fresult, -1);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1000
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1001 } while ((rettv->v_type == VAR_LIST \|\| --count > 0) && fresult != NULL);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1002 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1003
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1004 if (rettv->v_type == VAR_STRING)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1005 rettv->vval.v_string = fresult;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1006 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1007
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1008 /*
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1009 * "finddir({fname}[, {path}[, {count}]])" function
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1010 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1011 void
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1012 f_finddir(typval_T argvars, typval_T rettv)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1013 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1014 findfilendir(argvars, rettv, FINDFILE_DIR);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1015 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1016
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1017 /*
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1018 * "findfile({fname}[, {path}[, {count}]])" function
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1019 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1020 void
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1021 f_findfile(typval_T argvars, typval_T rettv)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1022 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1023 findfilendir(argvars, rettv, FINDFILE_FILE);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1024 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1025
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1026 /*
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1027 * "fnamemodify({fname}, {mods})" function
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1028 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1029 void
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1030 f_fnamemodify(typval_T argvars, typval_T rettv)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1031 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1032 char_u *fname;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1033 char_u *mods;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1034 int usedlen = 0;
23181 5f69af863502 patch 8.2.2136: Vim9: Using uninitialized variable Bram Moolenaar <Bram@vim.org> parents: 23175 diff changeset	1035 int len = 0;
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1036 char_u *fbuf = NULL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1037 char_u buf[NUMBUFLEN];
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1038
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	1039 if (in_vim9script()
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	1040 && (check_for_string_arg(argvars, 0) == FAIL
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	1041 \|\| check_for_string_arg(argvars, 1) == FAIL))
23142 5f08d4a42898 patch 8.2.2117: some functions use any value as a string Bram Moolenaar <Bram@vim.org> parents: 22699 diff changeset	1042 return;
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	1043
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1044 fname = tv_get_string_chk(&argvars[0]);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1045 mods = tv_get_string_buf_chk(&argvars[1], buf);
23181 5f69af863502 patch 8.2.2136: Vim9: Using uninitialized variable Bram Moolenaar <Bram@vim.org> parents: 23175 diff changeset	1046 if (mods == NULL \|\| fname == NULL)
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1047 fname = NULL;
23181 5f69af863502 patch 8.2.2136: Vim9: Using uninitialized variable Bram Moolenaar <Bram@vim.org> parents: 23175 diff changeset	1048 else
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1049 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1050 len = (int)STRLEN(fname);
23181 5f69af863502 patch 8.2.2136: Vim9: Using uninitialized variable Bram Moolenaar <Bram@vim.org> parents: 23175 diff changeset	1051 if (mods != NULL && *mods != NUL)
5f69af863502 patch 8.2.2136: Vim9: Using uninitialized variable Bram Moolenaar <Bram@vim.org> parents: 23175 diff changeset	1052 (void)modify_fname(mods, FALSE, &usedlen, &fname, &fbuf, &len);
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1053 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1054
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1055 rettv->v_type = VAR_STRING;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1056 if (fname == NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1057 rettv->vval.v_string = NULL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1058 else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1059 rettv->vval.v_string = vim_strnsave(fname, len);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1060 vim_free(fbuf);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1061 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1062
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1063 /*
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1064 * "getcwd()" function
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1065 *
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1066 * Return the current working directory of a window in a tab page.
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1067 * First optional argument 'winnr' is the window number or -1 and the second
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1068 * optional argument 'tabnr' is the tab page number.
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1069 *
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1070 * If no arguments are supplied, then return the directory of the current
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1071 * window.
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1072 * If only 'winnr' is specified and is not -1 or 0 then return the directory of
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1073 * the specified window.
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1074 * If 'winnr' is 0 then return the directory of the current window.
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1075 * If both 'winnr and 'tabnr' are specified and 'winnr' is -1 then return the
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1076 * directory of the specified tab page. Otherwise return the directory of the
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1077 * specified window in the specified tab page.
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1078 * If the window or the tab page doesn't exist then return NULL.
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1079 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1080 void
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1081 f_getcwd(typval_T argvars, typval_T rettv)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1082 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1083 win_T *wp = NULL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1084 tabpage_T *tp = NULL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1085 char_u *cwd;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1086 int global = FALSE;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1087
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1088 rettv->v_type = VAR_STRING;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1089 rettv->vval.v_string = NULL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1090
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	1091 if (in_vim9script()
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	1092 && (check_for_opt_number_arg(argvars, 0) == FAIL
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	1093 \|\| (argvars[0].v_type != VAR_UNKNOWN
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	1094 && check_for_opt_number_arg(argvars, 1) == FAIL)))
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	1095 return;
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	1096
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1097 if (argvars[0].v_type == VAR_NUMBER
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1098 && argvars[0].vval.v_number == -1
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1099 && argvars[1].v_type == VAR_UNKNOWN)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1100 global = TRUE;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1101 else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1102 wp = find_tabwin(&argvars[0], &argvars[1], &tp);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1103
26173 460790b520dd patch 8.2.3618: getcwd() is unclear about how 'autochdir' is used Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1104 if (wp != NULL && wp->w_localdir != NULL
460790b520dd patch 8.2.3618: getcwd() is unclear about how 'autochdir' is used Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1105 && argvars[0].v_type != VAR_UNKNOWN)
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1106 rettv->vval.v_string = vim_strsave(wp->w_localdir);
26173 460790b520dd patch 8.2.3618: getcwd() is unclear about how 'autochdir' is used Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1107 else if (tp != NULL && tp->tp_localdir != NULL
460790b520dd patch 8.2.3618: getcwd() is unclear about how 'autochdir' is used Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1108 && argvars[0].v_type != VAR_UNKNOWN)
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1109 rettv->vval.v_string = vim_strsave(tp->tp_localdir);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1110 else if (wp != NULL \|\| tp != NULL \|\| global)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1111 {
26173 460790b520dd patch 8.2.3618: getcwd() is unclear about how 'autochdir' is used Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	1112 if (globaldir != NULL && argvars[0].v_type != VAR_UNKNOWN)
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1113 rettv->vval.v_string = vim_strsave(globaldir);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1114 else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1115 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1116 cwd = alloc(MAXPATHL);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1117 if (cwd != NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1118 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1119 if (mch_dirname(cwd, MAXPATHL) != FAIL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1120 rettv->vval.v_string = vim_strsave(cwd);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1121 vim_free(cwd);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1122 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1123 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1124 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1125 #ifdef BACKSLASH_IN_FILENAME
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1126 if (rettv->vval.v_string != NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1127 slash_adjust(rettv->vval.v_string);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1128 #endif
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1129 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1130
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1131 /*
20643 c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1132 * Convert "st" to file permission string.
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1133 */
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1134 char_u *
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1135 getfpermst(stat_T st, char_u perm)
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1136 {
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1137 char_u flags[] = "rwx";
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1138 int i;
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1139
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1140 for (i = 0; i < 9; i++)
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1141 {
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1142 if (st->st_mode & (1 << (8 - i)))
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1143 perm[i] = flags[i % 3];
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1144 else
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1145 perm[i] = '-';
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1146 }
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1147 return perm;
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1148 }
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1149
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1150 /*
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1151 * "getfperm({fname})" function
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1152 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1153 void
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1154 f_getfperm(typval_T argvars, typval_T rettv)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1155 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1156 char_u *fname;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1157 stat_T st;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1158 char_u *perm = NULL;
20643 c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1159 char_u permbuf[] = "---------";
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1160
24246 35603c7991d7 patch 8.2.2664: Vim9: not enough function arguments checked for string Bram Moolenaar <Bram@vim.org> parents: 24210 diff changeset	1161 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
23142 5f08d4a42898 patch 8.2.2117: some functions use any value as a string Bram Moolenaar <Bram@vim.org> parents: 22699 diff changeset	1162 return;
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	1163
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1164 fname = tv_get_string(&argvars[0]);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1165
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1166 rettv->v_type = VAR_STRING;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1167 if (mch_stat((char *)fname, &st) >= 0)
20643 c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1168 perm = vim_strsave(getfpermst(&st, permbuf));
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1169 rettv->vval.v_string = perm;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1170 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1171
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1172 /*
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1173 * "getfsize({fname})" function
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1174 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1175 void
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1176 f_getfsize(typval_T argvars, typval_T rettv)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1177 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1178 char_u *fname;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1179 stat_T st;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1180
24246 35603c7991d7 patch 8.2.2664: Vim9: not enough function arguments checked for string Bram Moolenaar <Bram@vim.org> parents: 24210 diff changeset	1181 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
23142 5f08d4a42898 patch 8.2.2117: some functions use any value as a string Bram Moolenaar <Bram@vim.org> parents: 22699 diff changeset	1182 return;
5f08d4a42898 patch 8.2.2117: some functions use any value as a string Bram Moolenaar <Bram@vim.org> parents: 22699 diff changeset	1183
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1184 fname = tv_get_string(&argvars[0]);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1185 if (mch_stat((char *)fname, &st) >= 0)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1186 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1187 if (mch_isdir(fname))
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1188 rettv->vval.v_number = 0;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1189 else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1190 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1191 rettv->vval.v_number = (varnumber_T)st.st_size;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1192
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1193 // non-perfect check for overflow
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1194 if ((off_T)rettv->vval.v_number != (off_T)st.st_size)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1195 rettv->vval.v_number = -2;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1196 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1197 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1198 else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1199 rettv->vval.v_number = -1;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1200 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1201
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1202 /*
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1203 * "getftime({fname})" function
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1204 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1205 void
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1206 f_getftime(typval_T argvars, typval_T rettv)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1207 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1208 char_u *fname;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1209 stat_T st;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1210
24246 35603c7991d7 patch 8.2.2664: Vim9: not enough function arguments checked for string Bram Moolenaar <Bram@vim.org> parents: 24210 diff changeset	1211 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
23142 5f08d4a42898 patch 8.2.2117: some functions use any value as a string Bram Moolenaar <Bram@vim.org> parents: 22699 diff changeset	1212 return;
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	1213
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1214 fname = tv_get_string(&argvars[0]);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1215 if (mch_stat((char *)fname, &st) >= 0)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1216 rettv->vval.v_number = (varnumber_T)st.st_mtime;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1217 else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1218 rettv->vval.v_number = -1;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1219 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1220
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1221 /*
20643 c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1222 * Convert "st" to file type string.
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1223 */
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1224 char_u *
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1225 getftypest(stat_T *st)
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1226 {
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1227 char *t;
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1228
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1229 if (S_ISREG(st->st_mode))
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1230 t = "file";
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1231 else if (S_ISDIR(st->st_mode))
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1232 t = "dir";
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1233 else if (S_ISLNK(st->st_mode))
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1234 t = "link";
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1235 else if (S_ISBLK(st->st_mode))
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1236 t = "bdev";
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1237 else if (S_ISCHR(st->st_mode))
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1238 t = "cdev";
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1239 else if (S_ISFIFO(st->st_mode))
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1240 t = "fifo";
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1241 else if (S_ISSOCK(st->st_mode))
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1242 t = "socket";
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1243 else
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1244 t = "other";
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1245 return (char_u*)t;
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1246 }
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1247
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1248 /*
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1249 * "getftype({fname})" function
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1250 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1251 void
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1252 f_getftype(typval_T argvars, typval_T rettv)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1253 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1254 char_u *fname;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1255 stat_T st;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1256 char_u *type = NULL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1257
24246 35603c7991d7 patch 8.2.2664: Vim9: not enough function arguments checked for string Bram Moolenaar <Bram@vim.org> parents: 24210 diff changeset	1258 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
23142 5f08d4a42898 patch 8.2.2117: some functions use any value as a string Bram Moolenaar <Bram@vim.org> parents: 22699 diff changeset	1259 return;
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	1260
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1261 fname = tv_get_string(&argvars[0]);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1262
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1263 rettv->v_type = VAR_STRING;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1264 if (mch_lstat((char *)fname, &st) >= 0)
20643 c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1265 type = vim_strsave(getftypest(&st));
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1266 rettv->vval.v_string = type;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1267 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1268
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1269 /*
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1270 * "glob()" function
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1271 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1272 void
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1273 f_glob(typval_T argvars, typval_T rettv)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1274 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1275 int options = WILD_SILENT\|WILD_USE_NL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1276 expand_T xpc;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1277 int error = FALSE;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1278
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	1279 if (in_vim9script()
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	1280 && (check_for_string_arg(argvars, 0) == FAIL
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	1281 \|\| check_for_opt_bool_arg(argvars, 1) == FAIL
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	1282 \|\| (argvars[1].v_type != VAR_UNKNOWN
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	1283 && (check_for_opt_bool_arg(argvars, 2) == FAIL
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	1284 \|\| (argvars[2].v_type != VAR_UNKNOWN
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	1285 && check_for_opt_bool_arg(argvars, 3) == FAIL)))))
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	1286 return;
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	1287
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1288 // When the optional second argument is non-zero, don't remove matches
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1289 // for 'wildignore' and don't put matches for 'suffixes' at the end.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1290 rettv->v_type = VAR_STRING;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1291 if (argvars[1].v_type != VAR_UNKNOWN)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1292 {
22049 2b04c5bf4dc3 patch 8.2.1574: Vim9: glob() doesnot take "true" as argument Bram Moolenaar <Bram@vim.org> parents: 21873 diff changeset	1293 if (tv_get_bool_chk(&argvars[1], &error))
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1294 options \|= WILD_KEEP_ALL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1295 if (argvars[2].v_type != VAR_UNKNOWN)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1296 {
22049 2b04c5bf4dc3 patch 8.2.1574: Vim9: glob() doesnot take "true" as argument Bram Moolenaar <Bram@vim.org> parents: 21873 diff changeset	1297 if (tv_get_bool_chk(&argvars[2], &error))
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1298 rettv_list_set(rettv, NULL);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1299 if (argvars[3].v_type != VAR_UNKNOWN
22049 2b04c5bf4dc3 patch 8.2.1574: Vim9: glob() doesnot take "true" as argument Bram Moolenaar <Bram@vim.org> parents: 21873 diff changeset	1300 && tv_get_bool_chk(&argvars[3], &error))
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1301 options \|= WILD_ALLLINKS;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1302 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1303 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1304 if (!error)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1305 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1306 ExpandInit(&xpc);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1307 xpc.xp_context = EXPAND_FILES;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1308 if (p_wic)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1309 options += WILD_ICASE;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1310 if (rettv->v_type == VAR_STRING)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1311 rettv->vval.v_string = ExpandOne(&xpc, tv_get_string(&argvars[0]),
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1312 NULL, options, WILD_ALL);
29239 da56650de132 patch 8.2.5138: various small issues Bram Moolenaar <Bram@vim.org> parents: 29113 diff changeset	1313 else if (rettv_list_alloc(rettv) == OK)
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1314 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1315 int i;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1316
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1317 ExpandOne(&xpc, tv_get_string(&argvars[0]),
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1318 NULL, options, WILD_ALL_KEEP);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1319 for (i = 0; i < xpc.xp_numfiles; i++)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1320 list_append_string(rettv->vval.v_list, xpc.xp_files[i], -1);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1321
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1322 ExpandCleanup(&xpc);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1323 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1324 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1325 else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1326 rettv->vval.v_string = NULL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1327 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1328
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1329 /*
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1330 * "glob2regpat()" function
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1331 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1332 void
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1333 f_glob2regpat(typval_T argvars, typval_T rettv)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1334 {
24822 5f8dd7b3ae41 patch 8.2.2949: tests failing because no error for float to string conversion Bram Moolenaar <Bram@vim.org> parents: 24250 diff changeset	1335 char_u buf[NUMBUFLEN];
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	1336 char_u *pat;
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	1337
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	1338 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	1339 return;
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	1340
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	1341 pat = tv_get_string_buf_chk_strict(&argvars[0], buf, in_vim9script());
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1342 rettv->v_type = VAR_STRING;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1343 rettv->vval.v_string = (pat == NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1344 ? NULL : file_pat_to_reg_pat(pat, NULL, NULL, FALSE);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1345 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1346
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1347 /*
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1348 * "globpath()" function
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1349 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1350 void
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1351 f_globpath(typval_T argvars, typval_T rettv)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1352 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1353 int flags = WILD_IGNORE_COMPLETESLASH;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1354 char_u buf1[NUMBUFLEN];
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	1355 char_u *file;
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1356 int error = FALSE;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1357 garray_T ga;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1358 int i;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1359
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	1360 if (in_vim9script()
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	1361 && (check_for_string_arg(argvars, 0) == FAIL
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	1362 \|\| check_for_string_arg(argvars, 1) == FAIL
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	1363 \|\| check_for_opt_bool_arg(argvars, 2) == FAIL
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	1364 \|\| (argvars[2].v_type != VAR_UNKNOWN
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	1365 && (check_for_opt_bool_arg(argvars, 3) == FAIL
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	1366 \|\| (argvars[3].v_type != VAR_UNKNOWN
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	1367 && check_for_opt_bool_arg(argvars, 4) == FAIL)))))
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	1368 return;
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	1369
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	1370 file = tv_get_string_buf_chk(&argvars[1], buf1);
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	1371
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1372 // When the optional second argument is non-zero, don't remove matches
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1373 // for 'wildignore' and don't put matches for 'suffixes' at the end.
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1374 rettv->v_type = VAR_STRING;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1375 if (argvars[2].v_type != VAR_UNKNOWN)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1376 {
22051 342bcb9f7d34 patch 8.2.1575: Vim9: globpath() doesnot take "true" as argument Bram Moolenaar <Bram@vim.org> parents: 22049 diff changeset	1377 if (tv_get_bool_chk(&argvars[2], &error))
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1378 flags \|= WILD_KEEP_ALL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1379 if (argvars[3].v_type != VAR_UNKNOWN)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1380 {
22051 342bcb9f7d34 patch 8.2.1575: Vim9: globpath() doesnot take "true" as argument Bram Moolenaar <Bram@vim.org> parents: 22049 diff changeset	1381 if (tv_get_bool_chk(&argvars[3], &error))
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1382 rettv_list_set(rettv, NULL);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1383 if (argvars[4].v_type != VAR_UNKNOWN
22051 342bcb9f7d34 patch 8.2.1575: Vim9: globpath() doesnot take "true" as argument Bram Moolenaar <Bram@vim.org> parents: 22049 diff changeset	1384 && tv_get_bool_chk(&argvars[4], &error))
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1385 flags \|= WILD_ALLLINKS;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1386 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1387 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1388 if (file != NULL && !error)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1389 {
27028 c9474ae175f4 patch 8.2.4043: using int for second argument of ga_init2() Bram Moolenaar <Bram@vim.org> parents: 26952 diff changeset	1390 ga_init2(&ga, sizeof(char_u *), 10);
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1391 globpath(tv_get_string(&argvars[0]), file, &ga, flags);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1392 if (rettv->v_type == VAR_STRING)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1393 rettv->vval.v_string = ga_concat_strings(&ga, "\n");
29239 da56650de132 patch 8.2.5138: various small issues Bram Moolenaar <Bram@vim.org> parents: 29113 diff changeset	1394 else if (rettv_list_alloc(rettv) == OK)
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1395 for (i = 0; i < ga.ga_len; ++i)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1396 list_append_string(rettv->vval.v_list,
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1397 ((char_u **)(ga.ga_data))[i], -1);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1398 ga_clear_strings(&ga);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1399 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1400 else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1401 rettv->vval.v_string = NULL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1402 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1403
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1404 /*
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1405 * "isdirectory()" function
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1406 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1407 void
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1408 f_isdirectory(typval_T argvars, typval_T rettv)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1409 {
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	1410 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	1411 return;
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	1412
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1413 rettv->vval.v_number = mch_isdir(tv_get_string(&argvars[0]));
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1414 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1415
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1416 /*
28629 5ef46b938c6e patch 8.2.4838: checking for absolute path is not trivial Bram Moolenaar <Bram@vim.org> parents: 28315 diff changeset	1417 * "isabsolutepath()" function
5ef46b938c6e patch 8.2.4838: checking for absolute path is not trivial Bram Moolenaar <Bram@vim.org> parents: 28315 diff changeset	1418 */
5ef46b938c6e patch 8.2.4838: checking for absolute path is not trivial Bram Moolenaar <Bram@vim.org> parents: 28315 diff changeset	1419 void
5ef46b938c6e patch 8.2.4838: checking for absolute path is not trivial Bram Moolenaar <Bram@vim.org> parents: 28315 diff changeset	1420 f_isabsolutepath(typval_T argvars, typval_T rettv)
5ef46b938c6e patch 8.2.4838: checking for absolute path is not trivial Bram Moolenaar <Bram@vim.org> parents: 28315 diff changeset	1421 {
5ef46b938c6e patch 8.2.4838: checking for absolute path is not trivial Bram Moolenaar <Bram@vim.org> parents: 28315 diff changeset	1422 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
5ef46b938c6e patch 8.2.4838: checking for absolute path is not trivial Bram Moolenaar <Bram@vim.org> parents: 28315 diff changeset	1423 return;
5ef46b938c6e patch 8.2.4838: checking for absolute path is not trivial Bram Moolenaar <Bram@vim.org> parents: 28315 diff changeset	1424
5ef46b938c6e patch 8.2.4838: checking for absolute path is not trivial Bram Moolenaar <Bram@vim.org> parents: 28315 diff changeset	1425 rettv->vval.v_number = mch_isFullName(tv_get_string_strict(&argvars[0]));
5ef46b938c6e patch 8.2.4838: checking for absolute path is not trivial Bram Moolenaar <Bram@vim.org> parents: 28315 diff changeset	1426 }
5ef46b938c6e patch 8.2.4838: checking for absolute path is not trivial Bram Moolenaar <Bram@vim.org> parents: 28315 diff changeset	1427
5ef46b938c6e patch 8.2.4838: checking for absolute path is not trivial Bram Moolenaar <Bram@vim.org> parents: 28315 diff changeset	1428 /*
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1429 * Create the directory in which "dir" is located, and higher levels when
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1430 * needed.
30150 0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1431 * Set "created" to the full name of the first created directory. It will be
0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1432 * NULL until that happens.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1433 * Return OK or FAIL.
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1434 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1435 static int
30150 0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1436 mkdir_recurse(char_u dir, int prot, char_u *created)
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1437 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1438 char_u *p;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1439 char_u *updir;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1440 int r = FAIL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1441
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1442 // Get end of directory name in "dir".
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1443 // We're done when it's "/" or "c:/".
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1444 p = gettail_sep(dir);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1445 if (p <= get_past_head(dir))
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1446 return OK;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1447
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1448 // If the directory exists we're done. Otherwise: create it.
20830 9064044fd4f6 patch 8.2.0967: unnecessary type casts for vim_strnsave() Bram Moolenaar <Bram@vim.org> parents: 20780 diff changeset	1449 updir = vim_strnsave(dir, p - dir);
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1450 if (updir == NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1451 return FAIL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1452 if (mch_isdir(updir))
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1453 r = OK;
30150 0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1454 else if (mkdir_recurse(updir, prot, created) == OK)
0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1455 {
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1456 r = vim_mkdir_emsg(updir, prot);
30150 0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1457 if (r == OK && created != NULL && *created == NULL)
0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1458 *created = FullName_save(updir, FALSE);
0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1459 }
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1460 vim_free(updir);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1461 return r;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1462 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1463
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1464 /*
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1465 * "mkdir()" function
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1466 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1467 void
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1468 f_mkdir(typval_T argvars, typval_T rettv)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1469 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1470 char_u *dir;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1471 char_u buf[NUMBUFLEN];
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1472 int prot = 0755;
30150 0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1473 int defer = FALSE;
0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1474 int defer_recurse = FALSE;
0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1475 char_u *created = NULL;
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1476
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1477 rettv->vval.v_number = FAIL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1478 if (check_restricted() \|\| check_secure())
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1479 return;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1480
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	1481 if (in_vim9script()
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	1482 && (check_for_nonempty_string_arg(argvars, 0) == FAIL
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	1483 \|\| check_for_opt_string_arg(argvars, 1) == FAIL
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	1484 \|\| (argvars[1].v_type != VAR_UNKNOWN
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	1485 && check_for_opt_number_arg(argvars, 2) == FAIL)))
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	1486 return;
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	1487
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1488 dir = tv_get_string_buf(&argvars[0], buf);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1489 if (*dir == NUL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1490 return;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1491
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1492 if (*gettail(dir) == NUL)
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1493 // remove trailing slashes
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1494 *gettail_sep(dir) = NUL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1495
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1496 if (argvars[1].v_type != VAR_UNKNOWN)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1497 {
30150 0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1498 char_u *arg2;
0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1499
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1500 if (argvars[2].v_type != VAR_UNKNOWN)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1501 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1502 prot = (int)tv_get_number_chk(&argvars[2], NULL);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1503 if (prot == -1)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1504 return;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1505 }
30150 0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1506 arg2 = tv_get_string(&argvars[1]);
0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1507 defer = vim_strchr(arg2, 'D') != NULL;
0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1508 defer_recurse = vim_strchr(arg2, 'R') != NULL;
0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1509 if ((defer \|\| defer_recurse) && !can_add_defer())
0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1510 return;
0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1511
0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1512 if (vim_strchr(arg2, 'p') != NULL)
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1513 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1514 if (mch_isdir(dir))
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1515 {
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1516 // With the "p" flag it's OK if the dir already exists.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1517 rettv->vval.v_number = OK;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1518 return;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1519 }
30150 0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1520 mkdir_recurse(dir, prot, defer \|\| defer_recurse ? &created : NULL);
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1521 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1522 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1523 rettv->vval.v_number = vim_mkdir_emsg(dir, prot);
30150 0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1524
0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1525 // Handle "D" and "R": deferred deletion of the created directory.
0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1526 if (rettv->vval.v_number == OK
0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1527 && created == NULL && (defer \|\| defer_recurse))
0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1528 created = FullName_save(dir, FALSE);
0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1529 if (created != NULL)
0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1530 {
0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1531 typval_T tv[2];
0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1532
0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1533 tv[0].v_type = VAR_STRING;
0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1534 tv[0].v_lock = 0;
0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1535 tv[0].vval.v_string = created;
0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1536 tv[1].v_type = VAR_STRING;
0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1537 tv[1].v_lock = 0;
0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1538 tv[1].vval.v_string = vim_strsave(
0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1539 (char_u *)(defer_recurse ? "rf" : "d"));
0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1540 if (tv[0].vval.v_string == NULL \|\| tv[1].vval.v_string == NULL
0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1541 \|\| add_defer((char_u *)"delete", 2, tv) == FAIL)
0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1542 {
0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1543 vim_free(tv[0].vval.v_string);
0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1544 vim_free(tv[1].vval.v_string);
0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1545 }
0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	1546 }
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1547 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1548
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1549 /*
17986 5c8906f653f5 patch 8.1.1989: the evalfunc.c file is still too big Bram Moolenaar <Bram@vim.org> parents: 17978 diff changeset	1550 * "pathshorten()" function
5c8906f653f5 patch 8.1.1989: the evalfunc.c file is still too big Bram Moolenaar <Bram@vim.org> parents: 17978 diff changeset	1551 */
5c8906f653f5 patch 8.1.1989: the evalfunc.c file is still too big Bram Moolenaar <Bram@vim.org> parents: 17978 diff changeset	1552 void
5c8906f653f5 patch 8.1.1989: the evalfunc.c file is still too big Bram Moolenaar <Bram@vim.org> parents: 17978 diff changeset	1553 f_pathshorten(typval_T argvars, typval_T rettv)
5c8906f653f5 patch 8.1.1989: the evalfunc.c file is still too big Bram Moolenaar <Bram@vim.org> parents: 17978 diff changeset	1554 {
5c8906f653f5 patch 8.1.1989: the evalfunc.c file is still too big Bram Moolenaar <Bram@vim.org> parents: 17978 diff changeset	1555 char_u *p;
22385 770fe121ca64 patch 8.2.1741: pathshorten() only supports using one character Bram Moolenaar <Bram@vim.org> parents: 22051 diff changeset	1556 int trim_len = 1;
770fe121ca64 patch 8.2.1741: pathshorten() only supports using one character Bram Moolenaar <Bram@vim.org> parents: 22051 diff changeset	1557
25252 acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	1558 if (in_vim9script()
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	1559 && (check_for_string_arg(argvars, 0) == FAIL
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	1560 \|\| check_for_opt_number_arg(argvars, 1) == FAIL))
25252 acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	1561 return;
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	1562
22385 770fe121ca64 patch 8.2.1741: pathshorten() only supports using one character Bram Moolenaar <Bram@vim.org> parents: 22051 diff changeset	1563 if (argvars[1].v_type != VAR_UNKNOWN)
770fe121ca64 patch 8.2.1741: pathshorten() only supports using one character Bram Moolenaar <Bram@vim.org> parents: 22051 diff changeset	1564 {
770fe121ca64 patch 8.2.1741: pathshorten() only supports using one character Bram Moolenaar <Bram@vim.org> parents: 22051 diff changeset	1565 trim_len = (int)tv_get_number(&argvars[1]);
770fe121ca64 patch 8.2.1741: pathshorten() only supports using one character Bram Moolenaar <Bram@vim.org> parents: 22051 diff changeset	1566 if (trim_len < 1)
770fe121ca64 patch 8.2.1741: pathshorten() only supports using one character Bram Moolenaar <Bram@vim.org> parents: 22051 diff changeset	1567 trim_len = 1;
770fe121ca64 patch 8.2.1741: pathshorten() only supports using one character Bram Moolenaar <Bram@vim.org> parents: 22051 diff changeset	1568 }
17986 5c8906f653f5 patch 8.1.1989: the evalfunc.c file is still too big Bram Moolenaar <Bram@vim.org> parents: 17978 diff changeset	1569
5c8906f653f5 patch 8.1.1989: the evalfunc.c file is still too big Bram Moolenaar <Bram@vim.org> parents: 17978 diff changeset	1570 rettv->v_type = VAR_STRING;
5c8906f653f5 patch 8.1.1989: the evalfunc.c file is still too big Bram Moolenaar <Bram@vim.org> parents: 17978 diff changeset	1571 p = tv_get_string_chk(&argvars[0]);
22385 770fe121ca64 patch 8.2.1741: pathshorten() only supports using one character Bram Moolenaar <Bram@vim.org> parents: 22051 diff changeset	1572
17986 5c8906f653f5 patch 8.1.1989: the evalfunc.c file is still too big Bram Moolenaar <Bram@vim.org> parents: 17978 diff changeset	1573 if (p == NULL)
5c8906f653f5 patch 8.1.1989: the evalfunc.c file is still too big Bram Moolenaar <Bram@vim.org> parents: 17978 diff changeset	1574 rettv->vval.v_string = NULL;
5c8906f653f5 patch 8.1.1989: the evalfunc.c file is still too big Bram Moolenaar <Bram@vim.org> parents: 17978 diff changeset	1575 else
5c8906f653f5 patch 8.1.1989: the evalfunc.c file is still too big Bram Moolenaar <Bram@vim.org> parents: 17978 diff changeset	1576 {
5c8906f653f5 patch 8.1.1989: the evalfunc.c file is still too big Bram Moolenaar <Bram@vim.org> parents: 17978 diff changeset	1577 p = vim_strsave(p);
5c8906f653f5 patch 8.1.1989: the evalfunc.c file is still too big Bram Moolenaar <Bram@vim.org> parents: 17978 diff changeset	1578 rettv->vval.v_string = p;
5c8906f653f5 patch 8.1.1989: the evalfunc.c file is still too big Bram Moolenaar <Bram@vim.org> parents: 17978 diff changeset	1579 if (p != NULL)
22385 770fe121ca64 patch 8.2.1741: pathshorten() only supports using one character Bram Moolenaar <Bram@vim.org> parents: 22051 diff changeset	1580 shorten_dir_len(p, trim_len);
17986 5c8906f653f5 patch 8.1.1989: the evalfunc.c file is still too big Bram Moolenaar <Bram@vim.org> parents: 17978 diff changeset	1581 }
5c8906f653f5 patch 8.1.1989: the evalfunc.c file is still too big Bram Moolenaar <Bram@vim.org> parents: 17978 diff changeset	1582 }
5c8906f653f5 patch 8.1.1989: the evalfunc.c file is still too big Bram Moolenaar <Bram@vim.org> parents: 17978 diff changeset	1583
5c8906f653f5 patch 8.1.1989: the evalfunc.c file is still too big Bram Moolenaar <Bram@vim.org> parents: 17978 diff changeset	1584 /*
21873 62e61424482f patch 8.2.1486: Vim9: readdir() expression doesn't accept bool Bram Moolenaar <Bram@vim.org> parents: 21871 diff changeset	1585 * Common code for readdir_checkitem() and readdirex_checkitem().
62e61424482f patch 8.2.1486: Vim9: readdir() expression doesn't accept bool Bram Moolenaar <Bram@vim.org> parents: 21871 diff changeset	1586 * Either "name" or "dict" is NULL.
19301 80baa37506d0 patch 8.2.0209: function a bit far away from where it's used Bram Moolenaar <Bram@vim.org> parents: 19299 diff changeset	1587 */
80baa37506d0 patch 8.2.0209: function a bit far away from where it's used Bram Moolenaar <Bram@vim.org> parents: 19299 diff changeset	1588 static int
21873 62e61424482f patch 8.2.1486: Vim9: readdir() expression doesn't accept bool Bram Moolenaar <Bram@vim.org> parents: 21871 diff changeset	1589 checkitem_common(void context, char_u name, dict_T *dict)
19301 80baa37506d0 patch 8.2.0209: function a bit far away from where it's used Bram Moolenaar <Bram@vim.org> parents: 19299 diff changeset	1590 {
80baa37506d0 patch 8.2.0209: function a bit far away from where it's used Bram Moolenaar <Bram@vim.org> parents: 19299 diff changeset	1591 typval_T expr = (typval_T )context;
80baa37506d0 patch 8.2.0209: function a bit far away from where it's used Bram Moolenaar <Bram@vim.org> parents: 19299 diff changeset	1592 typval_T save_val;
80baa37506d0 patch 8.2.0209: function a bit far away from where it's used Bram Moolenaar <Bram@vim.org> parents: 19299 diff changeset	1593 typval_T rettv;
80baa37506d0 patch 8.2.0209: function a bit far away from where it's used Bram Moolenaar <Bram@vim.org> parents: 19299 diff changeset	1594 typval_T argv[2];
80baa37506d0 patch 8.2.0209: function a bit far away from where it's used Bram Moolenaar <Bram@vim.org> parents: 19299 diff changeset	1595 int retval = 0;
80baa37506d0 patch 8.2.0209: function a bit far away from where it's used Bram Moolenaar <Bram@vim.org> parents: 19299 diff changeset	1596 int error = FALSE;
80baa37506d0 patch 8.2.0209: function a bit far away from where it's used Bram Moolenaar <Bram@vim.org> parents: 19299 diff changeset	1597
80baa37506d0 patch 8.2.0209: function a bit far away from where it's used Bram Moolenaar <Bram@vim.org> parents: 19299 diff changeset	1598 prepare_vimvar(VV_VAL, &save_val);
21873 62e61424482f patch 8.2.1486: Vim9: readdir() expression doesn't accept bool Bram Moolenaar <Bram@vim.org> parents: 21871 diff changeset	1599 if (name != NULL)
62e61424482f patch 8.2.1486: Vim9: readdir() expression doesn't accept bool Bram Moolenaar <Bram@vim.org> parents: 21871 diff changeset	1600 {
62e61424482f patch 8.2.1486: Vim9: readdir() expression doesn't accept bool Bram Moolenaar <Bram@vim.org> parents: 21871 diff changeset	1601 set_vim_var_string(VV_VAL, name, -1);
62e61424482f patch 8.2.1486: Vim9: readdir() expression doesn't accept bool Bram Moolenaar <Bram@vim.org> parents: 21871 diff changeset	1602 argv[0].v_type = VAR_STRING;
62e61424482f patch 8.2.1486: Vim9: readdir() expression doesn't accept bool Bram Moolenaar <Bram@vim.org> parents: 21871 diff changeset	1603 argv[0].vval.v_string = name;
62e61424482f patch 8.2.1486: Vim9: readdir() expression doesn't accept bool Bram Moolenaar <Bram@vim.org> parents: 21871 diff changeset	1604 }
62e61424482f patch 8.2.1486: Vim9: readdir() expression doesn't accept bool Bram Moolenaar <Bram@vim.org> parents: 21871 diff changeset	1605 else
62e61424482f patch 8.2.1486: Vim9: readdir() expression doesn't accept bool Bram Moolenaar <Bram@vim.org> parents: 21871 diff changeset	1606 {
62e61424482f patch 8.2.1486: Vim9: readdir() expression doesn't accept bool Bram Moolenaar <Bram@vim.org> parents: 21871 diff changeset	1607 set_vim_var_dict(VV_VAL, dict);
62e61424482f patch 8.2.1486: Vim9: readdir() expression doesn't accept bool Bram Moolenaar <Bram@vim.org> parents: 21871 diff changeset	1608 argv[0].v_type = VAR_DICT;
62e61424482f patch 8.2.1486: Vim9: readdir() expression doesn't accept bool Bram Moolenaar <Bram@vim.org> parents: 21871 diff changeset	1609 argv[0].vval.v_dict = dict;
62e61424482f patch 8.2.1486: Vim9: readdir() expression doesn't accept bool Bram Moolenaar <Bram@vim.org> parents: 21871 diff changeset	1610 }
19301 80baa37506d0 patch 8.2.0209: function a bit far away from where it's used Bram Moolenaar <Bram@vim.org> parents: 19299 diff changeset	1611
80baa37506d0 patch 8.2.0209: function a bit far away from where it's used Bram Moolenaar <Bram@vim.org> parents: 19299 diff changeset	1612 if (eval_expr_typval(expr, argv, 1, &rettv) == FAIL)
80baa37506d0 patch 8.2.0209: function a bit far away from where it's used Bram Moolenaar <Bram@vim.org> parents: 19299 diff changeset	1613 goto theend;
80baa37506d0 patch 8.2.0209: function a bit far away from where it's used Bram Moolenaar <Bram@vim.org> parents: 19299 diff changeset	1614
21873 62e61424482f patch 8.2.1486: Vim9: readdir() expression doesn't accept bool Bram Moolenaar <Bram@vim.org> parents: 21871 diff changeset	1615 // We want to use -1, but also true/false should be allowed.
62e61424482f patch 8.2.1486: Vim9: readdir() expression doesn't accept bool Bram Moolenaar <Bram@vim.org> parents: 21871 diff changeset	1616 if (rettv.v_type == VAR_SPECIAL \|\| rettv.v_type == VAR_BOOL)
62e61424482f patch 8.2.1486: Vim9: readdir() expression doesn't accept bool Bram Moolenaar <Bram@vim.org> parents: 21871 diff changeset	1617 {
62e61424482f patch 8.2.1486: Vim9: readdir() expression doesn't accept bool Bram Moolenaar <Bram@vim.org> parents: 21871 diff changeset	1618 rettv.v_type = VAR_NUMBER;
62e61424482f patch 8.2.1486: Vim9: readdir() expression doesn't accept bool Bram Moolenaar <Bram@vim.org> parents: 21871 diff changeset	1619 rettv.vval.v_number = rettv.vval.v_number == VVAL_TRUE;
62e61424482f patch 8.2.1486: Vim9: readdir() expression doesn't accept bool Bram Moolenaar <Bram@vim.org> parents: 21871 diff changeset	1620 }
19301 80baa37506d0 patch 8.2.0209: function a bit far away from where it's used Bram Moolenaar <Bram@vim.org> parents: 19299 diff changeset	1621 retval = tv_get_number_chk(&rettv, &error);
80baa37506d0 patch 8.2.0209: function a bit far away from where it's used Bram Moolenaar <Bram@vim.org> parents: 19299 diff changeset	1622 if (error)
80baa37506d0 patch 8.2.0209: function a bit far away from where it's used Bram Moolenaar <Bram@vim.org> parents: 19299 diff changeset	1623 retval = -1;
80baa37506d0 patch 8.2.0209: function a bit far away from where it's used Bram Moolenaar <Bram@vim.org> parents: 19299 diff changeset	1624 clear_tv(&rettv);
80baa37506d0 patch 8.2.0209: function a bit far away from where it's used Bram Moolenaar <Bram@vim.org> parents: 19299 diff changeset	1625
80baa37506d0 patch 8.2.0209: function a bit far away from where it's used Bram Moolenaar <Bram@vim.org> parents: 19299 diff changeset	1626 theend:
21873 62e61424482f patch 8.2.1486: Vim9: readdir() expression doesn't accept bool Bram Moolenaar <Bram@vim.org> parents: 21871 diff changeset	1627 if (name != NULL)
62e61424482f patch 8.2.1486: Vim9: readdir() expression doesn't accept bool Bram Moolenaar <Bram@vim.org> parents: 21871 diff changeset	1628 set_vim_var_string(VV_VAL, NULL, 0);
62e61424482f patch 8.2.1486: Vim9: readdir() expression doesn't accept bool Bram Moolenaar <Bram@vim.org> parents: 21871 diff changeset	1629 else
62e61424482f patch 8.2.1486: Vim9: readdir() expression doesn't accept bool Bram Moolenaar <Bram@vim.org> parents: 21871 diff changeset	1630 set_vim_var_dict(VV_VAL, NULL);
19301 80baa37506d0 patch 8.2.0209: function a bit far away from where it's used Bram Moolenaar <Bram@vim.org> parents: 19299 diff changeset	1631 restore_vimvar(VV_VAL, &save_val);
80baa37506d0 patch 8.2.0209: function a bit far away from where it's used Bram Moolenaar <Bram@vim.org> parents: 19299 diff changeset	1632 return retval;
80baa37506d0 patch 8.2.0209: function a bit far away from where it's used Bram Moolenaar <Bram@vim.org> parents: 19299 diff changeset	1633 }
80baa37506d0 patch 8.2.0209: function a bit far away from where it's used Bram Moolenaar <Bram@vim.org> parents: 19299 diff changeset	1634
21873 62e61424482f patch 8.2.1486: Vim9: readdir() expression doesn't accept bool Bram Moolenaar <Bram@vim.org> parents: 21871 diff changeset	1635 /*
62e61424482f patch 8.2.1486: Vim9: readdir() expression doesn't accept bool Bram Moolenaar <Bram@vim.org> parents: 21871 diff changeset	1636 * Evaluate "expr" (= "context") for readdir().
62e61424482f patch 8.2.1486: Vim9: readdir() expression doesn't accept bool Bram Moolenaar <Bram@vim.org> parents: 21871 diff changeset	1637 */
62e61424482f patch 8.2.1486: Vim9: readdir() expression doesn't accept bool Bram Moolenaar <Bram@vim.org> parents: 21871 diff changeset	1638 static int
62e61424482f patch 8.2.1486: Vim9: readdir() expression doesn't accept bool Bram Moolenaar <Bram@vim.org> parents: 21871 diff changeset	1639 readdir_checkitem(void context, void item)
62e61424482f patch 8.2.1486: Vim9: readdir() expression doesn't accept bool Bram Moolenaar <Bram@vim.org> parents: 21871 diff changeset	1640 {
62e61424482f patch 8.2.1486: Vim9: readdir() expression doesn't accept bool Bram Moolenaar <Bram@vim.org> parents: 21871 diff changeset	1641 char_u name = (char_u )item;
62e61424482f patch 8.2.1486: Vim9: readdir() expression doesn't accept bool Bram Moolenaar <Bram@vim.org> parents: 21871 diff changeset	1642
62e61424482f patch 8.2.1486: Vim9: readdir() expression doesn't accept bool Bram Moolenaar <Bram@vim.org> parents: 21871 diff changeset	1643 return checkitem_common(context, name, NULL);
62e61424482f patch 8.2.1486: Vim9: readdir() expression doesn't accept bool Bram Moolenaar <Bram@vim.org> parents: 21871 diff changeset	1644 }
62e61424482f patch 8.2.1486: Vim9: readdir() expression doesn't accept bool Bram Moolenaar <Bram@vim.org> parents: 21871 diff changeset	1645
30015 adb0de8be4ce patch 9.0.0345: error message for list argument could be clearer Bram Moolenaar <Bram@vim.org> parents: 29898 diff changeset	1646 /*
adb0de8be4ce patch 9.0.0345: error message for list argument could be clearer Bram Moolenaar <Bram@vim.org> parents: 29898 diff changeset	1647 * Process the keys in the Dict argument to the readdir() and readdirex()
adb0de8be4ce patch 9.0.0345: error message for list argument could be clearer Bram Moolenaar <Bram@vim.org> parents: 29898 diff changeset	1648 * functions. Assumes the Dict argument is the 3rd argument.
adb0de8be4ce patch 9.0.0345: error message for list argument could be clearer Bram Moolenaar <Bram@vim.org> parents: 29898 diff changeset	1649 */
20873 69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	1650 static int
30015 adb0de8be4ce patch 9.0.0345: error message for list argument could be clearer Bram Moolenaar <Bram@vim.org> parents: 29898 diff changeset	1651 readdirex_dict_arg(typval_T argvars, int cmp)
20873 69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	1652 {
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	1653 char_u *compare;
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	1654
30015 adb0de8be4ce patch 9.0.0345: error message for list argument could be clearer Bram Moolenaar <Bram@vim.org> parents: 29898 diff changeset	1655 if (check_for_nonnull_dict_arg(argvars, 2) == FAIL)
20873 69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	1656 return FAIL;
30015 adb0de8be4ce patch 9.0.0345: error message for list argument could be clearer Bram Moolenaar <Bram@vim.org> parents: 29898 diff changeset	1657
adb0de8be4ce patch 9.0.0345: error message for list argument could be clearer Bram Moolenaar <Bram@vim.org> parents: 29898 diff changeset	1658 if (dict_has_key(argvars[2].vval.v_dict, "sort"))
adb0de8be4ce patch 9.0.0345: error message for list argument could be clearer Bram Moolenaar <Bram@vim.org> parents: 29898 diff changeset	1659 compare = dict_get_string(argvars[2].vval.v_dict, "sort", FALSE);
20873 69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	1660 else
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	1661 {
26877 06a137af96f8 patch 8.2.3967: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26865 diff changeset	1662 semsg(_(e_dictionary_key_str_required), "sort");
20873 69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	1663 return FAIL;
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	1664 }
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	1665
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	1666 if (STRCMP(compare, (char_u *) "none") == 0)
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	1667 *cmp = READDIR_SORT_NONE;
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	1668 else if (STRCMP(compare, (char_u *) "case") == 0)
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	1669 *cmp = READDIR_SORT_BYTE;
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	1670 else if (STRCMP(compare, (char_u *) "icase") == 0)
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	1671 *cmp = READDIR_SORT_IC;
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	1672 else if (STRCMP(compare, (char_u *) "collate") == 0)
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	1673 *cmp = READDIR_SORT_COLLATE;
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	1674 return OK;
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	1675 }
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	1676
19301 80baa37506d0 patch 8.2.0209: function a bit far away from where it's used Bram Moolenaar <Bram@vim.org> parents: 19299 diff changeset	1677 /*
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1678 * "readdir()" function
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1679 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1680 void
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1681 f_readdir(typval_T argvars, typval_T rettv)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1682 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1683 typval_T *expr;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1684 int ret;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1685 char_u *path;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1686 char_u *p;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1687 garray_T ga;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1688 int i;
28809 d0241e74bfdb patch 8.2.4928: various white space and cosmetic mistakes Bram Moolenaar <Bram@vim.org> parents: 28635 diff changeset	1689 int sort = READDIR_SORT_BYTE;
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1690
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1691 if (rettv_list_alloc(rettv) == FAIL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1692 return;
25356 1cde96e768e4 patch 8.2.3215: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25338 diff changeset	1693
1cde96e768e4 patch 8.2.3215: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25338 diff changeset	1694 if (in_vim9script()
1cde96e768e4 patch 8.2.3215: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25338 diff changeset	1695 && (check_for_string_arg(argvars, 0) == FAIL
1cde96e768e4 patch 8.2.3215: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25338 diff changeset	1696 \|\| (argvars[1].v_type != VAR_UNKNOWN
1cde96e768e4 patch 8.2.3215: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25338 diff changeset	1697 && check_for_opt_dict_arg(argvars, 2) == FAIL)))
1cde96e768e4 patch 8.2.3215: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25338 diff changeset	1698 return;
1cde96e768e4 patch 8.2.3215: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25338 diff changeset	1699
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1700 path = tv_get_string(&argvars[0]);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1701 expr = &argvars[1];
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1702
20873 69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	1703 if (argvars[1].v_type != VAR_UNKNOWN && argvars[2].v_type != VAR_UNKNOWN &&
30015 adb0de8be4ce patch 9.0.0345: error message for list argument could be clearer Bram Moolenaar <Bram@vim.org> parents: 29898 diff changeset	1704 readdirex_dict_arg(argvars, &sort) == FAIL)
20873 69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	1705 return;
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	1706
20643 c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1707 ret = readdir_core(&ga, path, FALSE, (void *)expr,
20873 69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	1708 (expr->v_type == VAR_UNKNOWN) ? NULL : readdir_checkitem, sort);
20643 c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1709 if (ret == OK)
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1710 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1711 for (i = 0; i < ga.ga_len; i++)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1712 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1713 p = ((char_u **)ga.ga_data)[i];
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1714 list_append_string(rettv->vval.v_list, p, -1);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1715 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1716 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1717 ga_clear_strings(&ga);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1718 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1719
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1720 /*
20643 c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1721 * Evaluate "expr" (= "context") for readdirex().
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1722 */
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1723 static int
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1724 readdirex_checkitem(void context, void item)
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1725 {
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1726 dict_T dict = (dict_T)item;
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1727
21873 62e61424482f patch 8.2.1486: Vim9: readdir() expression doesn't accept bool Bram Moolenaar <Bram@vim.org> parents: 21871 diff changeset	1728 return checkitem_common(context, NULL, dict);
20643 c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1729 }
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1730
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1731 /*
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1732 * "readdirex()" function
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1733 */
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1734 void
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1735 f_readdirex(typval_T argvars, typval_T rettv)
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1736 {
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1737 typval_T *expr;
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1738 int ret;
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1739 char_u *path;
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1740 garray_T ga;
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1741 int i;
28809 d0241e74bfdb patch 8.2.4928: various white space and cosmetic mistakes Bram Moolenaar <Bram@vim.org> parents: 28635 diff changeset	1742 int sort = READDIR_SORT_BYTE;
20643 c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1743
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1744 if (rettv_list_alloc(rettv) == FAIL)
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1745 return;
25356 1cde96e768e4 patch 8.2.3215: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25338 diff changeset	1746
1cde96e768e4 patch 8.2.3215: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25338 diff changeset	1747 if (in_vim9script()
1cde96e768e4 patch 8.2.3215: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25338 diff changeset	1748 && (check_for_string_arg(argvars, 0) == FAIL
1cde96e768e4 patch 8.2.3215: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25338 diff changeset	1749 \|\| (argvars[1].v_type != VAR_UNKNOWN
1cde96e768e4 patch 8.2.3215: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25338 diff changeset	1750 && check_for_opt_dict_arg(argvars, 2) == FAIL)))
1cde96e768e4 patch 8.2.3215: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25338 diff changeset	1751 return;
1cde96e768e4 patch 8.2.3215: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25338 diff changeset	1752
20643 c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1753 path = tv_get_string(&argvars[0]);
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1754 expr = &argvars[1];
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1755
20873 69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	1756 if (argvars[1].v_type != VAR_UNKNOWN && argvars[2].v_type != VAR_UNKNOWN &&
30015 adb0de8be4ce patch 9.0.0345: error message for list argument could be clearer Bram Moolenaar <Bram@vim.org> parents: 29898 diff changeset	1757 readdirex_dict_arg(argvars, &sort) == FAIL)
20873 69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	1758 return;
69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	1759
20643 c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1760 ret = readdir_core(&ga, path, TRUE, (void *)expr,
20873 69055d27e85e patch 8.2.0988: getting directory contents is always case sorted Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	1761 (expr->v_type == VAR_UNKNOWN) ? NULL : readdirex_checkitem, sort);
20643 c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1762 if (ret == OK)
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1763 {
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1764 for (i = 0; i < ga.ga_len; i++)
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1765 {
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1766 dict_T dict = ((dict_T*)ga.ga_data)[i];
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1767 list_append_dict(rettv->vval.v_list, dict);
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1768 dict_unref(dict);
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1769 }
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1770 }
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1771 ga_clear(&ga);
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1772 }
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1773
c2beb6baa42c patch 8.2.0875: getting attributes for directory entries is slow Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1774 /*
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1775 * "readfile()" function
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1776 */
23602 7b3317e959e3 patch 8.2.2343: Vim9: return type of readfile() is any Bram Moolenaar <Bram@vim.org> parents: 23181 diff changeset	1777 static void
7b3317e959e3 patch 8.2.2343: Vim9: return type of readfile() is any Bram Moolenaar <Bram@vim.org> parents: 23181 diff changeset	1778 read_file_or_blob(typval_T argvars, typval_T rettv, int always_blob)
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1779 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1780 int binary = FALSE;
23602 7b3317e959e3 patch 8.2.2343: Vim9: return type of readfile() is any Bram Moolenaar <Bram@vim.org> parents: 23181 diff changeset	1781 int blob = always_blob;
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1782 int failed = FALSE;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1783 char_u *fname;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1784 FILE *fd;
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1785 char_u buf[(IOSIZE/256)*256]; // rounded to avoid odd + 1
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1786 int io_size = sizeof(buf);
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1787 int readlen; // size of last fread()
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1788 char_u *prev = NULL; // previously read bytes, if any
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1789 long prevlen = 0; // length of data in prev
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1790 long prevsize = 0; // size of prev buffer
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1791 long maxline = MAXLNUM;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1792 long cnt = 0;
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1793 char_u *p; // position in buf
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1794 char_u *start; // start of current line
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1795
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1796 if (argvars[1].v_type != VAR_UNKNOWN)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1797 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1798 if (STRCMP(tv_get_string(&argvars[1]), "b") == 0)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1799 binary = TRUE;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1800 if (STRCMP(tv_get_string(&argvars[1]), "B") == 0)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1801 blob = TRUE;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1802
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1803 if (argvars[2].v_type != VAR_UNKNOWN)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1804 maxline = (long)tv_get_number(&argvars[2]);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1805 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1806
19930 80e663e91e1b patch 8.2.0521: crash when reading a blob fails Bram Moolenaar <Bram@vim.org> parents: 19888 diff changeset	1807 if ((blob ? rettv_blob_alloc(rettv) : rettv_list_alloc(rettv)) == FAIL)
80e663e91e1b patch 8.2.0521: crash when reading a blob fails Bram Moolenaar <Bram@vim.org> parents: 19888 diff changeset	1808 return;
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1809
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1810 // Always open the file in binary mode, library functions have a mind of
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1811 // their own about CR-LF conversion.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1812 fname = tv_get_string(&argvars[0]);
19930 80e663e91e1b patch 8.2.0521: crash when reading a blob fails Bram Moolenaar <Bram@vim.org> parents: 19888 diff changeset	1813
80e663e91e1b patch 8.2.0521: crash when reading a blob fails Bram Moolenaar <Bram@vim.org> parents: 19888 diff changeset	1814 if (mch_isdir(fname))
80e663e91e1b patch 8.2.0521: crash when reading a blob fails Bram Moolenaar <Bram@vim.org> parents: 19888 diff changeset	1815 {
28255 48b9ffd40f38 patch 8.2.4653: "import autoload" does not check the file name Bram Moolenaar <Bram@vim.org> parents: 28021 diff changeset	1816 semsg(_(e_str_is_directory), fname);
19930 80e663e91e1b patch 8.2.0521: crash when reading a blob fails Bram Moolenaar <Bram@vim.org> parents: 19888 diff changeset	1817 return;
80e663e91e1b patch 8.2.0521: crash when reading a blob fails Bram Moolenaar <Bram@vim.org> parents: 19888 diff changeset	1818 }
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1819 if (fname == NUL \|\| (fd = mch_fopen((char )fname, READBIN)) == NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1820 {
26877 06a137af96f8 patch 8.2.3967: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26865 diff changeset	1821 semsg(_(e_cant_open_file_str), fname == NUL ? (char_u )_("<empty>") : fname);
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1822 return;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1823 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1824
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1825 if (blob)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1826 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1827 if (read_blob(fd, rettv->vval.v_blob) == FAIL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1828 {
26877 06a137af96f8 patch 8.2.3967: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26865 diff changeset	1829 semsg(_(e_cant_read_file_str), fname);
19930 80e663e91e1b patch 8.2.0521: crash when reading a blob fails Bram Moolenaar <Bram@vim.org> parents: 19888 diff changeset	1830 // An empty blob is returned on error.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1831 blob_free(rettv->vval.v_blob);
19930 80e663e91e1b patch 8.2.0521: crash when reading a blob fails Bram Moolenaar <Bram@vim.org> parents: 19888 diff changeset	1832 rettv->vval.v_blob = NULL;
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1833 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1834 fclose(fd);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1835 return;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1836 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1837
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1838 while (cnt < maxline \|\| maxline < 0)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1839 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1840 readlen = (int)fread(buf, 1, io_size, fd);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1841
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1842 // This for loop processes what was read, but is also entered at end
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1843 // of file so that either:
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1844 // - an incomplete line gets written
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1845 // - a "binary" file gets an empty line at the end if it ends in a
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1846 // newline.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1847 for (p = buf, start = buf;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1848 p < buf + readlen \|\| (readlen <= 0 && (prevlen > 0 \|\| binary));
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1849 ++p)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1850 {
27082 360a6a1ca9dd patch 8.2.4070: using uninitialized memory when reading empty file Bram Moolenaar <Bram@vim.org> parents: 27028 diff changeset	1851 if (readlen <= 0 \|\| *p == '\n')
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1852 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1853 listitem_T *li;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1854 char_u *s = NULL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1855 long_u len = p - start;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1856
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1857 // Finished a line. Remove CRs before NL.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1858 if (readlen > 0 && !binary)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1859 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1860 while (len > 0 && start[len - 1] == '\r')
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1861 --len;
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1862 // removal may cross back to the "prev" string
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1863 if (len == 0)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1864 while (prevlen > 0 && prev[prevlen - 1] == '\r')
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1865 --prevlen;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1866 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1867 if (prevlen == 0)
20830 9064044fd4f6 patch 8.2.0967: unnecessary type casts for vim_strnsave() Bram Moolenaar <Bram@vim.org> parents: 20780 diff changeset	1868 s = vim_strnsave(start, len);
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1869 else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1870 {
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1871 // Change "prev" buffer to be the right size. This way
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1872 // the bytes are only copied once, and very long lines are
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1873 // allocated only once.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1874 if ((s = vim_realloc(prev, prevlen + len + 1)) != NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1875 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1876 mch_memmove(s + prevlen, start, len);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1877 s[prevlen + len] = NUL;
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1878 prev = NULL; // the list will own the string
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1879 prevlen = prevsize = 0;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1880 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1881 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1882 if (s == NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1883 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1884 do_outofmem_msg((long_u) prevlen + len + 1);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1885 failed = TRUE;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1886 break;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1887 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1888
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1889 if ((li = listitem_alloc()) == NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1890 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1891 vim_free(s);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1892 failed = TRUE;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1893 break;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1894 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1895 li->li_tv.v_type = VAR_STRING;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1896 li->li_tv.v_lock = 0;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1897 li->li_tv.vval.v_string = s;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1898 list_append(rettv->vval.v_list, li);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1899
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1900 start = p + 1; // step over newline
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1901 if ((++cnt >= maxline && maxline >= 0) \|\| readlen <= 0)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1902 break;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1903 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1904 else if (*p == NUL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1905 *p = '\n';
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1906 // Check for utf8 "bom"; U+FEFF is encoded as EF BB BF. Do this
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1907 // when finding the BF and check the previous two bytes.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1908 else if (*p == 0xbf && enc_utf8 && !binary)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1909 {
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1910 // Find the two bytes before the 0xbf. If p is at buf, or buf
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1911 // + 1, these may be in the "prev" string.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1912 char_u back1 = p >= buf + 1 ? p[-1]
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1913 : prevlen >= 1 ? prev[prevlen - 1] : NUL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1914 char_u back2 = p >= buf + 2 ? p[-2]
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1915 : p == buf + 1 && prevlen >= 1 ? prev[prevlen - 1]
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1916 : prevlen >= 2 ? prev[prevlen - 2] : NUL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1917
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1918 if (back2 == 0xef && back1 == 0xbb)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1919 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1920 char_u *dest = p - 2;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1921
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1922 // Usually a BOM is at the beginning of a file, and so at
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1923 // the beginning of a line; then we can just step over it.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1924 if (start == dest)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1925 start = p + 1;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1926 else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1927 {
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1928 // have to shuffle buf to close gap
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1929 int adjust_prevlen = 0;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1930
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1931 if (dest < buf)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1932 {
23602 7b3317e959e3 patch 8.2.2343: Vim9: return type of readfile() is any Bram Moolenaar <Bram@vim.org> parents: 23181 diff changeset	1933 // must be 1 or 2
7b3317e959e3 patch 8.2.2343: Vim9: return type of readfile() is any Bram Moolenaar <Bram@vim.org> parents: 23181 diff changeset	1934 adjust_prevlen = (int)(buf - dest);
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1935 dest = buf;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1936 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1937 if (readlen > p - buf + 1)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1938 mch_memmove(dest, p + 1, readlen - (p - buf) - 1);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1939 readlen -= 3 - adjust_prevlen;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1940 prevlen -= adjust_prevlen;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1941 p = dest - 1;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1942 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1943 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1944 }
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1945 } // for
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1946
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1947 if (failed \|\| (cnt >= maxline && maxline >= 0) \|\| readlen <= 0)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1948 break;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1949 if (start < p)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1950 {
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1951 // There's part of a line in buf, store it in "prev".
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1952 if (p - start + prevlen >= prevsize)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1953 {
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1954 // need bigger "prev" buffer
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1955 char_u *newprev;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1956
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1957 // A common use case is ordinary text files and "prev" gets a
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1958 // fragment of a line, so the first allocation is made
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1959 // small, to avoid repeatedly 'allocing' large and
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1960 // 'reallocing' small.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1961 if (prevsize == 0)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1962 prevsize = (long)(p - start);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1963 else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1964 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1965 long grow50pc = (prevsize * 3) / 2;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1966 long growmin = (long)((p - start) * 2 + prevlen);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1967 prevsize = grow50pc > growmin ? grow50pc : growmin;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1968 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1969 newprev = vim_realloc(prev, prevsize);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1970 if (newprev == NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1971 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1972 do_outofmem_msg((long_u)prevsize);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1973 failed = TRUE;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1974 break;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1975 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1976 prev = newprev;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1977 }
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1978 // Add the line part to end of "prev".
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1979 mch_memmove(prev + prevlen, start, p - start);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1980 prevlen += (long)(p - start);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1981 }
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1982 } // while
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1983
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1984 // For a negative line count use only the lines at the end of the file,
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	1985 // free the rest.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1986 if (!failed && maxline < 0)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1987 while (cnt > -maxline)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1988 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1989 listitem_remove(rettv->vval.v_list, rettv->vval.v_list->lv_first);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1990 --cnt;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1991 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1992
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1993 if (failed)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1994 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1995 // an empty list is returned on error
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1996 list_free(rettv->vval.v_list);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1997 rettv_list_alloc(rettv);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1998 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1999
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2000 vim_free(prev);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2001 fclose(fd);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2002 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2003
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2004 /*
23602 7b3317e959e3 patch 8.2.2343: Vim9: return type of readfile() is any Bram Moolenaar <Bram@vim.org> parents: 23181 diff changeset	2005 * "readblob()" function
7b3317e959e3 patch 8.2.2343: Vim9: return type of readfile() is any Bram Moolenaar <Bram@vim.org> parents: 23181 diff changeset	2006 */
7b3317e959e3 patch 8.2.2343: Vim9: return type of readfile() is any Bram Moolenaar <Bram@vim.org> parents: 23181 diff changeset	2007 void
7b3317e959e3 patch 8.2.2343: Vim9: return type of readfile() is any Bram Moolenaar <Bram@vim.org> parents: 23181 diff changeset	2008 f_readblob(typval_T argvars, typval_T rettv)
7b3317e959e3 patch 8.2.2343: Vim9: return type of readfile() is any Bram Moolenaar <Bram@vim.org> parents: 23181 diff changeset	2009 {
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	2010 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	2011 return;
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	2012
23602 7b3317e959e3 patch 8.2.2343: Vim9: return type of readfile() is any Bram Moolenaar <Bram@vim.org> parents: 23181 diff changeset	2013 read_file_or_blob(argvars, rettv, TRUE);
7b3317e959e3 patch 8.2.2343: Vim9: return type of readfile() is any Bram Moolenaar <Bram@vim.org> parents: 23181 diff changeset	2014 }
7b3317e959e3 patch 8.2.2343: Vim9: return type of readfile() is any Bram Moolenaar <Bram@vim.org> parents: 23181 diff changeset	2015
7b3317e959e3 patch 8.2.2343: Vim9: return type of readfile() is any Bram Moolenaar <Bram@vim.org> parents: 23181 diff changeset	2016 /*
7b3317e959e3 patch 8.2.2343: Vim9: return type of readfile() is any Bram Moolenaar <Bram@vim.org> parents: 23181 diff changeset	2017 * "readfile()" function
7b3317e959e3 patch 8.2.2343: Vim9: return type of readfile() is any Bram Moolenaar <Bram@vim.org> parents: 23181 diff changeset	2018 */
7b3317e959e3 patch 8.2.2343: Vim9: return type of readfile() is any Bram Moolenaar <Bram@vim.org> parents: 23181 diff changeset	2019 void
7b3317e959e3 patch 8.2.2343: Vim9: return type of readfile() is any Bram Moolenaar <Bram@vim.org> parents: 23181 diff changeset	2020 f_readfile(typval_T argvars, typval_T rettv)
7b3317e959e3 patch 8.2.2343: Vim9: return type of readfile() is any Bram Moolenaar <Bram@vim.org> parents: 23181 diff changeset	2021 {
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	2022 if (in_vim9script()
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	2023 && (check_for_nonempty_string_arg(argvars, 0) == FAIL
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	2024 \|\| check_for_opt_string_arg(argvars, 1) == FAIL
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	2025 \|\| (argvars[1].v_type != VAR_UNKNOWN
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	2026 && check_for_opt_number_arg(argvars, 2) == FAIL)))
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	2027 return;
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	2028
23602 7b3317e959e3 patch 8.2.2343: Vim9: return type of readfile() is any Bram Moolenaar <Bram@vim.org> parents: 23181 diff changeset	2029 read_file_or_blob(argvars, rettv, FALSE);
7b3317e959e3 patch 8.2.2343: Vim9: return type of readfile() is any Bram Moolenaar <Bram@vim.org> parents: 23181 diff changeset	2030 }
7b3317e959e3 patch 8.2.2343: Vim9: return type of readfile() is any Bram Moolenaar <Bram@vim.org> parents: 23181 diff changeset	2031
7b3317e959e3 patch 8.2.2343: Vim9: return type of readfile() is any Bram Moolenaar <Bram@vim.org> parents: 23181 diff changeset	2032 /*
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2033 * "resolve()" function
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2034 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2035 void
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2036 f_resolve(typval_T argvars, typval_T rettv)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2037 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2038 char_u *p;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2039 #ifdef HAVE_READLINK
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2040 char_u *buf = NULL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2041 #endif
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2042
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	2043 if (in_vim9script() && check_for_string_arg(argvars, 0) == FAIL)
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	2044 return;
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	2045
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2046 p = tv_get_string(&argvars[0]);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2047 #ifdef FEAT_SHORTCUT
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2048 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2049 char_u *v = NULL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2050
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2051 v = mch_resolve_path(p, TRUE);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2052 if (v != NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2053 rettv->vval.v_string = v;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2054 else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2055 rettv->vval.v_string = vim_strsave(p);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2056 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2057 #else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2058 # ifdef HAVE_READLINK
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2059 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2060 char_u *cpy;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2061 int len;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2062 char_u *remain = NULL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2063 char_u *q;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2064 int is_relative_to_current = FALSE;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2065 int has_trailing_pathsep = FALSE;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2066 int limit = 100;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2067
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2068 p = vim_strsave(p);
18947 d6c7b2f9aa20 patch 8.2.0034: missing check for out of memory Bram Moolenaar <Bram@vim.org> parents: 18872 diff changeset	2069 if (p == NULL)
d6c7b2f9aa20 patch 8.2.0034: missing check for out of memory Bram Moolenaar <Bram@vim.org> parents: 18872 diff changeset	2070 goto fail;
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2071 if (p[0] == '.' && (vim_ispathsep(p[1])
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2072 \|\| (p[1] == '.' && (vim_ispathsep(p[2])))))
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2073 is_relative_to_current = TRUE;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2074
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2075 len = STRLEN(p);
22512 aeeee593fe0f patch 8.2.1804: resolve('/') returns an empty string Bram Moolenaar <Bram@vim.org> parents: 22389 diff changeset	2076 if (len > 1 && after_pathsep(p, p + len))
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2077 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2078 has_trailing_pathsep = TRUE;
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2079 p[len - 1] = NUL; // the trailing slash breaks readlink()
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2080 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2081
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2082 q = getnextcomp(p);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2083 if (*q != NUL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2084 {
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2085 // Separate the first path component in "p", and keep the
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2086 // remainder (beginning with the path separator).
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2087 remain = vim_strsave(q - 1);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2088 q[-1] = NUL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2089 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2090
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2091 buf = alloc(MAXPATHL + 1);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2092 if (buf == NULL)
18947 d6c7b2f9aa20 patch 8.2.0034: missing check for out of memory Bram Moolenaar <Bram@vim.org> parents: 18872 diff changeset	2093 {
d6c7b2f9aa20 patch 8.2.0034: missing check for out of memory Bram Moolenaar <Bram@vim.org> parents: 18872 diff changeset	2094 vim_free(p);
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2095 goto fail;
18947 d6c7b2f9aa20 patch 8.2.0034: missing check for out of memory Bram Moolenaar <Bram@vim.org> parents: 18872 diff changeset	2096 }
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2097
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2098 for (;;)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2099 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2100 for (;;)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2101 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2102 len = readlink((char )p, (char )buf, MAXPATHL);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2103 if (len <= 0)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2104 break;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2105 buf[len] = NUL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2106
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2107 if (limit-- == 0)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2108 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2109 vim_free(p);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2110 vim_free(remain);
26952 b34ddbca305c patch 8.2.4005: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26909 diff changeset	2111 emsg(_(e_too_many_symbolic_links_cycle));
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2112 rettv->vval.v_string = NULL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2113 goto fail;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2114 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2115
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2116 // Ensure that the result will have a trailing path separator
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2117 // if the argument has one.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2118 if (remain == NULL && has_trailing_pathsep)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2119 add_pathsep(buf);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2120
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2121 // Separate the first path component in the link value and
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2122 // concatenate the remainders.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2123 q = getnextcomp(vim_ispathsep(*buf) ? buf + 1 : buf);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2124 if (*q != NUL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2125 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2126 if (remain == NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2127 remain = vim_strsave(q - 1);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2128 else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2129 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2130 cpy = concat_str(q - 1, remain);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2131 if (cpy != NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2132 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2133 vim_free(remain);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2134 remain = cpy;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2135 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2136 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2137 q[-1] = NUL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2138 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2139
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2140 q = gettail(p);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2141 if (q > p && *q == NUL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2142 {
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2143 // Ignore trailing path separator.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2144 q[-1] = NUL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2145 q = gettail(p);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2146 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2147 if (q > p && !mch_isFullName(buf))
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2148 {
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2149 // symlink is relative to directory of argument
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2150 cpy = alloc(STRLEN(p) + STRLEN(buf) + 1);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2151 if (cpy != NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2152 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2153 STRCPY(cpy, p);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2154 STRCPY(gettail(cpy), buf);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2155 vim_free(p);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2156 p = cpy;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2157 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2158 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2159 else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2160 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2161 vim_free(p);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2162 p = vim_strsave(buf);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2163 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2164 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2165
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2166 if (remain == NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2167 break;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2168
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2169 // Append the first path component of "remain" to "p".
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2170 q = getnextcomp(remain + 1);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2171 len = q - remain - (*q != NUL);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2172 cpy = vim_strnsave(p, STRLEN(p) + len);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2173 if (cpy != NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2174 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2175 STRNCAT(cpy, remain, len);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2176 vim_free(p);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2177 p = cpy;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2178 }
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2179 // Shorten "remain".
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2180 if (*q != NUL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2181 STRMOVE(remain, q - 1);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2182 else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2183 VIM_CLEAR(remain);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2184 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2185
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2186 // If the result is a relative path name, make it explicitly relative to
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2187 // the current directory if and only if the argument had this form.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2188 if (!vim_ispathsep(*p))
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2189 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2190 if (is_relative_to_current
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2191 && *p != NUL
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2192 && !(p[0] == '.'
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2193 && (p[1] == NUL
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2194 \|\| vim_ispathsep(p[1])
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2195 \|\| (p[1] == '.'
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2196 && (p[2] == NUL
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2197 \|\| vim_ispathsep(p[2]))))))
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2198 {
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2199 // Prepend "./".
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2200 cpy = concat_str((char_u *)"./", p);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2201 if (cpy != NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2202 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2203 vim_free(p);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2204 p = cpy;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2205 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2206 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2207 else if (!is_relative_to_current)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2208 {
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2209 // Strip leading "./".
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2210 q = p;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2211 while (q[0] == '.' && vim_ispathsep(q[1]))
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2212 q += 2;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2213 if (q > p)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2214 STRMOVE(p, p + 2);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2215 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2216 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2217
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2218 // Ensure that the result will have no trailing path separator
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2219 // if the argument had none. But keep "/" or "//".
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2220 if (!has_trailing_pathsep)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2221 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2222 q = p + STRLEN(p);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2223 if (after_pathsep(p, q))
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2224 *gettail_sep(p) = NUL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2225 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2226
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2227 rettv->vval.v_string = p;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2228 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2229 # else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2230 rettv->vval.v_string = vim_strsave(p);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2231 # endif
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2232 #endif
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2233
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2234 simplify_filename(rettv->vval.v_string);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2235
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2236 #ifdef HAVE_READLINK
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2237 fail:
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2238 vim_free(buf);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2239 #endif
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2240 rettv->v_type = VAR_STRING;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2241 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2242
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2243 /*
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2244 * "tempname()" function
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2245 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2246 void
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2247 f_tempname(typval_T argvars UNUSED, typval_T rettv)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2248 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2249 static int x = 'A';
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2250
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2251 rettv->v_type = VAR_STRING;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2252 rettv->vval.v_string = vim_tempname(x, FALSE);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2253
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2254 // Advance 'x' to use A-Z and 0-9, so that there are at least 34 different
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2255 // names. Skip 'I' and 'O', they are used for shell redirection.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2256 do
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2257 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2258 if (x == 'Z')
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2259 x = '0';
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2260 else if (x == '9')
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2261 x = 'A';
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2262 else
27490 fb4c30606b4a patch 8.2.4273: the EBCDIC support is outdated Bram Moolenaar <Bram@vim.org> parents: 27082 diff changeset	2263 ++x;
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2264 } while (x == 'I' \|\| x == 'O');
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2265 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2266
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2267 /*
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2268 * "writefile()" function
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2269 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2270 void
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2271 f_writefile(typval_T argvars, typval_T rettv)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2272 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2273 int binary = FALSE;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2274 int append = FALSE;
30083 a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2275 int defer = FALSE;
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2276 #ifdef HAVE_FSYNC
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2277 int do_fsync = p_fs;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2278 #endif
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2279 char_u *fname;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2280 FILE *fd;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2281 int ret = 0;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2282 listitem_T *li;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2283 list_T *list = NULL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2284 blob_T *blob = NULL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2285
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2286 rettv->vval.v_number = -1;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2287 if (check_secure())
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2288 return;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2289
25338 e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	2290 if (in_vim9script()
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	2291 && (check_for_list_or_blob_arg(argvars, 0) == FAIL
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	2292 \|\| check_for_string_arg(argvars, 1) == FAIL
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	2293 \|\| check_for_opt_string_arg(argvars, 2) == FAIL))
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	2294 return;
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	2295
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2296 if (argvars[0].v_type == VAR_LIST)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2297 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2298 list = argvars[0].vval.v_list;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2299 if (list == NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2300 return;
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 19938 diff changeset	2301 CHECK_LIST_MATERIALIZE(list);
19888 435726a03481 patch 8.2.0500: using the same loop in many places Bram Moolenaar <Bram@vim.org> parents: 19695 diff changeset	2302 FOR_ALL_LIST_ITEMS(list, li)
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2303 if (tv_get_string_chk(&li->li_tv) == NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2304 return;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2305 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2306 else if (argvars[0].v_type == VAR_BLOB)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2307 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2308 blob = argvars[0].vval.v_blob;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2309 if (blob == NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2310 return;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2311 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2312 else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2313 {
26865 bce848ec8b1b patch 8.2.3961: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26173 diff changeset	2314 semsg(_(e_invalid_argument_str),
19695 1697a25328fd patch 8.2.0404: writefile() error does not give a hint Bram Moolenaar <Bram@vim.org> parents: 19314 diff changeset	2315 _("writefile() first argument must be a List or a Blob"));
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2316 return;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2317 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2318
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2319 if (argvars[2].v_type != VAR_UNKNOWN)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2320 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2321 char_u *arg2 = tv_get_string_chk(&argvars[2]);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2322
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2323 if (arg2 == NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2324 return;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2325 if (vim_strchr(arg2, 'b') != NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2326 binary = TRUE;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2327 if (vim_strchr(arg2, 'a') != NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2328 append = TRUE;
30083 a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2329 if (vim_strchr(arg2, 'D') != NULL)
a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2330 defer = TRUE;
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2331 #ifdef HAVE_FSYNC
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2332 if (vim_strchr(arg2, 's') != NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2333 do_fsync = TRUE;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2334 else if (vim_strchr(arg2, 'S') != NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2335 do_fsync = FALSE;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2336 #endif
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2337 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2338
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2339 fname = tv_get_string_chk(&argvars[1]);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2340 if (fname == NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2341 return;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2342
30150 0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	2343 if (defer && !can_add_defer())
30083 a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2344 return;
a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2345
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2346 // Always open the file in binary mode, library functions have a mind of
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2347 // their own about CR-LF conversion.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2348 if (fname == NUL \|\| (fd = mch_fopen((char )fname,
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2349 append ? APPENDBIN : WRITEBIN)) == NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2350 {
30083 a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2351 semsg(_(e_cant_create_file_str),
a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2352 fname == NUL ? (char_u )_("<empty>") : fname);
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2353 ret = -1;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2354 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2355 else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2356 {
30083 a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2357 if (defer)
a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2358 {
a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2359 typval_T tv;
a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2360
a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2361 tv.v_type = VAR_STRING;
a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2362 tv.v_lock = 0;
30150 0fe61fa4e5d1 patch 9.0.0411: only created files can be cleaned up with one call Bram Moolenaar <Bram@vim.org> parents: 30083 diff changeset	2363 tv.vval.v_string = FullName_save(fname, FALSE);
30083 a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2364 if (tv.vval.v_string == NULL
a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2365 \|\| add_defer((char_u *)"delete", 1, &tv) == FAIL)
a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2366 {
a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2367 ret = -1;
a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2368 fclose(fd);
a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2369 (void)mch_remove(fname);
a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2370 }
a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2371 }
a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2372
a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2373 if (ret == 0)
a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2374 {
a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2375 if (blob)
a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2376 {
a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2377 if (write_blob(fd, blob) == FAIL)
a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2378 ret = -1;
a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2379 }
a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2380 else
a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2381 {
a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2382 if (write_list(fd, list, binary) == FAIL)
a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2383 ret = -1;
a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2384 }
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2385 #ifdef HAVE_FSYNC
30083 a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2386 if (ret == 0 && do_fsync)
a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2387 // Ignore the error, the user wouldn't know what to do about
a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2388 // it. May happen for a device.
a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2389 vim_ignored = vim_fsync(fileno(fd));
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2390 #endif
30083 a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2391 fclose(fd);
a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30049 diff changeset	2392 }
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2393 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2394
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2395 rettv->vval.v_number = ret;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2396 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2397
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2398 #endif // FEAT_EVAL
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2399
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2400 #if defined(FEAT_BROWSE) \|\| defined(PROTO)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2401 /*
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2402 * Generic browse function. Calls gui_mch_browse() when possible.
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2403 * Later this may pop-up a non-GUI file selector (external command?).
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2404 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2405 char_u *
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2406 do_browse(
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2407 int flags, // BROWSE_SAVE and BROWSE_DIR
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2408 char_u *title, // title for the window
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2409 char_u *dflt, // default file name (may include directory)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2410 char_u *ext, // extension added
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2411 char_u *initdir, // initial directory, NULL for current dir or
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2412 // when using path from "dflt"
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2413 char_u *filter, // file name filter
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2414 buf_T *buf) // buffer to read/write for
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2415 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2416 char_u *fname;
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2417 static char_u *last_dir = NULL; // last used directory
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2418 char_u *tofree = NULL;
22699 e82579016863 patch 8.2.1898: command modifier parsing always uses global cmdmod Bram Moolenaar <Bram@vim.org> parents: 22512 diff changeset	2419 int save_cmod_flags = cmdmod.cmod_flags;
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2420
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2421 // Must turn off browse to avoid that autocommands will get the
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2422 // flag too!
22699 e82579016863 patch 8.2.1898: command modifier parsing always uses global cmdmod Bram Moolenaar <Bram@vim.org> parents: 22512 diff changeset	2423 cmdmod.cmod_flags &= ~CMOD_BROWSE;
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2424
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2425 if (title == NULL \|\| *title == NUL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2426 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2427 if (flags & BROWSE_DIR)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2428 title = (char_u *)_("Select Directory dialog");
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2429 else if (flags & BROWSE_SAVE)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2430 title = (char_u *)_("Save File dialog");
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2431 else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2432 title = (char_u *)_("Open File dialog");
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2433 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2434
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2435 // When no directory specified, use default file name, default dir, buffer
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2436 // dir, last dir or current dir
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2437 if ((initdir == NULL \|\| initdir == NUL) && dflt != NULL && dflt != NUL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2438 {
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2439 if (mch_isdir(dflt)) // default file name is a directory
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2440 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2441 initdir = dflt;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2442 dflt = NULL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2443 }
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2444 else if (gettail(dflt) != dflt) // default file name includes a path
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2445 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2446 tofree = vim_strsave(dflt);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2447 if (tofree != NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2448 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2449 initdir = tofree;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2450 *gettail(initdir) = NUL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2451 dflt = gettail(dflt);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2452 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2453 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2454 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2455
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2456 if (initdir == NULL \|\| *initdir == NUL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2457 {
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2458 // When 'browsedir' is a directory, use it
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2459 if (STRCMP(p_bsdir, "last") != 0
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2460 && STRCMP(p_bsdir, "buffer") != 0
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2461 && STRCMP(p_bsdir, "current") != 0
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2462 && mch_isdir(p_bsdir))
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2463 initdir = p_bsdir;
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2464 // When saving or 'browsedir' is "buffer", use buffer fname
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2465 else if (((flags & BROWSE_SAVE) \|\| *p_bsdir == 'b')
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2466 && buf != NULL && buf->b_ffname != NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2467 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2468 if (dflt == NULL \|\| *dflt == NUL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2469 dflt = gettail(curbuf->b_ffname);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2470 tofree = vim_strsave(curbuf->b_ffname);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2471 if (tofree != NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2472 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2473 initdir = tofree;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2474 *gettail(initdir) = NUL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2475 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2476 }
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2477 // When 'browsedir' is "last", use dir from last browse
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2478 else if (*p_bsdir == 'l')
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2479 initdir = last_dir;
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2480 // When 'browsedir is "current", use current directory. This is the
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2481 // default already, leave initdir empty.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2482 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2483
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2484 # ifdef FEAT_GUI
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2485 if (gui.in_use) // when this changes, also adjust f_has()!
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2486 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2487 if (filter == NULL
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2488 # ifdef FEAT_EVAL
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2489 && (filter = get_var_value((char_u *)"b:browsefilter")) == NULL
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2490 && (filter = get_var_value((char_u *)"g:browsefilter")) == NULL
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2491 # endif
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2492 )
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2493 filter = BROWSE_FILTER_DEFAULT;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2494 if (flags & BROWSE_DIR)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2495 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2496 # if defined(FEAT_GUI_GTK) \|\| defined(MSWIN)
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2497 // For systems that have a directory dialog.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2498 fname = gui_mch_browsedir(title, initdir);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2499 # else
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2500 // Generic solution for selecting a directory: select a file and
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2501 // remove the file name.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2502 fname = gui_mch_browse(0, title, dflt, ext, initdir, (char_u *)"");
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2503 # endif
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2504 # if !defined(FEAT_GUI_GTK)
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2505 // Win32 adds a dummy file name, others return an arbitrary file
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2506 // name. GTK+ 2 returns only the directory,
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2507 if (fname != NULL && *fname != NUL && !mch_isdir(fname))
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2508 {
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2509 // Remove the file name.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2510 char_u *tail = gettail_sep(fname);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2511
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2512 if (tail == fname)
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2513 *tail++ = '.'; // use current dir
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2514 *tail = NUL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2515 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2516 # endif
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2517 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2518 else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2519 fname = gui_mch_browse(flags & BROWSE_SAVE,
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2520 title, dflt, ext, initdir, (char_u *)_(filter));
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2521
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2522 // We hang around in the dialog for a while, the user might do some
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2523 // things to our files. The Win32 dialog allows deleting or renaming
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2524 // a file, check timestamps.
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2525 need_check_timestamps = TRUE;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2526 did_check_timestamps = FALSE;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2527 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2528 else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2529 # endif
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2530 {
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2531 // TODO: non-GUI file selector here
26909 aa65d1808bd0 patch 8.2.3983: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	2532 emsg(_(e_sorry_no_file_browser_in_console_mode));
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2533 fname = NULL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2534 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2535
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2536 // keep the directory for next time
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2537 if (fname != NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2538 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2539 vim_free(last_dir);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2540 last_dir = vim_strsave(fname);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2541 if (last_dir != NULL && !(flags & BROWSE_DIR))
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2542 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2543 *gettail(last_dir) = NUL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2544 if (*last_dir == NUL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2545 {
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2546 // filename only returned, must be in current dir
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2547 vim_free(last_dir);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2548 last_dir = alloc(MAXPATHL);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2549 if (last_dir != NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2550 mch_dirname(last_dir, MAXPATHL);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2551 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2552 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2553 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2554
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2555 vim_free(tofree);
22699 e82579016863 patch 8.2.1898: command modifier parsing always uses global cmdmod Bram Moolenaar <Bram@vim.org> parents: 22512 diff changeset	2556 cmdmod.cmod_flags = save_cmod_flags;
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2557
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2558 return fname;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2559 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2560 #endif
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2561
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2562 #if defined(FEAT_EVAL) \|\| defined(PROTO)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2563
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2564 /*
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2565 * "browse(save, title, initdir, default)" function
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2566 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2567 void
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2568 f_browse(typval_T argvars UNUSED, typval_T rettv)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2569 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2570 # ifdef FEAT_BROWSE
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2571 int save;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2572 char_u *title;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2573 char_u *initdir;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2574 char_u *defname;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2575 char_u buf[NUMBUFLEN];
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2576 char_u buf2[NUMBUFLEN];
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2577 int error = FALSE;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2578
24210 083f07f99e20 patch 8.2.2646: Vim9: error for not using string doesn't mentionargument Bram Moolenaar <Bram@vim.org> parents: 23873 diff changeset	2579 if (in_vim9script()
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	2580 && (check_for_bool_arg(argvars, 0) == FAIL
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	2581 \|\| check_for_string_arg(argvars, 1) == FAIL
24246 35603c7991d7 patch 8.2.2664: Vim9: not enough function arguments checked for string Bram Moolenaar <Bram@vim.org> parents: 24210 diff changeset	2582 \|\| check_for_string_arg(argvars, 2) == FAIL
35603c7991d7 patch 8.2.2664: Vim9: not enough function arguments checked for string Bram Moolenaar <Bram@vim.org> parents: 24210 diff changeset	2583 \|\| check_for_string_arg(argvars, 3) == FAIL))
24210 083f07f99e20 patch 8.2.2646: Vim9: error for not using string doesn't mentionargument Bram Moolenaar <Bram@vim.org> parents: 23873 diff changeset	2584 return;
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	2585
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2586 save = (int)tv_get_number_chk(&argvars[0], &error);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2587 title = tv_get_string_chk(&argvars[1]);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2588 initdir = tv_get_string_buf_chk(&argvars[2], buf);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2589 defname = tv_get_string_buf_chk(&argvars[3], buf2);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2590
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2591 if (error \|\| title == NULL \|\| initdir == NULL \|\| defname == NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2592 rettv->vval.v_string = NULL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2593 else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2594 rettv->vval.v_string =
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2595 do_browse(save ? BROWSE_SAVE : 0,
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2596 title, defname, NULL, initdir, NULL, curbuf);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2597 # else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2598 rettv->vval.v_string = NULL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2599 # endif
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2600 rettv->v_type = VAR_STRING;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2601 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2602
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2603 /*
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2604 * "browsedir(title, initdir)" function
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2605 */
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2606 void
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2607 f_browsedir(typval_T argvars UNUSED, typval_T rettv)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2608 {
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2609 # ifdef FEAT_BROWSE
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2610 char_u *title;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2611 char_u *initdir;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2612 char_u buf[NUMBUFLEN];
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2613
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	2614 if (in_vim9script()
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	2615 && (check_for_string_arg(argvars, 0) == FAIL
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	2616 \|\| check_for_string_arg(argvars, 1) == FAIL))
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	2617 return;
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25356 diff changeset	2618
17966 46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2619 title = tv_get_string_chk(&argvars[0]);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2620 initdir = tv_get_string_buf_chk(&argvars[1], buf);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2621
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2622 if (title == NULL \|\| initdir == NULL)
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2623 rettv->vval.v_string = NULL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2624 else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2625 rettv->vval.v_string = do_browse(BROWSE_DIR,
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2626 title, NULL, NULL, initdir, NULL, curbuf);
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2627 # else
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2628 rettv->vval.v_string = NULL;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2629 # endif
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2630 rettv->v_type = VAR_STRING;
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2631 }
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2632
46f95606b9ec patch 8.1.1979: code for handling file names is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2633 #endif // FEAT_EVAL
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2634
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2635 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2636 * Replace home directory by "~" in each space or comma separated file name in
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2637 * 'src'.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2638 * If anything fails (except when out of space) dst equals src.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2639 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2640 void
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2641 home_replace(
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2642 buf_T *buf, // when not NULL, check for help files
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2643 char_u *src, // input file name
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2644 char_u *dst, // where to put the result
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2645 int dstlen, // maximum length of the result
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2646 int one) // if TRUE, only replace one file name, include
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2647 // spaces and commas in the file name.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2648 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2649 size_t dirlen = 0, envlen = 0;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2650 size_t len;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2651 char_u homedir_env, homedir_env_orig;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2652 char_u *p;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2653
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2654 if (src == NULL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2655 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2656 *dst = NUL;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2657 return;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2658 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2659
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2660 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2661 * If the file is a help file, remove the path completely.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2662 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2663 if (buf != NULL && buf->b_help)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2664 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2665 vim_snprintf((char *)dst, dstlen, "%s", gettail(src));
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2666 return;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2667 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2668
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2669 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2670 * We check both the value of the $HOME environment variable and the
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2671 * "real" home directory.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2672 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2673 if (homedir != NULL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2674 dirlen = STRLEN(homedir);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2675
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2676 #ifdef VMS
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2677 homedir_env_orig = homedir_env = mch_getenv((char_u *)"SYS$LOGIN");
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2678 #else
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2679 homedir_env_orig = homedir_env = mch_getenv((char_u *)"HOME");
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2680 #endif
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2681 #ifdef MSWIN
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2682 if (homedir_env == NULL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2683 homedir_env_orig = homedir_env = mch_getenv((char_u *)"USERPROFILE");
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2684 #endif
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2685 // Empty is the same as not set.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2686 if (homedir_env != NULL && *homedir_env == NUL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2687 homedir_env = NULL;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2688
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2689 if (homedir_env != NULL && *homedir_env == '~')
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2690 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2691 int usedlen = 0;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2692 int flen;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2693 char_u *fbuf = NULL;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2694
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2695 flen = (int)STRLEN(homedir_env);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2696 (void)modify_fname((char_u *)":p", FALSE, &usedlen,
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2697 &homedir_env, &fbuf, &flen);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2698 flen = (int)STRLEN(homedir_env);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2699 if (flen > 0 && vim_ispathsep(homedir_env[flen - 1]))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2700 // Remove the trailing / that is added to a directory.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2701 homedir_env[flen - 1] = NUL;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2702 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2703
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2704 if (homedir_env != NULL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2705 envlen = STRLEN(homedir_env);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2706
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2707 if (!one)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2708 src = skipwhite(src);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2709 while (*src && dstlen > 0)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2710 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2711 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2712 * Here we are at the beginning of a file name.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2713 * First, check to see if the beginning of the file name matches
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2714 * $HOME or the "real" home directory. Check that there is a '/'
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2715 * after the match (so that if e.g. the file is "/home/pieter/bla",
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2716 * and the home directory is "/home/piet", the file does not end up
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2717 * as "~er/bla" (which would seem to indicate the file "bla" in user
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2718 * er's home directory)).
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2719 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2720 p = homedir;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2721 len = dirlen;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2722 for (;;)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2723 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2724 if ( len
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2725 && fnamencmp(src, p, len) == 0
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2726 && (vim_ispathsep(src[len])
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2727 \|\| (!one && (src[len] == ',' \|\| src[len] == ' '))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2728 \|\| src[len] == NUL))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2729 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2730 src += len;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2731 if (--dstlen > 0)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2732 *dst++ = '~';
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2733
20780 300fbeef8c82 patch 8.2.0942: expanding to local dir after homedir keeps "~/" Bram Moolenaar <Bram@vim.org> parents: 20711 diff changeset	2734 // Do not add directory separator into dst, because dst is
300fbeef8c82 patch 8.2.0942: expanding to local dir after homedir keeps "~/" Bram Moolenaar <Bram@vim.org> parents: 20711 diff changeset	2735 // expected to just return the directory name without the
300fbeef8c82 patch 8.2.0942: expanding to local dir after homedir keeps "~/" Bram Moolenaar <Bram@vim.org> parents: 20711 diff changeset	2736 // directory separator '/'.
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2737 break;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2738 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2739 if (p == homedir_env)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2740 break;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2741 p = homedir_env;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2742 len = envlen;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2743 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2744
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2745 // if (!one) skip to separator: space or comma
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2746 while (src && (one \|\| (src != ',' && *src != ' ')) && --dstlen > 0)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2747 dst++ = src++;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2748 // skip separator
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2749 while ((src == ' ' \|\| src == ',') && --dstlen > 0)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2750 dst++ = src++;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2751 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2752 // if (dstlen == 0) out of space, what to do???
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2753
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2754 *dst = NUL;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2755
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2756 if (homedir_env != homedir_env_orig)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2757 vim_free(homedir_env);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2758 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2759
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2760 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2761 * Like home_replace, store the replaced string in allocated memory.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2762 * When something fails, NULL is returned.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2763 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2764 char_u *
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2765 home_replace_save(
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2766 buf_T *buf, // when not NULL, check for help files
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2767 char_u *src) // input file name
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2768 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2769 char_u *dst;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2770 unsigned len;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2771
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2772 len = 3; // space for "~/" and trailing NUL
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2773 if (src != NULL) // just in case
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2774 len += (unsigned)STRLEN(src);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2775 dst = alloc(len);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2776 if (dst != NULL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2777 home_replace(buf, src, dst, len, TRUE);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2778 return dst;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2779 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2780
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2781 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2782 * Compare two file names and return:
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2783 * FPC_SAME if they both exist and are the same file.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2784 * FPC_SAMEX if they both don't exist and have the same file name.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2785 * FPC_DIFF if they both exist and are different files.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2786 * FPC_NOTX if they both don't exist.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2787 * FPC_DIFFX if one of them doesn't exist.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2788 * For the first name environment variables are expanded if "expandenv" is
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2789 * TRUE.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2790 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2791 int
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2792 fullpathcmp(
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2793 char_u *s1,
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2794 char_u *s2,
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2795 int checkname, // when both don't exist, check file names
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2796 int expandenv)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2797 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2798 #ifdef UNIX
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2799 char_u exp1[MAXPATHL];
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2800 char_u full1[MAXPATHL];
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2801 char_u full2[MAXPATHL];
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2802 stat_T st1, st2;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2803 int r1, r2;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2804
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2805 if (expandenv)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2806 expand_env(s1, exp1, MAXPATHL);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2807 else
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2808 vim_strncpy(exp1, s1, MAXPATHL - 1);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2809 r1 = mch_stat((char *)exp1, &st1);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2810 r2 = mch_stat((char *)s2, &st2);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2811 if (r1 != 0 && r2 != 0)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2812 {
18779 8f05b3cf8557 patch 8.1.2379: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18516 diff changeset	2813 // if mch_stat() doesn't work, may compare the names
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2814 if (checkname)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2815 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2816 if (fnamecmp(exp1, s2) == 0)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2817 return FPC_SAMEX;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2818 r1 = vim_FullName(exp1, full1, MAXPATHL, FALSE);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2819 r2 = vim_FullName(s2, full2, MAXPATHL, FALSE);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2820 if (r1 == OK && r2 == OK && fnamecmp(full1, full2) == 0)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2821 return FPC_SAMEX;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2822 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2823 return FPC_NOTX;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2824 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2825 if (r1 != 0 \|\| r2 != 0)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2826 return FPC_DIFFX;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2827 if (st1.st_dev == st2.st_dev && st1.st_ino == st2.st_ino)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2828 return FPC_SAME;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2829 return FPC_DIFF;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2830 #else
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2831 char_u *exp1; // expanded s1
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2832 char_u *full1; // full path of s1
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2833 char_u *full2; // full path of s2
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2834 int retval = FPC_DIFF;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2835 int r1, r2;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2836
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2837 // allocate one buffer to store three paths (alloc()/free() is slow!)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2838 if ((exp1 = alloc(MAXPATHL * 3)) != NULL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2839 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2840 full1 = exp1 + MAXPATHL;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2841 full2 = full1 + MAXPATHL;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2842
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2843 if (expandenv)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2844 expand_env(s1, exp1, MAXPATHL);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2845 else
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2846 vim_strncpy(exp1, s1, MAXPATHL - 1);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2847 r1 = vim_FullName(exp1, full1, MAXPATHL, FALSE);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2848 r2 = vim_FullName(s2, full2, MAXPATHL, FALSE);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2849
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2850 // If vim_FullName() fails, the file probably doesn't exist.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2851 if (r1 != OK && r2 != OK)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2852 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2853 if (checkname && fnamecmp(exp1, s2) == 0)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2854 retval = FPC_SAMEX;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2855 else
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2856 retval = FPC_NOTX;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2857 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2858 else if (r1 != OK \|\| r2 != OK)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2859 retval = FPC_DIFFX;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2860 else if (fnamecmp(full1, full2))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2861 retval = FPC_DIFF;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2862 else
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2863 retval = FPC_SAME;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2864 vim_free(exp1);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2865 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2866 return retval;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2867 #endif
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2868 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2869
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2870 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2871 * Get the tail of a path: the file name.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2872 * When the path ends in a path separator the tail is the NUL after it.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2873 * Fail safe: never returns NULL.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2874 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2875 char_u *
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2876 gettail(char_u *fname)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2877 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2878 char_u p1, p2;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2879
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2880 if (fname == NULL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2881 return (char_u *)"";
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2882 for (p1 = p2 = get_past_head(fname); *p2; ) // find last part of path
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2883 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2884 if (vim_ispathsep_nocolon(*p2))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2885 p1 = p2 + 1;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2886 MB_PTR_ADV(p2);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2887 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2888 return p1;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2889 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2890
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2891 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2892 * Get pointer to tail of "fname", including path separators. Putting a NUL
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2893 * here leaves the directory name. Takes care of "c:/" and "//".
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2894 * Always returns a valid pointer.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2895 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2896 char_u *
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2897 gettail_sep(char_u *fname)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2898 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2899 char_u *p;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2900 char_u *t;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2901
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2902 p = get_past_head(fname); // don't remove the '/' from "c:/file"
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2903 t = gettail(fname);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2904 while (t > p && after_pathsep(fname, t))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2905 --t;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2906 #ifdef VMS
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2907 // path separator is part of the path
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2908 ++t;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2909 #endif
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2910 return t;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2911 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2912
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2913 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2914 * get the next path component (just after the next path separator).
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2915 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2916 char_u *
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2917 getnextcomp(char_u *fname)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2918 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2919 while (fname && !vim_ispathsep(fname))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2920 MB_PTR_ADV(fname);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2921 if (*fname)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2922 ++fname;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2923 return fname;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2924 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2925
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2926 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2927 * Get a pointer to one character past the head of a path name.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2928 * Unix: after "/"; DOS: after "c:\"; Amiga: after "disk:/"; Mac: no head.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2929 * If there is no head, path is returned.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2930 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2931 char_u *
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2932 get_past_head(char_u *path)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2933 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2934 char_u *retval;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2935
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2936 #if defined(MSWIN)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2937 // may skip "c:"
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2938 if (isalpha(path[0]) && path[1] == ':')
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2939 retval = path + 2;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2940 else
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2941 retval = path;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2942 #else
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2943 # if defined(AMIGA)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2944 // may skip "label:"
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2945 retval = vim_strchr(path, ':');
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2946 if (retval == NULL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2947 retval = path;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2948 # else // Unix
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2949 retval = path;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2950 # endif
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2951 #endif
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2952
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2953 while (vim_ispathsep(*retval))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2954 ++retval;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2955
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2956 return retval;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2957 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2958
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2959 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2960 * Return TRUE if 'c' is a path separator.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2961 * Note that for MS-Windows this includes the colon.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2962 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2963 int
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2964 vim_ispathsep(int c)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2965 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2966 #ifdef UNIX
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2967 return (c == '/'); // UNIX has ':' inside file names
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2968 #else
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2969 # ifdef BACKSLASH_IN_FILENAME
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2970 return (c == ':' \|\| c == '/' \|\| c == '\\');
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2971 # else
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2972 # ifdef VMS
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2973 // server"user passwd"::device:[full.path.name]fname.extension;version"
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2974 return (c == ':' \|\| c == '[' \|\| c == ']' \|\| c == '/'
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2975 \|\| c == '<' \|\| c == '>' \|\| c == '"' );
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2976 # else
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2977 return (c == ':' \|\| c == '/');
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2978 # endif // VMS
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2979 # endif
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2980 #endif
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2981 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2982
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2983 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2984 * Like vim_ispathsep(c), but exclude the colon for MS-Windows.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2985 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2986 int
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2987 vim_ispathsep_nocolon(int c)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2988 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2989 return vim_ispathsep(c)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2990 #ifdef BACKSLASH_IN_FILENAME
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2991 && c != ':'
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2992 #endif
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2993 ;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2994 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2995
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2996 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2997 * Return TRUE if the directory of "fname" exists, FALSE otherwise.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2998 * Also returns TRUE if there is no directory name.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	2999 * "fname" must be writable!.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3000 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3001 int
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3002 dir_of_file_exists(char_u *fname)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3003 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3004 char_u *p;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3005 int c;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3006 int retval;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3007
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3008 p = gettail_sep(fname);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3009 if (p == fname)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3010 return TRUE;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3011 c = *p;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3012 *p = NUL;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3013 retval = mch_isdir(fname);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3014 *p = c;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3015 return retval;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3016 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3017
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3018 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3019 * Versions of fnamecmp() and fnamencmp() that handle '/' and '\' equally
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3020 * and deal with 'fileignorecase'.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3021 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3022 int
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3023 vim_fnamecmp(char_u x, char_u y)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3024 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3025 #ifdef BACKSLASH_IN_FILENAME
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3026 return vim_fnamencmp(x, y, MAXPATHL);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3027 #else
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3028 if (p_fic)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3029 return MB_STRICMP(x, y);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3030 return STRCMP(x, y);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3031 #endif
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3032 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3033
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3034 int
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3035 vim_fnamencmp(char_u x, char_u y, size_t len)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3036 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3037 #ifdef BACKSLASH_IN_FILENAME
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3038 char_u *px = x;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3039 char_u *py = y;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3040 int cx = NUL;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3041 int cy = NUL;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3042
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3043 while (len > 0)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3044 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3045 cx = PTR2CHAR(px);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3046 cy = PTR2CHAR(py);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3047 if (cx == NUL \|\| cy == NUL
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3048 \|\| ((p_fic ? MB_TOLOWER(cx) != MB_TOLOWER(cy) : cx != cy)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3049 && !(cx == '/' && cy == '\\')
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3050 && !(cx == '\\' && cy == '/')))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3051 break;
18251 c8a53c0daeed patch 8.1.2120: some MB_ macros are more complicated than necessary Bram Moolenaar <Bram@vim.org> parents: 18051 diff changeset	3052 len -= mb_ptr2len(px);
c8a53c0daeed patch 8.1.2120: some MB_ macros are more complicated than necessary Bram Moolenaar <Bram@vim.org> parents: 18051 diff changeset	3053 px += mb_ptr2len(px);
c8a53c0daeed patch 8.1.2120: some MB_ macros are more complicated than necessary Bram Moolenaar <Bram@vim.org> parents: 18051 diff changeset	3054 py += mb_ptr2len(py);
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3055 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3056 if (len == 0)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3057 return 0;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3058 return (cx - cy);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3059 #else
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3060 if (p_fic)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3061 return MB_STRNICMP(x, y, len);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3062 return STRNCMP(x, y, len);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3063 #endif
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3064 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3065
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3066 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3067 * Concatenate file names fname1 and fname2 into allocated memory.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3068 * Only add a '/' or '\\' when 'sep' is TRUE and it is necessary.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3069 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3070 char_u *
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3071 concat_fnames(char_u fname1, char_u fname2, int sep)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3072 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3073 char_u *dest;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3074
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3075 dest = alloc(STRLEN(fname1) + STRLEN(fname2) + 3);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3076 if (dest != NULL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3077 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3078 STRCPY(dest, fname1);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3079 if (sep)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3080 add_pathsep(dest);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3081 STRCAT(dest, fname2);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3082 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3083 return dest;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3084 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3085
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3086 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3087 * Add a path separator to a file name, unless it already ends in a path
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3088 * separator.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3089 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3090 void
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3091 add_pathsep(char_u *p)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3092 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3093 if (*p != NUL && !after_pathsep(p, p + STRLEN(p)))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3094 STRCAT(p, PATHSEPSTR);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3095 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3096
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3097 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3098 * FullName_save - Make an allocated copy of a full file name.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3099 * Returns NULL when out of memory.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3100 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3101 char_u *
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3102 FullName_save(
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3103 char_u *fname,
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3104 int force) // force expansion, even when it already looks
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3105 // like a full path name
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3106 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3107 char_u *buf;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3108 char_u *new_fname = NULL;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3109
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3110 if (fname == NULL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3111 return NULL;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3112
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3113 buf = alloc(MAXPATHL);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3114 if (buf != NULL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3115 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3116 if (vim_FullName(fname, buf, MAXPATHL, force) != FAIL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3117 new_fname = vim_strsave(buf);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3118 else
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3119 new_fname = vim_strsave(fname);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3120 vim_free(buf);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3121 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3122 return new_fname;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3123 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3124
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3125 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3126 * return TRUE if "fname" exists.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3127 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3128 int
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3129 vim_fexists(char_u *fname)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3130 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3131 stat_T st;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3132
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3133 if (mch_stat((char *)fname, &st))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3134 return FALSE;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3135 return TRUE;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3136 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3137
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3138 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3139 * Invoke expand_wildcards() for one pattern.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3140 * Expand items like "%:h" before the expansion.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3141 * Returns OK or FAIL.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3142 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3143 int
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3144 expand_wildcards_eval(
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3145 char_u **pat, // pointer to input pattern
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3146 int *num_file, // resulting number of files
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3147 char_u ***file, // array of resulting files
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3148 int flags) // EW_DIR, etc.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3149 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3150 int ret = FAIL;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3151 char_u *eval_pat = NULL;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3152 char_u exp_pat = pat;
30049 f005dea14c8b patch 9.0.0362: expanding ":e %" does not work for remote files Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	3153 char *ignored_msg;
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3154 int usedlen;
30049 f005dea14c8b patch 9.0.0362: expanding ":e %" does not work for remote files Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	3155 int is_cur_alt_file = exp_pat == '%' \|\| exp_pat == '#';
f005dea14c8b patch 9.0.0362: expanding ":e %" does not work for remote files Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	3156 int star_follows = FALSE;
f005dea14c8b patch 9.0.0362: expanding ":e %" does not work for remote files Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	3157
f005dea14c8b patch 9.0.0362: expanding ":e %" does not work for remote files Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	3158 if (is_cur_alt_file \|\| *exp_pat == '<')
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3159 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3160 ++emsg_off;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3161 eval_pat = eval_vars(exp_pat, exp_pat, &usedlen,
28635 dfe18756f2ad patch 8.2.4841: empty string considered an error for expand() Bram Moolenaar <Bram@vim.org> parents: 28629 diff changeset	3162 NULL, &ignored_msg, NULL, TRUE);
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3163 --emsg_off;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3164 if (eval_pat != NULL)
30049 f005dea14c8b patch 9.0.0362: expanding ":e %" does not work for remote files Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	3165 {
f005dea14c8b patch 9.0.0362: expanding ":e %" does not work for remote files Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	3166 star_follows = STRCMP(exp_pat + usedlen, "*") == 0;
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3167 exp_pat = concat_str(eval_pat, exp_pat + usedlen);
30049 f005dea14c8b patch 9.0.0362: expanding ":e %" does not work for remote files Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	3168 }
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3169 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3170
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3171 if (exp_pat != NULL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3172 ret = expand_wildcards(1, &exp_pat, num_file, file, flags);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3173
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3174 if (eval_pat != NULL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3175 {
30049 f005dea14c8b patch 9.0.0362: expanding ":e %" does not work for remote files Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	3176 if (*num_file == 0 && is_cur_alt_file && star_follows)
f005dea14c8b patch 9.0.0362: expanding ":e %" does not work for remote files Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	3177 {
f005dea14c8b patch 9.0.0362: expanding ":e %" does not work for remote files Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	3178 // Expanding "%" or "#" and the file does not exist: Add the
f005dea14c8b patch 9.0.0362: expanding ":e %" does not work for remote files Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	3179 // pattern anyway (without the star) so that this works for remote
f005dea14c8b patch 9.0.0362: expanding ":e %" does not work for remote files Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	3180 // files and non-file buffer names.
f005dea14c8b patch 9.0.0362: expanding ":e %" does not work for remote files Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	3181 file = ALLOC_ONE(char_u );
f005dea14c8b patch 9.0.0362: expanding ":e %" does not work for remote files Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	3182 if (*file != NULL)
f005dea14c8b patch 9.0.0362: expanding ":e %" does not work for remote files Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	3183 {
f005dea14c8b patch 9.0.0362: expanding ":e %" does not work for remote files Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	3184 **file = eval_pat;
f005dea14c8b patch 9.0.0362: expanding ":e %" does not work for remote files Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	3185 eval_pat = NULL;
f005dea14c8b patch 9.0.0362: expanding ":e %" does not work for remote files Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	3186 *num_file = 1;
f005dea14c8b patch 9.0.0362: expanding ":e %" does not work for remote files Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	3187 ret = OK;
f005dea14c8b patch 9.0.0362: expanding ":e %" does not work for remote files Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	3188 }
f005dea14c8b patch 9.0.0362: expanding ":e %" does not work for remote files Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	3189 }
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3190 vim_free(exp_pat);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3191 vim_free(eval_pat);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3192 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3193
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3194 return ret;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3195 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3196
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3197 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3198 * Expand wildcards. Calls gen_expand_wildcards() and removes files matching
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3199 * 'wildignore'.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3200 * Returns OK or FAIL. When FAIL then "num_files" won't be set.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3201 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3202 int
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3203 expand_wildcards(
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3204 int num_pat, // number of input patterns
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3205 char_u **pat, // array of input patterns
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3206 int *num_files, // resulting number of files
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3207 char_u ***files, // array of resulting files
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3208 int flags) // EW_DIR, etc.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3209 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3210 int retval;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3211 int i, j;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3212 char_u *p;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3213 int non_suf_match; // number without matching suffix
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3214
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3215 retval = gen_expand_wildcards(num_pat, pat, num_files, files, flags);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3216
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3217 // When keeping all matches, return here
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3218 if ((flags & EW_KEEPALL) \|\| retval == FAIL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3219 return retval;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3220
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3221 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3222 * Remove names that match 'wildignore'.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3223 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3224 if (*p_wig)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3225 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3226 char_u *ffname;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3227
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3228 // check all files in (*files)[]
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3229 for (i = 0; i < *num_files; ++i)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3230 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3231 ffname = FullName_save((*files)[i], FALSE);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3232 if (ffname == NULL) // out of memory
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3233 break;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3234 # ifdef VMS
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3235 vms_remove_version(ffname);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3236 # endif
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3237 if (match_file_list(p_wig, (*files)[i], ffname))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3238 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3239 // remove this matching file from the list
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3240 vim_free((*files)[i]);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3241 for (j = i; j + 1 < *num_files; ++j)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3242 (files)[j] = (files)[j + 1];
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3243 --*num_files;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3244 --i;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3245 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3246 vim_free(ffname);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3247 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3248
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3249 // If the number of matches is now zero, we fail.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3250 if (*num_files == 0)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3251 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3252 VIM_CLEAR(*files);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3253 return FAIL;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3254 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3255 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3256
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3257 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3258 * Move the names where 'suffixes' match to the end.
29784 86c203dbf12b patch 9.0.0231: expanding "*" may loop forever with directory links Bram Moolenaar <Bram@vim.org>* parents: 29442 diff changeset	3259 * Skip when interrupted, the result probably won't be used.
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3260 */
29784 86c203dbf12b patch 9.0.0231: expanding "*" may loop forever with directory links Bram Moolenaar <Bram@vim.org>* parents: 29442 diff changeset	3261 if (*num_files > 1 && !got_int)
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3262 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3263 non_suf_match = 0;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3264 for (i = 0; i < *num_files; ++i)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3265 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3266 if (!match_suffix((*files)[i]))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3267 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3268 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3269 * Move the name without matching suffix to the front
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3270 * of the list.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3271 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3272 p = (*files)[i];
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3273 for (j = i; j > non_suf_match; --j)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3274 (files)[j] = (files)[j - 1];
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3275 (*files)[non_suf_match++] = p;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3276 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3277 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3278 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3279
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3280 return retval;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3281 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3282
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3283 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3284 * Return TRUE if "fname" matches with an entry in 'suffixes'.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3285 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3286 int
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3287 match_suffix(char_u *fname)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3288 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3289 int fnamelen, setsuflen;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3290 char_u *setsuf;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3291 #define MAXSUFLEN 30 // maximum length of a file suffix
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3292 char_u suf_buf[MAXSUFLEN];
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3293
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3294 fnamelen = (int)STRLEN(fname);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3295 setsuflen = 0;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3296 for (setsuf = p_su; *setsuf; )
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3297 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3298 setsuflen = copy_option_part(&setsuf, suf_buf, MAXSUFLEN, ".,");
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3299 if (setsuflen == 0)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3300 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3301 char_u *tail = gettail(fname);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3302
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3303 // empty entry: match name without a '.'
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3304 if (vim_strchr(tail, '.') == NULL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3305 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3306 setsuflen = 1;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3307 break;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3308 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3309 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3310 else
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3311 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3312 if (fnamelen >= setsuflen
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3313 && fnamencmp(suf_buf, fname + fnamelen - setsuflen,
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3314 (size_t)setsuflen) == 0)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3315 break;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3316 setsuflen = 0;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3317 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3318 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3319 return (setsuflen != 0);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3320 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3321
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3322 #ifdef VIM_BACKTICK
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3323
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3324 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3325 * Return TRUE if we can expand this backtick thing here.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3326 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3327 static int
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3328 vim_backtick(char_u *p)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3329 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3330 return (p == '`' && (p + 1) != NUL && *(p + STRLEN(p) - 1) == '`');
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3331 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3332
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3333 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3334 * Expand an item in `backticks` by executing it as a command.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3335 * Currently only works when pat[] starts and ends with a `.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3336 * Returns number of file names found, -1 if an error is encountered.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3337 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3338 static int
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3339 expand_backtick(
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3340 garray_T *gap,
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3341 char_u *pat,
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3342 int flags) // EW_* flags
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3343 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3344 char_u *p;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3345 char_u *cmd;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3346 char_u *buffer;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3347 int cnt = 0;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3348 int i;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3349
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3350 // Create the command: lop off the backticks.
20830 9064044fd4f6 patch 8.2.0967: unnecessary type casts for vim_strnsave() Bram Moolenaar <Bram@vim.org> parents: 20780 diff changeset	3351 cmd = vim_strnsave(pat + 1, STRLEN(pat) - 2);
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3352 if (cmd == NULL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3353 return -1;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3354
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3355 #ifdef FEAT_EVAL
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3356 if (*cmd == '=') // `={expr}`: Expand expression
20996 3af71cbcfdbe patch 8.2.1049: Vim9: leaking memory when using continuation line Bram Moolenaar <Bram@vim.org> parents: 20873 diff changeset	3357 buffer = eval_to_string(cmd + 1, TRUE);
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3358 else
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3359 #endif
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3360 buffer = get_cmd_output(cmd, NULL,
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3361 (flags & EW_SILENT) ? SHELL_SILENT : 0, NULL);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3362 vim_free(cmd);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3363 if (buffer == NULL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3364 return -1;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3365
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3366 cmd = buffer;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3367 while (*cmd != NUL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3368 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3369 cmd = skipwhite(cmd); // skip over white space
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3370 p = cmd;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3371 while (p != NUL && p != '\r' && *p != '\n') // skip over entry
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3372 ++p;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3373 // add an entry if it is not empty
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3374 if (p > cmd)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3375 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3376 i = *p;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3377 *p = NUL;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3378 addfile(gap, cmd, flags);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3379 *p = i;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3380 ++cnt;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3381 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3382 cmd = p;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3383 while (cmd != NUL && (cmd == '\r' \|\| *cmd == '\n'))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3384 ++cmd;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3385 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3386
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3387 vim_free(buffer);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3388 return cnt;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3389 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3390 #endif // VIM_BACKTICK
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3391
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3392 #if defined(MSWIN)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3393 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3394 * File name expansion code for MS-DOS, Win16 and Win32. It's here because
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3395 * it's shared between these systems.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3396 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3397
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3398 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3399 * comparison function for qsort in dos_expandpath()
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3400 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3401 static int
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3402 pstrcmp(const void a, const void b)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3403 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3404 return (pathcmp((char )a, (char **)b, -1));
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3405 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3406
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3407 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3408 * Recursively expand one path component into all matching files and/or
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3409 * directories. Adds matches to "gap". Handles "", "?", "[a-z]", "*", etc.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3410 * Return the number of matches found.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3411 * "path" has backslashes before chars that are not to be expanded, starting
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3412 * at "path[wildoff]".
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3413 * Return the number of matches found.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3414 * NOTE: much of this is identical to unix_expandpath(), keep in sync!
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3415 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3416 static int
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3417 dos_expandpath(
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3418 garray_T *gap,
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3419 char_u *path,
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3420 int wildoff,
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3421 int flags, // EW_* flags
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3422 int didstar) // expanded "**" once already
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3423 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3424 char_u *buf;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3425 char_u *path_end;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3426 char_u p, s, *e;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3427 int start_len = gap->ga_len;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3428 char_u *pat;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3429 regmatch_T regmatch;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3430 int starts_with_dot;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3431 int matches;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3432 int len;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3433 int starstar = FALSE;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3434 static int stardepth = 0; // depth for "**" expansion
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3435 HANDLE hFind = INVALID_HANDLE_VALUE;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3436 WIN32_FIND_DATAW wfb;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3437 WCHAR *wn = NULL; // UCS-2 name, NULL when not used.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3438 char_u *matchname;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3439 int ok;
19936 ce463840c826 patch 8.2.0524: Win32: searching for file matches is slow Bram Moolenaar <Bram@vim.org> parents: 19930 diff changeset	3440 char_u *p_alt;
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3441
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3442 // Expanding "**" may take a long time, check for CTRL-C.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3443 if (stardepth > 0)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3444 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3445 ui_breakcheck();
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3446 if (got_int)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3447 return 0;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3448 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3449
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3450 // Make room for file name. When doing encoding conversion the actual
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3451 // length may be quite a bit longer, thus use the maximum possible length.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3452 buf = alloc(MAXPATHL);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3453 if (buf == NULL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3454 return 0;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3455
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3456 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3457 * Find the first part in the path name that contains a wildcard or a ~1.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3458 * Copy it into buf, including the preceding characters.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3459 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3460 p = buf;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3461 s = buf;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3462 e = NULL;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3463 path_end = path;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3464 while (*path_end != NUL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3465 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3466 // May ignore a wildcard that has a backslash before it; it will
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3467 // be removed by rem_backslash() or file_pat_to_reg_pat() below.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3468 if (path_end >= path + wildoff && rem_backslash(path_end))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3469 p++ = path_end++;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3470 else if (path_end == '\\' \|\| path_end == ':' \|\| *path_end == '/')
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3471 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3472 if (e != NULL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3473 break;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3474 s = p + 1;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3475 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3476 else if (path_end >= path + wildoff
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3477 && vim_strchr((char_u )"?[~", *path_end) != NULL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3478 e = p;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3479 if (has_mbyte)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3480 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3481 len = (*mb_ptr2len)(path_end);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3482 STRNCPY(p, path_end, len);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3483 p += len;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3484 path_end += len;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3485 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3486 else
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3487 p++ = path_end++;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3488 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3489 e = p;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3490 *e = NUL;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3491
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3492 // now we have one wildcard component between s and e
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3493 // Remove backslashes between "wildoff" and the start of the wildcard
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3494 // component.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3495 for (p = buf + wildoff; p < s; ++p)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3496 if (rem_backslash(p))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3497 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3498 STRMOVE(p, p + 1);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3499 --e;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3500 --s;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3501 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3502
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3503 // Check for "**" between "s" and "e".
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3504 for (p = s; p < e; ++p)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3505 if (p[0] == '' && p[1] == '')
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3506 starstar = TRUE;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3507
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3508 starts_with_dot = *s == '.';
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3509 pat = file_pat_to_reg_pat(s, e, NULL, FALSE);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3510 if (pat == NULL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3511 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3512 vim_free(buf);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3513 return 0;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3514 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3515
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3516 // compile the regexp into a program
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3517 if (flags & (EW_NOERROR \| EW_NOTWILD))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3518 ++emsg_silent;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3519 regmatch.rm_ic = TRUE; // Always ignore case
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3520 regmatch.regprog = vim_regcomp(pat, RE_MAGIC);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3521 if (flags & (EW_NOERROR \| EW_NOTWILD))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3522 --emsg_silent;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3523 vim_free(pat);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3524
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3525 if (regmatch.regprog == NULL && (flags & EW_NOTWILD) == 0)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3526 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3527 vim_free(buf);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3528 return 0;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3529 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3530
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3531 // remember the pattern or file name being looked for
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3532 matchname = vim_strsave(s);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3533
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3534 // If "**" is by itself, this is the first time we encounter it and more
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3535 // is following then find matches without any directory.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3536 if (!didstar && stardepth < 100 && starstar && e - s == 2
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3537 && *path_end == '/')
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3538 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3539 STRCPY(s, path_end + 1);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3540 ++stardepth;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3541 (void)dos_expandpath(gap, buf, (int)(s - buf), flags, TRUE);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3542 --stardepth;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3543 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3544
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3545 // Scan all files in the directory with "dir/ ."
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3546 STRCPY(s, ".");
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3547 wn = enc_to_utf16(buf, NULL);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3548 if (wn != NULL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3549 hFind = FindFirstFileW(wn, &wfb);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3550 ok = (hFind != INVALID_HANDLE_VALUE);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3551
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3552 while (ok)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3553 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3554 p = utf16_to_enc(wfb.cFileName, NULL); // p is allocated here
19936 ce463840c826 patch 8.2.0524: Win32: searching for file matches is slow Bram Moolenaar <Bram@vim.org> parents: 19930 diff changeset	3555
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3556 if (p == NULL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3557 break; // out of memory
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3558
23873 7d3ee4d508b5 patch 8.2.2478: MS-Windows: backup files for plugins are loaded Bram Moolenaar <Bram@vim.org> parents: 23602 diff changeset	3559 // Do not use the alternate filename when the file name ends in '~',
7d3ee4d508b5 patch 8.2.2478: MS-Windows: backup files for plugins are loaded Bram Moolenaar <Bram@vim.org> parents: 23602 diff changeset	3560 // because it picks up backup files: short name for "foo.vim~" is
7d3ee4d508b5 patch 8.2.2478: MS-Windows: backup files for plugins are loaded Bram Moolenaar <Bram@vim.org> parents: 23602 diff changeset	3561 // "foo~1.vim", which matches "*.vim".
7d3ee4d508b5 patch 8.2.2478: MS-Windows: backup files for plugins are loaded Bram Moolenaar <Bram@vim.org> parents: 23602 diff changeset	3562 if (*wfb.cAlternateFileName == NUL \|\| p[STRLEN(p) - 1] == '~')
19938 f33098f1aec0 patch 8.2.0525: Win32: typo in assignment and misplaced paren Bram Moolenaar <Bram@vim.org> parents: 19936 diff changeset	3563 p_alt = NULL;
19936 ce463840c826 patch 8.2.0524: Win32: searching for file matches is slow Bram Moolenaar <Bram@vim.org> parents: 19930 diff changeset	3564 else
ce463840c826 patch 8.2.0524: Win32: searching for file matches is slow Bram Moolenaar <Bram@vim.org> parents: 19930 diff changeset	3565 p_alt = utf16_to_enc(wfb.cAlternateFileName, NULL);
ce463840c826 patch 8.2.0524: Win32: searching for file matches is slow Bram Moolenaar <Bram@vim.org> parents: 19930 diff changeset	3566
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3567 // Ignore entries starting with a dot, unless when asked for. Accept
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3568 // all entries found with "matchname".
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3569 if ((p[0] != '.' \|\| starts_with_dot
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3570 \|\| ((flags & EW_DODOT)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3571 && p[1] != NUL && (p[1] != '.' \|\| p[2] != NUL)))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3572 && (matchname == NULL
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3573 \|\| (regmatch.regprog != NULL
19938 f33098f1aec0 patch 8.2.0525: Win32: typo in assignment and misplaced paren Bram Moolenaar <Bram@vim.org> parents: 19936 diff changeset	3574 && (vim_regexec(&regmatch, p, (colnr_T)0)
19936 ce463840c826 patch 8.2.0524: Win32: searching for file matches is slow Bram Moolenaar <Bram@vim.org> parents: 19930 diff changeset	3575 \|\| (p_alt != NULL
19938 f33098f1aec0 patch 8.2.0525: Win32: typo in assignment and misplaced paren Bram Moolenaar <Bram@vim.org> parents: 19936 diff changeset	3576 && vim_regexec(&regmatch, p_alt, (colnr_T)0))))
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3577 \|\| ((flags & EW_NOTWILD)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3578 && fnamencmp(path + (s - buf), p, e - s) == 0)))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3579 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3580 STRCPY(s, p);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3581 len = (int)STRLEN(buf);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3582
19936 ce463840c826 patch 8.2.0524: Win32: searching for file matches is slow Bram Moolenaar <Bram@vim.org> parents: 19930 diff changeset	3583 if (starstar && stardepth < 100
ce463840c826 patch 8.2.0524: Win32: searching for file matches is slow Bram Moolenaar <Bram@vim.org> parents: 19930 diff changeset	3584 && (wfb.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY))
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3585 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3586 // For "**" in the pattern first go deeper in the tree to
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3587 // find matches.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3588 STRCPY(buf + len, "/**");
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3589 STRCPY(buf + len + 3, path_end);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3590 ++stardepth;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3591 (void)dos_expandpath(gap, buf, len + 1, flags, TRUE);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3592 --stardepth;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3593 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3594
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3595 STRCPY(buf + len, path_end);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3596 if (mch_has_exp_wildcard(path_end))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3597 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3598 // need to expand another component of the path
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3599 // remove backslashes for the remaining components only
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3600 (void)dos_expandpath(gap, buf, len + 1, flags, FALSE);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3601 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3602 else
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3603 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3604 // no more wildcards, check if there is a match
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3605 // remove backslashes for the remaining components only
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3606 if (*path_end != 0)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3607 backslash_halve(buf + len + 1);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3608 if (mch_getperm(buf) >= 0) // add existing file
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3609 addfile(gap, buf, flags);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3610 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3611 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3612
19936 ce463840c826 patch 8.2.0524: Win32: searching for file matches is slow Bram Moolenaar <Bram@vim.org> parents: 19930 diff changeset	3613 vim_free(p_alt);
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3614 vim_free(p);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3615 ok = FindNextFileW(hFind, &wfb);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3616 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3617
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3618 FindClose(hFind);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3619 vim_free(wn);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3620 vim_free(buf);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3621 vim_regfree(regmatch.regprog);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3622 vim_free(matchname);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3623
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3624 matches = gap->ga_len - start_len;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3625 if (matches > 0)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3626 qsort(((char_u **)gap->ga_data) + start_len, (size_t)matches,
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3627 sizeof(char_u *), pstrcmp);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3628 return matches;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3629 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3630
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3631 int
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3632 mch_expandpath(
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3633 garray_T *gap,
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3634 char_u *path,
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3635 int flags) // EW_* flags
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3636 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3637 return dos_expandpath(gap, path, 0, flags, FALSE);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3638 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3639 #endif // MSWIN
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3640
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3641 #if (defined(UNIX) && !defined(VMS)) \|\| defined(USE_UNIXFILENAME) \
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3642 \|\| defined(PROTO)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3643 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3644 * Unix style wildcard expansion code.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3645 * It's here because it's used both for Unix and Mac.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3646 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3647 static int
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3648 pstrcmp(const void a, const void b)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3649 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3650 return (pathcmp((char )a, (char **)b, -1));
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3651 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3652
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3653 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3654 * Recursively expand one path component into all matching files and/or
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3655 * directories. Adds matches to "gap". Handles "", "?", "[a-z]", "*", etc.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3656 * "path" has backslashes before chars that are not to be expanded, starting
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3657 * at "path + wildoff".
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3658 * Return the number of matches found.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3659 * NOTE: much of this is identical to dos_expandpath(), keep in sync!
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3660 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3661 int
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3662 unix_expandpath(
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3663 garray_T *gap,
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3664 char_u *path,
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3665 int wildoff,
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3666 int flags, // EW_* flags
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3667 int didstar) // expanded "**" once already
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3668 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3669 char_u *buf;
28881 3ddaf476a874 patch 8.2.4963: expanding path with "/*" may overrun end of buffer Bram Moolenaar <Bram@vim.org>* parents: 28809 diff changeset	3670 size_t buflen;
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3671 char_u *path_end;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3672 char_u p, s, *e;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3673 int start_len = gap->ga_len;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3674 char_u *pat;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3675 regmatch_T regmatch;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3676 int starts_with_dot;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3677 int matches;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3678 int len;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3679 int starstar = FALSE;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3680 static int stardepth = 0; // depth for "**" expansion
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3681
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3682 DIR *dirp;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3683 struct dirent *dp;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3684
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3685 // Expanding "**" may take a long time, check for CTRL-C.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3686 if (stardepth > 0)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3687 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3688 ui_breakcheck();
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3689 if (got_int)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3690 return 0;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3691 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3692
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3693 // make room for file name
28881 3ddaf476a874 patch 8.2.4963: expanding path with "/*" may overrun end of buffer Bram Moolenaar <Bram@vim.org>* parents: 28809 diff changeset	3694 buflen = STRLEN(path) + BASENAMELEN + 5;
3ddaf476a874 patch 8.2.4963: expanding path with "/*" may overrun end of buffer Bram Moolenaar <Bram@vim.org>* parents: 28809 diff changeset	3695 buf = alloc(buflen);
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3696 if (buf == NULL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3697 return 0;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3698
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3699 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3700 * Find the first part in the path name that contains a wildcard.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3701 * When EW_ICASE is set every letter is considered to be a wildcard.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3702 * Copy it into "buf", including the preceding characters.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3703 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3704 p = buf;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3705 s = buf;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3706 e = NULL;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3707 path_end = path;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3708 while (*path_end != NUL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3709 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3710 // May ignore a wildcard that has a backslash before it; it will
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3711 // be removed by rem_backslash() or file_pat_to_reg_pat() below.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3712 if (path_end >= path + wildoff && rem_backslash(path_end))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3713 p++ = path_end++;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3714 else if (*path_end == '/')
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3715 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3716 if (e != NULL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3717 break;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3718 s = p + 1;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3719 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3720 else if (path_end >= path + wildoff
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3721 && (vim_strchr((char_u )"?[{~$", *path_end) != NULL
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3722 \|\| (!p_fic && (flags & EW_ICASE)
27784 bfce04a99561 patch 8.2.4418: crash when using special multi-byte character Bram Moolenaar <Bram@vim.org> parents: 27621 diff changeset	3723 && vim_isalpha(PTR2CHAR(path_end)))))
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3724 e = p;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3725 if (has_mbyte)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3726 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3727 len = (*mb_ptr2len)(path_end);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3728 STRNCPY(p, path_end, len);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3729 p += len;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3730 path_end += len;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3731 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3732 else
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3733 p++ = path_end++;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3734 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3735 e = p;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3736 *e = NUL;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3737
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3738 // Now we have one wildcard component between "s" and "e".
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3739 // Remove backslashes between "wildoff" and the start of the wildcard
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3740 // component.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3741 for (p = buf + wildoff; p < s; ++p)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3742 if (rem_backslash(p))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3743 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3744 STRMOVE(p, p + 1);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3745 --e;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3746 --s;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3747 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3748
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3749 // Check for "**" between "s" and "e".
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3750 for (p = s; p < e; ++p)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3751 if (p[0] == '' && p[1] == '')
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3752 starstar = TRUE;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3753
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3754 // convert the file pattern to a regexp pattern
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3755 starts_with_dot = *s == '.';
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3756 pat = file_pat_to_reg_pat(s, e, NULL, FALSE);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3757 if (pat == NULL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3758 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3759 vim_free(buf);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3760 return 0;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3761 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3762
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3763 // compile the regexp into a program
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3764 if (flags & EW_ICASE)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3765 regmatch.rm_ic = TRUE; // 'wildignorecase' set
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3766 else
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3767 regmatch.rm_ic = p_fic; // ignore case when 'fileignorecase' is set
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3768 if (flags & (EW_NOERROR \| EW_NOTWILD))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3769 ++emsg_silent;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3770 regmatch.regprog = vim_regcomp(pat, RE_MAGIC);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3771 if (flags & (EW_NOERROR \| EW_NOTWILD))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3772 --emsg_silent;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3773 vim_free(pat);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3774
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3775 if (regmatch.regprog == NULL && (flags & EW_NOTWILD) == 0)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3776 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3777 vim_free(buf);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3778 return 0;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3779 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3780
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3781 // If "**" is by itself, this is the first time we encounter it and more
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3782 // is following then find matches without any directory.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3783 if (!didstar && stardepth < 100 && starstar && e - s == 2
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3784 && *path_end == '/')
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3785 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3786 STRCPY(s, path_end + 1);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3787 ++stardepth;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3788 (void)unix_expandpath(gap, buf, (int)(s - buf), flags, TRUE);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3789 --stardepth;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3790 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3791
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3792 // open the directory for scanning
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3793 *s = NUL;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3794 dirp = opendir(buf == NUL ? "." : (char )buf);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3795
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3796 // Find all matching entries
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3797 if (dirp != NULL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3798 {
29784 86c203dbf12b patch 9.0.0231: expanding "*" may loop forever with directory links Bram Moolenaar <Bram@vim.org>* parents: 29442 diff changeset	3799 while (!got_int)
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3800 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3801 dp = readdir(dirp);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3802 if (dp == NULL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3803 break;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3804 if ((dp->d_name[0] != '.' \|\| starts_with_dot
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3805 \|\| ((flags & EW_DODOT)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3806 && dp->d_name[1] != NUL
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3807 && (dp->d_name[1] != '.' \|\| dp->d_name[2] != NUL)))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3808 && ((regmatch.regprog != NULL && vim_regexec(&regmatch,
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3809 (char_u *)dp->d_name, (colnr_T)0))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3810 \|\| ((flags & EW_NOTWILD)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3811 && fnamencmp(path + (s - buf), dp->d_name, e - s) == 0)))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3812 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3813 STRCPY(s, dp->d_name);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3814 len = STRLEN(buf);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3815
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3816 if (starstar && stardepth < 100)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3817 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3818 // For "**" in the pattern first go deeper in the tree to
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3819 // find matches.
28881 3ddaf476a874 patch 8.2.4963: expanding path with "/*" may overrun end of buffer Bram Moolenaar <Bram@vim.org>* parents: 28809 diff changeset	3820 vim_snprintf((char *)buf + len, buflen - len,
3ddaf476a874 patch 8.2.4963: expanding path with "/*" may overrun end of buffer Bram Moolenaar <Bram@vim.org>* parents: 28809 diff changeset	3821 "/**%s", path_end);
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3822 ++stardepth;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3823 (void)unix_expandpath(gap, buf, len + 1, flags, TRUE);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3824 --stardepth;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3825 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3826
28881 3ddaf476a874 patch 8.2.4963: expanding path with "/*" may overrun end of buffer Bram Moolenaar <Bram@vim.org>* parents: 28809 diff changeset	3827 vim_snprintf((char *)buf + len, buflen - len, "%s", path_end);
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3828 if (mch_has_exp_wildcard(path_end)) // handle more wildcards
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3829 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3830 // need to expand another component of the path
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3831 // remove backslashes for the remaining components only
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3832 (void)unix_expandpath(gap, buf, len + 1, flags, FALSE);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3833 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3834 else
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3835 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3836 stat_T sb;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3837
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3838 // no more wildcards, check if there is a match
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3839 // remove backslashes for the remaining components only
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3840 if (*path_end != NUL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3841 backslash_halve(buf + len + 1);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3842 // add existing file or symbolic link
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3843 if ((flags & EW_ALLLINKS) ? mch_lstat((char *)buf, &sb) >= 0
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3844 : mch_getperm(buf) >= 0)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3845 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3846 #ifdef MACOS_CONVERT
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3847 size_t precomp_len = STRLEN(buf)+1;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3848 char_u *precomp_buf =
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3849 mac_precompose_path(buf, precomp_len, &precomp_len);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3850
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3851 if (precomp_buf)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3852 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3853 mch_memmove(buf, precomp_buf, precomp_len);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3854 vim_free(precomp_buf);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3855 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3856 #endif
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3857 addfile(gap, buf, flags);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3858 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3859 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3860 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3861 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3862
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3863 closedir(dirp);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3864 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3865
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3866 vim_free(buf);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3867 vim_regfree(regmatch.regprog);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3868
29784 86c203dbf12b patch 9.0.0231: expanding "*" may loop forever with directory links Bram Moolenaar <Bram@vim.org>* parents: 29442 diff changeset	3869 // When interrupted the matches probably won't be used and sorting can be
86c203dbf12b patch 9.0.0231: expanding "*" may loop forever with directory links Bram Moolenaar <Bram@vim.org>* parents: 29442 diff changeset	3870 // slow, thus skip it.
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3871 matches = gap->ga_len - start_len;
29784 86c203dbf12b patch 9.0.0231: expanding "*" may loop forever with directory links Bram Moolenaar <Bram@vim.org>* parents: 29442 diff changeset	3872 if (matches > 0 && !got_int)
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3873 qsort(((char_u **)gap->ga_data) + start_len, matches,
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3874 sizeof(char_u *), pstrcmp);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3875 return matches;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3876 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3877 #endif
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3878
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3879 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3880 * Return TRUE if "p" contains what looks like an environment variable.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3881 * Allowing for escaping.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3882 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3883 static int
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3884 has_env_var(char_u *p)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3885 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3886 for ( ; *p; MB_PTR_ADV(p))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3887 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3888 if (*p == '\\' && p[1] != NUL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3889 ++p;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3890 else if (vim_strchr((char_u *)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3891 #if defined(MSWIN)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3892 "$%"
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3893 #else
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3894 "$"
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3895 #endif
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3896 , *p) != NULL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3897 return TRUE;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3898 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3899 return FALSE;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3900 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3901
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3902 #ifdef SPECIAL_WILDCHAR
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3903 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3904 * Return TRUE if "p" contains a special wildcard character, one that Vim
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3905 * cannot expand, requires using a shell.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3906 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3907 static int
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3908 has_special_wildchar(char_u *p)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3909 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3910 for ( ; *p; MB_PTR_ADV(p))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3911 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3912 // Disallow line break characters.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3913 if (p == '\r' \|\| p == '\n')
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3914 break;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3915 // Allow for escaping.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3916 if (*p == '\\' && p[1] != NUL && p[1] != '\r' && p[1] != '\n')
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3917 ++p;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3918 else if (vim_strchr((char_u )SPECIAL_WILDCHAR, p) != NULL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3919 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3920 // A { must be followed by a matching }.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3921 if (*p == '{' && vim_strchr(p, '}') == NULL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3922 continue;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3923 // A quote and backtick must be followed by another one.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3924 if ((p == '`' \|\| p == '\'') && vim_strchr(p, *p) == NULL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3925 continue;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3926 return TRUE;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3927 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3928 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3929 return FALSE;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3930 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3931 #endif
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3932
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3933 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3934 * Generic wildcard expansion code.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3935 *
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3936 * Characters in "pat" that should not be expanded must be preceded with a
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3937 * backslash. E.g., "/path\ with\ spaces/my\star"
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3938 *
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3939 * Return FAIL when no single file was found. In this case "num_file" is not
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3940 * set, and "file" may contain an error message.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3941 * Return OK when some files found. "num_file" is set to the number of
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3942 * matches, "file" to the array of matches. Call FreeWild() later.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3943 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3944 int
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3945 gen_expand_wildcards(
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3946 int num_pat, // number of input patterns
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3947 char_u **pat, // array of input patterns
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3948 int *num_file, // resulting number of files
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3949 char_u ***file, // array of resulting files
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3950 int flags) // EW_* flags
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3951 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3952 int i;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3953 garray_T ga;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3954 char_u *p;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3955 static int recursive = FALSE;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3956 int add_pat;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3957 int retval = OK;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3958 int did_expand_in_path = FALSE;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3959
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3960 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3961 * expand_env() is called to expand things like "~user". If this fails,
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3962 * it calls ExpandOne(), which brings us back here. In this case, always
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3963 * call the machine specific expansion function, if possible. Otherwise,
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3964 * return FAIL.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3965 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3966 if (recursive)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3967 #ifdef SPECIAL_WILDCHAR
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3968 return mch_expand_wildcards(num_pat, pat, num_file, file, flags);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3969 #else
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3970 return FAIL;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3971 #endif
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3972
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3973 #ifdef SPECIAL_WILDCHAR
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3974 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3975 * If there are any special wildcard characters which we cannot handle
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3976 * here, call machine specific function for all the expansion. This
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3977 * avoids starting the shell for each argument separately.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3978 * For `=expr` do use the internal function.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3979 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3980 for (i = 0; i < num_pat; i++)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3981 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3982 if (has_special_wildchar(pat[i])
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3983 # ifdef VIM_BACKTICK
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3984 && !(vim_backtick(pat[i]) && pat[i][1] == '=')
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3985 # endif
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3986 )
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3987 return mch_expand_wildcards(num_pat, pat, num_file, file, flags);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3988 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3989 #endif
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3990
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3991 recursive = TRUE;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3992
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3993 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3994 * The matching file names are stored in a growarray. Init it empty.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3995 */
27028 c9474ae175f4 patch 8.2.4043: using int for second argument of ga_init2() Bram Moolenaar <Bram@vim.org> parents: 26952 diff changeset	3996 ga_init2(&ga, sizeof(char_u *), 30);
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3997
29784 86c203dbf12b patch 9.0.0231: expanding "*" may loop forever with directory links Bram Moolenaar <Bram@vim.org>* parents: 29442 diff changeset	3998 for (i = 0; i < num_pat && !got_int; ++i)
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	3999 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4000 add_pat = -1;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4001 p = pat[i];
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4002
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4003 #ifdef VIM_BACKTICK
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4004 if (vim_backtick(p))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4005 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4006 add_pat = expand_backtick(&ga, p, flags);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4007 if (add_pat == -1)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4008 retval = FAIL;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4009 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4010 else
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4011 #endif
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4012 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4013 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4014 * First expand environment variables, "~/" and "~user/".
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4015 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4016 if ((has_env_var(p) && !(flags & EW_NOTENV)) \|\| *p == '~')
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4017 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4018 p = expand_env_save_opt(p, TRUE);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4019 if (p == NULL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4020 p = pat[i];
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4021 #ifdef UNIX
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4022 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4023 * On Unix, if expand_env() can't expand an environment
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4024 * variable, use the shell to do that. Discard previously
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4025 * found file names and start all over again.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4026 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4027 else if (has_env_var(p) \|\| *p == '~')
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4028 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4029 vim_free(p);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4030 ga_clear_strings(&ga);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4031 i = mch_expand_wildcards(num_pat, pat, num_file, file,
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4032 flags\|EW_KEEPDOLLAR);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4033 recursive = FALSE;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4034 return i;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4035 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4036 #endif
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4037 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4038
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4039 /*
28291 1c97a31f8f22 patch 8.2.4671: 'wildignorecase' is sometimes not used for glob() Bram Moolenaar <Bram@vim.org> parents: 28255 diff changeset	4040 * If there are wildcards or case-insensitive expansion is
1c97a31f8f22 patch 8.2.4671: 'wildignorecase' is sometimes not used for glob() Bram Moolenaar <Bram@vim.org> parents: 28255 diff changeset	4041 * required: Expand file names and add each match to the list. If
1c97a31f8f22 patch 8.2.4671: 'wildignorecase' is sometimes not used for glob() Bram Moolenaar <Bram@vim.org> parents: 28255 diff changeset	4042 * there is no match, and EW_NOTFOUND is given, add the pattern.
1c97a31f8f22 patch 8.2.4671: 'wildignorecase' is sometimes not used for glob() Bram Moolenaar <Bram@vim.org> parents: 28255 diff changeset	4043 * Otherwise: Add the file name if it exists or when EW_NOTFOUND is
1c97a31f8f22 patch 8.2.4671: 'wildignorecase' is sometimes not used for glob() Bram Moolenaar <Bram@vim.org> parents: 28255 diff changeset	4044 * given.
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4045 */
28291 1c97a31f8f22 patch 8.2.4671: 'wildignorecase' is sometimes not used for glob() Bram Moolenaar <Bram@vim.org> parents: 28255 diff changeset	4046 if (mch_has_exp_wildcard(p) \|\| (flags & EW_ICASE))
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4047 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4048 if ((flags & EW_PATH)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4049 && !mch_isFullName(p)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4050 && !(p[0] == '.'
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4051 && (vim_ispathsep(p[1])
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4052 \|\| (p[1] == '.' && vim_ispathsep(p[2]))))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4053 )
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4054 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4055 // :find completion where 'path' is used.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4056 // Recursiveness is OK here.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4057 recursive = FALSE;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4058 add_pat = expand_in_path(&ga, p, flags);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4059 recursive = TRUE;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4060 did_expand_in_path = TRUE;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4061 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4062 else
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4063 add_pat = mch_expandpath(&ga, p, flags);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4064 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4065 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4066
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4067 if (add_pat == -1 \|\| (add_pat == 0 && (flags & EW_NOTFOUND)))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4068 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4069 char_u *t = backslash_halve_save(p);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4070
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4071 // When EW_NOTFOUND is used, always add files and dirs. Makes
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4072 // "vim c:/" work.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4073 if (flags & EW_NOTFOUND)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4074 addfile(&ga, t, flags \| EW_DIR \| EW_FILE);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4075 else
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4076 addfile(&ga, t, flags);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4077
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4078 if (t != p)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4079 vim_free(t);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4080 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4081
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4082 if (did_expand_in_path && ga.ga_len > 0 && (flags & EW_PATH))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4083 uniquefy_paths(&ga, p);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4084 if (p != pat[i])
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4085 vim_free(p);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4086 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4087
21072 42e2fb7ec6e1 patch 8.2.1087: possible memory leak when file expansion fails Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	4088 // When returning FAIL the array must be freed here.
42e2fb7ec6e1 patch 8.2.1087: possible memory leak when file expansion fails Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	4089 if (retval == FAIL)
28307 425700af491b patch 8.2.4679: cannot have expandcmd() give an error message for mistakes Bram Moolenaar <Bram@vim.org> parents: 28291 diff changeset	4090 ga_clear_strings(&ga);
21072 42e2fb7ec6e1 patch 8.2.1087: possible memory leak when file expansion fails Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	4091
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4092 *num_file = ga.ga_len;
21072 42e2fb7ec6e1 patch 8.2.1087: possible memory leak when file expansion fails Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	4093 file = (ga.ga_data != NULL) ? (char_u *)ga.ga_data
42e2fb7ec6e1 patch 8.2.1087: possible memory leak when file expansion fails Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	4094 : (char_u **)_("no matches");
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4095
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4096 recursive = FALSE;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4097
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4098 return ((flags & EW_EMPTYOK) \|\| ga.ga_data != NULL) ? retval : FAIL;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4099 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4100
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4101 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4102 * Add a file to a file list. Accepted flags:
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4103 * EW_DIR add directories
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4104 * EW_FILE add files
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4105 * EW_EXEC add executable files
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4106 * EW_NOTFOUND add even when it doesn't exist
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4107 * EW_ADDSLASH add slash after directory name
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4108 * EW_ALLLINKS add symlink also when the referred file does not exist
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4109 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4110 void
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4111 addfile(
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4112 garray_T *gap,
18779 8f05b3cf8557 patch 8.1.2379: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18516 diff changeset	4113 char_u *f, // filename
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4114 int flags)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4115 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4116 char_u *p;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4117 int isdir;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4118 stat_T sb;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4119
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4120 // if the file/dir/link doesn't exist, may not add it
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4121 if (!(flags & EW_NOTFOUND) && ((flags & EW_ALLLINKS)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4122 ? mch_lstat((char *)f, &sb) < 0 : mch_getperm(f) < 0))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4123 return;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4124
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4125 #ifdef FNAME_ILLEGAL
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4126 // if the file/dir contains illegal characters, don't add it
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4127 if (vim_strpbrk(f, (char_u *)FNAME_ILLEGAL) != NULL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4128 return;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4129 #endif
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4130
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4131 isdir = mch_isdir(f);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4132 if ((isdir && !(flags & EW_DIR)) \|\| (!isdir && !(flags & EW_FILE)))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4133 return;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4134
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4135 // If the file isn't executable, may not add it. Do accept directories.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4136 // When invoked from expand_shellcmd() do not use $PATH.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4137 if (!isdir && (flags & EW_EXEC)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4138 && !mch_can_exe(f, NULL, !(flags & EW_SHELLCMD)))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4139 return;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4140
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4141 // Make room for another item in the file list.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4142 if (ga_grow(gap, 1) == FAIL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4143 return;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4144
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4145 p = alloc(STRLEN(f) + 1 + isdir);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4146 if (p == NULL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4147 return;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4148
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4149 STRCPY(p, f);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4150 #ifdef BACKSLASH_IN_FILENAME
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4151 slash_adjust(p);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4152 #endif
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4153 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4154 * Append a slash or backslash after directory names if none is present.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4155 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4156 if (isdir && (flags & EW_ADDSLASH))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4157 add_pathsep(p);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4158 ((char_u **)gap->ga_data)[gap->ga_len++] = p;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4159 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4160
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4161 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4162 * Free the list of files returned by expand_wildcards() or other expansion
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4163 * functions.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4164 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4165 void
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4166 FreeWild(int count, char_u **files)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4167 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4168 if (count <= 0 \|\| files == NULL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4169 return;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4170 while (count--)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4171 vim_free(files[count]);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4172 vim_free(files);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4173 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4174
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4175 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4176 * Compare path "p[]" to "q[]".
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4177 * If "maxlen" >= 0 compare "p[maxlen]" to "q[maxlen]"
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4178 * Return value like strcmp(p, q), but consider path separators.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4179 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4180 int
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4181 pathcmp(const char p, const char q, int maxlen)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4182 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4183 int i, j;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4184 int c1, c2;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4185 const char *s = NULL;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4186
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4187 for (i = 0, j = 0; maxlen < 0 \|\| (i < maxlen && j < maxlen);)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4188 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4189 c1 = PTR2CHAR((char_u *)p + i);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4190 c2 = PTR2CHAR((char_u *)q + j);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4191
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4192 // End of "p": check if "q" also ends or just has a slash.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4193 if (c1 == NUL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4194 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4195 if (c2 == NUL) // full match
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4196 return 0;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4197 s = q;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4198 i = j;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4199 break;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4200 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4201
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4202 // End of "q": check if "p" just has a slash.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4203 if (c2 == NUL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4204 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4205 s = p;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4206 break;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4207 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4208
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4209 if ((p_fic ? MB_TOUPPER(c1) != MB_TOUPPER(c2) : c1 != c2)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4210 #ifdef BACKSLASH_IN_FILENAME
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4211 // consider '/' and '\\' to be equal
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4212 && !((c1 == '/' && c2 == '\\')
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4213 \|\| (c1 == '\\' && c2 == '/'))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4214 #endif
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4215 )
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4216 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4217 if (vim_ispathsep(c1))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4218 return -1;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4219 if (vim_ispathsep(c2))
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4220 return 1;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4221 return p_fic ? MB_TOUPPER(c1) - MB_TOUPPER(c2)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4222 : c1 - c2; // no match
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4223 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4224
18251 c8a53c0daeed patch 8.1.2120: some MB_ macros are more complicated than necessary Bram Moolenaar <Bram@vim.org> parents: 18051 diff changeset	4225 i += mb_ptr2len((char_u *)p + i);
c8a53c0daeed patch 8.1.2120: some MB_ macros are more complicated than necessary Bram Moolenaar <Bram@vim.org> parents: 18051 diff changeset	4226 j += mb_ptr2len((char_u *)q + j);
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4227 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4228 if (s == NULL) // "i" or "j" ran into "maxlen"
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4229 return 0;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4230
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4231 c1 = PTR2CHAR((char_u *)s + i);
18251 c8a53c0daeed patch 8.1.2120: some MB_ macros are more complicated than necessary Bram Moolenaar <Bram@vim.org> parents: 18051 diff changeset	4232 c2 = PTR2CHAR((char_u )s + i + mb_ptr2len((char_u )s + i));
17978 8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4233 // ignore a trailing slash, but not "//" or ":/"
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4234 if (c2 == NUL
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4235 && i > 0
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4236 && !after_pathsep((char_u )s, (char_u )s + i)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4237 #ifdef BACKSLASH_IN_FILENAME
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4238 && (c1 == '/' \|\| c1 == '\\')
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4239 #else
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4240 && c1 == '/'
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4241 #endif
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4242 )
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4243 return 0; // match with trailing slash
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4244 if (s == q)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4245 return -1; // no match
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4246 return 1;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4247 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4248
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4249 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4250 * Return TRUE if "name" is a full (absolute) path name or URL.
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4251 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4252 int
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4253 vim_isAbsName(char_u *name)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4254 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4255 return (path_with_url(name) != 0 \|\| mch_isFullName(name));
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4256 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4257
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4258 /*
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4259 * Get absolute file name into buffer "buf[len]".
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4260 *
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4261 * return FAIL for failure, OK otherwise
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4262 */
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4263 int
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4264 vim_FullName(
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4265 char_u *fname,
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4266 char_u *buf,
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4267 int len,
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4268 int force) // force expansion even when already absolute
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4269 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4270 int retval = OK;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4271 int url;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4272
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4273 *buf = NUL;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4274 if (fname == NULL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4275 return FAIL;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4276
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4277 url = path_with_url(fname);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4278 if (!url)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4279 retval = mch_FullName(fname, buf, len, force);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4280 if (url \|\| retval == FAIL)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4281 {
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4282 // something failed; use the file name (truncate when too long)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4283 vim_strncpy(buf, fname, len - 1);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4284 }
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4285 #if defined(MSWIN)
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4286 slash_adjust(buf);
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4287 #endif
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4288 return retval;
8f4cc259ed7a patch 8.1.1985: code for dealing with paths is spread out Bram Moolenaar <Bram@vim.org> parents: 17966 diff changeset	4289 }

Mercurial > vim

annotate src/filepath.c @ 30150:0fe61fa4e5d1 v9.0.0411