01/01: gnu: ardour: Add library dirs to RUNPATH.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository guix.

commit 21481a284af7b7e9ad33fe072fde9d2ee3274017
Author: Ricardo Wurmus <address@hidden>
Date:   Tue May 5 06:24:41 2015 +0200

    gnu: ardour: Add library dirs to RUNPATH.
    
    * gnu/packages/audio.scm (ardour)[arguments]: Add a build phase to add all
      library output directories to the rpath using linker flags.
---
 gnu/packages/audio.scm |   24 +++++++++++++++++++++++-
 1 files changed, 23 insertions(+), 1 deletions(-)

diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm
index 6cba704..af7533b 100644
--- a/gnu/packages/audio.scm
+++ b/gnu/packages/audio.scm
@@ -151,7 +151,29 @@ namespace ARDOUR { const char* revision = 
\"3.5-403-gec2cb31\" ; }"))))
               (file-name (string-append name "-" version))))
     (build-system waf-build-system)
     (arguments
-     `(#:tests? #f ; no check target
+     `(#:phases
+       (modify-phases %standard-phases
+         (add-after
+          'unpack 'set-rpath-in-LDFLAGS
+          (lambda _
+            (substitute* "wscript"
+              (("linker_flags = \\[\\]")
+               (string-append "linker_flags = [\""
+                              "-Wl,-rpath="
+                              (assoc-ref %outputs "out")
+                              "/lib/ardour3/" ":"
+                              (assoc-ref %outputs "out")
+                              "/lib/ardour3/backends" ":"
+                              (assoc-ref %outputs "out")
+                              "/lib/ardour3/engines" ":"
+                              (assoc-ref %outputs "out")
+                              "/lib/ardour3/panners" ":"
+                              (assoc-ref %outputs "out")
+                              "/lib/ardour3/surfaces" ":"
+                              (assoc-ref %outputs "out")
+                              "/lib/ardour3/vamp" "\"]")))
+            #t)))
+       #:tests? #f ; no check target
        #:python ,python-2))
     (inputs
      `(("alsa-lib" ,alsa-lib)