Support deb files with .tar.xz control and data files

autoload/deb.vim

@@ -1,7 +1,7 @@
 " Vim autoload file for browsing debian package.
 " copyright (C) 2007-2008, arno renevier <[email protected]>
 " Distributed under the GNU General Public License (version 2 or above)
-" Last Change: 2008 april 1
+" Last Change: 2018 June 17
 " 
 " Inspired by autoload/tar.vim by Charles E Campbell
 "
@@ -37,14 +37,23 @@ fun! deb#read(debfile, member)
             return
         endif
         let l:unpcmp = "lzma -d | tar xfO "
+    elseif l:archmember == "data.tar.xz"
+        let l:unpcmp = "tar JxfO "
     elseif l:archmember == "data.tar"
         let l:unpcmp = "tar xfO "
     endif
 
     if a:member =~ '^\* ' " information control file
-        let l:archmember = "control.tar.gz"
+        let l:archmember = s:controlFileName(a:debfile)
+        if l:archmember == ""
+            echohl WarningMsg | echo "***error*** (deb#read) no valid control file found in debian archive"
+            return
+        elseif l:archmember == "control.tar.gz"
+            let l:unpcmp = "tar zxfO "
+        elseif l:archmember == "control.tar.xz"
+            let l:unpcmp = "tar JxfO "
+        endif
         let l:target = substitute(l:target, "^\* ", "", "")
-        let l:unpcmp = "tar zxfO "
     elseif a:member =~ ' -> ' " symbolic link
         let l:target = split(a:member,' -> ')[0]
         let l:linkname = split(a:member,' -> ')[1]
@@ -151,7 +160,16 @@ fun! deb#browse(file)
 
     " display information control files
     let l:infopos = line(".")
-    exe "silent read! ar p " . s:QuoteFile(a:file) . " control.tar.gz | tar zt"
+
+    let l:archmember = s:controlFileName(a:file)
+    if l:archmember == ""
+        echohl WarningMsg | echo "***error*** (deb#browse) no valid control file found in debian archive"
+        return
+    elseif l:archmember == "control.tar.gz"
+        exe "silent read! ar p " . s:QuoteFile(a:file) . " control.tar.gz | tar zt"
+    elseif l:archmember == "control.tar.xz"
+        exe "silent read! ar p " . s:QuoteFile(a:file) . " control.tar.xz | tar Jt"
+    endif
 
     $put=''
 
@@ -228,9 +246,9 @@ fun! s:DebBrowseSelect()
 endfun
 
 " return data file name for debian package. This can be either data.tar.gz,
-" data.tar.bz2 or data.tar.lzma
+" data.tar.bz2, data.tar.lzma or data.tar.xz (plus unpacked data.tar)
 fun s:dataFileName(deb)
-    for fn in ["data.tar.gz", "data.tar.bz2", "data.tar.lzma", "data.tar"]
+    for fn in ["data.tar.gz", "data.tar.bz2", "data.tar.lzma", "data.tar.xz", "data.tar"]
         " [0:-2] is to remove trailing null character from command output
         if (system("ar t " . "'" . a:deb . "'" . " " . fn))[0:-2] == fn
             return fn
@@ -239,6 +257,18 @@ fun s:dataFileName(deb)
     return "" " no debian data format in this archive
 endfun
 
+" return control file name for debian package. This can be either
+" control.tar.gz or control.tar.xz
+fun s:controlFileName(deb)
+    for fn in ["control.tar.gz", "control.tar.xz"]
+        " [0:-2] is to remove trailing null character from command output
+        if (system("ar t " . "'" . a:deb . "'" . " " . fn))[0:-2] == fn
+            return fn
+        endif
+    endfor
+    return "" " no debian control file in this archive
+endfun
+
 fun s:QuoteFile(file)
     " we need to escape %, #, <, and >
     " see :help cmdline-specialk

plugin/debPlugin.vim

@@ -16,3 +16,4 @@ endif
 let g:loaded_debPlugin = 1
 
 autocmd BufReadCmd   *.deb		call deb#browse(expand("<amatch>"))
+autocmd BufReadCmd   *.ipk		call deb#browse(expand("<amatch>"))