Mercurial > vim

annotate runtime/ftplugin/fortran.vim @ 20084:a7952e905d40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added tag v8.2.0597 for changeset 0da696bd735261ee52705110e666859410e61ebc
author Bram Moolenaar <Bram@vim.org>
date Sat, 18 Apr 2020 22:00:04 +0200
parents aea5ebf352c4
children bd021eb62e73
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1 " Vim settings file
3492
3482d151136b Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3237
diff changeset
2 " Language: Fortran 2008 (and older: Fortran 2003, 95, 90, 77, 66)
7384
aea5ebf352c4 commit https://github.com/vim/vim/commit/256972a9849b5d575b62a6a71be5b6934b5b0e8b
Christian Brabandt <cb@256bit.org>
parents: 5400
diff changeset
3 " Version: 0.50
aea5ebf352c4 commit https://github.com/vim/vim/commit/256972a9849b5d575b62a6a71be5b6934b5b0e8b
Christian Brabandt <cb@256bit.org>
parents: 5400
diff changeset
4 " Last Change: 2015 Nov. 30
5400
173c9c860e42 Runtime file updates.
Bram Moolenaar <bram@vim.org>
parents: 3492
diff changeset
5 " Maintainer: Ajit J. Thakkar <ajit@unb.ca>; <http://www2.unb.ca/~ajit/>
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
0c8219a26bc9 More runtime file updates.
Bram Moolenaar <bram@vim.org>
parents: 819
diff changeset
7 " Credits:
5400
173c9c860e42 Runtime file updates.
Bram Moolenaar <bram@vim.org>
parents: 3492
diff changeset
8 " Useful suggestions were made by Stefano Zacchiroli, Hendrik Merx, Ben
173c9c860e42 Runtime file updates.
Bram Moolenaar <bram@vim.org>
parents: 3492
diff changeset
9 " Fritz, and David Barnett.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
10
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
11 " Only do these settings when not done yet for this buffer
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
12 if exists("b:did_ftplugin")
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
13 finish
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
14 endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
15
3237
91e53bcb7946 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 2398
diff changeset
16 let s:cposet=&cpoptions
91e53bcb7946 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 2398
diff changeset
17 set cpoptions&vim
91e53bcb7946 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 2398
diff changeset
18
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
19 " Don't do other file type settings for this buffer
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
20 let b:did_ftplugin = 1
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
21
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
22 " 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
23 " 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
24 " buffer-local value
aea5ebf352c4 commit https://github.com/vim/vim/commit/256972a9849b5d575b62a6a71be5b6934b5b0e8b
Christian Brabandt <cb@256bit.org>
parents: 5400
diff changeset
25 " > global value
aea5ebf352c4 commit https://github.com/vim/vim/commit/256972a9849b5d575b62a6a71be5b6934b5b0e8b
Christian Brabandt <cb@256bit.org>
parents: 5400
diff changeset
26 " > file extension as in Intel ifort, gcc (gfortran), NAG, Pathscale, and Cray compilers
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
27 if !exists("b:fortran_fixed_source")
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
28 if exists("fortran_free_source")
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
29 " User guarantees free source form
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
30 let b:fortran_fixed_source = 0
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
31 elseif exists("fortran_fixed_source")
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
32 " User guarantees fixed source form
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
33 let b:fortran_fixed_source = 1
7384
aea5ebf352c4 commit https://github.com/vim/vim/commit/256972a9849b5d575b62a6a71be5b6934b5b0e8b
Christian Brabandt <cb@256bit.org>
parents: 5400
diff changeset
34 elseif expand("%:e") ==? "f\<90\|95\|03\|08\>"
aea5ebf352c4 commit https://github.com/vim/vim/commit/256972a9849b5d575b62a6a71be5b6934b5b0e8b
Christian Brabandt <cb@256bit.org>
parents: 5400
diff changeset
35 " 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
36 let b:fortran_fixed_source = 0
aea5ebf352c4 commit https://github.com/vim/vim/commit/256972a9849b5d575b62a6a71be5b6934b5b0e8b
Christian Brabandt <cb@256bit.org>
parents: 5400
diff changeset
37 elseif expand("%:e") ==? "f\|f77\|for"
aea5ebf352c4 commit https://github.com/vim/vim/commit/256972a9849b5d575b62a6a71be5b6934b5b0e8b
Christian Brabandt <cb@256bit.org>
parents: 5400
diff changeset
38 " Fixed-form file extension defaults
aea5ebf352c4 commit https://github.com/vim/vim/commit/256972a9849b5d575b62a6a71be5b6934b5b0e8b
Christian Brabandt <cb@256bit.org>
parents: 5400
diff changeset
39 let b:fortran_fixed_source = 1
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
40 else
7384
aea5ebf352c4 commit https://github.com/vim/vim/commit/256972a9849b5d575b62a6a71be5b6934b5b0e8b
Christian Brabandt <cb@256bit.org>
parents: 5400
diff changeset
41 " Modern fortran still allows both fixed and free source form
aea5ebf352c4 commit https://github.com/vim/vim/commit/256972a9849b5d575b62a6a71be5b6934b5b0e8b
Christian Brabandt <cb@256bit.org>
parents: 5400
diff changeset
42 " 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
43 " are detected in the first five columns of the first s:lmax lines.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
44 " Detection becomes more accurate and time-consuming if more lines
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
45 " 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
46 " the very top of each file and you have a fast computer.
2398
0c8219a26bc9 More runtime file updates.
Bram Moolenaar <bram@vim.org>
parents: 819
diff changeset
47 let s:lmax = 500
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
48 if ( s:lmax > line("$") )
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
49 let s:lmax = line("$")
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
50 endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
51 let b:fortran_fixed_source = 1
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
52 let s:ln=1
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
53 while s:ln <= s:lmax
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
54 let s:test = strpart(getline(s:ln),0,5)
2398
0c8219a26bc9 More runtime file updates.
Bram Moolenaar <bram@vim.org>
parents: 819
diff changeset
55 if s:test !~ '^[Cc*]' && s:test !~ '^ *[!#]' && s:test =~ '[^ 0-9\t]' && s:test !~ '^[ 0-9]*\t'
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
56 let b:fortran_fixed_source = 0
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
57 break
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
58 endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
59 let s:ln = s:ln + 1
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
60 endwhile
2398
0c8219a26bc9 More runtime file updates.
Bram Moolenaar <bram@vim.org>
parents: 819
diff changeset
61 unlet! s:lmax s:ln s:test
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
62 endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
63 endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
64
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
65 " Set comments and textwidth according to source type
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
66 if (b:fortran_fixed_source == 1)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
67 setlocal comments=:!,:*,:C
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
68 " Fixed format requires a textwidth of 72 for code
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
69 setlocal tw=72
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
70 " If you need to add "&" on continued lines so that the code is
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
71 " compatible with both free and fixed format, then you should do so
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
72 " in column 73 and uncomment the next line
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
73 " setlocal tw=73
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
74 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
75 setlocal comments=:!
5400
173c9c860e42 Runtime file updates.
Bram Moolenaar <bram@vim.org>
parents: 3492
diff changeset
76 " Free format allows a textwidth of 132
173c9c860e42 Runtime file updates.
Bram Moolenaar <bram@vim.org>
parents: 3492
diff changeset
77 setlocal tw=132
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
78 endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
79
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
80 " Set commentstring for foldmethod=marker
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
81 setlocal cms=!%s
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
82
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
83 " Tabs are not a good idea in Fortran so the default is to expand tabs
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
84 if !exists("fortran_have_tabs")
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
85 setlocal expandtab
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
86 endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
87
5400
173c9c860e42 Runtime file updates.
Bram Moolenaar <bram@vim.org>
parents: 3492
diff changeset
88 " Set 'formatoptions' to break text lines
173c9c860e42 Runtime file updates.
Bram Moolenaar <bram@vim.org>
parents: 3492
diff changeset
89 setlocal fo+=t
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
90
819
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 7
diff changeset
91 setlocal include=^\\c#\\=\\s*include\\s\\+
3492
3482d151136b Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3237
diff changeset
92 setlocal suffixesadd+=.f08,.f03,.f95,.f90,.for,.f,.F,.f77,.ftn,.fpp
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
93
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
94 " Define patterns for the matchit plugin
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
95 if !exists("b:match_words")
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
96 let s:notend = '\%(\<end\s\+\)\@<!'
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
97 let s:notselect = '\%(\<select\s\+\)\@<!'
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
98 let s:notelse = '\%(\<end\s\+\|\<else\s\+\)\@<!'
819
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 7
diff changeset
99 let s:notprocedure = '\%(\s\+procedure\>\)\@!'
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
100 let b:match_ignorecase = 1
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
101 let b:match_words =
3492
3482d151136b Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3237
diff changeset
102 \ '(:),' .
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
103 \ '\<select\s*case\>:' . s:notselect. '\<case\>:\<end\s*select\>,' .
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
104 \ s:notelse . '\<if\s*(.\+)\s*then\>:' .
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
105 \ '\<else\s*\%(if\s*(.\+)\s*then\)\=\>:\<end\s*if\>,'.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
106 \ 'do\s\+\(\d\+\):\%(^\s*\)\@<=\1\s,'.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
107 \ s:notend . '\<do\>:\<end\s*do\>,'.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
108 \ s:notelse . '\<where\>:\<elsewhere\>:\<end\s*where\>,'.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
109 \ s:notend . '\<type\s*[^(]:\<end\s*type\>,'.
3492
3482d151136b Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3237
diff changeset
110 \ s:notend . '\<forall\>:\<end\s*forall\>,'.
3482d151136b Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3237
diff changeset
111 \ s:notend . '\<associate\>:\<end\s*associate\>,'.
3482d151136b Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3237
diff changeset
112 \ s:notend . '\<enum\>:\<end\s*enum\>,'.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
113 \ s:notend . '\<interface\>:\<end\s*interface\>,'.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
114 \ s:notend . '\<subroutine\>:\<end\s*subroutine\>,'.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
115 \ s:notend . '\<function\>:\<end\s*function\>,'.
819
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 7
diff changeset
116 \ s:notend . '\<module\>' . s:notprocedure . ':\<end\s*module\>,'.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
117 \ s:notend . '\<program\>:\<end\s*program\>'
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
118 endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
119
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
120 " File filters for :browse e
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
121 if has("gui_win32") && !exists("b:browsefilter")
3492
3482d151136b Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3237
diff changeset
122 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" .
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
123 \ "All Files (*.*)\t*.*\n"
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
124 endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
125
5400
173c9c860e42 Runtime file updates.
Bram Moolenaar <bram@vim.org>
parents: 3492
diff changeset
126 let b:undo_ftplugin = "setl fo< com< tw< cms< et< inc< sua<"
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
127 \ . "| unlet! b:match_ignorecase b:match_words b:browsefilter"
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
128
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
129 let &cpoptions=s:cposet
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
130 unlet s:cposet
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
131
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
132 " vim:sw=2