01/01: gnu: openal: Use full path to audio backend libraries.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository guix.

commit 7ee5db15bfa336bb0472669b29eeb2c3b99449b8
Author: Ricardo Wurmus <address@hidden>
Date:   Sun Sep 20 13:03:38 2015 +0200

    gnu: openal: Use full path to audio backend libraries.
    
    * gnu/packages/audio.scm (openal)[arguments]: Add build phase to patch in 
the
      full paths to backend audio libraries.
---
 gnu/packages/audio.scm |   20 +++++++++++++++++++-
 1 files changed, 19 insertions(+), 1 deletions(-)

diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm
index eed72c3..029f40c 100644
--- a/gnu/packages/audio.scm
+++ b/gnu/packages/audio.scm
@@ -1052,7 +1052,25 @@ lv2-c++-tools.")
                 "0mmhdqiyb3c9dzvxspm8h2v8jibhi8pfjxnf6m0wn744y1ia2a8f"))))
     (build-system cmake-build-system)
     (arguments
-     `(#:tests? #f)) ; no check target
+     `(#:tests? #f  ; no check target
+       #:phases
+       (modify-phases %standard-phases
+         (add-after
+          'unpack 'use-full-library-paths
+          (lambda* (#:key inputs #:allow-other-keys)
+            (substitute* "Alc/backends/pulseaudio.c"
+              (("#define PALIB \"libpulse\\.so\\.0\"")
+               (string-append "#define PALIB \""
+                              (assoc-ref inputs "pulseaudio")
+                              "/lib/libpulse.so.0"
+                              "\"")))
+            (substitute* "Alc/backends/alsa.c"
+              (("LoadLib\\(\"libasound\\.so\\.2\"\\)")
+               (string-append "LoadLib(\""
+                              (assoc-ref inputs "alsa-lib")
+                              "/lib/libasound.so.2"
+                              "\")")))
+            #t)))))
     (inputs
      `(("alsa-lib" ,alsa-lib)
        ("pulseaudio" ,pulseaudio)))