| Bram Moolenaar | 071d427 | 2004-06-13 20:20:40 +0000 | [diff] [blame] | 1 | " Vim indent file |
| 2 | " Language: Eiffel |
| Bram Moolenaar | 3fdfa4a | 2004-10-07 21:02:47 +0000 | [diff] [blame] | 3 | " Maintainer: Jocelyn Fiat <eiffel@djoce.net> |
| 4 | " Previous-Maintainer: David Clarke <gadicath@dishevelled.net> |
| Bram Moolenaar | 5c73622 | 2010-01-06 20:54:52 +0100 | [diff] [blame] | 5 | " $Date: 2004/12/09 21:33:52 $ |
| 6 | " $Revision: 1.3 $ |
| Bram Moolenaar | 3fdfa4a | 2004-10-07 21:02:47 +0000 | [diff] [blame] | 7 | " URL: http://www.djoce.net/page/vim/ |
| Bram Moolenaar | 293ee4d | 2004-12-09 21:34:53 +0000 | [diff] [blame] | 8 | " Last Change: 2004 Sept 14 : removed specific value for tab (sw) |
| Bram Moolenaar | 071d427 | 2004-06-13 20:20:40 +0000 | [diff] [blame] | 9 | |
| 10 | " Only load this indent file when no other was loaded. |
| 11 | if exists("b:did_indent") |
| 12 | finish |
| 13 | endif |
| 14 | let b:did_indent = 1 |
| 15 | |
| 16 | setlocal indentexpr=GetEiffelIndent() |
| 17 | setlocal nolisp |
| 18 | setlocal nosmartindent |
| 19 | setlocal nocindent |
| 20 | setlocal autoindent |
| 21 | setlocal comments=:-- |
| 22 | setlocal indentkeys+==end,=else,=ensure,=require,=check,=loop,=until |
| 23 | setlocal indentkeys+==creation,=feature,=inherit,=class,=is,=redefine,=rename,=variant |
| 24 | setlocal indentkeys+==invariant,=do,=local,=export |
| Bram Moolenaar | 071d427 | 2004-06-13 20:20:40 +0000 | [diff] [blame] | 25 | |
| 26 | " Define some stuff |
| 27 | " keywords grouped by indenting |
| 28 | let s:trust_user_indent = '\(+\)\(\s*\(--\).*\)\=$' |
| 29 | let s:relative_indent = '^\s*\(deferred\|class\|feature\|creation\|inherit\|loop\|from\|until\|if\|else\|elseif\|ensure\|require\|check\|do\|local\|invariant\|variant\|rename\|redefine\|do\|export\)\>' |
| 30 | let s:outdent = '^\s*\(else\|invariant\|variant\|do\|require\|until\|loop\|local\)\>' |
| 31 | let s:no_indent = '^\s*\(class\|feature\|creation\|inherit\)\>' |
| 32 | let s:single_dent = '^[^-]\+[[:alnum:]]\+ is\(\s*\(--\).*\)\=$' |
| 33 | let s:inheritance_dent = '\s*\(redefine\|rename\|export\)\>' |
| 34 | |
| 35 | |
| 36 | " Only define the function once. |
| 37 | if exists("*GetEiffelIndent") |
| 38 | finish |
| 39 | endif |
| 40 | |
| 41 | function GetEiffelIndent() |
| 42 | |
| 43 | " Eiffel Class indenting |
| 44 | " |
| 45 | " Find a non-blank line above the current line. |
| 46 | let lnum = prevnonblank(v:lnum - 1) |
| 47 | |
| 48 | " At the start of the file use zero indent. |
| 49 | if lnum == 0 |
| 50 | return 0 |
| 51 | endif |
| 52 | |
| 53 | " trust the user's indenting |
| 54 | if getline(lnum) =~ s:trust_user_indent |
| 55 | return -1 |
| 56 | endif |
| 57 | |
| 58 | " Add a 'shiftwidth' after lines that start with an indent word |
| 59 | let ind = indent(lnum) |
| 60 | if getline(lnum) =~ s:relative_indent |
| 61 | let ind = ind + &sw |
| 62 | endif |
| 63 | |
| 64 | " Indent to single indent |
| 65 | if getline(v:lnum) =~ s:single_dent && getline(v:lnum) !~ s:relative_indent |
| 66 | \ && getline(v:lnum) !~ '\s*\<\(and\|or\|implies\)\>' |
| 67 | let ind = &sw |
| 68 | endif |
| 69 | |
| 70 | " Indent to double indent |
| 71 | if getline(v:lnum) =~ s:inheritance_dent |
| 72 | let ind = 2 * &sw |
| 73 | endif |
| 74 | |
| 75 | " Indent line after the first line of the function definition |
| 76 | if getline(lnum) =~ s:single_dent |
| 77 | let ind = ind + &sw |
| 78 | endif |
| 79 | |
| 80 | " The following should always be at the start of a line, no indenting |
| 81 | if getline(v:lnum) =~ s:no_indent |
| 82 | let ind = 0 |
| 83 | endif |
| 84 | |
| 85 | " Subtract a 'shiftwidth', if this isn't the first thing after the 'is' |
| 86 | " or first thing after the 'do' |
| 87 | if getline(v:lnum) =~ s:outdent && getline(v:lnum - 1) !~ s:single_dent |
| 88 | \ && getline(v:lnum - 1) !~ '^\s*do\>' |
| 89 | let ind = ind - &sw |
| 90 | endif |
| 91 | |
| 92 | " Subtract a shiftwidth for end statements |
| 93 | if getline(v:lnum) =~ '^\s*end\>' |
| 94 | let ind = ind - &sw |
| 95 | endif |
| 96 | |
| 97 | " set indent of zero end statements that are at an indent of 3, this should |
| 98 | " only ever be the class's end. |
| Bram Moolenaar | 3fdfa4a | 2004-10-07 21:02:47 +0000 | [diff] [blame] | 99 | if getline(v:lnum) =~ '^\s*end\>' && ind == &sw |
| Bram Moolenaar | 071d427 | 2004-06-13 20:20:40 +0000 | [diff] [blame] | 100 | let ind = 0 |
| 101 | endif |
| 102 | |
| 103 | return ind |
| 104 | endfunction |
| 105 | |
| 106 | " vim:sw=2 |