FM / indent

/usr/share/vim/vim80/indent

Name	Size	Mode	Actions
aap.vim	265	0644	edit dl rm
ada.vim	11235	0644	edit dl rm
ant.vim	290	0644	edit dl rm
automake.vim	243	0644	edit dl rm
awk.vim	7775	0644	edit dl rm
bib.vim	346	0644	edit dl rm
bst.vim	1937	0644	edit dl rm
bzl.vim	2484	0644	edit dl rm
c.vim	325	0644	edit dl rm
cdl.vim	4253	0644	edit dl rm
ch.vim	470	0644	edit dl rm
chaiscript.vim	1138	0644	edit dl rm
changelog.vim	264	0644	edit dl rm
clojure.vim	10440	0644	edit dl rm
cmake.vim	2683	0644	edit dl rm
cobol.vim	8305	0644	edit dl rm
config.vim	2182	0644	edit dl rm
context.vim	752	0644	edit dl rm
cpp.vim	329	0644	edit dl rm
cs.vim	327	0644	edit dl rm
css.vim	1790	0644	edit dl rm
cucumber.vim	2678	0644	edit dl rm
cuda.vim	305	0644	edit dl rm
d.vim	510	0644	edit dl rm
dictconf.vim	337	0644	edit dl rm
dictdconf.vim	338	0644	edit dl rm
docbk.vim	336	0644	edit dl rm
dtd.vim	11869	0644	edit dl rm
dtrace.vim	451	0644	edit dl rm
dylan.vim	2707	0644	edit dl rm
eiffel.vim	3317	0644	edit dl rm
erlang.vim	46379	0644	edit dl rm
eruby.vim	2802	0644	edit dl rm
eterm.vim	668	0644	edit dl rm
falcon.vim	14054	0644	edit dl rm
fortran.vim	7445	0644	edit dl rm
framescript.vim	816	0644	edit dl rm
gitconfig.vim	841	0644	edit dl rm
gitolite.vim	1277	0644	edit dl rm
go.vim	1673	0644	edit dl rm
haml.vim	2211	0644	edit dl rm
hamster.vim	1425	0644	edit dl rm
hog.vim	1892	0644	edit dl rm
html.vim	33248	0644	edit dl rm
htmldjango.vim	273	0644	edit dl rm
idlang.vim	1620	0644	edit dl rm
ishd.vim	1877	0644	edit dl rm
j.vim	1813	0644	edit dl rm
java.vim	4287	0644	edit dl rm
javascript.vim	15362	0644	edit dl rm
json.vim	4421	0644	edit dl rm
jsp.vim	462	0644	edit dl rm
ld.vim	1792	0644	edit dl rm
less.vim	243	0644	edit dl rm
lifelines.vim	637	0644	edit dl rm
liquid.vim	1899	0644	edit dl rm
lisp.vim	353	0644	edit dl rm
logtalk.vim	1744	0644	edit dl rm
lua.vim	1927	0644	edit dl rm
mail.vim	308	0644	edit dl rm
make.vim	3488	0644	edit dl rm
matlab.vim	1964	0644	edit dl rm
mf.vim	156	0644	edit dl rm
mma.vim	2236	0644	edit dl rm
mp.vim	11321	0644	edit dl rm
nsis.vim	3257	0644	edit dl rm
objc.vim	1645	0644	edit dl rm
ocaml.vim	9153	0644	edit dl rm
occam.vim	4637	0644	edit dl rm
pascal.vim	5656	0644	edit dl rm
perl.vim	5902	0644	edit dl rm
perl6.vim	3540	0644	edit dl rm
php.vim	22431	0644	edit dl rm
postscr.vim	1649	0644	edit dl rm
pov.vim	2662	0644	edit dl rm
prolog.vim	1490	0644	edit dl rm
pyrex.vim	326	0644	edit dl rm
python.vim	5744	0644	edit dl rm
r.vim	13905	0644	edit dl rm
readline.vim	711	0644	edit dl rm
README.txt	1639	0644	edit dl rm
rhelp.vim	2840	0644	edit dl rm
rmd.vim	1197	0644	edit dl rm
rnoweb.vim	1086	0644	edit dl rm
rpl.vim	1862	0644	edit dl rm
rrst.vim	1195	0644	edit dl rm
rst.vim	1399	0644	edit dl rm
ruby.vim	22970	0644	edit dl rm
rust.vim	6498	0644	edit dl rm
sas.vim	5127	0644	edit dl rm
sass.vim	950	0644	edit dl rm
scala.vim	19430	0644	edit dl rm
scheme.vim	372	0644	edit dl rm
scss.vim	191	0644	edit dl rm
sdl.vim	2794	0644	edit dl rm
sh.vim	5716	0644	edit dl rm
sml.vim	6478	0644	edit dl rm
sql.vim	1204	0644	edit dl rm
sqlanywhere.vim	13166	0644	edit dl rm
systemd.vim	205	0644	edit dl rm
systemverilog.vim	8577	0644	edit dl rm
tcl.vim	1629	0644	edit dl rm
tcsh.vim	1270	0644	edit dl rm
teraterm.vim	1365	0644	edit dl rm
tex.vim	13498	0644	edit dl rm
tf.vim	1549	0644	edit dl rm
tilde.vim	1012	0644	edit dl rm
treetop.vim	707	0644	edit dl rm
vb.vim	2089	0644	edit dl rm
verilog.vim	8165	0644	edit dl rm
vhdl.vim	14666	0644	edit dl rm
vim.vim	2989	0644	edit dl rm
vroom.vim	379	0644	edit dl rm
xf86conf.vim	709	0644	edit dl rm
xhtml.vim	269	0644	edit dl rm
xinetd.vim	1231	0644	edit dl rm
xml.vim	2849	0644	edit dl rm
xsd.vim	253	0644	edit dl rm
xslt.vim	297	0644	edit dl rm
yacc.vim	781	0644	edit dl rm
yaml.vim	5472	0644	edit dl rm
zimbu.vim	3936	0644	edit dl rm
zsh.vim	411	0644	edit dl rm

