FM / indent

/usr/share/vim/vim74/indent

Name	Size	Mode	Actions
aap.vim	265	0644	edit dl rm
ada.vim	11147	0644	edit dl rm
ant.vim	290	0644	edit dl rm
automake.vim	231	0644	edit dl rm
awk.vim	7748	0644	edit dl rm
bib.vim	346	0644	edit dl rm
bst.vim	1919	0644	edit dl rm
c.vim	325	0644	edit dl rm
cdl.vim	4172	0644	edit dl rm
ch.vim	470	0644	edit dl rm
chaiscript.vim	1135	0644	edit dl rm
changelog.vim	264	0644	edit dl rm
clojure.vim	12132	0644	edit dl rm
cmake.vim	2754	0644	edit dl rm
cobol.vim	8197	0644	edit dl rm
config.vim	2166	0644	edit dl rm
cpp.vim	329	0644	edit dl rm
cs.vim	327	0644	edit dl rm
css.vim	1719	0644	edit dl rm
cucumber.vim	2624	0644	edit dl rm
cuda.vim	305	0644	edit dl rm
d.vim	510	0644	edit dl rm
dictconf.vim	325	0644	edit dl rm
dictdconf.vim	326	0644	edit dl rm
docbk.vim	324	0644	edit dl rm
dtd.vim	11668	0644	edit dl rm
dtrace.vim	451	0644	edit dl rm
dylan.vim	2662	0644	edit dl rm
eiffel.vim	3208	0644	edit dl rm
erlang.vim	46235	0644	edit dl rm
eruby.vim	2161	0644	edit dl rm
eterm.vim	638	0644	edit dl rm
falcon.vim	13982	0644	edit dl rm
fortran.vim	6559	0644	edit dl rm
framescript.vim	786	0644	edit dl rm
gitconfig.vim	817	0644	edit dl rm
gitolite.vim	996	0644	edit dl rm
haml.vim	2189	0644	edit dl rm
hamster.vim	1407	0644	edit dl rm
html.vim	14812	0644	edit dl rm
htmldjango.vim	273	0644	edit dl rm
idlang.vim	1566	0644	edit dl rm
ishd.vim	1841	0644	edit dl rm
java.vim	4115	0644	edit dl rm
javascript.vim	336	0644	edit dl rm
jsp.vim	462	0644	edit dl rm
ld.vim	1753	0644	edit dl rm
lifelines.vim	637	0644	edit dl rm
liquid.vim	1879	0644	edit dl rm
lisp.vim	353	0644	edit dl rm
logtalk.vim	1690	0644	edit dl rm
lua.vim	1914	0644	edit dl rm
mail.vim	308	0644	edit dl rm
make.vim	3431	0644	edit dl rm
matlab.vim	1928	0644	edit dl rm
mma.vim	2227	0644	edit dl rm
mp.vim	6527	0644	edit dl rm
objc.vim	1645	0644	edit dl rm
ocaml.vim	9110	0644	edit dl rm
occam.vim	4634	0644	edit dl rm
pascal.vim	5653	0644	edit dl rm
perl.vim	5811	0644	edit dl rm
perl6.vim	3503	0644	edit dl rm
php.vim	19423	0644	edit dl rm
postscr.vim	1622	0644	edit dl rm
pov.vim	2643	0644	edit dl rm
prolog.vim	1454	0644	edit dl rm
pyrex.vim	326	0644	edit dl rm
python.vim	5744	0644	edit dl rm
r.vim	14786	0644	edit dl rm
readline.vim	681	0644	edit dl rm
README.txt	1639	0644	edit dl rm
rpl.vim	1835	0644	edit dl rm
rst.vim	1387	0644	edit dl rm
ruby.vim	17546	0644	edit dl rm
sass.vim	1018	0644	edit dl rm
scheme.vim	241	0644	edit dl rm
scss.vim	191	0644	edit dl rm
sdl.vim	2767	0644	edit dl rm
sh.vim	4040	0644	edit dl rm
sml.vim	6418	0644	edit dl rm
sql.vim	1204	0644	edit dl rm
sqlanywhere.vim	13075	0644	edit dl rm
tcl.vim	1602	0644	edit dl rm
tcsh.vim	1243	0644	edit dl rm
tex.vim	9695	0644	edit dl rm
tf.vim	1499	0644	edit dl rm
tilde.vim	994	0644	edit dl rm
treetop.vim	677	0644	edit dl rm
vb.vim	2044	0644	edit dl rm
verilog.vim	7620	0644	edit dl rm
vhdl.vim	13801	0644	edit dl rm
vim.vim	2830	0644	edit dl rm
xf86conf.vim	679	0644	edit dl rm
xhtml.vim	269	0644	edit dl rm
xinetd.vim	1201	0644	edit dl rm
xml.vim	2840	0644	edit dl rm
xsd.vim	253	0644	edit dl rm
xslt.vim	297	0644	edit dl rm
yacc.vim	769	0644	edit dl rm
yaml.vim	4117	0644	edit dl rm
zimbu.vim	3891	0644	edit dl rm
zsh.vim	231	0644	edit dl rm

