- for fn in ["data.tar.gz", "data.tar.bz2", "data.tar.lzma", "data.tar.xz", "data.tar"]
+ return s:findFileName(a:deb, ["data.tar.gz", "data.tar.bz2", "data.tar.lzma", "data.tar.xz", "data.tar"])
+endfun
+
+" return string which is the base command for uncompressing the given
+" archive member. Further tar options can be appended to the string to view
+" or extract the contents.
+fun s:uncmp(member)
+ return {
+ \ 'gz': 'tar z',
+ \ 'bz2': 'tar j',
+ \ 'lzma': 'lzma -d | tar ',
+ \ 'xz': 'tar J',
+ \ 'tar': 'tar ',
+ \}[fnamemodify(a:member, ':e')]
+endfun
+
+" return a file name for debian package. This will be the first match from
+" the files passed as arguments.
+fun s:findFileName(deb, list)
+ for fn in a:list