|
7
|
1 " Matlab indent file
|
|
|
2 " Language: Matlab
|
|
|
3 " Maintainer: Christophe Poucet <christophe.poucet@pandora.be>
|
|
|
4 " Last Change: 6 January, 2001
|
|
|
5
|
|
|
6 " Only load this indent file when no other was loaded.
|
|
|
7 if exists("b:did_indent")
|
|
|
8 finish
|
|
|
9 endif
|
|
|
10 let b:did_indent = 1
|
|
|
11
|
|
|
12 " Some preliminary setting
|
|
|
13 setlocal indentkeys=!,o,O=end,=case,=else,=elseif,=otherwise,=catch
|
|
|
14
|
|
|
15
|
|
|
16 setlocal indentexpr=GetMatlabIndent(v:lnum)
|
|
|
17
|
|
|
18 " Only define the function once.
|
|
|
19 if exists("*GetMatlabIndent")
|
|
|
20 finish
|
|
|
21 endif
|
|
|
22
|
|
|
23 function GetMatlabIndent(lnum)
|
|
|
24 " Give up if this line is explicitly joined.
|
|
|
25 if getline(a:lnum - 1) =~ '\\$'
|
|
|
26 return -1
|
|
|
27 endif
|
|
|
28
|
|
|
29 " Search backwards for the first non-empty line.
|
|
|
30 let plnum = a:lnum - 1
|
|
|
31 while plnum > 0 && getline(plnum) =~ '^\s*$'
|
|
|
32 let plnum = plnum - 1
|
|
|
33 endwhile
|
|
|
34
|
|
|
35 if plnum == 0
|
|
|
36 " This is the first non-empty line, use zero indent.
|
|
|
37 return 0
|
|
|
38 endif
|
|
|
39
|
|
|
40 let curind = indent(plnum)
|
|
|
41
|
|
|
42 " If the current line is a stop-block statement...
|
|
|
43 if getline(v:lnum) =~ '^\s*\(end\|else\|elseif\|case\|otherwise\|catch\)\>'
|
|
|
44 " See if this line does not follow the line right after an openblock
|
|
|
45 if getline(plnum) =~ '^\s*\(for\|if\|else\|elseif\|case\|while\|switch\|try\|otherwise\|catch\)\>'
|
|
|
46 " See if the user has already dedented
|
|
|
47 elseif indent(v:lnum) > curind - &sw
|
|
|
48 " If not, recommend one dedent
|
|
|
49 let curind = curind - &sw
|
|
|
50 else
|
|
|
51 " Otherwise, trust the user
|
|
|
52 return -1
|
|
|
53 endif
|
|
|
54 " endif
|
|
|
55
|
|
|
56 " If the previous line opened a block
|
|
|
57 elseif getline(plnum) =~ '^\s*\(for\|if\|else\|elseif\|case\|while\|switch\|try\|otherwise\|catch\)\>'
|
|
|
58 " See if the user has already indented
|
|
|
59 if indent(v:lnum) < curind + &sw
|
|
|
60 "If not, recommend indent
|
|
|
61 let curind = curind + &sw
|
|
|
62 else
|
|
|
63 " Otherwise, trust the user
|
|
|
64 return -1
|
|
|
65 endif
|
|
|
66 endif
|
|
|
67
|
|
|
68
|
|
|
69
|
|
|
70 " If we got to here, it means that the user takes the standardversion, so we return it
|
|
|
71 return curind
|
|
|
72 endfunction
|
|
|
73
|
|
|
74 " vim:sw=2
|
