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