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

reformatting and cleaning repo

Browse source
This commit is contained in:
Jean-François GUILLAUME 2025-02-10 13:12:59 +01:00
parent 263fc568f0
commit dd9a55f327
42 changed files with 10407 additions and 11840 deletions
Download patch file Download diff file Expand all files Collapse all files

44
glicid/utils.scm
View file

@ -6,33 +6,27 @@
#:use-module (glicid packages gcc)
#:use-module (gnu packages commencement)
#:use-module (gnu packages)
#:export (
latest-version
gcc11-instead-of-gcc
transform-package
instead-of
touch
))
)
(define (latest-version v1 v2)
(case (version-compare (package-version v1) (package-version v2))
((>) v1)
((=) v1)
((<) v2)))
(define-public (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-public 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-public (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)))))
(define-public (instead-of package-a-spec package-b)
(package-input-rewriting/spec `( (,package-a-spec . ,(const package-b)))))
(define (touch filename)
(call-with-output-file file-name (const #t)))
(define-public (touch filename)
(call-with-output-file file-name (const #t)))