267 lines
9.2 KiB
VimL
267 lines
9.2 KiB
VimL
" Vim filetype plugin file
|
|
" Language: cobol
|
|
" Author: Tim Pope <vimNOSPAM@tpope.info>
|
|
" $Id: cobol.vim,v 1.1 2007/05/05 17:24:38 vimboss Exp $
|
|
|
|
" Insert mode mappings: <C-T> <C-D> <Tab>
|
|
" Normal mode mappings: < > << >> [[ ]] [] ][
|
|
" Visual mode mappings: < >
|
|
|
|
if exists("b:did_ftplugin")
|
|
finish
|
|
endif
|
|
let b:did_ftplugin = 1
|
|
|
|
let s:cpo_save = &cpo
|
|
set cpo&vim
|
|
|
|
setlocal commentstring=\ \ \ \ \ \ *%s
|
|
setlocal comments=:*
|
|
setlocal fo+=croqlt
|
|
setlocal expandtab
|
|
setlocal textwidth=72
|
|
|
|
" matchit support
|
|
if exists("loaded_matchit")
|
|
let s:ordot = '\|\ze\.\%( \@=\|$\)'
|
|
let b:match_ignorecase=1
|
|
"let b:match_skip = 'getline(".") =~ "^.\\{6\\}[*/C]"'
|
|
let b:match_words=
|
|
\ '\$if\>:$else\>:\$endif\>,' .
|
|
\ '[$-]\@<!\<if\>:\<\%(then\|else\)\>:\<end-if\>'.s:ordot.',' .
|
|
\ '-\@<!\<perform\s\+\%(\d\+\s\+times\|until\|varying\|with\s\+test\)\>:\<end-perform\>'.s:ordot . ',' .
|
|
\ '-\@<!\<\%(search\|evaluate\)\>:\<\%(when\)\>:\<end-\%(search\|evaluate\)\>' .s:ordot . ',' .
|
|
\ '-\@<!\<\%(add\|compute\|divide\|multiply\|subtract\)\>\%(.*\(\%$\|\%(\n\%(\%(\s*\|.\{6\}\)[*/].*\n\)*\)\=\s*\%(not\s\+\)\=on\s\+size\s\+error\>\)\)\@=:\%(\<not\s\+\)\@<!\<\%(not\s\+\)\=on\s\+size\s\+error\>:\<end-\%(add\|compute\|divide\|multiply\|subtract\)\>' .s:ordot . ',' .
|
|
\ '-\@<!\<\%(string\|unstring\|accept\|display\|call\)\>\%(.*\(\%$\|\%(\n\%(\%(\s*\|.\{6\}\)[*/].*\n\)*\)\=\s*\%(not\s\+\)\=on\s\+\%(overflow\|exception\)\>\)\)\@=:\%(\<not\s\+\)\@<!\<\%(not\s\+\)\=on\s\+\%(overflow\|exception\)\>:\<end-\%(string\|unstring\|accept\|display\|call\)\>' .s:ordot . ',' .
|
|
\ '-\@<!\<\%(delete\|rewrite\|start\|write\|read\)\>\%(.*\(\%$\|\%(\n\%(\%(\s*\|.\{6\}\)[*/].*\n\)*\)\=\s*\%(invalid\s\+key\|at\s\+end\|no\s\+data\|at\s\+end-of-page\)\>\)\)\@=:\%(\<not\s\+\)\@<!\<\%(not\s\+\)\=\%(invalid\s\+key\|at\s\+end\|no\s\+data\|at\s\+end-of-page\)\>:\<end-\%(delete\|rewrite\|start\|write\|read\)\>' .s:ordot
|
|
endif
|
|
|
|
if has("gui_win32") && !exists("b:browsefilter")
|
|
let b:browsefilter = "COBOL Source Files (*.cbl, *.cob)\t*.cbl;*.cob;*.lib\n".
|
|
\ "All Files (*.*)\t*.*\n"
|
|
endif
|
|
|
|
let b:undo_ftplugin = "setlocal com< cms< fo< et< tw<" .
|
|
\ " | unlet! b:browsefilter b:match_words b:match_ignorecase b:match_skip"
|
|
if !exists("g:no_plugin_maps") && !exists("g:no_cobol_maps")
|
|
let b:undo_ftplugin = b:undo_ftplugin .
|
|
\ " | sil! exe 'nunmap <buffer> <'" .
|
|
\ " | sil! exe 'nunmap <buffer> >'" .
|
|
\ " | sil! exe 'nunmap <buffer> <<'" .
|
|
\ " | sil! exe 'nunmap <buffer> >>'" .
|
|
\ " | sil! exe 'vunmap <buffer> <'" .
|
|
\ " | sil! exe 'vunmap <buffer> >'" .
|
|
\ " | sil! exe 'iunmap <buffer> <C-D>'" .
|
|
\ " | sil! exe 'iunmap <buffer> <C-T>'" .
|
|
\ " | sil! exe 'iunmap <buffer> <Tab>'" .
|
|
\ " | sil! exe 'nunmap <buffer> <Plug>Traditional'" .
|
|
\ " | sil! exe 'nunmap <buffer> <Plug>Comment'" .
|
|
\ " | sil! exe 'nunmap <buffer> <Plug>DeComment'" .
|
|
\ " | sil! exe 'vunmap <buffer> <Plug>VisualTraditional'" .
|
|
\ " | sil! exe 'vunmap <buffer> <Plug>VisualComment'" .
|
|
\ " | sil! exe 'iunmap <buffer> <Plug>VisualDeComment'" .
|
|
\ " | sil! exe 'unmap <buffer> [['" .
|
|
\ " | sil! exe 'unmap <buffer> ]]'" .
|
|
\ " | sil! exe 'unmap <buffer> []'" .
|
|
\ " | sil! exe 'unmap <buffer> ]['"
|
|
endif
|
|
|
|
if !exists("g:no_plugin_maps") && !exists("g:no_cobol_maps")
|
|
if version >= 700
|
|
nnoremap <silent> <buffer> > :set opfunc=<SID>IncreaseFunc<CR>g@
|
|
nnoremap <silent> <buffer> < :set opfunc=<SID>DecreaseFunc<CR>g@
|
|
endif
|
|
nnoremap <silent> <buffer> >> :call CobolIndentBlock(1)<CR>
|
|
nnoremap <silent> <buffer> << :call CobolIndentBlock(-1)<CR>
|
|
vnoremap <silent> <buffer> > :call CobolIndentBlock(v:count1)<CR>
|
|
vnoremap <silent> <buffer> < :call CobolIndentBlock(-v:count1)<CR>
|
|
inoremap <silent> <buffer> <C-T> <C-R>=<SID>IncreaseIndent()<CR><C-R>=<SID>RestoreShiftwidth()<CR>
|
|
inoremap <silent> <buffer> <C-D> <C-R>=<SID>DecreaseIndent()<CR><C-R>=<SID>RestoreShiftwidth()<CR>
|
|
if !maparg("<Tab>","i")
|
|
inoremap <silent> <buffer> <Tab> <C-R>=<SID>Tab()<CR><C-R>=<SID>RestoreShiftwidth()<CR>
|
|
endif
|
|
noremap <silent> <buffer> [[ m':call search('\c^\%(\s*\<Bar>.\{6\}\s\+\)\zs[A-Za-z0-9-]\+\s\+\%(division\<Bar>section\)\s*\.','bW')<CR>
|
|
noremap <silent> <buffer> ]] m':call search('\c^\%(\s*\<Bar>.\{6\}\s\+\)\zs[A-Za-z0-9-]\+\s\+\%(division\<Bar>section\)\.','W')<CR>
|
|
noremap <silent> <buffer> [] m':call <SID>toend('b')<CR>
|
|
noremap <silent> <buffer> ][ m':call <SID>toend('')<CR>
|
|
" For EnhancedCommentify
|
|
noremap <silent> <buffer> <Plug>Traditional :call <SID>Comment('t')<CR>
|
|
noremap <silent> <buffer> <Plug>Comment :call <SID>Comment('c')<CR>
|
|
noremap <silent> <buffer> <Plug>DeComment :call <SID>Comment('u')<CR>
|
|
noremap <silent> <buffer> <Plug>VisualTraditional :'<,'>call <SID>Comment('t')<CR>
|
|
noremap <silent> <buffer> <Plug>VisualComment :'<,'>call <SID>Comment('c')<CR>
|
|
noremap <silent> <buffer> <Plug>VisualDeComment :'<,'>call <SID>Comment('u')<CR>
|
|
endif
|
|
|
|
let &cpo = s:cpo_save
|
|
unlet s:cpo_save
|
|
|
|
if exists("g:did_cobol_ftplugin_functions")
|
|
finish
|
|
endif
|
|
let g:did_cobol_ftplugin_functions = 1
|
|
|
|
function! s:repeat(str,count)
|
|
let i = 0
|
|
let ret = ""
|
|
while i < a:count
|
|
let ret = ret . a:str
|
|
let i = i + 1
|
|
endwhile
|
|
return ret
|
|
endfunction
|
|
|
|
function! s:increase(...)
|
|
let lnum = '.'
|
|
let sw = &shiftwidth
|
|
let i = a:0 ? a:1 : indent(lnum)
|
|
if i >= 11
|
|
return sw - (i - 11) % sw
|
|
elseif i >= 7
|
|
return 11-i
|
|
elseif i == 6
|
|
return 1
|
|
else
|
|
return 6-i
|
|
endif
|
|
endfunction
|
|
|
|
function! s:decrease(...)
|
|
let lnum = '.'
|
|
let sw = &shiftwidth
|
|
let i = indent(a:0 ? a:1 : lnum)
|
|
if i >= 11 + sw
|
|
return 1 + (i + 12) % sw
|
|
elseif i > 11
|
|
return i-11
|
|
elseif i > 7
|
|
return i-7
|
|
elseif i == 7
|
|
return 1
|
|
else
|
|
return i
|
|
endif
|
|
endfunction
|
|
|
|
function! CobolIndentBlock(shift)
|
|
let head = strpart(getline('.'),0,7)
|
|
let tail = strpart(getline('.'),7)
|
|
let indent = match(tail,'[^ ]')
|
|
let sw = &shiftwidth
|
|
let shift = a:shift
|
|
if shift > 0
|
|
if indent < 4
|
|
let tail = s:repeat(" ",4-indent).tail
|
|
let shift = shift - 1
|
|
endif
|
|
let tail = s:repeat(" ",shift*sw).tail
|
|
let shift = 0
|
|
elseif shift < 0
|
|
if (indent-4) > -shift * sw
|
|
let tail = strpart(tail,-shift * sw)
|
|
elseif (indent-4) > (-shift-1) * sw
|
|
let tail = strpart(tail,indent - 4)
|
|
else
|
|
let tail = strpart(tail,indent)
|
|
endif
|
|
endif
|
|
call setline('.',head.tail)
|
|
endfunction
|
|
|
|
function! s:IncreaseFunc(type)
|
|
'[,']call CobolIndentBlock(1)
|
|
endfunction
|
|
|
|
function! s:DecreaseFunc(type)
|
|
'[,']call CobolIndentBlock(-1)
|
|
endfunction
|
|
|
|
function! s:IncreaseIndent()
|
|
let c = "\<C-T>"
|
|
if exists("*InsertCtrlTWrapper")
|
|
let key = InsertCtrlTWrapper()
|
|
if key != c
|
|
return key
|
|
endif
|
|
endif
|
|
let interval = s:increase()
|
|
let b:cobol_shiftwidth = &shiftwidth
|
|
let &shiftwidth = 1
|
|
let lastchar = strpart(getline('.'),col('.')-2,1)
|
|
if lastchar == '0' || lastchar == '^'
|
|
return "\<BS>".lastchar.c
|
|
else
|
|
return s:repeat(c,interval)
|
|
endif
|
|
endfunction
|
|
|
|
function! s:DecreaseIndent()
|
|
let c = "\<C-D>"
|
|
if exists("*InsertCtrlDWrapper")
|
|
" I hack Ctrl-D to delete when not at the end of the line.
|
|
let key = InsertCtrlDWrapper()
|
|
if key != c
|
|
return key
|
|
endif
|
|
endif
|
|
let interval = s:decrease()
|
|
let b:cobol_shiftwidth = &shiftwidth
|
|
let &shiftwidth = 1
|
|
return s:repeat(c,interval)
|
|
endfunction
|
|
|
|
function! s:RestoreShiftwidth()
|
|
if exists("b:cobol_shiftwidth")
|
|
let &shiftwidth=b:cobol_shiftwidth
|
|
unlet b:cobol_shiftwidth
|
|
endif
|
|
return ""
|
|
endfunction
|
|
|
|
function! s:Tab()
|
|
if (strpart(getline('.'),0,col('.')-1) =~ '^\s*$' && &sta)
|
|
return s:IncreaseIndent()
|
|
elseif &sts == &sw && &sts != 8 && &et
|
|
return s:repeat(" ",s:increase(col('.')-1))
|
|
else
|
|
return "\<Tab>"
|
|
endif
|
|
endfunction
|
|
|
|
function! s:Comment(arg)
|
|
" For EnhancedCommentify
|
|
let line = getline('.')
|
|
if (line =~ '^.\{6\}[*/C]' || a:arg == 'c') && a:arg != 'u'
|
|
let line = substitute(line,'^.\{6\}\zs.',' ','')
|
|
else
|
|
let line = substitute(line,'^.\{6\}\zs.','*','')
|
|
endif
|
|
call setline('.',line)
|
|
endfunction
|
|
|
|
function! s:toend(direction)
|
|
let ignore = '^\(\s*\|.\{6\}\)\%([*/]\|\s*$\)'
|
|
let keep = line('.')
|
|
keepjumps +
|
|
while line('.') < line('$') && getline('.') =~ ignore
|
|
keepjumps +
|
|
endwhile
|
|
let res = search('\c^\%(\s*\|.\{6\}\s\+\)\zs[A-Za-z0-9-]\+\s\+\%(division\|section\)\s*\.',a:direction.'W')
|
|
if a:direction != 'b' && !res
|
|
let res = line('$')
|
|
keepjumps $
|
|
elseif res
|
|
keepjumps -
|
|
endif
|
|
if res
|
|
while line('.') > 1 && getline('.') =~ ignore
|
|
keepjumps -
|
|
endwhile
|
|
if line('.') == 1 && getline('.') =~ ignore
|
|
exe "keepjumps ".keep
|
|
endif
|
|
else
|
|
exe "keepjumps ".keep
|
|
endif
|
|
endfunction
|