mirror of
https://github.com/vim/vim
synced 2025-04-30 05:17:45 +02:00
130 lines
3.1 KiB
VimL
130 lines
3.1 KiB
VimL
" vim:set ts=8 sts=4 sw=4:
|
|
"
|
|
" tar.vim -- a Vim plugin for browsing tarfiles
|
|
" Copyright (c) 2002, Michael C. Toren <mct@toren.net>
|
|
" Distributed under the GNU General Public License.
|
|
"
|
|
" Version: 1.01
|
|
" Last Change: 2005 Jul 26
|
|
"
|
|
" Updates are available from <http://michael.toren.net/code/>. If you
|
|
" find this script useful, or have suggestions for improvements, please
|
|
" let me know.
|
|
" Also look there for further comments and documentation.
|
|
"
|
|
" This part defines the functions. The autocommands are in plugin/tar.vim.
|
|
|
|
let s:version = "1.01"
|
|
|
|
function! tar#Write(argument)
|
|
echo "ERROR: Sorry, no write support for tarfiles yet"
|
|
endfunction
|
|
|
|
function! tar#Read(argument, cleanup)
|
|
let l:argument = a:argument
|
|
let l:argument = substitute(l:argument, '^tarfile:', '', '')
|
|
let l:argument = substitute(l:argument, '^\~', $HOME, '')
|
|
|
|
let l:tarfile = l:argument
|
|
while 1
|
|
if (l:tarfile == "" || l:tarfile == "/")
|
|
echo "ERROR: Could not find a readable tarfile in path:" l:argument
|
|
return
|
|
endif
|
|
|
|
if filereadable(l:tarfile) " found it!
|
|
break
|
|
endif
|
|
|
|
let l:tarfile = fnamemodify(l:tarfile, ":h")
|
|
endwhile
|
|
|
|
let l:toextract = strpart(l:argument, strlen(l:tarfile) + 1)
|
|
|
|
if (l:toextract == "")
|
|
return
|
|
endif
|
|
|
|
let l:cat = s:TarCatCommand(l:tarfile)
|
|
execute "r !" . l:cat . " < '" . l:tarfile . "'"
|
|
\ " | tar OPxf - '" . l:toextract . "'"
|
|
|
|
if (a:cleanup)
|
|
0d "blank line
|
|
execute "doautocmd BufReadPost " . expand("%")
|
|
setlocal readonly
|
|
silent preserve
|
|
endif
|
|
endfunction
|
|
|
|
function! tar#Browse(tarfile)
|
|
setlocal noswapfile
|
|
setlocal buftype=nofile
|
|
setlocal bufhidden=hide
|
|
setlocal filetype=
|
|
setlocal nobuflisted
|
|
setlocal buftype=nofile
|
|
setlocal wrap
|
|
setlocal syntax=tar
|
|
|
|
let l:tarfile = a:tarfile
|
|
let b:tarfile = l:tarfile
|
|
let l:cat = s:TarCatCommand(l:tarfile)
|
|
|
|
if ! filereadable(l:tarfile)
|
|
let l:tarfile = substitute(l:tarfile, '^tarfile:', '', '')
|
|
endif
|
|
|
|
if ! filereadable(l:tarfile)
|
|
echo "ERROR: File not readable:" l:tarfile
|
|
return
|
|
endif
|
|
|
|
call s:Say("\" tar.vim version " . s:version)
|
|
call s:Say("\" Browsing tarfile " . l:tarfile)
|
|
call s:Say("\" Hit ENTER to view a file in a new window")
|
|
call s:Say("")
|
|
|
|
silent execute "r!" . l:cat . "<'" . l:tarfile . "'| tar Ptf - "
|
|
0d "blank line
|
|
/^$/1
|
|
|
|
setlocal readonly
|
|
setlocal nomodifiable
|
|
noremap <silent> <buffer> <cr> :call <SID>TarBrowseSelect()<cr>
|
|
endfunction
|
|
|
|
function! s:TarBrowseSelect()
|
|
let l:line = getline(".")
|
|
|
|
if (l:line =~ '^" ')
|
|
return
|
|
endif
|
|
|
|
if (l:line =~ '/$')
|
|
echo "Please specify a file, not a directory"
|
|
return
|
|
endif
|
|
|
|
let l:selection = "tarfile:" . b:tarfile . "/" . l:line
|
|
new
|
|
wincmd _
|
|
execute "e " . l:selection
|
|
endfunction
|
|
|
|
" kludge to deal with compressed archives
|
|
function! s:TarCatCommand(tarfile)
|
|
if a:tarfile =~# '\.\(gz\|tgz\|Z\)$'
|
|
let l:cat = "gzip -d -c"
|
|
elseif a:tarfile =~# '\.bz2$'
|
|
let l:cat = "bzip2 -d -c"
|
|
else
|
|
let l:cat = "cat"
|
|
endif
|
|
return l:cat
|
|
endfunction
|
|
|
|
function! s:Say(string)
|
|
let @" = a:string
|
|
$ put
|
|
endfunction
|