GLiCID/guix-glicid
7
0
Fork 0
mirror of https://gitlab.univ-nantes.fr/glicid-public/guix-glicid.git synced 2025-04-30 06:08:37 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

tests mpi et reecriture packets

Browse source
This commit is contained in:
Yann Dupont 2021-11-26 22:03:59 +01:00
parent 4e0db4ebc9
commit 79801ad18d
2 changed files with 21 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
glicid/packages/mpi.scm
View file

@ -94,6 +94,8 @@
#:use-module (glicid packages linux) #:use-module (glicid packages linux)
#:use-module (glicid packages fabric-management) #:use-module (glicid packages fabric-management)
#:use-module (glicid utils) #:use-module (glicid utils)
#:use-module (gnu packages parallel)
) )
@ -105,9 +107,10 @@
(version (string-append (package-version latest-openmpi) "-glicid" )) (version (string-append (package-version latest-openmpi) "-glicid" ))
(inputs `( (inputs `(
("ucx",ucx-latest) ;; should be latest beetween guix and glicid ; ("ucx",ucx-latest) ;; should be latest beetween guix and glicid
("rdma-core",rdma-core-latest) ;; should be latest beetween guix and glicid ("rdma-core",rdma-core-latest) ;; should be latest beetween guix and glicid
("libfabric",libfabric-latest) ("libfabric",libfabric-latest)
("slurm",slurm-20.02)
,@(package-inputs latest-openmpi))) ,@(package-inputs latest-openmpi)))
) )
) )
@ -132,3 +135,7 @@
(version (string-append (package-version openmpi-glicid-transform-gcc-10) "-gcc-10" )) (version (string-append (package-version openmpi-glicid-transform-gcc-10) "-gcc-10" ))
) )
) )
openmpi-glicid

17
glicid/utils.scm
View file

@ -25,9 +25,16 @@
) )
) )
(define gcc10-instead-of-gcc ;(define gcc10-instead-of-gcc
;; This is a procedure to replace GCC by GCC10, ; ;; This is a procedure to replace GCC by GCC10,
;; recursively. ; ;; recursively.
; (package-input-rewriting/spec `((,gcc-toolchain . ,(const gcc-toolchain-10))))) ;; (package-input-rewriting/spec `((,gcc-toolchain . ,(const gcc-toolchain-10)))))
(package-input-rewriting `((,gcc-toolchain . ,gcc-toolchain-10)))) ; (package-input-rewriting `((,gcc-toolchain . ,gcc-toolchain-10))))
(define (gcc10-instead-of-gcc packagetorewrite)
(let ((toolchaingcc (specification->package "gcc-toolchain@10"))
(toolchaingfortran (specification->package "gfortran-toolchain@10")))
(package-with-c-toolchain packagetorewrite `(("toolchaingcc" ,toolchaingcc)
("toulchaingfortran",toolchaingfortran)))))