File Manager

X7ROOT File Manager

Current Path: /usr/share/vim/vim80/indent

?? ..
?? README.txt(1.6 KB)
?? aap.vim(265 B)
?? ada.vim(10.97 KB)
?? ant.vim(290 B)
?? automake.vim(243 B)
?? awk.vim(7.59 KB)
?? bib.vim(346 B)
?? bst.vim(1.89 KB)
?? bzl.vim(2.43 KB)
?? c.vim(325 B)
?? cdl.vim(4.15 KB)
?? ch.vim(470 B)
?? chaiscript.vim(1.11 KB)
?? changelog.vim(264 B)
?? clojure.vim(10.2 KB)
?? cmake.vim(2.62 KB)
?? cobol.vim(8.11 KB)
?? config.vim(2.13 KB)
?? context.vim(752 B)
?? cpp.vim(329 B)
?? cs.vim(327 B)
?? css.vim(1.75 KB)
?? cucumber.vim(2.62 KB)
?? cuda.vim(305 B)
?? d.vim(510 B)
?? dictconf.vim(337 B)
?? dictdconf.vim(338 B)
?? docbk.vim(336 B)
?? dtd.vim(11.59 KB)
?? dtrace.vim(451 B)
?? dylan.vim(2.64 KB)
?? eiffel.vim(3.24 KB)
?? erlang.vim(45.29 KB)
?? eruby.vim(2.74 KB)
?? eterm.vim(668 B)
?? falcon.vim(13.72 KB)
?? fortran.vim(7.27 KB)
?? framescript.vim(816 B)
?? gitconfig.vim(841 B)
?? gitolite.vim(1.25 KB)
?? go.vim(1.63 KB)
?? haml.vim(2.16 KB)
?? hamster.vim(1.39 KB)
?? hog.vim(1.85 KB)
?? html.vim(32.47 KB)
?? htmldjango.vim(273 B)
?? idlang.vim(1.58 KB)
?? ishd.vim(1.83 KB)
?? j.vim(1.77 KB)
?? java.vim(4.19 KB)
?? javascript.vim(15 KB)
?? json.vim(4.32 KB)
?? jsp.vim(462 B)
?? ld.vim(1.75 KB)
?? less.vim(243 B)
?? lifelines.vim(637 B)
?? liquid.vim(1.85 KB)
?? lisp.vim(353 B)
?? logtalk.vim(1.7 KB)
?? lua.vim(1.88 KB)
?? mail.vim(308 B)
?? make.vim(3.41 KB)
?? matlab.vim(1.92 KB)
?? mf.vim(156 B)
?? mma.vim(2.18 KB)
?? mp.vim(11.06 KB)
?? nsis.vim(3.18 KB)
?? objc.vim(1.61 KB)
?? ocaml.vim(8.94 KB)
?? occam.vim(4.53 KB)
?? pascal.vim(5.52 KB)
?? perl.vim(5.76 KB)
?? perl6.vim(3.46 KB)
?? php.vim(21.91 KB)
?? postscr.vim(1.61 KB)
?? pov.vim(2.6 KB)
?? prolog.vim(1.46 KB)
?? pyrex.vim(326 B)
?? python.vim(5.61 KB)
?? r.vim(13.58 KB)
?? readline.vim(711 B)
?? rhelp.vim(2.77 KB)
?? rmd.vim(1.17 KB)
?? rnoweb.vim(1.06 KB)
?? rpl.vim(1.82 KB)
?? rrst.vim(1.17 KB)
?? rst.vim(1.37 KB)
?? ruby.vim(22.43 KB)
?? rust.vim(6.35 KB)
?? sas.vim(5.01 KB)
?? sass.vim(950 B)
?? scala.vim(18.97 KB)
?? scheme.vim(372 B)
?? scss.vim(191 B)
?? sdl.vim(2.73 KB)
?? sh.vim(5.58 KB)
?? sml.vim(6.33 KB)
?? sql.vim(1.18 KB)
?? sqlanywhere.vim(12.86 KB)
?? systemd.vim(205 B)
?? systemverilog.vim(8.38 KB)
?? tcl.vim(1.59 KB)
?? tcsh.vim(1.24 KB)
?? teraterm.vim(1.33 KB)
?? tex.vim(13.18 KB)
?? tf.vim(1.51 KB)
?? tilde.vim(1012 B)
?? treetop.vim(707 B)
?? vb.vim(2.04 KB)
?? verilog.vim(7.97 KB)
?? vhdl.vim(14.32 KB)
?? vim.vim(2.92 KB)
?? vroom.vim(379 B)
?? xf86conf.vim(709 B)
?? xhtml.vim(269 B)
?? xinetd.vim(1.2 KB)
?? xml.vim(2.78 KB)
?? xsd.vim(253 B)
?? xslt.vim(297 B)
?? yacc.vim(781 B)
?? yaml.vim(5.34 KB)
?? zimbu.vim(3.84 KB)
?? zsh.vim(411 B)

Editing: fortran.vim

" 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

X7ROOT File Manager

Editing: fortran.vim

Upload File

Create Folder