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

sssd's service + define a touch directive

Browse source
This commit is contained in:
Jean-François GUILLAUME 2022-11-24 13:03:48 +01:00
parent 4f75a36f47
commit dd7cfd50e4
Signed by: Jean-François GUILLAUME
GPG key ID: 38751DAE145EFB5A
2 changed files with 72 additions and 111 deletions
Download patch file Download diff file Expand all files Collapse all files

54
glicid/utils.scm
View file

@ -1,43 +1,33 @@
(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))
#: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)
(case (version-compare (package-version v1) (package-version v2))
((>) v1)
((=) 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)
))
)
(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 ))
)
)
(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))
))
)
(,package-a-spec . ,(const package-b)))))