]> ruderich.org/simon Gitweb - config/dotfiles.git/blob - vim/vim/bundle/deb/autoload/deb.vim
vim/vimrc: use cryptmethod=blowfish2 if available
[config/dotfiles.git] / vim / vim / bundle / deb / autoload / deb.vim
1 " Vim autoload file for browsing debian package.
2 " copyright (C) 2007-2008, arno renevier <arenevier@fdn.fr>
3 " Distributed under the GNU General Public License (version 2 or above)
4 " Last Change: 2008 april 1
5
6 " Inspired by autoload/tar.vim by Charles E Campbell
7 "
8 " Latest version of that file can be found at
9 " http://www.fdn.fr/~arenevier/vim/autoload/deb.vim
10 " It should also be available at
11 " http://www.vim.org/scripts/script.php?script_id=1970
12
13 if &cp || exists("g:loaded_deb") || v:version < 700
14     finish
15 endif
16 let g:loaded_deb= "v1.4"
17
18 fun! deb#read(debfile, member)
19
20     " checks if ar and tar are installed
21     if !s:hascmd("ar") || !s:hascmd("tar")
22         return
23     endif
24
25     let l:target = a:member
26
27     let l:archmember = s:dataFileName(a:debfile) " default archive member to extract
28     if l:archmember == ""
29         echohl WarningMsg | echo "***error*** (deb#read) no valid data file found in debian archive"
30         return
31     elseif l:archmember == "data.tar.gz"
32         let l:unpcmp = "tar zxfO "
33     elseif l:archmember == "data.tar.bz2"
34         let l:unpcmp = "tar jxfO "
35     elseif l:archmember == "data.tar.lzma"
36         if !s:hascmd("lzma")
37             return
38         endif
39         let l:unpcmp = "lzma -d | tar xfO "
40     elseif l:archmember == "data.tar"
41         let l:unpcmp = "tar xfO "
42     endif
43
44     if a:member =~ '^\* ' " information control file
45         let l:archmember = "control.tar.gz"
46         let l:target = substitute(l:target, "^\* ", "", "")
47         let l:unpcmp = "tar zxfO "
48     elseif a:member =~ ' -> ' " symbolic link
49         let l:target = split(a:member,' -> ')[0]
50         let l:linkname = split(a:member,' -> ')[1]
51
52         if l:linkname =~ "^\/" " direct symlink: path is already absolute
53             let l:target = ".".l:linkname
54
55         else 
56         " transform relative path to absolute path
57
58             " first, get basename for target
59             let l:target = substitute(l:target, "\/[^/]*$", "", "")
60
61             " while it begins with ../
62             while l:linkname =~ "^\.\.\/" 
63
64                 " removes one level of ../ in linkname
65                 let l:linkname = substitute(l:linkname, "^\.\.\/", "", "")
66
67                 " go one directory up in target
68                 let l:target = substitute(l:target, "\/[^/]*$", "", "")
69             endwhile
70
71             let l:target = l:target."/".l:linkname
72         endif
73     endif
74     
75     " we may preprocess some files (such as man pages, or changelogs)
76     let l:preproccmd = ""
77         
78     "
79     " unzip man pages
80     "
81     if l:target =~ "\.\/usr\/share\/man\/.*\.gz$"
82         
83         " try to fail gracefully if a command is not available
84         if !s:hascmd("gzip")
85             return
86         elseif !s:hascmd("nroff") 
87             let l:preproccmd = "| gzip -cd"
88         elseif !s:hascmd("col")
89             let l:preproccmd = "| gzip -cd | nroff -mandoc"
90         else
91             let l:preproccmd = "| gzip -cd | nroff -mandoc | col -b"
92         endif
93     
94     "
95     " unzip other .gz files
96     "
97     elseif l:target =~ '.*\.gz$'
98         if !s:hascmd("gzip")
99             return
100         endif
101         let l:preproccmd = "| gzip -cd"
102     endif
103
104     " read content
105     exe "silent r! ar p " . s:QuoteFile(a:debfile) . " " . s:QuoteFile(l:archmember) . " | " . l:unpcmp . " - " . s:QuoteFile(l:target) . l:preproccmd
106     " error will be treated in calling function
107     if v:shell_error != 0
108         return
109     endif
110
111     exe "file deb:".l:target
112
113     0d
114
115     setlocal nomodifiable nomodified readonly
116
117 endfun
118
119 fun! deb#browse(file)
120
121     " checks if necessary utils are installed
122     if !s:hascmd("dpkg") || !s:hascmd("ar") || !s:hascmd("tar")
123         return
124     endif
125
126     " checks if file is readable
127     if !filereadable(a:file)
128         return
129     endif
130     if a:file =~ "'"
131         echohl WarningMsg | echo "***error*** (deb#Browse) filename cannot contain quote character (" . a:file . ")"
132         return
133     endif
134
135     let keepmagic = &magic
136     set magic
137
138     " set filetype to "deb"
139     set ft=deb
140
141     setlocal modifiable noreadonly
142
143     " set header
144     exe "$put ='".'\"'." deb.vim version ".g:loaded_deb."'"
145     exe "$put ='".'\"'." Browsing debian package ".a:file."'"
146     $put=''
147
148     " package info
149     "exe "silent read! dpkg -I ".a:file
150     "$put=''
151
152     " display information control files
153     let l:infopos = line(".")
154     exe "silent read! ar p " . s:QuoteFile(a:file) . " control.tar.gz | tar zt"
155
156     $put=''
157
158     " display data files
159     let l:listpos = line(".")
160     exe "silent read! dpkg -c ". s:QuoteFile(a:file)
161
162     " format information control list
163     " removes '* ./' line
164     exe (l:infopos + 1). 'd'
165     " add a star before each line
166     exe "silent " . (l:infopos + 1). ',' . (l:listpos - 2) . 's/^/\* /'
167     
168     " format data list
169     exe "silent " . l:listpos . ',$s/^.*\s\(\.\/\(\S\|\).*\)$/\1/'
170     
171     if v:shell_error != 0
172         echohl WarningMsg | echo "***warning*** (deb#Browse) error when listing content of " . a:file
173         let &magic = keepmagic
174         return
175     endif
176
177     0d
178
179     setlocal nomodifiable readonly
180     noremap <silent> <buffer> <cr> :call <SID>DebBrowseSelect()<cr>
181     let &magic = keepmagic
182
183 endfun
184
185 fun! s:DebBrowseSelect()
186     let l:fname= getline(".")
187
188     " sanity check
189     if (l:fname !~ '^\.\/') && (l:fname !~ '^\* \.\/')
190         return
191     endif
192     if l:fname =~ "'"
193         echohl WarningMsg | echo "***error*** (DebBrowseSelect) filename cannot contain quote character (" . l:fname . ")"
194         return
195     endif
196
197     " do nothing on directories
198     " TODO: find a way to detect symlinks to directories, to be able not to
199     " open them
200     if (l:fname =~ '\/$')
201         return
202     endif
203
204     " need to get it now since a new window will open
205     let l:curfile= expand("%")
206    
207     " open new window
208     new
209     wincmd _
210
211     call deb#read(l:curfile, l:fname)
212
213     if v:shell_error != 0
214         echohl WarningMsg | echo "***warning*** (DebBrowseSelect) error when reading " . l:fname
215         return
216     endif
217
218     filetype detect
219
220     " zipped files, are unziped in deb#read, but filetype may not
221     " automatically work.
222     if l:fname =~ "\.\/usr\/share\/man\/.*\.gz$"
223         set filetype=man
224     elseif l:fname =~ "\.\/usr\/share\/doc\/.*\/changelog.Debian.gz$"
225         set filetype=debchangelog
226     endif
227
228 endfun
229
230 " return data file name for debian package. This can be either data.tar.gz,
231 " data.tar.bz2 or data.tar.lzma
232 fun s:dataFileName(deb)
233     for fn in ["data.tar.gz", "data.tar.bz2", "data.tar.lzma", "data.tar"]
234         " [0:-2] is to remove trailing null character from command output
235         if (system("ar t " . "'" . a:deb . "'" . " " . fn))[0:-2] == fn
236             return fn
237         endif
238     endfor
239     return "" " no debian data format in this archive
240 endfun
241
242 fun s:QuoteFile(file)
243     " we need to escape %, #, <, and >
244     " see :help cmdline-specialk
245     return "'" .  substitute(a:file, '\([%#<>]\)', '\\\1', 'g') . "'"
246 endfun
247
248 " return 1 if cmd exists
249 " display error message and return 0 otherwise
250 fun s:hascmd(cmd)
251     if executable(a:cmd)
252         return 1
253     else
254         echohl Error | echo "***error*** " . a:cmd . " not available on your system"
255         return 0
256     else
257 endfu
258