mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-02-07 19:39:34 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: ardour: Extract RUNPATH phase.

Browse source 
* gnu/packages/audio.scm (ardour-rpath-phase): New procedure.
* gnu/packages/audio.scm (ardour, ardour-3): Generate version-dependent build
  phase with ardour-rpath-phase.
This commit is contained in:
Ricardo Wurmus 2015-05-11 20:24:59 +02:00
parent d48c8e7b60
commit d49976ed4e
1 changed files with 25 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

44
gnu/packages/audio.scm
View file

@ -21,6 +21,7 @@
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module (guix utils)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses) #:prefix license:)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module (guix build-system waf) #:use-module (guix build-system waf)
@ -128,6 +129,22 @@ attacks, performing pitch detection, tapping the beat and producing MIDI
streams from live audio.") streams from live audio.")
(license license:gpl3+))) (license license:gpl3+)))
(define (ardour-rpath-phase major-version)
`(lambda* (#:key outputs #:allow-other-keys)
(let ((libdir (string-append (assoc-ref outputs "out")
"/lib/ardour" ,major-version)))
(substitute* "wscript"
(("linker_flags = \\[\\]")
(string-append "linker_flags = [\""
"-Wl,-rpath="
libdir ":"
libdir "/backends" ":"
libdir "/engines" ":"
libdir "/panners" ":"
libdir "/surfaces" ":"
libdir "/vamp" "\"]"))))
#t))
(define-public ardour-3 (define-public ardour-3
(package (package
(name "ardour") (name "ardour")
@ -158,24 +175,7 @@ namespace ARDOUR { const char* revision = \"3.5-403-gec2cb31\" ; }"))))
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after (add-after
'unpack 'set-rpath-in-LDFLAGS 'unpack 'set-rpath-in-LDFLAGS
(lambda _ ,(ardour-rpath-phase (version-prefix version 1))))
(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 #:tests? #f ; no check target
#:python ,python-2)) #:python ,python-2))
(inputs (inputs
@ -246,7 +246,13 @@ namespace ARDOUR { const char* revision = \"4.0\" ; }"))))
(sha256 (sha256
(base32 (base32
"0a8bydc24xv0cahdqfaxdmi1f43cyr9psiyshxpbrkdqw2c7a4xi")) "0a8bydc24xv0cahdqfaxdmi1f43cyr9psiyshxpbrkdqw2c7a4xi"))
(file-name (string-append name "-" version)))))) (file-name (string-append name "-" version))))
(arguments
(substitute-keyword-arguments (package-arguments ardour-3)
((#:phases phases)
`(modify-phases ,phases
(replace 'set-rpath-in-LDFLAGS
,(ardour-rpath-phase (version-prefix version 1)))))))))
(define-public azr3 (define-public azr3
(package (package