Edit: /usr/share/vim/vim80/indent/fortran.vim (7445B)

" Vim indent file
" Language:	Fortran 2008 (and older: Fortran 2003, 95, 90, and 77)
" Version:	47
" Last Change:	2016 Oct. 29
" Maintainer:	Ajit J. Thakkar <ajit@unb.ca>; <http://www2.unb.ca/~ajit/>
" Usage:	For instructions, do :help fortran-indent from Vim
" Credits:
"  Useful suggestions were made, in chronological order, by:
"  Albert Oliver Serra, Takuya Fujiwara and Philipp Edelmann.

" Only load this indent file when no other was loaded.
if exists("b:did_indent")
  finish
endif
let b:did_indent = 1

let s:cposet=&cpoptions
set cpoptions&vim

setlocal indentkeys+==~end,=~case,=~if,=~else,=~do,=~where,=~elsewhere,=~select
setlocal indentkeys+==~endif,=~enddo,=~endwhere,=~endselect,=~elseif
setlocal indentkeys+==~type,=~interface,=~forall,=~associate,=~block,=~enum
setlocal indentkeys+==~endforall,=~endassociate,=~endblock,=~endenum
if exists("b:fortran_indent_more") || exists("g:fortran_indent_more")
  setlocal indentkeys+==~function,=~subroutine,=~module,=~contains,=~program
  setlocal indentkeys+==~endfunction,=~endsubroutine,=~endmodule
  setlocal indentkeys+==~endprogram
endif

" Determine whether this is a fixed or free format source file
" if this hasn't been done yet using the priority:
" buffer-local value
" > global value
" > file extension as in Intel ifort, gcc (gfortran), NAG, Pathscale, and Cray compilers
if !exists("b:fortran_fixed_source")
  if exists("fortran_free_source")
    " User guarantees free source form
    let b:fortran_fixed_source = 0
  elseif exists("fortran_fixed_source")
    " User guarantees fixed source form
    let b:fortran_fixed_source = 1
  elseif expand("%:e") ==? "f\<90\|95\|03\|08\>"
    " Free-form file extension defaults as in Intel ifort, gcc(gfortran), NAG, Pathscale, and Cray compilers
    let b:fortran_fixed_source = 0
  elseif expand("%:e") ==? "f\|f77\|for"
    " Fixed-form file extension defaults
    let b:fortran_fixed_source = 1
  else
    " Modern fortran still allows both fixed and free source form
    " Assume fixed source form unless signs of free source form
    " are detected in the first five columns of the first s:lmax lines.
    " Detection becomes more accurate and time-consuming if more lines
    " are checked. Increase the limit below if you keep lots of comments at
    " the very top of each file and you have a fast computer.
    let s:lmax = 500
    if ( s:lmax > line("$") )
      let s:lmax = line("$")
    endif
    let b:fortran_fixed_source = 1
    let s:ln=1
    while s:ln <= s:lmax
      let s:test = strpart(getline(s:ln),0,5)
      if s:test !~ '^[Cc*]' && s:test !~ '^ *[!#]' && s:test =~ '[^ 0-9\t]' && s:test !~ '^[ 0-9]*\t'
	let b:fortran_fixed_source = 0
	break
      endif
      let s:ln = s:ln + 1
    endwhile
  endif
endif

" Define the appropriate indent function but only once
if (b:fortran_fixed_source == 1)
  setlocal indentexpr=FortranGetFixedIndent()
  if exists("*FortranGetFixedIndent")
    finish
  endif
