File Manager

X7ROOT File Manager

Current Path: /usr/share/vim/vim80/ftplugin

?? ..
?? README.txt(869 B)
?? a2ps.vim(470 B)
?? aap.vim(716 B)
?? abap.vim(800 B)
?? abaqus.vim(3.31 KB)
?? ada.vim(6.26 KB)
?? alsaconf.vim(438 B)
?? ant.vim(1.31 KB)
?? arch.vim(431 B)
?? art.vim(410 B)
?? aspvbs.vim(1.87 KB)
?? automake.vim(337 B)
?? awk.vim(411 B)
?? bdf.vim(449 B)
?? bst.vim(333 B)
?? btm.vim(316 B)
?? bzl.vim(2.99 KB)
?? c.vim(1.92 KB)
?? calendar.vim(462 B)
?? cdrdaoconf.vim(383 B)
?? ch.vim(472 B)
?? changelog.vim(8.68 KB)
?? chicken.vim(1.62 KB)
?? clojure.vim(3.74 KB)
?? cmake.vim(359 B)
?? cobol.vim(9.24 KB)
?? conf.vim(434 B)
?? config.vim(1.24 KB)
?? context.vim(4.26 KB)
?? cpp.vim(288 B)
?? crm.vim(414 B)
?? cs.vim(802 B)
?? csc.vim(734 B)
?? csh.vim(1.59 KB)
?? css.vim(528 B)
?? cucumber.vim(5 KB)
?? cvsrc.vim(399 B)
?? debchangelog.vim(11.23 KB)
?? debcontrol.vim(1.8 KB)
?? denyhosts.vim(383 B)
?? dictconf.vim(434 B)
?? dictdconf.vim(435 B)
?? diff.vim(355 B)
?? dircolors.vim(431 B)
?? docbk.vim(530 B)
?? dockerfile.vim(356 B)
?? dosbatch.vim(777 B)
?? dosini.vim(458 B)
?? dtd.vim(1.1 KB)
?? dtrace.vim(1.12 KB)
?? eiffel.vim(3.99 KB)
?? elinks.vim(436 B)
?? erlang.vim(1.77 KB)
?? eruby.vim(3.09 KB)
?? eterm.vim(470 B)
?? falcon.vim(1.31 KB)
?? fetchmail.vim(428 B)
?? flexwiki.vim(1.83 KB)
?? fortran.vim(4.58 KB)
?? framescript.vim(780 B)
?? fvwm.vim(390 B)
?? gdb.vim(293 B)
?? git.vim(1.32 KB)
?? gitcommit.vim(2.18 KB)
?? gitconfig.vim(376 B)
?? gitrebase.vim(1.42 KB)
?? gitsendemail.vim(157 B)
?? go.vim(365 B)
?? gpg.vim(433 B)
?? gprof.vim(939 B)
?? groovy.vim(343 B)
?? group.vim(425 B)
?? grub.vim(434 B)
?? haml.vim(1.84 KB)
?? hamster.vim(1.88 KB)
?? haskell.vim(445 B)
?? help.vim(442 B)
?? hgcommit.vim(363 B)
?? hog.vim(1.36 KB)
?? hostconf.vim(383 B)
?? hostsaccess.vim(436 B)
?? html.vim(1.59 KB)
?? htmldjango.vim(331 B)
?? indent.vim(454 B)
?? initex.vim(1005 B)
?? ishd.vim(1.23 KB)
?? j.vim(3.31 KB)
?? java.vim(1.65 KB)
?? javascript.vim(1.02 KB)
?? jproperties.vim(321 B)
?? json.vim(360 B)
?? jsp.vim(1.96 KB)
?? kconfig.vim(703 B)
?? kwt.vim(851 B)
?? ld.vim(470 B)
?? less.vim(502 B)
?? lftp.vim(434 B)
?? libao.vim(440 B)
?? limits.vim(436 B)
?? liquid.vim(1.85 KB)
?? lisp.vim(769 B)
?? logcheck.vim(500 B)
?? loginaccess.vim(442 B)
?? logindefs.vim(440 B)
?? logtalk.dict(1.75 KB)
?? logtalk.vim(401 B)
?? lprolog.vim(1.25 KB)
?? lua.vim(973 B)
?? m4.vim(426 B)
?? mail.vim(1.08 KB)
?? mailaliases.vim(383 B)
?? mailcap.vim(434 B)
?? make.vim(935 B)
?? man.vim(5.51 KB)
?? manconf.vim(444 B)
?? markdown.vim(1.15 KB)
?? matlab.vim(754 B)
?? mf.vim(3.17 KB)
?? modconf.vim(477 B)
?? mp.vim(3.63 KB)
?? mplayerconf.vim(472 B)
?? mrxvtrc.vim(798 B)
?? msmessages.vim(1.11 KB)
?? muttrc.vim(467 B)
?? nanorc.vim(447 B)
?? neomuttrc.vim(532 B)
?? netrc.vim(428 B)
?? nsis.vim(1.29 KB)
?? objc.vim(296 B)
?? ocaml.vim(22.5 KB)
?? occam.vim(1.27 KB)
?? pamconf.vim(433 B)
?? pascal.vim(667 B)
?? passwd.vim(424 B)
?? pdf.vim(2.55 KB)
?? perl.vim(2.78 KB)
?? perl6.vim(2.47 KB)
?? php.vim(2.75 KB)
?? pinfo.vim(435 B)
?? plaintex.vim(1.12 KB)
?? postscr.vim(1006 B)
?? procmail.vim(479 B)
?? prolog.vim(440 B)
?? protocols.vim(457 B)
?? pyrex.vim(766 B)
?? python.vim(5.43 KB)
?? qf.vim(459 B)
?? quake.vim(439 B)
?? r.vim(858 B)
?? racc.vim(449 B)
?? readline.vim(438 B)
?? registry.vim(740 B)
?? reva.vim(709 B)
?? rhelp.vim(738 B)
?? rmd.vim(1.45 KB)
?? rnc.vim(431 B)
?? rnoweb.vim(1.01 KB)
?? rpl.vim(620 B)
?? rrst.vim(1.08 KB)
?? rst.vim(456 B)
?? ruby.vim(16.61 KB)
?? rust.vim(6.42 KB)
?? sass.vim(607 B)
?? sbt.vim(347 B)
?? scala.vim(1.12 KB)
?? scheme.vim(1.36 KB)
?? screen.vim(436 B)
?? scss.vim(239 B)
?? sensors.vim(455 B)
?? services.vim(452 B)
?? setserial.vim(439 B)
?? sgml.vim(1.18 KB)
?? sh.vim(1.17 KB)
?? sieve.vim(469 B)
?? slpconf.vim(477 B)
?? slpreg.vim(476 B)
?? slpspi.vim(467 B)
?? spec.vim(5.73 KB)
?? sql.vim(21.11 KB)
?? sshconfig.vim(441 B)
?? sudoers.vim(438 B)
?? svg.vim(1.17 KB)
?? sysctl.vim(453 B)
?? systemd.vim(158 B)
?? systemverilog.vim(239 B)
?? tcl.vim(1002 B)
?? tcsh.vim(1.18 KB)
?? terminfo.vim(430 B)
?? tex.vim(1.6 KB)
?? text.vim(433 B)
?? tmux.vim(292 B)
?? treetop.vim(416 B)
?? tt2html.vim(434 B)
?? udevconf.vim(434 B)
?? udevperm.vim(432 B)
?? udevrules.vim(426 B)
?? updatedb.vim(443 B)
?? vb.vim(1.86 KB)
?? verilog.vim(1.93 KB)
?? vhdl.vim(3.42 KB)
?? vim.vim(3.14 KB)
?? vroom.vim(924 B)
?? xdefaults.vim(481 B)
?? xf86conf.vim(434 B)
?? xhtml.vim(1.99 KB)
?? xinetd.vim(476 B)
?? xml.vim(1.87 KB)
?? xmodmap.vim(434 B)
?? xs.vim(465 B)
?? xsd.vim(1.14 KB)
?? xslt.vim(539 B)
?? yaml.vim(464 B)
?? zimbu.vim(5.26 KB)
?? zsh.vim(818 B)

Editing: cobol.vim

" Vim filetype plugin file
" Language:	cobol
" Author:	Tim Pope <vimNOSPAM@tpope.info>
" Last Update:	By ZyX: use shiftwidth()

" 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()
    " &softtabstop < 0: &softtabstop follows &shiftwidth
    elseif (&sts < 0 || &sts == shiftwidth()) && &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

X7ROOT File Manager

Editing: cobol.vim

Upload File

Create Folder