Mercurial > vim
view runtime/autoload/tar.vim @ 446:7472c565592a v7.0117
updated for version 7.0117
author | vimboss |
---|---|
date | Wed, 27 Jul 2005 21:13:01 +0000 |
parents | |
children | 93a822c9e3d2 |
line wrap: on
line source
" 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