Return to rpl.vim CVS log

Up to [local] / rpl / vim / indent

Annotation of rpl/vim/indent/rpl.vim, revision 1.1

1.1     ! bertrand    1: " Vim indent file
        !             2: " Language:    RPL/2
        !             3: " Version: 0.3
        !             4: " Last Change: 2005 October 22
        !             5: " Maintainer:  BERTRAND Joël <joel.bertrand@systella.fr>
        !             6: 
        !             7: " Only load this indent file when no other was loaded.
        !             8: if exists("b:did_indent")
        !             9:   finish
        !            10: endif
        !            11: let b:did_indent = 1
        !            12: 
        !            13: setlocal indentkeys+==~end,=~case,=~if,=~then,=~else,=~do,=~until,=~while,=~repeat,=~select,=~default,=~for,=~start,=~next,=~step,<<>,<>>
        !            14: 
        !            15: " Define the appropriate indent function but only once
        !            16: setlocal indentexpr=RplGetFreeIndent()
        !            17: if exists("*RplGetFreeIndent")
        !            18:   finish
        !            19: endif
        !            20: 
        !            21: function RplGetIndent(lnum)
        !            22:   let ind = indent(a:lnum)
        !            23:   let prevline=getline(a:lnum)
        !            24:   " Strip tail comment
        !            25:   let prevstat=substitute(prevline, '!.*$', '', '')
        !            26: 
        !            27:   " Add a shiftwidth to statements following if, iferr, then, else, elseif,
        !            28:   " case, select, default, do, until, while, repeat, for, start
        !            29:   if prevstat =~? '\<\(if\|iferr\|do\|while\)\>' && prevstat =~? '\<end\>'
        !            30:   elseif prevstat =~? '\(^\|\s\+\)<<\($\|\s\+\)' && prevstat =~? '\s\+>>\($\|\s\+\)'
        !            31:   elseif prevstat =~? '\<\(if\|iferr\|then\|else\|elseif\|select\|case\|do\|until\|while\|repeat\|for\|start\|default\)\>' || prevstat =~? '\(^\|\s\+\)<<\($\|\s\+\)'
        !            32:     let ind = ind + &sw
        !            33:   endif
        !            34: 
        !            35:   if prevstat =~? '/\*'
        !            36:     let ind = ind + 1
        !            37:   endif
        !            38: 
        !            39:   " Subtract a shiftwidth from then, else, elseif, end, until, repeat, next,
        !            40:   " step
        !            41:   let line = getline(v:lnum)
        !            42:   if line =~? '^\s*\(then\|else\|elseif\|until\|repeat\|next\|step\|default\|end\)\>'
        !            43:     let ind = ind - &sw
        !            44:   elseif line =~? '^\s*>>\($\|\s\+\)'
        !            45:     let ind = ind - &sw
        !            46:   endif
        !            47: 
        !            48:   if prevstat =~? '\*/'
        !            49:     let ind = ind - 1
        !            50:   endif
        !            51:   return ind
        !            52: endfunction
        !            53: 
        !            54: function RplGetFreeIndent()
        !            55:   " Find the previous non-blank line
        !            56:   let lnum = prevnonblank(v:lnum - 1)
        !            57: 
        !            58:   " Use zero indent at the top of the file
        !            59:   if lnum == 0
        !            60:     return 0
        !            61:   endif
        !            62: 
        !            63:   let ind=RplGetIndent(lnum)
        !            64:   return ind
        !            65: endfunction
        !            66: 
        !            67: " vim:sw=2 tw=130