Mercurial > vim

comparison runtime/indent/tcl.vim @ 7:3fc0f57ecb91 v7.0001

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
updated for version 7.0001
author vimboss
date Sun, 13 Jun 2004 20:20:40 +0000
parents
children f14cbd913415
comparison
equal deleted inserted replaced
6:c2daee826b8f 7:3fc0f57ecb91
1 " Vim indent file
2 " Language: Tcl
3 " Maintainer: Nikolai Weibull <source@pcppopper.org>
4 " URL: http://www.pcppopper.org/vim/indent/pcp/tcl/
5 " Latest Revision: 2004-05-21
6 " arch-tag: 64fab1fa-d670-40ab-a191-55678f20ceb0
7
8 " only load this indent file when no other was loaded.
9 if exists("b:did_indent")
10 finish
11 endif
12
13 let b:did_indent = 1
14
15 setlocal indentexpr=GetTclIndent()
16 setlocal indentkeys-=:,0#
17 setlocal indentkeys+=0]
18
19 " only define the function once.
20 if exists("*GetTclIndent")
21 finish
22 endif
23
24 function s:PrevNonBlankNonComment(lnum)
25 let lnum = prevnonblank(a:lnum)
26 while lnum > 0
27 let line = getline(lnum)
28 if line !~ '^\s*\(#\|$\)'
29 break
30 endif
31 let lnum = prevnonblank(lnum - 1)
32 endwhile
33 return lnum
34 endfunction
35
36 function! GetTclIndent()
37 let lnum = s:PrevNonBlankNonComment(v:lnum - 1)
38
39 if lnum == 0
40 return 0
41 endif
42
43 let line = getline(lnum)
44 let ind = indent(lnum)
45
46 " TODO: Possible improvement, check that 'begin' and 'end' aren't inside a
47 " comment or string. This will mess it up. As I am pressed for time and
48 " stuff like this is unlikely to happen I won't deal with it in this
49 " version.
50 let open = 0
51 let begin = match(line, '{', 0)
52 while begin > -1
53 let end = match(line, '}', begin + 1)
54 if end < 0
55 let open = open + 1
56 else
57 let tmp = match(line, '{', begin + 1)
58 if tmp != -1 && tmp < end
59 let open = open + 1
60 endif
61 endif
62 let begin = match(line, '{', begin + 1)
63 endwhile
64
65 let begin = match(line, '[', 0)
66 while begin > -1
67 let end = match(line, ']', begin + 1)
68 if end < 0
69 let open = open + 1
70 else
71 let tmp = match(line, '{', begin + 1)
72 if tmp != -1 && tmp < end
73 let open = open + 1
74 endif
75 endif
76 let begin = match(line, '{', begin + 1)
77 endwhile
78
79 let close = 0
80 let prev = 0
81 let end = matchend(line, '^\s*}.*}', prev)
82 while end > -1
83 let begin = match(line, '{', prev + 1)
84 if begin < 0 || begin > prev
85 let close = close + 1
86 endif
87 let prev = end
88 let end = match(line, '}', prev + 1)
89 endwhile
90
91 let prev = 0
92 let end = match(line, ']', prev)
93 while end > -1
94 let begin = match(line, '[', prev + 1)
95 if begin < 0 || begin > prev
96 let close = close + 1
97 endif
98 let prev = end
99 let end = match(line, ']', prev + 1)
100 endwhile
101
102 let ind = ind + (open - close) * &sw
103
104 let line = getline(v:lnum)
105
106 let close = 0
107 let prev = 0
108 let end = match(line, '}', prev)
109 while end > -1
110 let begin = match(line, '{', prev + 1)
111 if begin < 0 || begin > prev
112 let close = close + 1
113 endif
114 let prev = end
115 let end = match(line, '}', prev + 1)
116 endwhile
117
118 let ind = ind - close * &sw
119
120 return ind >= 0 ? ind : 0
121 endfunction
122
123 " vim: set sts=2 sw=2: