summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorTimotej Lazar <timotej.lazar@araneo.si>2020-06-17 12:50:06 +0200
committerLudovic Courtès <ludo@gnu.org>2020-06-21 17:36:41 +0200
commit4aa89a09144e8dac30c9c618ce159f81862da952 (patch)
treed3f51189f745ebc797fd264646b7acb00d6f912e
parentgnu: k3b: Add inputs for external programs. (diff)
downloadguix-4aa89a09144e8dac30c9c618ce159f81862da952.tar.gz
guix-4aa89a09144e8dac30c9c618ce159f81862da952.tar.bz2
guix-4aa89a09144e8dac30c9c618ce159f81862da952.tar.xz
gnu: k3b: Add inputs for libraries loaded at runtime.
Patch the source to load these from absolute paths. Actual loading is done by the Qt library, so we cannot use k3b’s runpath. * gnu/packages/kde-multimedia.scm (k3b)[inputs]: Add libcdio-paranoia and libdvdcss. [arguments]<#:phases>[set-absolute-library-paths]: New phase. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
-rw-r--r--gnu/packages/kde-multimedia.scm15
1 files changed, 15 insertions, 0 deletions
diff --git a/gnu/packages/kde-multimedia.scm b/gnu/packages/kde-multimedia.scm
index 654aecd..9fab19f 100644
--- a/gnu/packages/kde-multimedia.scm
+++ b/gnu/packages/kde-multimedia.scm
@@ -300,6 +300,19 @@ This package is part of the KDE multimedia module.")
300 (arguments 300 (arguments
301 `(#:phases 301 `(#:phases
302 (modify-phases %standard-phases 302 (modify-phases %standard-phases
303 (add-after 'unpack 'set-absolute-library-paths
304 (lambda _
305 ;; Set absolute paths for dlopened libraries. We can’t use k3b’s
306 ;; runpath as they are loaded by the Qt library.
307 (let ((libcdio-paranoia (assoc-ref %build-inputs "libcdio-paranoia"))
308 (libdvdcss (assoc-ref %build-inputs "libdvdcss")))
309 (substitute* "libk3b/tools/k3bcdparanoialib.cpp"
310 (("\"(cdio_cdda|cdio_paranoia)\"" _ library)
311 (string-append "\"" libcdio-paranoia "/lib/" library "\"")))
312 (substitute* "libk3b/tools/k3blibdvdcss.cpp"
313 (("\"(dvdcss)\"" _ library)
314 (string-append "\"" libdvdcss "/lib/" library "\""))))
315 #t))
303 (add-after 'qt-wrap 'wrap-path 316 (add-after 'qt-wrap 'wrap-path
304 (lambda _ 317 (lambda _
305 ;; Set paths to backend programs. 318 ;; Set paths to backend programs.
@@ -335,6 +348,8 @@ This package is part of the KDE multimedia module.")
335 ("kxmlgui" ,kxmlgui) 348 ("kxmlgui" ,kxmlgui)
336 ("lame" ,lame) 349 ("lame" ,lame)
337 ("libburn" ,libburn) 350 ("libburn" ,libburn)
351 ("libcdio-paranoia" ,libcdio-paranoia)
352 ("libdvdcss" ,libdvdcss)
338 ("libdvdread" ,libdvdread) 353 ("libdvdread" ,libdvdread)
339 ;; TODO: LibFuzzer 354 ;; TODO: LibFuzzer
340 ("libiconv" ,libiconv) 355 ("libiconv" ,libiconv)