1" Vim indent file
2" Language:	RPL/2
3" Version:	0.2
4" Last Change:	2005 Mar 28
5" Maintainer:	BERTRAND Jo�l <rpl2@free.fr>
6
7" Only load this indent file when no other was loaded.
8if exists("b:did_indent")
9  finish
10endif
11let b:did_indent = 1
12
13setlocal autoindent
14setlocal indentkeys+==~end,=~case,=~if,=~then,=~else,=~do,=~until,=~while,=~repeat,=~select,=~default,=~for,=~start,=~next,=~step,<<>,<>>
15
16" Define the appropriate indent function but only once
17setlocal indentexpr=RplGetFreeIndent()
18if exists("*RplGetFreeIndent")
19  finish
20endif
21
22let b:undo_indent = "set ai< indentkeys< indentexpr<"
23
24function RplGetIndent(lnum)
25  let ind = indent(a:lnum)
26  let prevline=getline(a:lnum)
27  " Strip tail comment
28  let prevstat=substitute(prevline, '!.*$', '', '')
29
30  " Add a shiftwidth to statements following if, iferr, then, else, elseif,
31  " case, select, default, do, until, while, repeat, for, start
32  if prevstat =~? '\<\(if\|iferr\|do\|while\)\>' && prevstat =~? '\<end\>'
33  elseif prevstat =~? '\(^\|\s\+\)<<\($\|\s\+\)' && prevstat =~? '\s\+>>\($\|\s\+\)'
34  elseif prevstat =~? '\<\(if\|iferr\|then\|else\|elseif\|select\|case\|do\|until\|while\|repeat\|for\|start\|default\)\>' || prevstat =~? '\(^\|\s\+\)<<\($\|\s\+\)'
35    let ind = ind + &sw
36  endif
37
38  " Subtract a shiftwidth from then, else, elseif, end, until, repeat, next,
39  " step
40  let line = getline(v:lnum)
41  if line =~? '^\s*\(then\|else\|elseif\|until\|repeat\|next\|step\|default\|end\)\>'
42    let ind = ind - &sw
43  elseif line =~? '^\s*>>\($\|\s\+\)'
44    let ind = ind - &sw
45  endif
46
47  return ind
48endfunction
49
50function RplGetFreeIndent()
51  " Find the previous non-blank line
52  let lnum = prevnonblank(v:lnum - 1)
53
54  " Use zero indent at the top of the file
55  if lnum == 0
56    return 0
57  endif
58
59  let ind=RplGetIndent(lnum)
60  return ind
61endfunction
62
63" vim:sw=2 tw=130
64