annotate runtime/autoload/tar.vim @ 6880:bcc0909b379e v7.4.760

patch 7.4.760 Problem: Spelling mistakes are not displayed after ":syn spell". Solution: Force a redraw after ":syn spell" command. (Christian Brabandt)
author Bram Moolenaar <bram@vim.org>
date Thu, 25 Jun 2015 18:36:26 +0200
parents 22fa3049e934
children 8a1481e59d64
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
1 " tar.vim: Handles browsing tarfiles
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
2 " AUTOLOAD PORTION
4339
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
3 " Date: Apr 17, 2013
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
4 " Version: 29
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
5 " Maintainer: Charles E Campbell <NdrOchip@ScampbellPfamily.AbizM-NOSPAM>
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
6 " License: Vim License (see vim's :help license)
446
7472c565592a updated for version 7.0117
vimboss
parents:
diff changeset
7 "
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
8 " Contains many ideas from Michael Toren's <tar.vim>
446
7472c565592a updated for version 7.0117
vimboss
parents:
diff changeset
9 "
4339
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
10 " Copyright: Copyright (C) 2005-2011 Charles E. Campbell {{{1
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
11 " Permission is hereby granted to use and distribute this code,
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
12 " with or without modifications, provided that this copyright
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
13 " notice is copied with it. Like anything else that's free,
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
14 " tar.vim and tarPlugin.vim are provided *as is* and comes
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
15 " with no warranty of any kind, either expressed or implied.
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
16 " By using this plugin, you agree that in no event will the
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
17 " copyright holder be liable for any damages resulting from
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
18 " the use of this software.
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
19 " call inputsave()|call input("Press <cr> to continue")|call inputrestore()
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
20 " ---------------------------------------------------------------------
1125
96cd8222a819 updated for version 7.1a
vimboss
parents: 857
diff changeset
21 " Load Once: {{{1
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
22 if &cp || exists("g:loaded_tar")
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
23 finish
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
24 endif
4339
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
25 let g:loaded_tar= "v29"
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
26 if v:version < 702
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
27 echohl WarningMsg
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
28 echo "***warning*** this version of tar needs vim 7.2"
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
29 echohl Normal
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
30 finish
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
31 endif
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
32 let s:keepcpo= &cpo
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
33 set cpo&vim
4339
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
34 "DechoTabOn
819
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 624
diff changeset
35 "call Decho("loading autoload/tar.vim")
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
36
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
37 " ---------------------------------------------------------------------
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
38 " Default Settings: {{{1
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
39 if !exists("g:tar_browseoptions")
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
40 let g:tar_browseoptions= "Ptf"
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
41 endif
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
42 if !exists("g:tar_readoptions")
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
43 let g:tar_readoptions= "OPxf"
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
44 endif
819
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 624
diff changeset
45 if !exists("g:tar_cmd")
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 624
diff changeset
46 let g:tar_cmd= "tar"
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 624
diff changeset
47 endif
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
48 if !exists("g:tar_writeoptions")
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
49 let g:tar_writeoptions= "uf"
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
50 endif
2908
fd09a9c8468e Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 2535
diff changeset
51 if !exists("g:netrw_cygwin")
fd09a9c8468e Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 2535
diff changeset
52 if has("win32") || has("win95") || has("win64") || has("win16")
fd09a9c8468e Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 2535
diff changeset
53 if &shell =~ '\%(\<bash\>\|\<zsh\>\)\%(\.exe\)\=$'
fd09a9c8468e Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 2535
diff changeset
54 let g:netrw_cygwin= 1
fd09a9c8468e Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 2535
diff changeset
55 else
fd09a9c8468e Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 2535
diff changeset
56 let g:netrw_cygwin= 0
fd09a9c8468e Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 2535
diff changeset
57 endif
fd09a9c8468e Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 2535
diff changeset
58 else
fd09a9c8468e Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 2535
diff changeset
59 let g:netrw_cygwin= 0
fd09a9c8468e Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 2535
diff changeset
60 endif
fd09a9c8468e Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 2535
diff changeset
61 endif
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
62 if !exists("g:tar_copycmd")
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
63 if !exists("g:netrw_localcopycmd")
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
64 if has("win32") || has("win95") || has("win64") || has("win16")
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
65 if g:netrw_cygwin
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
66 let g:netrw_localcopycmd= "cp"
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
67 else
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
68 let g:netrw_localcopycmd= "copy"
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
69 endif
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
70 elseif has("unix") || has("macunix")
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
71 let g:netrw_localcopycmd= "cp"
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
72 else
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
73 let g:netrw_localcopycmd= ""
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
74 endif
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
75 endif
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
76 let g:tar_copycmd= g:netrw_localcopycmd
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
77 endif
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
78 if !exists("g:tar_extractcmd")
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
79 let g:tar_extractcmd= "tar -xf"
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
80 endif
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
81
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
82 " set up shell quoting character
1125
96cd8222a819 updated for version 7.1a
vimboss
parents: 857
diff changeset
83 if !exists("g:tar_shq")
4339
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
84 if exists("+shq") && exists("&shq") && &shq != ""
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
85 let g:tar_shq= &shq
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
86 elseif has("win32") || has("win95") || has("win64") || has("win16")
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
87 if exists("g:netrw_cygwin") && g:netrw_cygwin
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
88 let g:tar_shq= "'"
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
89 else
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
90 let g:tar_shq= '"'
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
91 endif
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
92 else
1125
96cd8222a819 updated for version 7.1a
vimboss
parents: 857
diff changeset
93 let g:tar_shq= "'"
96cd8222a819 updated for version 7.1a
vimboss
parents: 857
diff changeset
94 endif
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
95 " call Decho("g:tar_shq<".g:tar_shq.">")
1125
96cd8222a819 updated for version 7.1a
vimboss
parents: 857
diff changeset
96 endif
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
97
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
98 " ----------------
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
99 " Functions: {{{1
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
100 " ----------------
446
7472c565592a updated for version 7.0117
vimboss
parents:
diff changeset
101
527
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
102 " ---------------------------------------------------------------------
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
103 " tar#Browse: {{{2
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
104 fun! tar#Browse(tarfile)
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
105 " call Dfunc("tar#Browse(tarfile<".a:tarfile.">)")
569
bdbdec22a225 updated for version 7.0161
vimboss
parents: 557
diff changeset
106 let repkeep= &report
bdbdec22a225 updated for version 7.0161
vimboss
parents: 557
diff changeset
107 set report=10
446
7472c565592a updated for version 7.0117
vimboss
parents:
diff changeset
108
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
109 " sanity checks
819
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 624
diff changeset
110 if !executable(g:tar_cmd)
1125
96cd8222a819 updated for version 7.1a
vimboss
parents: 857
diff changeset
111 redraw!
819
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 624
diff changeset
112 echohl Error | echo '***error*** (tar#Browse) "'.g:tar_cmd.'" not available on your system'
569
bdbdec22a225 updated for version 7.0161
vimboss
parents: 557
diff changeset
113 let &report= repkeep
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
114 " call Dret("tar#Browse")
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
115 return
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
116 endif
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
117 if !filereadable(a:tarfile)
819
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 624
diff changeset
118 " call Decho('a:tarfile<'.a:tarfile.'> not filereadable')
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
119 if a:tarfile !~# '^\a\+://'
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
120 " if its an url, don't complain, let url-handlers such as vim do its thing
1125
96cd8222a819 updated for version 7.1a
vimboss
parents: 857
diff changeset
121 redraw!
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
122 echohl Error | echo "***error*** (tar#Browse) File not readable<".a:tarfile.">" | echohl None
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
123 endif
569
bdbdec22a225 updated for version 7.0161
vimboss
parents: 557
diff changeset
124 let &report= repkeep
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
125 " call Dret("tar#Browse : file<".a:tarfile."> not readable")
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
126 return
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
127 endif
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
128 if &ma != 1
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
129 set ma
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
130 endif
2535
31e51111bd14 Runtime file updates. Fix tar plugin window split.
Bram Moolenaar <bram@vim.org>
parents: 2426
diff changeset
131 let b:tarfile= a:tarfile
446
7472c565592a updated for version 7.0117
vimboss
parents:
diff changeset
132
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
133 setlocal noswapfile
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
134 setlocal buftype=nofile
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
135 setlocal bufhidden=hide
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
136 setlocal nobuflisted
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
137 setlocal nowrap
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
138 set ft=tar
446
7472c565592a updated for version 7.0117
vimboss
parents:
diff changeset
139
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
140 " give header
819
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 624
diff changeset
141 " call Decho("printing header")
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
142 let lastline= line("$")
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
143 call setline(lastline+1,'" tar.vim version '.g:loaded_tar)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
144 call setline(lastline+2,'" Browsing tarfile '.a:tarfile)
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
145 call setline(lastline+3,'" Select a file with cursor and press ENTER')
2908
fd09a9c8468e Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 2535
diff changeset
146 keepj $put =''
3281
af1e8a1714c2 Update runtime files.
Bram Moolenaar <bram@vim.org>
parents: 2908
diff changeset
147 keepj sil! 0d
2908
fd09a9c8468e Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 2535
diff changeset
148 keepj $
446
7472c565592a updated for version 7.0117
vimboss
parents:
diff changeset
149
819
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 624
diff changeset
150 let tarfile= a:tarfile
4339
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
151 if has("win32unix") && executable("cygpath")
819
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 624
diff changeset
152 " assuming cygwin
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
153 let tarfile=substitute(system("cygpath -u ".shellescape(tarfile,0)),'\n$','','e')
819
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 624
diff changeset
154 endif
857
b933657f7c9d updated for version 7.0g01
vimboss
parents: 819
diff changeset
155 let curlast= line("$")
819
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 624
diff changeset
156 if tarfile =~# '\.\(gz\|tgz\)$'
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
157 " call Decho("1: exe silent r! gzip -d -c -- ".shellescape(tarfile,1)." | ".g:tar_cmd." -".g:tar_browseoptions." - ")
2908
fd09a9c8468e Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 2535
diff changeset
158 exe "sil! r! gzip -d -c -- ".shellescape(tarfile,1)." | ".g:tar_cmd." -".g:tar_browseoptions." - "
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
159 elseif tarfile =~# '\.lrp'
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
160 " call Decho("2: exe silent r! cat -- ".shellescape(tarfile,1)."|gzip -d -c -|".g:tar_cmd." -".g:tar_browseoptions." - ")
2908
fd09a9c8468e Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 2535
diff changeset
161 exe "sil! r! cat -- ".shellescape(tarfile,1)."|gzip -d -c -|".g:tar_cmd." -".g:tar_browseoptions." - "
3281
af1e8a1714c2 Update runtime files.
Bram Moolenaar <bram@vim.org>
parents: 2908
diff changeset
162 elseif tarfile =~# '\.\(bz2\|tbz\|tb2\)$'
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
163 " call Decho("3: exe silent r! bzip2 -d -c -- ".shellescape(tarfile,1)." | ".g:tar_cmd." -".g:tar_browseoptions." - ")
2908
fd09a9c8468e Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 2535
diff changeset
164 exe "sil! r! bzip2 -d -c -- ".shellescape(tarfile,1)." | ".g:tar_cmd." -".g:tar_browseoptions." - "
3281
af1e8a1714c2 Update runtime files.
Bram Moolenaar <bram@vim.org>
parents: 2908
diff changeset
165 elseif tarfile =~# '\.\(lzma\|tlz\)$'
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
166 " call Decho("3: exe silent r! lzma -d -c -- ".shellescape(tarfile,1)." | ".g:tar_cmd." -".g:tar_browseoptions." - ")
2908
fd09a9c8468e Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 2535
diff changeset
167 exe "sil! r! lzma -d -c -- ".shellescape(tarfile,1)." | ".g:tar_cmd." -".g:tar_browseoptions." - "
2426
e52d87a2bb3e More runtime file updates.
Bram Moolenaar <bram@vim.org>
parents: 2034
diff changeset
168 elseif tarfile =~# '\.\(xz\|txz\)$'
e52d87a2bb3e More runtime file updates.
Bram Moolenaar <bram@vim.org>
parents: 2034
diff changeset
169 " call Decho("3: exe silent r! xz --decompress --stdout -- ".shellescape(tarfile,1)." | ".g:tar_cmd." -".g:tar_browseoptions." - ")
2908
fd09a9c8468e Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 2535
diff changeset
170 exe "sil! r! xz --decompress --stdout -- ".shellescape(tarfile,1)." | ".g:tar_cmd." -".g:tar_browseoptions." - "
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
171 else
1702
5232b9862f23 updated for version 7.2-000
vimboss
parents: 1698
diff changeset
172 if tarfile =~ '^\s*-'
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
173 " A file name starting with a dash is taken as an option. Prepend ./ to avoid that.
1702
5232b9862f23 updated for version 7.2-000
vimboss
parents: 1698
diff changeset
174 let tarfile = substitute(tarfile, '-', './-', '')
5232b9862f23 updated for version 7.2-000
vimboss
parents: 1698
diff changeset
175 endif
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
176 " call Decho("4: exe silent r! ".g:tar_cmd." -".g:tar_browseoptions." ".shellescape(tarfile,0))
2908
fd09a9c8468e Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 2535
diff changeset
177 exe "sil! r! ".g:tar_cmd." -".g:tar_browseoptions." ".shellescape(tarfile,1)
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
178 endif
819
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 624
diff changeset
179 if v:shell_error != 0
1125
96cd8222a819 updated for version 7.1a
vimboss
parents: 857
diff changeset
180 redraw!
857
b933657f7c9d updated for version 7.0g01
vimboss
parents: 819
diff changeset
181 echohl WarningMsg | echo "***warning*** (tar#Browse) please check your g:tar_browseoptions<".g:tar_browseoptions.">"
b933657f7c9d updated for version 7.0g01
vimboss
parents: 819
diff changeset
182 " call Dret("tar#Browse : a:tarfile<".a:tarfile.">")
b933657f7c9d updated for version 7.0g01
vimboss
parents: 819
diff changeset
183 return
b933657f7c9d updated for version 7.0g01
vimboss
parents: 819
diff changeset
184 endif
1125
96cd8222a819 updated for version 7.1a
vimboss
parents: 857
diff changeset
185 if line("$") == curlast || ( line("$") == (curlast + 1) && getline("$") =~ '\c\%(warning\|error\|inappropriate\|unrecognized\)')
96cd8222a819 updated for version 7.1a
vimboss
parents: 857
diff changeset
186 redraw!
857
b933657f7c9d updated for version 7.0g01
vimboss
parents: 819
diff changeset
187 echohl WarningMsg | echo "***warning*** (tar#Browse) ".a:tarfile." doesn't appear to be a tar file" | echohl None
2908
fd09a9c8468e Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 2535
diff changeset
188 keepj sil! %d
857
b933657f7c9d updated for version 7.0g01
vimboss
parents: 819
diff changeset
189 let eikeep= &ei
b933657f7c9d updated for version 7.0g01
vimboss
parents: 819
diff changeset
190 set ei=BufReadCmd,FileReadCmd
1668
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1624
diff changeset
191 exe "r ".fnameescape(a:tarfile)
857
b933657f7c9d updated for version 7.0g01
vimboss
parents: 819
diff changeset
192 let &ei= eikeep
2908
fd09a9c8468e Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 2535
diff changeset
193 keepj sil! 1d
857
b933657f7c9d updated for version 7.0g01
vimboss
parents: 819
diff changeset
194 " call Dret("tar#Browse : a:tarfile<".a:tarfile.">")
819
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 624
diff changeset
195 return
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 624
diff changeset
196 endif
446
7472c565592a updated for version 7.0117
vimboss
parents:
diff changeset
197
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
198 setlocal noma nomod ro
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
199 noremap <silent> <buffer> <cr> :call <SID>TarBrowseSelect()<cr>
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
200
569
bdbdec22a225 updated for version 7.0161
vimboss
parents: 557
diff changeset
201 let &report= repkeep
2535
31e51111bd14 Runtime file updates. Fix tar plugin window split.
Bram Moolenaar <bram@vim.org>
parents: 2426
diff changeset
202 " call Dret("tar#Browse : b:tarfile<".b:tarfile.">")
527
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
203 endfun
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
204
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
205 " ---------------------------------------------------------------------
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
206 " TarBrowseSelect: {{{2
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
207 fun! s:TarBrowseSelect()
2535
31e51111bd14 Runtime file updates. Fix tar plugin window split.
Bram Moolenaar <bram@vim.org>
parents: 2426
diff changeset
208 " call Dfunc("TarBrowseSelect() b:tarfile<".b:tarfile."> curfile<".expand("%").">")
569
bdbdec22a225 updated for version 7.0161
vimboss
parents: 557
diff changeset
209 let repkeep= &report
bdbdec22a225 updated for version 7.0161
vimboss
parents: 557
diff changeset
210 set report=10
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
211 let fname= getline(".")
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
212 " call Decho("fname<".fname.">")
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
213
1702
5232b9862f23 updated for version 7.2-000
vimboss
parents: 1698
diff changeset
214 if !exists("g:tar_secure") && fname =~ '^\s*-\|\s\+-'
5232b9862f23 updated for version 7.2-000
vimboss
parents: 1698
diff changeset
215 redraw!
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
216 echohl WarningMsg | echo '***warning*** (tar#BrowseSelect) rejecting tarfile member<'.fname.'> because of embedded "-"'
1702
5232b9862f23 updated for version 7.2-000
vimboss
parents: 1698
diff changeset
217 " call Dret('tar#BrowseSelect : rejecting tarfile member<'.fname.'> because of embedded "-"')
5232b9862f23 updated for version 7.2-000
vimboss
parents: 1698
diff changeset
218 return
5232b9862f23 updated for version 7.2-000
vimboss
parents: 1698
diff changeset
219 endif
5232b9862f23 updated for version 7.2-000
vimboss
parents: 1698
diff changeset
220
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
221 " sanity check
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
222 if fname =~ '^"'
569
bdbdec22a225 updated for version 7.0161
vimboss
parents: 557
diff changeset
223 let &report= repkeep
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
224 " call Dret("TarBrowseSelect")
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
225 return
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
226 endif
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
227
2535
31e51111bd14 Runtime file updates. Fix tar plugin window split.
Bram Moolenaar <bram@vim.org>
parents: 2426
diff changeset
228 " about to make a new window, need to use b:tarfile
31e51111bd14 Runtime file updates. Fix tar plugin window split.
Bram Moolenaar <bram@vim.org>
parents: 2426
diff changeset
229 let tarfile= b:tarfile
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
230 let curfile= expand("%")
4339
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
231 if has("win32unix") && executable("cygpath")
819
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 624
diff changeset
232 " assuming cygwin
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
233 let tarfile=substitute(system("cygpath -u ".shellescape(tarfile,0)),'\n$','','e')
819
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 624
diff changeset
234 endif
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
235
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
236 new
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
237 if !exists("g:tar_nomax") || g:tar_nomax == 0
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
238 wincmd _
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
239 endif
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
240 let s:tblfile_{winnr()}= curfile
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
241 call tar#Read("tarfile:".tarfile.'::'.fname,1)
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
242 filetype detect
4339
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
243 set nomod
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
244 exe 'com! -buffer -nargs=? -complete=file TarDiff :call tar#Diff(<q-args>,"'.fnameescape(fname).'")'
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
245
569
bdbdec22a225 updated for version 7.0161
vimboss
parents: 557
diff changeset
246 let &report= repkeep
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
247 " call Dret("TarBrowseSelect : s:tblfile_".winnr()."<".s:tblfile_{winnr()}.">")
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
248 endfun
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
249
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
250 " ---------------------------------------------------------------------
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
251 " tar#Read: {{{2
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
252 fun! tar#Read(fname,mode)
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
253 " call Dfunc("tar#Read(fname<".a:fname.">,mode=".a:mode.")")
569
bdbdec22a225 updated for version 7.0161
vimboss
parents: 557
diff changeset
254 let repkeep= &report
bdbdec22a225 updated for version 7.0161
vimboss
parents: 557
diff changeset
255 set report=10
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
256 let tarfile = substitute(a:fname,'tarfile:\(.\{-}\)::.*$','\1','')
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
257 let fname = substitute(a:fname,'tarfile:.\{-}::\(.*\)$','\1','')
4339
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
258 if has("win32unix") && executable("cygpath")
819
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 624
diff changeset
259 " assuming cygwin
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
260 let tarfile=substitute(system("cygpath -u ".shellescape(tarfile,0)),'\n$','','e')
819
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 624
diff changeset
261 endif
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 624
diff changeset
262 " call Decho("tarfile<".tarfile.">")
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 624
diff changeset
263 " call Decho("fname<".fname.">")
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
264
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
265 if fname =~ '\.bz2$' && executable("bzcat")
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
266 let decmp= "|bzcat"
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
267 let doro = 1
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
268 elseif fname =~ '\.gz$' && executable("zcat")
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
269 let decmp= "|zcat"
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
270 let doro = 1
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
271 elseif fname =~ '\.lzma$' && executable("lzcat")
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
272 let decmp= "|lzcat"
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
273 let doro = 1
2426
e52d87a2bb3e More runtime file updates.
Bram Moolenaar <bram@vim.org>
parents: 2034
diff changeset
274 elseif fname =~ '\.xz$' && executable("xzcat")
e52d87a2bb3e More runtime file updates.
Bram Moolenaar <bram@vim.org>
parents: 2034
diff changeset
275 let decmp= "|xzcat"
e52d87a2bb3e More runtime file updates.
Bram Moolenaar <bram@vim.org>
parents: 2034
diff changeset
276 let doro = 1
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
277 else
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
278 let decmp=""
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
279 let doro = 0
2426
e52d87a2bb3e More runtime file updates.
Bram Moolenaar <bram@vim.org>
parents: 2034
diff changeset
280 if fname =~ '\.bz2$\|\.gz$\|\.lzma$\|\.xz$\|\.zip$\|\.Z$'
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
281 setlocal bin
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
282 endif
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
283 endif
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
284
1702
5232b9862f23 updated for version 7.2-000
vimboss
parents: 1698
diff changeset
285 if exists("g:tar_secure")
5232b9862f23 updated for version 7.2-000
vimboss
parents: 1698
diff changeset
286 let tar_secure= " -- "
5232b9862f23 updated for version 7.2-000
vimboss
parents: 1698
diff changeset
287 else
5232b9862f23 updated for version 7.2-000
vimboss
parents: 1698
diff changeset
288 let tar_secure= " "
5232b9862f23 updated for version 7.2-000
vimboss
parents: 1698
diff changeset
289 endif
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
290 if tarfile =~# '\.bz2$'
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
291 " call Decho("7: exe silent r! bzip2 -d -c ".shellescape(tarfile,1)."| ".g:tar_cmd." -".g:tar_readoptions." - ".tar_secure.shellescape(fname,1).decmp)
2908
fd09a9c8468e Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 2535
diff changeset
292 exe "sil! r! bzip2 -d -c -- ".shellescape(tarfile,1)."| ".g:tar_cmd." -".g:tar_readoptions." - ".tar_secure.shellescape(fname,1).decmp
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
293 elseif tarfile =~# '\.\(gz\|tgz\)$'
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
294 " call Decho("5: exe silent r! gzip -d -c -- ".shellescape(tarfile,1)."| ".g:tar_cmd.' -'.g:tar_readoptions.' - '.tar_secure.shellescape(fname,1))
2908
fd09a9c8468e Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 2535
diff changeset
295 exe "sil! r! gzip -d -c -- ".shellescape(tarfile,1)."| ".g:tar_cmd." -".g:tar_readoptions." - ".tar_secure.shellescape(fname,1).decmp
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
296 elseif tarfile =~# '\.lrp$'
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
297 " call Decho("6: exe silent r! cat ".shellescape(tarfile,1)." | gzip -d -c - | ".g:tar_cmd." -".g:tar_readoptions." - ".tar_secure.shellescape(fname,1).decmp)
2908
fd09a9c8468e Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 2535
diff changeset
298 exe "sil! r! cat -- ".shellescape(tarfile,1)." | gzip -d -c - | ".g:tar_cmd." -".g:tar_readoptions." - ".tar_secure.shellescape(fname,1).decmp
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
299 elseif tarfile =~# '\.lzma$'
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
300 " call Decho("7: exe silent r! lzma -d -c ".shellescape(tarfile,1)."| ".g:tar_cmd." -".g:tar_readoptions." - ".tar_secure.shellescape(fname,1).decmp)
2908
fd09a9c8468e Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 2535
diff changeset
301 exe "sil! r! lzma -d -c -- ".shellescape(tarfile,1)."| ".g:tar_cmd." -".g:tar_readoptions." - ".tar_secure.shellescape(fname,1).decmp
2426
e52d87a2bb3e More runtime file updates.
Bram Moolenaar <bram@vim.org>
parents: 2034
diff changeset
302 elseif tarfile =~# '\.\(xz\|txz\)$'
e52d87a2bb3e More runtime file updates.
Bram Moolenaar <bram@vim.org>
parents: 2034
diff changeset
303 " call Decho("3: exe silent r! xz --decompress --stdout -- ".shellescape(tarfile,1)." | ".g:tar_cmd." -".g:tar_readoptions." - ".tar_secure.shellescape(fname,1).decmp)
2908
fd09a9c8468e Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 2535
diff changeset
304 exe "sil! r! xz --decompress --stdout -- ".shellescape(tarfile,1)." | ".g:tar_cmd." -".g:tar_readoptions." - ".tar_secure.shellescape(fname,1).decmp
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
305 else
1702
5232b9862f23 updated for version 7.2-000
vimboss
parents: 1698
diff changeset
306 if tarfile =~ '^\s*-'
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
307 " A file name starting with a dash is taken as an option. Prepend ./ to avoid that.
1702
5232b9862f23 updated for version 7.2-000
vimboss
parents: 1698
diff changeset
308 let tarfile = substitute(tarfile, '-', './-', '')
5232b9862f23 updated for version 7.2-000
vimboss
parents: 1698
diff changeset
309 endif
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
310 " call Decho("8: exe silent r! ".g:tar_cmd." -".g:tar_readoptions.tar_secure.shellescape(tarfile,1)." ".shellescape(fname,1).decmp)
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
311 exe "silent r! ".g:tar_cmd." -".g:tar_readoptions.shellescape(tarfile,1)." ".tar_secure.shellescape(fname,1).decmp
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
312 endif
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
313
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
314 if doro
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
315 " because the reverse process of compressing changed files back into the tarball is not currently supported
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
316 setlocal ro
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
317 endif
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
318
2535
31e51111bd14 Runtime file updates. Fix tar plugin window split.
Bram Moolenaar <bram@vim.org>
parents: 2426
diff changeset
319 let b:tarfile= a:fname
1668
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1624
diff changeset
320 exe "file tarfile::".fnameescape(fname)
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
321
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
322 " cleanup
2908
fd09a9c8468e Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 2535
diff changeset
323 keepj sil! 0d
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
324 set nomod
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
325
569
bdbdec22a225 updated for version 7.0161
vimboss
parents: 557
diff changeset
326 let &report= repkeep
2535
31e51111bd14 Runtime file updates. Fix tar plugin window split.
Bram Moolenaar <bram@vim.org>
parents: 2426
diff changeset
327 " call Dret("tar#Read : b:tarfile<".b:tarfile.">")
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
328 endfun
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
329
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
330 " ---------------------------------------------------------------------
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
331 " tar#Write: {{{2
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
332 fun! tar#Write(fname)
2535
31e51111bd14 Runtime file updates. Fix tar plugin window split.
Bram Moolenaar <bram@vim.org>
parents: 2426
diff changeset
333 " call Dfunc("tar#Write(fname<".a:fname.">) b:tarfile<".b:tarfile."> tblfile_".winnr()."<".s:tblfile_{winnr()}.">")
569
bdbdec22a225 updated for version 7.0161
vimboss
parents: 557
diff changeset
334 let repkeep= &report
bdbdec22a225 updated for version 7.0161
vimboss
parents: 557
diff changeset
335 set report=10
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
336
1702
5232b9862f23 updated for version 7.2-000
vimboss
parents: 1698
diff changeset
337 if !exists("g:tar_secure") && a:fname =~ '^\s*-\|\s\+-'
5232b9862f23 updated for version 7.2-000
vimboss
parents: 1698
diff changeset
338 redraw!
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
339 echohl WarningMsg | echo '***warning*** (tar#Write) rejecting tarfile member<'.a:fname.'> because of embedded "-"'
1702
5232b9862f23 updated for version 7.2-000
vimboss
parents: 1698
diff changeset
340 " call Dret('tar#Write : rejecting tarfile member<'.fname.'> because of embedded "-"')
5232b9862f23 updated for version 7.2-000
vimboss
parents: 1698
diff changeset
341 return
5232b9862f23 updated for version 7.2-000
vimboss
parents: 1698
diff changeset
342 endif
5232b9862f23 updated for version 7.2-000
vimboss
parents: 1698
diff changeset
343
527
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
344 " sanity checks
819
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 624
diff changeset
345 if !executable(g:tar_cmd)
1125
96cd8222a819 updated for version 7.1a
vimboss
parents: 857
diff changeset
346 redraw!
819
23f82b5d2814 updated for version 7.0c10
vimboss
parents: 624
diff changeset
347 echohl Error | echo '***error*** (tar#Browse) "'.g:tar_cmd.'" not available on your system'
569
bdbdec22a225 updated for version 7.0161
vimboss
parents: 557
diff changeset
348 let &report= repkeep
527
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
349 " call Dret("tar#Write")
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
350 return
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
351 endif
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
352 if !exists("*mkdir")
1125
96cd8222a819 updated for version 7.1a
vimboss
parents: 857
diff changeset
353 redraw!
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
354 echohl Error | echo "***error*** (tar#Write) sorry, mkdir() doesn't work on your system" | echohl None
569
bdbdec22a225 updated for version 7.0161
vimboss
parents: 557
diff changeset
355 let &report= repkeep
527
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
356 " call Dret("tar#Write")
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
357 return
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
358 endif
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
359
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
360 let curdir= getcwd()
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
361 let tmpdir= tempname()
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
362 " call Decho("orig tempname<".tmpdir.">")
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
363 if tmpdir =~ '\.'
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
364 let tmpdir= substitute(tmpdir,'\.[^.]*$','','e')
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
365 endif
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
366 " call Decho("tmpdir<".tmpdir.">")
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
367 call mkdir(tmpdir,"p")
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
368
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
369 " attempt to change to the indicated directory
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
370 try
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
371 exe "cd ".fnameescape(tmpdir)
527
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
372 catch /^Vim\%((\a\+)\)\=:E344/
1125
96cd8222a819 updated for version 7.1a
vimboss
parents: 857
diff changeset
373 redraw!
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
374 echohl Error | echo "***error*** (tar#Write) cannot cd to temporary directory" | Echohl None
569
bdbdec22a225 updated for version 7.0161
vimboss
parents: 557
diff changeset
375 let &report= repkeep
527
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
376 " call Dret("tar#Write")
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
377 return
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
378 endtry
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
379 " call Decho("current directory now: ".getcwd())
446
7472c565592a updated for version 7.0117
vimboss
parents:
diff changeset
380
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
381 " place temporary files under .../_ZIPVIM_/
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
382 if isdirectory("_ZIPVIM_")
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
383 call s:Rmdir("_ZIPVIM_")
527
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
384 endif
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
385 call mkdir("_ZIPVIM_")
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
386 cd _ZIPVIM_
527
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
387 " call Decho("current directory now: ".getcwd())
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
388
2535
31e51111bd14 Runtime file updates. Fix tar plugin window split.
Bram Moolenaar <bram@vim.org>
parents: 2426
diff changeset
389 let tarfile = substitute(b:tarfile,'tarfile:\(.\{-}\)::.*$','\1','')
31e51111bd14 Runtime file updates. Fix tar plugin window split.
Bram Moolenaar <bram@vim.org>
parents: 2426
diff changeset
390 let fname = substitute(b:tarfile,'tarfile:.\{-}::\(.*\)$','\1','')
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
391
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
392 " handle compressed archives
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
393 if tarfile =~# '\.bz2'
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
394 call system("bzip2 -d -- ".shellescape(tarfile,0))
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
395 let tarfile = substitute(tarfile,'\.bz2','','e')
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
396 let compress= "bzip2 -- ".shellescape(tarfile,0)
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
397 " call Decho("compress<".compress.">")
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
398 elseif tarfile =~# '\.gz'
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
399 call system("gzip -d -- ".shellescape(tarfile,0))
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
400 let tarfile = substitute(tarfile,'\.gz','','e')
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
401 let compress= "gzip -- ".shellescape(tarfile,0)
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
402 " call Decho("compress<".compress.">")
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
403 elseif tarfile =~# '\.tgz'
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
404 call system("gzip -d -- ".shellescape(tarfile,0))
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
405 let tarfile = substitute(tarfile,'\.tgz','.tar','e')
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
406 let compress= "gzip -- ".shellescape(tarfile,0)
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
407 let tgz = 1
1702
5232b9862f23 updated for version 7.2-000
vimboss
parents: 1698
diff changeset
408 " call Decho("compress<".compress.">")
2426
e52d87a2bb3e More runtime file updates.
Bram Moolenaar <bram@vim.org>
parents: 2034
diff changeset
409 elseif tarfile =~# '\.xz'
e52d87a2bb3e More runtime file updates.
Bram Moolenaar <bram@vim.org>
parents: 2034
diff changeset
410 call system("xz -d -- ".shellescape(tarfile,0))
e52d87a2bb3e More runtime file updates.
Bram Moolenaar <bram@vim.org>
parents: 2034
diff changeset
411 let tarfile = substitute(tarfile,'\.xz','','e')
e52d87a2bb3e More runtime file updates.
Bram Moolenaar <bram@vim.org>
parents: 2034
diff changeset
412 let compress= "xz -- ".shellescape(tarfile,0)
e52d87a2bb3e More runtime file updates.
Bram Moolenaar <bram@vim.org>
parents: 2034
diff changeset
413 " call Decho("compress<".compress.">")
e52d87a2bb3e More runtime file updates.
Bram Moolenaar <bram@vim.org>
parents: 2034
diff changeset
414 elseif tarfile =~# '\.lzma'
e52d87a2bb3e More runtime file updates.
Bram Moolenaar <bram@vim.org>
parents: 2034
diff changeset
415 call system("lzma -d -- ".shellescape(tarfile,0))
e52d87a2bb3e More runtime file updates.
Bram Moolenaar <bram@vim.org>
parents: 2034
diff changeset
416 let tarfile = substitute(tarfile,'\.lzma','','e')
e52d87a2bb3e More runtime file updates.
Bram Moolenaar <bram@vim.org>
parents: 2034
diff changeset
417 let compress= "lzma -- ".shellescape(tarfile,0)
e52d87a2bb3e More runtime file updates.
Bram Moolenaar <bram@vim.org>
parents: 2034
diff changeset
418 " call Decho("compress<".compress.">")
527
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
419 endif
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
420 " call Decho("tarfile<".tarfile.">")
527
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
421
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
422 if v:shell_error != 0
1125
96cd8222a819 updated for version 7.1a
vimboss
parents: 857
diff changeset
423 redraw!
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
424 echohl Error | echo "***error*** (tar#Write) sorry, unable to update ".tarfile." with ".fname | echohl None
527
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
425 else
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
426
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
427 " call Decho("tarfile<".tarfile."> fname<".fname.">")
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
428
624
91e7d4a7b3b0 updated for version 7.0178
vimboss
parents: 569
diff changeset
429 if fname =~ '/'
91e7d4a7b3b0 updated for version 7.0178
vimboss
parents: 569
diff changeset
430 let dirpath = substitute(fname,'/[^/]\+$','','e')
4339
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
431 if has("win32unix") && executable("cygpath")
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
432 let dirpath = substitute(system("cygpath ".shellescape(dirpath, 0)),'\n','','e')
624
91e7d4a7b3b0 updated for version 7.0178
vimboss
parents: 569
diff changeset
433 endif
91e7d4a7b3b0 updated for version 7.0178
vimboss
parents: 569
diff changeset
434 call mkdir(dirpath,"p")
91e7d4a7b3b0 updated for version 7.0178
vimboss
parents: 569
diff changeset
435 endif
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
436 if tarfile !~ '/'
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
437 let tarfile= curdir.'/'.tarfile
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
438 endif
1702
5232b9862f23 updated for version 7.2-000
vimboss
parents: 1698
diff changeset
439 if tarfile =~ '^\s*-'
5232b9862f23 updated for version 7.2-000
vimboss
parents: 1698
diff changeset
440 " A file name starting with a dash may be taken as an option. Prepend ./ to avoid that.
5232b9862f23 updated for version 7.2-000
vimboss
parents: 1698
diff changeset
441 let tarfile = substitute(tarfile, '-', './-', '')
5232b9862f23 updated for version 7.2-000
vimboss
parents: 1698
diff changeset
442 endif
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
443 " call Decho("tarfile<".tarfile."> fname<".fname.">")
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
444
1702
5232b9862f23 updated for version 7.2-000
vimboss
parents: 1698
diff changeset
445 if exists("g:tar_secure")
5232b9862f23 updated for version 7.2-000
vimboss
parents: 1698
diff changeset
446 let tar_secure= " -- "
5232b9862f23 updated for version 7.2-000
vimboss
parents: 1698
diff changeset
447 else
5232b9862f23 updated for version 7.2-000
vimboss
parents: 1698
diff changeset
448 let tar_secure= " "
5232b9862f23 updated for version 7.2-000
vimboss
parents: 1698
diff changeset
449 endif
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
450 exe "w! ".fnameescape(fname)
4339
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
451 if has("win32unix") && executable("cygpath")
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
452 let tarfile = substitute(system("cygpath ".shellescape(tarfile,0)),'\n','','e')
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
453 endif
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
454
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
455 " delete old file from tarfile
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
456 " call Decho("system(".g:tar_cmd." --delete -f ".shellescape(tarfile,0)." -- ".shellescape(fname,0).")")
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
457 call system(g:tar_cmd." --delete -f ".shellescape(tarfile,0).tar_secure.shellescape(fname,0))
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
458 if v:shell_error != 0
1125
96cd8222a819 updated for version 7.1a
vimboss
parents: 857
diff changeset
459 redraw!
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
460 echohl Error | echo "***error*** (tar#Write) sorry, unable to update ".fnameescape(tarfile)." with ".fnameescape(fname) | echohl None
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
461 else
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
462
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
463 " update tarfile with new file
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
464 " call Decho(g:tar_cmd." -".g:tar_writeoptions." ".shellescape(tarfile,0).tar_secure.shellescape(fname,0))
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
465 call system(g:tar_cmd." -".g:tar_writeoptions." ".shellescape(tarfile,0).tar_secure.shellescape(fname,0))
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
466 if v:shell_error != 0
1125
96cd8222a819 updated for version 7.1a
vimboss
parents: 857
diff changeset
467 redraw!
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
468 echohl Error | echo "***error*** (tar#Write) sorry, unable to update ".fnameescape(tarfile)." with ".fnameescape(fname) | echohl None
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
469 elseif exists("compress")
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
470 " call Decho("call system(".compress.")")
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
471 call system(compress)
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
472 if exists("tgz")
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
473 " call Decho("rename(".tarfile.".gz,".substitute(tarfile,'\.tar$','.tgz','e').")")
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
474 call rename(tarfile.".gz",substitute(tarfile,'\.tar$','.tgz','e'))
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
475 endif
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
476 endif
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
477 endif
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
478
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
479 " support writing tarfiles across a network
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
480 if s:tblfile_{winnr()} =~ '^\a\+://'
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
481 " call Decho("handle writing <".tarfile."> across network to <".s:tblfile_{winnr()}.">")
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
482 let tblfile= s:tblfile_{winnr()}
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
483 1split|enew
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
484 let binkeep= &l:binary
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
485 let eikeep = &ei
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
486 set binary ei=all
1668
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1624
diff changeset
487 exe "e! ".fnameescape(tarfile)
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
488 call netrw#NetWrite(tblfile)
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
489 let &ei = eikeep
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
490 let &l:binary = binkeep
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
491 q!
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
492 unlet s:tblfile_{winnr()}
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
493 endif
527
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
494 endif
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
495
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
496 " cleanup and restore current directory
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
497 cd ..
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
498 call s:Rmdir("_ZIPVIM_")
1668
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1624
diff changeset
499 exe "cd ".fnameescape(curdir)
527
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
500 setlocal nomod
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
501
569
bdbdec22a225 updated for version 7.0161
vimboss
parents: 557
diff changeset
502 let &report= repkeep
527
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
503 " call Dret("tar#Write")
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
504 endfun
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
505
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
506 " ---------------------------------------------------------------------
4339
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
507 " tar#Diff: {{{2
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
508 fun! tar#Diff(userfname,fname)
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
509 " call Dfunc("tar#Diff(userfname<".a:userfname."> fname<".a:fname.")")
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
510 let fname= a:fname
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
511 if a:userfname != ""
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
512 let fname= a:userfname
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
513 endif
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
514 if filereadable(fname)
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
515 " sets current file (from tarball) for diff'ing
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
516 " splits window vertically
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
517 " opens original file, sets it for diff'ing
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
518 " sets up b:tardiff_otherbuf variables so each buffer knows about the other (for closing purposes)
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
519 diffthis
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
520 wincmd v
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
521 exe "e ".fnameescape(fname)
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
522 diffthis
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
523 else
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
524 redraw!
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
525 echo "***warning*** unable to read file<".fname.">"
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
526 endif
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
527 " call Dret("tar#Diff")
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
528 endfun
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
529
22fa3049e934 Updated runtime files.
Bram Moolenaar <bram@vim.org>
parents: 3281
diff changeset
530 " ---------------------------------------------------------------------
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
531 " s:Rmdir: {{{2
527
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
532 fun! s:Rmdir(fname)
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
533 " call Dfunc("Rmdir(fname<".a:fname.">)")
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
534 if has("unix")
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
535 call system("/bin/rm -rf -- ".shellescape(a:fname,0))
527
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
536 elseif has("win32") || has("win95") || has("win64") || has("win16")
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
537 if &shell =~? "sh$"
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
538 call system("/bin/rm -rf -- ".shellescape(a:fname,0))
527
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
539 else
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
540 call system("del /S ".shellescape(a:fname,0))
527
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
541 endif
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
542 endif
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
543 " call Dret("Rmdir")
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
544 endfun
93a822c9e3d2 updated for version 7.0147
vimboss
parents: 446
diff changeset
545
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
546 " ---------------------------------------------------------------------
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
547 " tar#Vimuntar: installs a tarball in the user's .vim / vimfiles directory {{{2
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
548 fun! tar#Vimuntar(...)
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
549 " call Dfunc("tar#Vimuntar() a:0=".a:0." a:1<".(exists("a:1")? a:1 : "-n/a-").">")
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
550 let tarball = expand("%")
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
551 " call Decho("tarball<".tarball.">")
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
552 let tarbase = substitute(tarball,'\..*$','','')
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
553 " call Decho("tarbase<".tarbase.">")
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
554 let tarhome = expand("%:p")
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
555 if has("win32") || has("win95") || has("win64") || has("win16")
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
556 let tarhome= substitute(tarhome,'\\','/','g')
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
557 endif
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
558 let tarhome= substitute(tarhome,'/[^/]*$','','')
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
559 " call Decho("tarhome<".tarhome.">")
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
560 let tartail = expand("%:t")
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
561 " call Decho("tartail<".tartail.">")
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
562 let curdir = getcwd()
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
563 " call Decho("curdir <".curdir.">")
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
564 " set up vimhome
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
565 if a:0 > 0 && a:1 != ""
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
566 let vimhome= a:1
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
567 else
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
568 let vimhome= vimball#VimballHome()
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
569 endif
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
570 " call Decho("vimhome<".vimhome.">")
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
571
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
572 " call Decho("curdir<".curdir."> vimhome<".vimhome.">")
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
573 if simplify(curdir) != simplify(vimhome)
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
574 " copy (possibly compressed) tarball to .vim/vimfiles
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
575 " call Decho(netrw#WinPath(g:tar_copycmd)." ".shellescape(tartail)." ".shellescape(vimhome))
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
576 call system(netrw#WinPath(g:tar_copycmd)." ".shellescape(tartail)." ".shellescape(vimhome))
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
577 " call Decho("exe cd ".fnameescape(vimhome))
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
578 exe "cd ".fnameescape(vimhome)
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
579 endif
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
580 " call Decho("getcwd<".getcwd().">")
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
581
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
582 " if necessary, decompress the tarball; then, extract it
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
583 if tartail =~ '\.tgz'
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
584 if executable("gunzip")
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
585 silent exe "!gunzip ".shellescape(tartail)
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
586 elseif executable("gzip")
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
587 silent exe "!gzip -d ".shellescape(tartail)
1668
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1624
diff changeset
588 else
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
589 echoerr "unable to decompress<".tartail."> on this sytem"
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
590 if simplify(curdir) != simplify(tarhome)
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
591 " remove decompressed tarball, restore directory
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
592 " call Decho("delete(".tartail.".tar)")
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
593 call delete(tartail.".tar")
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
594 " call Decho("exe cd ".fnameescape(curdir))
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
595 exe "cd ".fnameescape(curdir)
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
596 endif
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
597 " call Dret("tar#Vimuntar")
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
598 return
1668
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1624
diff changeset
599 endif
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
600 else
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
601 call vimball#Decompress(tartail,0)
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
602 endif
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
603 let extractcmd= netrw#WinPath(g:tar_extractcmd)
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
604 " call Decho("system(".extractcmd." ".shellescape(tarbase.".tar").")")
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
605 call system(extractcmd." ".shellescape(tarbase.".tar"))
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
606
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
607 " set up help
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
608 if filereadable("doc/".tarbase.".txt")
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
609 " call Decho("exe helptags ".getcwd()."/doc")
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
610 exe "helptags ".getcwd()."/doc"
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
611 endif
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
612
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
613 if simplify(tarhome) != simplify(vimhome)
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
614 " remove decompressed tarball, restore directory
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
615 call delete(vimhome."/".tarbase.".tar")
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
616 exe "cd ".fnameescape(curdir)
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
617 endif
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
618
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
619 " call Dret("tar#Vimuntar")
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
620 endfun
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
621
2034
7bc41231fbc7 Update runtime files.
Bram Moolenaar <bram@zimbu.org>
parents: 1702
diff changeset
622 " =====================================================================
557
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
623 " Modelines And Restoration: {{{1
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
624 let &cpo= s:keepcpo
862863033fdd updated for version 7.0158
vimboss
parents: 527
diff changeset
625 unlet s:keepcpo
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1125
diff changeset
626 " vim:ts=8 fdm=marker