guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

01/01: gnu: python-waf: Use a proper directory structure.


From: guix-commits
Subject: 01/01: gnu: python-waf: Use a proper directory structure.
Date: Wed, 21 Nov 2018 08:20:47 -0500 (EST)

efraim pushed a commit to branch master
in repository guix.

commit a2aa746cfe38076b87d9cde2252904c0bddd9f9e
Author: Efraim Flashner <address@hidden>
Date:   Wed Nov 21 15:17:12 2018 +0200

    gnu: python-waf: Use a proper directory structure.
    
    Fixes <https://bugs.gnu.org/25634>.
    
    * gnu/packages/python.scm (python-waf): Replace custom 'install phase to
    install "waf" binary into the bin directory. Remove the 'wrap phase.
    * gnu/packages/video.scm (mpv)[arguments]: Adjust the 'setup-waf phase
    accordingly.
---
 gnu/packages/python.scm | 9 ++++++---
 gnu/packages/video.scm  | 3 ++-
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/python.scm b/gnu/packages/python.scm
index d87b131..c3d3c02 100644
--- a/gnu/packages/python.scm
+++ b/gnu/packages/python.scm
@@ -5692,9 +5692,12 @@ so it might be a tiny bit slower.")
            (lambda _
              (invoke "python" "waf" "--version")))
          (replace 'install
-           (lambda _
-             (copy-file "waf" %output)
-             #t)))))
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out")))
+               (install-file "waf" (string-append out "/bin")))
+             #t))
+         ;; waf breaks when it is wrapped.
+         (delete 'wrap))))
     (home-page "https://waf.io/";)
     (synopsis "Python-based build system")
     (description
diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm
index 94c5cf3..e9a49df 100644
--- a/gnu/packages/video.scm
+++ b/gnu/packages/video.scm
@@ -1180,7 +1180,8 @@ SVCD, DVD, 3ivx, DivX 3/4/5, WMV and H.264 movies.")
          (add-before
           'configure 'setup-waf
           (lambda* (#:key inputs #:allow-other-keys)
-            (copy-file (assoc-ref inputs "waf") "waf")
+            (let ((waf (assoc-ref inputs "waf")))
+              (copy-file (string-append waf "/bin/waf") "waf"))
             (setenv "CC" "gcc")
             #t)))
        #:configure-flags (list "--enable-libmpv-shared"



reply via email to

[Prev in Thread] Current Thread [Next in Thread]