me/guix
Archived
1
0
Fork 0
Code Activity

gnu: diffoscope: Fix comparison of vmlinux files.

Browse source 
* gnu/packages/diffoscope.scm (diffoscope)[arguments]: Add
  'install-extract-vmlinux phase.
  [inputs]: Add python.
This commit is contained in:
Vagrant Cascadian 2022-06-01 15:00:44 -07:00 • committed by Vagrant Cascadian
parent 1d72225903
commit 2900031f42
No known key found for this signature in database
GPG key ID: DC518FC87F9716AA
1 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
gnu/packages/diffoscope.scm
View file

@ -53,6 +53,7 @@
#:use-module (gnu packages pascal) #:use-module (gnu packages pascal)
#:use-module (gnu packages patchutils) #:use-module (gnu packages patchutils)
#:use-module (gnu packages pdf) #:use-module (gnu packages pdf)
#:use-module (gnu packages python)
#:use-module (gnu packages python-web) #:use-module (gnu packages python-web)
#:use-module (gnu packages python-xyz) #:use-module (gnu packages python-xyz)
#:use-module (gnu packages sqlite) #:use-module (gnu packages sqlite)
@ -136,12 +137,25 @@
(lambda _ (lambda _
;; This requires /sbin to be in $PATH. ;; This requires /sbin to be in $PATH.
(delete-file "tests/test_tools.py"))) (delete-file "tests/test_tools.py")))
(add-after 'install 'install-extract-vmlinux
(lambda* (#:key outputs #:allow-other-keys)
;; Work around bug comparing vmlinux files
;; https://salsa.debian.org/reproducible-builds/diffoscope/-/issues/305
(let* ((scriptdir (string-append (assoc-ref outputs "out")
"/lib/python"
,(version-major+minor
(package-version python))
"/site-packages/scripts/")))
(mkdir-p scriptdir)
(copy-file "scripts/extract-vmlinux"
(string-append scriptdir "/extract-vmlinux")))))
(add-after 'install 'install-man-page (add-after 'install 'install-man-page
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(man (string-append out "/share/man/man1"))) (man (string-append out "/share/man/man1")))
(install-file "doc/diffoscope.1" man))))))) (install-file "doc/diffoscope.1" man)))))))
(inputs (list rpm ;for rpm-python (inputs (list rpm ;for rpm-python
python
python-debian python-debian
python-libarchive-c python-libarchive-c
python-magic python-magic