You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
78 lines
1.7 KiB
78 lines
1.7 KiB
# |
|
# Extracts the contents of archives. |
|
# |
|
# Authors: |
|
# Sorin Ionescu <sorin.ionescu@gmail.com> |
|
# |
|
|
|
local remove_archive |
|
local success |
|
local file_name |
|
local extract_dir |
|
|
|
if (( $# == 0 )); then |
|
cat >&2 <<EOF |
|
usage: $0 [-option] [file ...] |
|
|
|
options: |
|
-r, --remove remove archive |
|
|
|
Report bugs to <sorin.ionescu@gmail.com>. |
|
EOF |
|
fi |
|
|
|
remove_archive=1 |
|
if [[ "$1" == "-r" || "$1" == "--remove" ]]; then |
|
remove_archive=0 |
|
shift |
|
fi |
|
|
|
while (( $# > 0 )); do |
|
if [[ ! -s "$1" ]]; then |
|
print "$0: file not valid: $1" >&2 |
|
shift |
|
continue |
|
fi |
|
|
|
success=0 |
|
file_name="${1:t}" |
|
extract_dir="${file_name:r}" |
|
case "$1" in |
|
(*.tar.gz|*.tgz) tar xvzf "$1" ;; |
|
(*.tar.bz2|*.tbz|*.tbz2) tar xvjf "$1" ;; |
|
(*.tar.xz|*.txz) tar --xz --help &> /dev/null \ |
|
&& tar --xz -xvf "$1" \ |
|
|| xzcat "$1" | tar xvf - ;; |
|
(*.tar.zma|*.tlz) tar --lzma --help &> /dev/null \ |
|
&& tar --lzma -xvf "$1" \ |
|
|| lzcat "$1" | tar xvf - ;; |
|
(*.tar) tar xvf "$1" ;; |
|
(*.gz) gunzip "$1" ;; |
|
(*.bz2) bunzip2 "$1" ;; |
|
(*.xz) unxz "$1" ;; |
|
(*.lzma) unlzma "$1" ;; |
|
(*.Z) uncompress "$1" ;; |
|
(*.zip) unzip "$1" -d $extract_dir ;; |
|
(*.rar) unrar &> /dev/null \ |
|
&& unrar x -ad "$1" \ |
|
|| rar x -ad "$1" ;; |
|
(*.7z) 7za x "$1" ;; |
|
(*.deb) |
|
mkdir -p "$extract_dir/control" |
|
mkdir -p "$extract_dir/data" |
|
cd "$extract_dir"; ar vx "../${1}" > /dev/null |
|
cd control; tar xzvf ../control.tar.gz |
|
cd ../data; tar xzvf ../data.tar.gz |
|
cd ..; rm *.tar.gz debian-binary |
|
cd .. |
|
;; |
|
(*) |
|
print "$0: cannot extract: $1" >&2 |
|
success=1 |
|
;; |
|
esac |
|
|
|
(( success = $success > 0 ? $success : $? )) |
|
(( $success == 0 )) && (( $remove_archive == 0 )) && rm "$1" |
|
shift |
|
done
|
|
|