Mercurial > hg > RemoteEditor > vim7

comparison runtime/indent/pascal.vim @ 0:76efa0be13f1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial revision
author atsuki
date Sat, 10 Nov 2007 15:07:22 +0900
parents
children 67300faee616
comparison
equal deleted inserted replaced
-1:000000000000 0:76efa0be13f1
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