diff options
| author | Marius Bakke <mbakke@fastmail.com> | 2017-10-22 20:12:52 +0200 |
|---|---|---|
| committer | Marius Bakke <mbakke@fastmail.com> | 2017-10-22 20:12:52 +0200 |
| commit | 119a749db9c9847e0766860c17109b0f0b6bf349 (patch) | |
| tree | 4cdbfcad285124c1abf7b3c1c94666cef55767ce /gnu/packages/compression.scm | |
| parent | 530d9e1555e8d0125dde6893f5f70c7a1ebc2564 (diff) | |
| parent | 25669275a1a570cc266128274cb27a22f6a3a318 (diff) | |
| download | patches-119a749db9c9847e0766860c17109b0f0b6bf349.tar patches-119a749db9c9847e0766860c17109b0f0b6bf349.tar.gz | |
Merge branch 'master' into core-updates
Diffstat (limited to 'gnu/packages/compression.scm')
| -rw-r--r-- | gnu/packages/compression.scm | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/gnu/packages/compression.scm b/gnu/packages/compression.scm index f8cfd4dde8..69cf6d3a33 100644 --- a/gnu/packages/compression.scm +++ b/gnu/packages/compression.scm @@ -17,6 +17,7 @@ ;;; Copyright © 2017 ng0 <contact.ng0@cryptolab.net> ;;; Copyright © 2017 Manolis Fragkiskos Ragkousis <manolis837@gmail.com> ;;; Copyright © 2017 Theodoros Foradis <theodoros@foradis.org> +;;; Copyright © 2017 Stefan Reichör <stefan@xsteve.at> ;;; ;;; This file is part of GNU Guix. ;;; @@ -50,6 +51,7 @@ #:use-module (gnu packages base) #:use-module (gnu packages check) #:use-module (gnu packages curl) + #:use-module (gnu packages file) #:use-module (gnu packages perl) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) @@ -1574,3 +1576,39 @@ zip archives. Files can be added from data buffers, files, or compressed data copied directly from other zip archives. Changes made without closing the archive can be reverted.") (license license:bsd-3))) + +(define-public atool + (package + (name "atool") + (version "0.39.0") + (source + (origin + (method url-fetch) + (uri (string-append "http://savannah.nongnu.org/download/atool/atool-" + version ".tar.gz")) + (sha256 + (base32 + "0fvhzip2v08jgnlfpyj6rapan39xlsl1ksgq4lp8gfsai2ah1xma")))) + (build-system gnu-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'embed-absolute-file-name + (lambda* (#:key inputs #:allow-other-keys) + (substitute* "atool" + (("(^\\$::cfg_path_file.*= )'file'" _ pre) + (string-append pre "'" (assoc-ref inputs "file") + "/bin/file'"))) + #t))))) + (inputs + `(("perl" ,perl) + ("file" ,file))) + (home-page "http://www.nongnu.org/atool/") + (synopsis "Universal tool to manage file archives of various types") + (description "The main command is @command{aunpack} which extracts files +from an archive. The other commands provided are @command{apack} (to create +archives), @command{als} (to list files in archives), and @command{acat} (to +extract files to standard out). As @command{atool} invokes external programs +to handle the archives, not all commands may be supported for a certain type +of archives.") + (license license:gpl2+))) |