me/guix
Archived
1
0
Fork 0
Code Activity

gnu: ardour: Inline ardour-rpath-phase into its definition.

Browse source 
* gnu/packages/audio.scm (ardour)[#:phases]: Inline ardour-rpath-phase.
(ardour-rpath-phase): Delete variable.

Signed-off-by: 宋文武 <iyzsong@member.fsf.org>
This commit is contained in:
Sughosha 2023-07-03 22:52:19 +02:00 • committed by 宋文武
parent d1a76ac512
commit 3c79f4b50a
No known key found for this signature in database
GPG key ID: D415BF253B515976
1 changed files with 14 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
gnu/packages/audio.scm
View file

@ -721,21 +721,6 @@ streams from live audio.")
purposes developed at Queen Mary, University of London.") purposes developed at Queen Mary, University of London.")
(license license:gpl2+))) (license license:gpl2+)))
(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" "\"]"))))))
(define ardour-bundled-media (define ardour-bundled-media
(origin (origin
(method url-fetch) (method url-fetch)
@ -777,7 +762,20 @@ namespace ARDOUR { const char* revision = \"" version "\" ; const char* date = \
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'set-rpath-in-LDFLAGS (add-after 'unpack 'set-rpath-in-LDFLAGS
,(ardour-rpath-phase (version-major version))) (lambda* (#:key outputs #:allow-other-keys)
(let ((libdir (string-append (assoc-ref outputs "out")
"/lib/ardour"
,(version-major version))))
(substitute* "wscript"
(("linker_flags = \\[\\]")
(string-append "linker_flags = [\""
"-Wl,-rpath="
libdir ":"
libdir "/backends" ":"
libdir "/engines" ":"
libdir "/panners" ":"
libdir "/surfaces" ":"
libdir "/vamp" "\"]"))))))
(add-after 'install 'install-freedesktop-files (add-after 'install 'install-freedesktop-files
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))