Linux ubuntu 6.8.0-90-generic #91-Ubuntu SMP PREEMPT_DYNAMIC Tue Nov 18 14:14:30 UTC 2025 x86_64
nginx/1.24.0
: 67.217.245.49 | : 216.73.216.153
Cant Read [ /etc/named.conf ]
8.3.6
www-data
Bypass.pw
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
Backdoor Scanner
Backdoor Create
Alfa Webshell
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
vim /
vim91 /
ftplugin /
[ HOME SHELL ]
Name
Size
Permission
Action
8th.vim
833
B
-rw-r--r--
a2ps.vim
470
B
-rw-r--r--
aap.vim
1.02
KB
-rw-r--r--
abap.vim
955
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
509
B
-rw-r--r--
asm.vim
372
B
-rw-r--r--
aspvbs.vim
1.83
KB
-rw-r--r--
automake.vim
337
B
-rw-r--r--
awk.vim
1.57
KB
-rw-r--r--
bash.vim
504
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
382
B
-rw-r--r--
bzl.vim
3.22
KB
-rw-r--r--
c.vim
2.32
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.28
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--
corn.vim
457
B
-rw-r--r--
cpp.vim
534
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.75
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--
debsources.vim
470
B
-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
743
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
618
B
-rw-r--r--
eiffel.vim
3.99
KB
-rw-r--r--
elinks.vim
436
B
-rw-r--r--
elixir.vim
980
B
-rw-r--r--
elm.vim
369
B
-rw-r--r--
erlang.vim
3.2
KB
-rw-r--r--
eruby.vim
4.66
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
603
B
-rw-r--r--
fetchmail.vim
397
B
-rw-r--r--
fish.vim
483
B
-rw-r--r--
flexwiki.vim
1.83
KB
-rw-r--r--
forth.vim
1.84
KB
-rw-r--r--
fortran.vim
5.56
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--
git.vim
305
B
-rw-r--r--
gitattributes.vim
278
B
-rw-r--r--
gitcommit.vim
2.03
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
1.1
KB
-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
793
B
-rw-r--r--
haskell.vim
573
B
-rw-r--r--
heex.vim
830
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.47
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--
json5.vim
718
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--
kotlin.vim
968
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--
livebook.vim
270
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.12
KB
-rw-r--r--
logtalk.vim
416
B
-rw-r--r--
lprolog.vim
1.62
KB
-rw-r--r--
lua.vim
1.34
KB
-rw-r--r--
luau.vim
225
B
-rw-r--r--
lynx.vim
724
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.42
KB
-rw-r--r--
mailaliases.vim
383
B
-rw-r--r--
mailcap.vim
434
B
-rw-r--r--
make.vim
1.1
KB
-rw-r--r--
man.vim
2.13
KB
-rw-r--r--
manconf.vim
444
B
-rw-r--r--
markdown.vim
2.81
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
1.17
KB
-rw-r--r--
modula2.vim
1.38
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
1.14
KB
-rw-r--r--
nanorc.vim
447
B
-rw-r--r--
neomuttrc.vim
532
B
-rw-r--r--
netrc.vim
480
B
-rw-r--r--
nginx.vim
251
B
-rw-r--r--
nix.vim
388
B
-rw-r--r--
nroff.vim
424
B
-rw-r--r--
nsis.vim
1.31
KB
-rw-r--r--
objc.vim
362
B
-rw-r--r--
objdump.vim
271
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
478
B
-rw-r--r--
pdf.vim
2.55
KB
-rw-r--r--
perl.vim
3.77
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.23
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--
pymanifest.vim
277
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--
qml.vim
780
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
1.67
KB
-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.29
KB
-rw-r--r--
rnc.vim
431
B
-rw-r--r--
rnoweb.vim
1.57
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.44
KB
-rw-r--r--
rust.vim
8.9
KB
-rw-r--r--
sass.vim
1.09
KB
-rw-r--r--
sbt.vim
346
B
-rw-r--r--
scala.vim
1.27
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--
sed.vim
661
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
451
B
-rw-r--r--
sgml.vim
1.15
KB
-rw-r--r--
sh.vim
1.9
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--
solidity.vim
394
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
1.14
KB
-rw-r--r--
sudoers.vim
1.12
KB
-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--
swig.vim
318
B
-rw-r--r--
sysctl.vim
453
B
-rw-r--r--
systemd.vim
1.46
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
1.05
KB
-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
468
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
1.12
KB
-rw-r--r--
unison.vim
314
B
-rw-r--r--
updatedb.vim
443
B
-rw-r--r--
urlshortcut.vim
475
B
-rw-r--r--
usd.vim
379
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
4.21
KB
-rw-r--r--
vim.vim
4.98
KB
-rw-r--r--
vroom.vim
924
B
-rw-r--r--
vue.vim
667
B
-rw-r--r--
wat.vim
470
B
-rw-r--r--
wget.vim
734
B
-rw-r--r--
wget2.vim
742
B
-rw-r--r--
xcompose.vim
276
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.63
KB
-rw-r--r--
zimbu.vim
7.34
KB
-rw-r--r--
zsh.vim
1.48
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
