me/guix
Archived
1
0
Fork 0
Code Activity

gnu: fftw: Factorize creation of the --enable-threads variant.

Browse source 
* gnu/packages/algebra.scm (pthread-variant): New procedure.
(fftw-with-threads, fftwf-with-threads): Use it.
This commit is contained in:
Ludovic Courtès 2017-01-02 14:52:30 +01:00
parent 7355634db3
commit 1a49a10a94
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 10 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
gnu/packages/algebra.scm
View file

@ -577,23 +577,22 @@ cosine/ sine transforms or DCT/DST).")
(string-append (package-description fftw)
" 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)
(name "fftw-pthreads")
(define (pthread-variant p)
(package
(inherit p)
(name (string-append (package-name p) "-pthreads"))
(arguments
(substitute-keyword-arguments (package-arguments fftw)
((#:configure-flags flags)
`(cons "--enable-threads" ,flags))))))
;; 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
(pthread-variant fftw))
(define-public fftwf-with-threads
(package (inherit fftwf)
(name "fftwf-pthreads")
(arguments
(substitute-keyword-arguments (package-arguments fftwf)
((#:configure-flags flags)
`(cons "--enable-threads" ,flags))))))
(pthread-variant fftwf))
(define-public fftw-openmpi
(package (inherit fftw)