" IDL (Interactive Data Language) indent file." Language: IDL (ft=idlang)" Last change:	2002 Sep 23" Maintainer: Aleksandar Jelenak <ajelenak AT yahoo.com> " Only load this indent file when no other was loaded.if exists("b:did_indent")   finishendiflet 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) " Only define the function once.if exists("*GetIdlangIndent")   finishendif 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+&sw      endif   else      if getline(pnum2) =~ '\$\s*\(;.*\)\=$'	 let curind = curind-&sw      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-&sw	 let curind = curind-&sw      else	 return -1      endif   elseif getline(pnum) =~? 'begin\>'      if indent(v:lnum) < curind+&sw	 let curind = curind+&sw      else	 return -1      endif   endif   return curindendfunction