runtime/indent/pascal.vim

   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