Linux ip-172-26-5-244 6.1.0-28-cloud-amd64 #1 SMP PREEMPT_DYNAMIC Debian 6.1.119-1 (2024-11-22) x86_64
Apache
: 172.26.5.244 | : 216.73.216.21
Cant Read [ /etc/named.conf ]
8.3.14
daemon
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
vim /
vim90 /
ftplugin /
[ HOME SHELL ]
Name
Size
Permission
Action
8th.vim
833
B
-rw-r--r--
a2ps.vim
470
B
-rw-r--r--
aap.vim
979
B
-rw-r--r--
abap.vim
800
B
-rw-r--r--
abaqus.vim
4
KB
-rw-r--r--
ada.vim
6.35
KB
-rw-r--r--
alsaconf.vim
438
B
-rw-r--r--
ant.vim
1.27
KB
-rw-r--r--
apache.vim
361
B
-rw-r--r--
arch.vim
431
B
-rw-r--r--
art.vim
410
B
-rw-r--r--
asm.vim
271
B
-rw-r--r--
aspvbs.vim
1.83
KB
-rw-r--r--
automake.vim
337
B
-rw-r--r--
awk.vim
1.47
KB
-rw-r--r--
bash.vim
474
B
-rw-r--r--
basic.vim
2.02
KB
-rw-r--r--
bdf.vim
449
B
-rw-r--r--
bitbake.vim
375
B
-rw-r--r--
bst.vim
333
B
-rw-r--r--
btm.vim
316
B
-rw-r--r--
bzl.vim
3.03
KB
-rw-r--r--
c.vim
2.26
KB
-rw-r--r--
calendar.vim
462
B
-rw-r--r--
cdrdaoconf.vim
383
B
-rw-r--r--
cfg.vim
388
B
-rw-r--r--
ch.vim
472
B
-rw-r--r--
changelog.vim
9.09
KB
-rw-r--r--
chatito.vim
383
B
-rw-r--r--
chicken.vim
1.68
KB
-rw-r--r--
clojure.vim
3.24
KB
-rw-r--r--
cmake.vim
867
B
-rw-r--r--
cobol.vim
9.35
KB
-rw-r--r--
conf.vim
434
B
-rw-r--r--
config.vim
1.21
KB
-rw-r--r--
confini.vim
206
B
-rw-r--r--
context.vim
4.34
KB
-rw-r--r--
cpp.vim
468
B
-rw-r--r--
crm.vim
414
B
-rw-r--r--
crontab.vim
361
B
-rw-r--r--
cs.vim
1.47
KB
-rw-r--r--
csc.vim
697
B
-rw-r--r--
csh.vim
1.69
KB
-rw-r--r--
css.vim
586
B
-rw-r--r--
cucumber.vim
5
KB
-rw-r--r--
cvsrc.vim
399
B
-rw-r--r--
debchangelog.vim
11.71
KB
-rw-r--r--
debcontrol.vim
1.8
KB
-rw-r--r--
denyhosts.vim
383
B
-rw-r--r--
desktop.vim
300
B
-rw-r--r--
dictconf.vim
434
B
-rw-r--r--
dictdconf.vim
435
B
-rw-r--r--
diff.vim
677
B
-rw-r--r--
dircolors.vim
431
B
-rw-r--r--
docbk.vim
530
B
-rw-r--r--
dockerfile.vim
356
B
-rw-r--r--
dosbatch.vim
1.19
KB
-rw-r--r--
dosini.vim
459
B
-rw-r--r--
dtd.vim
1.06
KB
-rw-r--r--
dtrace.vim
1.12
KB
-rw-r--r--
dune.vim
502
B
-rw-r--r--
eiffel.vim
3.99
KB
-rw-r--r--
elinks.vim
436
B
-rw-r--r--
elixir.vim
756
B
-rw-r--r--
elm.vim
369
B
-rw-r--r--
erlang.vim
2.61
KB
-rw-r--r--
eruby.vim
4.6
KB
-rw-r--r--
eterm.vim
470
B
-rw-r--r--
expect.vim
503
B
-rw-r--r--
falcon.vim
1.32
KB
-rw-r--r--
fennel.vim
569
B
-rw-r--r--
fetchmail.vim
397
B
-rw-r--r--
fish.vim
375
B
-rw-r--r--
flexwiki.vim
1.83
KB
-rw-r--r--
fortran.vim
5.14
KB
-rw-r--r--
fpcmake.vim
592
B
-rw-r--r--
framescript.vim
780
B
-rw-r--r--
freebasic.vim
2.52
KB
-rw-r--r--
fstab.vim
426
B
-rw-r--r--
fvwm.vim
390
B
-rw-r--r--
gdb.vim
293
B
-rw-r--r--
gdscript.vim
1.59
KB
-rw-r--r--
gdshader.vim
309
B
-rw-r--r--
gitattributes.vim
278
B
-rw-r--r--
gitcommit.vim
1.94
KB
-rw-r--r--
gitconfig.vim
376
B
-rw-r--r--
gitignore.vim
274
B
-rw-r--r--
gitrebase.vim
1.75
KB
-rw-r--r--
gitsendemail.vim
157
B
-rw-r--r--
go.vim
365
B
-rw-r--r--
gpg.vim
433
B
-rw-r--r--
gprof.vim
1.09
KB
-rw-r--r--
groovy.vim
343
B
-rw-r--r--
group.vim
425
B
-rw-r--r--
grub.vim
434
B
-rw-r--r--
gyp.vim
311
B
-rw-r--r--
haml.vim
1.94
KB
-rw-r--r--
hamster.vim
1.92
KB
-rw-r--r--
hare.vim
672
B
-rw-r--r--
haskell.vim
551
B
-rw-r--r--
heex.vim
363
B
-rw-r--r--
help.vim
471
B
-rw-r--r--
hgcommit.vim
363
B
-rw-r--r--
hog.vim
1.36
KB
-rw-r--r--
hostconf.vim
383
B
-rw-r--r--
hostsaccess.vim
436
B
-rw-r--r--
html.vim
1.7
KB
-rw-r--r--
htmldjango.vim
331
B
-rw-r--r--
i3config.vim
333
B
-rw-r--r--
icon.vim
958
B
-rw-r--r--
indent.vim
487
B
-rw-r--r--
initex.vim
1005
B
-rw-r--r--
ishd.vim
1.23
KB
-rw-r--r--
j.vim
3.46
KB
-rw-r--r--
java.vim
1.61
KB
-rw-r--r--
javascript.vim
2.54
KB
-rw-r--r--
javascriptreact.vim
244
B
-rw-r--r--
jproperties.vim
292
B
-rw-r--r--
json.vim
360
B
-rw-r--r--
jsonc.vim
677
B
-rw-r--r--
jsonnet.vim
431
B
-rw-r--r--
jsp.vim
1.93
KB
-rw-r--r--
julia.vim
3.7
KB
-rw-r--r--
kconfig.vim
703
B
-rw-r--r--
kwt.vim
851
B
-rw-r--r--
ld.vim
470
B
-rw-r--r--
less.vim
502
B
-rw-r--r--
lftp.vim
434
B
-rw-r--r--
libao.vim
440
B
-rw-r--r--
limits.vim
436
B
-rw-r--r--
liquid.vim
1.85
KB
-rw-r--r--
lisp.vim
759
B
-rw-r--r--
logcheck.vim
451
B
-rw-r--r--
loginaccess.vim
442
B
-rw-r--r--
logindefs.vim
440
B
-rw-r--r--
logtalk.dict
3.02
KB
-rw-r--r--
logtalk.vim
416
B
-rw-r--r--
lprolog.vim
1.25
KB
-rw-r--r--
lua.vim
1.3
KB
-rw-r--r--
lynx.vim
723
B
-rw-r--r--
m3build.vim
539
B
-rw-r--r--
m3quake.vim
957
B
-rw-r--r--
m4.vim
426
B
-rw-r--r--
mail.vim
1.36
KB
-rw-r--r--
mailaliases.vim
383
B
-rw-r--r--
mailcap.vim
434
B
-rw-r--r--
make.vim
1.03
KB
-rw-r--r--
man.vim
2.11
KB
-rw-r--r--
manconf.vim
444
B
-rw-r--r--
markdown.vim
2.8
KB
-rw-r--r--
masm.vim
1
KB
-rw-r--r--
matlab.vim
835
B
-rw-r--r--
mermaid.vim
1.69
KB
-rw-r--r--
meson.vim
1.12
KB
-rw-r--r--
mf.vim
3.46
KB
-rw-r--r--
mma.vim
366
B
-rw-r--r--
modconf.vim
477
B
-rw-r--r--
modula2.vim
1.06
KB
-rw-r--r--
modula3.vim
1.16
KB
-rw-r--r--
mp.vim
3.8
KB
-rw-r--r--
mplayerconf.vim
472
B
-rw-r--r--
mrxvtrc.vim
798
B
-rw-r--r--
msmessages.vim
1.11
KB
-rw-r--r--
muttrc.vim
467
B
-rw-r--r--
nanorc.vim
447
B
-rw-r--r--
neomuttrc.vim
532
B
-rw-r--r--
netrc.vim
428
B
-rw-r--r--
nginx.vim
144
B
-rw-r--r--
nroff.vim
424
B
-rw-r--r--
nsis.vim
1.31
KB
-rw-r--r--
objc.vim
296
B
-rw-r--r--
obse.vim
1.61
KB
-rw-r--r--
ocaml.vim
23.2
KB
-rw-r--r--
occam.vim
1.27
KB
-rw-r--r--
octave.vim
2.15
KB
-rw-r--r--
openvpn.vim
307
B
-rw-r--r--
pamconf.vim
433
B
-rw-r--r--
pascal.vim
1.51
KB
-rw-r--r--
passwd.vim
424
B
-rw-r--r--
pbtxt.vim
438
B
-rw-r--r--
pdf.vim
2.55
KB
-rw-r--r--
perl.vim
3.57
KB
-rw-r--r--
php.vim
5.26
KB
-rw-r--r--
pinfo.vim
435
B
-rw-r--r--
plaintex.vim
1.12
KB
-rw-r--r--
pod.vim
2.54
KB
-rw-r--r--
poefilter.vim
283
B
-rw-r--r--
poke.vim
744
B
-rw-r--r--
postscr.vim
1006
B
-rw-r--r--
procmail.vim
479
B
-rw-r--r--
prolog.vim
440
B
-rw-r--r--
protocols.vim
457
B
-rw-r--r--
ps1.vim
2.36
KB
-rw-r--r--
ps1xml.vim
1009
B
-rw-r--r--
pyrex.vim
766
B
-rw-r--r--
python.vim
7.78
KB
-rw-r--r--
qb64.vim
587
B
-rw-r--r--
qf.vim
508
B
-rw-r--r--
quake.vim
439
B
-rw-r--r--
quarto.vim
25
B
-rw-r--r--
r.vim
890
B
-rw-r--r--
racc.vim
449
B
-rw-r--r--
racket.vim
2.43
KB
-rw-r--r--
raku.vim
4.02
KB
-rw-r--r--
readline.vim
989
B
-rw-r--r--
registry.vim
740
B
-rw-r--r--
reva.vim
772
B
-rw-r--r--
rhelp.vim
770
B
-rw-r--r--
rmd.vim
2.21
KB
-rw-r--r--
rnc.vim
431
B
-rw-r--r--
rnoweb.vim
1.56
KB
-rw-r--r--
routeros.vim
682
B
-rw-r--r--
rpl.vim
621
B
-rw-r--r--
rrst.vim
1.57
KB
-rw-r--r--
rst.vim
1.37
KB
-rw-r--r--
ruby.vim
17.23
KB
-rw-r--r--
rust.vim
6.42
KB
-rw-r--r--
sass.vim
977
B
-rw-r--r--
sbt.vim
347
B
-rw-r--r--
scala.vim
1.12
KB
-rw-r--r--
scdoc.vim
541
B
-rw-r--r--
scheme.vim
1.41
KB
-rw-r--r--
screen.vim
436
B
-rw-r--r--
scss.vim
239
B
-rw-r--r--
sensors.vim
455
B
-rw-r--r--
services.vim
452
B
-rw-r--r--
setserial.vim
439
B
-rw-r--r--
sexplib.vim
348
B
-rw-r--r--
sgml.vim
1.15
KB
-rw-r--r--
sh.vim
1.44
KB
-rw-r--r--
sieve.vim
469
B
-rw-r--r--
slpconf.vim
477
B
-rw-r--r--
slpreg.vim
476
B
-rw-r--r--
slpspi.vim
467
B
-rw-r--r--
solution.vim
959
B
-rw-r--r--
spec.vim
5.68
KB
-rw-r--r--
sql.vim
21.11
KB
-rw-r--r--
ssa.vim
288
B
-rw-r--r--
sshconfig.vim
441
B
-rw-r--r--
sudoers.vim
438
B
-rw-r--r--
svg.vim
1.14
KB
-rw-r--r--
swayconfig.vim
337
B
-rw-r--r--
swift.vim
733
B
-rw-r--r--
swiftgyb.vim
421
B
-rw-r--r--
sysctl.vim
453
B
-rw-r--r--
systemd.vim
1.23
KB
-rw-r--r--
systemverilog.vim
1.25
KB
-rw-r--r--
tap.vim
815
B
-rw-r--r--
tcl.vim
1002
B
-rw-r--r--
tcsh.vim
961
B
-rw-r--r--
terminfo.vim
430
B
-rw-r--r--
tex.vim
1.6
KB
-rw-r--r--
text.vim
498
B
-rw-r--r--
tidy.vim
861
B
-rw-r--r--
tmux.vim
372
B
-rw-r--r--
toml.vim
464
B
-rw-r--r--
treetop.vim
416
B
-rw-r--r--
tt2html.vim
513
B
-rw-r--r--
typescript.vim
1.18
KB
-rw-r--r--
typescriptreact.vim
787
B
-rw-r--r--
udevconf.vim
434
B
-rw-r--r--
udevperm.vim
432
B
-rw-r--r--
udevrules.vim
426
B
-rw-r--r--
updatedb.vim
443
B
-rw-r--r--
vb.vim
3.39
KB
-rw-r--r--
vdf.vim
311
B
-rw-r--r--
verilog.vim
1.93
KB
-rw-r--r--
vhdl.vim
3.42
KB
-rw-r--r--
vim.vim
4.91
KB
-rw-r--r--
vroom.vim
924
B
-rw-r--r--
vue.vim
667
B
-rw-r--r--
wast.vim
470
B
-rw-r--r--
wget.vim
737
B
-rw-r--r--
wget2.vim
745
B
-rw-r--r--
xdefaults.vim
481
B
-rw-r--r--
xf86conf.vim
434
B
-rw-r--r--
xhtml.vim
1.95
KB
-rw-r--r--
xinetd.vim
476
B
-rw-r--r--
xml.vim
2.15
KB
-rw-r--r--
xmodmap.vim
434
B
-rw-r--r--
xs.vim
517
B
-rw-r--r--
xsd.vim
1.11
KB
-rw-r--r--
xslt.vim
515
B
-rw-r--r--
yaml.vim
628
B
-rw-r--r--
zig.vim
1.53
KB
-rw-r--r--
zimbu.vim
7.28
KB
-rw-r--r--
zsh.vim
1.43
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : cobol.vim
" Vim filetype plugin file " Language: cobol " Maintainer: Ankit Jain <ajatkj@yahoo.co.in> " (formerly Tim Pope <vimNOSPAM@tpope.info>) " Last Update: By Ankit Jain (add gtk support) on 15.08.2020 " 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 " add gtk support if (has("gui_win32") || has("gui_gtk")) && !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
Close
