|
7
|
1 " Vim indent file
|
|
2034
|
2 " Language: Shell Script
|
|
839
|
3 " Maintainer: Nikolai Weibull <now@bitwi.se>
|
|
2034
|
4 " Latest Revision: 2010-01-06
|
|
7
|
5
|
|
|
6 if exists("b:did_indent")
|
|
|
7 finish
|
|
|
8 endif
|
|
|
9 let b:did_indent = 1
|
|
|
10
|
|
|
11 setlocal indentexpr=GetShIndent()
|
|
2034
|
12 setlocal indentkeys+=0=then,0=do,0=else,0=elif,0=fi,0=esac,0=done,),0=;;,0=;&
|
|
|
13 setlocal indentkeys+=0=fin,0=fil,0=fip,0=fir,0=fix
|
|
7
|
14 setlocal indentkeys-=:,0#
|
|
2034
|
15 setlocal nosmartindent
|
|
7
|
16
|
|
|
17 if exists("*GetShIndent")
|
|
|
18 finish
|
|
|
19 endif
|
|
|
20
|
|
375
|
21 let s:cpo_save = &cpo
|
|
|
22 set cpo&vim
|
|
7
|
23
|
|
2034
|
24 function s:buffer_shiftwidth()
|
|
|
25 return &shiftwidth
|
|
|
26 endfunction
|
|
|
27
|
|
|
28 let s:sh_indent_defaults = {
|
|
|
29 \ 'default': function('s:buffer_shiftwidth'),
|
|
|
30 \ 'continuation-line': function('s:buffer_shiftwidth'),
|
|
|
31 \ 'case-labels': function('s:buffer_shiftwidth'),
|
|
|
32 \ 'case-statements': function('s:buffer_shiftwidth'),
|
|
|
33 \ 'case-breaks': 0 }
|
|
|
34
|
|
|
35 function! s:indent_value(option)
|
|
|
36 let Value = exists('b:sh_indent_options')
|
|
|
37 \ && has_key(b:sh_indent_options, a:option) ?
|
|
|
38 \ b:sh_indent_options[a:option] :
|
|
|
39 \ s:sh_indent_defaults[a:option]
|
|
|
40 if type(Value) == type(function('type'))
|
|
|
41 return Value()
|
|
|
42 endif
|
|
|
43 return Value
|
|
|
44 endfunction
|
|
|
45
|
|
|
46 function! GetShIndent()
|
|
7
|
47 let lnum = prevnonblank(v:lnum - 1)
|
|
|
48 if lnum == 0
|
|
|
49 return 0
|
|
|
50 endif
|
|
|
51
|
|
2034
|
52 let pnum = prevnonblank(lnum - 1)
|
|
|
53
|
|
7
|
54 let ind = indent(lnum)
|
|
|
55 let line = getline(lnum)
|
|
2034
|
56 if line =~ '^\s*\%(if\|then\|do\|else\|elif\|case\|while\|until\|for\|select\)\>'
|
|
|
57 if line !~ '\<\%(fi\|esac\|done\)\>\s*\%(#.*\)\=$'
|
|
|
58 let ind += s:indent_value('default')
|
|
|
59 endif
|
|
|
60 elseif s:is_case_label(line, pnum)
|
|
|
61 if !s:is_case_ended(line)
|
|
|
62 let ind += s:indent_value('case-statements')
|
|
7
|
63 endif
|
|
2034
|
64 elseif line =~ '^\s*\<\k\+\>\s*()\s*{' || line =~ '^\s*{'
|
|
|
65 if line !~ '}\s*\%(#.*\)\=$'
|
|
|
66 let ind += s:indent_value('default')
|
|
|
67 endif
|
|
|
68 elseif s:is_continuation_line(line)
|
|
|
69 if pnum == 0 || !s:is_continuation_line(getline(pnum))
|
|
|
70 let ind += s:indent_value('continuation-line')
|
|
|
71 endif
|
|
|
72 elseif pnum != 0 && s:is_continuation_line(getline(pnum))
|
|
|
73 let ind = indent(s:find_continued_lnum(pnum))
|
|
7
|
74 endif
|
|
|
75
|
|
2034
|
76 let pine = line
|
|
7
|
77 let line = getline(v:lnum)
|
|
2034
|
78 if line =~ '^\s*\%(then\|do\|else\|elif\|fi\|done\)\>' || line =~ '^\s*}'
|
|
|
79 let ind -= s:indent_value('default')
|
|
|
80 elseif line =~ '^\s*esac\>'
|
|
|
81 let ind -= (s:is_case_label(pine, lnum) && s:is_case_ended(pine) ?
|
|
|
82 \ 0 : s:indent_value('case-statements')) +
|
|
|
83 \ s:indent_value('case-labels')
|
|
|
84 if s:is_case_break(pine)
|
|
|
85 let ind += s:indent_value('case-breaks')
|
|
|
86 endif
|
|
|
87 elseif s:is_case_label(line, lnum)
|
|
|
88 if s:is_case(pine)
|
|
|
89 let ind = indent(lnum) + s:indent_value('case-labels')
|
|
|
90 else
|
|
|
91 let ind -= s:indent_value('case-statements') - s:indent_value('case-breaks')
|
|
|
92 endif
|
|
|
93 elseif s:is_case_break(line)
|
|
|
94 let ind -= s:indent_value('case-breaks')
|
|
7
|
95 endif
|
|
|
96
|
|
|
97 return ind
|
|
|
98 endfunction
|
|
|
99
|
|
2034
|
100 function! s:is_continuation_line(line)
|
|
|
101 return a:line =~ '\%(\%(^\|[^\\]\)\\\|&&\|||\)$'
|
|
|
102 endfunction
|
|
|
103
|
|
|
104 function! s:find_continued_lnum(lnum)
|
|
|
105 let i = a:lnum
|
|
|
106 while i > 1 && s:is_continuation_line(getline(i - 1))
|
|
|
107 let i -= 1
|
|
|
108 endwhile
|
|
|
109 return i
|
|
|
110 endfunction
|
|
|
111
|
|
|
112 function! s:is_case_label(line, pnum)
|
|
|
113 if a:line !~ '^\s*(\=.*)'
|
|
|
114 return 0
|
|
|
115 endif
|
|
|
116
|
|
|
117 if a:pnum > 0
|
|
|
118 let pine = getline(a:pnum)
|
|
|
119 if !(s:is_case(pine) || s:is_case_ended(pine))
|
|
|
120 return 0
|
|
|
121 endif
|
|
|
122 endif
|
|
|
123
|
|
|
124 let suffix = substitute(a:line, '^\s*(\=', "", "")
|
|
|
125 let nesting = 0
|
|
|
126 let i = 0
|
|
|
127 let n = strlen(suffix)
|
|
|
128 while i < n
|
|
|
129 let c = suffix[i]
|
|
|
130 let i += 1
|
|
|
131 if c == '\\'
|
|
|
132 let i += 1
|
|
|
133 elseif c == '('
|
|
|
134 let nesting += 1
|
|
|
135 elseif c == ')'
|
|
|
136 if nesting == 0
|
|
|
137 return 1
|
|
|
138 endif
|
|
|
139 let nesting -= 1
|
|
|
140 endif
|
|
|
141 endwhile
|
|
|
142 return 0
|
|
|
143 endfunction
|
|
|
144
|
|
|
145 function! s:is_case(line)
|
|
|
146 return a:line =~ '^\s*case\>'
|
|
|
147 endfunction
|
|
|
148
|
|
|
149 function! s:is_case_break(line)
|
|
|
150 return a:line =~ '^\s*;[;&]'
|
|
|
151 endfunction
|
|
|
152
|
|
|
153 function! s:is_case_ended(line)
|
|
|
154 return s:is_case_break(a:line) || a:line =~ ';[;&]\s*\%(#.*\)\=$'
|
|
|
155 endfunction
|
|
|
156
|
|
375
|
157 let &cpo = s:cpo_save
|
|
|
158 unlet s:cpo_save
|
