Mercurial > vim
view runtime/compiler/fortran_elf90.vim @ 34511:5397ce113043 v9.1.0161
patch 9.1.0161: expand() removes slash after env variable that ends with colon
Commit: https://github.com/vim/vim/commit/13a014452a7a020a119ac555a690c65b41f3126d
Author: zeertzjq <zeertzjq@outlook.com>
Date: Sat Mar 9 17:44:46 2024 +0100
patch 9.1.0161: expand() removes slash after env variable that ends with colon
Problem: expand() removes a slash after an environment variable that
ends with a colon on Windows.
Solution: Check the correct char for a colon (zeertzjq)
closes: #14161
Note: Vim still removes the path-separator at the end, if another path separator
follows directly after it, e.g. on:
```
echo $FOO='/usr/'
echo expand('$FOO/bar') == '/usr/bar'
```
see:
,----[ misc1.c:1630 ]
| // if var[] ends in a path separator and tail[] starts
| // with it, skip a character
| if (after_pathsep(dst, dst + c)
| #if defined(BACKSLASH_IN_FILENAME) || defined(AMIGA)
| && (dst == save_dst || dst[-1] != ':')
| #endif
| && vim_ispathsep(*tail))
| ++tail;
`----
Signed-off-by: zeertzjq <zeertzjq@outlook.com>
Signed-off-by: Christian Brabandt <cb@256bit.org>
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Sat, 09 Mar 2024 18:15:02 +0100 |
parents | 3fc0f57ecb91 |
children | e1df51f68736 |
line wrap: on
line source
" Vim compiler file " Compiler: Essential Lahey Fortran 90 " Probably also works for Lahey Fortran 90 " URL: http://www.unb.ca/chem/ajit/compiler/fortran_elf90.vim " Maintainer: Ajit J. Thakkar (ajit AT unb.ca); <http://www.unb.ca/chem/ajit/> " Version: 0.2 " Last Change: 2004 Mar 27 if exists("current_compiler") finish endif let current_compiler = "fortran_elf90" if exists(":CompilerSet") != 2 " older Vim always used :setlocal command -nargs=* CompilerSet setlocal <args> endif let s:cposet=&cpoptions set cpoptions-=C CompilerSet errorformat=\%ALine\ %l\\,\ file\ %f, \%C%tARNING\ --%m, \%C%tATAL\ --%m, \%C%tBORT\ --%m, \%+C%\\l%.%#\., \%C%p\|, \%C%.%#, \%Z%$, \%-G%.%# CompilerSet makeprg=elf90 let &cpoptions=s:cposet unlet s:cposet