annotate runtime/indent/xinetd.vim @ 48:67300faee616 v7-3-618

v7-3-618
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Wed, 01 Aug 2012 18:08:28 +0900
parents 76efa0be13f1
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
1 " Vim indent file
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
2 " Language: xinetd.conf(5) configuration file
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
3 " Maintainer: Nikolai Weibull <now@bitwi.se>
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
4 " Latest Revision: 2006-12-20
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
5
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
6 if exists("b:did_indent")
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
7 finish
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
8 endif
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
9 let b:did_indent = 1
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
10
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
11 setlocal indentexpr=GetXinetdIndent()
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
12 setlocal indentkeys=0{,0},!^F,o,O
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
13 setlocal nosmartindent
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
14
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
15 if exists("*GetXinetdIndent")
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
16 finish
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
17 endif
48
67300faee616 v7-3-618
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
18 let s:keepcpo= &cpo
67300faee616 v7-3-618
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
19 set cpo&vim
0
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
20
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
21 function s:count_braces(lnum, count_open)
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
22 let n_open = 0
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
23 let n_close = 0
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
24 let line = getline(a:lnum)
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
25 let pattern = '[{}]'
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
26 let i = match(line, pattern)
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
27 while i != -1
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
28 if synIDattr(synID(a:lnum, i + 1, 0), 'name') !~ 'ld\%(Comment\|String\)'
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
29 if line[i] == '{'
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
30 let n_open += 1
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
31 elseif line[i] == '}'
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
32 if n_open > 0
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
33 let n_open -= 1
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
34 else
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
35 let n_close += 1
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
36 endif
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
37 endif
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
38 endif
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
39 let i = match(line, pattern, i + 1)
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
40 endwhile
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
41 return a:count_open ? n_open : n_close
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
42 endfunction
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
43
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
44 function GetXinetdIndent()
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
45 let pnum = prevnonblank(v:lnum - 1)
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
46 if pnum == 0
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
47 return 0
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
48 endif
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
49
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
50 return indent(pnum) + s:count_braces(pnum, 1) * &sw
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
51 \ - s:count_braces(v:lnum, 0) * &sw
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
52 endfunction
48
67300faee616 v7-3-618
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
53
67300faee616 v7-3-618
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
54 let &cpo = s:keepcpo
67300faee616 v7-3-618
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
55 unlet s:keepcpo