gnu: flashrom: Wrap PATH to find dmidecode.

* gnu/packages/flashing-tools.scm (flashrom)[inputs]: Add bash-minimal.
[arguments]<#:phases>: Add phase 'wrap-program.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Hilton Chain 2023-05-29 00:53:58 +08:00 committed by Ludovic Courtès
parent e6ce706604
commit 8716f33d98
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -41,6 +41,7 @@ (define-module (gnu packages flashing-tools)
#:use-module (gnu packages autotools)
#:use-module (gnu packages admin)
#:use-module (gnu packages base)
#:use-module (gnu packages bash)
#:use-module (gnu packages bison)
#:use-module (gnu packages boost)
#:use-module (gnu packages check)
@ -72,11 +73,20 @@ (define-public flashrom
(base32
"08wn2j5vxzzvigflrjypgxxzjp32c76bshrlkzki5l6cad226lx0"))))
(build-system meson-build-system)
(inputs (list dmidecode pciutils libusb libftdi libjaylink))
(inputs (list bash-minimal dmidecode pciutils libusb libftdi libjaylink))
(native-inputs (list cmocka pkg-config))
(arguments
(list #:configure-flags
#~'("-Dprogrammer=all")))
#~'("-Dprogrammer=all")
#:phases
#~(modify-phases %standard-phases
(add-after 'install 'wrap-program
(lambda* (#:key inputs #:allow-other-keys)
(let ((flashrom (string-append #$output "/sbin/flashrom")))
(wrap-program flashrom
`("PATH" ":" prefix
(,(dirname (search-input-file
inputs "/sbin/dmidecode")))))))))))
(home-page "https://flashrom.org/")
(synopsis "Identify, read, write, erase, and verify ROM/flash chips")
(description