me/guix
Archived
1
0
Fork 0
Code Activity

gnu: openmpi: Use gexps.

Browse source 
* gnu/packages/mpi.scm (openmpi)[arguments]: Use gexps.
This commit is contained in:
Ludovic Courtès 2023-02-23 15:49:09 +01:00 • committed by Ludovic Courtès
parent b8d3b9d14b
commit f45fc72c28
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 66 additions and 64 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
gnu/packages/mpi.scm
View file

@ -25,6 +25,7 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages mpi) (define-module (gnu packages mpi)
#:use-module (guix gexp)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses) #:prefix license:)
#:use-module (guix download) #:use-module (guix download)
@ -228,13 +229,14 @@ bind processes, and much more.")
(list pkg-config perl)) (list pkg-config perl))
(outputs '("out" "debug")) (outputs '("out" "debug"))
(arguments (arguments
`(#:configure-flags `("--enable-mpi-ext=affinity" ;cr doesn't work (list
#:configure-flags #~`("--enable-mpi-ext=affinity" ;cr doesn't work
"--with-sge" "--with-sge"
,@(if ,(package? (this-package-input "valgrind")) #$@(if (package? (this-package-input "valgrind"))
`("--enable-memchecker" #~("--enable-memchecker"
"--with-valgrind") "--with-valgrind")
`("--without-valgrind")) #~("--without-valgrind"))
"--with-hwloc=external" "--with-hwloc=external"
"--with-libevent" "--with-libevent"
@ -253,8 +255,8 @@ bind processes, and much more.")
;; Enable support for SLURM's Process Manager ;; Enable support for SLURM's Process Manager
;; Interface (PMI). ;; Interface (PMI).
,(string-append "--with-pmi=" ,(string-append "--with-pmi="
(assoc-ref %build-inputs "slurm"))) #$(this-package-input "slurm")))
#:phases (modify-phases %standard-phases #:phases #~(modify-phases %standard-phases
;; opensm is needed for InfiniBand support. ;; opensm is needed for InfiniBand support.
(add-after 'unpack 'find-opensm-headers (add-after 'unpack 'find-opensm-headers
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)