Mercurial > vim
annotate runtime/ftplugin/fortran.vim @ 34134:8ae680be2a51
runtime(ftplugin): Use "*" browsefilter pattern to match "All Files"
Commit: https://github.com/vim/vim/commit/93197fde0f1db09b1e495cf3eb14a8f42c318b80
Author: Doug Kearns <dougkearns@gmail.com>
Date: Sun Jan 14 20:59:02 2024 +0100
runtime(ftplugin): Use "*" browsefilter pattern to match "All Files"
Problem: The "*.*" browsefilter pattern only matches all files on
Windows (Daryl Lee)
Solution: Use "*" to filter on all platforms but keep "*.*" as the label
text on Windows. (Fixes #12685, Doug Kearns)
The *.* browsefilter pattern used to match "All Files" on Windows is a
legacy of the DOS 8.3 filename wildcard matching algorithm. For reasons
of backward compatibility this still works on Windows to match all
files, even those without an extension.
However, this pattern only matches filenames containing a dot on other
platforms. This often makes files without an extension difficult to
access from the file dialog, e.g., "Makefile"
On Windows it is still standard practice to use "*.*" for the filter
label so ftplugins should use "All Files (*.*)" on Windows and "All
Files (*)" on other platforms. This matches Vim's default browsefilter
values.
This commit also normalises the browsefilter conditional test to check
for the Win32 and GTK GUI features and an unset b:browsefilter.
closes: #12759
Signed-off-by: Doug Kearns <dougkearns@gmail.com>
Signed-off-by: Christian Brabandt <cb@256bit.org>
| author | Christian Brabandt <cb@256bit.org> |
|---|---|
| date | Sun, 14 Jan 2024 21:15:03 +0100 |
| parents | 7bbae0fa2d7d |
| children | 7c7432a53a6c |
| rev | line source |
|---|---|
| 7 | 1 " Vim settings file |
|
34010
7bbae0fa2d7d
Runtime(fortran): updates to indent, syntax and ftplugin (#13752)
Christian Brabandt <cb@256bit.org>
parents:
33894
diff
changeset
|
2 " Language: Fortran 2023 (and Fortran 2018, 2008, 2003, 95, 90, 77, 66) |
|
7bbae0fa2d7d
Runtime(fortran): updates to indent, syntax and ftplugin (#13752)
Christian Brabandt <cb@256bit.org>
parents:
33894
diff
changeset
|
3 " Version: (v55) 2023 December 22 |
|
33894
cf2ae76cbbf7
runtime(fortran): update syntax and ftplugins
Christian Brabandt <cb@256bit.org>
parents:
29066
diff
changeset
|
4 " Maintainers: Ajit J. Thakkar <ajit@unb.ca>; <https://ajit.ext.unb.ca/> |
|
cf2ae76cbbf7
runtime(fortran): update syntax and ftplugins
Christian Brabandt <cb@256bit.org>
parents:
29066
diff
changeset
|
5 " Joshua Hollett <j.hollett@uwinnipeg.ca> |
|
7384
aea5ebf352c4
commit https://github.com/vim/vim/commit/256972a9849b5d575b62a6a71be5b6934b5b0e8b
Christian Brabandt <cb@256bit.org>
parents:
5400
diff
changeset
|
6 " Usage: For instructions, do :help fortran-plugin from Vim |
| 2398 | 7 " Credits: |
| 22565 | 8 " Version 0.1 was created in September 2000 by Ajit Thakkar. |
| 9 " Since then, useful suggestions and contributions have been made, in order, by: | |
| 10 " Stefano Zacchiroli, Hendrik Merx, Ben Fritz, David Barnett, Eisuke Kawashima, | |
| 24387 | 11 " Doug Kearns, and Fritz Reese. |
|
34134
8ae680be2a51
runtime(ftplugin): Use "*" browsefilter pattern to match "All Files"
Christian Brabandt <cb@256bit.org>
parents:
34010
diff
changeset
|
12 " Last Change: 2023 Dec 22 |
|
8ae680be2a51
runtime(ftplugin): Use "*" browsefilter pattern to match "All Files"
Christian Brabandt <cb@256bit.org>
parents:
34010
diff
changeset
|
13 " 2024 Jan 14 by Vim Project (browsefilter) |
| 7 | 14 |
| 15 " Only do these settings when not done yet for this buffer | |
| 16 if exists("b:did_ftplugin") | |
| 17 finish | |
| 18 endif | |
| 19 | |
| 3237 | 20 let s:cposet=&cpoptions |
| 21 set cpoptions&vim | |
| 22 | |
| 7 | 23 " Don't do other file type settings for this buffer |
| 24 let b:did_ftplugin = 1 | |
| 25 | |
| 26 " Determine whether this is a fixed or free format source file | |
|
7384
aea5ebf352c4
commit https://github.com/vim/vim/commit/256972a9849b5d575b62a6a71be5b6934b5b0e8b
Christian Brabandt <cb@256bit.org>
parents:
5400
diff
changeset
|
27 " if this hasn't been done yet using the priority: |
|
aea5ebf352c4
commit https://github.com/vim/vim/commit/256972a9849b5d575b62a6a71be5b6934b5b0e8b
Christian Brabandt <cb@256bit.org>
parents:
5400
diff
changeset
|
28 " buffer-local value |
|
aea5ebf352c4
commit https://github.com/vim/vim/commit/256972a9849b5d575b62a6a71be5b6934b5b0e8b
Christian Brabandt <cb@256bit.org>
parents:
5400
diff
changeset
|
29 " > global value |
|
aea5ebf352c4
commit https://github.com/vim/vim/commit/256972a9849b5d575b62a6a71be5b6934b5b0e8b
Christian Brabandt <cb@256bit.org>
parents:
5400
diff
changeset
|
30 " > file extension as in Intel ifort, gcc (gfortran), NAG, Pathscale, and Cray compilers |
| 7 | 31 if !exists("b:fortran_fixed_source") |
| 32 if exists("fortran_free_source") | |
| 33 " User guarantees free source form | |
| 34 let b:fortran_fixed_source = 0 | |
| 35 elseif exists("fortran_fixed_source") | |
| 36 " User guarantees fixed source form | |
| 37 let b:fortran_fixed_source = 1 | |
| 20115 | 38 elseif expand("%:e") =~? '^f\%(90\|95\|03\|08\)$' |
|
7384
aea5ebf352c4
commit https://github.com/vim/vim/commit/256972a9849b5d575b62a6a71be5b6934b5b0e8b
Christian Brabandt <cb@256bit.org>
parents:
5400
diff
changeset
|
39 " Free-form file extension defaults as in Intel ifort, gcc(gfortran), NAG, Pathscale, and Cray compilers |
|
aea5ebf352c4
commit https://github.com/vim/vim/commit/256972a9849b5d575b62a6a71be5b6934b5b0e8b
Christian Brabandt <cb@256bit.org>
parents:
5400
diff
changeset
|
40 let b:fortran_fixed_source = 0 |
| 20115 | 41 elseif expand("%:e") =~? '^\%(f\|f77\|for\)$' |
|
7384
aea5ebf352c4
commit https://github.com/vim/vim/commit/256972a9849b5d575b62a6a71be5b6934b5b0e8b
Christian Brabandt <cb@256bit.org>
parents:
5400
diff
changeset
|
42 " Fixed-form file extension defaults |
|
aea5ebf352c4
commit https://github.com/vim/vim/commit/256972a9849b5d575b62a6a71be5b6934b5b0e8b
Christian Brabandt <cb@256bit.org>
parents:
5400
diff
changeset
|
43 let b:fortran_fixed_source = 1 |
| 7 | 44 else |
|
33894
cf2ae76cbbf7
runtime(fortran): update syntax and ftplugins
Christian Brabandt <cb@256bit.org>
parents:
29066
diff
changeset
|
45 " Modern fortran compilers still allow both fixed and free source form |
|
7384
aea5ebf352c4
commit https://github.com/vim/vim/commit/256972a9849b5d575b62a6a71be5b6934b5b0e8b
Christian Brabandt <cb@256bit.org>
parents:
5400
diff
changeset
|
46 " Assume fixed source form unless signs of free source form |
|
aea5ebf352c4
commit https://github.com/vim/vim/commit/256972a9849b5d575b62a6a71be5b6934b5b0e8b
Christian Brabandt <cb@256bit.org>
parents:
5400
diff
changeset
|
47 " are detected in the first five columns of the first s:lmax lines. |
| 7 | 48 " Detection becomes more accurate and time-consuming if more lines |
| 49 " are checked. Increase the limit below if you keep lots of comments at | |
|
7384
aea5ebf352c4
commit https://github.com/vim/vim/commit/256972a9849b5d575b62a6a71be5b6934b5b0e8b
Christian Brabandt <cb@256bit.org>
parents:
5400
diff
changeset
|
50 " the very top of each file and you have a fast computer. |
| 2398 | 51 let s:lmax = 500 |
| 7 | 52 if ( s:lmax > line("$") ) |
| 53 let s:lmax = line("$") | |
| 54 endif | |
| 55 let b:fortran_fixed_source = 1 | |
| 56 let s:ln=1 | |
| 57 while s:ln <= s:lmax | |
| 58 let s:test = strpart(getline(s:ln),0,5) | |
| 2398 | 59 if s:test !~ '^[Cc*]' && s:test !~ '^ *[!#]' && s:test =~ '[^ 0-9\t]' && s:test !~ '^[ 0-9]*\t' |
| 7 | 60 let b:fortran_fixed_source = 0 |
| 61 break | |
| 62 endif | |
| 63 let s:ln = s:ln + 1 | |
| 64 endwhile | |
| 2398 | 65 unlet! s:lmax s:ln s:test |
| 7 | 66 endif |
| 67 endif | |
| 68 | |
| 69 " Set comments and textwidth according to source type | |
| 70 if (b:fortran_fixed_source == 1) | |
| 71 setlocal comments=:!,:*,:C | |
| 24387 | 72 " Fixed format requires a textwidth of 72 for code, |
| 73 " but some vendor extensions allow longer lines | |
| 74 if exists("fortran_extended_line_length") | |
| 75 setlocal tw=132 | |
|
33894
cf2ae76cbbf7
runtime(fortran): update syntax and ftplugins
Christian Brabandt <cb@256bit.org>
parents:
29066
diff
changeset
|
76 else |
|
cf2ae76cbbf7
runtime(fortran): update syntax and ftplugins
Christian Brabandt <cb@256bit.org>
parents:
29066
diff
changeset
|
77 " The use of columns 73-80 for sequence numbers is obsolete |
|
cf2ae76cbbf7
runtime(fortran): update syntax and ftplugins
Christian Brabandt <cb@256bit.org>
parents:
29066
diff
changeset
|
78 " so almost all compilers allow a textwidth of 80 |
| 24387 | 79 setlocal tw=80 |
| 7 | 80 " If you need to add "&" on continued lines so that the code is |
| 81 " compatible with both free and fixed format, then you should do so | |
|
33894
cf2ae76cbbf7
runtime(fortran): update syntax and ftplugins
Christian Brabandt <cb@256bit.org>
parents:
29066
diff
changeset
|
82 " in column 81 and uncomment the next line |
|
cf2ae76cbbf7
runtime(fortran): update syntax and ftplugins
Christian Brabandt <cb@256bit.org>
parents:
29066
diff
changeset
|
83 " setlocal tw=81 |
| 24387 | 84 endif |
| 7 | 85 else |
| 86 setlocal comments=:! | |
| 5400 | 87 " Free format allows a textwidth of 132 |
| 88 setlocal tw=132 | |
| 7 | 89 endif |
| 90 | |
| 91 " Set commentstring for foldmethod=marker | |
| 92 setlocal cms=!%s | |
| 93 | |
| 94 " Tabs are not a good idea in Fortran so the default is to expand tabs | |
| 95 if !exists("fortran_have_tabs") | |
| 96 setlocal expandtab | |
| 97 endif | |
| 98 | |
| 5400 | 99 " Set 'formatoptions' to break text lines |
| 100 setlocal fo+=t | |
| 7 | 101 |
| 819 | 102 setlocal include=^\\c#\\=\\s*include\\s\\+ |
| 3492 | 103 setlocal suffixesadd+=.f08,.f03,.f95,.f90,.for,.f,.F,.f77,.ftn,.fpp |
| 7 | 104 |
| 105 " Define patterns for the matchit plugin | |
| 106 if !exists("b:match_words") | |
| 107 let s:notend = '\%(\<end\s\+\)\@<!' | |
| 108 let s:notselect = '\%(\<select\s\+\)\@<!' | |
| 109 let s:notelse = '\%(\<end\s\+\|\<else\s\+\)\@<!' | |
| 819 | 110 let s:notprocedure = '\%(\s\+procedure\>\)\@!' |
| 29066 | 111 let s:nothash = '\%(^\s*#\s*\)\@<!' |
| 7 | 112 let b:match_ignorecase = 1 |
| 113 let b:match_words = | |
| 3492 | 114 \ '(:),' . |
|
34010
7bbae0fa2d7d
Runtime(fortran): updates to indent, syntax and ftplugin (#13752)
Christian Brabandt <cb@256bit.org>
parents:
33894
diff
changeset
|
115 \ s:notend .'\<select\s\+type\>:' . s:notselect. '\<type\|class\>:\<end\s*select\>,' . |
|
7bbae0fa2d7d
Runtime(fortran): updates to indent, syntax and ftplugin (#13752)
Christian Brabandt <cb@256bit.org>
parents:
33894
diff
changeset
|
116 \ s:notend .'\<select\s\+rank\>:' . s:notselect. '\<rank\>:\<end\s*select\>,' . |
|
7bbae0fa2d7d
Runtime(fortran): updates to indent, syntax and ftplugin (#13752)
Christian Brabandt <cb@256bit.org>
parents:
33894
diff
changeset
|
117 \ s:notend .'\<select\>:' . s:notselect. '\<case\>:\<end\s*select\>,' . |
| 7 | 118 \ s:notelse . '\<if\s*(.\+)\s*then\>:' . |
| 29066 | 119 \ s:nothash . '\<else\s*\%(if\s*(.\+)\s*then\)\=\>:' . s:nothash . '\<end\s*if\>,'. |
| 7 | 120 \ 'do\s\+\(\d\+\):\%(^\s*\)\@<=\1\s,'. |
| 121 \ s:notend . '\<do\>:\<end\s*do\>,'. | |
| 122 \ s:notelse . '\<where\>:\<elsewhere\>:\<end\s*where\>,'. | |
| 123 \ s:notend . '\<type\s*[^(]:\<end\s*type\>,'. | |
| 3492 | 124 \ s:notend . '\<forall\>:\<end\s*forall\>,'. |
| 125 \ s:notend . '\<associate\>:\<end\s*associate\>,'. | |
|
34010
7bbae0fa2d7d
Runtime(fortran): updates to indent, syntax and ftplugin (#13752)
Christian Brabandt <cb@256bit.org>
parents:
33894
diff
changeset
|
126 \ s:notend . '\<change\s\+team\>:\<end\s*team\>,'. |
|
7bbae0fa2d7d
Runtime(fortran): updates to indent, syntax and ftplugin (#13752)
Christian Brabandt <cb@256bit.org>
parents:
33894
diff
changeset
|
127 \ s:notend . '\<critical\>:\<end\s*critical\>,'. |
|
7bbae0fa2d7d
Runtime(fortran): updates to indent, syntax and ftplugin (#13752)
Christian Brabandt <cb@256bit.org>
parents:
33894
diff
changeset
|
128 \ s:notend . '\<block\>:\<end\s*block\>,'. |
| 3492 | 129 \ s:notend . '\<enum\>:\<end\s*enum\>,'. |
| 7 | 130 \ s:notend . '\<interface\>:\<end\s*interface\>,'. |
| 131 \ s:notend . '\<subroutine\>:\<end\s*subroutine\>,'. | |
| 132 \ s:notend . '\<function\>:\<end\s*function\>,'. | |
| 819 | 133 \ s:notend . '\<module\>' . s:notprocedure . ':\<end\s*module\>,'. |
| 29066 | 134 \ s:notend . '\<program\>:\<end\s*program\>,'. |
| 135 \ '\%(^\s*\)\@<=#\s*if\%(def\|ndef\)\=\>:\%(^\s*\)\@<=#\s*\%(elif\|else\)\>:\%(^\s*\)\@<=#\s*endif\>' | |
| 7 | 136 endif |
| 137 | |
| 138 " File filters for :browse e | |
| 22565 | 139 if (has("gui_win32") || has("gui_gtk")) && !exists("b:browsefilter") |
|
34134
8ae680be2a51
runtime(ftplugin): Use "*" browsefilter pattern to match "All Files"
Christian Brabandt <cb@256bit.org>
parents:
34010
diff
changeset
|
140 let b:browsefilter = "Fortran Files (*.f, *.for, *.f77, *.f90, *.f95, *.f03, *.f08, *.fpp, *.ftn)\t*.f;*.for;*.f77;*.f90;*.f95;*.f03;*.f08;*.fpp;*.ftn\n" |
|
8ae680be2a51
runtime(ftplugin): Use "*" browsefilter pattern to match "All Files"
Christian Brabandt <cb@256bit.org>
parents:
34010
diff
changeset
|
141 if has("win32") |
|
8ae680be2a51
runtime(ftplugin): Use "*" browsefilter pattern to match "All Files"
Christian Brabandt <cb@256bit.org>
parents:
34010
diff
changeset
|
142 let b:browsefilter .= "All Files (*.*)\t*\n" |
|
8ae680be2a51
runtime(ftplugin): Use "*" browsefilter pattern to match "All Files"
Christian Brabandt <cb@256bit.org>
parents:
34010
diff
changeset
|
143 else |
|
8ae680be2a51
runtime(ftplugin): Use "*" browsefilter pattern to match "All Files"
Christian Brabandt <cb@256bit.org>
parents:
34010
diff
changeset
|
144 let b:browsefilter .= "All Files (*)\t*\n" |
|
8ae680be2a51
runtime(ftplugin): Use "*" browsefilter pattern to match "All Files"
Christian Brabandt <cb@256bit.org>
parents:
34010
diff
changeset
|
145 endif |
| 7 | 146 endif |
| 147 | |
| 5400 | 148 let b:undo_ftplugin = "setl fo< com< tw< cms< et< inc< sua<" |
| 7 | 149 \ . "| unlet! b:match_ignorecase b:match_words b:browsefilter" |
| 150 | |
| 151 let &cpoptions=s:cposet | |
| 152 unlet s:cposet | |
| 153 | |
| 154 " vim:sw=2 |