Mercurial > vim
annotate runtime/indent/idlang.vim @ 18486:9d887cad7315
Added tag v8.1.2237 for changeset 63ee3c2b140fe1b4801389872a8e47aec19d028b
| author | Bram Moolenaar <Bram@vim.org> |
|---|---|
| date | Thu, 31 Oct 2019 20:00:04 +0100 |
| parents | 63b0b7b79b25 |
| children | 9c221ad9634a |
| rev | line source |
|---|---|
| 7 | 1 " IDL (Interactive Data Language) indent file. |
| 2 " Language: IDL (ft=idlang) | |
| 11518 | 3 " Last change: 2017 Jun 13 |
| 7 | 4 " Maintainer: Aleksandar Jelenak <ajelenak AT yahoo.com> |
| 5 | |
| 6 " Only load this indent file when no other was loaded. | |
| 7 if exists("b:did_indent") | |
| 8 finish | |
| 9 endif | |
| 10 let b:did_indent = 1 | |
| 11 | |
|
3526
dd6c2497c997
Fix more 'cpo' issues in runtime files.
Bram Moolenaar <bram@vim.org>
parents:
7
diff
changeset
|
12 setlocal indentkeys=o,O,0=endif,0=ENDIF,0=endelse,0=ENDELSE,0=endwhile,0=ENDWHILE,0=endfor,0=ENDFOR,0=endrep,0=ENDREP |
| 7 | 13 |
| 14 setlocal indentexpr=GetIdlangIndent(v:lnum) | |
| 15 | |
| 16 " Only define the function once. | |
| 17 if exists("*GetIdlangIndent") | |
| 18 finish | |
| 19 endif | |
| 20 | |
| 21 function GetIdlangIndent(lnum) | |
| 22 " First non-empty line above the current line. | |
| 23 let pnum = prevnonblank(v:lnum-1) | |
| 24 " v:lnum is the first non-empty line -- zero indent. | |
| 25 if pnum == 0 | |
| 26 return 0 | |
| 27 endif | |
| 28 " Second non-empty line above the current line. | |
| 29 let pnum2 = prevnonblank(pnum-1) | |
| 30 | |
| 31 " Current indent. | |
| 32 let curind = indent(pnum) | |
| 33 | |
| 34 " Indenting of continued lines. | |
| 35 if getline(pnum) =~ '\$\s*\(;.*\)\=$' | |
| 36 if getline(pnum2) !~ '\$\s*\(;.*\)\=$' | |
| 11518 | 37 let curind = curind+shiftwidth() |
| 7 | 38 endif |
| 39 else | |
| 40 if getline(pnum2) =~ '\$\s*\(;.*\)\=$' | |
| 11518 | 41 let curind = curind-shiftwidth() |
| 7 | 42 endif |
| 43 endif | |
| 44 | |
| 45 " Indenting blocks of statements. | |
| 46 if getline(v:lnum) =~? '^\s*\(endif\|endelse\|endwhile\|endfor\|endrep\)\>' | |
| 47 if getline(pnum) =~? 'begin\>' | |
| 11518 | 48 elseif indent(v:lnum) > curind-shiftwidth() |
| 49 let curind = curind-shiftwidth() | |
| 7 | 50 else |
| 51 return -1 | |
| 52 endif | |
| 53 elseif getline(pnum) =~? 'begin\>' | |
| 11518 | 54 if indent(v:lnum) < curind+shiftwidth() |
| 55 let curind = curind+shiftwidth() | |
| 7 | 56 else |
| 57 return -1 | |
| 58 endif | |
| 59 endif | |
| 60 return curind | |
| 61 endfunction | |
| 62 |