2014-07-10 21:05:51 -07:00
|
|
|
" tar.vim: Handles browsing tarfiles
|
|
|
|
|
" AUTOLOAD PORTION
|
2024-11-11 16:00:15 -07:00
|
|
|
" Date: Nov 11, 2024
|
2023-11-14 09:31:59 -07:00
|
|
|
" Version: 32b (with modifications from the Vim Project)
|
2024-02-20 15:30:18 -07:00
|
|
|
" Maintainer: This runtime file is looking for a new maintainer.
|
|
|
|
|
" Former Maintainer: Charles E Campbell
|
2021-02-17 21:38:14 -07:00
|
|
|
" License: Vim License (see vim's :help license)
|
2014-07-10 21:05:51 -07:00
|
|
|
"
|
|
|
|
|
" Contains many ideas from Michael Toren's <tar.vim>
|
|
|
|
|
"
|
2021-02-17 21:38:14 -07:00
|
|
|
" Copyright: Copyright (C) 2005-2017 Charles E. Campbell {{{1
|
2014-07-10 21:05:51 -07:00
|
|
|
" Permission is hereby granted to use and distribute this code,
|
|
|
|
|
" with or without modifications, provided that this copyright
|
|
|
|
|
" notice is copied with it. Like anything else that's free,
|
|
|
|
|
" tar.vim and tarPlugin.vim are provided *as is* and comes
|
|
|
|
|
" with no warranty of any kind, either expressed or implied.
|
|
|
|
|
" By using this plugin, you agree that in no event will the
|
|
|
|
|
" copyright holder be liable for any damages resulting from
|
|
|
|
|
" the use of this software.
|
|
|
|
|
" call inputsave()|call input("Press <cr> to continue")|call inputrestore()
|
|
|
|
|
" ---------------------------------------------------------------------
|
|
|
|
|
" Load Once: {{{1
|
|
|
|
|
if &cp || exists("g:loaded_tar")
|
|
|
|
|
finish
|
|
|
|
|
endif
|
2024-11-11 16:00:15 -07:00
|
|
|
let g:loaded_tar= "v32b"
|
2014-07-10 21:05:51 -07:00
|
|
|
if v:version < 702
|
|
|
|
|
echohl WarningMsg
|
|
|
|
|
echo "***warning*** this version of tar needs vim 7.2"
|
|
|
|
|
echohl Normal
|
|
|
|
|
finish
|
|
|
|
|
endif
|
|
|
|
|
let s:keepcpo= &cpo
|
|
|
|
|
set cpo&vim
|
|
|
|
|
"DechoTabOn
|
|
|
|
|
"call Decho("loading autoload/tar.vim")
|
|
|
|
|
|
|
|
|
|
" ---------------------------------------------------------------------
|
|
|
|
|
" Default Settings: {{{1
|
|
|
|
|
if !exists("g:tar_browseoptions")
|
|
|
|
|
let g:tar_browseoptions= "Ptf"
|
|
|
|
|
endif
|
|
|
|
|
if !exists("g:tar_readoptions")
|
2024-11-11 16:00:15 -07:00
|
|
|
let g:tar_readoptions= "pPxf"
|
2014-07-10 21:05:51 -07:00
|
|
|
endif
|
|
|
|
|
if !exists("g:tar_cmd")
|
|
|
|
|
let g:tar_cmd= "tar"
|
|
|
|
|
endif
|
|
|
|
|
if !exists("g:tar_writeoptions")
|
|
|
|
|
let g:tar_writeoptions= "uf"
|
|
|
|
|
endif
|
2021-02-17 21:38:14 -07:00
|
|
|
if !exists("g:tar_delfile")
|
|
|
|
|
let g:tar_delfile="--delete -f"
|
|
|
|
|
endif
|
2014-07-10 21:05:51 -07:00
|
|
|
if !exists("g:netrw_cygwin")
|
|
|
|
|
if has("win32") || has("win95") || has("win64") || has("win16")
|
|
|
|
|
if &shell =~ '\%(\<bash\>\|\<zsh\>\)\%(\.exe\)\=$'
|
|
|
|
|
let g:netrw_cygwin= 1
|
|
|
|
|
else
|
|
|
|
|
let g:netrw_cygwin= 0
|
|
|
|
|
endif
|
|
|
|
|
else
|
|
|
|
|
let g:netrw_cygwin= 0
|
|
|
|
|
endif
|
|
|
|
|
endif
|
|
|
|
|
if !exists("g:tar_copycmd")
|
|
|
|
|
if !exists("g:netrw_localcopycmd")
|
|
|
|
|
if has("win32") || has("win95") || has("win64") || has("win16")
|
|
|
|
|
if g:netrw_cygwin
|
|
|
|
|
let g:netrw_localcopycmd= "cp"
|
|
|
|
|
else
|
|
|
|
|
let g:netrw_localcopycmd= "copy"
|
|
|
|
|
endif
|
|
|
|
|
elseif has("unix") || has("macunix")
|
|
|
|
|
let g:netrw_localcopycmd= "cp"
|
|
|
|
|
else
|
|
|
|
|
let g:netrw_localcopycmd= ""
|
|
|
|
|
endif
|
|
|
|
|
endif
|
|
|
|
|
let g:tar_copycmd= g:netrw_localcopycmd
|
|
|
|
|
endif
|
|
|
|
|
if !exists("g:tar_extractcmd")
|
2024-11-11 16:00:15 -07:00
|
|
|
let g:tar_extractcmd= "tar -pxf"
|
2014-07-10 21:05:51 -07:00
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
" set up shell quoting character
|
|
|
|
|
if !exists("g:tar_shq")
|
|
|
|
|
if exists("+shq") && exists("&shq") && &shq != ""
|
|
|
|
|
let g:tar_shq= &shq
|
|
|
|
|
elseif has("win32") || has("win95") || has("win64") || has("win16")
|
|
|
|
|
if exists("g:netrw_cygwin") && g:netrw_cygwin
|
|
|
|
|
let g:tar_shq= "'"
|
|
|
|
|
else
|
|
|
|
|
let g:tar_shq= '"'
|
|
|
|
|
endif
|
|
|
|
|
else
|
|
|
|
|
let g:tar_shq= "'"
|
|
|
|
|
endif
|
|
|
|
|
" call Decho("g:tar_shq<".g:tar_shq.">")
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
" ----------------
|
|
|
|
|
" Functions: {{{1
|
|
|
|
|
" ----------------
|
|
|
|
|
|
|
|
|
|
" ---------------------------------------------------------------------
|
|
|
|
|
" tar#Browse: {{{2
|
|
|
|
|
fun! tar#Browse(tarfile)
|
|
|
|
|
" call Dfunc("tar#Browse(tarfile<".a:tarfile.">)")
|
|
|
|
|
let repkeep= &report
|
|
|
|
|
set report=10
|
|
|
|
|
|
|
|
|
|
" sanity checks
|
|
|
|
|
if !executable(g:tar_cmd)
|
|
|
|
|
redraw!
|
2021-02-17 21:38:14 -07:00
|
|
|
" call Decho('***error*** (tar#Browse) "'.g:tar_cmd.'" not available on your system')
|
2014-07-10 21:05:51 -07:00
|
|
|
echohl Error | echo '***error*** (tar#Browse) "'.g:tar_cmd.'" not available on your system'
|
|
|
|
|
let &report= repkeep
|
|
|
|
|
" call Dret("tar#Browse")
|
|
|
|
|
return
|
|
|
|
|
endif
|
|
|
|
|
if !filereadable(a:tarfile)
|
|
|
|
|
" call Decho('a:tarfile<'.a:tarfile.'> not filereadable')
|
|
|
|
|
if a:tarfile !~# '^\a\+://'
|
2021-02-17 21:54:40 -07:00
|
|
|
" if it's an url, don't complain, let url-handlers such as vim do its thing
|
2014-07-10 21:05:51 -07:00
|
|
|
redraw!
|
2021-02-17 21:38:14 -07:00
|
|
|
" call Decho("***error*** (tar#Browse) File not readable<".a:tarfile.">")
|
2014-07-10 21:05:51 -07:00
|
|
|
echohl Error | echo "***error*** (tar#Browse) File not readable<".a:tarfile.">" | echohl None
|
|
|
|
|
endif
|
|
|
|
|
let &report= repkeep
|
|
|
|
|
" call Dret("tar#Browse : file<".a:tarfile."> not readable")
|
|
|
|
|
return
|
|
|
|
|
endif
|
|
|
|
|
if &ma != 1
|
|
|
|
|
set ma
|
|
|
|
|
endif
|
|
|
|
|
let b:tarfile= a:tarfile
|
|
|
|
|
|
|
|
|
|
setlocal noswapfile
|
|
|
|
|
setlocal buftype=nofile
|
|
|
|
|
setlocal bufhidden=hide
|
|
|
|
|
setlocal nobuflisted
|
|
|
|
|
setlocal nowrap
|
|
|
|
|
set ft=tar
|
|
|
|
|
|
|
|
|
|
" give header
|
|
|
|
|
" call Decho("printing header")
|
|
|
|
|
let lastline= line("$")
|
|
|
|
|
call setline(lastline+1,'" tar.vim version '.g:loaded_tar)
|
|
|
|
|
call setline(lastline+2,'" Browsing tarfile '.a:tarfile)
|
|
|
|
|
call setline(lastline+3,'" Select a file with cursor and press ENTER')
|
|
|
|
|
keepj $put =''
|
|
|
|
|
keepj sil! 0d
|
|
|
|
|
keepj $
|
|
|
|
|
|
|
|
|
|
let tarfile= a:tarfile
|
|
|
|
|
if has("win32unix") && executable("cygpath")
|
|
|
|
|
" assuming cygwin
|
|
|
|
|
let tarfile=substitute(system("cygpath -u ".shellescape(tarfile,0)),'\n$','','e')
|
|
|
|
|
endif
|
|
|
|
|
let curlast= line("$")
|
2021-02-17 21:38:14 -07:00
|
|
|
|
|
|
|
|
if tarfile =~# '\.\(gz\)$'
|
2014-07-10 21:05:51 -07:00
|
|
|
" call Decho("1: exe silent r! gzip -d -c -- ".shellescape(tarfile,1)." | ".g:tar_cmd." -".g:tar_browseoptions." - ")
|
2021-02-17 21:38:14 -07:00
|
|
|
exe "sil! r! gzip -d -c -- ".shellescape(tarfile,1)." | ".g:tar_cmd." -".g:tar_browseoptions." - "
|
|
|
|
|
|
2024-01-09 15:03:09 -07:00
|
|
|
elseif tarfile =~# '\.\(tgz\)$' || tarfile =~# '\.\(tbz\)$' || tarfile =~# '\.\(txz\)$' || tarfile =~# '\.\(tzst\)$'
|
2021-02-17 21:38:14 -07:00
|
|
|
if has("unix") && executable("file")
|
2024-01-09 15:03:09 -07:00
|
|
|
let filekind= system("file ".shellescape(tarfile,1))
|
2021-02-17 21:38:14 -07:00
|
|
|
else
|
|
|
|
|
let filekind= ""
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
if filekind =~ "bzip2"
|
|
|
|
|
exe "sil! r! bzip2 -d -c -- ".shellescape(tarfile,1)." | ".g:tar_cmd." -".g:tar_browseoptions." - "
|
|
|
|
|
elseif filekind =~ "XZ"
|
|
|
|
|
exe "sil! r! xz -d -c -- ".shellescape(tarfile,1)." | ".g:tar_cmd." -".g:tar_browseoptions." - "
|
2021-02-17 21:59:17 -07:00
|
|
|
elseif filekind =~ "Zstandard"
|
|
|
|
|
exe "sil! r! zstd --decompress --stdout -- ".shellescape(tarfile,1)." | ".g:tar_cmd." -".g:tar_browseoptions." - "
|
2021-02-17 21:38:14 -07:00
|
|
|
else
|
|
|
|
|
exe "sil! r! gzip -d -c -- ".shellescape(tarfile,1)." | ".g:tar_cmd." -".g:tar_browseoptions." - "
|
|
|
|
|
endif
|
|
|
|
|
|
2014-07-10 21:05:51 -07:00
|
|
|
elseif tarfile =~# '\.lrp'
|
|
|
|
|
" call Decho("2: exe silent r! cat -- ".shellescape(tarfile,1)."|gzip -d -c -|".g:tar_cmd." -".g:tar_browseoptions." - ")
|
2018-11-13 20:32:37 -07:00
|
|
|
exe "sil! r! cat -- ".shellescape(tarfile,1)."|gzip -d -c -|".g:tar_cmd." -".g:tar_browseoptions." - "
|
2014-07-10 21:05:51 -07:00
|
|
|
elseif tarfile =~# '\.\(bz2\|tbz\|tb2\)$'
|
|
|
|
|
" call Decho("3: exe silent r! bzip2 -d -c -- ".shellescape(tarfile,1)." | ".g:tar_cmd." -".g:tar_browseoptions." - ")
|
|
|
|
|
exe "sil! r! bzip2 -d -c -- ".shellescape(tarfile,1)." | ".g:tar_cmd." -".g:tar_browseoptions." - "
|
|
|
|
|
elseif tarfile =~# '\.\(lzma\|tlz\)$'
|
|
|
|
|
" call Decho("3: exe silent r! lzma -d -c -- ".shellescape(tarfile,1)." | ".g:tar_cmd." -".g:tar_browseoptions." - ")
|
|
|
|
|
exe "sil! r! lzma -d -c -- ".shellescape(tarfile,1)." | ".g:tar_cmd." -".g:tar_browseoptions." - "
|
|
|
|
|
elseif tarfile =~# '\.\(xz\|txz\)$'
|
|
|
|
|
" call Decho("3: exe silent r! xz --decompress --stdout -- ".shellescape(tarfile,1)." | ".g:tar_cmd." -".g:tar_browseoptions." - ")
|
|
|
|
|
exe "sil! r! xz --decompress --stdout -- ".shellescape(tarfile,1)." | ".g:tar_cmd." -".g:tar_browseoptions." - "
|
2024-01-09 15:03:09 -07:00
|
|
|
elseif tarfile =~# '\.\(zst\|tzst\)$'
|
2021-02-17 21:59:17 -07:00
|
|
|
exe "sil! r! zstd --decompress --stdout -- ".shellescape(tarfile,1)." | ".g:tar_cmd." -".g:tar_browseoptions." - "
|
2014-07-10 21:05:51 -07:00
|
|
|
else
|
|
|
|
|
if tarfile =~ '^\s*-'
|
|
|
|
|
" A file name starting with a dash is taken as an option. Prepend ./ to avoid that.
|
|
|
|
|
let tarfile = substitute(tarfile, '-', './-', '')
|
|
|
|
|
endif
|
|
|
|
|
" call Decho("4: exe silent r! ".g:tar_cmd." -".g:tar_browseoptions." ".shellescape(tarfile,0))
|
|
|
|
|
exe "sil! r! ".g:tar_cmd." -".g:tar_browseoptions." ".shellescape(tarfile,1)
|
|
|
|
|
endif
|
|
|
|
|
if v:shell_error != 0
|
|
|
|
|
redraw!
|
|
|
|
|
echohl WarningMsg | echo "***warning*** (tar#Browse) please check your g:tar_browseoptions<".g:tar_browseoptions.">"
|
|
|
|
|
" call Dret("tar#Browse : a:tarfile<".a:tarfile.">")
|
|
|
|
|
return
|
|
|
|
|
endif
|
vim-patch:3d37231437fc
runtime(tar): improve the error detection
Do not rely on the fact, that the last line matches warning, error,
inappropriate or unrecognized to determine if an error occurred. It
could also be a file, contains such a keyword.
So make the error detection slightly more strict and only assume an
error occured, if in addition to those 4 keywords, also a space matches
(this assumes the error message contains a space), which luckily on Unix
not many files match by default.
The whole if condition seems however slightly dubious. In case an error
happened, this would probably already be caught in the previous if
statement, since this checks for the return code of the tar program.
There may however be tar implementations, that do not set the exit code
for some kind of error (but print an error message)? But let's keep this
check for now, not many people have noticed this behaviour until now, so
it seems to work reasonably well anyhow.
related: vim/vim#6425
fixes: vim/vim#13489
https://github.com/vim/vim/commit/3d37231437fc0f761664a7cabc8f7b927b468767
Co-authored-by: Christian Brabandt <cb@256bit.org>
2023-11-05 10:07:25 -07:00
|
|
|
"
|
2023-11-14 09:31:59 -07:00
|
|
|
" The following should not be neccessary, since in case of errors the
|
|
|
|
|
" previous if statement should have caught the problem (because tar exited
|
|
|
|
|
" with a non-zero exit code).
|
|
|
|
|
" if line("$") == curlast || ( line("$") == (curlast + 1) &&
|
|
|
|
|
" \ getline("$") =~# '\c\<\%(warning\|error\|inappropriate\|unrecognized\)\>' &&
|
|
|
|
|
" \ getline("$") =~ '\s' )
|
|
|
|
|
" redraw!
|
|
|
|
|
" echohl WarningMsg | echo "***warning*** (tar#Browse) ".a:tarfile." doesn't appear to be a tar file" | echohl None
|
|
|
|
|
" keepj sil! %d
|
|
|
|
|
" let eikeep= &ei
|
|
|
|
|
" set ei=BufReadCmd,FileReadCmd
|
|
|
|
|
" exe "r ".fnameescape(a:tarfile)
|
|
|
|
|
" let &ei= eikeep
|
|
|
|
|
" keepj sil! 1d
|
|
|
|
|
" call Dret("tar#Browse : a:tarfile<".a:tarfile.">")
|
|
|
|
|
" return
|
|
|
|
|
" endif
|
2014-07-10 21:05:51 -07:00
|
|
|
|
2021-02-17 21:38:14 -07:00
|
|
|
" set up maps supported for tar
|
2014-07-10 21:05:51 -07:00
|
|
|
setlocal noma nomod ro
|
2021-02-17 21:38:14 -07:00
|
|
|
noremap <silent> <buffer> <cr> :call <SID>TarBrowseSelect()<cr>
|
2024-01-09 15:03:09 -07:00
|
|
|
noremap <silent> <buffer> x :call tar#Extract()<cr>
|
2021-02-17 21:38:14 -07:00
|
|
|
if &mouse != ""
|
|
|
|
|
noremap <silent> <buffer> <leftmouse> <leftmouse>:call <SID>TarBrowseSelect()<cr>
|
|
|
|
|
endif
|
2014-07-10 21:05:51 -07:00
|
|
|
|
|
|
|
|
let &report= repkeep
|
|
|
|
|
" call Dret("tar#Browse : b:tarfile<".b:tarfile.">")
|
|
|
|
|
endfun
|
|
|
|
|
|
|
|
|
|
" ---------------------------------------------------------------------
|
|
|
|
|
" TarBrowseSelect: {{{2
|
|
|
|
|
fun! s:TarBrowseSelect()
|
|
|
|
|
" call Dfunc("TarBrowseSelect() b:tarfile<".b:tarfile."> curfile<".expand("%").">")
|
|
|
|
|
let repkeep= &report
|
|
|
|
|
set report=10
|
|
|
|
|
let fname= getline(".")
|
|
|
|
|
" call Decho("fname<".fname.">")
|
|
|
|
|
|
|
|
|
|
if !exists("g:tar_secure") && fname =~ '^\s*-\|\s\+-'
|
|
|
|
|
redraw!
|
|
|
|
|
echohl WarningMsg | echo '***warning*** (tar#BrowseSelect) rejecting tarfile member<'.fname.'> because of embedded "-"'
|
|
|
|
|
" call Dret('tar#BrowseSelect : rejecting tarfile member<'.fname.'> because of embedded "-"')
|
|
|
|
|
return
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
" sanity check
|
|
|
|
|
if fname =~ '^"'
|
|
|
|
|
let &report= repkeep
|
|
|
|
|
" call Dret("TarBrowseSelect")
|
|
|
|
|
return
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
" about to make a new window, need to use b:tarfile
|
|
|
|
|
let tarfile= b:tarfile
|
|
|
|
|
let curfile= expand("%")
|
|
|
|
|
if has("win32unix") && executable("cygpath")
|
|
|
|
|
" assuming cygwin
|
|
|
|
|
let tarfile=substitute(system("cygpath -u ".shellescape(tarfile,0)),'\n$','','e')
|
|
|
|
|
endif
|
|
|
|
|
|
2021-02-17 21:38:14 -07:00
|
|
|
" open a new window (tar#Read will read a file into it)
|
|
|
|
|
noswapfile new
|
2014-07-10 21:05:51 -07:00
|
|
|
if !exists("g:tar_nomax") || g:tar_nomax == 0
|
|
|
|
|
wincmd _
|
|
|
|
|
endif
|
|
|
|
|
let s:tblfile_{winnr()}= curfile
|
|
|
|
|
call tar#Read("tarfile:".tarfile.'::'.fname,1)
|
|
|
|
|
filetype detect
|
|
|
|
|
set nomod
|
|
|
|
|
exe 'com! -buffer -nargs=? -complete=file TarDiff :call tar#Diff(<q-args>,"'.fnameescape(fname).'")'
|
|
|
|
|
|
|
|
|
|
let &report= repkeep
|
|
|
|
|
" call Dret("TarBrowseSelect : s:tblfile_".winnr()."<".s:tblfile_{winnr()}.">")
|
|
|
|
|
endfun
|
|
|
|
|
|
|
|
|
|
" ---------------------------------------------------------------------
|
|
|
|
|
" tar#Read: {{{2
|
|
|
|
|
fun! tar#Read(fname,mode)
|
|
|
|
|
" call Dfunc("tar#Read(fname<".a:fname.">,mode=".a:mode.")")
|
|
|
|
|
let repkeep= &report
|
|
|
|
|
set report=10
|
|
|
|
|
let tarfile = substitute(a:fname,'tarfile:\(.\{-}\)::.*$','\1','')
|
|
|
|
|
let fname = substitute(a:fname,'tarfile:.\{-}::\(.*\)$','\1','')
|
2024-11-11 16:00:15 -07:00
|
|
|
|
|
|
|
|
" changing the directory to the temporary earlier to allow tar to extract the file with permissions intact
|
|
|
|
|
if !exists("*mkdir")
|
|
|
|
|
redraw!
|
|
|
|
|
echohl Error | echo "***error*** (tar#Write) sorry, mkdir() doesn't work on your system" | echohl None
|
|
|
|
|
let &report= repkeep
|
|
|
|
|
return
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
let curdir= getcwd()
|
|
|
|
|
let tmpdir= tempname()
|
|
|
|
|
let b:curdir= tmpdir
|
|
|
|
|
let b:tmpdir= curdir
|
|
|
|
|
if tmpdir =~ '\.'
|
|
|
|
|
let tmpdir= substitute(tmpdir,'\.[^.]*$','','e')
|
|
|
|
|
endif
|
|
|
|
|
call mkdir(tmpdir,"p")
|
|
|
|
|
|
|
|
|
|
" attempt to change to the indicated directory
|
|
|
|
|
try
|
|
|
|
|
exe "cd ".fnameescape(tmpdir)
|
|
|
|
|
catch /^Vim\%((\a\+)\)\=:E344/
|
|
|
|
|
redraw!
|
|
|
|
|
echohl Error | echo "***error*** (tar#Write) cannot cd to temporary directory" | Echohl None
|
|
|
|
|
let &report= repkeep
|
|
|
|
|
return
|
|
|
|
|
endtry
|
|
|
|
|
|
|
|
|
|
" place temporary files under .../_ZIPVIM_/
|
|
|
|
|
if isdirectory("_ZIPVIM_")
|
|
|
|
|
call s:Rmdir("_ZIPVIM_")
|
|
|
|
|
endif
|
|
|
|
|
call mkdir("_ZIPVIM_")
|
|
|
|
|
cd _ZIPVIM_
|
|
|
|
|
|
2014-07-10 21:05:51 -07:00
|
|
|
if has("win32unix") && executable("cygpath")
|
|
|
|
|
" assuming cygwin
|
|
|
|
|
let tarfile=substitute(system("cygpath -u ".shellescape(tarfile,0)),'\n$','','e')
|
|
|
|
|
endif
|
|
|
|
|
" call Decho("tarfile<".tarfile.">")
|
|
|
|
|
" call Decho("fname<".fname.">")
|
|
|
|
|
|
|
|
|
|
if fname =~ '\.bz2$' && executable("bzcat")
|
|
|
|
|
let decmp= "|bzcat"
|
|
|
|
|
let doro = 1
|
2021-02-17 21:38:14 -07:00
|
|
|
elseif fname =~ '\.t\=gz$' && executable("zcat")
|
2014-07-10 21:05:51 -07:00
|
|
|
let decmp= "|zcat"
|
|
|
|
|
let doro = 1
|
|
|
|
|
elseif fname =~ '\.lzma$' && executable("lzcat")
|
|
|
|
|
let decmp= "|lzcat"
|
|
|
|
|
let doro = 1
|
|
|
|
|
elseif fname =~ '\.xz$' && executable("xzcat")
|
|
|
|
|
let decmp= "|xzcat"
|
|
|
|
|
let doro = 1
|
2021-02-17 21:59:17 -07:00
|
|
|
elseif fname =~ '\.zst$' && executable("zstdcat")
|
|
|
|
|
let decmp= "|zstdcat"
|
|
|
|
|
let doro = 1
|
2014-07-10 21:05:51 -07:00
|
|
|
else
|
|
|
|
|
let decmp=""
|
|
|
|
|
let doro = 0
|
|
|
|
|
if fname =~ '\.bz2$\|\.gz$\|\.lzma$\|\.xz$\|\.zip$\|\.Z$'
|
|
|
|
|
setlocal bin
|
|
|
|
|
endif
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
if exists("g:tar_secure")
|
|
|
|
|
let tar_secure= " -- "
|
|
|
|
|
else
|
|
|
|
|
let tar_secure= " "
|
|
|
|
|
endif
|
2018-10-29 15:54:34 -07:00
|
|
|
|
2014-07-10 21:05:51 -07:00
|
|
|
if tarfile =~# '\.bz2$'
|
|
|
|
|
exe "sil! r! bzip2 -d -c -- ".shellescape(tarfile,1)."| ".g:tar_cmd." -".g:tar_readoptions." - ".tar_secure.shellescape(fname,1).decmp
|
2024-11-11 16:00:15 -07:00
|
|
|
exe "read ".fname
|
2021-02-17 21:38:14 -07:00
|
|
|
elseif tarfile =~# '\.\(gz\)$'
|
|
|
|
|
exe "sil! r! gzip -d -c -- ".shellescape(tarfile,1)."| ".g:tar_cmd." -".g:tar_readoptions." - ".tar_secure.shellescape(fname,1).decmp
|
2024-11-11 16:00:15 -07:00
|
|
|
exe "read ".fname
|
2021-02-17 21:38:14 -07:00
|
|
|
elseif tarfile =~# '\(\.tgz\|\.tbz\|\.txz\)'
|
|
|
|
|
if has("unix") && executable("file")
|
|
|
|
|
let filekind= system("file ".shellescape(tarfile,1))
|
|
|
|
|
else
|
|
|
|
|
let filekind= ""
|
|
|
|
|
endif
|
|
|
|
|
if filekind =~ "bzip2"
|
|
|
|
|
exe "sil! r! bzip2 -d -c -- ".shellescape(tarfile,1)."| ".g:tar_cmd." -".g:tar_readoptions." - ".tar_secure.shellescape(fname,1).decmp
|
2024-11-11 16:00:15 -07:00
|
|
|
exe "read ".fname
|
2021-02-17 21:38:14 -07:00
|
|
|
elseif filekind =~ "XZ"
|
|
|
|
|
exe "sil! r! xz -d -c -- ".shellescape(tarfile,1)."| ".g:tar_cmd." -".g:tar_readoptions." - ".tar_secure.shellescape(fname,1).decmp
|
2024-11-11 16:00:15 -07:00
|
|
|
exe "read ".fname
|
2021-02-17 21:59:17 -07:00
|
|
|
elseif filekind =~ "Zstandard"
|
|
|
|
|
exe "sil! r! zstd --decompress --stdout -- ".shellescape(tarfile,1)."| ".g:tar_cmd." -".g:tar_readoptions." - ".tar_secure.shellescape(fname,1).decmp
|
2024-11-11 16:00:15 -07:00
|
|
|
exe "read ".fname
|
2021-02-17 21:38:14 -07:00
|
|
|
else
|
|
|
|
|
exe "sil! r! gzip -d -c -- ".shellescape(tarfile,1)."| ".g:tar_cmd." -".g:tar_readoptions." - ".tar_secure.shellescape(fname,1).decmp
|
2024-11-11 16:00:15 -07:00
|
|
|
exe "read ".fname
|
2021-02-17 21:38:14 -07:00
|
|
|
endif
|
|
|
|
|
|
2014-07-10 21:05:51 -07:00
|
|
|
elseif tarfile =~# '\.lrp$'
|
2018-11-13 20:32:37 -07:00
|
|
|
exe "sil! r! cat -- ".shellescape(tarfile,1)." | gzip -d -c - | ".g:tar_cmd." -".g:tar_readoptions." - ".tar_secure.shellescape(fname,1).decmp
|
2024-11-11 16:00:15 -07:00
|
|
|
exe "read ".fname
|
2014-07-10 21:05:51 -07:00
|
|
|
elseif tarfile =~# '\.lzma$'
|
|
|
|
|
exe "sil! r! lzma -d -c -- ".shellescape(tarfile,1)."| ".g:tar_cmd." -".g:tar_readoptions." - ".tar_secure.shellescape(fname,1).decmp
|
2024-11-11 16:00:15 -07:00
|
|
|
exe "read ".fname
|
2014-07-10 21:05:51 -07:00
|
|
|
elseif tarfile =~# '\.\(xz\|txz\)$'
|
|
|
|
|
exe "sil! r! xz --decompress --stdout -- ".shellescape(tarfile,1)." | ".g:tar_cmd." -".g:tar_readoptions." - ".tar_secure.shellescape(fname,1).decmp
|
2024-11-11 16:00:15 -07:00
|
|
|
exe "read ".fname
|
2014-07-10 21:05:51 -07:00
|
|
|
else
|
|
|
|
|
if tarfile =~ '^\s*-'
|
|
|
|
|
" A file name starting with a dash is taken as an option. Prepend ./ to avoid that.
|
|
|
|
|
let tarfile = substitute(tarfile, '-', './-', '')
|
|
|
|
|
endif
|
|
|
|
|
" call Decho("8: exe silent r! ".g:tar_cmd." -".g:tar_readoptions.tar_secure.shellescape(tarfile,1)." ".shellescape(fname,1).decmp)
|
|
|
|
|
exe "silent r! ".g:tar_cmd." -".g:tar_readoptions.shellescape(tarfile,1)." ".tar_secure.shellescape(fname,1).decmp
|
2024-11-11 16:00:15 -07:00
|
|
|
exe "read ".fname
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
redraw!
|
|
|
|
|
|
|
|
|
|
if v:shell_error != 0
|
|
|
|
|
cd ..
|
|
|
|
|
call s:Rmdir("_ZIPVIM_")
|
|
|
|
|
exe "cd ".fnameescape(curdir)
|
|
|
|
|
echohl Error | echo "***error*** (tar#Read) sorry, unable to open or extract ".tarfile." with ".fname | echohl None
|
2014-07-10 21:05:51 -07:00
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
if doro
|
|
|
|
|
" because the reverse process of compressing changed files back into the tarball is not currently supported
|
|
|
|
|
setlocal ro
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
let b:tarfile= a:fname
|
|
|
|
|
exe "file tarfile::".fnameescape(fname)
|
|
|
|
|
|
|
|
|
|
" cleanup
|
|
|
|
|
keepj sil! 0d
|
|
|
|
|
set nomod
|
|
|
|
|
|
|
|
|
|
let &report= repkeep
|
|
|
|
|
" call Dret("tar#Read : b:tarfile<".b:tarfile.">")
|
|
|
|
|
endfun
|
|
|
|
|
|
|
|
|
|
" ---------------------------------------------------------------------
|
|
|
|
|
" tar#Write: {{{2
|
|
|
|
|
fun! tar#Write(fname)
|
|
|
|
|
" call Dfunc("tar#Write(fname<".a:fname.">) b:tarfile<".b:tarfile."> tblfile_".winnr()."<".s:tblfile_{winnr()}.">")
|
|
|
|
|
let repkeep= &report
|
|
|
|
|
set report=10
|
2024-11-11 16:00:15 -07:00
|
|
|
|
|
|
|
|
" temporary buffer variable workaround because too fucking tired. but it works now
|
|
|
|
|
let curdir= b:curdir
|
|
|
|
|
let tmpdir= b:tmpdir
|
2014-07-10 21:05:51 -07:00
|
|
|
|
|
|
|
|
if !exists("g:tar_secure") && a:fname =~ '^\s*-\|\s\+-'
|
|
|
|
|
redraw!
|
|
|
|
|
echohl WarningMsg | echo '***warning*** (tar#Write) rejecting tarfile member<'.a:fname.'> because of embedded "-"'
|
|
|
|
|
" call Dret('tar#Write : rejecting tarfile member<'.fname.'> because of embedded "-"')
|
|
|
|
|
return
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
" sanity checks
|
|
|
|
|
if !executable(g:tar_cmd)
|
|
|
|
|
redraw!
|
2021-02-17 21:38:14 -07:00
|
|
|
" call Decho('***error*** (tar#Browse) "'.g:tar_cmd.'" not available on your system')
|
2014-07-10 21:05:51 -07:00
|
|
|
let &report= repkeep
|
|
|
|
|
" call Dret("tar#Write")
|
|
|
|
|
return
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
let tarfile = substitute(b:tarfile,'tarfile:\(.\{-}\)::.*$','\1','')
|
|
|
|
|
let fname = substitute(b:tarfile,'tarfile:.\{-}::\(.*\)$','\1','')
|
|
|
|
|
|
|
|
|
|
" handle compressed archives
|
|
|
|
|
if tarfile =~# '\.bz2'
|
|
|
|
|
call system("bzip2 -d -- ".shellescape(tarfile,0))
|
|
|
|
|
let tarfile = substitute(tarfile,'\.bz2','','e')
|
|
|
|
|
let compress= "bzip2 -- ".shellescape(tarfile,0)
|
|
|
|
|
" call Decho("compress<".compress.">")
|
|
|
|
|
elseif tarfile =~# '\.gz'
|
2021-02-17 21:38:14 -07:00
|
|
|
call system("gzip -d -- ".shellescape(tarfile,0))
|
2014-07-10 21:05:51 -07:00
|
|
|
let tarfile = substitute(tarfile,'\.gz','','e')
|
|
|
|
|
let compress= "gzip -- ".shellescape(tarfile,0)
|
|
|
|
|
" call Decho("compress<".compress.">")
|
|
|
|
|
elseif tarfile =~# '\.tgz'
|
2021-02-17 21:38:14 -07:00
|
|
|
call system("gzip -d -- ".shellescape(tarfile,0))
|
2014-07-10 21:05:51 -07:00
|
|
|
let tarfile = substitute(tarfile,'\.tgz','.tar','e')
|
|
|
|
|
let compress= "gzip -- ".shellescape(tarfile,0)
|
|
|
|
|
let tgz = 1
|
|
|
|
|
" call Decho("compress<".compress.">")
|
|
|
|
|
elseif tarfile =~# '\.xz'
|
|
|
|
|
call system("xz -d -- ".shellescape(tarfile,0))
|
|
|
|
|
let tarfile = substitute(tarfile,'\.xz','','e')
|
|
|
|
|
let compress= "xz -- ".shellescape(tarfile,0)
|
|
|
|
|
" call Decho("compress<".compress.">")
|
2021-02-17 21:59:17 -07:00
|
|
|
elseif tarfile =~# '\.zst'
|
2024-01-09 15:03:09 -07:00
|
|
|
call system("zstd --decompress --rm -- ".shellescape(tarfile,0))
|
2021-02-17 21:59:17 -07:00
|
|
|
let tarfile = substitute(tarfile,'\.zst','','e')
|
2024-01-09 15:03:09 -07:00
|
|
|
let compress= "zstd --rm -- ".shellescape(tarfile,0)
|
2014-07-10 21:05:51 -07:00
|
|
|
elseif tarfile =~# '\.lzma'
|
|
|
|
|
call system("lzma -d -- ".shellescape(tarfile,0))
|
|
|
|
|
let tarfile = substitute(tarfile,'\.lzma','','e')
|
|
|
|
|
let compress= "lzma -- ".shellescape(tarfile,0)
|
|
|
|
|
" call Decho("compress<".compress.">")
|
|
|
|
|
endif
|
|
|
|
|
" call Decho("tarfile<".tarfile.">")
|
|
|
|
|
|
|
|
|
|
if v:shell_error != 0
|
|
|
|
|
redraw!
|
2021-02-17 21:38:14 -07:00
|
|
|
" call Decho("***error*** (tar#Write) sorry, unable to update ".tarfile." with ".fname)
|
2014-07-10 21:05:51 -07:00
|
|
|
echohl Error | echo "***error*** (tar#Write) sorry, unable to update ".tarfile." with ".fname | echohl None
|
|
|
|
|
else
|
|
|
|
|
|
|
|
|
|
" call Decho("tarfile<".tarfile."> fname<".fname.">")
|
2024-01-09 15:03:09 -07:00
|
|
|
|
2014-07-10 21:05:51 -07:00
|
|
|
if fname =~ '/'
|
|
|
|
|
let dirpath = substitute(fname,'/[^/]\+$','','e')
|
|
|
|
|
if has("win32unix") && executable("cygpath")
|
|
|
|
|
let dirpath = substitute(system("cygpath ".shellescape(dirpath, 0)),'\n','','e')
|
|
|
|
|
endif
|
|
|
|
|
call mkdir(dirpath,"p")
|
|
|
|
|
endif
|
|
|
|
|
if tarfile !~ '/'
|
|
|
|
|
let tarfile= curdir.'/'.tarfile
|
|
|
|
|
endif
|
|
|
|
|
if tarfile =~ '^\s*-'
|
|
|
|
|
" A file name starting with a dash may be taken as an option. Prepend ./ to avoid that.
|
|
|
|
|
let tarfile = substitute(tarfile, '-', './-', '')
|
|
|
|
|
endif
|
|
|
|
|
" call Decho("tarfile<".tarfile."> fname<".fname.">")
|
2024-01-09 15:03:09 -07:00
|
|
|
|
2014-07-10 21:05:51 -07:00
|
|
|
if exists("g:tar_secure")
|
|
|
|
|
let tar_secure= " -- "
|
|
|
|
|
else
|
|
|
|
|
let tar_secure= " "
|
|
|
|
|
endif
|
|
|
|
|
exe "w! ".fnameescape(fname)
|
|
|
|
|
if has("win32unix") && executable("cygpath")
|
|
|
|
|
let tarfile = substitute(system("cygpath ".shellescape(tarfile,0)),'\n','','e')
|
|
|
|
|
endif
|
2024-01-09 15:03:09 -07:00
|
|
|
|
2014-07-10 21:05:51 -07:00
|
|
|
" delete old file from tarfile
|
2021-02-17 21:38:14 -07:00
|
|
|
" call Decho("system(".g:tar_cmd." ".g:tar_delfile." ".shellescape(tarfile,0)." -- ".shellescape(fname,0).")")
|
|
|
|
|
call system(g:tar_cmd." ".g:tar_delfile." ".shellescape(tarfile,0).tar_secure.shellescape(fname,0))
|
2014-07-10 21:05:51 -07:00
|
|
|
if v:shell_error != 0
|
|
|
|
|
redraw!
|
2021-02-17 21:38:14 -07:00
|
|
|
" call Decho("***error*** (tar#Write) sorry, unable to update ".fnameescape(tarfile)." with ".fnameescape(fname))
|
2014-07-10 21:05:51 -07:00
|
|
|
echohl Error | echo "***error*** (tar#Write) sorry, unable to update ".fnameescape(tarfile)." with ".fnameescape(fname) | echohl None
|
|
|
|
|
else
|
2024-01-09 15:03:09 -07:00
|
|
|
|
|
|
|
|
" update tarfile with new file
|
2014-07-10 21:05:51 -07:00
|
|
|
" call Decho(g:tar_cmd." -".g:tar_writeoptions." ".shellescape(tarfile,0).tar_secure.shellescape(fname,0))
|
|
|
|
|
call system(g:tar_cmd." -".g:tar_writeoptions." ".shellescape(tarfile,0).tar_secure.shellescape(fname,0))
|
|
|
|
|
if v:shell_error != 0
|
|
|
|
|
redraw!
|
2021-02-17 21:38:14 -07:00
|
|
|
" call Decho("***error*** (tar#Write) sorry, unable to update ".fnameescape(tarfile)." with ".fnameescape(fname))
|
2014-07-10 21:05:51 -07:00
|
|
|
echohl Error | echo "***error*** (tar#Write) sorry, unable to update ".fnameescape(tarfile)." with ".fnameescape(fname) | echohl None
|
|
|
|
|
elseif exists("compress")
|
|
|
|
|
" call Decho("call system(".compress.")")
|
|
|
|
|
call system(compress)
|
|
|
|
|
if exists("tgz")
|
|
|
|
|
" call Decho("rename(".tarfile.".gz,".substitute(tarfile,'\.tar$','.tgz','e').")")
|
|
|
|
|
call rename(tarfile.".gz",substitute(tarfile,'\.tar$','.tgz','e'))
|
|
|
|
|
endif
|
|
|
|
|
endif
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
" support writing tarfiles across a network
|
|
|
|
|
if s:tblfile_{winnr()} =~ '^\a\+://'
|
|
|
|
|
" call Decho("handle writing <".tarfile."> across network to <".s:tblfile_{winnr()}.">")
|
|
|
|
|
let tblfile= s:tblfile_{winnr()}
|
2021-02-17 21:38:14 -07:00
|
|
|
1split|noswapfile enew
|
2014-07-10 21:05:51 -07:00
|
|
|
let binkeep= &l:binary
|
|
|
|
|
let eikeep = &ei
|
|
|
|
|
set binary ei=all
|
2021-02-17 21:38:14 -07:00
|
|
|
exe "noswapfile e! ".fnameescape(tarfile)
|
2014-07-10 21:05:51 -07:00
|
|
|
call netrw#NetWrite(tblfile)
|
|
|
|
|
let &ei = eikeep
|
|
|
|
|
let &l:binary = binkeep
|
|
|
|
|
q!
|
|
|
|
|
unlet s:tblfile_{winnr()}
|
|
|
|
|
endif
|
|
|
|
|
endif
|
2024-01-09 15:03:09 -07:00
|
|
|
|
2014-07-10 21:05:51 -07:00
|
|
|
" cleanup and restore current directory
|
|
|
|
|
cd ..
|
|
|
|
|
call s:Rmdir("_ZIPVIM_")
|
|
|
|
|
exe "cd ".fnameescape(curdir)
|
|
|
|
|
setlocal nomod
|
|
|
|
|
|
|
|
|
|
let &report= repkeep
|
|
|
|
|
" call Dret("tar#Write")
|
|
|
|
|
endfun
|
|
|
|
|
|
|
|
|
|
" ---------------------------------------------------------------------
|
|
|
|
|
" tar#Diff: {{{2
|
|
|
|
|
fun! tar#Diff(userfname,fname)
|
|
|
|
|
" call Dfunc("tar#Diff(userfname<".a:userfname."> fname<".a:fname.")")
|
|
|
|
|
let fname= a:fname
|
|
|
|
|
if a:userfname != ""
|
|
|
|
|
let fname= a:userfname
|
|
|
|
|
endif
|
|
|
|
|
if filereadable(fname)
|
|
|
|
|
" sets current file (from tarball) for diff'ing
|
|
|
|
|
" splits window vertically
|
|
|
|
|
" opens original file, sets it for diff'ing
|
|
|
|
|
" sets up b:tardiff_otherbuf variables so each buffer knows about the other (for closing purposes)
|
|
|
|
|
diffthis
|
|
|
|
|
wincmd v
|
2021-02-17 21:38:14 -07:00
|
|
|
exe "noswapfile e ".fnameescape(fname)
|
2014-07-10 21:05:51 -07:00
|
|
|
diffthis
|
|
|
|
|
else
|
|
|
|
|
redraw!
|
|
|
|
|
echo "***warning*** unable to read file<".fname.">"
|
|
|
|
|
endif
|
|
|
|
|
" call Dret("tar#Diff")
|
|
|
|
|
endfun
|
|
|
|
|
|
2021-02-17 21:38:14 -07:00
|
|
|
" ---------------------------------------------------------------------
|
|
|
|
|
" tar#Extract: extract a file from a (possibly compressed) tar archive {{{2
|
|
|
|
|
fun! tar#Extract()
|
|
|
|
|
" call Dfunc("tar#Extract()")
|
|
|
|
|
|
|
|
|
|
let repkeep= &report
|
|
|
|
|
set report=10
|
|
|
|
|
let fname= getline(".")
|
|
|
|
|
" call Decho("fname<".fname.">")
|
|
|
|
|
|
|
|
|
|
if !exists("g:tar_secure") && fname =~ '^\s*-\|\s\+-'
|
|
|
|
|
redraw!
|
|
|
|
|
echohl WarningMsg | echo '***warning*** (tar#BrowseSelect) rejecting tarfile member<'.fname.'> because of embedded "-"'
|
|
|
|
|
" call Dret('tar#BrowseSelect : rejecting tarfile member<'.fname.'> because of embedded "-"')
|
|
|
|
|
return
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
" sanity check
|
|
|
|
|
if fname =~ '^"'
|
|
|
|
|
let &report= repkeep
|
|
|
|
|
" call Dret("TarBrowseSelect")
|
|
|
|
|
return
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
let tarball = expand("%")
|
|
|
|
|
" call Decho("tarball<".tarball.">")
|
|
|
|
|
let tarbase = substitute(tarball,'\..*$','','')
|
|
|
|
|
" call Decho("tarbase<".tarbase.">")
|
|
|
|
|
|
|
|
|
|
let extractcmd= netrw#WinPath(g:tar_extractcmd)
|
|
|
|
|
if filereadable(tarbase.".tar")
|
|
|
|
|
" call Decho("system(".extractcmd." ".shellescape(tarbase).".tar ".shellescape(fname).")")
|
|
|
|
|
call system(extractcmd." ".shellescape(tarbase).".tar ".shellescape(fname))
|
|
|
|
|
if v:shell_error != 0
|
|
|
|
|
echohl Error | echo "***error*** ".extractcmd." ".tarbase.".tar ".fname.": failed!" | echohl NONE
|
|
|
|
|
" call Decho("***error*** ".extractcmd." ".tarbase.".tar ".fname.": failed!")
|
|
|
|
|
else
|
|
|
|
|
echo "***note*** successfully extracted ".fname
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
elseif filereadable(tarbase.".tgz")
|
|
|
|
|
let extractcmd= substitute(extractcmd,"-","-z","")
|
|
|
|
|
" call Decho("system(".extractcmd." ".shellescape(tarbase).".tgz ".shellescape(fname).")")
|
|
|
|
|
call system(extractcmd." ".shellescape(tarbase).".tgz ".shellescape(fname))
|
|
|
|
|
if v:shell_error != 0
|
|
|
|
|
echohl Error | echo "***error*** ".extractcmd." ".tarbase.".tgz ".fname.": failed!" | echohl NONE
|
|
|
|
|
" call Decho("***error*** ".extractcmd."t ".tarbase.".tgz ".fname.": failed!")
|
|
|
|
|
else
|
|
|
|
|
echo "***note*** successfully extracted ".fname
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
elseif filereadable(tarbase.".tar.gz")
|
|
|
|
|
let extractcmd= substitute(extractcmd,"-","-z","")
|
|
|
|
|
" call Decho("system(".extractcmd." ".shellescape(tarbase).".tar.gz ".shellescape(fname).")")
|
|
|
|
|
call system(extractcmd." ".shellescape(tarbase).".tar.gz ".shellescape(fname))
|
|
|
|
|
if v:shell_error != 0
|
|
|
|
|
echohl Error | echo "***error*** ".extractcmd." ".tarbase.".tar.gz ".fname.": failed!" | echohl NONE
|
|
|
|
|
" call Decho("***error*** ".extractcmd." ".tarbase.".tar.gz ".fname.": failed!")
|
|
|
|
|
else
|
|
|
|
|
echo "***note*** successfully extracted ".fname
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
elseif filereadable(tarbase.".tbz")
|
|
|
|
|
let extractcmd= substitute(extractcmd,"-","-j","")
|
|
|
|
|
" call Decho("system(".extractcmd." ".shellescape(tarbase).".tbz ".shellescape(fname).")")
|
|
|
|
|
call system(extractcmd." ".shellescape(tarbase).".tbz ".shellescape(fname))
|
|
|
|
|
if v:shell_error != 0
|
|
|
|
|
echohl Error | echo "***error*** ".extractcmd."j ".tarbase.".tbz ".fname.": failed!" | echohl NONE
|
|
|
|
|
" call Decho("***error*** ".extractcmd."j ".tarbase.".tbz ".fname.": failed!")
|
|
|
|
|
else
|
|
|
|
|
echo "***note*** successfully extracted ".fname
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
elseif filereadable(tarbase.".tar.bz2")
|
|
|
|
|
let extractcmd= substitute(extractcmd,"-","-j","")
|
|
|
|
|
" call Decho("system(".extractcmd." ".shellescape(tarbase).".tar.bz2 ".shellescape(fname).")")
|
|
|
|
|
call system(extractcmd." ".shellescape(tarbase).".tar.bz2 ".shellescape(fname))
|
|
|
|
|
if v:shell_error != 0
|
|
|
|
|
echohl Error | echo "***error*** ".extractcmd."j ".tarbase.".tar.bz2 ".fname.": failed!" | echohl NONE
|
|
|
|
|
" call Decho("***error*** ".extractcmd."j ".tarbase.".tar.bz2 ".fname.": failed!")
|
|
|
|
|
else
|
|
|
|
|
echo "***note*** successfully extracted ".fname
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
elseif filereadable(tarbase.".txz")
|
|
|
|
|
let extractcmd= substitute(extractcmd,"-","-J","")
|
|
|
|
|
" call Decho("system(".extractcmd." ".shellescape(tarbase).".txz ".shellescape(fname).")")
|
|
|
|
|
call system(extractcmd." ".shellescape(tarbase).".txz ".shellescape(fname))
|
|
|
|
|
if v:shell_error != 0
|
|
|
|
|
echohl Error | echo "***error*** ".extractcmd." ".tarbase.".txz ".fname.": failed!" | echohl NONE
|
|
|
|
|
" call Decho("***error*** ".extractcmd." ".tarbase.".txz ".fname.": failed!")
|
|
|
|
|
else
|
|
|
|
|
echo "***note*** successfully extracted ".fname
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
elseif filereadable(tarbase.".tar.xz")
|
|
|
|
|
let extractcmd= substitute(extractcmd,"-","-J","")
|
|
|
|
|
" call Decho("system(".extractcmd." ".shellescape(tarbase).".tar.xz ".shellescape(fname).")")
|
|
|
|
|
call system(extractcmd." ".shellescape(tarbase).".tar.xz ".shellescape(fname))
|
|
|
|
|
if v:shell_error != 0
|
|
|
|
|
echohl Error | echo "***error*** ".extractcmd." ".tarbase.".tar.xz ".fname.": failed!" | echohl NONE
|
|
|
|
|
" call Decho("***error*** ".extractcmd." ".tarbase.".tar.xz ".fname.": failed!")
|
|
|
|
|
else
|
|
|
|
|
echo "***note*** successfully extracted ".fname
|
|
|
|
|
endif
|
2021-02-17 21:59:17 -07:00
|
|
|
|
2024-01-09 15:03:09 -07:00
|
|
|
elseif filereadable(tarbase.".tzst")
|
2021-02-17 21:59:17 -07:00
|
|
|
let extractcmd= substitute(extractcmd,"-","--zstd","")
|
2024-01-09 15:03:09 -07:00
|
|
|
" call Decho("system(".extractcmd." ".shellescape(tarbase).".tzst ".shellescape(fname).")")
|
|
|
|
|
call system(extractcmd." ".shellescape(tarbase).".tzst ".shellescape(fname))
|
2021-02-17 21:59:17 -07:00
|
|
|
if v:shell_error != 0
|
2024-01-09 15:03:09 -07:00
|
|
|
echohl Error | echo "***error*** ".extractcmd." ".tarbase.".tzst ".fname.": failed!" | echohl NONE
|
|
|
|
|
" call Decho("***error*** ".extractcmd." ".tarbase.".tzst ".fname.": failed!")
|
2021-02-17 21:59:17 -07:00
|
|
|
else
|
|
|
|
|
echo "***note*** successfully extracted ".fname
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
elseif filereadable(tarbase.".tar.zst")
|
|
|
|
|
let extractcmd= substitute(extractcmd,"-","--zstd","")
|
|
|
|
|
" call Decho("system(".extractcmd." ".shellescape(tarbase).".tar.zst ".shellescape(fname).")")
|
2024-01-09 15:03:09 -07:00
|
|
|
call system(extractcmd." ".shellescape(tarbase).".tar.zst ".shellescape(fname))
|
2021-02-17 21:59:17 -07:00
|
|
|
if v:shell_error != 0
|
|
|
|
|
echohl Error | echo "***error*** ".extractcmd." ".tarbase.".tar.zst ".fname.": failed!" | echohl NONE
|
|
|
|
|
" call Decho("***error*** ".extractcmd." ".tarbase.".tar.zst ".fname.": failed!")
|
|
|
|
|
else
|
|
|
|
|
echo "***note*** successfully extracted ".fname
|
|
|
|
|
endif
|
2021-02-17 21:38:14 -07:00
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
" restore option
|
|
|
|
|
let &report= repkeep
|
|
|
|
|
|
|
|
|
|
" call Dret("tar#Extract")
|
|
|
|
|
endfun
|
|
|
|
|
|
2014-07-10 21:05:51 -07:00
|
|
|
" ---------------------------------------------------------------------
|
|
|
|
|
" s:Rmdir: {{{2
|
|
|
|
|
fun! s:Rmdir(fname)
|
|
|
|
|
" call Dfunc("Rmdir(fname<".a:fname.">)")
|
|
|
|
|
if has("unix")
|
|
|
|
|
call system("/bin/rm -rf -- ".shellescape(a:fname,0))
|
|
|
|
|
elseif has("win32") || has("win95") || has("win64") || has("win16")
|
|
|
|
|
if &shell =~? "sh$"
|
|
|
|
|
call system("/bin/rm -rf -- ".shellescape(a:fname,0))
|
|
|
|
|
else
|
|
|
|
|
call system("del /S ".shellescape(a:fname,0))
|
|
|
|
|
endif
|
|
|
|
|
endif
|
|
|
|
|
" call Dret("Rmdir")
|
|
|
|
|
endfun
|
|
|
|
|
|
|
|
|
|
" =====================================================================
|
|
|
|
|
" Modelines And Restoration: {{{1
|
|
|
|
|
let &cpo= s:keepcpo
|
|
|
|
|
unlet s:keepcpo
|
|
|
|
|
" vim:ts=8 fdm=marker
|