mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-27 14:52:05 -05:00
2101 lines
88 KiB
Scheme
2101 lines
88 KiB
Scheme
;;; GNU Guix --- Functional package management for GNU
|
||
;;; Copyright © 2012, 2013, 2014, 2015, 2017, 2019 Ludovic Courtès <ludo@gnu.org>
|
||
;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
|
||
;;; Copyright © 2014, 2015, 2018 Mark H Weaver <mhw@netris.org>
|
||
;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
|
||
;;; Copyright © 2015, 2016 Eric Bavier <bavier@member.fsf.org>
|
||
;;; Copyright © 2015, 2016, 2017, 2018 Ricardo Wurmus <rekado@elephly.net>
|
||
;;; Copyright © 2015, 2017, 2018 Leo Famulari <leo@famulari.name>
|
||
;;; Copyright © 2015 Jeff Mickey <j@codemac.net>
|
||
;;; Copyright © 2015, 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
|
||
;;; Copyright © 2016 Ben Woodcroft <donttrustben@gmail.com>
|
||
;;; Copyright © 2016 Danny Milosavljevic <dannym@scratchpost.org>
|
||
;;; Copyright © 2016, 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
|
||
;;; Copyright © 2016 David Craven <david@craven.ch>
|
||
;;; Copyright © 2016, 2019 Kei Kebreau <kkebreau@posteo.net>
|
||
;;; Copyright © 2016, 2018, 2019 Marius Bakke <mbakke@fastmail.com>
|
||
;;; Copyright © 2017 ng0 <ng0@n0.is>
|
||
;;; Copyright © 2017 Manolis Fragkiskos Ragkousis <manolis837@gmail.com>
|
||
;;; Copyright © 2017 Theodoros Foradis <theodoros@foradis.org>
|
||
;;; Copyright © 2017 Stefan Reichör <stefan@xsteve.at>
|
||
;;; Copyright © 2017 Petter <petter@mykolab.ch>
|
||
;;; Copyright © 2017 Julien Lepiller <julien@lepiller.eu>
|
||
;;; Copyright © 2018 Rutger Helling <rhelling@mykolab.com>
|
||
;;; Copyright © 2018 Joshua Sierles, Nextjournal <joshua@nextjournal.com>
|
||
;;; Copyright © 2018, 2019 Pierre Neidhardt <mail@ambrevar.xyz>
|
||
;;; Copyright © 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr>
|
||
;;;
|
||
;;; This file is part of GNU Guix.
|
||
;;;
|
||
;;; GNU Guix is free software; you can redistribute it and/or modify it
|
||
;;; under the terms of the GNU General Public License as published by
|
||
;;; the Free Software Foundation; either version 3 of the License, or (at
|
||
;;; your option) any later version.
|
||
;;;
|
||
;;; GNU Guix is distributed in the hope that it will be useful, but
|
||
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
;;; GNU General Public License for more details.
|
||
;;;
|
||
;;; You should have received a copy of the GNU General Public License
|
||
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
|
||
|
||
(define-module (gnu packages compression)
|
||
#:use-module ((guix licenses) #:prefix license:)
|
||
#:use-module (guix utils)
|
||
#:use-module (guix packages)
|
||
#:use-module (guix download)
|
||
#:use-module (guix git-download)
|
||
#:use-module (guix build-system cmake)
|
||
#:use-module (guix build-system gnu)
|
||
#:use-module (guix build-system trivial)
|
||
#:use-module (gnu packages)
|
||
#:use-module (gnu packages assembly)
|
||
#:use-module (gnu packages autotools)
|
||
#:use-module (gnu packages backup)
|
||
#:use-module (gnu packages base)
|
||
#:use-module (gnu packages boost)
|
||
#:use-module (gnu packages check)
|
||
#:use-module (gnu packages curl)
|
||
#:use-module (gnu packages documentation)
|
||
#:use-module (gnu packages file)
|
||
#:use-module (gnu packages maths)
|
||
#:use-module (gnu packages perl)
|
||
#:use-module (gnu packages pkg-config)
|
||
#:use-module (gnu packages python)
|
||
#:use-module (gnu packages qt)
|
||
#:use-module (gnu packages tls)
|
||
#:use-module (gnu packages valgrind)
|
||
#:use-module (ice-9 match)
|
||
#:use-module ((srfi srfi-1) #:select (last)))
|
||
|
||
(define-public zlib
|
||
(package
|
||
(name "zlib")
|
||
(version "1.2.11")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (list (string-append "http://zlib.net/zlib-"
|
||
version ".tar.gz")
|
||
(string-append "mirror://sourceforge/libpng/zlib/"
|
||
version "/zlib-" version ".tar.gz")))
|
||
(sha256
|
||
(base32
|
||
"18dighcs333gsvajvvgqp8l4cx7h1x7yx9gd5xacnk80spyykrf3"))))
|
||
(build-system gnu-build-system)
|
||
(outputs '("out" "static"))
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(replace 'configure
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
;; Zlib's home-made `configure' fails when passed
|
||
;; extra flags like `--enable-fast-install', so we need to
|
||
;; invoke it with just what it understand.
|
||
(let ((out (assoc-ref outputs "out")))
|
||
;; 'configure' doesn't understand '--host'.
|
||
,@(if (%current-target-system)
|
||
`((setenv "CHOST" ,(%current-target-system)))
|
||
'())
|
||
(invoke "./configure"
|
||
(string-append "--prefix=" out)))))
|
||
(add-after 'install 'move-static-library
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out"))
|
||
(static (assoc-ref outputs "static")))
|
||
(with-directory-excursion (string-append out "/lib")
|
||
(install-file "libz.a" (string-append static "/lib"))
|
||
(delete-file "libz.a")
|
||
#t)))))))
|
||
(home-page "https://zlib.net/")
|
||
(synopsis "Compression library")
|
||
(description
|
||
"zlib is designed to be a free, general-purpose, legally unencumbered --
|
||
that is, not covered by any patents -- lossless data-compression library for
|
||
use on virtually any computer hardware and operating system. The zlib data
|
||
format is itself portable across platforms. Unlike the LZW compression method
|
||
used in Unix compress(1) and in the GIF image format, the compression method
|
||
currently used in zlib essentially never expands the data. (LZW can double or
|
||
triple the file size in extreme cases.) zlib's memory footprint is also
|
||
independent of the input data and can be reduced, if necessary, at some cost
|
||
in compression.")
|
||
(license license:zlib)))
|
||
|
||
(define-public minizip
|
||
(package
|
||
(name "minizip")
|
||
(version (package-version zlib))
|
||
(source (package-source zlib))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'enter-source
|
||
(lambda _ (chdir "contrib/minizip") #t))
|
||
(add-after 'install 'remove-crypt-h
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
;; Remove <minizip/crypt.h> because it interferes with libc's
|
||
;; <crypt.h> given that 'minizip.pc' says "-I…/include/minizip".
|
||
;; Fedora does the same:
|
||
;; <https://src.fedoraproject.org/rpms/zlib/c/4d2785ec3116947872f6f32dc4104e6d36d8a7a4?branch=master>.
|
||
(let ((out (assoc-ref outputs "out")))
|
||
(delete-file (string-append out "/include/minizip/crypt.h"))
|
||
#t))))))
|
||
(native-inputs
|
||
`(("autoconf" ,autoconf)
|
||
("automake" ,automake)
|
||
("libtool" ,libtool)))
|
||
(propagated-inputs `(("zlib" ,zlib)))
|
||
(home-page (package-home-page zlib))
|
||
(synopsis "Zip Compression library")
|
||
(description
|
||
"Minizip is a minimalistic library that supports compressing,
|
||
extracting and viewing ZIP archives. This version is extracted from
|
||
the @code{zlib} source.")
|
||
(license (package-license zlib))))
|
||
|
||
(define-public fastjar
|
||
(package
|
||
(name "fastjar")
|
||
(version "0.98")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://savannah/fastjar/fastjar-"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0iginbz2m15hcsa3x4y7v3mhk54gr1r7m3ghx0pg4n46vv2snmpi"))))
|
||
(build-system gnu-build-system)
|
||
(inputs `(("zlib" ,zlib)))
|
||
(home-page "https://savannah.nongnu.org/projects/fastjar")
|
||
(synopsis "Replacement for Sun's 'jar' utility")
|
||
(description
|
||
"FastJar is an attempt to create a much faster replacement for Sun's
|
||
@code{jar} utility. Instead of being written in Java, FastJar is written in C.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public libtar
|
||
(package
|
||
(name "libtar")
|
||
(version "1.2.20")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (list
|
||
(string-append
|
||
"ftp://ftp.feep.net/pub/software/libtar/libtar-"
|
||
version ".tar.gz")
|
||
(string-append
|
||
"mirror://debian/pool/main/libt/libtar/libtar_"
|
||
version ".orig.tar.gz")))
|
||
(sha256
|
||
(base32
|
||
"02cihzl77ia0dcz7z2cga2412vyhhs5pa2355q4wpwbyga2lrwjh"))
|
||
(patches (search-patches "libtar-CVE-2013-4420.patch"))))
|
||
(build-system gnu-build-system)
|
||
(arguments `(#:tests? #f)) ; no "check" target
|
||
(native-inputs
|
||
`(("autoconf" ,autoconf)
|
||
("automake" ,automake)
|
||
("libtool" ,libtool)))
|
||
(inputs
|
||
`(("zlib" ,zlib)))
|
||
(synopsis "C library for manipulating POSIX tar files")
|
||
(description
|
||
"libtar is a C library for manipulating POSIX tar files. It handles
|
||
adding and extracting files to/from a tar archive.")
|
||
(home-page "https://repo.or.cz/libtar.git")
|
||
(license license:bsd-3)))
|
||
|
||
(define-public gzip
|
||
(package
|
||
(name "gzip")
|
||
(version "1.10")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnu/gzip/gzip-"
|
||
version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1h6p374d3j8d4cdfydzls021xa2yby8myc0h8d6m8bc7k6ncq9c4"))))
|
||
(build-system gnu-build-system)
|
||
(synopsis "General file (de)compression (using lzw)")
|
||
(arguments
|
||
;; FIXME: The test suite wants `less', and optionally Perl.
|
||
'(#:tests? #f
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'patch-for-glibc-2.28
|
||
(lambda _
|
||
;; Adjust the bundled gnulib to work with glibc 2.28. See e.g.
|
||
;; "m4-gnulib-libio.patch". This is a phase rather than patch
|
||
;; or snippet to work around <https://bugs.gnu.org/32347>.
|
||
(substitute* (find-files "lib" "\\.c$")
|
||
(("#if defined _IO_ftrylockfile")
|
||
"#if defined _IO_EOF_SEEN"))
|
||
(substitute* "lib/stdio-impl.h"
|
||
(("^/\\* BSD stdio derived implementations")
|
||
(string-append "#if !defined _IO_IN_BACKUP && defined _IO_EOF_SEEN\n"
|
||
"# define _IO_IN_BACKUP 0x100\n"
|
||
"#endif\n\n"
|
||
"/* BSD stdio derived implementations")))
|
||
#t))
|
||
(add-after 'unpack 'use-absolute-name-of-gzip
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(substitute* "gunzip.in"
|
||
(("exec gzip")
|
||
(string-append "exec " (assoc-ref outputs "out")
|
||
"/bin/gzip")))
|
||
#t)))))
|
||
(description
|
||
"GNU Gzip provides data compression and decompression utilities; the
|
||
typical extension is \".gz\". Unlike the \"zip\" format, it compresses a single
|
||
file; as a result, it is often used in conjunction with \"tar\", resulting in
|
||
\".tar.gz\" or \".tgz\", etc.")
|
||
(license license:gpl3+)
|
||
(home-page "https://www.gnu.org/software/gzip/")))
|
||
|
||
(define-public bzip2
|
||
(package
|
||
(name "bzip2")
|
||
(version "1.0.6")
|
||
(source (origin
|
||
(method url-fetch)
|
||
;; XXX The bzip.org domain was allowed to expire.
|
||
(uri (string-append "https://web.archive.org/web/20180624184806/"
|
||
"http://www.bzip.org/"
|
||
version "/bzip2-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1kfrc7f0ja9fdn6j1y6yir6li818npy6217hvr3wzmnmzhs8z152"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:modules ((guix build gnu-build-system)
|
||
(guix build utils)
|
||
(ice-9 ftw)
|
||
(srfi srfi-1))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(replace 'configure
|
||
(lambda* (#:key target #:allow-other-keys)
|
||
(when ,(%current-target-system)
|
||
;; Cross-compilation: use the cross tools.
|
||
(substitute* (find-files "." "Makefile")
|
||
(("CC=.*$")
|
||
(string-append "CC = " target "-gcc\n"))
|
||
(("AR=.*$")
|
||
(string-append "AR = " target "-ar\n"))
|
||
(("RANLIB=.*$")
|
||
(string-append "RANLIB = " target "-ranlib\n"))
|
||
(("^all:(.*)test" _ prerequisites)
|
||
;; Remove 'all' -> 'test' dependency.
|
||
(string-append "all:" prerequisites "\n"))))
|
||
#t))
|
||
(add-before 'build 'build-shared-lib
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(patch-makefile-SHELL "Makefile-libbz2_so")
|
||
(invoke "make" "-f" "Makefile-libbz2_so")))
|
||
(add-after 'install 'install-shared-lib
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
;; The Makefile above does not have an 'install' target, nor does
|
||
;; it create all the (un)versioned symlinks, so we handle it here.
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(libdir (string-append out "/lib"))
|
||
(soname "libbz2.so")
|
||
;; Locate the built library (e.g. "libbz2.so.1.0.6").
|
||
(lib (car (scandir "."
|
||
(lambda (file)
|
||
(and (string-prefix? soname file)
|
||
(eq? 'regular
|
||
(stat:type (lstat file))))))))
|
||
(soversion (string-drop lib (+ 1 (string-length soname)))))
|
||
(install-file lib libdir)
|
||
(with-directory-excursion libdir
|
||
;; Create symlinks libbz2.so.1 -> libbz2.so.1.0, etc.
|
||
(let loop ((base soname)
|
||
(numbers (string-split soversion #\.)))
|
||
(unless (null? numbers)
|
||
(let ((so-file (string-append base "." (car numbers))))
|
||
(symlink so-file base)
|
||
(loop so-file (cdr numbers))))))
|
||
#t)))
|
||
(add-after 'install-shared-lib 'move-static-lib
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out"))
|
||
(static (assoc-ref outputs "static")))
|
||
(with-directory-excursion (string-append out "/lib")
|
||
(install-file "libbz2.a" (string-append static "/lib"))
|
||
(delete-file "libbz2.a")
|
||
#t))))
|
||
(add-after 'install-shared-lib 'patch-scripts
|
||
(lambda* (#:key outputs inputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out")))
|
||
(substitute* (string-append out "/bin/bzdiff")
|
||
(("/bin/rm") "rm")))
|
||
#t)))
|
||
|
||
#:make-flags (list (string-append "PREFIX="
|
||
(assoc-ref %outputs "out")))
|
||
|
||
;; Don't attempt to run the tests when cross-compiling.
|
||
,@(if (%current-target-system)
|
||
'(#:tests? #f)
|
||
'())))
|
||
(outputs '("out" "static"))
|
||
(synopsis "High-quality data compression program")
|
||
(description
|
||
"bzip2 is a freely available, patent free (see below), high-quality data
|
||
compressor. It typically compresses files to within 10% to 15% of the best
|
||
available techniques (the PPM family of statistical compressors), whilst
|
||
being around twice as fast at compression and six times faster at
|
||
decompression.")
|
||
(license (license:non-copyleft "file://LICENSE"
|
||
"See LICENSE in the distribution."))
|
||
(home-page "https://web.archive.org/web/20180801004107/http://www.bzip.org/")))
|
||
|
||
(define-public lbzip2
|
||
(package
|
||
(name "lbzip2")
|
||
(version "2.5")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "http://archive.lbzip2.org/lbzip2-"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1sahaqc5bw4i0iyri05syfza4ncf5cml89an033fspn97klmxis6"))
|
||
(modules '((guix build utils)))
|
||
(snippet
|
||
'(begin
|
||
(substitute* (find-files "lib" "\\.c$")
|
||
(("#if defined _IO_ftrylockfile")
|
||
"#if defined _IO_EOF_SEEN"))
|
||
(substitute* "lib/stdio-impl.h"
|
||
(("^/\\* BSD stdio derived implementations")
|
||
(string-append "#if !defined _IO_IN_BACKUP && defined _IO_EOF_SEEN\n"
|
||
"# define _IO_IN_BACKUP 0x100\n"
|
||
"#endif\n\n"
|
||
"/* BSD stdio derived implementations")))
|
||
#t))))
|
||
(build-system gnu-build-system)
|
||
(synopsis "Parallel bzip2 compression utility")
|
||
(description
|
||
"lbzip2 is a multi-threaded compression utility with support for the
|
||
bzip2 compressed file format. lbzip2 can process standard bz2 files in
|
||
parallel. It uses POSIX threading model (pthreads), which allows it to take
|
||
full advantage of symmetric multiprocessing (SMP) systems. It has been proven
|
||
to scale linearly, even to over one hundred processor cores. lbzip2 is fully
|
||
compatible with bzip2 – both at file format and command line level.")
|
||
(home-page "http://www.lbzip2.org/")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public pbzip2
|
||
(package
|
||
(name "pbzip2")
|
||
(version "1.1.13")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://launchpad.net/pbzip2/"
|
||
(version-major+minor version) "/" version
|
||
"/+download/" name "-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1rnvgcdixjzbrmcr1nv9b6ccrjfrhryaj7jwz28yxxv6lam3xlcg"))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
`(("bzip2" ,bzip2)))
|
||
(arguments
|
||
`(#:tests? #f ; no tests
|
||
#:phases (modify-phases %standard-phases
|
||
(delete 'configure)) ; no configure script
|
||
#:make-flags (list (string-append "PREFIX=" %output))))
|
||
(home-page "http://compression.ca/pbzip2/")
|
||
(synopsis "Parallel bzip2 implementation")
|
||
(description
|
||
"Pbzip2 is a parallel implementation of the bzip2 block-sorting file
|
||
compressor that uses pthreads and achieves near-linear speedup on SMP machines.
|
||
The output of this version is fully compatible with bzip2 v1.0.2 (i.e. anything
|
||
compressed with pbzip2 can be decompressed with bzip2).")
|
||
(license (license:non-copyleft "file://COPYING"
|
||
"See COPYING in the distribution."))))
|
||
|
||
(define-public xz
|
||
(package
|
||
(name "xz")
|
||
(version "5.2.4")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (list (string-append "http://tukaani.org/xz/xz-" version
|
||
".tar.gz")
|
||
(string-append "http://multiprecision.org/guix/xz-"
|
||
version ".tar.gz")))
|
||
(sha256
|
||
(base32
|
||
"0ibi2zsfaz6l756spjwc5rayf4ckgc9hwmy8qinppcyk4svz64mm"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'install 'move-static-lib
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out"))
|
||
(static (assoc-ref outputs "static")))
|
||
(mkdir-p (string-append static "/lib"))
|
||
(rename-file (string-append out "/lib/liblzma.a")
|
||
(string-append static "/lib/liblzma.a"))
|
||
;; Remove reference to the static library from the .la file
|
||
;; so Libtool does the right thing when both the shared and
|
||
;; static library is available.
|
||
(substitute* (string-append out "/lib/liblzma.la")
|
||
(("^old_library='liblzma.a'") "old_library=''"))
|
||
#t))))))
|
||
(outputs '("out" "static"))
|
||
(synopsis "General-purpose data compression")
|
||
(description
|
||
"XZ Utils is free general-purpose data compression software with high
|
||
compression ratio. XZ Utils were written for POSIX-like systems, but also
|
||
work on some not-so-POSIX systems. XZ Utils are the successor to LZMA Utils.
|
||
|
||
The core of the XZ Utils compression code is based on LZMA SDK, but it has
|
||
been modified quite a lot to be suitable for XZ Utils. The primary
|
||
compression algorithm is currently LZMA2, which is used inside the .xz
|
||
container format. With typical files, XZ Utils create 30 % smaller output
|
||
than gzip and 15 % smaller output than bzip2.")
|
||
(license (list license:gpl2+ license:lgpl2.1+)) ; bits of both
|
||
(home-page "https://tukaani.org/xz/")))
|
||
|
||
(define-public lhasa
|
||
(package
|
||
(name "lhasa")
|
||
(version "0.3.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"https://github.com/fragglet/lhasa/releases/download/v"
|
||
version "/lhasa-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"092zi9av18ma20c6h9448k0bapvx2plnp292741dvfd9hmgqxc1z"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'check 'set-up-test-environment
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(setenv "TZDIR" (string-append (assoc-ref inputs "tzdata")
|
||
"/share/zoneinfo"))
|
||
#t)))))
|
||
(native-inputs
|
||
`(("tzdata" ,tzdata)))
|
||
(home-page "https://fragglet.github.com/lhasa/")
|
||
(synopsis "LHA archive decompressor")
|
||
(description "Lhasa is a replacement for the Unix LHA tool, for
|
||
decompressing .lzh (LHA / LHarc) and .lzs (LArc) archives. The backend for the
|
||
tool is a library, so that it can be reused for other purposes. Lhasa aims to
|
||
be compatible with as many types of lzh/lzs archives as possible. It also aims
|
||
to generate the same output as the (non-free) Unix LHA tool, so that it will
|
||
act as a free drop-in replacement.")
|
||
(license license:isc)))
|
||
|
||
(define-public lzo
|
||
(package
|
||
(name "lzo")
|
||
(version "2.10")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "http://www.oberhumer.com/opensource/lzo/download/lzo-"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0wm04519pd3g8hqpjqhfr72q8qmbiwqaxcs3cndny9h86aa95y60"))))
|
||
(build-system gnu-build-system)
|
||
(arguments '(#:configure-flags '("--enable-shared")))
|
||
(home-page "http://www.oberhumer.com/opensource/lzo")
|
||
(synopsis
|
||
"Data compression library suitable for real-time data de-/compression")
|
||
(description
|
||
"LZO is a data compression library which is suitable for data
|
||
de-/compression in real-time. This means it favours speed over
|
||
compression ratio.
|
||
|
||
LZO is written in ANSI C. Both the source code and the compressed data
|
||
format are designed to be portable across platforms.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public lzop
|
||
(package
|
||
(name "lzop")
|
||
(version "1.04")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "http://www.lzop.org/download/lzop-"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0h9gb8q7y54m9mvy3jvsmxf21yx8fc3ylzh418hgbbv0i8mbcwky"))))
|
||
(build-system gnu-build-system)
|
||
(inputs `(("lzo" ,lzo)))
|
||
(home-page "https://www.lzop.org/")
|
||
(synopsis "Compress or expand files")
|
||
(description
|
||
"Lzop is a file compressor which is very similar to gzip. Lzop uses the
|
||
LZO data compression library for compression services, and its main advantages
|
||
over gzip are much higher compression and decompression speed (at the cost of
|
||
some compression ratio).")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public lzip
|
||
(package
|
||
(name "lzip")
|
||
(version "1.21")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://savannah/lzip/lzip-"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"12qdcw5k1cx77brv9yxi1h4dzwibhfmdpigrj43nfk8nscwm12z4"))))
|
||
(build-system gnu-build-system)
|
||
(home-page "https://www.nongnu.org/lzip/lzip.html")
|
||
(synopsis "Lossless data compressor based on the LZMA algorithm")
|
||
(description
|
||
"Lzip is a lossless data compressor with a user interface similar to the
|
||
one of gzip or bzip2. Lzip decompresses almost as fast as gzip and compresses
|
||
more than bzip2, which makes it well-suited for software distribution and data
|
||
archiving. Lzip is a clean implementation of the LZMA algorithm.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public lziprecover
|
||
(package
|
||
(name "lziprecover")
|
||
(version "1.21")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://savannah/lzip/lziprecover/"
|
||
"lziprecover-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"094w2z8fz41yaq0gkyr61cl7pb1d7kchpl5dka7rvm3qvbb7ncd2"))))
|
||
(build-system gnu-build-system)
|
||
(home-page "https://www.nongnu.org/lzip/lziprecover.html")
|
||
(synopsis "Recover and decompress data from damaged lzip files")
|
||
(description
|
||
"Lziprecover is a data recovery tool and decompressor for files in the lzip
|
||
compressed data format (.lz). It can test the integrity of lzip files, extract
|
||
data from damaged ones, and repair most files with small errors (up to one
|
||
single-byte error per member) entirely.
|
||
|
||
Lziprecover is not a replacement for regular backups, but a last line of defence
|
||
when even the backups are corrupt. It can recover files by merging the good
|
||
parts of two or more damaged copies, such as can be easily produced by running
|
||
@command{ddrescue} on a failing device.
|
||
|
||
This package also includes @command{unzcrash}, a tool to test the robustness of
|
||
decompressors when faced with corrupted input.")
|
||
(license (list license:bsd-2 ; arg_parser.{cc,h}
|
||
license:gpl2+)))) ; everything else
|
||
|
||
(define-public sharutils
|
||
(package
|
||
(name "sharutils")
|
||
(version "4.15.2")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnu/sharutils/sharutils-"
|
||
version ".tar.xz"))
|
||
(patches (search-patches "sharutils-CVE-2018-1000097.patch"))
|
||
(sha256
|
||
(base32
|
||
"16isapn8f39lnffc3dp4dan05b7x6mnc76v6q5nn8ysxvvvwy19b"))
|
||
(modules '((guix build utils)))
|
||
(snippet
|
||
'(begin
|
||
(substitute* (find-files "lib" "\\.c$")
|
||
(("#if defined _IO_ftrylockfile")
|
||
"#if defined _IO_EOF_SEEN"))
|
||
(substitute* "lib/stdio-impl.h"
|
||
(("^/\\* BSD stdio derived implementations")
|
||
(string-append "#if !defined _IO_IN_BACKUP && defined _IO_EOF_SEEN\n"
|
||
"# define _IO_IN_BACKUP 0x100\n"
|
||
"#endif\n\n"
|
||
"/* BSD stdio derived implementations")))
|
||
#t))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
`(("which" ,which)))
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'patch-source-shebangs 'unpatch-source-shebang
|
||
;; revert the patch-shebang phase on a script which is
|
||
;; in fact test data
|
||
(lambda _
|
||
(substitute* "tests/shar-1.ok"
|
||
(((which "sh")) "/bin/sh"))
|
||
#t)))))
|
||
(home-page "https://www.gnu.org/software/sharutils/")
|
||
(synopsis "Archives in shell scripts, uuencode/uudecode")
|
||
(description
|
||
"GNU sharutils is a package for creating and manipulating shell
|
||
archives that can be readily emailed. A shell archive is a file that can be
|
||
processed by a Bourne-type shell to unpack the original collection of files.
|
||
This package is mostly for compatibility and historical interest.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public sfarklib
|
||
(package
|
||
(name "sfarklib")
|
||
(version "2.24")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://github.com/raboof/sfArkLib/archive/"
|
||
version ".tar.gz"))
|
||
(file-name (string-append name "-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0bzs2d98rk1xw9qwpnc7gmlbxwmwc3dg1rpn310afy9pq1k9clzi"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:tests? #f ;no "check" target
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(replace 'configure
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(substitute* "Makefile"
|
||
(("/usr/local") (assoc-ref outputs "out")))
|
||
#t)))))
|
||
(inputs
|
||
`(("zlib" ,zlib)))
|
||
(home-page "https://github.com/raboof/sfArkLib")
|
||
(synopsis "Library for SoundFont decompression")
|
||
(description
|
||
"SfArkLib is a C++ library for decompressing SoundFont files compressed
|
||
with the sfArk algorithm.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public sfarkxtc
|
||
(let ((commit "13cd6f93725a90d91ec5ea75babf1dbd694ac463")
|
||
(revision "1"))
|
||
(package
|
||
(name "sfarkxtc")
|
||
(version (git-version "0" revision commit))
|
||
(source (origin
|
||
;; There are no release tarballs, so we just fetch the latest
|
||
;; commit at this time.
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/raboof/sfarkxtc.git")
|
||
(commit commit)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"1mb1jyk1m11l1gppd9hmql9cyp55sdf7jk5rbc7acky1z4k4mv19"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:tests? #f ;no "check" target
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(replace 'configure
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(substitute* "Makefile"
|
||
(("/usr/local") (assoc-ref outputs "out")))
|
||
#t)))))
|
||
(inputs
|
||
`(("zlib" ,zlib)
|
||
("sfarklib" ,sfarklib)))
|
||
(home-page "https://github.com/raboof/sfarkxtc")
|
||
(synopsis "Basic sfArk decompressor")
|
||
(description "SfArk extractor converts SoundFonts in the compressed legacy
|
||
sfArk file format to the uncompressed sf2 format.")
|
||
(license license:gpl3+))))
|
||
|
||
(define-public libmspack
|
||
(package
|
||
(name "libmspack")
|
||
(home-page "https://cabextract.org.uk/libmspack/")
|
||
(version "0.10.1")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append home-page name "-" version "alpha.tar.gz"))
|
||
(sha256
|
||
(base32 "13janaqsvm7aqc4agjgd4819pbgqv50j88bh5kci1z70wvg65j5s"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:configure-flags '("--disable-static")))
|
||
(synopsis "Compression tools for some formats used by Microsoft")
|
||
(description
|
||
"The purpose of libmspack is to provide both compression and
|
||
decompression of some loosely related file formats used by Microsoft.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public lz4
|
||
(package
|
||
(name "lz4")
|
||
(version "1.9.2")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference (url "https://github.com/lz4/lz4")
|
||
(commit (string-append "v" version))))
|
||
(sha256
|
||
(base32
|
||
"0lpaypmk70ag2ks3kf2dl4ac3ba40n5kc1ainkp9wfjawz76mh61"))
|
||
(file-name (git-file-name name version))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(;; For tests.
|
||
("python" ,python)
|
||
("valgrind" ,valgrind)))
|
||
(arguments
|
||
`(#:test-target "test"
|
||
#:make-flags (list "CC=gcc"
|
||
(string-append "prefix=" (assoc-ref %outputs "out")))
|
||
#:phases (modify-phases %standard-phases
|
||
(delete 'configure) ;no configure script
|
||
(add-before 'check 'disable-broken-test
|
||
(lambda _
|
||
;; XXX: test_install.sh fails when prefix is a subdirectory.
|
||
(substitute* "tests/Makefile"
|
||
(("^test: (.*) test-install" _ targets)
|
||
(string-append "test: " targets)))
|
||
#t)))))
|
||
(home-page "https://www.lz4.org")
|
||
(synopsis "Compression algorithm focused on speed")
|
||
(description "LZ4 is a lossless compression algorithm, providing
|
||
compression speed at 400 MB/s per core (0.16 Bytes/cycle). It also features an
|
||
extremely fast decoder, with speed in multiple GB/s per core (0.71 Bytes/cycle).
|
||
A high compression derivative, called LZ4_HC, is also provided. It trades CPU
|
||
time for compression ratio.")
|
||
;; The libraries (lz4, lz4hc, and xxhash) are BSD licenced. The command
|
||
;; line interface programs (lz4, fullbench, fuzzer, datagen) are GPL2+.
|
||
(license (list license:bsd-2 license:gpl2+))))
|
||
|
||
(define-public squashfs-tools
|
||
(package
|
||
(name "squashfs-tools")
|
||
(version "4.3")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://sourceforge/squashfs/squashfs/"
|
||
"squashfs" version "/"
|
||
"squashfs" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1xpklm0y43nd9i6jw43y2xh5zvlmj9ar2rvknh0bh7kv8c95aq0d"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:tests? #f ; no check target
|
||
#:make-flags
|
||
(list "CC=gcc"
|
||
"XZ_SUPPORT=1"
|
||
"LZO_SUPPORT=1"
|
||
"LZ4_SUPPORT=1"
|
||
(string-append "INSTALL_DIR=" %output "/bin"))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(replace 'configure
|
||
(lambda _
|
||
(chdir "squashfs-tools")
|
||
#t))
|
||
(add-after 'unpack 'fix-glibc-compatability
|
||
(lambda _
|
||
(substitute* '("squashfs-tools/mksquashfs.c"
|
||
"squashfs-tools/unsquashfs.c")
|
||
(("<sys/sysinfo.h>")
|
||
"<sys/sysinfo.h>\n#include <sys/sysmacros.h>"))
|
||
#t)))))
|
||
(inputs
|
||
`(("lz4" ,lz4)
|
||
("lzo" ,lzo)
|
||
("xz" ,xz)
|
||
("zlib" ,zlib)))
|
||
(home-page "http://squashfs.sourceforge.net/")
|
||
(synopsis "Tools to create and extract squashfs file systems")
|
||
(description
|
||
"Squashfs is a highly compressed read-only file system for Linux. It uses
|
||
zlib to compress files, inodes, and directories. All blocks are packed to
|
||
minimize the data overhead, and block sizes of between 4K and 1M are supported.
|
||
It is intended to be used for archival use, for live CDs, and for embedded
|
||
systems where low overhead is needed. This package allows you to create and
|
||
extract such file systems.")
|
||
(license license:gpl2+)))
|
||
|
||
;; We need this for building squashfs images with symlinks.
|
||
(define-public squashfs-tools-next
|
||
(let ((commit "fb33dfc32b131a1162dcf0e35bd88254ae10e265")
|
||
(revision "1"))
|
||
(package (inherit squashfs-tools)
|
||
(name "squashfs-tools-next")
|
||
(version (string-append "4.3-" revision (string-take commit 7)))
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/plougher/squashfs-tools.git")
|
||
(commit commit)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"1x2skf8hxzfch978nzx5mh46d4hhi6gl22270hiarjszsjk3bnsx")))))))
|
||
|
||
(define-public pigz
|
||
(package
|
||
(name "pigz")
|
||
(version "2.4")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "http://zlib.net/pigz/"
|
||
name "-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0wsgw5vwl23jrnpsvd8v3xcp5k4waw5mk0164fynjhkv58i1dy54"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(delete 'configure)
|
||
(replace 'install
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(bin (string-append out "/bin"))
|
||
(man (string-append out "/share/man/man1")))
|
||
(install-file "pigz" bin)
|
||
(symlink "pigz" (string-append bin "/unpigz"))
|
||
(install-file "pigz.1" man)
|
||
#t))))
|
||
#:make-flags (list "CC=gcc")
|
||
#:test-target "tests"))
|
||
(inputs `(("zlib" ,zlib)))
|
||
(home-page "https://zlib.net/pigz/")
|
||
(synopsis "Parallel implementation of gzip")
|
||
(description
|
||
"This package provides a parallel implementation of gzip that exploits
|
||
multiple processors and multiple cores when compressing data.")
|
||
|
||
;; Things under zopfli/ are under ASL2.0, but 4 files at the top-level,
|
||
;; written by Mark Adler, are under another non-copyleft license.
|
||
(license license:asl2.0)))
|
||
|
||
(define-public pixz
|
||
(package
|
||
(name "pixz")
|
||
(version "1.0.6")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"https://github.com/vasi/pixz/releases/download/v" version
|
||
"/pixz-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1s3j7zw6j5zi3fhdxg287ndr3wf6swac7z21mqd1pyiln530gi82"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("libarchive" ,libarchive)))
|
||
(home-page "https://github.com/vasi/pixz")
|
||
(synopsis "Parallel indexing implementation of LZMA")
|
||
(description
|
||
"The existing XZ Utils provide great compression in the .xz file format,
|
||
but they produce just one big block of compressed data. Pixz instead produces
|
||
a collection of smaller blocks which makes random access to the original data
|
||
possible and can compress in parallel. This is especially useful for large
|
||
tarballs.")
|
||
(license license:bsd-2)))
|
||
|
||
(define-public brotli
|
||
(let ((commit "e992cce7a174d6e2b3486616499d26bb0bad6448")
|
||
(revision "1"))
|
||
(package
|
||
(name "brotli")
|
||
(version (string-append "0.1-" revision "."
|
||
(string-take commit 7)))
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/bagder/libbrotli.git")
|
||
(commit commit)
|
||
(recursive? #t)))
|
||
(file-name (string-append name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1qxxsasvwbbbh6dl3138y9h3fg0q2v7xdk5jjc690bdg7g1wrj6n"))
|
||
(modules '((guix build utils)))
|
||
(snippet '(begin
|
||
;; This is a recursive submodule that is
|
||
;; unnecessary for this package, so delete it.
|
||
(delete-file-recursively "brotli/terryfy")
|
||
#t))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("autoconf" ,autoconf)
|
||
("automake" ,automake)
|
||
("libtool" ,libtool)))
|
||
(arguments
|
||
`(#:phases (modify-phases %standard-phases
|
||
(add-after 'unpack 'autogen
|
||
(lambda _
|
||
(mkdir "m4")
|
||
(invoke "autoreconf" "-vfi"))))))
|
||
(home-page "https://github.com/bagder/libbrotli/")
|
||
(synopsis "Implementation of the Brotli compression algorithm")
|
||
(description
|
||
"Brotli is a general-purpose lossless compression algorithm. It is
|
||
similar in speed to deflate but offers denser compression. This package
|
||
provides encoder and a decoder libraries: libbrotlienc and libbrotlidec,
|
||
respectively, based on the reference implementation from Google.")
|
||
(license license:expat))))
|
||
|
||
(define-public bsdiff
|
||
(package
|
||
(name "bsdiff")
|
||
(version "4.3")
|
||
(home-page "https://www.daemonology.net/bsdiff/")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append home-page name "-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0j2zm3z271x5aw63mwhr3vymzn45p2vvrlrpm9cz2nywna41b0hq"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:make-flags (list "INSTALL=install" "CC=gcc"
|
||
(string-append "PREFIX=" (assoc-ref %outputs "out")))
|
||
#:phases (modify-phases %standard-phases
|
||
(delete 'configure)
|
||
(add-before 'build 'fix-Makefile
|
||
(lambda _
|
||
(substitute* "Makefile"
|
||
;; Adjust syntax to make it compatible with GNU Make.
|
||
(("^\\.") "")
|
||
;; Help install(1) create the target directory.
|
||
(("\\$\\{PREFIX\\}") "-D -t ${PREFIX}"))
|
||
#t)))
|
||
#:tests? #f)) ;no tests
|
||
(inputs
|
||
`(("bzip2" ,bzip2)))
|
||
(synopsis "Patch binary files")
|
||
(description
|
||
"@command{bsdiff} and @command{bspatch} are tools for building and
|
||
applying patches to binary files. By using suffix sorting (specifically
|
||
Larsson and Sadakane's @code{qsufsort}) and taking advantage of how
|
||
executable files change, bsdiff routinely produces binary patches 50-80%
|
||
smaller than those produced by @code{Xdelta}.")
|
||
(license license:bsd-2)))
|
||
|
||
(define-public cabextract
|
||
(package
|
||
(name "cabextract")
|
||
(home-page "https://cabextract.org.uk/")
|
||
(version "1.9.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append home-page "cabextract-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"19qwhl2r8ip95q4vxzxg2kp4p125hjmc9762sns1dwwf7ikm7hmg"))
|
||
(modules '((guix build utils)))
|
||
(snippet
|
||
'(begin
|
||
;; Delete bundled libmspack.
|
||
(delete-file-recursively "mspack")
|
||
#t))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:configure-flags '("--with-external-libmspack")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
;; cabextract needs some of libmspack's header files.
|
||
;; These are located in the "mspack" directory of libmspack.
|
||
(add-before 'build 'unpack-libmspack
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(let ((dir-name "libmspack-src"))
|
||
(mkdir dir-name)
|
||
(invoke "tar" "-xvf" (assoc-ref inputs "libmspack-source")
|
||
"-C" dir-name "--strip-components" "1")
|
||
(rename-file (string-append dir-name "/mspack")
|
||
"mspack")
|
||
(delete-file-recursively dir-name)
|
||
#t))))))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("libmspack" ,libmspack)
|
||
("libmspack-source" ,(package-source libmspack))))
|
||
(synopsis "Tool to unpack Cabinet archives")
|
||
(description "Extracts files out of Microsoft Cabinet (.cab) archives")
|
||
;; Some source files specify gpl2+, lgpl2+, however COPYING is gpl3.
|
||
(license license:gpl3+)))
|
||
|
||
(define-public xdelta
|
||
(package
|
||
(name "xdelta")
|
||
(version "3.1.0")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/jmacd/xdelta.git")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"09mmsalc7dwlvgrda56s2k927rpl3a5dzfa88aslkqcjnr790wjy"))
|
||
(snippet
|
||
;; This file isn't freely distributable and has no effect on building.
|
||
'(begin
|
||
(delete-file "xdelta3/draft-korn-vcdiff.txt")
|
||
#t))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("autoconf" ,autoconf)
|
||
("automake" ,automake)))
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'enter-build-directory
|
||
(lambda _ (chdir "xdelta3") #t)))))
|
||
(home-page "http://xdelta.org")
|
||
(synopsis "Delta encoder for binary files")
|
||
(description "xdelta encodes only the differences between two binary files
|
||
using the VCDIFF algorithm and patch file format described in RFC 3284. It can
|
||
also be used to apply such patches. xdelta is similar to @command{diff} and
|
||
@command{patch}, but is not limited to plain text and does not generate
|
||
human-readable output.")
|
||
(license license:asl2.0)))
|
||
|
||
(define-public lrzip
|
||
(package
|
||
(name "lrzip")
|
||
(version "0.631")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"http://ck.kolivas.org/apps/lrzip/lrzip-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"0mb449vmmwpkalq732jdyginvql57nxyd31sszb108yps1lf448d"))
|
||
(patches (search-patches "lrzip-CVE-2017-8842.patch"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(;; nasm is only required when building for 32-bit x86 platforms
|
||
,@(if (string-prefix? "i686" (or (%current-target-system)
|
||
(%current-system)))
|
||
`(("nasm" ,nasm))
|
||
'())
|
||
("perl" ,perl)))
|
||
(inputs
|
||
`(("bzip2" ,bzip2)
|
||
("lzo" ,lzo)
|
||
("zlib" ,zlib)))
|
||
(home-page "http://ck.kolivas.org/apps/lrzip/")
|
||
(synopsis "Large file compressor with a very high compression ratio")
|
||
(description "lrzip is a compression utility that uses long-range
|
||
redundancy reduction to improve the subsequent compression ratio of
|
||
larger files. It can then further compress the result with the ZPAQ or
|
||
LZMA algorithms for maximum compression, or LZO for maximum speed. This
|
||
choice between size or speed allows for either better compression than
|
||
even LZMA can provide, or a higher speed than gzip while compressing as
|
||
well as bzip2.")
|
||
(license (list license:gpl3+
|
||
license:public-domain)))) ; most files in lzma/
|
||
|
||
(define-public snappy
|
||
(package
|
||
(name "snappy")
|
||
(version "1.1.7")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://github.com/google/snappy/archive/"
|
||
version ".tar.gz"))
|
||
(file-name (string-append "snappy-" version ".tar.gz"))
|
||
(sha256
|
||
(base32 "1m7rcdqzkys5lspj8jcsaah8w33zh28s771bw0ga2lgzfgl05yix"))
|
||
(patches (search-patches "snappy-add-O2-flag-in-CmakeLists.txt.patch"))))
|
||
(build-system cmake-build-system)
|
||
(arguments
|
||
`(#:configure-flags '("-DBUILD_SHARED_LIBS=ON")))
|
||
(home-page "https://github.com/google/snappy")
|
||
(synopsis "Fast compressor/decompressor")
|
||
(description "Snappy is a compression/decompression library. It does not
|
||
aim for maximum compression, or compatibility with any other compression library;
|
||
instead, it aims for very high speeds and reasonable compression. For instance,
|
||
compared to the fastest mode of zlib, Snappy is an order of magnitude faster
|
||
for most inputs, but the resulting compressed files are anywhere from 20% to
|
||
100% bigger.")
|
||
(license license:asl2.0)))
|
||
|
||
(define-public p7zip
|
||
(package
|
||
(name "p7zip")
|
||
(version "16.02")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://sourceforge/" name "/" name "/"
|
||
version "/" name "_" version
|
||
"_src_all.tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"07rlwbbgszq8i7m8jh3x6j2w2hc9a72dc7fmqawnqkwlwb00mcjy"))
|
||
(modules '((guix build utils)))
|
||
(snippet
|
||
'(begin
|
||
;; Remove non-free source files
|
||
(for-each delete-file
|
||
(append
|
||
(find-files "CPP/7zip/Compress" "Rar.*")
|
||
(find-files "CPP/7zip/Crypto" "Rar.*")
|
||
(find-files "DOC/unRarLicense.txt")
|
||
(find-files "Utils/file_Codecs_Rar_so.py")))
|
||
(delete-file-recursively "CPP/7zip/Archive/Rar")
|
||
(delete-file-recursively "CPP/7zip/Compress/Rar")
|
||
#t))
|
||
(patches (search-patches "p7zip-CVE-2016-9296.patch"
|
||
"p7zip-CVE-2017-17969.patch"
|
||
"p7zip-remove-unused-code.patch"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:make-flags
|
||
(list (string-append "DEST_HOME=" (assoc-ref %outputs "out")) "all3")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(replace 'configure
|
||
(lambda* (#:key system outputs #:allow-other-keys)
|
||
(invoke "cp"
|
||
(let ((system ,(or (%current-target-system)
|
||
(%current-system))))
|
||
(cond
|
||
((string-prefix? "x86_64" system)
|
||
"makefile.linux_amd64_asm")
|
||
((string-prefix? "i686" system)
|
||
"makefile.linux_x86_asm_gcc_4.X")
|
||
(else
|
||
"makefile.linux_any_cpu_gcc_4.X")))
|
||
"makefile.machine")))
|
||
(replace 'check
|
||
(lambda _
|
||
(invoke "make" "test")
|
||
(invoke "make" "test_7z")
|
||
(invoke "make" "test_7zr"))))))
|
||
(inputs
|
||
(let ((system (or (%current-target-system)
|
||
(%current-system))))
|
||
`(,@(cond ((string-prefix? "x86_64" system)
|
||
`(("yasm" ,yasm)))
|
||
((string-prefix? "i686" system)
|
||
`(("nasm" ,nasm)))
|
||
(else '())))))
|
||
(home-page "http://p7zip.sourceforge.net/")
|
||
(synopsis "Command-line file archiver with high compression ratio")
|
||
(description "p7zip is a command-line port of 7-Zip, a file archiver that
|
||
handles the 7z format which features very high compression ratios.")
|
||
(license (list license:lgpl2.1+
|
||
license:gpl2+
|
||
license:public-domain))))
|
||
|
||
(define-public gzstream
|
||
(package
|
||
(name "gzstream")
|
||
(version "1.5")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri
|
||
;; No versioned URL, but last release was in 2003.
|
||
"http://www.cs.unc.edu/Research/compgeom/gzstream/gzstream.tgz")
|
||
(file-name (string-append name "-" version ".tgz"))
|
||
(sha256
|
||
(base32
|
||
"00y19pqjsdj5zcrx4p9j56pl73vayfwnb7y2hvp423nx0cwv5b4r"))
|
||
(modules '((guix build utils)))
|
||
(snippet
|
||
;; Remove pre-compiled object.
|
||
'(begin
|
||
(delete-file "gzstream.o")
|
||
#t))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:test-target "test"
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(delete 'configure)
|
||
(replace 'install
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(lib (string-append out "/lib"))
|
||
(include (string-append out "/include")))
|
||
(install-file "libgzstream.a" lib)
|
||
(install-file "gzstream.h" include)
|
||
#t))))))
|
||
(propagated-inputs `(("zlib" ,zlib)))
|
||
(home-page "http://www.cs.unc.edu/Research/compgeom/gzstream/")
|
||
(synopsis "Compressed C++ iostream")
|
||
(description "gzstream is a small library for providing zlib
|
||
functionality in a C++ iostream.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public zpaq
|
||
(package
|
||
(name "zpaq")
|
||
(version "7.15")
|
||
(source
|
||
(origin
|
||
(method url-fetch/zipbomb)
|
||
(uri (string-append "http://mattmahoney.net/dc/zpaq"
|
||
(string-delete #\. version) ".zip"))
|
||
(sha256
|
||
(base32
|
||
"066l94yyladlfzri877nh2dhkvspagjn3m5bmv725fmhkr9c4pp8"))
|
||
(modules '((guix build utils)))
|
||
(snippet
|
||
;; Delete irrelevant pre-compiled binaries.
|
||
'(begin
|
||
(for-each delete-file (find-files "." "\\.exe$"))
|
||
#t))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(delete 'configure)) ; no ‘configure’ script
|
||
#:make-flags
|
||
(list
|
||
(string-append "CPPFLAGS=-Dunix"
|
||
,(match (or (%current-target-system)
|
||
(%current-system))
|
||
("x86_64-linux" "")
|
||
("i686-linux" "")
|
||
(_ " -DNOJIT")))
|
||
;; These should be safe, lowest-common-denominator instruction sets,
|
||
;; allowing for some optimisation while remaining reproducible.
|
||
(string-append "CXXFLAGS=-O3 -DNDEBUG"
|
||
,(match (or (%current-target-system)
|
||
(%current-system))
|
||
("x86_64-linux" " -march=nocona -mtune=generic")
|
||
("i686-linux" " -march=i686 -mtune=generic")
|
||
("armhf-linux" " -mtune=generic-armv7-a")
|
||
(_ "")))
|
||
(string-append "PREFIX="
|
||
(assoc-ref %outputs "out")))))
|
||
(native-inputs
|
||
`(("perl" ,perl))) ; for pod2man
|
||
(home-page "http://mattmahoney.net/dc/zpaq.html")
|
||
(synopsis "Incremental journaling archiver")
|
||
(description "ZPAQ is a command-line archiver for realistic situations with
|
||
many duplicate and already compressed files. It backs up only those files
|
||
modified since the last update. All previous versions remain untouched and can
|
||
be independently recovered. Identical files are only stored once (known as
|
||
@dfn{de-duplication}). Archives can also be encrypted.
|
||
|
||
ZPAQ is intended to back up user data, not entire operating systems. It ignores
|
||
owner and group IDs, ACLs, extended attributes, or special file types like
|
||
devices, sockets, or named pipes. It does not follow or restore symbolic links
|
||
or junctions, and always follows hard links.")
|
||
(license (list license:public-domain
|
||
;; libzpaq.cpp contains a mix of public-domain and
|
||
;; expat-licenced (or ‘MIT’) code.
|
||
license:expat))))
|
||
|
||
(define-public unshield
|
||
(package
|
||
(name "unshield")
|
||
(version "1.4.3")
|
||
(source
|
||
(origin (method url-fetch)
|
||
(uri (string-append "http://github.com/twogood/unshield/archive/"
|
||
version ".tar.gz"))
|
||
(file-name (string-append name "-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1avv5c11jbmzwizq10pwvlh1dmyna8ccvpgacv95h4gbq26rg35a"))))
|
||
(build-system cmake-build-system)
|
||
(inputs
|
||
`(("zlib" ,zlib)
|
||
("openssl" ,openssl)
|
||
;; Test data that is otherwise downloaded with curl.
|
||
("unshield-avigomanager11b22.zip"
|
||
,(origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"https://www.dropbox.com/s/8r4b6752swe3nhu/"
|
||
"unshield-avigomanager11b22.zip?dl=1"))
|
||
(sha256
|
||
(base32 "0fwq7lih04if68wpwpsk5wjqyvh32db76a41sq6gbx4dn1lc3ddn"))
|
||
(file-name "unshield-avigomanager11b22.zip")))
|
||
("unshield-baldurs_gate_patch_v1_1_4315_international.zip"
|
||
,(origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"https://www.dropbox.com/s/9ruil8oi6amjbbk/"
|
||
"unshield-baldurs_gate_patch_v1_1_4315_international.zip?dl=1"))
|
||
(sha256
|
||
(base32 "0spaxf6dardlhqxz3ys09fzamj007q3nfyw4xng6gh3qp9780maj"))
|
||
(file-name "unshield-baldurs_gate_patch_v1_1_4315_international.zip")))
|
||
("unshield-the-feeble-files-spanish.zip"
|
||
,(origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"https://www.dropbox.com/s/1ng0z9kfxc7eb1e/"
|
||
"unshield-the-feeble-files-spanish.zip?dl=1"))
|
||
(sha256
|
||
(base32 "1k5cw6vnpja8yjlnhx5124xrw9i8s1l539hfdqqrqz3l5gn0bnyd"))
|
||
(file-name "unshield-the-feeble-files-spanish.zip")))))
|
||
(native-inputs
|
||
`(("unzip" ,unzip)))
|
||
(arguments
|
||
`(#:out-of-source? #f
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'check 'pre-check
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(for-each (lambda (i)
|
||
(copy-file (assoc-ref inputs i)
|
||
(string-append "test/v0/" i)))
|
||
'("unshield-avigomanager11b22.zip"
|
||
"unshield-baldurs_gate_patch_v1_1_4315_international.zip"
|
||
"unshield-the-feeble-files-spanish.zip"))
|
||
(substitute* (find-files "test/" "/*\\.sh")
|
||
;; Tests expect the unshield binary in a specific
|
||
;; location.
|
||
(("/var/tmp/unshield/bin/unshield")
|
||
(string-append (getcwd) "/src/unshield"))
|
||
;; We no longer need to download the data.
|
||
((".?URL=.*$") "")
|
||
(("curl -(|f)sSL -o test.zip .*") ""))
|
||
(substitute* "test/v0/avigomanager.sh"
|
||
(("test.zip")
|
||
(string-append (getcwd)
|
||
"/test/v0/unshield-avigomanager11b22.zip")))
|
||
(substitute* "test/v0/baldurs_gate_patch_v1_1_4315_international.sh"
|
||
(("test.zip")
|
||
(string-append
|
||
(getcwd)
|
||
"/test/v0/unshield-baldurs_gate_patch_v1_1_4315_international.zip")))
|
||
(substitute* "test/v0/the-feeble-files-spanish.sh"
|
||
(("test.zip")
|
||
(string-append (getcwd)
|
||
"/test/v0/unshield-the-feeble-files-spanish.zip")))
|
||
#t))
|
||
(replace 'check
|
||
(lambda _
|
||
(invoke "./run-tests.sh"))))))
|
||
(home-page "https://github.com/twogood/unshield")
|
||
(synopsis "Extract CAB files from InstallShield installers")
|
||
(description
|
||
"@command{unshield} is a tool and library for extracting @file{.cab}
|
||
archives from InstallShield installers.")
|
||
(license license:expat)))
|
||
|
||
(define-public zstd
|
||
(package
|
||
(name "zstd")
|
||
(version "1.4.2")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://github.com/facebook/zstd/releases/download/"
|
||
"v" version "/zstd-" version ".tar.gz"))
|
||
(sha256
|
||
(base32 "1ja3nrjynmiwwdjrf6crraizkbagp7y414bqqq2ady91nn1hjwqj"))))
|
||
(build-system gnu-build-system)
|
||
(outputs '("out" ;1.1MiB executables and documentation
|
||
"lib" ;1MiB shared library and headers
|
||
"static")) ;1MiB static library
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(delete 'configure) ;no configure script
|
||
(add-after 'install 'adjust-library-locations
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(lib (assoc-ref outputs "lib"))
|
||
(static (assoc-ref outputs "static"))
|
||
(shared-libs (string-append lib "/lib"))
|
||
(static-libs (string-append static "/lib")))
|
||
;; Move the static library to its own output to save ~1MiB.
|
||
(mkdir-p static-libs)
|
||
(for-each (lambda (ar)
|
||
(link ar (string-append static-libs "/"
|
||
(basename ar)))
|
||
(delete-file ar))
|
||
(find-files shared-libs "\\.a$"))
|
||
|
||
;; While here, remove prefix= from the pkg-config file because it
|
||
;; is unused, and because it contains a needless reference to $out.
|
||
;; XXX: It would be great if #:disallow-references worked between
|
||
;; outputs.
|
||
(substitute* (string-append shared-libs "/pkgconfig/libzstd.pc")
|
||
(("^prefix=.*") ""))
|
||
|
||
#t))))
|
||
#:make-flags
|
||
(list "CC=gcc"
|
||
(string-append "PREFIX=" (assoc-ref %outputs "out"))
|
||
(string-append "LIBDIR=" (assoc-ref %outputs "lib") "/lib")
|
||
(string-append "INCLUDEDIR=" (assoc-ref %outputs "lib") "/include")
|
||
;; Skip auto-detection of, and creating a dependency on, the build
|
||
;; environment's ‘xz’ for what amounts to a dubious feature anyway.
|
||
"HAVE_LZMA=0"
|
||
;; Not currently detected, but be explicit & avoid surprises later.
|
||
"HAVE_LZ4=0"
|
||
"HAVE_ZLIB=0")))
|
||
(home-page "https://facebook.github.io/zstd/")
|
||
(synopsis "Zstandard real-time compression algorithm")
|
||
(description "Zstandard (@command{zstd}) is a lossless compression algorithm
|
||
that combines very fast operation with a compression ratio comparable to that of
|
||
zlib. In most scenarios, both compression and decompression can be performed in
|
||
‘real time’. The compressor can be configured to provide the most suitable
|
||
trade-off between compression ratio and speed, without affecting decompression
|
||
speed.")
|
||
(license (list license:bsd-3 ; the main top-level LICENSE file
|
||
license:bsd-2 ; many files explicitly state 2-Clause
|
||
license:gpl2 ; the main top-level COPYING file
|
||
license:gpl3+ ; tests/gzip/*.sh
|
||
license:expat ; lib/dictBuilder/divsufsort.[ch]
|
||
license:public-domain ; zlibWrapper/examples/fitblk*
|
||
license:zlib)))) ; zlibWrapper/{gz*.c,gzguts.h}
|
||
|
||
(define-public pzstd
|
||
(package
|
||
(name "pzstd")
|
||
(version (package-version zstd))
|
||
(source (package-source zstd))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("googletest" ,googletest)))
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'enter-subdirectory
|
||
(lambda _ (chdir "contrib/pzstd") #t))
|
||
(delete 'configure) ; no configure script
|
||
(add-before 'check 'compile-tests
|
||
(lambda* (#:key make-flags #:allow-other-keys)
|
||
(apply invoke "make" "tests" make-flags)))
|
||
(add-after 'install 'install-documentation
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(doc (string-append out "/share/doc/" ,name)))
|
||
(mkdir-p doc)
|
||
(install-file "README.md" doc)
|
||
#t))))
|
||
#:make-flags
|
||
(list "CC=gcc"
|
||
(string-append "PREFIX=" (assoc-ref %outputs "out")))))
|
||
(home-page (package-home-page zstd))
|
||
(synopsis "Threaded implementation of the Zstandard compression algorithm")
|
||
(description "Parallel Zstandard (PZstandard or @command{pzstd}) is a
|
||
multi-threaded implementation of the @uref{http://zstd.net/, Zstandard
|
||
compression algorithm}. It is fully compatible with the original Zstandard file
|
||
format and command-line interface, and can be used as a drop-in replacement.
|
||
|
||
Compression is distributed over multiple processor cores to improve performance,
|
||
as is the decompression of data compressed in this manner. Data compressed by
|
||
other implementations will only be decompressed by two threads: one performing
|
||
the actual decompression, the other input and output.")
|
||
(license (package-license zstd))))
|
||
|
||
(define-public zip
|
||
(package
|
||
(name "zip")
|
||
(version "3.0")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://sourceforge/infozip"
|
||
"/Zip%203.x%20%28latest%29/3.0/zip30.tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0sb3h3067pzf3a7mlxn1hikpcjrsvycjcnj9hl9b1c3ykcgvps7h"))))
|
||
(build-system gnu-build-system)
|
||
(inputs `(("bzip2" ,bzip2)))
|
||
(arguments
|
||
`(#:tests? #f ; no test target
|
||
#:make-flags (let ((out (assoc-ref %outputs "out")))
|
||
(list "-f" "unix/Makefile"
|
||
(string-append "prefix=" out)
|
||
(string-append "MANDIR=" out "/share/man/man1")))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(replace 'build
|
||
(lambda* (#:key (make-flags '()) #:allow-other-keys)
|
||
(apply invoke "make" "generic_gcc" make-flags)))
|
||
(delete 'configure))))
|
||
(home-page "http://www.info-zip.org/Zip.html")
|
||
(synopsis "Compression and file packing utility")
|
||
(description
|
||
"Zip is a compression and file packaging/archive utility. Zip is useful
|
||
for packaging a set of files for distribution, for archiving files, and for
|
||
saving disk space by temporarily compressing unused files or directories.
|
||
Zip puts one or more compressed files into a single ZIP archive, along with
|
||
information about the files (name, path, date, time of last modification,
|
||
protection, and check information to verify file integrity). An entire
|
||
directory structure can be packed into a ZIP archive with a single command.
|
||
|
||
Zip has one compression method (deflation) and can also store files without
|
||
compression. Zip automatically chooses the better of the two for each file.
|
||
Compression ratios of 2:1 to 3:1 are common for text files.")
|
||
(license (license:non-copyleft "file://LICENSE"
|
||
"See LICENSE in the distribution."))))
|
||
|
||
(define-public unzip
|
||
(package (inherit zip)
|
||
(name "unzip")
|
||
(version "6.0")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://sourceforge/infozip"
|
||
"/UnZip%206.x%20%28latest%29/UnZip%206.0/unzip60.tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0dxx11knh3nk95p2gg2ak777dd11pr7jx5das2g49l262scrcv83"))
|
||
(patches (search-patches "unzip-CVE-2014-8139.patch"
|
||
"unzip-CVE-2014-8140.patch"
|
||
"unzip-CVE-2014-8141.patch"
|
||
"unzip-CVE-2014-9636.patch"
|
||
"unzip-CVE-2015-7696.patch"
|
||
"unzip-CVE-2015-7697.patch"
|
||
"unzip-allow-greater-hostver-values.patch"
|
||
"unzip-initialize-symlink-flag.patch"
|
||
"unzip-remove-build-date.patch"
|
||
"unzip-attribs-overflow.patch"
|
||
"unzip-overflow-on-invalid-input.patch"
|
||
"unzip-format-secure.patch"
|
||
"unzip-overflow-long-fsize.patch"))))
|
||
(build-system gnu-build-system)
|
||
;; no inputs; bzip2 is not supported, since not compiled with BZ_NO_STDIO
|
||
(arguments
|
||
`(#:phases (modify-phases %standard-phases
|
||
(delete 'configure)
|
||
(add-after 'unpack 'fortify
|
||
(lambda _
|
||
;; Mitigate CVE-2018-1000035, an exploitable buffer overflow.
|
||
;; This environment variable is recommended in 'unix/Makefile'
|
||
;; for passing flags to the C compiler.
|
||
(setenv "LOCAL_UNZIP" "-D_FORTIFY_SOURCE=1")
|
||
#t))
|
||
(replace 'build
|
||
(lambda* (#:key make-flags #:allow-other-keys)
|
||
(apply invoke "make"
|
||
`("-j" ,(number->string
|
||
(parallel-job-count))
|
||
,@make-flags
|
||
"generic_gcc")))))
|
||
#:make-flags (list "-f" "unix/Makefile"
|
||
(string-append "prefix=" %output)
|
||
(string-append "MANDIR=" %output "/share/man/man1"))))
|
||
(home-page "http://www.info-zip.org/UnZip.html")
|
||
(synopsis "Decompression and file extraction utility")
|
||
(description
|
||
"UnZip is an extraction utility for archives compressed in .zip format,
|
||
also called \"zipfiles\".
|
||
|
||
UnZip lists, tests, or extracts files from a .zip archive. The default
|
||
behaviour (with no options) is to extract into the current directory, and
|
||
subdirectories below it, all files from the specified zipfile. UnZip
|
||
recreates the stored directory structure by default.")
|
||
(license (license:non-copyleft "file://LICENSE"
|
||
"See LICENSE in the distribution."))))
|
||
|
||
(define-public zziplib
|
||
(package
|
||
(name "zziplib")
|
||
(version "0.13.69")
|
||
(home-page "https://github.com/gdraheim/zziplib")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference (url home-page)
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"0fbk9k7ryas2wh2ykwkvm1pbi40i88rfvc3dydh9xyd7w2jcki92"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:phases (modify-phases %standard-phases
|
||
(add-before 'check 'make-files-writable
|
||
(lambda _
|
||
(for-each make-file-writable
|
||
(find-files "test" #:directories? #t))
|
||
#t)))
|
||
|
||
;; XXX: The default test target attempts to download external resources and
|
||
;; fails without error: <https://github.com/gdraheim/zziplib/issues/53>.
|
||
;; To prevent confusing log messages, just run a simple zip test that works.
|
||
#:test-target "check-readme"))
|
||
(inputs
|
||
`(("zlib" ,zlib)))
|
||
(native-inputs `(("perl" ,perl) ; for the documentation
|
||
("pkg-config" ,pkg-config)
|
||
;; for the documentation; Python 3 not supported,
|
||
;; http://forums.gentoo.org/viewtopic-t-863161-start-0.html
|
||
("python" ,python-2)
|
||
("zip" ,zip))) ; to create test files
|
||
(synopsis "Library for accessing zip files")
|
||
(description
|
||
"ZZipLib is a library based on zlib for accessing zip files.")
|
||
;; zziplib is dual licensed under LGPL2.0+ and MPL1.1. Some example source
|
||
;; files carry the Zlib license; see "docs/copying.html" for details.
|
||
(license (list license:lgpl2.0+ license:mpl1.1))))
|
||
|
||
(define-public libzip
|
||
(package
|
||
(name "libzip")
|
||
(version "1.5.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"https://libzip.org/download/libzip-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1d53shcy7nvls5db573bbdlm25lfz1iw2zshng5f00cssi5lvpmk"))))
|
||
(native-inputs
|
||
`(("perl" ,perl)))
|
||
(inputs
|
||
`(("zlib" ,zlib)))
|
||
(build-system cmake-build-system)
|
||
(home-page "https://libzip.org")
|
||
(synopsis "C library for reading, creating, and modifying zip archives")
|
||
(description "Libzip is a C library for reading, creating, and modifying
|
||
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 "https://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+)))
|
||
|
||
(define-public lunzip
|
||
(package
|
||
(name "lunzip")
|
||
(version "1.11")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://savannah/lzip/lunzip/"
|
||
"lunzip-" version ".tar.gz"))
|
||
(sha256
|
||
(base32 "19zq3gmlbia2krq4k4zs1j0xjdv7nsdzqvfb0pyca5n53h2mzb91"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:configure-flags
|
||
(list "CC=gcc")))
|
||
(home-page "https://www.nongnu.org/lzip/lunzip.html")
|
||
(synopsis "Small, stand-alone lzip decompressor")
|
||
(description
|
||
"Lunzip is a decompressor for files in the lzip compression format (.lz),
|
||
written as a single small C tool with no dependencies. This makes it
|
||
well-suited to embedded and other systems without a C++ compiler, or for use in
|
||
applications such as software installers that need only to decompress files,
|
||
not compress them.
|
||
Lunzip is intended to be fully compatible with the regular lzip package.")
|
||
(license (list license:bsd-2 ; carg_parser.[ch]
|
||
license:gpl2+)))) ; everything else
|
||
|
||
(define-public clzip
|
||
(package
|
||
(name "clzip")
|
||
(version "1.11")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://savannah/lzip/clzip/"
|
||
"clzip-" version ".tar.gz"))
|
||
(sha256
|
||
(base32 "1h14dmc9fi10gcdpdpbgq1bwvcxvivppilj64pf720x8mw915mfr"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:configure-flags
|
||
(list "CC=gcc")))
|
||
(home-page "https://www.nongnu.org/lzip/clzip.html")
|
||
(synopsis "Small, stand-alone lzip compressor and decompressor")
|
||
(description
|
||
"Clzip is a compressor and decompressor for files in the lzip compression
|
||
format (.lz), written as a single small C tool with no dependencies. This makes
|
||
it well-suited to embedded and other systems without a C++ compiler, or for use
|
||
in other applications like package managers.
|
||
Clzip is intended to be fully compatible with the regular lzip package.")
|
||
(license (list license:bsd-2 ; carg_parser.[ch], lzd in clzip.texi
|
||
license:gpl2+))))
|
||
|
||
(define-public lzlib
|
||
(package
|
||
(name "lzlib")
|
||
(version "1.11")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://savannah/lzip/lzlib/"
|
||
"lzlib-" version ".tar.gz"))
|
||
(sha256
|
||
(base32 "0djdj4sg33rzi4k84cygvnp09bfsv6i8wy2k7i67rayib63myp3c"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:configure-flags
|
||
(list "CC=gcc"
|
||
"--enable-shared"))) ; only static (.a) is built by default
|
||
(home-page "https://www.nongnu.org/lzip/lzlib.html")
|
||
(synopsis "Lzip data compression C library")
|
||
(description
|
||
"Lzlib is a C library for in-memory LZMA compression and decompression in
|
||
the lzip format. It supports integrity checking of the decompressed data, and
|
||
all functions are thread-safe. The library should never crash, even in case of
|
||
corrupted input.")
|
||
(license (list license:bsd-2 ; the library itself
|
||
license:gpl2+)))) ; main.c (i.e. minilzip used by tests)
|
||
|
||
(define-public plzip
|
||
(package
|
||
(name "plzip")
|
||
(version "1.8")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://savannah/lzip/plzip/"
|
||
"plzip-" version ".tar.gz"))
|
||
(sha256
|
||
(base32 "04indil809qgfmz776imb3dnhkysh7zk28jcv3mw0ahl2lyaxbzd"))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
`(("lzlib" ,lzlib)))
|
||
(home-page "https://www.nongnu.org/lzip/plzip.html")
|
||
(synopsis "Parallel lossless data compressor for the lzip format")
|
||
(description
|
||
"Plzip is a massively parallel (multi-threaded) lossless data compressor
|
||
and decompressor that uses the lzip file format (.lz). Files produced by plzip
|
||
are fully compatible with lzip and can be rescued with lziprecover.
|
||
On multiprocessor machines, plzip can compress and decompress large files much
|
||
faster than lzip, at the cost of a slightly reduced compression ratio (0.4% to
|
||
2%). The number of usable threads is limited by file size: on files of only a
|
||
few MiB, plzip is no faster than lzip.
|
||
Files that were compressed with regular lzip will also not be decompressed
|
||
faster by plzip, unless the @code{-b} option was used: lzip usually produces
|
||
single-member files which can't be decompressed in parallel.")
|
||
(license (list license:bsd-2 ; arg_parser.{cc,h}
|
||
license:gpl2+)))) ; everything else
|
||
|
||
(define-public innoextract
|
||
(package
|
||
(name "innoextract")
|
||
(version "1.7")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://github.com/dscharrer/innoextract/archive/"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0khwi9f0q0h6xfbixrrc1rfpgj0b7ajwilq7yhmxnn5lpc807f6x"))
|
||
(file-name (string-append name "-" version ".tar.gz"))))
|
||
(build-system cmake-build-system)
|
||
(arguments
|
||
`(#:tests? #f
|
||
#:phases (modify-phases %standard-phases
|
||
(add-before 'configure 'glibc-is-already-a-system-library
|
||
(lambda _
|
||
;; Prevent the build system from passing the glibc
|
||
;; header files to GCC as "system headers", because
|
||
;; it conflicts with the system headers already known
|
||
;; to GCC, causing #include_next failures.
|
||
(substitute* "CMakeLists.txt"
|
||
(("include_directories\\(SYSTEM \\$\\{iconv")
|
||
"include_directories(${iconv"))
|
||
#t)))))
|
||
(inputs `(("boost" ,boost)
|
||
("libiconv" ,libiconv)
|
||
("xz" ,xz)))
|
||
(native-inputs `(("pkg-config" ,pkg-config)))
|
||
(home-page "https://constexpr.org/innoextract/")
|
||
(synopsis "Tool for extracting Inno Setup installers")
|
||
(description "innoextract allows extracting Inno Setup installers under
|
||
non-Windows systems without running the actual installer using wine.")
|
||
(license license:zlib)))
|
||
|
||
(define-public google-brotli
|
||
(package
|
||
(name "google-brotli")
|
||
(version "1.0.7")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/google/brotli.git")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "1811b55wdfg4kbsjcgh1kc938g118jpvif97ilgrmbls25dfpvvw"))))
|
||
(build-system cmake-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'install 'rename-static-libraries
|
||
;; The build tools put a 'static' suffix on the static libraries, but
|
||
;; other applications don't know how to find these.
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((lib (string-append (assoc-ref %outputs "out") "/lib/")))
|
||
(rename-file (string-append lib "libbrotlicommon-static.a")
|
||
(string-append lib "libbrotlicommon.a"))
|
||
(rename-file (string-append lib "libbrotlidec-static.a")
|
||
(string-append lib "libbrotlidec.a"))
|
||
(rename-file (string-append lib "libbrotlienc-static.a")
|
||
(string-append lib "libbrotlienc.a"))
|
||
#t))))
|
||
#:configure-flags
|
||
(list ;; Defaults to "lib64" on 64-bit archs.
|
||
(string-append "-DCMAKE_INSTALL_LIBDIR="
|
||
(assoc-ref %outputs "out") "/lib"))))
|
||
(home-page "https://github.com/google/brotli")
|
||
(synopsis "General-purpose lossless compression")
|
||
(description "This package provides the reference implementation of Brotli,
|
||
a generic-purpose lossless compression algorithm that compresses data using a
|
||
combination of a modern variant of the LZ77 algorithm, Huffman coding and 2nd
|
||
order context modeling, with a compression ratio comparable to the best
|
||
currently available general-purpose compression methods. It is similar in speed
|
||
with @code{deflate} but offers more dense compression.
|
||
|
||
The specification of the Brotli Compressed Data Format is defined in RFC 7932.")
|
||
(license license:expat)))
|
||
|
||
(define-public ucl
|
||
(package
|
||
(name "ucl")
|
||
(version "1.03")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "http://www.oberhumer.com/opensource/"
|
||
name "/download/" name "-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0j036lkwsxvm15gr29n8wn07cqq79dswjs9k54939ms5zngjjrdq"))))
|
||
(build-system gnu-build-system)
|
||
(home-page "http://www.oberhumer.com/opensource/ucl/")
|
||
(synopsis "Portable lossless data compression library")
|
||
(description "UCL implements a number of compression algorithms that
|
||
achieve an excellent compression ratio while allowing fast decompression.
|
||
Decompression requires no additional memory.
|
||
|
||
Compared to LZO, the UCL algorithms achieve a better compression ratio but
|
||
decompression is a little bit slower.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public upx
|
||
(package
|
||
(name "upx")
|
||
(version "3.94")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://github.com/upx/upx/releases/download/v"
|
||
version "/" name "-" version "-src.tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"08anybdliqsbsl6x835iwzljahnm9i7v26icdjkcv33xmk6p5vw1"))
|
||
(patches (search-patches "upx-fix-CVE-2017-15056.patch"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs `(("perl" ,perl)
|
||
("ucl" ,ucl)))
|
||
(inputs `(("zlib" ,zlib)))
|
||
(arguments
|
||
`(#:make-flags
|
||
(list "all"
|
||
;; CHECK_WHITESPACE does not seem to work.
|
||
;; See https://git.archlinux.org/svntogit/community.git/tree/trunk/PKGBUILD?h=packages/upx.
|
||
"CHECK_WHITESPACE=true")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(delete 'configure)
|
||
(delete 'check)
|
||
(delete 'install)
|
||
(add-before 'build 'patch-exec-bin-sh
|
||
(lambda _
|
||
(substitute* (find-files "Makefile")
|
||
(("/bin/sh") (which "sh")))
|
||
(substitute* "src/Makefile"
|
||
(("/bin/sh") (which "sh")))
|
||
#t))
|
||
(add-after 'build 'install-upx
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(bin (string-append out "/bin")))
|
||
(mkdir-p bin)
|
||
(copy-file "src/upx.out" (string-append bin "/upx")))
|
||
#t))
|
||
)))
|
||
(home-page "https://upx.github.io/")
|
||
;; CVE-2017-16869 is about Mach-O files which is not of a big concern for Guix.
|
||
;; See https://github.com/upx/upx/issues/146 and
|
||
;; https://nvd.nist.gov/vuln/detail?vulnId=CVE-2017-16869.
|
||
;; The issue will be fixed after version 3.94.
|
||
(properties `((lint-hidden-cve . ("CVE-2017-16869"))))
|
||
(synopsis "Compression tool for executables")
|
||
(description
|
||
"The Ultimate Packer for eXecutables (UPX) is an executable file
|
||
compressor. UPX typically reduces the file size of programs and shared
|
||
libraries by around 50%--70%, thus reducing disk space, network load times,
|
||
download times, and other distribution and storage costs.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public quazip
|
||
(package
|
||
(name "quazip")
|
||
(version "0.8.1")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/stachenov/quazip.git")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"1g473gnsbkvxpsv8lbsmhspn7jnq86b05zzgqh11r581v8ndvz5s"))))
|
||
(build-system cmake-build-system)
|
||
(arguments
|
||
`(#:tests? #f)) ;no test
|
||
(native-inputs
|
||
`(("doxygen" ,doxygen)))
|
||
(inputs
|
||
`(("qtbase" ,qtbase)
|
||
("zlib" ,zlib)))
|
||
(home-page "https://stachenov.github.io/quazip/index.html")
|
||
(synopsis "Qt/C++ wrapper for Minizip")
|
||
(description "QuaZIP is a simple C++ wrapper over Gilles Vollant's
|
||
ZIP/UNZIP package that can be used to access ZIP archives. It uses
|
||
Trolltech's Qt toolkit.
|
||
|
||
QuaZIP allows you to access files inside ZIP archives using QIODevice
|
||
API, and that means that you can also use QTextStream, QDataStream or
|
||
whatever you would like to use on your zipped files.
|
||
|
||
QuaZIP provides complete abstraction of the ZIP/UNZIP API, for both
|
||
reading from and writing to ZIP archives. ")
|
||
;; Project is distributed under LGPL, but "quazip/z*" "quazip/unzip.*" are
|
||
;; distributed under zlib terms.
|
||
(license (list license:lgpl2.1+ license:zlib))))
|
||
|
||
(define-public zutils
|
||
(package
|
||
(name "zutils")
|
||
;; Check and remove the lint-hidden-cve property when updating.
|
||
(version "1.8")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://savannah/zutils/zutils-" version ".tar.lz"))
|
||
(sha256
|
||
(base32 "0dx35mv78fgqgz6sszs05ng8ipz2xy09ry9vpmka2rmy08b7x907"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:configure-flags
|
||
(list "--sysconfdir=/etc")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(replace 'install
|
||
(lambda* (#:key make-flags outputs #:allow-other-keys)
|
||
(apply invoke "make" "install"
|
||
(string-append "sysconfdir=" (assoc-ref outputs "out")
|
||
"/etc")
|
||
make-flags))))))
|
||
(native-inputs
|
||
;; Needed to extract the source tarball and run the test suite.
|
||
`(("lzip" ,lzip)))
|
||
(properties `((lint-hidden-cve . ("CVE-2018-1000637"))))
|
||
(home-page "https://www.nongnu.org/zutils/zutils.html")
|
||
(synopsis "Utilities that transparently operate on compressed files")
|
||
(description
|
||
"Zutils is a collection of utilities able to process any combination of
|
||
compressed and uncompressed files transparently. If any given file, including
|
||
standard input, is compressed, its decompressed content is used instead.
|
||
|
||
@command{zcat}, @command{zcmp}, @command{zdiff}, and @command{zgrep} are
|
||
improved replacements for the shell scripts provided by GNU gzip.
|
||
@command{ztest} tests the integrity of supported compressed files.
|
||
@command{zupdate} recompresses files with lzip, similar to gzip's
|
||
@command{znew}.
|
||
|
||
Supported compression formats are bzip2, gzip, lzip, and xz. Zutils uses
|
||
external compressors: the compressor to be used for each format is configurable
|
||
at run time, and must be installed separately.")
|
||
(license (list license:bsd-2 ; arg_parser.{cc,h}
|
||
license:gpl2+)))) ; the rest
|
||
|
||
(define-public makeself-safeextract
|
||
(let ((commit "1a95e121fa8e3c02d307ae37b9b7834e616c3683"))
|
||
(package
|
||
(name "makeself-safeextract")
|
||
(version (git-version "0.0.0" "1" commit))
|
||
(home-page "https://github.com/ssokolow/makeself_safeextract")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url home-page)
|
||
(commit commit)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"1anlinaj9lvfi8bn00wp11vzqq0f9sig4fm9yrspisx31v0z4a2c"))))
|
||
(build-system trivial-build-system)
|
||
(inputs
|
||
`(("python" ,python-2)
|
||
("p7zip" ,p7zip)
|
||
("unzip" ,unzip)))
|
||
(arguments
|
||
`(#:modules ((guix build utils))
|
||
#:builder
|
||
(begin
|
||
(use-modules (guix build utils))
|
||
(let* ((name "makeself_safeextract")
|
||
(source (string-append (assoc-ref %build-inputs "source")
|
||
"/" name ".py"))
|
||
(bin (string-append (assoc-ref %outputs "out") "/bin"))
|
||
(target (string-append bin "/" name))
|
||
(python (string-append (assoc-ref %build-inputs "python") "/bin"))
|
||
(7z (string-append (assoc-ref %build-inputs "p7zip") "/bin/7z"))
|
||
(unzip (string-append (assoc-ref %build-inputs "unzip") "/bin/unzip")))
|
||
(setenv "PATH" (string-append (getenv "PATH") ":" python))
|
||
(mkdir-p bin)
|
||
(copy-file source target)
|
||
(substitute* target
|
||
(("'7z'") (format #f "'~a'" 7z))
|
||
(("'unzip'") (format #f "'~a'" unzip)))
|
||
(patch-shebang target)))))
|
||
(synopsis "Extract makeself and mojo archives without running untrusted code")
|
||
(description "This package provides a script to unpack self-extracting
|
||
archives generated by @command{makeself} or @command{mojo} without running the
|
||
possibly untrusted extraction shell script.")
|
||
(license license:gpl3+))))
|