manifest

;;; This is -*- Scheme -*-.
;;;
;;; This module extends GNU Guix and is licensed under the same terms, those
;;; of the GNU GPL version 3 or (at your option) any later version.
;;;
;;; Copyright © 2021, 2022 Inria

;;; Manifest for continuous integration of Guix-HPC-non-free at
;;; <https://guix.bordeaux.inria.fr>.


(use-modules (gnu packages) (guix) (guix profiles) (guix transformations))

(define openblas->mkl
  (options->transformation
   '((with-input . "openblas=mkl")
     (with-input . "mumps-openmpi=mumps-mkl-openmpi")))) ;for maphys++

(concatenate-manifests
 (list (packages->manifest
        (map (compose openblas->mkl specification->package)
             '("chameleon" "chameleon-cuda"
               "fabulous" "maphys++"
               "pastix" "pastix-cuda"
               "qr_mumps" "qr_mumps-cuda"
               "scalfmm")))
       (specifications->manifest
        '("chameleon-cuda" "chameleon-mkl-mt" "chameleon-cuda-mkl-mt"
          "pastix-cuda"
          "qr_mumps-cuda"
          "starpu-cuda" "starpu-cuda-fxt"
          "medit"))))