mirror of
https://gitlab.univ-nantes.fr/glicid-public/guix-glicid.git
synced 2025-04-30 14:18:38 +02:00
43 lines
1.1 KiB
Scheme
43 lines
1.1 KiB
Scheme
(define-module (glicid utils)
|
|
#:use-module (guix packages)
|
|
#:use-module (guix transformations)
|
|
#:use-module (guix utils)
|
|
#:use-module (gnu packages gcc)
|
|
#:use-module (glicid packages gcc)
|
|
#:use-module (gnu packages commencement)
|
|
#:use-module (gnu packages)
|
|
#:export (latest-version)
|
|
#:export (gcc11-instead-of-gcc)
|
|
#:export (transform-package)
|
|
#:export (instead-of)
|
|
)
|
|
;(define (latest-version v1 v2) (if (string> (package-version v1) (package-version v2)) v1 v2))
|
|
|
|
(define (latest-version v1 v2)
|
|
|
|
(case (version-compare (package-version v1) (package-version v2))
|
|
((>) v1)
|
|
((=) v1)
|
|
((<) v2)
|
|
)
|
|
)
|
|
|
|
(define gcc11-instead-of-gcc
|
|
(package-input-rewriting `(
|
|
(,gcc-toolchain . ,gcc-toolchain-11)
|
|
(,gfortran-toolchain . ,gfortran-toolchain-11)
|
|
))
|
|
)
|
|
|
|
(define (transform-package original-package suffix)
|
|
(package
|
|
(inherit original-package)
|
|
(name (string-append (package-name original-package) "-" suffix ))
|
|
)
|
|
)
|
|
|
|
(define (instead-of package-a-spec package-b)
|
|
(package-input-rewriting/spec `(
|
|
(,package-a-spec . ,(const package-b))
|
|
))
|
|
)
|