01/02: gnu: rocminfo: Static references to lsmod and grep.

[guix-commits]

lbraun pushed a commit to branch master
in repository guix.

commit db7d197b30db77cffbbe8877e46f8d8173ab21da
Author: Lars-Dominik Braun <lars@6xq.net>
AuthorDate: Mon Aug 9 09:07:44 2021 +0200

    gnu: rocminfo: Static references to lsmod and grep.
    
    Fixes usage in a pure environment.
    
    * gnu/packages/rocm.scm (rocminfo) [arguments]: Add #:phases.
---
 gnu/packages/rocm.scm | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/rocm.scm b/gnu/packages/rocm.scm
index d6bd584..63306cd 100644
--- a/gnu/packages/rocm.scm
+++ b/gnu/packages/rocm.scm
@@ -319,8 +319,19 @@ and in-process/in-memory compilation.")
                (base32
                 "0pcm308vwkjrwnrk507iya20mkil8j0vx699w9jk2gas4n4jvkcz"))))
     (build-system cmake-build-system)
-    (arguments `(#:tests? #f)) ; No tests.
-    (inputs `(("rocr-runtime" ,rocr-runtime)))
+    (arguments
+     `(#:tests? #f ; No tests.
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'patch-binary-paths
+           (lambda* (#:key inputs #:allow-other-keys)
+             (substitute* "rocminfo.cc"
+               (("lsmod")
+                (string-append (assoc-ref inputs "kmod") "/bin/lsmod"))
+               (("grep") (which "grep"))))))))
+    (inputs
+     `(("rocr-runtime" ,rocr-runtime)
+       ("kmod" ,kmod)))
     (home-page "https://github.com/RadeonOpenCompute/rocminfo";)
     (synopsis "ROCm Application for Reporting System Info")
     (description #f)