10/10: gnu: xfsprogs: Install Python script to :python output.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit c78778e779127f4ec2d49d6ad1ed8cb0f9e8b96e
Author: Tobias Geerinckx-Rice <address@hidden>
Date:   Tue Oct 15 00:45:40 2019 +0200

    gnu: xfsprogs: Install Python script to :python output.
    
    * gnu/packages/linux.scm (xfsprogs)[outputs]: Add ‘python’.
    [arguments]: Move ‘xfs_scrub_all’ to :python.
    [inputs]: Add python-wrapper to make it actually run.
---
 gnu/packages/linux.scm | 25 ++++++++++++++++++++-----
 1 file changed, 20 insertions(+), 5 deletions(-)

diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index ddbdd24..989d55f 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -5864,15 +5864,30 @@ IP addresses and routes, and configure IPsec.")
                (base32
                 "0q5xd4gb9g83h82mg68cx616ifzl8qkzzlgg5xna698117ph3wky"))))
     (build-system gnu-build-system)
+    (outputs (list "out" "python"))
     (arguments
-     `(#:tests? #f    ;kernel/user integration tests are in package "xfstests"
-       #:phases (modify-phases %standard-phases
-                  (add-after 'install 'install-headers
-                    (lambda _
-                      (invoke "make" "install-dev"))))))
+     `(#:tests? #f   ; kernel/user integration tests are in package "xfstests"
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'install 'separate-python-output
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let ((out    (assoc-ref outputs "out"))
+                   (python (assoc-ref outputs "python")))
+               (for-each
+                (lambda (script)
+                  (mkdir-p (string-append python (dirname script)))
+                  (rename-file (string-append out script)
+                               (string-append python script)))
+                (list "/sbin/xfs_scrub_all"))
+               #t)))
+         (add-after 'install 'install-headers
+           (lambda _
+             (invoke "make" "install-dev"))))))
     (native-inputs
      `(("gettext" ,gettext-minimal)
        ("util-linux" ,util-linux)))
+    (inputs
+     `(("python" ,python-wrapper)))
     (home-page "https://xfs.wiki.kernel.org/";)
     (synopsis "XFS file system tools")
     (description "This package provides commands to create and check XFS