66 lines
1.7 KiB
VimL
66 lines
1.7 KiB
VimL
" IDL (Interactive Data Language) indent file.
|
|
" Language: IDL (ft=idlang)
|
|
" Maintainer: Aleksandar Jelenak <ajelenak AT yahoo.com> (Invalid email address)
|
|
" Doug Kearns <dougkearns@gmail.com>
|
|
" Last change: 2022 Apr 06
|
|
|
|
" Only load this indent file when no other was loaded.
|
|
if exists("b:did_indent")
|
|
finish
|
|
endif
|
|
let b:did_indent = 1
|
|
|
|
setlocal indentkeys=o,O,0=endif,0=ENDIF,0=endelse,0=ENDELSE,0=endwhile,0=ENDWHILE,0=endfor,0=ENDFOR,0=endrep,0=ENDREP
|
|
|
|
setlocal indentexpr=GetIdlangIndent(v:lnum)
|
|
|
|
let b:undo_indent = "setl inde< indk<"
|
|
|
|
" Only define the function once.
|
|
if exists("*GetIdlangIndent")
|
|
finish
|
|
endif
|
|
|
|
function GetIdlangIndent(lnum)
|
|
" First non-empty line above the current line.
|
|
let pnum = prevnonblank(v:lnum-1)
|
|
" v:lnum is the first non-empty line -- zero indent.
|
|
if pnum == 0
|
|
return 0
|
|
endif
|
|
" Second non-empty line above the current line.
|
|
let pnum2 = prevnonblank(pnum-1)
|
|
|
|
" Current indent.
|
|
let curind = indent(pnum)
|
|
|
|
" Indenting of continued lines.
|
|
if getline(pnum) =~ '\$\s*\(;.*\)\=$'
|
|
if getline(pnum2) !~ '\$\s*\(;.*\)\=$'
|
|
let curind = curind+shiftwidth()
|
|
endif
|
|
else
|
|
if getline(pnum2) =~ '\$\s*\(;.*\)\=$'
|
|
let curind = curind-shiftwidth()
|
|
endif
|
|
endif
|
|
|
|
" Indenting blocks of statements.
|
|
if getline(v:lnum) =~? '^\s*\(endif\|endelse\|endwhile\|endfor\|endrep\)\>'
|
|
if getline(pnum) =~? 'begin\>'
|
|
elseif indent(v:lnum) > curind-shiftwidth()
|
|
let curind = curind-shiftwidth()
|
|
else
|
|
return -1
|
|
endif
|
|
elseif getline(pnum) =~? 'begin\>'
|
|
if indent(v:lnum) < curind+shiftwidth()
|
|
let curind = curind+shiftwidth()
|
|
else
|
|
return -1
|
|
endif
|
|
endif
|
|
return curind
|
|
endfunction
|
|
|