Edit: /usr/share/vim/vim74/indent/mp.vim (6527B)

" MetaPost indent file
" Language:	MetaPost
" Maintainer:	Eugene Minkovskii <emin@mccme.ru>
" Last Change:	2012 May 18
" Version: 0.1
" ==========================================================================

" Identation Rules: {{{1
" First of all, MetaPost language don't expect any identation rules.
" This screept need for you only if you (not MetaPost) need to do
" exactly code. If you don't need to use indentation, see
" :help filetype-indent-off
"
" Note: Every rules of identation in MetaPost or TeX languages (and in some
" other of course) is very subjective. I can release only my vision of this
" promlem.
"
" ..........................................................................
" Example of correct (by me) identation {{{2
" shiftwidth=4
" ==========================================================================
" for i=0 upto 99:
"     z[i] = (0,1u) rotated (i*360/100);
" endfor
" draw z0 -- z10 -- z20
"         withpen ...     % <- 2sw because breaked line
"         withcolor ...;  % <- same as previous
" draw z0 for i=1 upto 99:
"             -- z[i]             % <- 1sw from left end of 'for' satement
"         endfor withpen ...      % <- 0sw from left end of 'for' satement
"                 withcolor ...;  % <- 2sw because breaked line
" draw if One:     % <- This is internal if (like 'for' above)
"          one
"      elsif Other:
"          other
"      fi withpen ...;
" if one:          % <- This is external if
"     draw one;
" elseif other:
"     draw other;
" fi
" draw z0; draw z1;
" }}}
" }}}

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

setlocal indentexpr=GetMetaPostIndent()
setlocal indentkeys+=;,<:>,=if,=for,=def,=end,=else,=fi

" Only define the function once.
if exists("*GetMetaPostIndent")
  finish
endif
let s:keepcpo= &cpo
set cpo&vim

" Auxiliary Definitions: {{{1
function! MetaNextNonblankNoncomment(pos)
  " Like nextnonblank() but ignore comment lines
  let tmp = nextnonblank(a:pos)
  while tmp && getline(tmp) =~ '^\s*%'
    let tmp = nextnonblank(tmp+1)
  endwhile
  return tmp
endfunction

function! MetaPrevNonblankNoncomment(pos)
  " Like prevnonblank() but ignore comment lines
  let tmp = prevnonblank(a:pos)
  while tmp && getline(tmp) =~ '^\s*%'
    let tmp = prevnonblank(tmp-1)
  endwhile
  return tmp
endfunction

function! MetaSearchNoncomment(pattern, ...)
  " Like search() but ignore commented areas
  if a:0
    let flags = a:1
  elseif &wrapscan
    let flags = "w"
  else
    let flags = "W"
  endif
  let cl  = line(".")
  let cc  = col(".")
  let tmp = search(a:pattern, flags)
  while tmp && synIDattr(synID(line("."), col("."), 1), "name") =~
        \ 'm[fp]$Comment\|TeXinsert\|String$'
    let tmp = search(a:pattern, flags)
  endwhile
  if !tmp
    call cursor(cl,cc)
  endif
  return tmp
endfunction
" }}}

