|
391
|
1 " Vim indent file
|
|
|
2 " Language: Pascal
|
|
|
3 " Maintainer: Neil Carter <n.carter@swansea.ac.uk>
|
|
|
4 " Created: 2004 Jul 13
|
|
|
5 " Last Change: 2005 Jul 05
|
|
|
6
|
|
|
7
|
|
|
8 if exists("b:did_indent")
|
|
|
9 finish
|
|
|
10 endif
|
|
|
11 let b:did_indent = 1
|
|
|
12
|
|
|
13 setlocal indentexpr=GetPascalIndent(v:lnum)
|
|
|
14 setlocal indentkeys&
|
|
|
15 setlocal indentkeys+==end;,==const,==type,==var,==begin,==repeat,==until,==for
|
|
|
16 setlocal indentkeys+==program,==function,==procedure,==object,==private
|
|
|
17 setlocal indentkeys+==record,==if,==else,==case
|
|
|
18
|
|
|
19 if exists("*GetPascalIndent")
|
|
|
20 finish
|
|
|
21 endif
|
|
|
22
|
|
|
23
|
|
|
24 function! s:GetPrevNonCommentLineNum( line_num )
|
|
|
25
|
|
|
26 " Skip lines starting with a comment
|
|
|
27 let SKIP_LINES = '^\s*\(\((\*\)\|\(\*\ \)\|\(\*)\)\|{\|}\)'
|
|
|
28
|
|
|
29 let nline = a:line_num
|
|
|
30 while nline > 0
|
|
|
31 let nline = prevnonblank(nline-1)
|
|
|
32 if getline(nline) !~? SKIP_LINES
|
|
|
33 break
|
|
|
34 endif
|
|
|
35 endwhile
|
|
|
36
|
|
|
37 return nline
|
|
|
38 endfunction
|
|
|
39
|
|
|
40
|
|
|
41 function! GetPascalIndent( line_num )
|
|
|
42 " Line 0 always goes at column 0
|
|
|
43 if a:line_num == 0
|
|
|
44 return 0
|
|
|
45 endif
|
|
|
46
|
|
|
47 let this_codeline = getline( a:line_num )
|
|
|
48
|
|
|
49 " If in the middle of a three-part comment
|
|
|
50 if this_codeline =~ '^\s*\*'
|
|
|
51 return indent( a:line_num )
|
|
|
52 endif
|
|
|
53
|
|
|
54 let prev_codeline_num = s:GetPrevNonCommentLineNum( a:line_num )
|
|
|
55 let prev_codeline = getline( prev_codeline_num )
|
|
|
56 let indnt = indent( prev_codeline_num )
|
|
|
57
|
|
|
58 " Compiler directives should always go in column zero.
|
|
|
59 if this_codeline =~ '^\s*{\(\$IFDEF\|\$ELSE\|\$ENDIF\)'
|
|
|
60 return 0
|
|
|
61 endif
|
|
|
62
|
|
|
63 " These items have nothing before or after (not even a comment), and
|
|
|
64 " go on column 0. Make sure that the ^\s* is followed by \( to make
|
|
|
65 " ORs work properly, and not include the start of line (this must
|
|
|
66 " always appear).
|
|
|
67 " The bracketed expression with the underline is a routine
|
|
|
68 " separator. This is one case where we do indent comment lines.
|
|
|
69 if this_codeline =~ '^\s*\((\*\ _\+\ \*)\|\<\(const\|var\)\>\)$'
|
|
|
70 return 0
|
|
|
71 endif
|
|
|
72
|
|
|
73 " These items may have text after them, and go on column 0 (in most
|
|
|
74 " cases). The problem is that "function" and "procedure" keywords
|
|
|
75 " should be indented if within a class declaration.
|
|
|
76 if this_codeline =~ '^\s*\<\(program\|type\|uses\|procedure\|function\)\>'
|
|
|
77 return 0
|
|
|
78 endif
|
|
|
79
|
|
|
80 " BEGIN
|
|
|
81 " If the begin does not come after "if", "for", or "else", then it
|
|
|
82 " goes in column 0
|
|
|
83 if this_codeline =~ '^\s*begin\>' && prev_codeline !~ '^\s*\<\(if\|for\|else\)\>'
|
|
|
84 return 0
|
|
|
85 endif
|
|
|
86
|
|
|
87 " These keywords are indented once only.
|
|
|
88 if this_codeline =~ '^\s*\<\(private\)\>'
|
|
|
89 return &shiftwidth
|
|
|
90 endif
|
|
|
91
|
|
|
92 " If the PREVIOUS LINE contained these items, the current line is
|
|
|
93 " always indented once.
|
|
|
94 if prev_codeline =~ '^\s*\<\(type\|uses\)\>'
|
|
|
95 return &shiftwidth
|
|
|
96 endif
|
|
|
97
|
|
|
98 " These keywords are indented once only. Possibly surrounded by
|
|
|
99 " other chars.
|
|
|
100 if this_codeline =~ '^.\+\<\(object\|record\)\>'
|
|
|
101 return &shiftwidth
|
|
|
102 endif
|
|
|
103
|
|
|
104 " If the previous line was indenting...
|
|
|
105 if prev_codeline =~ '^\s*\<\(for\|if\|case\|else\|end\ else\)\>'
|
|
|
106 " then indent.
|
|
|
107 let indnt = indnt + &shiftwidth
|
|
|
108 " BUT... if this is the start of a multistatement block then we
|
|
|
109 " need to align the begin with the previous line.
|
|
|
110 if this_codeline =~ '^\s*begin\>'
|
|
|
111 return indnt - &shiftwidth
|
|
|
112 endif
|
|
|
113
|
|
|
114 " We also need to keep the indentation level constant if the
|
|
|
115 " whole if-then statement was on one line.
|
|
|
116 if prev_codeline =~ '\<then\>.\+'
|
|
|
117 let indnt = indnt - &shiftwidth
|
|
|
118 endif
|
|
|
119 endif
|
|
|
120
|
|
|
121 " PREVIOUS-LINE BEGIN
|
|
|
122 " If the previous line was an indenting keyword then indent once...
|
|
|
123 if prev_codeline =~ '^\s*\<\(const\|var\|begin\|repeat\|private\)\>'
|
|
|
124 " But only if this is another var in a list.
|
|
|
125 if this_codeline !~ '^\s*var\>'
|
|
|
126 return indnt + &shiftwidth
|
|
|
127 endif
|
|
|
128 endif
|
|
|
129
|
|
|
130 " PREVIOUS-LINE BEGIN
|
|
|
131 " Indent code after a case statement begin
|
|
|
132 if prev_codeline =~ '\:\ begin\>'
|
|
|
133 return indnt + &shiftwidth
|
|
|
134 endif
|
|
|
135
|
|
|
136 " These words may have text before them on the line (hence the .*)
|
|
|
137 " but are followed by nothing. Always indent once only.
|
|
|
138 if prev_codeline =~ '^\(.*\|\s*\)\<\(object\|record\)\>$'
|
|
|
139 return indnt + &shiftwidth
|
|
|
140 endif
|
|
|
141
|
|
|
142 " If we just closed a bracket that started on a previous line, then
|
|
|
143 " unindent. But don't return yet -- we need to check for further
|
|
|
144 " unindentation (for end/until/else)
|
|
|
145 if prev_codeline =~ '^[^(]*[^*])'
|
|
|
146 let indnt = indnt - &shiftwidth
|
|
|
147 endif
|
|
|
148
|
|
|
149 " At the end of a block, we have to unindent both the current line
|
|
|
150 " (the "end" for instance) and the newly-created line.
|
|
|
151 if this_codeline =~ '^\s*\<\(end\|until\|else\)\>'
|
|
|
152 return indnt - &shiftwidth
|
|
|
153 endif
|
|
|
154
|
|
|
155 " If we have opened a bracket and it continues over one line,
|
|
|
156 " then indent once.
|
|
|
157 "
|
|
|
158 " RE = an opening bracket followed by any amount of anything other
|
|
|
159 " than a closing bracket and then the end-of-line.
|
|
|
160 "
|
|
|
161 " If we didn't include the end of line, this RE would match even
|
|
|
162 " closed brackets, since it would match everything up to the closing
|
|
|
163 " bracket.
|
|
|
164 "
|
|
|
165 " This test isn't clever enough to handle brackets inside strings or
|
|
|
166 " comments.
|
|
|
167 if prev_codeline =~ '([^*]\=[^)]*$'
|
|
|
168 return indnt + &shiftwidth
|
|
|
169 endif
|
|
|
170
|
|
|
171 return indnt
|
|
|
172 endfunction
|
|
|
173
|