else
  setlocal indentexpr=FortranGetFreeIndent()
  if exists("*FortranGetFreeIndent")
    finish
  endif
endif

function FortranGetIndent(lnum)
  let ind = indent(a:lnum)
  let prevline=getline(a:lnum)
  " Strip tail comment
  let prevstat=substitute(prevline, '!.*$', '', '')
  let prev2line=getline(a:lnum-1)
  let prev2stat=substitute(prev2line, '!.*$', '', '')

"Indent do loops only if they are all guaranteed to be of do/end do type
  if exists("b:fortran_do_enddo") || exists("g:fortran_do_enddo")
    if prevstat =~? '^\s*$\d\+\s$\=\s*$\a\w*\s*:$\=\s*do\>'
      let ind = ind + shiftwidth()
    endif
    if getline(v:lnum) =~? '^\s*$\d\+\s$\=\s*end\s*do\>'
      let ind = ind - shiftwidth()
    endif
  endif

"Add a shiftwidth to statements following if, else, else if, case, class,
  "where, else where, forall, type, interface and associate statements
  if prevstat =~? '^\s*$case\|class\|else\|else\s*if\|else\s*where$\>'
	\ ||prevstat=~? '^\s*$type\|interface\|associate\|enum$\>'
	\ ||prevstat=~?'^\s*$\d\+\s$\=\s*$\a\w*\s*:$\=\s*$forall\|where\|block$\>'
	\ ||prevstat=~? '^\s*$\d\+\s$\=\s*$\a\w*\s*:$\=\s*if\>'
     let ind = ind + shiftwidth()
    " Remove unwanted indent after logical and arithmetic ifs
    if prevstat =~? '\<if\>' && prevstat !~? '\<then\>'
      let ind = ind - shiftwidth()
    endif
    " Remove unwanted indent after type( statements
    if prevstat =~? '^\s*type\s*('
      let ind = ind - shiftwidth()
    endif
  endif

"Indent program units unless instructed otherwise
  if !exists("b:fortran_indent_less") && !exists("g:fortran_indent_less")
    let prefix='$\(pure\|impure\|elemental\|recursive$\s\+\)\{,2}'
    let type='$\(integer\|real\|double\s\+precision\|complex\|logical'
          \.'\|character\|type\|class$\s*\S*\s\+\)\='
    if prevstat =~? '^\s*$contains\|submodule\|program$\>'
            \ ||prevstat =~? '^\s*'.'module\>$\s*\procedure$\@!'
            \ ||prevstat =~? '^\s*'.prefix.'subroutine\>'
            \ ||prevstat =~? '^\s*'.prefix.type.'function\>'
            \ ||prevstat =~? '^\s*'.type.prefix.'function\>'
      let ind = ind + shiftwidth()
    endif
    if getline(v:lnum) =~? '^\s*contains\>'
          \ ||getline(v:lnum)=~? '^\s*end\s*'
          \ .'$function\|subroutine\|module\|submodule\|program$\>'
      let ind = ind - shiftwidth()
    endif
  endif

"First continuation line
  if prevstat =~ '&\s*$' && prev2stat !~ '&\s*$'
    let ind = ind + shiftwidth()
  endif
  "Line after last continuation line
  if prevstat !~ '&\s*$' && prev2stat =~ '&\s*$' && prevstat !~? '\<then\>'
    let ind = ind - shiftwidth()
  endif

return ind
endfunction

function FortranGetFreeIndent()
  "Find the previous non-blank line
  let lnum = prevnonblank(v:lnum - 1)

"Use zero indent at the top of the file
  if lnum == 0
    return 0
  endif

let ind=FortranGetIndent(lnum)
  return ind
endfunction

function FortranGetFixedIndent()
  let currline=getline(v:lnum)
  "Don't indent comments, continuation lines and labelled lines
  if strpart(currline,0,6) =~ '[^ \t]'
    let ind = indent(v:lnum)
    return ind
  endif

"Find the previous line which is not blank, not a comment,
  "not a continuation line, and does not have a label
  let lnum = v:lnum - 1
  while lnum > 0
    let prevline=getline(lnum)
    if (prevline =~ "^[C*!]") || (prevline =~ "^\s*$")
	\ || (strpart(prevline,5,1) !~ "[ 0]")
      " Skip comments, blank lines and continuation lines
      let lnum = lnum - 1
    else
      let test=strpart(prevline,0,5)
      if test =~ "[0-9]"
	" Skip lines with statement numbers
	let lnum = lnum - 1
      else
	break
      endif
    endif
  endwhile

"First line must begin at column 7
  if lnum == 0
    return 6
  endif

let ind=FortranGetIndent(lnum)
  return ind
endfunction

let &cpoptions=s:cposet
unlet s:cposet

" vim:sw=2 tw=130

cmd: