me
/
guix
Archived
1
0
Fork 0
Code

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

* gnu/packages/algebra.scm (pthread-variant): New procedure.
(fftw-with-threads, fftwf-with-threads): Use it.
master
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) (string-append (package-description fftw)
" Single-precision version.")))) " Single-precision version."))))
;; FIXME: These packages are used temporarily by packages like Ardour until (define (pthread-variant p)
;; "--enable-flags" is added to the fftw and fftwf packages. (package
(define-public fftw-with-threads (inherit p)
(package (inherit fftw) (name (string-append (package-name p) "-pthreads"))
(name "fftw-pthreads")
(arguments (arguments
(substitute-keyword-arguments (package-arguments fftw) (substitute-keyword-arguments (package-arguments fftw)
((#:configure-flags flags) ((#:configure-flags flags)
`(cons "--enable-threads" ,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 (define-public fftwf-with-threads
(package (inherit fftwf) (pthread-variant fftwf))
(name "fftwf-pthreads")
(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)