add support for extracting IPKG packages
[shellsnippets/shellsnippets.git] / mksh / debian-dev / debextract
1 #!/bin/mksh
2 #-
3 # Copyright © 2014, 2018
4 #       mirabilos <t.glaser@tarent.de>
5 #
6 # Provided that these terms and disclaimer and all copyright notices
7 # are retained or reproduced in an accompanying document, permission
8 # is granted to deal in this work without restriction, including un‐
9 # limited rights to use, publicly perform, distribute, sell, modify,
10 # merge, give away, or sublicence.
11 #
12 # This work is provided “AS IS” and WITHOUT WARRANTY of any kind, to
13 # the utmost extent permitted by applicable law, neither express nor
14 # implied; without malicious intent or gross negligence. In no event
15 # may a licensor, author or contributor be held liable for indirect,
16 # direct, other damage, loss, or other issues arising in any way out
17 # of dealing in the work, even if advised of the possibility of such
18 # damage or existence of a defect, except proven that it results out
19 # of said person’s immediate fault when using the work as intended.
20
21 function die {
22         print -ru2 -- "E: $*"
23         exit 1
24 }
25
26 [[ -s $1 ]] || die need package to extract
27
28 cd "$(realpath "$1/..")" || die cannot cd
29 fn=${1##*/}
30
31 [[ $fn = *.dsc ]] && exec dpkg-source -x "$fn"
32
33 [[ $fn = *.@(deb|ipk) ]] || die not a Debian source or binary package or IPK
34 dn=${fn%.???}-extracted
35
36 mode=xapf
37 [[ $fn = *.ipk ]] && mode=xzpf
38
39 set -e
40 rm -rf "$dn"
41 mkdir "$dn"
42 cd "$dn"
43 paxtar $mode ../"$fn"
44 mkdir c d
45 cd c
46 paxtar xapf ../control.*
47 cd ../d
48 paxtar xapf ../data.*