gnu: Add threaded variants of fftw and fftwf for Ardour and mod-host.
* gnu/packages/algebra.scm (fftw-with-threads, fftwf-with-threads): New variables. * gnu/packages/audio.scm (ardour)[inputs]: Replace "fftw" and "fftwf" with "fftw-with-threads" and "fftwf-with-threads", respectively. * gnu/packages/music.scm (mod-host)[inputs]: Likewise.
This commit is contained in:
parent
a82f0b3617
commit
45591fd7fd
|
@ -576,6 +576,22 @@ cosine/ sine transforms or DCT/DST).")
|
||||||
(string-append (package-description fftw)
|
(string-append (package-description fftw)
|
||||||
" Single-precision version."))))
|
" Single-precision version."))))
|
||||||
|
|
||||||
|
;; FIXME: These packages are used temporarily by packages like Ardour until
|
||||||
|
;; "--enable-flags" is added to the fftw and fftwf packages.
|
||||||
|
(define-public fftw-with-threads
|
||||||
|
(package (inherit fftw)
|
||||||
|
(arguments
|
||||||
|
(substitute-keyword-arguments (package-arguments fftw)
|
||||||
|
((#:configure-flags flags)
|
||||||
|
`(cons "--enable-threads" ,flags))))))
|
||||||
|
|
||||||
|
(define-public fftwf-with-threads
|
||||||
|
(package (inherit fftwf)
|
||||||
|
(arguments
|
||||||
|
(substitute-keyword-arguments (package-arguments fftwf)
|
||||||
|
((#:configure-flags flags)
|
||||||
|
`(cons "--enable-threads" ,flags))))))
|
||||||
|
|
||||||
(define-public fftw-openmpi
|
(define-public fftw-openmpi
|
||||||
(package (inherit fftw)
|
(package (inherit fftw)
|
||||||
(name "fftw-openmpi")
|
(name "fftw-openmpi")
|
||||||
|
|
|
@ -238,8 +238,8 @@ namespace ARDOUR { const char* revision = \"5.4\" ; }"))))
|
||||||
("lv2" ,lv2)
|
("lv2" ,lv2)
|
||||||
("vamp" ,vamp)
|
("vamp" ,vamp)
|
||||||
("curl" ,curl)
|
("curl" ,curl)
|
||||||
("fftw" ,fftw)
|
("fftw" ,fftw-with-threads)
|
||||||
("fftwf" ,fftwf)
|
("fftwf" ,fftwf-with-threads)
|
||||||
("jack" ,jack-1)
|
("jack" ,jack-1)
|
||||||
("serd" ,serd)
|
("serd" ,serd)
|
||||||
("sord" ,sord)
|
("sord" ,sord)
|
||||||
|
|
|
@ -1744,8 +1744,8 @@ analogue-like user interface.")
|
||||||
#t)))))
|
#t)))))
|
||||||
(inputs
|
(inputs
|
||||||
`(("lilv" ,lilv)
|
`(("lilv" ,lilv)
|
||||||
("fftw" ,fftw)
|
("fftw" ,fftw-with-threads)
|
||||||
("fftwf" ,fftwf)
|
("fftwf" ,fftwf-with-threads)
|
||||||
("lv2" ,lv2)
|
("lv2" ,lv2)
|
||||||
("jack" ,jack-1)
|
("jack" ,jack-1)
|
||||||
("readline" ,readline)))
|
("readline" ,readline)))
|
||||||
|
|
Loading…
Reference in New Issue