2019-09-08 21:36:33 +00:00
|
|
|
|
;;; GNU Guix --- Functional package management for GNU
|
|
|
|
|
;;; Copyright © 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
|
2021-10-24 15:07:35 +00:00
|
|
|
|
;;; Copyright © 2017, 2021 Ricardo Wurmus <rekado@elephly.net>
|
2021-05-01 03:29:06 +00:00
|
|
|
|
;;; Copyright © 2017–2021 Tobias Geerinckx-Rice <me@tobias.gr>
|
2019-09-08 21:36:33 +00:00
|
|
|
|
;;; Copyright © 2018 Julien Lepiller <julien@lepiller.eu>
|
|
|
|
|
;;; Copyright © 2018, 2019 Rutger Helling <rhelling@mykolab.com>
|
|
|
|
|
;;; Copyright © 2019 Vagrant Cascadian <vagrant@reproducible-builds.org>
|
|
|
|
|
;;;
|
|
|
|
|
;;; 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 diffoscope)
|
|
|
|
|
#:use-module (gnu packages)
|
|
|
|
|
#:use-module (gnu packages acl)
|
|
|
|
|
#:use-module (gnu packages admin)
|
2019-09-08 22:35:33 +00:00
|
|
|
|
#:use-module (gnu packages android)
|
2019-09-08 21:36:33 +00:00
|
|
|
|
#:use-module (gnu packages backup)
|
|
|
|
|
#:use-module (gnu packages base)
|
2019-09-08 22:35:33 +00:00
|
|
|
|
#:use-module (gnu packages bootloaders)
|
2019-09-08 21:36:33 +00:00
|
|
|
|
#:use-module (gnu packages cdrom)
|
|
|
|
|
#:use-module (gnu packages check)
|
|
|
|
|
#:use-module (gnu packages compression)
|
|
|
|
|
#:use-module (gnu packages cpio)
|
|
|
|
|
#:use-module (gnu packages dbm)
|
2021-12-16 20:10:34 +00:00
|
|
|
|
#:use-module (gnu packages file) ;for 'file-next'
|
2019-09-08 21:36:33 +00:00
|
|
|
|
#:use-module (gnu packages gettext)
|
|
|
|
|
#:use-module (gnu packages ghostscript)
|
|
|
|
|
#:use-module (gnu packages gnome)
|
|
|
|
|
#:use-module (gnu packages gnupg)
|
|
|
|
|
#:use-module (gnu packages haskell)
|
|
|
|
|
#:use-module (gnu packages image)
|
|
|
|
|
#:use-module (gnu packages imagemagick)
|
|
|
|
|
#:use-module (gnu packages java)
|
|
|
|
|
#:use-module (gnu packages linux)
|
|
|
|
|
#:use-module (gnu packages llvm)
|
2020-02-08 00:06:17 +00:00
|
|
|
|
#:use-module (gnu packages man)
|
2020-04-17 06:33:37 +00:00
|
|
|
|
#:use-module (gnu packages maths)
|
2019-09-08 21:36:33 +00:00
|
|
|
|
#:use-module (gnu packages mono)
|
2019-09-19 00:28:11 +00:00
|
|
|
|
#:use-module (gnu packages ocaml)
|
2019-09-08 21:36:33 +00:00
|
|
|
|
#:use-module (gnu packages package-management)
|
2021-10-27 15:58:22 +00:00
|
|
|
|
#:use-module (gnu packages pascal)
|
2019-09-08 21:36:33 +00:00
|
|
|
|
#:use-module (gnu packages patchutils)
|
|
|
|
|
#:use-module (gnu packages pdf)
|
|
|
|
|
#:use-module (gnu packages python-web)
|
|
|
|
|
#:use-module (gnu packages python-xyz)
|
|
|
|
|
#:use-module (gnu packages sqlite)
|
|
|
|
|
#:use-module (gnu packages ssh)
|
2019-09-08 22:35:33 +00:00
|
|
|
|
#:use-module (gnu packages statistics)
|
2019-09-08 21:36:33 +00:00
|
|
|
|
#:use-module (gnu packages textutils)
|
2020-04-30 18:46:30 +00:00
|
|
|
|
#:use-module (gnu packages tls)
|
2019-09-08 21:36:33 +00:00
|
|
|
|
#:use-module (gnu packages video)
|
|
|
|
|
#:use-module (gnu packages vim)
|
2019-09-05 18:13:22 +00:00
|
|
|
|
#:use-module (gnu packages web)
|
2019-09-08 21:36:33 +00:00
|
|
|
|
#:use-module (guix build-system python)
|
|
|
|
|
#:use-module (guix gexp)
|
|
|
|
|
#:use-module (guix git-download)
|
|
|
|
|
#:use-module ((guix licenses) #:prefix license:)
|
|
|
|
|
#:use-module (guix packages)
|
2019-09-21 22:31:41 +00:00
|
|
|
|
#:use-module (guix utils)
|
|
|
|
|
#:use-module (ice-9 match))
|
2019-09-08 21:36:33 +00:00
|
|
|
|
|
|
|
|
|
(define-public diffoscope
|
2020-06-05 16:58:02 +00:00
|
|
|
|
(package
|
|
|
|
|
(name "diffoscope")
|
2022-03-03 18:07:14 +00:00
|
|
|
|
(version "206")
|
2021-10-04 18:59:29 +00:00
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://salsa.debian.org/reproducible-builds/diffoscope.git")
|
|
|
|
|
(commit version)))
|
|
|
|
|
(file-name (git-file-name name version))
|
|
|
|
|
(sha256
|
2022-03-03 18:07:14 +00:00
|
|
|
|
(base32 "1vyk2ac3z54fy6xh5rj7swkdgrlq4l8qxm8iqnq1hyzpd9y32w4x"))
|
2021-10-04 18:59:29 +00:00
|
|
|
|
(patches
|
2021-10-27 15:58:22 +00:00
|
|
|
|
(search-patches "diffoscope-fix-llvm-test.patch"))))
|
2020-06-05 16:58:02 +00:00
|
|
|
|
(build-system python-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:phases (modify-phases %standard-phases
|
2021-10-24 15:07:35 +00:00
|
|
|
|
;; These tests are broken because our `file` package has a
|
|
|
|
|
;; bug in berkeley-db and wasm file type detection.
|
|
|
|
|
(add-after 'unpack 'remove-broken-file-type-detection-test
|
2020-06-05 16:58:02 +00:00
|
|
|
|
(lambda _
|
2021-10-24 15:07:35 +00:00
|
|
|
|
(delete-file "tests/comparators/test_berkeley_db.py")
|
|
|
|
|
(delete-file "tests/comparators/test_wasm.py")))
|
2020-06-05 16:58:02 +00:00
|
|
|
|
(add-after 'unpack 'embed-tool-references
|
|
|
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
|
|
|
(substitute* "diffoscope/comparators/utils/compare.py"
|
|
|
|
|
(("\\['xxd',")
|
|
|
|
|
(string-append "['" (which "xxd") "',")))
|
|
|
|
|
(substitute* "diffoscope/comparators/elf.py"
|
|
|
|
|
(("@tool_required\\('readelf'\\)") "")
|
|
|
|
|
(("get_tool_name\\('readelf'\\)")
|
|
|
|
|
(string-append "'" (which "readelf") "'")))
|
|
|
|
|
(substitute* "diffoscope/comparators/directory.py"
|
|
|
|
|
(("@tool_required\\('stat'\\)") "")
|
|
|
|
|
(("@tool_required\\('getfacl'\\)") "")
|
|
|
|
|
(("\\['stat',")
|
|
|
|
|
(string-append "['" (which "stat") "',"))
|
|
|
|
|
(("\\['getfacl',")
|
2021-10-04 18:59:29 +00:00
|
|
|
|
(string-append "['" (which "getfacl") "',")))))
|
2020-06-25 16:55:20 +00:00
|
|
|
|
(add-after 'build 'build-man-page
|
|
|
|
|
(lambda* (#:key (make-flags '()) #:allow-other-keys)
|
|
|
|
|
(apply invoke "make" "-C" "doc" make-flags)))
|
2020-06-05 16:58:02 +00:00
|
|
|
|
(add-before 'check 'writable-test-data
|
|
|
|
|
(lambda _
|
2020-06-25 16:55:20 +00:00
|
|
|
|
;; Tests may need write access to tests directory.
|
2021-10-04 18:59:29 +00:00
|
|
|
|
(for-each make-file-writable (find-files "tests"))))
|
|
|
|
|
(add-before 'check 'fix-failing-test
|
|
|
|
|
(lambda _
|
|
|
|
|
;; There is no user name mapping in the build environment.
|
|
|
|
|
;; Pytest made it so much harder than should be necessary,
|
|
|
|
|
;; so I'm leaving… this here in case I ever need it again:
|
|
|
|
|
;; (substitute* "tests/comparators/test_squashfs.py"
|
|
|
|
|
;; (("^def test_symlink_root.*" match) ; no, I don't
|
|
|
|
|
;; (string-append ; know Python
|
|
|
|
|
;; match "\n raise ValueError(" ; why do you
|
|
|
|
|
;; "differences_root[1].unified_diff)\n"))) ; ask
|
|
|
|
|
(substitute* "tests/data/squashfs_root_expected_diff"
|
|
|
|
|
(("root/root")
|
|
|
|
|
'"0/0 "))))
|
2020-06-05 16:58:02 +00:00
|
|
|
|
(add-before 'check 'delete-failing-test
|
2021-10-04 18:59:29 +00:00
|
|
|
|
;; Please add new tests to fix-failing-test and not here ;-)
|
2020-06-05 16:58:02 +00:00
|
|
|
|
(lambda _
|
2020-06-25 16:55:20 +00:00
|
|
|
|
;; This requires /sbin to be in $PATH.
|
2021-10-04 18:59:29 +00:00
|
|
|
|
(delete-file "tests/test_tools.py")))
|
2020-06-25 16:55:20 +00:00
|
|
|
|
(add-after 'install 'install-man-page
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
|
|
|
(man (string-append out "/share/man/man1")))
|
2021-10-04 18:59:29 +00:00
|
|
|
|
(install-file "doc/diffoscope.1" man)))))))
|
2021-12-13 16:18:24 +00:00
|
|
|
|
(inputs (list rpm ;for rpm-python
|
|
|
|
|
python-debian
|
|
|
|
|
python-libarchive-c
|
|
|
|
|
python-magic
|
|
|
|
|
python-tlsh
|
|
|
|
|
acl ;for getfacl
|
|
|
|
|
colordiff
|
|
|
|
|
xxd))
|
2021-12-18 19:16:36 +00:00
|
|
|
|
(native-inputs
|
|
|
|
|
(append
|
|
|
|
|
(list help2man
|
2021-12-16 20:10:34 +00:00
|
|
|
|
|
2021-12-18 19:16:36 +00:00
|
|
|
|
;; Below are packages used for tests.
|
|
|
|
|
binwalk
|
|
|
|
|
python-pytest
|
|
|
|
|
python-chardet
|
|
|
|
|
python-h5py
|
|
|
|
|
python-pypdf2
|
|
|
|
|
python-progressbar33
|
2021-12-16 20:10:34 +00:00
|
|
|
|
|
2021-12-18 19:16:36 +00:00
|
|
|
|
abootimg
|
|
|
|
|
bdb
|
|
|
|
|
binutils
|
|
|
|
|
bzip2
|
|
|
|
|
cdrtools
|
|
|
|
|
colord
|
|
|
|
|
cpio
|
|
|
|
|
docx2txt
|
|
|
|
|
dtc
|
|
|
|
|
e2fsprogs
|
|
|
|
|
ffmpeg
|
|
|
|
|
|
|
|
|
|
;; XXX: Must be the same version as python-magic uses;
|
|
|
|
|
;; remove when 'file' is updated.
|
|
|
|
|
file-next
|
|
|
|
|
|
|
|
|
|
fpc
|
|
|
|
|
gettext-minimal
|
|
|
|
|
ghostscript
|
|
|
|
|
`(,giflib "bin")
|
|
|
|
|
gnumeric
|
|
|
|
|
gnupg
|
|
|
|
|
hdf5
|
|
|
|
|
imagemagick
|
|
|
|
|
libarchive
|
2022-01-30 17:29:57 +00:00
|
|
|
|
llvm-9
|
2021-12-18 19:16:36 +00:00
|
|
|
|
lz4
|
|
|
|
|
mono
|
|
|
|
|
ocaml
|
|
|
|
|
odt2txt
|
|
|
|
|
openssh
|
|
|
|
|
openssl
|
|
|
|
|
pgpdump
|
|
|
|
|
poppler
|
|
|
|
|
python-jsbeautifier
|
|
|
|
|
r-minimal
|
|
|
|
|
rpm
|
|
|
|
|
sng
|
|
|
|
|
sqlite
|
|
|
|
|
squashfs-tools
|
|
|
|
|
tcpdump
|
|
|
|
|
unzip
|
|
|
|
|
wabt
|
|
|
|
|
xxd
|
|
|
|
|
xz
|
|
|
|
|
zip
|
|
|
|
|
zstd)
|
|
|
|
|
|
|
|
|
|
;; Also for tests. The test suite skips tests when these are missing.
|
|
|
|
|
(match (%current-system)
|
|
|
|
|
;; ghc is only available on x86 currently.
|
|
|
|
|
((or "x86_64-linux" "i686-linux")
|
|
|
|
|
(list ghc))
|
|
|
|
|
(_ '()))
|
|
|
|
|
(match (%current-system)
|
|
|
|
|
;; openjdk and dependent packages are only
|
|
|
|
|
;; available on x86_64 currently.
|
|
|
|
|
((or "x86_64-linux")
|
|
|
|
|
(list enjarify)
|
|
|
|
|
;; No unversioned openjdk available.
|
|
|
|
|
(list `(,openjdk12 "jdk")))
|
|
|
|
|
(_ '()))))
|
2020-06-05 16:58:02 +00:00
|
|
|
|
(home-page "https://diffoscope.org/")
|
|
|
|
|
(synopsis "Compare files, archives, and directories in depth")
|
|
|
|
|
(description
|
|
|
|
|
"Diffoscope tries to get to the bottom of what makes files or directories
|
2019-09-08 21:36:33 +00:00
|
|
|
|
different. It recursively unpacks archives of many kinds and transforms
|
|
|
|
|
various binary formats into more human readable forms to compare them. It can
|
2020-02-06 21:45:28 +00:00
|
|
|
|
compare two tarballs, ISO images, or PDFs just as easily.
|
|
|
|
|
|
|
|
|
|
Diffoscope has many optional dependencies; @code{diffoscope
|
|
|
|
|
--list-missing-tools guix} will display optional packages to
|
|
|
|
|
install.")
|
2020-06-05 16:58:02 +00:00
|
|
|
|
(license license:gpl3+)))
|
2019-09-08 21:36:33 +00:00
|
|
|
|
|
2020-02-08 00:06:17 +00:00
|
|
|
|
(define-public reprotest
|
|
|
|
|
(package
|
|
|
|
|
(name "reprotest")
|
2021-10-25 00:19:42 +00:00
|
|
|
|
(version "0.7.18")
|
2020-02-08 00:06:17 +00:00
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://salsa.debian.org/reproducible-builds/reprotest.git")
|
|
|
|
|
(commit version)))
|
|
|
|
|
(file-name (git-file-name name version))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2021-10-25 00:19:42 +00:00
|
|
|
|
"19lwsxq53isgfkvlxvxqqmbjfcim3lhcxwk7m9ddfjiynhq74949"))))
|
2020-02-08 00:06:17 +00:00
|
|
|
|
(inputs
|
2021-12-13 16:18:24 +00:00
|
|
|
|
(list python-debian python-distro python-libarchive-c python-rstr))
|
2020-02-08 00:06:17 +00:00
|
|
|
|
(native-inputs
|
|
|
|
|
`(("diffoscope" ,diffoscope)
|
|
|
|
|
("help2man" ,help2man)
|
|
|
|
|
("libfaketime" ,libfaketime)
|
|
|
|
|
("python-coverage" ,python-coverage)
|
|
|
|
|
("python-docutils" ,python-docutils)
|
2020-10-24 23:37:18 +00:00
|
|
|
|
("python-magic " ,python-magic)
|
2020-02-08 00:06:17 +00:00
|
|
|
|
("python-pytest " ,python-pytest)
|
|
|
|
|
("python-tlsh" ,python-tlsh)
|
|
|
|
|
("python-tox" ,python-tox)
|
|
|
|
|
("unzip" ,unzip)
|
|
|
|
|
("xxd" ,xxd)))
|
|
|
|
|
(build-system python-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
;; Neither glibc-locales nor glibc-utf8-locales have the C.UTF-8
|
|
|
|
|
;; locale or several other locales used in reprotest.
|
|
|
|
|
(add-after 'unpack 'adjust-locales
|
|
|
|
|
(lambda _
|
|
|
|
|
(substitute* "reprotest/build.py"
|
|
|
|
|
(("'C.UTF-8'") "'en_US.UTF-8'")
|
|
|
|
|
(("'ru_RU.CP1251'") "'ru_RU.KOI8-R'")
|
|
|
|
|
(("'kk_KZ.RK1048'") "'kk_KZ'"))
|
|
|
|
|
(substitute* "reprotest/lib/adt_testbed.py"
|
|
|
|
|
(("export LANG=C.UTF-8") "export LANG=en_US.UTF-8"))
|
|
|
|
|
#t))
|
|
|
|
|
(add-after 'install 'install-doc
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(let* ((mandir1 (string-append
|
|
|
|
|
(assoc-ref outputs "out") "/share/man/man1"))
|
|
|
|
|
(docdir (string-append
|
|
|
|
|
(assoc-ref outputs "out") "/share/doc/" ,name "-" ,version)))
|
|
|
|
|
(invoke "make" "-C" "doc")
|
|
|
|
|
(mkdir-p mandir1)
|
|
|
|
|
(install-file "doc/reprotest.1" mandir1)
|
|
|
|
|
(mkdir-p docdir)
|
|
|
|
|
(install-file "./README.rst" docdir)
|
|
|
|
|
(install-file "./README-dev.rst" docdir))
|
|
|
|
|
#t)))))
|
|
|
|
|
(home-page "https://salsa.debian.org/reproducible-builds/reprotest")
|
|
|
|
|
(synopsis "Build software and check it for reproducibility")
|
|
|
|
|
(description "Reprotest builds the same source code twice in different
|
|
|
|
|
environments, and then checks the binaries produced by each build for
|
|
|
|
|
differences. If any are found, then diffoscope or diff is used to display
|
|
|
|
|
them in detail for later analysis.")
|
|
|
|
|
(license (list license:gpl3+ license:gpl2+))))
|
|
|
|
|
|
2019-09-08 21:36:33 +00:00
|
|
|
|
(define-public trydiffoscope
|
|
|
|
|
(package
|
|
|
|
|
(name "trydiffoscope")
|
|
|
|
|
(version "67.0.1")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://salsa.debian.org/reproducible-builds/trydiffoscope.git")
|
|
|
|
|
(commit version)))
|
|
|
|
|
(file-name (git-file-name name version))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"03b66cjii7l2yiwffj6ym6mycd5drx7prfp4j2550281pias6mjh"))))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-after 'install 'install-doc
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(let* ((share (string-append (assoc-ref outputs "out") "/share/")))
|
|
|
|
|
(mkdir-p (string-append share "/man/man1/" ))
|
|
|
|
|
(invoke "rst2man.py"
|
|
|
|
|
"trydiffoscope.1.rst"
|
|
|
|
|
(string-append share "/man/man1/trydiffoscope.1"))
|
|
|
|
|
(mkdir-p (string-append share "/doc/" ,name "-" ,version))
|
|
|
|
|
(install-file "./README.rst"
|
|
|
|
|
(string-append share "/doc/" ,name "-" ,version)))
|
|
|
|
|
#t)))))
|
|
|
|
|
(propagated-inputs
|
2021-12-13 16:18:24 +00:00
|
|
|
|
(list python-requests))
|
2019-09-08 21:36:33 +00:00
|
|
|
|
(native-inputs
|
2021-12-13 16:18:24 +00:00
|
|
|
|
(list gzip python-docutils))
|
2019-09-08 21:36:33 +00:00
|
|
|
|
(build-system python-build-system)
|
|
|
|
|
(home-page "https://try.diffoscope.org")
|
|
|
|
|
(synopsis "Client for remote diffoscope service")
|
|
|
|
|
(description "This is a client for the @url{https://try.diffoscope.org,
|
|
|
|
|
remote diffoscope service}.
|
|
|
|
|
|
|
|
|
|
Diffoscope tries to get to the bottom of what makes files or directories
|
|
|
|
|
different. It recursively unpacks archives of many kinds and transforms
|
|
|
|
|
various binary formats into more human readable forms to compare them. It can
|
|
|
|
|
compare two tarballs, ISO images, or PDFs just as easily.
|
|
|
|
|
|
|
|
|
|
Results are displayed by default, stored as local text or html files, or made
|
|
|
|
|
available via a URL on @url{https://try.diffoscope.org}. Results stored on the
|
|
|
|
|
server are purged after 30 days.")
|
|
|
|
|
(license license:gpl3+)))
|