Gecko [ corporacionhdm.com.pe ]

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

Rename

" 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