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: ocaml.vim

" Vim indent file
" Language:     OCaml
" Maintainers:  Jean-Francois Yuen   <jfyuen@happycoders.org>
"               Mike Leary           <leary@nwlink.com>
"               Markus Mottl         <markus.mottl@gmail.com>
" URL:          http://www.ocaml.info/vim/indent/ocaml.vim
" Last Change:  2017 Jun 13
"               2005 Jun 25 - Fixed multiple bugs due to 'else\nreturn ind' working
"               2005 May 09 - Added an option to not indent OCaml-indents specially (MM)
"               2013 June   - commented textwidth (Marc Weber)
"
" Marc Weber's comment: This file may contain a lot of (very custom) stuff
" which eventually should be moved somewhere else ..

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

setlocal expandtab
setlocal indentexpr=GetOCamlIndent()
setlocal indentkeys+=0=and,0=class,0=constraint,0=done,0=else,0=end,0=exception,0=external,0=if,0=in,0=include,0=inherit,0=initializer,0=let,0=method,0=open,0=then,0=type,0=val,0=with,0;;,0>\],0\|\],0>},0\|,0},0\],0)
setlocal nolisp
setlocal nosmartindent

" At least Marc Weber and Markus Mottl do not like this:
" setlocal textwidth=80

" Comment formatting
if !exists("no_ocaml_comments")
 if (has("comments"))
   setlocal comments=sr:(*,mb:*,ex:*)
   setlocal fo=cqort
 endif
endif

" Only define the function once.
if exists("*GetOCamlIndent")
 finish
endif

" Skipping pattern, for comments
function! s:GetLineWithoutFullComment(lnum)
 let lnum = prevnonblank(a:lnum - 1)
 let lline = substitute(getline(lnum), '(\*.*\*)\s*$', '', '')
 while lline =~ '^\s*$' && lnum > 0
   let lnum = prevnonblank(lnum - 1)
   let lline = substitute(getline(lnum), '(\*.*\*)\s*$', '', '')
 endwhile
 return lnum
endfunction

" Indent for ';;' to match multiple 'let'
function! s:GetInd(lnum, pat, lim)
 let llet = search(a:pat, 'bW')
 let old = indent(a:lnum)
 while llet > 0
   let old = indent(llet)
   let nb = s:GetLineWithoutFullComment(llet)
   if getline(nb) =~ a:lim
     return old
   endif
   let llet = search(a:pat, 'bW')
 endwhile
 return old
endfunction

" Indent pairs
function! s:FindPair(pstart, pmid, pend)
 call search(a:pend, 'bW')
 return indent(searchpair(a:pstart, a:pmid, a:pend, 'bWn', 'synIDattr(synID(line("."), col("."), 0), "name") =~? "string\\|comment"'))
endfunction

" Indent 'let'
function! s:FindLet(pstart, pmid, pend)
 call search(a:pend, 'bW')
 return indent(searchpair(a:pstart, a:pmid, a:pend, 'bWn', 'synIDattr(synID(line("."), col("."), 0), "name") =~? "string\\|comment" || getline(".") =~ "^\\s*let\\>.*=.*\\<in\\s*$" || getline(prevnonblank(".") - 1) =~ s:beflet'))
endfunction

function! GetOCamlIndent()
 " Find a non-commented line above the current line.
 let lnum = s:GetLineWithoutFullComment(v:lnum)

" At the start of the file use zero indent.
 if lnum == 0
   return 0
 endif

let ind = indent(lnum)
 let lline = substitute(getline(lnum), '(\*.*\*)\s*$', '', '')

" Return double 'shiftwidth' after lines matching:
 if lline =~ '^\s*|.*->\s*$'
   return ind + 2 * shiftwidth()
 endif

let line = getline(v:lnum)

" Indent if current line begins with 'end':
 if line =~ '^\s*end\>'
   return s:FindPair(s:module, '','\<end\>')

" Indent if current line begins with 'done' for 'do':
 elseif line =~ '^\s*done\>'
   return s:FindPair('\<do\>', '','\<done\>')

" Indent if current line begins with '}' or '>}':
 elseif line =~ '^\s*$\|>$}'
   return s:FindPair('{', '','}')

" Indent if current line begins with ']', '|]' or '>]':
 elseif line =~ '^\s*$\||\|>$\]'
   return s:FindPair('\[', '','\]')

" Indent if current line begins with ')':
 elseif line =~ '^\s*)'
   return s:FindPair('(', '',')')

" Indent if current line begins with 'let':
 elseif line =~ '^\s*let\>'
   if lline !~ s:lim . '\|' . s:letlim . '\|' . s:beflet
     return s:FindLet(s:type, '','\<let\s*$')
   endif

" Indent if current line begins with 'class' or 'type':
 elseif line =~ '^\s*$class\|type$\>'
   if lline !~ s:lim . '\|\<and\s*$\|' . s:letlim
     return s:FindLet(s:type, '','\<$class\|type$\s*$')
   endif

