Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

file 227 lines (169 sloc) 5.653 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227
" Vim indent file
" Language: Pascal
" Maintainer: Neil Carter <n.carter@swansea.ac.uk>
" Created: 2004 Jul 13
" Last Change: 2011 Apr 01
"
" This is version 2.0, a complete rewrite.
"
" For further documentation, see http://psy.swansea.ac.uk/staff/carter/vim/


if exists("b:did_indent")
finish
endif
let b:did_indent = 1

setlocal indentexpr=GetPascalIndent(v:lnum)
setlocal indentkeys&
setlocal indentkeys+==end;,==const,==type,==var,==begin,==repeat,==until,==for
setlocal indentkeys+==program,==function,==procedure,==object,==private
setlocal indentkeys+==record,==if,==else,==case

if exists("*GetPascalIndent")
finish
endif


function! s:GetPrevNonCommentLineNum( line_num )

" Skip lines starting with a comment
let SKIP_LINES = '^\s*\(\((\*\)\|\(\*\ \)\|\(\*)\)\|{\|}\)'

let nline = a:line_num
while nline > 0
let nline = prevnonblank(nline-1)
if getline(nline) !~? SKIP_LINES
break
endif
endwhile

return nline
endfunction


function! s:PurifyCode( line_num )
" Strip any trailing comments and whitespace
let pureline = 'TODO'
return pureline
endfunction


function! GetPascalIndent( line_num )

" Line 0 always goes at column 0
if a:line_num == 0
return 0
endif

let this_codeline = getline( a:line_num )


" SAME INDENT

" Middle of a three-part comment
if this_codeline =~ '^\s*\*'
return indent( a:line_num - 1)
endif


" COLUMN 1 ALWAYS

" Last line of the program
if this_codeline =~ '^\s*end\.'
return 0
endif

" Compiler directives, allowing "(*" and "{"
"if this_codeline =~ '^\s*\({\|(\*\)$\(IFDEF\|IFNDEF\|ELSE\|ENDIF\)'
if this_codeline =~ '^\s*\({\|(\*\)\$'
return 0
endif

" section headers
if this_codeline =~ '^\s*\(program\|procedure\|function\|type\)\>'
return 0
endif

" Subroutine separators, lines ending with "const" or "var"
if this_codeline =~ '^\s*\((\*\ _\+\ \*)\|\(const\|var\)\)$'
return 0
endif


" OTHERWISE, WE NEED TO LOOK FURTHER BACK...

let prev_codeline_num = s:GetPrevNonCommentLineNum( a:line_num )
let prev_codeline = getline( prev_codeline_num )
let indnt = indent( prev_codeline_num )


" INCREASE INDENT

" If the PREVIOUS LINE ended in these items, always indent
if prev_codeline =~ '\<\(type\|const\|var\)$'
return indnt + &shiftwidth
endif

if prev_codeline =~ '\<repeat$'
if this_codeline !~ '^\s*until\>'
return indnt + &shiftwidth
else
return indnt
endif
endif

if prev_codeline =~ '\<\(begin\|record\)$'
if this_codeline !~ '^\s*end\>'
return indnt + &shiftwidth
else
return indnt
endif
endif

" If the PREVIOUS LINE ended with these items, indent if not
" followed by "begin"
if prev_codeline =~ '\<\(\|else\|then\|do\)$' || prev_codeline =~ ':$'
if this_codeline !~ '^\s*begin\>'
return indnt + &shiftwidth
else
" If it does start with "begin" then keep the same indent
"return indnt + &shiftwidth
return indnt
endif
endif

" Inside a parameter list (i.e. a "(" without a ")"). ???? Considers
" only the line before the current one. TODO: Get it working for
" parameter lists longer than two lines.
if prev_codeline =~ '([^)]\+$'
return indnt + &shiftwidth
endif


" DECREASE INDENT

" Lines starting with "else", but not following line ending with
" "end".
if this_codeline =~ '^\s*else\>' && prev_codeline !~ '\<end$'
return indnt - &shiftwidth
endif

" Lines after a single-statement branch/loop.
" Two lines before ended in "then", "else", or "do"
" Previous line didn't end in "begin"
let prev2_codeline_num = s:GetPrevNonCommentLineNum( prev_codeline_num )
let prev2_codeline = getline( prev2_codeline_num )
if prev2_codeline =~ '\<\(then\|else\|do\)$' && prev_codeline !~ '\<begin$'
" If the next code line after a single statement branch/loop
" starts with "end", "except" or "finally", we need an
" additional unindentation.
if this_codeline =~ '^\s*\(end;\|except\|finally\|\)$'
" Note that we don't return from here.
return indnt - &shiftwidth - &shiftwidth
endif
return indnt - &shiftwidth
endif

" Lines starting with "until" or "end". This rule must be overridden
" by the one for "end" after a single-statement branch/loop. In
" other words that rule should come before this one.
if this_codeline =~ '^\s*\(end\|until\)\>'
return indnt - &shiftwidth
endif


" MISCELLANEOUS THINGS TO CATCH

" Most "begin"s will have been handled by now. Any remaining
" "begin"s on their own line should go in column 1.
if this_codeline =~ '^\s*begin$'
return 0
endif


" ____________________________________________________________________
" Object/Borland Pascal/Delphi Extensions
"
" Note that extended-pascal is handled here, unless it is simpler to
" handle them in the standard-pascal section above.


" COLUMN 1 ALWAYS

" section headers at start of line.
if this_codeline =~ '^\s*\(interface\|implementation\|uses\|unit\)\>'
return 0
endif


" INDENT ONCE

" If the PREVIOUS LINE ended in these items, always indent.
if prev_codeline =~ '^\s*\(unit\|uses\|try\|except\|finally\|private\|protected\|public\|published\)$'
return indnt + &shiftwidth
endif

" ???? Indent "procedure" and "functions" if they appear within an
" class/object definition. But that means overriding standard-pascal
" rule where these words always go in column 1.


" UNINDENT ONCE

if this_codeline =~ '^\s*\(except\|finally\)$'
return indnt - &shiftwidth
endif

if this_codeline =~ '^\s*\(private\|protected\|public\|published\)$'
return indnt - &shiftwidth
endif


" ____________________________________________________________________

" If nothing changed, return same indent.
return indnt
endfunction
Something went wrong with that request. Please try again.