#$@%#$%!

Ngiler SH3LL 360
: / usr / share / vim / vim80 / ftplugin /

Information Server
MySQL : OFF Perl : OFF CURL : ON WGET : OFF PKEXEC : OFF

Directive	Local Value
IP Address	162.0.209.101
System	Linux premium169.web-hosting.com 4.18.0-553.50.1.lve.el8.x86_64 #1 SMP Thu Apr 17 19:10:24 UTC 2025 x86_64
User	luxeelil
PHP Version	8.0.30
Software	LiteSpeed
Doc root	Writable

Edit File : cobol.vim \| Size : 9.24 KB
" 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(" ",shiftsw).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 Back

Edit File : cobol.vim | Size : 9.24 KB

" 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

Back