function! GetMetaPostIndent()
  " not indent in comment ???
  if synIDattr(synID(line("."), col("."), 1), "name") =~
        \ 'm[fp]$Comment\|TeXinsert\|String$'
    return -1
  endif
  " Some RegExps: {{{1
  " end_of_item: all of end by ';'
  "            + all of end by :endfor, :enddef, :endfig, :endgroup, :fi
  "            + all of start by :beginfig(num), :begingroup
  "            + all of start by :for, :if, :else, :elseif and end by ':'
  "            + all of start by :def, :vardef             and end by '='
  let end_of_item = '$'                              .
        \ ';\|'                                       .
        \ '\<\(end\(for\|def\|fig\|group$\|fi\)\>\|' .
        \ '\<begin$group\>\|fig\s*(\s*\d\+\s*)$\|'  .
        \ '\<$for\|if\|else\(if$\=\)\>.\+:\|'       .
        \ '\<$var$\=def\>.\+='                      . '\)'
  " }}}
  " Save: current position {{{1
  let cl = line   (".")
  let cc = col    (".")
  let cs = getline(".")
  " if it is :beginfig or :endfig use zero indent
  if  cs =~ '^\s*$begin\|end$fig\>'
    return 0
  endif
  " }}}
  " Initialise: ind variable {{{1
  " search previous item not in current line
  let p_semicol_l = MetaSearchNoncomment(end_of_item,"bW")
  while p_semicol_l == cl
    let p_semicol_l = MetaSearchNoncomment(end_of_item,"bW")
  endwhile
  " if this is first item in program use zero indent
  if !p_semicol_l
    return 0
  endif
  " if this is multiline item, remember first indent
  if MetaNextNonblankNoncomment(p_semicol_l+1) < cl
    let ind = indent(MetaNextNonblankNoncomment(p_semicol_l+1))
  " else --- search pre-previous item for search first line in previous item
  else
    " search pre-previous item not in current line
    let pp_semicol_l = MetaSearchNoncomment(end_of_item,"bW")
    while pp_semicol_l == p_semicol_l
      let pp_semicol_l = MetaSearchNoncomment(end_of_item,"bW")
    endwhile
    " if we find pre-previous item, remember indent of previous item
    " else --- remember zero
    if pp_semicol_l
      let ind = indent(MetaNextNonblankNoncomment(line(".")+1))
    else
      let ind = 0
    endif
  endif
  " }}}
  " Increase Indent: {{{1
  " if it is an internal/external :for or :if statements {{{2
  let pnn_s = getline(MetaPrevNonblankNoncomment(cl-1))
  if  pnn_s =~ '\<$for\|if$\>.\+:\s*$$\|%$'
    let ind = match(pnn_s, '\<$for\|if$\>.\+:\s*$$\|%$') + &sw
  " }}}
  " if it is a :def, :vardef, :beginfig, :begingroup, :else, :elseif {{{2
  elseif pnn_s =~ '^\s*$'                       .
        \ '\(var$\=def\|'                       .
        \ 'begin$group\|fig\s*(\s*\d\+\s*)$\|' .
        \ 'else$if$\='                         . '\)\>'
    let ind = ind + &sw
  " }}}
  " if it is a broken line {{{2
  elseif pnn_s !~ end_of_item.'\s*$$\|%$'
    let ind = ind + (2 * &sw)
  endif
  " }}}
  " }}}
  " Decrease Indent: {{{1
  " if this is :endfor or :enddef statements {{{2
  " this is correct because :def cannot be inside :for
  if  cs  =~ '\<end$for\|def$\=\>'
    call MetaSearchNoncomment('\<for\>.\+:\s*$$\|%$' . '\|' .
                            \ '^\s*$var$\=def\>',"bW")
    if col(".") > 1
      let ind = col(".") - 1
    else
      let ind = indent(".")
    endif
  " }}}
  " if this is :fi, :else, :elseif statements {{{2
  elseif cs =~ '\<$else\(if$\=\|fi\)\>'
    call MetaSearchNoncomment('\<if\>.\+:\s*$$\|%$',"bW")
    let ind = col(".") - 1
  " }}}
  " if this is :endgroup statement {{{2
  elseif cs =~ '^\s*endgroup\>'
    let ind = ind - &sw
  endif
  " }}}
  " }}}

return ind
endfunction
"

let &cpo = s:keepcpo
unlet s:keepcpo

" vim:sw=2:fdm=marker

cmd: