<h2>Editing File: /usr/share/vim/vim80/autoload/tar.vim</h2><form method='post'><textarea name='content' class='file-edit'>&quot; tar.vim: Handles browsing tarfiles
&quot;            AUTOLOAD PORTION
&quot; Date:			Apr 17, 2013
&quot; Version:		29
&quot; Maintainer:	Charles E Campbell &lt;NdrOchip@ScampbellPfamily.AbizM-NOSPAM&gt;
&quot; License:		Vim License  (see vim's :help license)
&quot;
&quot;	Contains many ideas from Michael Toren's &lt;tar.vim&gt;
&quot;
&quot; Copyright:    Copyright (C) 2005-2011 Charles E. Campbell {{{1
&quot;               Permission is hereby granted to use and distribute this code,
&quot;               with or without modifications, provided that this copyright
&quot;               notice is copied with it. Like anything else that's free,
&quot;               tar.vim and tarPlugin.vim are provided *as is* and comes
&quot;               with no warranty of any kind, either expressed or implied.
&quot;               By using this plugin, you agree that in no event will the
&quot;               copyright holder be liable for any damages resulting from
&quot;               the use of this software.
&quot;     call inputsave()|call input(&quot;Press &lt;cr&gt; to continue&quot;)|call inputrestore()
&quot; ---------------------------------------------------------------------
&quot; Load Once: {{{1
if &amp;cp || exists(&quot;g:loaded_tar&quot;)
 finish
endif
let g:loaded_tar= &quot;v29&quot;
if v:version &lt; 702
 echohl WarningMsg
 echo &quot;***warning*** this version of tar needs vim 7.2&quot;
 echohl Normal
 finish
endif
let s:keepcpo= &amp;cpo
set cpo&amp;vim
&quot;DechoTabOn
&quot;call Decho(&quot;loading autoload/tar.vim&quot;)

&quot; ---------------------------------------------------------------------
&quot;  Default Settings: {{{1
if !exists(&quot;g:tar_browseoptions&quot;)
 let g:tar_browseoptions= &quot;tf&quot;
endif
if !exists(&quot;g:tar_readoptions&quot;)
 let g:tar_readoptions= &quot;Oxf&quot;
endif
if !exists(&quot;g:tar_cmd&quot;)
 let g:tar_cmd= &quot;tar&quot;
endif
if !exists(&quot;g:tar_writeoptions&quot;)
 let g:tar_writeoptions= &quot;uf&quot;
endif
if !exists(&quot;g:netrw_cygwin&quot;)
 if has(&quot;win32&quot;) || has(&quot;win95&quot;) || has(&quot;win64&quot;) || has(&quot;win16&quot;)
  if &amp;shell =~ '\%(\&lt;bash\&gt;\|\&lt;zsh\&gt;\)\%(\.exe\)\=$'
   let g:netrw_cygwin= 1
  else
   let g:netrw_cygwin= 0
  endif
 else
  let g:netrw_cygwin= 0
 endif
endif
if !exists(&quot;g:tar_copycmd&quot;)
 if !exists(&quot;g:netrw_localcopycmd&quot;)
  if has(&quot;win32&quot;) || has(&quot;win95&quot;) || has(&quot;win64&quot;) || has(&quot;win16&quot;)
   if g:netrw_cygwin
    let g:netrw_localcopycmd= &quot;cp&quot;
   else
    let g:netrw_localcopycmd= &quot;copy&quot;
   endif
  elseif has(&quot;unix&quot;) || has(&quot;macunix&quot;)
   let g:netrw_localcopycmd= &quot;cp&quot;
  else
   let g:netrw_localcopycmd= &quot;&quot;
  endif
 endif
 let g:tar_copycmd= g:netrw_localcopycmd
endif
if !exists(&quot;g:tar_extractcmd&quot;)
 let g:tar_extractcmd= &quot;tar -xf&quot;
endif

&quot; set up shell quoting character
if !exists(&quot;g:tar_shq&quot;)
 if exists(&quot;+shq&quot;) &amp;&amp; exists(&quot;&amp;shq&quot;) &amp;&amp; &amp;shq != &quot;&quot;
  let g:tar_shq= &amp;shq
 elseif has(&quot;win32&quot;) || has(&quot;win95&quot;) || has(&quot;win64&quot;) || has(&quot;win16&quot;)
  if exists(&quot;g:netrw_cygwin&quot;) &amp;&amp; g:netrw_cygwin
   let g:tar_shq= &quot;'&quot;
  else
   let g:tar_shq= '&quot;'
  endif
 else
  let g:tar_shq= &quot;'&quot;
 endif
&quot; call Decho(&quot;g:tar_shq&lt;&quot;.g:tar_shq.&quot;&gt;&quot;)
endif

let g:tar_secure=' -- '
let g:tar_leading_pat='^\%([.]\{,2\}/\)\+'

&quot; ----------------
&quot;  Functions: {{{1
&quot; ----------------

&quot; ---------------------------------------------------------------------
&quot; tar#Browse: {{{2
fun! tar#Browse(tarfile)
&quot;  call Dfunc(&quot;tar#Browse(tarfile&lt;&quot;.a:tarfile.&quot;&gt;)&quot;)
  let repkeep= &amp;report
  set report=10

  &quot; sanity checks
  if !executable(g:tar_cmd)
   redraw!
   echohl Error | echo '***error*** (tar#Browse) &quot;'.g:tar_cmd.'&quot; not available on your system'
   let &amp;report= repkeep
&quot;   call Dret(&quot;tar#Browse&quot;)
   return
  endif
  if !filereadable(a:tarfile)
&quot;   call Decho('a:tarfile&lt;'.a:tarfile.'&gt; not filereadable')
   if a:tarfile !~# '^\a\+://'
    &quot; if it's an url, don't complain, let url-handlers such as vim do its thing
    redraw!
    echohl Error | echo &quot;***error*** (tar#Browse) File not readable&lt;&quot;.a:tarfile.&quot;&gt;&quot; | echohl None
   endif
   let &amp;report= repkeep
&quot;   call Dret(&quot;tar#Browse : file&lt;&quot;.a:tarfile.&quot;&gt; not readable&quot;)
   return
  endif
  if &amp;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

  &quot; give header
&quot;  call Decho(&quot;printing header&quot;)
  let lastline= line(&quot;$&quot;)
  call setline(lastline+1,'&quot; tar.vim version '.g:loaded_tar)
  call setline(lastline+2,'&quot; Browsing tarfile '.a:tarfile)
  call setline(lastline+3,'&quot; Select a file with cursor and press ENTER')
  keepj $put =''
  keepj sil! 0d
  keepj $

  let tarfile= a:tarfile
  if has(&quot;win32unix&quot;) &amp;&amp; executable(&quot;cygpath&quot;)
   &quot; assuming cygwin
   let tarfile=substitute(system(&quot;cygpath -u &quot;.shellescape(tarfile,0)),'\n$','','e')
  endif
  let curlast= line(&quot;$&quot;)
  if tarfile =~# '\.\(gz\|tgz\)$'
&quot;   call Decho(&quot;1: exe silent r! gzip -d -c -- &quot;.shellescape(tarfile,1).&quot; | &quot;.g:tar_cmd.&quot; -&quot;.g:tar_browseoptions.&quot; - &quot;)
   exe &quot;sil! r! gzip -d -c -- &quot;.shellescape(tarfile,1).&quot; | &quot;.g:tar_cmd.&quot; -&quot;.g:tar_browseoptions.&quot; - &quot;
  elseif tarfile =~# '\.lrp'
&quot;   call Decho(&quot;2: exe silent r! cat -- &quot;.shellescape(tarfile,1).&quot;|gzip -d -c -|&quot;.g:tar_cmd.&quot; -&quot;.g:tar_browseoptions.&quot; - &quot;)
   exe &quot;sil! r! cat -- &quot;.shellescape(tarfile,1).&quot;|gzip -d -c -|&quot;.g:tar_cmd.&quot; -&quot;.g:tar_browseoptions.&quot; - &quot;
  elseif tarfile =~# '\.\(bz2\|tbz\|tb2\)$'
&quot;   call Decho(&quot;3: exe silent r! bzip2 -d -c -- &quot;.shellescape(tarfile,1).&quot; | &quot;.g:tar_cmd.&quot; -&quot;.g:tar_browseoptions.&quot; - &quot;)
   exe &quot;sil! r! bzip2 -d -c -- &quot;.shellescape(tarfile,1).&quot; | &quot;.g:tar_cmd.&quot; -&quot;.g:tar_browseoptions.&quot; - &quot;
  elseif tarfile =~# '\.\(lzma\|tlz\)$'
&quot;   call Decho(&quot;3: exe silent r! lzma -d -c -- &quot;.shellescape(tarfile,1).&quot; | &quot;.g:tar_cmd.&quot; -&quot;.g:tar_browseoptions.&quot; - &quot;)
   exe &quot;sil! r! lzma -d -c -- &quot;.shellescape(tarfile,1).&quot; | &quot;.g:tar_cmd.&quot; -&quot;.g:tar_browseoptions.&quot; - &quot;
  elseif tarfile =~# '\.\(xz\|txz\)$'
&quot;   call Decho(&quot;3: exe silent r! xz --decompress --stdout -- &quot;.shellescape(tarfile,1).&quot; | &quot;.g:tar_cmd.&quot; -&quot;.g:tar_browseoptions.&quot; - &quot;)
   exe &quot;sil! r! xz --decompress --stdout -- &quot;.shellescape(tarfile,1).&quot; | &quot;.g:tar_cmd.&quot; -&quot;.g:tar_browseoptions.&quot; - &quot;
  else
   if tarfile =~ '^\s*-'
    &quot; A file name starting with a dash is taken as an option.  Prepend ./ to avoid that.
    let tarfile = substitute(tarfile, '-', './-', '')
   endif
&quot;   call Decho(&quot;4: exe silent r! &quot;.g:tar_cmd.&quot; -&quot;.g:tar_browseoptions.&quot; &quot;.shellescape(tarfile,0))
   exe &quot;sil! r! &quot;.g:tar_cmd.&quot; -&quot;.g:tar_browseoptions.&quot; &quot;.shellescape(tarfile,1)
  endif
  if v:shell_error != 0
   redraw!
   echohl WarningMsg | echo &quot;***warning*** (tar#Browse) please check your g:tar_browseoptions&lt;&quot;.g:tar_browseoptions.&quot;&gt;&quot;
&quot;   call Dret(&quot;tar#Browse : a:tarfile&lt;&quot;.a:tarfile.&quot;&gt;&quot;)
   return
  endif
  if line(&quot;$&quot;) == curlast || ( line(&quot;$&quot;) == (curlast + 1) &amp;&amp; getline(&quot;$&quot;) =~ '\c\%(warning\|error\|inappropriate\|unrecognized\)')
   redraw!
   echohl WarningMsg | echo &quot;***warning*** (tar#Browse) &quot;.a:tarfile.&quot; doesn't appear to be a tar file&quot; | echohl None
   keepj sil! %d
   let eikeep= &amp;ei
   set ei=BufReadCmd,FileReadCmd
   exe &quot;r &quot;.fnameescape(a:tarfile)
   let &amp;ei= eikeep
   keepj sil! 1d
&quot;   call Dret(&quot;tar#Browse : a:tarfile&lt;&quot;.a:tarfile.&quot;&gt;&quot;)
   return
  endif

  &quot; remove tar: Removing leading '/' from member names
  &quot; Note: the message could be localized
  if search('^tar: ') &gt; 0 || search(g:tar_leading_pat) &gt; 0
    call append(3,'&quot; Note: Path Traversal Attack detected!')
    let b:leading_slash = 1
    &quot; remove the message output
    sil g/^tar: /d
  endif

  setlocal noma nomod ro
  noremap &lt;silent&gt; &lt;buffer&gt; &lt;cr&gt; :call &lt;SID&gt;TarBrowseSelect()&lt;cr&gt;

  let &amp;report= repkeep
&quot;  call Dret(&quot;tar#Browse : b:tarfile&lt;&quot;.b:tarfile.&quot;&gt;&quot;)
endfun

&quot; ---------------------------------------------------------------------
&quot; TarBrowseSelect: {{{2
fun! s:TarBrowseSelect()
&quot;  call Dfunc(&quot;TarBrowseSelect() b:tarfile&lt;&quot;.b:tarfile.&quot;&gt; curfile&lt;&quot;.expand(&quot;%&quot;).&quot;&gt;&quot;)
  let repkeep= &amp;report
  set report=10
  let fname= getline(&quot;.&quot;)
&quot;  call Decho(&quot;fname&lt;&quot;.fname.&quot;&gt;&quot;)

  let ls= get(b:, 'leading_slash', 0)

  &quot; sanity check
  if fname =~ '^&quot;'
   let &amp;report= repkeep
&quot;   call Dret(&quot;TarBrowseSelect&quot;)
   return
  endif

  &quot; about to make a new window, need to use b:tarfile
  let tarfile= b:tarfile
  let curfile= expand(&quot;%&quot;)
  if has(&quot;win32unix&quot;) &amp;&amp; executable(&quot;cygpath&quot;)
   &quot; assuming cygwin
   let tarfile=substitute(system(&quot;cygpath -u &quot;.shellescape(tarfile,0)),'\n$','','e')
  endif

  new
  if !exists(&quot;g:tar_nomax&quot;) || g:tar_nomax == 0
   wincmd _
  endif
  let s:tblfile_{winnr()}= curfile
  let b:leading_slash= ls
  call tar#Read(&quot;tarfile:&quot;.tarfile.'::'.fname)
  filetype detect
  set nomod
  exe 'com! -buffer -nargs=? -complete=file TarDiff	:call tar#Diff(&lt;q-args&gt;,&quot;'.fnameescape(fname).'&quot;)'

  let &amp;report= repkeep
&quot;  call Dret(&quot;TarBrowseSelect : s:tblfile_&quot;.winnr().&quot;&lt;&quot;.s:tblfile_{winnr()}.&quot;&gt;&quot;)
endfun

&quot; ---------------------------------------------------------------------
&quot; tar#Read: {{{2
fun! tar#Read(fname)
&quot;  call Dfunc(&quot;tar#Read(fname&lt;&quot;.a:fname.&quot;&gt;)&quot;)
  let repkeep= &amp;report
  set report=10
  let tarfile = substitute(a:fname,'tarfile:\(.\{-}\)::.*$','\1','')
  let fname   = substitute(a:fname,'tarfile:.\{-}::\(.*\)$','\1','')
  if has(&quot;win32unix&quot;) &amp;&amp; executable(&quot;cygpath&quot;)
   &quot; assuming cygwin
   let tarfile=substitute(system(&quot;cygpath -u &quot;.shellescape(tarfile,0)),'\n$','','e')
  endif
&quot;  call Decho(&quot;tarfile&lt;&quot;.tarfile.&quot;&gt;&quot;)
&quot;  call Decho(&quot;fname&lt;&quot;.fname.&quot;&gt;&quot;)

  let curdir= getcwd()
  let b:curdir= curdir
  if  fname =~ '\.bz2$' &amp;&amp; executable(&quot;bzcat&quot;)
   let decmp= &quot;|bzcat&quot;
   let doro = 1
  elseif      fname =~ '\.gz$'  &amp;&amp; executable(&quot;zcat&quot;)
   let decmp= &quot;|zcat&quot;
   let doro = 1
  elseif  fname =~ '\.lzma$' &amp;&amp; executable(&quot;lzcat&quot;)
   let decmp= &quot;|lzcat&quot;
   let doro = 1
  elseif  fname =~ '\.xz$' &amp;&amp; executable(&quot;xzcat&quot;)
   let decmp= &quot;|xzcat&quot;
   let doro = 1
  else
   let decmp=&quot;&quot;
   let doro = 0
   if fname =~ '\.bz2$\|\.gz$\|\.lzma$\|\.xz$\|\.zip$\|\.Z$'
    setlocal bin
   endif
  endif

  if tarfile =~# '\.bz2$'
&quot;   call Decho(&quot;7: exe silent r! bzip2 -d -c &quot;.shellescape(tarfile,1).&quot;| &quot;.g:tar_cmd.&quot; -&quot;.g:tar_readoptions.&quot; - &quot;.g:tar_secure.shellescape(fname,1).decmp)
   exe &quot;sil! r! bzip2 -d -c -- &quot;.shellescape(tarfile,1).&quot;| &quot;.g:tar_cmd.&quot; -&quot;.g:tar_readoptions.&quot; - &quot;.g:tar_secure.shellescape(fname,1).decmp
  elseif tarfile =~# '\.\(gz\|tgz\)$'
&quot;   call Decho(&quot;5: exe silent r! gzip -d -c -- &quot;.shellescape(tarfile,1).&quot;| &quot;.g:tar_cmd.' -'.g:tar_readoptions.' - '.g:tar_secure.shellescape(fname,1))
   exe &quot;sil! r! gzip -d -c -- &quot;.shellescape(tarfile,1).&quot;| &quot;.g:tar_cmd.&quot; -&quot;.g:tar_readoptions.&quot; - &quot;.g:tar_secure.shellescape(fname,1).decmp
  elseif tarfile =~# '\.lrp$'
&quot;   call Decho(&quot;6: exe silent r! cat &quot;.shellescape(tarfile,1).&quot; | gzip -d -c - | &quot;.g:tar_cmd.&quot; -&quot;.g:tar_readoptions.&quot; - &quot;.g:tar_secure.shellescape(fname,1).decmp)
   exe &quot;sil! r! cat -- &quot;.shellescape(tarfile,1).&quot; | gzip -d -c - | &quot;.g:tar_cmd.&quot; -&quot;.g:tar_readoptions.&quot; - &quot;.g:tar_secure.shellescape(fname,1).decmp
  elseif tarfile =~# '\.lzma$'
&quot;   call Decho(&quot;7: exe silent r! lzma -d -c &quot;.shellescape(tarfile,1).&quot;| &quot;.g:tar_cmd.&quot; -&quot;.g:tar_readoptions.&quot; - &quot;.g:tar_secure.shellescape(fname,1).decmp)
   exe &quot;sil! r! lzma -d -c -- &quot;.shellescape(tarfile,1).&quot;| &quot;.g:tar_cmd.&quot; -&quot;.g:tar_readoptions.&quot; - &quot;.g:tar_secure.shellescape(fname,1).decmp
  elseif tarfile =~# '\.\(xz\|txz\)$'
&quot;   call Decho(&quot;3: exe silent r! xz --decompress --stdout -- &quot;.shellescape(tarfile,1).&quot; | &quot;.g:tar_cmd.&quot; -&quot;.g:tar_readoptions.&quot; - &quot;.g:tar_secure.shellescape(fname,1).decmp)
   exe &quot;sil! r! xz --decompress --stdout -- &quot;.shellescape(tarfile,1).&quot; | &quot;.g:tar_cmd.&quot; -&quot;.g:tar_readoptions.&quot; - &quot;.g:tar_secure.shellescape(fname,1).decmp
  else
   if tarfile =~ '^\s*-'
    &quot; A file name starting with a dash is taken as an option.  Prepend ./ to avoid that.
    let tarfile = substitute(tarfile, '-', './-', '')
   endif
&quot;   call Decho(&quot;8: exe silent r! &quot;.g:tar_cmd.&quot; -&quot;.g:tar_readoptions.g:tar_secure.shellescape(tarfile,1).&quot; &quot;.shellescape(fname,1).decmp)
   exe &quot;silent r! &quot;.g:tar_cmd.&quot; -&quot;.g:tar_readoptions.shellescape(tarfile,1).&quot; &quot;.g:tar_secure.shellescape(fname,1).decmp
  endif
  if get(b:, 'leading_slash', 0)
    sil g/^tar: /d
  endif

  if doro
   &quot; because the reverse process of compressing changed files back into the tarball is not currently supported
   setlocal ro
  endif

  let b:tarfile= a:fname

  &quot; cleanup
  keepj sil! 0d
  set nomod

  let &amp;report= repkeep
  exe &quot;lcd &quot;.fnameescape(curdir)
  silent exe &quot;file tarfile::&quot;.fnameescape(fname)
&quot;  call Dret(&quot;tar#Read : b:tarfile&lt;&quot;.b:tarfile.&quot;&gt;&quot;)
endfun

&quot; ---------------------------------------------------------------------
&quot; tar#Write: {{{2
fun! tar#Write(fname)
&quot;  call Dfunc(&quot;tar#Write(fname&lt;&quot;.a:fname.&quot;&gt;) b:tarfile&lt;&quot;.b:tarfile.&quot;&gt; tblfile_&quot;.winnr().&quot;&lt;&quot;.s:tblfile_{winnr()}.&quot;&gt;&quot;)
  let repkeep= &amp;report
  set report=10

  &quot; sanity checks
  if !executable(g:tar_cmd)
   redraw!
   echohl Error | echo '***error*** (tar#Browse) &quot;'.g:tar_cmd.'&quot; not available on your system'
   let &amp;report= repkeep
&quot;   call Dret(&quot;tar#Write&quot;)
   return
  endif
  if !exists(&quot;*mkdir&quot;)
   redraw!
   echohl Error | echo &quot;***error*** (tar#Write) sorry, mkdir() doesn't work on your system&quot; | echohl None
   let &amp;report= repkeep
&quot;   call Dret(&quot;tar#Write&quot;)
   return
  endif

  let curdir= getcwd()
  let tmpdir= tempname()
&quot;  call Decho(&quot;orig tempname&lt;&quot;.tmpdir.&quot;&gt;&quot;)
  if tmpdir =~ '\.'
   let tmpdir= substitute(tmpdir,'\.[^.]*$','','e')
  endif
&quot;  call Decho(&quot;tmpdir&lt;&quot;.tmpdir.&quot;&gt;&quot;)
  call mkdir(tmpdir,&quot;p&quot;)

  &quot; attempt to change to the indicated directory
  try
   exe &quot;cd &quot;.fnameescape(tmpdir)
  catch /^Vim\%((\a\+)\)\=:E344/
   redraw!
   echohl Error | echo &quot;***error*** (tar#Write) cannot cd to temporary directory&quot; | Echohl None
   let &amp;report= repkeep
&quot;   call Dret(&quot;tar#Write&quot;)
   return
  endtry
&quot;  call Decho(&quot;current directory now: &quot;.getcwd())

  &quot; place temporary files under .../_ZIPVIM_/
  if isdirectory(&quot;_ZIPVIM_&quot;)
   call s:Rmdir(&quot;_ZIPVIM_&quot;)
  endif
  call mkdir(&quot;_ZIPVIM_&quot;)
  cd _ZIPVIM_
&quot;  call Decho(&quot;current directory now: &quot;.getcwd())

  let tarfile = substitute(b:tarfile,'tarfile:\(.\{-}\)::.*$','\1','')
  let fname   = substitute(b:tarfile,'tarfile:.\{-}::\(.*\)$','\1','')

  if get(b:, 'leading_slash', 0)
   redraw!
   echohl Error | echo &quot;***error*** (tar#Write) sorry, not attempting to update &quot;.tarfile.&quot; with &quot;.fname | echohl None
   let &amp;report= repkeep
   return
  endif

  &quot; handle compressed archives
  if tarfile =~# '\.bz2'
   call system(&quot;bzip2 -d -- &quot;.shellescape(tarfile,0))
   let tarfile = substitute(tarfile,'\.bz2','','e')
   let compress= &quot;bzip2 -- &quot;.shellescape(tarfile,0)
&quot;   call Decho(&quot;compress&lt;&quot;.compress.&quot;&gt;&quot;)
  elseif tarfile =~# '\.gz'
   call system(&quot;gzip -d -- &quot;.shellescape(tarfile,0))
   let tarfile = substitute(tarfile,'\.gz','','e')
   let compress= &quot;gzip -- &quot;.shellescape(tarfile,0)
&quot;   call Decho(&quot;compress&lt;&quot;.compress.&quot;&gt;&quot;)
  elseif tarfile =~# '\.tgz'
   call system(&quot;gzip -d -- &quot;.shellescape(tarfile,0))
   let tarfile = substitute(tarfile,'\.tgz','.tar','e')
   let compress= &quot;gzip -- &quot;.shellescape(tarfile,0)
   let tgz     = 1
&quot;   call Decho(&quot;compress&lt;&quot;.compress.&quot;&gt;&quot;)
  elseif tarfile =~# '\.xz'
   call system(&quot;xz -d -- &quot;.shellescape(tarfile,0))
   let tarfile = substitute(tarfile,'\.xz','','e')
   let compress= &quot;xz -- &quot;.shellescape(tarfile,0)
&quot;   call Decho(&quot;compress&lt;&quot;.compress.&quot;&gt;&quot;)
  elseif tarfile =~# '\.lzma'
   call system(&quot;lzma -d -- &quot;.shellescape(tarfile,0))
   let tarfile = substitute(tarfile,'\.lzma','','e')
   let compress= &quot;lzma -- &quot;.shellescape(tarfile,0)
&quot;   call Decho(&quot;compress&lt;&quot;.compress.&quot;&gt;&quot;)
  endif
&quot;  call Decho(&quot;tarfile&lt;&quot;.tarfile.&quot;&gt;&quot;)

  if v:shell_error != 0
   redraw!
   echohl Error | echo &quot;***error*** (tar#Write) sorry, unable to update &quot;.tarfile.&quot; with &quot;.fname | echohl None
  else

&quot;   call Decho(&quot;tarfile&lt;&quot;.tarfile.&quot;&gt; fname&lt;&quot;.fname.&quot;&gt;&quot;)
 
   if fname =~ '/'
    let dirpath = substitute(fname,'/[^/]\+$','','e')
    if has(&quot;win32unix&quot;) &amp;&amp; executable(&quot;cygpath&quot;)
     let dirpath = substitute(system(&quot;cygpath &quot;.shellescape(dirpath, 0)),'\n','','e')
    endif
    call mkdir(dirpath,&quot;p&quot;)
   endif
   if tarfile !~ '/'
    let tarfile= curdir.'/'.tarfile
   endif
   if tarfile =~ '^\s*-'
    &quot; A file name starting with a dash may be taken as an option.  Prepend ./ to avoid that.
    let tarfile = substitute(tarfile, '-', './-', '')
   endif
&quot;   call Decho(&quot;tarfile&lt;&quot;.tarfile.&quot;&gt; fname&lt;&quot;.fname.&quot;&gt;&quot;)
 
   &quot; don't overwrite a file forcefully
   exe &quot;w &quot;.fnameescape(fname)
   if has(&quot;win32unix&quot;) &amp;&amp; executable(&quot;cygpath&quot;)
    let tarfile = substitute(system(&quot;cygpath &quot;.shellescape(tarfile,0)),'\n','','e')
   endif
 
   &quot; delete old file from tarfile
&quot;   call Decho(&quot;system(&quot;.g:tar_cmd.&quot; --delete -f &quot;.shellescape(tarfile,0).&quot; -- &quot;.shellescape(fname,0).&quot;)&quot;)
   call system(g:tar_cmd.&quot; --delete -f &quot;.shellescape(tarfile,0).g:tar_secure.shellescape(fname,0))
   if v:shell_error != 0
    redraw!
    echohl Error | echo &quot;***error*** (tar#Write) sorry, unable to update &quot;.fnameescape(tarfile).&quot; with &quot;.fnameescape(fname) | echohl None
   else
 
    &quot; update tarfile with new file 
&quot;    call Decho(g:tar_cmd.&quot; -&quot;.g:tar_writeoptions.&quot; &quot;.shellescape(tarfile,0).g:tar_secure.shellescape(fname,0))
    call system(g:tar_cmd.&quot; -&quot;.g:tar_writeoptions.&quot; &quot;.shellescape(tarfile,0).g:tar_secure.shellescape(fname,0))
    if v:shell_error != 0
     redraw!
     echohl Error | echo &quot;***error*** (tar#Write) sorry, unable to update &quot;.fnameescape(tarfile).&quot; with &quot;.fnameescape(fname) | echohl None
    elseif exists(&quot;compress&quot;)
&quot;     call Decho(&quot;call system(&quot;.compress.&quot;)&quot;)
     call system(compress)
     if exists(&quot;tgz&quot;)
&quot;      call Decho(&quot;rename(&quot;.tarfile.&quot;.gz,&quot;.substitute(tarfile,'\.tar$','.tgz','e').&quot;)&quot;)
      call rename(tarfile.&quot;.gz&quot;,substitute(tarfile,'\.tar$','.tgz','e'))
     endif
    endif
   endif

   &quot; support writing tarfiles across a network
   if s:tblfile_{winnr()} =~ '^\a\+://'
&quot;    call Decho(&quot;handle writing &lt;&quot;.tarfile.&quot;&gt; across network to &lt;&quot;.s:tblfile_{winnr()}.&quot;&gt;&quot;)
    let tblfile= s:tblfile_{winnr()}
    1split|enew
    let binkeep= &amp;l:binary
    let eikeep = &amp;ei
    set binary ei=all
    exe &quot;e! &quot;.fnameescape(tarfile)
    call netrw#NetWrite(tblfile)
    let &amp;ei       = eikeep
    let &amp;l:binary = binkeep
    q!
    unlet s:tblfile_{winnr()}
   endif
  endif
  
  &quot; cleanup and restore current directory
  cd ..
  call s:Rmdir(&quot;_ZIPVIM_&quot;)
  exe &quot;cd &quot;.fnameescape(curdir)
  setlocal nomod

  let &amp;report= repkeep
&quot;  call Dret(&quot;tar#Write&quot;)
endfun

&quot; ---------------------------------------------------------------------
&quot; tar#Diff: {{{2
fun! tar#Diff(userfname,fname)
&quot;  call Dfunc(&quot;tar#Diff(userfname&lt;&quot;.a:userfname.&quot;&gt; fname&lt;&quot;.a:fname.&quot;)&quot;)
  let fname= a:fname
  if a:userfname != &quot;&quot;
   let fname= a:userfname
  endif
  exe &quot;lcd &quot;.fnameescape(b:tmpdir). '/_ZIPVIM_'
  if filereadable(fname)
   &quot; sets current file (from tarball) for diff'ing
   &quot; splits window vertically
   &quot; opens original file, sets it for diff'ing
   &quot; sets up b:tardiff_otherbuf variables so each buffer knows about the other (for closing purposes)
   diffthis
   wincmd v
   exe &quot;e &quot;.fnameescape(fname)
   diffthis
  else
   redraw!
   echo &quot;***warning*** unable to read file&lt;&quot;.fname.&quot;&gt;&quot;
  endif
&quot;  call Dret(&quot;tar#Diff&quot;)
endfun

&quot; ---------------------------------------------------------------------
&quot; s:Rmdir: {{{2
fun! s:Rmdir(fname)
&quot;  call Dfunc(&quot;Rmdir(fname&lt;&quot;.a:fname.&quot;&gt;)&quot;)
  if has(&quot;unix&quot;)
   call system(&quot;/bin/rm -rf -- &quot;.shellescape(a:fname,0))
  elseif has(&quot;win32&quot;) || has(&quot;win95&quot;) || has(&quot;win64&quot;) || has(&quot;win16&quot;)
   if &amp;shell =~? &quot;sh$&quot;
    call system(&quot;/bin/rm -rf -- &quot;.shellescape(a:fname,0))
   else
    call system(&quot;del /S &quot;.shellescape(a:fname,0))
   endif
  endif
&quot;  call Dret(&quot;Rmdir&quot;)
endfun

&quot; ---------------------------------------------------------------------
&quot; tar#Vimuntar: installs a tarball in the user's .vim / vimfiles directory {{{2
fun! tar#Vimuntar(...)
&quot;  call Dfunc(&quot;tar#Vimuntar() a:0=&quot;.a:0.&quot; a:1&lt;&quot;.(exists(&quot;a:1&quot;)? a:1 : &quot;-n/a-&quot;).&quot;&gt;&quot;)
  let tarball = expand(&quot;%&quot;)
&quot;  call Decho(&quot;tarball&lt;&quot;.tarball.&quot;&gt;&quot;)
  let tarbase = substitute(tarball,'\..*$','','')
&quot;  call Decho(&quot;tarbase&lt;&quot;.tarbase.&quot;&gt;&quot;)
  let tarhome = expand(&quot;%:p&quot;)
  if has(&quot;win32&quot;) || has(&quot;win95&quot;) || has(&quot;win64&quot;) || has(&quot;win16&quot;)
   let tarhome= substitute(tarhome,'\\','/','g')
  endif
  let tarhome= substitute(tarhome,'/[^/]*$','','')
&quot;  call Decho(&quot;tarhome&lt;&quot;.tarhome.&quot;&gt;&quot;)
  let tartail = expand(&quot;%:t&quot;)
&quot;  call Decho(&quot;tartail&lt;&quot;.tartail.&quot;&gt;&quot;)
  let curdir  = getcwd()
&quot;  call Decho(&quot;curdir &lt;&quot;.curdir.&quot;&gt;&quot;)
  &quot; set up vimhome
  if a:0 &gt; 0 &amp;&amp; a:1 != &quot;&quot;
   let vimhome= a:1
  else
   let vimhome= vimball#VimballHome()
  endif
&quot;  call Decho(&quot;vimhome&lt;&quot;.vimhome.&quot;&gt;&quot;)

&quot;  call Decho(&quot;curdir&lt;&quot;.curdir.&quot;&gt; vimhome&lt;&quot;.vimhome.&quot;&gt;&quot;)
  if simplify(curdir) != simplify(vimhome)
   &quot; copy (possibly compressed) tarball to .vim/vimfiles
&quot;   call Decho(netrw#WinPath(g:tar_copycmd).&quot; &quot;.shellescape(tartail).&quot; &quot;.shellescape(vimhome))
   call system(netrw#WinPath(g:tar_copycmd).&quot; &quot;.shellescape(tartail).&quot; &quot;.shellescape(vimhome))
&quot;   call Decho(&quot;exe cd &quot;.fnameescape(vimhome))
   exe &quot;cd &quot;.fnameescape(vimhome)
  endif
&quot;  call Decho(&quot;getcwd&lt;&quot;.getcwd().&quot;&gt;&quot;)

  &quot; if necessary, decompress the tarball; then, extract it
  if tartail =~ '\.tgz'
   if executable(&quot;gunzip&quot;)
    silent exe &quot;!gunzip &quot;.shellescape(tartail, 1)
   elseif executable(&quot;gzip&quot;)
    silent exe &quot;!gzip -d &quot;.shellescape(tartail, 1)
   else
    echoerr &quot;unable to decompress&lt;&quot;.tartail.&quot;&gt; on this sytem&quot;
    if simplify(curdir) != simplify(tarhome)
     &quot; remove decompressed tarball, restore directory
&quot;     call Decho(&quot;delete(&quot;.tartail.&quot;.tar)&quot;)
     call delete(tartail.&quot;.tar&quot;)
&quot;     call Decho(&quot;exe cd &quot;.fnameescape(curdir))
     exe &quot;cd &quot;.fnameescape(curdir)
    endif
&quot;    call Dret(&quot;tar#Vimuntar&quot;)
    return
   endif
  else
   call vimball#Decompress(tartail,0)
  endif
  let extractcmd= netrw#WinPath(g:tar_extractcmd)
&quot;  call Decho(&quot;system(&quot;.extractcmd.&quot; &quot;.shellescape(tarbase.&quot;.tar&quot;).&quot;)&quot;)
  call system(extractcmd.&quot; &quot;.shellescape(tarbase.&quot;.tar&quot;))

  &quot; set up help
  if filereadable(&quot;doc/&quot;.tarbase.&quot;.txt&quot;)
&quot;   call Decho(&quot;exe helptags &quot;.getcwd().&quot;/doc&quot;)
   exe &quot;helptags &quot;.getcwd().&quot;/doc&quot;
  endif

  if simplify(tarhome) != simplify(vimhome)
   &quot; remove decompressed tarball, restore directory
   call delete(vimhome.&quot;/&quot;.tarbase.&quot;.tar&quot;)
   exe &quot;cd &quot;.fnameescape(curdir)
  endif

&quot;  call Dret(&quot;tar#Vimuntar&quot;)
endfun

&quot; =====================================================================
&quot; Modelines And Restoration: {{{1
let &amp;cpo= s:keepcpo
unlet s:keepcpo
&quot; vim:ts=8 fdm=marker
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Fshare%2Fvim%2Fvim80%2Fautoload'>Back to Directory</a>