" Indent for pattern matching:
 elseif line =~ '^\s*|'
   if lline !~ '^\s*$|[^\]]\|\(match\|type\|with$\>\)\|\<$function\|parser\|private\|with$\s*$'
     call search('|', 'bW')
     return indent(searchpair('^\s*$match\|type$\>\|\<$function\|parser\|private\|with$\s*$', '', '^\s*|', 'bWn', 'synIDattr(synID(line("."), col("."), 0), "name") =~? "string\\|comment" || getline(".") !~ "^\\s*|.*->"'))
   endif

" Indent if current line begins with ';;':
 elseif line =~ '^\s*;;'
   if lline !~ ';;\s*$'
     return s:GetInd(v:lnum, s:letpat, s:letlim)
   endif

" Indent if current line begins with 'in':
 elseif line =~ '^\s*in\>'
   if lline !~ '^\s*$let\|and$\>'
     return s:FindPair('\<let\>', '', '\<in\>')
   endif

" Indent if current line begins with 'else':
 elseif line =~ '^\s*else\>'
   if lline !~ '^\s*$if\|then$\>'
     return s:FindPair('\<if\>', '', '\<else\>')
   endif

" Indent if current line begins with 'then':
 elseif line =~ '^\s*then\>'
   if lline !~ '^\s*$if\|else$\>'
     return s:FindPair('\<if\>', '', '\<then\>')
   endif

" Indent if current line begins with 'and':
 elseif line =~ '^\s*and\>'
   if lline !~ '^\s*$and\|let\|type$\>\|\<end\s*$'
     return ind - shiftwidth()
   endif

" Indent if current line begins with 'with':
 elseif line =~ '^\s*with\>'
   if lline !~ '^\s*$match\|try$\>'
     return s:FindPair('\<\%(match\|try\)\>', '','\<with\>')
   endif

" Indent if current line begins with 'constraint', 'inherit', 'initializer'
 " or 'method':
 elseif line =~ '^\s*$constraint\|inherit\|initializer\|method$\>'
   if lline !~ s:obj
     return indent(search('\<$object\|object\s*(.*)$\s*$', 'bW')) + shiftwidth()
   endif

endif

" Add a 'shiftwidth' after lines ending with:
 if lline =~ '$:\|=\|->\|<-\|(\|\[\|{\|{<\|\[|\|\[<\|\<\(begin\|do\|else\|fun\|function\|functor\|if\|initializer\|object\|parser\|private\|sig\|struct\|then\|try$\|\<object\s*(.*)\)\s*$'
   let ind = ind + shiftwidth()

" Back to normal indent after lines ending with ';;':
 elseif lline =~ ';;\s*$' && lline !~ '^\s*;;'
   let ind = s:GetInd(v:lnum, s:letpat, s:letlim)

" Back to normal indent after lines ending with 'end':
 elseif lline =~ '\<end\s*$'
   let ind = s:FindPair(s:module, '','\<end\>')

" Back to normal indent after lines ending with 'in':
 elseif lline =~ '\<in\s*$' && lline !~ '^\s*in\>'
   let ind = s:FindPair('\<let\>', '', '\<in\>')

" Back to normal indent after lines ending with 'done':
 elseif lline =~ '\<done\s*$'
   let ind = s:FindPair('\<do\>', '','\<done\>')

" Back to normal indent after lines ending with '}' or '>}':
 elseif lline =~ '$\|>$}\s*$'
   let ind = s:FindPair('{', '','}')

" Back to normal indent after lines ending with ']', '|]' or '>]':
 elseif lline =~ '$\||\|>$\]\s*$'
   let ind = s:FindPair('\[', '','\]')

" Back to normal indent after comments:
 elseif lline =~ '\*)\s*$'
   call search('\*)', 'bW')
   let ind = indent(searchpair('(\*', '', '\*)', 'bWn', 'synIDattr(synID(line("."), col("."), 0), "name") =~? "string"'))

" Back to normal indent after lines ending with ')':
 elseif lline =~ ')\s*$'
   let ind = s:FindPair('(', '',')')

" If this is a multiline comment then align '*':
 elseif lline =~ '^\s*(\*' && line =~ '^\s*\*'
   let ind = ind + 1

else
 " Don't change indentation of this line
 " for new lines (indent==0) use indentation of previous line

" This is for preventing removing indentation of these args:
 "   let f x =
 "     let y = x + 1 in
 "     Printf.printf
 "       "o"           << here
 "       "oeuth"       << don't touch indentation

let i = indent(v:lnum)
   return i == 0 ? ind : i

endif

" Subtract a 'shiftwidth' after lines matching 'match ... with parser':
 if lline =~ '\<match\>.*\<with\>\s*\<parser\s*$'
   let ind = ind - shiftwidth()
 endif

return ind

endfunction

" vim:sw=2

X7ROOT File Manager

Editing: ocaml.vim

Upload File

Create Folder