[bug#60401] [PATCH] gnu: bpftool: New package

[Ryan Sundberg via Guix-patches via <guix-patches@gnu.org>]

Provides a package for `bpftool` from the Linux kernel source.

* gnu/packages/linux.scm (bpftool): New variable
---
 gnu/packages/linux.scm | 53 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 53 insertions(+)

diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index 568c2b6b92..2f625267dc 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -61,6 +61,7 @@
 ;;; Copyright © 2021 Olivier Dion <olivier.dion@polymtl.ca>
 ;;; Copyright © 2021 Solene Rapenne <solene@perso.pw>
 ;;; Copyright © 2021, 2022 Petr Hodina <phodina@protonmail.com>
+;;; Copyright © 2021 Ryan Sundberg <ryan@arctype.co>
 ;;; Copyright © 2022 Artyom V. Poptsov <poptsov.artyom@gmail.com>
 ;;; Copyright © 2022 Rene Saavedra <nanuui@protonmail.com>
 ;;; Copyright © 2022 muradm <mail@muradm.net>
@@ -9361,6 +9362,58 @@ (define-public bcc
 and above.")
     (license license:asl2.0)))
 
+(define-public bpftool
+  (package
+    (name "bpftool")
+    (version (package-version linux-libre))
+    (source (package-source linux-libre))
+    (build-system gnu-build-system)
+    (arguments
+      `(#:tests? #f ; This package has no tests.
+        #:phases
+        (modify-phases %standard-phases
+          (delete 'configure)
+          (replace 'build
+            (lambda* (#:key inputs #:allow-other-keys)
+              (let* ((binutils* (assoc-ref inputs "binutils"))
+                     (ldflags (string-append "-I" (string-append binutils* "/include"))))
+                (invoke "make"
+                        "-C"
+                        "tools/bpf/bpftool"
+                        ,(string-append "CC=" (cc-for-target))
+                        ; We need to explicitly set the RUNPATH for these libraries
+                        (string-append "LDFLAGS=-Wl"
+                                       ",-rpath=" (assoc-ref inputs "elfutils") "/lib"
+                                       ",-rpath=" (assoc-ref inputs "libcap") "/lib"
+                                       ",-rpath=" (assoc-ref inputs "zlib") "/lib"))
+                #t)))
+          (replace 'install
+            (lambda* (#:key outputs #:allow-other-keys)
+              (let* ((out (assoc-ref outputs "out")))
+                (mkdir-p (string-append out "/sbin"))
+                (mkdir-p (string-append out "/share/bash-completion/completions"))
+                (invoke "make"
+                        (string-append "prefix=" out)
+                        (string-append "bash_compdir=" out
+                                       "/share/bash-completion/completions")
+                        "-C" "tools/bpf/bpftool"
+                        "install")
+                #t))))))
+    (inputs
+      `(("elfutils", elfutils) ; Provides libelf
+        ("readline" ,readline)
+        ("libcap" ,libcap)
+        ("zlib" ,zlib)))
+    (native-inputs
+      `(("bison" ,bison)
+        ("python" ,python-3)))
+    ; This tool does not have a proper web page.
+    (home-page "https://git.kernel.org/pub/scm/linux/kernel/git/bpf/bpf-next.git/tree/tools/bpf/bpftool")
+    (synopsis "Tool for inspection and simple manipulation of eBPF programs and maps")
+    (description "bpftool allows for inspection and simple modification of BPF
+objects on the system.")
+    (license (package-license linux-libre))))
+
 (define-public bpftrace
   (package
     (name "bpftrace")
-- 
2.37.2