(define-module (glicid packages mpi)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module ((gnu packages mpi) #:prefix gnu:)
  #:use-module (glicid packages linux)
  #:use-module (glicid packages fabric-management)
  #:use-module (glicid utils)
  #:use-module (glicid packages parallel)
)

(define openmpi-latest gnu:openmpi)

(define-public openmpi-glicid
  (transform-package
    (
      (instead-of "slurm" slurm-glicid) openmpi-latest
    ) "glicid"
  )
)

(define-public openmpi-glicid-libfabric
  (transform-package
    (
      (instead-of "libfabric" libfabric-latest)
      openmpi-glicid
    ) "libfabric"
  )
)

(define-public openmpi-glicid-rdma
  (transform-package
    (
      (instead-of "rdma-core" rdma-core-latest)
      openmpi-glicid
    ) "rdma-core"
  )
)

(define-public openmpi-glicid-ucx
  (transform-package
    (
      (instead-of "ucx" ucx-latest) openmpi-glicid
    ) "ucx"
  )
)

(define-public openmpi-glicid-libfabric-rdma
  (transform-package
    (
      (instead-of "rdma-core" rdma-core-latest)
      openmpi-glicid-libfabric
    ) "rdma"
  )
)

(define-public openmpi-glicid-libfabric-ucx
  (transform-package
    (
      (instead-of "ucx" ucx-latest)
      openmpi-glicid-libfabric
    ) "ucx"
  )
)

(define-public openmpi-glicid-libfabric-rdma-ucx
  (transform-package
    (
      (instead-of "ucx" ucx-latest)
      openmpi-glicid-libfabric-rdma
    ) "ucx"
  )
)

(define-public openmpi-ccipl-libfabric-rdma-ucx
  (transform-package
    (
      (instead-of "slurm" slurm-ccipl)
      openmpi-glicid-libfabric-rdma-ucx
    ) "ccipl"
  )
)  


(define openmpi-glicid-transform-gcc-11 (gcc11-instead-of-gcc openmpi-glicid))

(define-public openmpi-glicid-gcc-11
  (package
    (inherit openmpi-glicid-transform-gcc-11)
    (name (string-append (package-name openmpi-glicid-transform-gcc-11) "-gcc-11" ))
  )
)