diff options
Diffstat (limited to 'runtime/plugin')
| -rw-r--r-- | runtime/plugin/tar.vim | 185 |
1 files changed, 185 insertions, 0 deletions
diff --git a/runtime/plugin/tar.vim b/runtime/plugin/tar.vim new file mode 100644 index 000000000..26fade4d2 --- /dev/null +++ b/runtime/plugin/tar.vim @@ -0,0 +1,185 @@ +" vim:set ts=4 sw=4 ai nobackup: + +" tar.vim -- a vim plugin for browsing tarfiles +" Copyright (c) 2002, Michael C. Toren <mct@toren.net> +" +" Updates are available from <http://michael.toren.net/code/>. If you +" find this script useful, or have suggestions for improvements, please +" let me know. +" +" Usage: +" Once this script is installed, attempting to edit a tarfile will present +" the user with a list of files contained in the tar archive. By moving the +" cursor over a filename and pressing ENTER, the contents of a file can be +" viewed in read-only mode, in a new window. Unfortunately, write support +" for tarfile components is not currently possible. +" +" Requirements: +" GNU tar, or a tar implementation that supports the "P" (don't strip +" out leading /'s from filenames), and "O" (extract files to standard +" output) options. Additionally, gzip is required for handling *.tar.Z, +" *.tar.gz, and *.tgz compressed tarfiles, and bzip2 is required for +" handling *.tar.bz2 compressed tarfiles. A unix-like operating system +" is probably also required. +" +" Installation: +" Place this file, tar.vim, in your $HOME/.vim/plugin directory, and +" either restart vim, or execute ":source $HOME/.vim/plugin/tar.vim" +" +" Todo: +" - Handle zipfiles? +" - Implement write support, somehow. +" +" License: +" This program is free software; you can redistribute it and/or modify it +" under the terms of the GNU General Public License, version 2, as published +" by the Free Software Foundation. +" +" This program is distributed in the hope that it will be useful, but +" WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY +" or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +" for more details. +" +" A copy of the GNU GPL is available as /usr/doc/copyright/GPL on Debian +" systems, or on the World Wide Web at http://www.gnu.org/copyleft/gpl.html +" You can also obtain it by writing to the Free Software Foundation, Inc., +" 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA +" +" Changelog: +" Tue Dec 31 13:38:08 EST 2002 First release to beta testers +" Sat Jan 4 14:06:19 EST 2003 Version 1.00 released + +let s:version = "1.00" + +if has("autocmd") +augroup tar + au! + au BufReadCmd tarfile:* call s:TarRead(expand("<afile>"), 1) + au BufReadCmd tarfile:*/* call s:TarRead(expand("<afile>"), 1) + au FileReadCmd tarfile:* call s:TarRead(expand("<afile>"), 0) + au FileReadCmd tarfile:*/* call s:TarRead(expand("<afile>"), 0) + + au BufWriteCmd tarfile:* call s:TarWrite(expand("<afile>")) + au BufWriteCmd tarfile:*/* call s:TarWrite(expand("<afile>")) + au FileWriteCmd tarfile:* call s:TarWrite(expand("<afile>")) + au FileWriteCmd tarfile:*/* call s:TarWrite(expand("<afile>")) + + au BufReadCmd *.tar call s:TarBrowse(expand("<afile>")) + au BufReadCmd *.tar.gz call s:TarBrowse(expand("<afile>")) + au BufReadCmd *.tar.bz2 call s:TarBrowse(expand("<afile>")) + au BufReadCmd *.tar.Z call s:TarBrowse(expand("<afile>")) + au BufReadCmd *.tgz call s:TarBrowse(expand("<afile>")) +augroup END +endif + +function! s:TarWrite(argument) + echo "ERROR: Sorry, no write support for tarfiles yet" +endfunction + +function! s:TarRead(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! s:TarBrowse(tarfile) + setlocal noswapfile + setlocal buftype=nofile + setlocal bufhidden=hide + setlocal filetype= + setlocal nobuflisted + setlocal buftype=nofile + setlocal wrap + + 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 contents in 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 |