[bug#59336] [PATCH 3/6] gnu: Add apparmor-parser.

[Hilton Chain via Guix-patches via <guix-patches@gnu.org>]

* gnu/packages/apparmor.scm (apparmor-parser): New variable.
---
 gnu/packages/apparmor.scm | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/gnu/packages/apparmor.scm b/gnu/packages/apparmor.scm
index 742414e18b..8648a2213f 100644
--- a/gnu/packages/apparmor.scm
+++ b/gnu/packages/apparmor.scm
@@ -125,3 +125,24 @@ (define-public apparmor
     (native-inputs (list gettext-minimal perl which))
     (inputs (list libapparmor))
     (license license:gpl2)))
+
+(define-public apparmor-parser
+  (let ((base apparmor))
+    (package
+      (inherit base)
+      (name "apparmor-parser")
+      (arguments
+       (substitute-keyword-arguments (package-arguments base)
+         ((#:phases phases)
+          #~(modify-phases #$phases
+              (replace 'change-directory
+                (lambda _
+                  (chdir "parser")))
+              (add-after 'change-directory 'fix-kernel-header-path
+                (lambda* (#:key inputs #:allow-other-keys)
+                  (substitute* "Makefile"
+                    (("/include/linux/capability.h" path)
+                     (search-input-file inputs path)))))))))
+      (native-inputs
+       (modify-inputs (package-native-inputs base)
+         (append bison flex python-minimal))))))
-- 
2.38.1