gnu: tlp: Add required x86-energy-perf-policy input dependency.
* gnu/packages/linux.scm (tlp) [inputs]: Add system specific x86-energy-perf-policy dependency. [arguments]<#:phases>['wrap]: Adjust bin-directory procedure to return #f on missing input, a guard against system specific input dependencies. Filter only strings in the path list. Reformat for-each block. Add x86-energy-perf-policy in bin-directory input-name list. Co-authored-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
parent
71bd55cb2a
commit
cf342a8598
|
@ -4601,10 +4601,19 @@ interface in sysfs, which can be accomplished with the included udev rules.")
|
|||
("sed" ,sed)
|
||||
("usbutils" ,usbutils)
|
||||
("util-linux" ,util-linux)
|
||||
("wireless-tools" ,wireless-tools)))
|
||||
("wireless-tools" ,wireless-tools)
|
||||
,@(if (let ((system (or (%current-target-system)
|
||||
(%current-system))))
|
||||
(or (string-prefix? "i686-" system)
|
||||
(string-prefix? "x86_64-" system)))
|
||||
`(("x86-energy-perf-policy" ,x86-energy-perf-policy))
|
||||
'())))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
`(#:phases
|
||||
`(#:modules ((guix build gnu-build-system)
|
||||
(guix build utils)
|
||||
(srfi srfi-1))
|
||||
#:phases
|
||||
(modify-phases %standard-phases
|
||||
(delete 'configure) ; no configure script
|
||||
(add-before 'build 'setenv
|
||||
|
@ -4642,14 +4651,16 @@ interface in sysfs, which can be accomplished with the included udev rules.")
|
|||
(let* ((bin (string-append (assoc-ref outputs "out") "/bin"))
|
||||
(bin-files (find-files bin ".*")))
|
||||
(define (bin-directory input-name)
|
||||
(string-append (assoc-ref inputs input-name) "/bin"))
|
||||
(let ((p (assoc-ref inputs input-name)))
|
||||
(and p (string-append p "/bin"))))
|
||||
(define (sbin-directory input-name)
|
||||
(string-append (assoc-ref inputs input-name) "/sbin"))
|
||||
(for-each (lambda (program)
|
||||
(wrap-program program
|
||||
`("PATH" ":" prefix
|
||||
,(append
|
||||
(map bin-directory '("bash"
|
||||
(filter-map bin-directory
|
||||
'("bash"
|
||||
"coreutils"
|
||||
"dbus"
|
||||
"eudev"
|
||||
|
@ -4659,8 +4670,10 @@ interface in sysfs, which can be accomplished with the included udev rules.")
|
|||
"perl"
|
||||
"sed"
|
||||
"usbutils"
|
||||
"util-linux"))
|
||||
(map sbin-directory '("ethtool"
|
||||
"util-linux"
|
||||
"x86-energy-perf-policy"))
|
||||
(filter-map sbin-directory
|
||||
'("ethtool"
|
||||
"hdparm"
|
||||
"iw"
|
||||
"pciutils"
|
||||
|
|
Loading…
Reference in New Issue