18 setlocal indentexpr=GetCobolIndent(v:lnum)
31 function! s:prevgood(lnum)  argument
34     let lnum = a:lnum
35     while lnum > 0
36         let lnum = prevnonblank(lnum - 1)
37         let line = getline(lnum)
42     return lnum
45 function! s:stripped(lnum)  argument
46     return substitute(strpart(getline(a:lnum),0,72),'^\s*','','')
49 function! s:optionalblock(lnum,ind,blocks,clauses)  argument
55     let cline = s:stripped(a:lnum)
56     let line  = s:stripped(s:prevgood(a:lnum))
58         call cursor(a:lnum,1)
72 function! GetCobolIndent(lnum) abort  argument
78     "if getline(a:lnum) =~? '^\s*\d\{6\}\%($\|[ */$CD-]\)'
79     if getline(a:lnum) =~? '^\s*[a-zA-Z0-9]\{6\}\%($\|[ */$CD-]\)'
82     let cline = s:stripped(a:lnum)
86     elseif cline =~# '^[CD]' && indent(a:lnum) == minshft
102         let lnum = a:lnum
103         while lnum > 0 && lnum < line('$') && lnum > a:lnum - 500 && lnum < a:lnum + 500
104             let lnum = step > 0 ? nextnonblank(lnum + step) : prevnonblank(lnum + step)
105             let line = getline(lnum)
106             let lindent = indent(lnum)
122     let lnum = s:prevgood(a:lnum)
124     if lnum == 0
128     let line = s:stripped(lnum)
129     let ind = indent(lnum)
156 …let ind = s:optionalblock(a:lnum,ind,'ADD\|COMPUTE\|DIVIDE\|MULTIPLY\|SUBTRACT','ON\s\+SIZE\s\+ERR…
157 …let ind = s:optionalblock(a:lnum,ind,'STRING\|UNSTRING\|ACCEPT\|DISPLAY\|CALL','ON\s\+OVERFLOW\|ON…
159 …let ind = s:optionalblock(a:lnum,ind,'DELETE\|REWRITE\|START\|WRITE\|READ','INVALID\s\+KEY\|AT\s\+…
162         call cursor(a:lnum,1)
177         "let ind = indent(s:prevgood(lnum))
183         call cursor(a:lnum,indent(a:lnum))
217         call cursor(a:lnum,indent(a:lnum))