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

Merge branch 'devel' into 'main'

Browse source 
use guix style on *.scm

See merge request glicid-public/guix-glicid!168
This commit is contained in:
Yann Dupont 2023-01-02 10:20:30 +00:00
commit a3f2caebe4
28 changed files with 1981 additions and 2065 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

138
glicid/packages/admin.scm
View file

@ -1,79 +1,81 @@
(define-module (glicid packages admin) (define-module (glicid packages admin)
#:use-module ((gnu packages admin) #:prefix gnu:) #:use-module ((gnu packages admin)
#:use-module (gnu packages base) #:prefix gnu:)
#:use-module (gnu packages compression) #:use-module (gnu packages base)
#:use-module (gnu packages cyrus-sasl) #:use-module (gnu packages compression)
#:use-module (gnu packages groff) #:use-module (gnu packages cyrus-sasl)
#:use-module (gnu packages hurd) #:use-module (gnu packages groff)
#:use-module (gnu packages linux) #:use-module (gnu packages hurd)
#:use-module (gnu packages openldap) #:use-module (gnu packages linux)
#:use-module (gnu packages pkg-config) #:use-module (gnu packages openldap)
#:use-module (gnu packages tls) #:use-module (gnu packages pkg-config)
#:use-module (guix build-system gnu) #:use-module (gnu packages tls)
#:use-module (guix build-system python) #:use-module (guix build-system gnu)
#:use-module (guix download) #:use-module (guix build-system python)
#:use-module ((guix licenses) #:prefix license:) #:use-module (guix download)
#:use-module (guix packages) #:use-module ((guix licenses)
#:use-module (guix utils) #:prefix license:)
#:use-module (glicid packages python) #:use-module (guix packages)
) #:use-module (guix utils)
#:use-module (glicid packages python))
(define-public shadow (define-public shadow
(package (package
(inherit gnu:shadow) (inherit gnu:shadow)
(name "shadow") (name "shadow")
(version "4.13") (version "4.13")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (list (string-append "https://github.com/shadow-maint/shadow/releases/download/v" version "/shadow-" version ".tar.xz"))) (uri (list (string-append
(sha256 (base32 "0b6xz415b4y3y5nk3pw9xibv05kln4cjbmhybyncmrx2g5fj9zls")))))) "https://github.com/shadow-maint/shadow/releases/download/v"
version "/shadow-" version ".tar.xz")))
(sha256
(base32
"0b6xz415b4y3y5nk3pw9xibv05kln4cjbmhybyncmrx2g5fj9zls"))))))
(define-public sudo (define-public sudo
(let* ((sudo-minimal gnu:sudo)) (let* ((sudo-minimal gnu:sudo))
(package (package
(inherit sudo-minimal) (inherit sudo-minimal)
(name (string-append (package-name sudo-minimal) "-with-ldap")) (name (string-append (package-name sudo-minimal) "-with-ldap"))
(arguments (arguments
(substitute-keyword-arguments (package-arguments sudo-minimal) (substitute-keyword-arguments (package-arguments sudo-minimal)
((#:configure-flags flags) ((#:configure-flags flags)
`(append (list `(append (list "--enable-sasl" "--with-ldap" "--enable-openssl"
"--enable-sasl" "--with-nsswitch")
"--with-ldap" ,flags))))
"--enable-openssl" (inputs (modify-inputs (package-inputs sudo-minimal)
"--with-nsswitch") (append openldap openssl cyrus-sasl)))
,flags)))) (native-inputs (modify-inputs (package-native-inputs sudo-minimal)
(inputs (modify-inputs (package-inputs sudo-minimal) (append pkg-config))))))
(append openldap
openssl
cyrus-sasl)))
(native-inputs (modify-inputs (package-native-inputs sudo-minimal)
(append pkg-config))))))
(define-public ansible (define-public ansible
(package (package
(inherit gnu:ansible) (inherit gnu:ansible)
(name "ansible") (name "ansible")
(version "6.3.0") (version "6.3.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri name version)) (uri (pypi-uri name version))
(sha256 (base32 "09im4w38bm36arjxmi0jbdrmv6cgnjq4b5ks4kawhicdbb0rzynm")))) (sha256
(propagated-inputs (list ansible-core)))) (base32
"09im4w38bm36arjxmi0jbdrmv6cgnjq4b5ks4kawhicdbb0rzynm"))))
(propagated-inputs (list ansible-core))))
(define-public ansible-core (define-public ansible-core
(package (package
(inherit gnu:ansible-core) (inherit gnu:ansible-core)
(name "ansible-core") (name "ansible-core")
(version "2.13.3") (version "2.13.3")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri name version)) (uri (pypi-uri name version))
(sha256 (base32 "120rrpj8pqscdf2llipxxvpmg4fxqr3s0vx32f6hq77z60jh9igf")))) (sha256
(arguments (base32
`( "120rrpj8pqscdf2llipxxvpmg4fxqr3s0vx32f6hq77z60jh9igf"))))
#:tests? #f (arguments
#:phases `(#:tests? #f
(modify-phases %standard-phases #:phases (modify-phases %standard-phases
(delete 'sanity-check)))))) (delete 'sanity-check))))))
shadow shadow

21
glicid/packages/algebra.scm
View file

@ -2,8 +2,7 @@
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (gnu packages algebra) #:use-module (gnu packages algebra)
#:use-module (gnu packages commencement) #:use-module (gnu packages commencement))
)
(define-public fftw-openmpi-with-fortran (define-public fftw-openmpi-with-fortran
(package (package
@ -11,13 +10,11 @@
(name "fftw-openmpi-with-fortran") (name "fftw-openmpi-with-fortran")
(version "3.3.10") (version "3.3.10")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://www.fftw.org/fftw-" version ".tar.gz")) (uri (string-append "https://www.fftw.org/fftw-" version
(sha256 (base32 "0rv4w90b65b2kvjpj8g9bdkl4xqc42q20f5bzpxdrkajk1a35jan")) ".tar.gz"))
)) (sha256
(inputs `( (base32
("gfortran-toolchain", gfortran-toolchain) "0rv4w90b65b2kvjpj8g9bdkl4xqc42q20f5bzpxdrkajk1a35jan"))))
,@(package-inputs fftw-openmpi) (inputs `(("gfortran-toolchain" ,gfortran-toolchain)
)) ,@(package-inputs fftw-openmpi)))))
)
)

143
glicid/packages/benchmark.scm
View file

@ -2,36 +2,33 @@
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses)
#:prefix license:)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module ((gnu packages benchmark) #:prefix gnu:) #:use-module ((gnu packages benchmark)
#:prefix gnu:)
#:use-module (gnu packages commencement) #:use-module (gnu packages commencement)
#:use-module (gnu packages compression) #:use-module (gnu packages compression)
#:use-module (gnu packages mpi) #:use-module (gnu packages mpi)
#:use-module (glicid packages mpi) #:use-module (glicid packages mpi)
#:use-module (glicid packages gcc) #:use-module (glicid packages gcc)
#:use-module (glicid utils) #:use-module (glicid utils))
)
(define-public intel-mpi-benchmarks/openmpi-2021.3 (define-public intel-mpi-benchmarks/openmpi-2021.3
(package (package
(inherit gnu:intel-mpi-benchmarks/openmpi) (inherit gnu:intel-mpi-benchmarks/openmpi)
(name "intel-mpi-benchmarks-upstream") (name "intel-mpi-benchmarks-upstream")
(version "2021.3") (version "2021.3")
(source (source (origin
(origin (inherit (package-source gnu:intel-mpi-benchmarks/openmpi))
(inherit (package-source gnu:intel-mpi-benchmarks/openmpi)) (method git-fetch)
(method git-fetch) (uri (git-reference
(uri (git-reference (url "https://github.com/intel/mpi-benchmarks")
(url "https://github.com/intel/mpi-benchmarks") (commit (string-append "IMB-v" version))))
(commit (string-append "IMB-v" version)) (file-name (git-file-name name version))
)) (sha256
(file-name (git-file-name name version)) (base32
(sha256 (base32 "04kczch2hlfzbgk929vcxx480kc6raba8rbz246j7d26k1z1zh8h")) "04kczch2hlfzbgk929vcxx480kc6raba8rbz246j7d26k1z1zh8h"))))))
)
)
)
)
;(define-public intel-mpi-benchmarks/openmpi-2021.3-libfabric-rdma ;(define-public intel-mpi-benchmarks/openmpi-2021.3-libfabric-rdma
; (transform-package ( ; (transform-package (
@ -52,59 +49,41 @@
;) ;)
(define-public intel-mpi-benchmarks/openmpi-2021.3-waves (define-public intel-mpi-benchmarks/openmpi-2021.3-waves
(transform-package ( (transform-package ((instead-of "openmpi" openmpi-glicid-waves)
(instead-of "openmpi" openmpi-glicid-waves) intel-mpi-benchmarks/openmpi-2021.3) "waves"))
intel-mpi-benchmarks/openmpi-2021.3
) "waves")
)
(define-public stream-benchmarks (define-public stream-benchmarks
(package (package
(name "stream-benchmarks") (name "stream-benchmarks")
(version "5.10-jh") (version "5.10-jh")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (uri (git-reference
(git-reference (url "https://github.com/jeffhammond/STREAM.git")
(url "https://github.com/jeffhammond/STREAM.git") (commit "HEAD")))
(commit "HEAD") (sha256
) (base32
) "1b5ka2h6rhp2103app6p0vq29y7qixcli9w874hb33y05ggjin8m"))
(sha256 (base32 "1b5ka2h6rhp2103app6p0vq29y7qixcli9w874hb33y05ggjin8m")) (file-name (string-append name "-" version "-checkout"))))
(file-name (string-append name "-" version "-checkout"))
))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases `(#:phases (modify-phases %standard-phases
(modify-phases %standard-phases (delete 'configure) ;no configure
(delete 'configure) ; no configure (delete 'check) ;no check
(delete 'check) ; no check (replace 'install
(replace 'install (lambda* (#:key outputs #:allow-other-keys)
(lambda* (#:key outputs #:allow-other-keys) ;; Le Makefile du paquet ne fournit pas de règle « install »
;; Le Makefile du paquet ne fournit pas de règle « install » ;; alors on le fait nous-mêmes.
;; alors on le fait nous-mêmes. (let ((bin (string-append (assoc-ref outputs "out")
(let "/bin")))
((bin (string-append (assoc-ref outputs "out") "/bin"))) (install-file "stream_c.exe" bin)
(install-file "stream_c.exe" bin) (install-file "stream_f.exe" bin) #t))))))
(install-file "stream_f.exe" bin) (inputs `(("gfortran-toolchain" ,gfortran-toolchain)))
#t (synopsis "STREAM benchmark")
) (description "STREAM benchmark")
) (home-page "https://")
) (license license:gpl2+) ;check…
) ))
)
)
(inputs `(
("gfortran-toolchain" ,gfortran-toolchain)
))
(synopsis "STREAM benchmark")
(description "STREAM benchmark")
(home-page "https://")
(license license:gpl2+) ;; check…
)
)
;;defined by gricad / PA Boutier ;;defined by gricad / PA Boutier
@ -113,30 +92,24 @@
(name "osu-benchmarks") (name "osu-benchmarks")
(version "5.8") (version "5.8")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://mvapich.cse.ohio-state.edu/download/mvapich/osu-micro-benchmarks-" version ".tgz")) (uri (string-append
(sha256 (base32 "19a4wg0msipibkxsi8i0c34d07512yfaj2k37dxg5541ysdw690f")) "https://mvapich.cse.ohio-state.edu/download/mvapich/osu-micro-benchmarks-"
)) version ".tgz"))
(sha256
(base32
"19a4wg0msipibkxsi8i0c34d07512yfaj2k37dxg5541ysdw690f"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases `(#:phases (modify-phases %standard-phases
(modify-phases %standard-phases (add-after 'unpack 'setenv
(add-after 'unpack 'setenv (lambda _
(lambda _ (setenv "CC"
(setenv "CC" (which "mpicc")) (which "mpicc"))
(setenv "CXX" (which "mpic++")) (setenv "CXX"
#t (which "mpic++")) #t)))))
) (propagated-inputs `(("openmpi" ,openmpi)))
)
)
)
)
(propagated-inputs `(
("openmpi" ,openmpi)
))
(synopsis "OSU micro benchmarks") (synopsis "OSU micro benchmarks")
(description "OSU micro benchmark for mpi") (description "OSU micro benchmark for mpi")
(home-page "https://mvapich.cse.ohio-state.edu/benchmarks/") (home-page "https://mvapich.cse.ohio-state.edu/benchmarks/")
(license license:gpl2+) (license license:gpl2+)))
)
)

45
glicid/packages/clam.scm
View file

@ -1,27 +1,28 @@
(define-module (glicid packages clam) (define-module (glicid packages clam)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix download) #:use-module (guix download)
#:use-module (gnu packages linux) #:use-module (gnu packages linux)
#:use-module (gnu packages virtualization) #:use-module (gnu packages virtualization)
#:use-module (gnu packages storage) #:use-module (gnu packages storage)
#:use-module (gnu packages gcc) #:use-module (gnu packages gcc)
#:use-module (glicid packages glicid) #:use-module (glicid packages glicid)
#:use-module (guix build-system python) #:use-module (guix build-system python)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses)
#:use-module (guix git-download) #:prefix license:)
#:use-module (gnu packages python) #:use-module (guix git-download)
#:use-module (guix build-system python) #:use-module (gnu packages python)
#:use-module (gnu packages python-web) #:use-module (guix build-system python)
#:use-module (gnu packages python-xyz) #:use-module (gnu packages python-web)
#:use-module (gnu packages python-crypto) #:use-module (gnu packages python-xyz)
#:use-module (gnu packages check) #:use-module (gnu packages python-crypto)
#:use-module (guix build-system copy) #:use-module (gnu packages check)
#:use-module (gnu packages django) #:use-module (guix build-system copy)
#:use-module (gnu packages time) #:use-module (gnu packages django)
#:use-module (gnu packages databases) #:use-module (gnu packages time)
#:use-module (gnu packages python-build) ;; setup-tools moved here. #:use-module (gnu packages databases)
) #:use-module (gnu packages python-build) ;setup-tools moved here.
)
;(define-public python-pytest-runner-4.5.1 ;(define-public python-pytest-runner-4.5.1
; (package ; (package

60
glicid/packages/cluster.scm
View file

@ -2,9 +2,9 @@
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix download) #:use-module (guix download)
#:use-module (gnu packages networking) #:use-module (gnu packages networking)
#:use-module ((gnu packages cluster) #:prefix gnu:) #:use-module ((gnu packages cluster)
#:use-module (glicid utils) #:prefix gnu:)
) #:use-module (glicid utils))
(define-public keepalived-upstream-2.2.4 (define-public keepalived-upstream-2.2.4
(package (package
@ -12,12 +12,13 @@
(name "keepalived-upstream") (name "keepalived-upstream")
(version "2.2.4") (version "2.2.4")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "http://www.keepalived.org/software/keepalived-" version ".tar.gz")) (uri (string-append
(sha256 (base32 "1py1xdrxzdxn09yi8dx842rmhnc8lv7z09wmb2mfljylhy8dcf01" )) "http://www.keepalived.org/software/keepalived-" version
)) ".tar.gz"))
) (sha256
) (base32
"1py1xdrxzdxn09yi8dx842rmhnc8lv7z09wmb2mfljylhy8dcf01"))))))
(define-public keepalived-upstream-2.2.7 (define-public keepalived-upstream-2.2.7
(package (package
@ -25,34 +26,27 @@
(name "keepalived-upstream") (name "keepalived-upstream")
(version "2.2.7") (version "2.2.7")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "http://www.keepalived.org/software/keepalived-" version ".tar.gz")) (uri (string-append
(sha256 (base32 "17flnzcs8hpj1g8nhhqn6bwbvpksyizcyzk2ah55cjhmfkc406f6" )) "http://www.keepalived.org/software/keepalived-" version
)) ".tar.gz"))
) (sha256
) (base32
"17flnzcs8hpj1g8nhhqn6bwbvpksyizcyzk2ah55cjhmfkc406f6"))))))
(define local:keepalived
(define local:keepalived keepalived-upstream-2.2.7) keepalived-upstream-2.2.7)
(define keepalived-latest (latest-version local:keepalived gnu:keepalived)) (define keepalived-latest
(latest-version local:keepalived gnu:keepalived))
(define-public keepalived-glicid (define-public keepalived-glicid
(package (package
(inherit keepalived-latest) (inherit keepalived-latest)
(name "keepalived-glicid") (name "keepalived-glicid")
(version (string-append (package-version keepalived-latest) "-glicid" )) (version (string-append (package-version keepalived-latest) "-glicid"))
(arguments (arguments
`(#:configure-flags `(#:configure-flags (list (string-append "--enable-snmp")
(list (string-append "--enable-snmp-checker")
(string-append "--enable-snmp") (string-append "--enable-snmp-rfc"))))
(string-append "--enable-snmp-checker") (inputs `(("net-snmp" ,net-snmp)
(string-append "--enable-snmp-rfc") ,@(package-inputs keepalived-latest)))))
)
)
)
(inputs `(
("net-snmp", net-snmp)
,@(package-inputs keepalived-latest)
))
)
)

224
glicid/packages/containers.scm
View file

@ -1,92 +1,102 @@
(define-module (glicid packages containers) (define-module (glicid packages containers)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix gexp) #:use-module (guix gexp)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses)
#:use-module ((gnu packages containers) #:prefix gnu:) #:prefix license:)
#:use-module (gnu packages linux) #:use-module ((gnu packages containers)
#:use-module (gnu packages gnupg) #:prefix gnu:)
#:use-module (gnu packages golang) #:use-module (gnu packages linux)
#:use-module (gnu packages selinux) #:use-module (gnu packages gnupg)
#:use-module (gnu packages bash) #:use-module (gnu packages golang)
#:use-module (gnu packages version-control) #:use-module (gnu packages selinux)
#:use-module (gnu packages pkg-config) #:use-module (gnu packages bash)
#:use-module (guix utils) #:use-module (gnu packages version-control)
#:use-module (guix build-system gnu) #:use-module (gnu packages pkg-config)
) #:use-module (guix utils)
#:use-module (guix build-system gnu))
(define-public podman (define-public podman
(package (package
(name "podman") (name "podman")
(version "4.3.1") (version "4.3.1")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (list (uri (list (string-append
(string-append "https://github.com/containers/podman/archive/refs/tags/v" version ".tar.gz") "https://github.com/containers/podman/archive/refs/tags/v"
)) version ".tar.gz")))
(sha256 (base32 "04w8lwybsxix4ms6gnsj2xp4xkm567fj0vnlwmjn7kbqxv22jp25")) (sha256
)) (base32
"04w8lwybsxix4ms6gnsj2xp4xkm567fj0vnlwmjn7kbqxv22jp25"))))
(home-page "https://podman.io") (home-page "https://podman.io")
(synopsis "Manage containers, images, pods, and their volumes") (synopsis "Manage containers, images, pods, and their volumes")
(description "Podman (the POD MANager) is a tool for managing containers and images, volumes mounted into those containers, and pods made from groups of containers.") (description
"Podman (the POD MANager) is a tool for managing containers and images, volumes mounted into those containers, and pods made from groups of containers.")
(license license:asl2.0) (license license:asl2.0)
(inputs (list btrfs-progs gnu:cni-plugins gnu:conmon gnu:crun gpgme go-github-com-go-md2man iptables libassuan libseccomp libselinux gnu:slirp4netns )) (inputs (list btrfs-progs
(native-inputs (list bats git go pkg-config )) gnu:cni-plugins
gnu:conmon
gnu:crun
gpgme
go-github-com-go-md2man
iptables
libassuan
libseccomp
libselinux
gnu:slirp4netns))
(native-inputs (list bats git go pkg-config))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
(list (list #:make-flags #~(list #$(string-append "CC="
#:make-flags (cc-for-target))
#~(list #$(string-append "CC=" (cc-for-target)) (string-append "PREFIX="
(string-append "PREFIX=" #$output) #$output))
) #:tests? #f
#:tests? #f #:test-target "test"
#:test-target "test" #:phases #~(modify-phases %standard-phases
#:phases (delete 'configure)
#~(modify-phases %standard-phases (add-after 'unpack 'set-env
(delete 'configure) (lambda* (#:key inputs #:allow-other-keys)
(add-after 'unpack 'set-env (setenv "HOME" "/tmp")))
(lambda* (#:key inputs #:allow-other-keys) (replace 'check
(setenv "HOME" "/tmp") (lambda* (#:key tests? #:allow-other-keys)
) (when tests?
) (invoke "make" "localsystem")
(replace 'check (invoke "make" "remotesystem"))))
(lambda* (#:key tests? #:allow-other-keys) (add-after 'unpack 'fix-hardcoded-paths
(when tests? (lambda _
(invoke "make" "localsystem") (substitute* (find-files "libpod" "\\.go")
(invoke "make" "remotesystem") (("exec.LookPath[(][\"]slirp4netns[\"][)]")
) (string-append "exec.LookPath(\""
) (which "slirp4netns") "\")")))
) (substitute* "hack/install_catatonit.sh"
(add-after 'unpack 'fix-hardcoded-paths (("CATATONIT_PATH=\"[^\"]+\"")
(lambda _ (string-append "CATATONIT_PATH="
(substitute* (which "true"))))
(find-files "libpod" "\\.go") (substitute* "vendor/github.com/containers/common/pkg/config/config_linux.go"
(("exec.LookPath[(][\"]slirp4netns[\"][)]") (string-append "exec.LookPath(\"" (which "slirp4netns") "\")")) (("/usr/local/libexec/podman")
) (string-append #$output "/bin")))
(substitute* "hack/install_catatonit.sh" (("CATATONIT_PATH=\"[^\"]+\"") (string-append "CATATONIT_PATH=" (which "true")))) (substitute* "vendor/github.com/containers/common/pkg/config/default.go"
(substitute* "vendor/github.com/containers/common/pkg/config/config_linux.go" (("/usr/local/libexec/podman")(string-append #$output "/bin"))) (("/usr/libexec/podman/conmon")
(substitute* "vendor/github.com/containers/common/pkg/config/default.go" (which "conmon"))
(("/usr/libexec/podman/conmon") (which "conmon")) (("/usr/local/libexec/cni") (string-append #$(this-package-input "cni-plugins") "/bin")) (("/usr/local/libexec/cni")
(("/usr/bin/crun") (which "crun")) (string-append #$(this-package-input
) "cni-plugins") "/bin"))
) (("/usr/bin/crun")
) (which "crun")))))
(add-after 'unpack 'build-no-docs (add-after 'unpack 'build-no-docs
(lambda _ (lambda _
(substitute* "Makefile" (("all: binaries docs") "all: binaries")) (substitute* "Makefile"
(substitute* "Makefile" (("install: install.bin install.remote install.man install.systemd") "install: install.bin install.remote install.systemd")) (("all: binaries docs")
) "all: binaries"))
) (substitute* "Makefile"
(add-after 'install 'install-completions (("install: install.bin install.remote install.man install.systemd")
(lambda _ "install: install.bin install.remote install.systemd"))))
(invoke "make" "install.completions" (string-append "PREFIX=" #$output)) (add-after 'install 'install-completions
) (lambda _
) (invoke "make" "install.completions"
) (string-append "PREFIX="
) #$output)))))))))
)
)
)
(define-public podman-4.3.0 (define-public podman-4.3.0
(package (package
@ -94,14 +104,13 @@
(name "podman") (name "podman")
(version "4.3.0") (version "4.3.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (list (uri (list (string-append
(string-append "https://github.com/containers/podman/archive/refs/tags/v" version ".tar.gz") "https://github.com/containers/podman/archive/refs/tags/v"
)) version ".tar.gz")))
(sha256 (base32 "0d5zfi6drac23vb2la2v5s2g27hbz9wgiyvlxfm7hgzjh2ds18sm")) (sha256
)) (base32
) "0d5zfi6drac23vb2la2v5s2g27hbz9wgiyvlxfm7hgzjh2ds18sm"))))))
)
;; YD : now uptreamed… ;; YD : now uptreamed…
@ -126,14 +135,13 @@
(name "podman") (name "podman")
(version "4.2.0") (version "4.2.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (list (uri (list (string-append
(string-append "https://github.com/containers/podman/archive/refs/tags/v" version ".tar.gz") "https://github.com/containers/podman/archive/refs/tags/v"
)) version ".tar.gz")))
(sha256 (base32 "1x5jmmz78ggnlyidc0ivcghpkysd4zkm598jjbf9gkaw09cvry0m")) (sha256
)) (base32
) "1x5jmmz78ggnlyidc0ivcghpkysd4zkm598jjbf9gkaw09cvry0m"))))))
)
(define-public podman-4.1.1 (define-public podman-4.1.1
(package (package
@ -141,14 +149,13 @@
(name "podman") (name "podman")
(version "4.1.1") (version "4.1.1")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (list (uri (list (string-append
(string-append "https://github.com/containers/podman/archive/refs/tags/v" version ".tar.gz") "https://github.com/containers/podman/archive/refs/tags/v"
)) version ".tar.gz")))
(sha256 (base32 "198hdf8wg50zcgrl3982yj3xd227224r7mgb135r9vmgn7lk5gr7")) (sha256
)) (base32
) "198hdf8wg50zcgrl3982yj3xd227224r7mgb135r9vmgn7lk5gr7"))))))
)
(define-public podman-4.1.0 (define-public podman-4.1.0
(package (package
@ -156,11 +163,10 @@
(name "podman") (name "podman")
(version "4.1.0") (version "4.1.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (list (uri (list (string-append
(string-append "https://github.com/containers/podman/archive/refs/tags/v" version ".tar.gz") "https://github.com/containers/podman/archive/refs/tags/v"
)) version ".tar.gz")))
(sha256 (base32 "158fyxv2hd1nwirabrwxascl9lkdphhv0knwrk0qdm0ifcmf257q")) (sha256
)) (base32
) "158fyxv2hd1nwirabrwxascl9lkdphhv0knwrk0qdm0ifcmf257q"))))))
)

125
glicid/packages/fabric-management.scm
View file

@ -1,105 +1,92 @@
(define-module (glicid packages fabric-management) (define-module (glicid packages fabric-management)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module ((gnu packages fabric-management) #:prefix gnu:) #:use-module ((gnu packages fabric-management)
#:prefix gnu:)
#:use-module (glicid packages linux) #:use-module (glicid packages linux)
#:use-module (glicid utils) #:use-module (glicid utils)
) )
(define-public ucx-upstream-1.11.2 (define-public ucx-upstream-1.11.2
(package (package
(inherit gnu:ucx) (inherit gnu:ucx)
(name (string-append (package-name gnu:ucx) "-upstream" )) (name (string-append (package-name gnu:ucx) "-upstream"))
(version "1.11.2") (version "1.11.2")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append
(uri (string-append "https://github.com/openucx/ucx/releases/download/v" version "/ucx-" version ".tar.gz" )) "https://github.com/openucx/ucx/releases/download/v"
(sha256 (base32 "1py62vjr0hgyqsdpr04jhn918i8ccn6ghjalwpcjpz24admgisyy")) version "/ucx-" version ".tar.gz"))
) (sha256
) (base32
) "1py62vjr0hgyqsdpr04jhn918i8ccn6ghjalwpcjpz24admgisyy"))))))
)
(define-public ucx-upstream-1.12.0 (define-public ucx-upstream-1.12.0
(package (package
(inherit gnu:ucx) (inherit gnu:ucx)
(name (string-append (package-name gnu:ucx) "-upstream" )) (name (string-append (package-name gnu:ucx) "-upstream"))
(version "1.12.0") (version "1.12.0")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append
(uri (string-append "https://github.com/openucx/ucx/releases/download/v" version "/ucx-" version ".tar.gz" )) "https://github.com/openucx/ucx/releases/download/v"
(sha256 (base32 "1djxsakwjwnw21hhzsr02w6h2jd2k16bm4pah4iz6k8s5pg99sck")) version "/ucx-" version ".tar.gz"))
) (sha256
) (base32
) "1djxsakwjwnw21hhzsr02w6h2jd2k16bm4pah4iz6k8s5pg99sck"))))))
)
(define-public ucx-upstream-1.12.1 (define-public ucx-upstream-1.12.1
(package (package
(inherit gnu:ucx) (inherit gnu:ucx)
(name (string-append (package-name gnu:ucx) "-upstream" )) (name (string-append (package-name gnu:ucx) "-upstream"))
(version "1.12.1") (version "1.12.1")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append
(uri (string-append "https://github.com/openucx/ucx/releases/download/v" version "/ucx-" version ".tar.gz" )) "https://github.com/openucx/ucx/releases/download/v"
(sha256 (base32 "13mf30gdcqix8dyi0iwnsd5fn8b0syr03042y99s556swz44gd20")) version "/ucx-" version ".tar.gz"))
) (sha256
) (base32
) "13mf30gdcqix8dyi0iwnsd5fn8b0syr03042y99s556swz44gd20"))))))
)
(define-public ucx-upstream-1.13.0 (define-public ucx-upstream-1.13.0
(package (package
(inherit gnu:ucx) (inherit gnu:ucx)
(name (string-append (package-name gnu:ucx) "-upstream" )) (name (string-append (package-name gnu:ucx) "-upstream"))
(version "1.13.0") (version "1.13.0")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append
(uri (string-append "https://github.com/openucx/ucx/releases/download/v" version "/ucx-" version ".tar.gz" )) "https://github.com/openucx/ucx/releases/download/v"
(sha256 (base32 "0gay9qsyz5ia68sakq1dakvk3sblh4fawnwzg09q2y723zr82f4a")) version "/ucx-" version ".tar.gz"))
) (sha256
) (base32
) "0gay9qsyz5ia68sakq1dakvk3sblh4fawnwzg09q2y723zr82f4a"))))))
)
(define-public ucx-upstream-1.13.1 (define-public ucx-upstream-1.13.1
(package (package
(inherit gnu:ucx) (inherit gnu:ucx)
(name (string-append (package-name gnu:ucx) "-upstream" )) (name (string-append (package-name gnu:ucx) "-upstream"))
(version "1.13.1") (version "1.13.1")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append
(uri (string-append "https://github.com/openucx/ucx/releases/download/v" version "/ucx-" version ".tar.gz" )) "https://github.com/openucx/ucx/releases/download/v"
(sha256 (base32 "0a1qvnlvj2k5xgzkfs3md8ai3mmz6i1zv8w2rhm1s4wfnqlpihzg")) version "/ucx-" version ".tar.gz"))
) (sha256
) (base32
) "0a1qvnlvj2k5xgzkfs3md8ai3mmz6i1zv8w2rhm1s4wfnqlpihzg"))))))
)
(define local-ucx
(define local-ucx ucx-upstream-1.13.1) ucx-upstream-1.13.1)
(define-public ucx-latest (latest-version local-ucx gnu:ucx)) (define-public ucx-latest
(latest-version local-ucx gnu:ucx))
(define-public ucx-latest-rdma (define-public ucx-latest-rdma
(transform-package (transform-package ((instead-of "rdma-core" rdma-core-latest)
( ucx-latest) "rdma"))
(instead-of "rdma-core" rdma-core-latest)
ucx-latest
) "rdma"
)
)
(define-public ucx-latest-glicid (define-public ucx-latest-glicid
(transform-package (transform-package ((instead-of "libfabric" libfabric-latest)
( ucx-latest-rdma) "glicid"))
(instead-of "libfabric" libfabric-latest)
ucx-latest-rdma
) "glicid"
)
)

122
glicid/packages/file-systems.scm
View file

@ -1,5 +1,6 @@
(define-module (glicid packages file-systems) (define-module (glicid packages file-systems)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses)
#:prefix license:)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix git-download) #:use-module (guix git-download)
@ -18,69 +19,71 @@
#:use-module (gnu packages flex) #:use-module (gnu packages flex)
#:use-module (gnu packages pkg-config) #:use-module (gnu packages pkg-config)
) )
(define-public autofs-glicid (define-public autofs-glicid
(package (package
(name "autofs-glicid") (name "autofs-glicid")
(version "5.1.8") (version "5.1.8")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append "mirror://kernel.org/linux/daemons/autofs/"
(uri (string-append "mirror://kernel.org/linux/daemons/autofs/" "v"
"v" (version-major version) "/" (version-major version)
"autofs-" version ".tar.xz")) "/"
(sha256 "autofs-"
(base32 "1zf0fgf6kr9amxq5amlgsp1v13sizwl3wvx2xl7b4r2nhmci0gdk")))) version
".tar.xz"))
(sha256
(base32
"1zf0fgf6kr9amxq5amlgsp1v13sizwl3wvx2xl7b4r2nhmci0gdk"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:configure-flags `(#:configure-flags (list "--enable-ignore-busy" ;during shutdown
(list "--enable-ignore-busy" ; during shutdown "--enable-sloppy-mount" ;support mount(8) -s
"--enable-sloppy-mount" ; support mount(8) -s "--with-libtirpc"
"--with-libtirpc" (string-append "--with-openldap="
(string-append "--with-openldap=" (assoc-ref %build-inputs
(assoc-ref %build-inputs "openldap")) "openldap"))
(string-append "--with-sasl=" (string-append "--with-sasl="
(assoc-ref %build-inputs "cyrus-sasl")) (assoc-ref %build-inputs
; "HAVE_SSS_AUTOFS=1" ; required to make sssldir click "cyrus-sasl"))
; (string-append "sssldir=" ;; "HAVE_SSS_AUTOFS=1" ; required to make sssldir click
; (assoc-ref %build-inputs "sssd") ;; (string-append "sssldir="
; "/lib/sssd/modules") ;; (assoc-ref %build-inputs "sssd")
) ;; "/lib/sssd/modules")
#:tests? #f ; no test suite )
#:phases #:tests? #f ;no test suite
(modify-phases %standard-phases #:phases (modify-phases %standard-phases
(add-before 'configure 'fix-hard-coded-search-path (add-before 'configure 'fix-hard-coded-search-path
(lambda _ (lambda _
(substitute* "configure" (substitute* "configure"
(("^searchpath=\".*\"") (("^searchpath=\".*\"")
"searchpath=\"$PATH\"")))) "searchpath=\"$PATH\""))))
(add-before 'configure 'fix-rpath (add-before 'configure 'fix-rpath
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
(substitute* "Makefile.rules" (substitute* "Makefile.rules"
(("^AUTOFS_LIB_LINK.*=" match) (("^AUTOFS_LIB_LINK.*=" match)
(string-append match " -Wl,-rpath=" out "/lib")))))) (string-append match " -Wl,-rpath=" out "/lib"))))))
(add-before 'install 'omit-obsolete-lookup_nis.so-link (add-before 'install 'omit-obsolete-lookup_nis.so-link
;; Building lookup_yp.so depends on $(YPCLNT) but this doesn't, ;; Building lookup_yp.so depends on $(YPCLNT) but this doesn't,
;; leading to a make error. Since it's broken, comment it out. ;; leading to a make error. Since it's broken, comment it out.
(lambda _ (lambda _
(substitute* "modules/Makefile" (substitute* "modules/Makefile"
(("ln -fs lookup_yp.so" match) (("ln -fs lookup_yp.so" match)
(string-append "# " match)))))))) (string-append "# " match))))))))
(native-inputs (native-inputs (list bison flex pkg-config rpcsvc-proto))
(list bison flex pkg-config rpcsvc-proto)) (inputs (list cyrus-sasl
(inputs e2fsprogs ;for e[234]fsck
(list cyrus-sasl libtirpc
e2fsprogs ; for e[234]fsck libxml2 ;needed for LDAP, SASL
libtirpc mit-krb5 ;needed for LDAP, SASL
libxml2 ; needed for LDAP, SASL nfs-utils ;for mount.nfs
mit-krb5 ; needed for LDAP, SASL openldap
nfs-utils ; for mount.nfs openssl ;needed for SASL
openldap ;; sssd
openssl ; needed for SASL util-linux)) ;for mount, umount
; sssd
util-linux)) ; for mount, umount
;; XXX A directory index is the closest thing this has to a home page. ;; XXX A directory index is the closest thing this has to a home page.
(home-page "https://www.kernel.org/pub/linux/daemons/autofs/") (home-page "https://www.kernel.org/pub/linux/daemons/autofs/")
(synopsis "Kernel-based automounter for Linux") (synopsis "Kernel-based automounter for Linux")
@ -91,5 +94,6 @@ unmounts them after a set period of inactivity. This provides
centrally-managed, consistent file names for users and applications, even in a centrally-managed, consistent file names for users and applications, even in a
large and/or frequently changing (network) environment.") large and/or frequently changing (network) environment.")
;; fedfs/ is GPL-2-only but not built. ;; fedfs/ is GPL-2-only but not built.
(license (list license:bsd-3 ; modules/cyrus-sasl.c (license (list license:bsd-3 ;modules/cyrus-sasl.c
license:gpl2+)))) ; the rest license:gpl2+))))
; the rest

28
glicid/packages/gcc.scm
View file

@ -1,32 +1,28 @@
(define-module (glicid packages gcc) (define-module (glicid packages gcc)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (gnu packages commencement) ;; for make-gcc-toolchain #:use-module (gnu packages commencement) ; for make-gcc-toolchain
#:use-module (gnu packages gcc) ;; for gcc-11 #:use-module (gnu packages gcc) ; for gcc-11
) )
;; beware : access to internal functions… this is probably not the right way to do it … ;; beware : access to internal functions… this is probably not the right way to do it …
(define custom-gcc (@@ (gnu packages gcc) custom-gcc) ) (define custom-gcc
(define %generic-search-paths (@@ (gnu packages gcc) %generic-search-paths )) (@@ (gnu packages gcc) custom-gcc))
(define %generic-search-paths
(@@ (gnu packages gcc) %generic-search-paths))
;; ;;
(define-public gfortran-11 (define-public gfortran-11
(hidden-package (hidden-package (custom-gcc gcc-11 "gfortran"
(custom-gcc gcc-11 "gfortran" '("fortran") '("fortran") %generic-search-paths)))
%generic-search-paths
)
)
)
(define-public gfortran-toolchain-11 (define-public gfortran-toolchain-11
(package (package
(inherit (make-gcc-toolchain gfortran-11)) (inherit (make-gcc-toolchain gfortran-11))
(synopsis "Complete GCC tool chain for fortran lang development") (synopsis "Complete GCC tool chain for fortran lang development")
(description "This package provides a complete GCC tool chain for (description
"This package provides a complete GCC tool chain for
fortran lang development to be installed in user profiles. This includes fortran lang development to be installed in user profiles. This includes
fortran, as well as libc (headers and binaries, plus debugging symbols fortran, as well as libc (headers and binaries, plus debugging symbols
in the @code{debug} output), and binutils." in the @code{debug} output), and binutils.")))
)
)
)

459
glicid/packages/glicid.scm
View file

@ -4,13 +4,15 @@
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module (guix build-system cmake) #:use-module (guix build-system cmake)
; #:use-module (guix licenses) ;; #:use-module (guix licenses)
#:use-module (gnu packages gawk) #:use-module (gnu packages gawk)
#:use-module (gnu packages gcc) #:use-module (gnu packages gcc)
#:use-module (gnu packages commencement) #:use-module (gnu packages commencement)
#:use-module (guix build-system python) #:use-module (guix build-system python)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses)
#:use-module ((guix utils) #:select (target-64bit?)) #:prefix license:)
#:use-module ((guix utils)
#:select (target-64bit?))
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (gnu packages admin) #:use-module (gnu packages admin)
#:use-module (gnu packages autotools) #:use-module (gnu packages autotools)
@ -57,7 +59,7 @@
#:use-module (gnu packages maths) #:use-module (gnu packages maths)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module (gnu packages cmake) #:use-module (gnu packages cmake)
#:use-module (gnu packages pretty-print) #:use-module (gnu packages pretty-print)
#:use-module (gnu packages boost) #:use-module (gnu packages boost)
#:use-module (gnu packages curl) #:use-module (gnu packages curl)
#:use-module (gnu packages cryptsetup) #:use-module (gnu packages cryptsetup)
@ -87,159 +89,143 @@
#:use-module (gnu packages sphinx) #:use-module (gnu packages sphinx)
#:use-module (gnu packages tls) #:use-module (gnu packages tls)
#:use-module (gnu packages web) #:use-module (gnu packages web)
;; #:use-module (gnu packages glicid) ;; #:use-module (gnu packages glicid)
#:use-module (gnu packages pretty-print) #:use-module (gnu packages pretty-print)
#:use-module (gnu packages virtualization) #:use-module (gnu packages virtualization)
;; #:use-module (glicid packages storage) ;; #:use-module (glicid packages storage)
#:use-module (glicid packages mpi) #:use-module (glicid packages mpi)
#:use-module (glicid packages gcc) #:use-module (glicid packages gcc)
) )
;;;;;;;; ;;;;;;;;
(define-public glicid-librdkafka-09 (define-public glicid-librdkafka-09
(package (package
(inherit librdkafka) (inherit librdkafka)
(name "glicid-librdkafka-09") (name "glicid-librdkafka-09")
(version "0.9.2") (version "0.9.2")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append
(uri (string-append "https://github.com/edenhill/librdkafka/archive/v" version ".tar.gz")) "https://github.com/edenhill/librdkafka/archive/v" version
(sha256 (base32 "0938yn1msaq8xcj5z7b3jcdy6rslh9kxmvz01r8rdcgbarlvchy2")) ".tar.gz"))
)) (sha256
)) (base32
"0938yn1msaq8xcj5z7b3jcdy6rslh9kxmvz01r8rdcgbarlvchy2"))))))
(define-public glicid-x2go (define-public glicid-x2go
(package (package
(name "glicid-x2go") (name "glicid-x2go")
(version "4.1.0.3") (version "4.1.0.3")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append
(uri (string-append "https://code.x2go.org/releases/source/x2goserver/x2goserver-" version ".tar.gz")) "https://code.x2go.org/releases/source/x2goserver/x2goserver-"
(sha256 (base32 "1l6wd708kbipib4ldprfiihqmj4895nifg0bkws4x97majislxk7")) version ".tar.gz"))
)) (sha256
(base32
"1l6wd708kbipib4ldprfiihqmj4895nifg0bkws4x97majislxk7"))))
(native-inputs (native-inputs `(("autoconf" ,autoconf)
`(("autoconf" ,autoconf) ("automake" ,automake)
("automake" ,automake) ("libtool" ,libtool)))
("libtool" ,libtool)))
(inputs (inputs `(("perl" ,perl)))
`(("perl" , perl)))
(build-system gnu-build-system)
(synopsis "X2go")
(description "X2go")
(license license:gpl2+) ;; not checked
(home-page "https://wiki.x2go.org")
)
)
(build-system gnu-build-system)
(synopsis "X2go")
(description "X2go")
(license license:gpl2+) ;not checked
(home-page "https://wiki.x2go.org")))
(define-public glicid-gromacs-openmpi (define-public glicid-gromacs-openmpi
(package (package
(inherit gromacs) (inherit gromacs)
(name "glicid-gromacs-openmpi") (name "glicid-gromacs-openmpi")
(inputs `(("openmpi", openmpi) (inputs `(("openmpi" ,openmpi)
;; ("openssh", openssh) ;; only for tests... disabled now ;; ("openssh", openssh) ;; only for tests... disabled now
,@(package-inputs gromacs))) ,@(package-inputs gromacs)))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments
`(#:configure-flags
(list "-DGMX_DEVELOPER_BUILD=on" ; Needed to run tests
;; Unbundling
"-DGMX_USE_LMFIT=EXTERNAL"
"-DGMX_BUILD_OWN_FFTW=off"
"-DGMX_EXTERNAL_BLAS=on"
"-DGMX_EXTERNAL_LAPACK=on"
"-DGMX_EXTERNAL_TNG=on"
"-DGMX_EXTERNAL_ZLIB=on"
"-DGMX_EXTERNAL_TINYXML2=on"
;; special glicid
"-DGMX_MPI=on"
"-DCMAKE_C_COMPILER=mpicc"
"-DCMAKE_CXX_COMPILER=mpicxx"
"-DGMX_DOUBLE=off"
"-DGMX_OPENMP=on"
"-DGMX_SIMD=AVX2_256"
(string-append "-DTinyXML2_DIR="
(assoc-ref %build-inputs "tinyxml2"))
;; Workaround for cmake/FindSphinx.cmake version parsing that does
;; not understand the guix-wrapped `sphinx-build --version' answer
(string-append "-DSPHINX_EXECUTABLE_VERSION="
,(package-version python-sphinx)))
#:tests? #f
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fixes
(lambda* (#:key inputs #:allow-other-keys)
;; Still bundled: part of gromacs, source behind registration
;; but free software anyways
;;(delete-file-recursively "src/external/vmd_molfile")
;; Still bundled: threads-based OpenMPI-compatible fallback
;; designed to be bundled like that
;;(delete-file-recursively "src/external/thread_mpi")
;; Unbundling
(delete-file-recursively "src/external/lmfit")
(delete-file-recursively "src/external/clFFT")
(delete-file-recursively "src/external/fftpack")
(delete-file-recursively "src/external/build-fftw")
(delete-file-recursively "src/external/tng_io")
(delete-file-recursively "src/external/tinyxml2")
(delete-file-recursively "src/external/googletest")
(copy-recursively (assoc-ref inputs "googletest-source")
"src/external/googletest")
;; This test warns about the build host hardware, disable
(substitute* "src/gromacs/hardware/tests/hardwaretopology.cpp"
(("TEST\\(HardwareTopologyTest, HwlocExecute\\)")
"void __guix_disabled()"))
#t)))))
(arguments
`(#:configure-flags (list "-DGMX_DEVELOPER_BUILD=on" ;Needed to run tests
;; Unbundling
"-DGMX_USE_LMFIT=EXTERNAL"
"-DGMX_BUILD_OWN_FFTW=off"
"-DGMX_EXTERNAL_BLAS=on"
"-DGMX_EXTERNAL_LAPACK=on"
"-DGMX_EXTERNAL_TNG=on"
"-DGMX_EXTERNAL_ZLIB=on"
"-DGMX_EXTERNAL_TINYXML2=on"
;; special glicid
"-DGMX_MPI=on"
"-DCMAKE_C_COMPILER=mpicc"
"-DCMAKE_CXX_COMPILER=mpicxx"
"-DGMX_DOUBLE=off"
"-DGMX_OPENMP=on"
"-DGMX_SIMD=AVX2_256"
(string-append "-DTinyXML2_DIR="
(assoc-ref %build-inputs
"tinyxml2"))
;; Workaround for cmake/FindSphinx.cmake version parsing that does
;; not understand the guix-wrapped `sphinx-build --version' answer
(string-append "-DSPHINX_EXECUTABLE_VERSION="
,(package-version python-sphinx)))
#:tests? #f
#:phases (modify-phases %standard-phases
(add-after 'unpack 'fixes
(lambda* (#:key inputs #:allow-other-keys)
;; Still bundled: part of gromacs, source behind registration
;; but free software anyways
;; (delete-file-recursively "src/external/vmd_molfile")
;; Still bundled: threads-based OpenMPI-compatible fallback
;; designed to be bundled like that
;; (delete-file-recursively "src/external/thread_mpi")
;; Unbundling
(delete-file-recursively "src/external/lmfit")
(delete-file-recursively "src/external/clFFT")
(delete-file-recursively "src/external/fftpack")
(delete-file-recursively "src/external/build-fftw")
(delete-file-recursively "src/external/tng_io")
(delete-file-recursively "src/external/tinyxml2")
(delete-file-recursively "src/external/googletest")
(copy-recursively (assoc-ref inputs "googletest-source")
"src/external/googletest")
;; This test warns about the build host hardware, disable
(substitute* "src/gromacs/hardware/tests/hardwaretopology.cpp"
(("TEST\\(HardwareTopologyTest, HwlocExecute\\)")
"void __guix_disabled()"))
#t)))))
)
) )
)
(define-public glicid-python-nbxmpp (define-public glicid-python-nbxmpp
(package (package
(inherit python-nbxmpp) (inherit python-nbxmpp)
(name "glicid-python-nbxmpp") (name "glicid-python-nbxmpp")
(version "1.0.2") (version "1.0.2")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (pypi-uri "nbxmpp" version))
(uri (pypi-uri "nbxmpp" version)) (sha256
(sha256 (base32
(base32 "0vw5drr077w9ks4crnw6pwa4735ycyjdcm54knc3w4in4x5027wr"))))
"0vw5drr077w9ks4crnw6pwa4735ycyjdcm54knc3w4in4x5027wr"))))
))
))
(define-public glicid-specific-hdf5 (define-public glicid-specific-hdf5
(package (package
(inherit hdf5-1.12) (inherit hdf5-1.12)
(name "glicid-specific-hdf5") (name "glicid-specific-hdf5")
; (arguments ;; (arguments
; `(#:tests? #f) ;; `(#:tests? #f)
; ) ;; )
(native-inputs `( (native-inputs `(("gcc" ,gcc-11)
("gcc",gcc-11) ("gfortran" ,gfortran-11)
("gfortran",gfortran-11) ,@(package-native-inputs hdf5-1.12)))))
,@(package-native-inputs hdf5-1.12)))
)
)
(define-public glicid-motif (define-public glicid-motif
(package (package
@ -247,48 +233,45 @@
(version "2.3.8") (version "2.3.8")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
; (uri (string-append "https://sourceforge.net/projects/motif/files/Motif%202.3.8%20Source%20Code/motif-2.3.8.tar.gz/download")) ;; (uri (string-append "https://sourceforge.net/projects/motif/files/Motif%202.3.8%20Source%20Code/motif-2.3.8.tar.gz/download"))
; (uri (string-append "mirror://sourceforge/motif/files/Motif%202.3.8%20Source%20Code/motif-2.3.8.tar.gz")) ;; (uri (string-append "mirror://sourceforge/motif/files/Motif%202.3.8%20Source%20Code/motif-2.3.8.tar.gz"))
(uri (string-append "mirror://sourceforge/motif/Motif%202.3.8%20Source%20Code/motif-2.3.8.tar.gz")) (uri (string-append
"mirror://sourceforge/motif/Motif%202.3.8%20Source%20Code/motif-2.3.8.tar.gz"))
(file-name (string-append name "-" version ".tar.gz")) (file-name (string-append name "-" version ".tar.gz"))
(sha256 (base32 "1rxwkrhmj8sfg7dwmkhq885valwqbh26d79033q7vb7fcqv756w5")) (sha256
) (base32
) "1rxwkrhmj8sfg7dwmkhq885valwqbh26d79033q7vb7fcqv756w5"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:make-flags `(#:make-flags
;; #:make-flags ;; #:make-flags
(list (string-append "PREFIX=" %output) (list (string-append "PREFIX=" %output)
; (string-append "CC=" ,(cc-for-target)) ;; (string-append "CC=" ,(cc-for-target))
;; Xft.h #includes <ft2build.h> without ‘freetype2/’. The Makefile ;; Xft.h #includes <ft2build.h> without ‘freetype2/’. The Makefile
;; works around this by hard-coding /usr/include & $PREFIX. ;; works around this by hard-coding /usr/include & $PREFIX.
(string-append "CPPFLAGS=-I" (string-append "CPPFLAGS=-I"
(assoc-ref %build-inputs "freetype") (assoc-ref %build-inputs "freetype")
"/include/freetype2") "/include/freetype2")
"V=1") "V=1")))
)
)
(inputs (inputs `(("libxext" ,libxext)
`(("libxext" ,libxext) ("libx11" ,libx11)
("libx11", libx11) ("freetype" ,freetype)
("freetype",freetype) ("libxft" ,libxft)
("libxft",libxft) ("xbitmaps" ,xbitmaps)
("xbitmaps",xbitmaps) ("pkg-config" ,pkg-config)
("pkg-config" ,pkg-config) ("flex" ,flex)
("flex" ,flex) ("bison" ,bison)
("bison" ,bison) ("libxt" ,libxt)))
("libxt" ,libxt)))
(synopsis "Motif") (synopsis "Motif")
(description "Motif ") (description "Motif ")
(home-page "https://sourceforge.net/untested") (home-page "https://sourceforge.net/untested")
(license license:gpl2+) ;; probably not !!! (license license:gpl2+) ;probably not !!!
) ))
)
(define-public glicid-xmgrace (define-public glicid-xmgrace
(package (package
@ -297,53 +280,42 @@
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://oauth2:glpat-RsX2GjsD2WrzXubiJeou@gitlab.univ-nantes.fr/CCIPL/legacy_code_mirror/grace.git") (url
(commit (string-append "v" version)))) "https://oauth2:glpat-RsX2GjsD2WrzXubiJeou@gitlab.univ-nantes.fr/CCIPL/legacy_code_mirror/grace.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (base32 "1wb8v0q8xa2akas0swpgdgw1s66i50k7kh1g2f894hnk91fzx56z")) (sha256
) (base32
) "1wb8v0q8xa2akas0swpgdgw1s66i50k7kh1g2f894hnk91fzx56z"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`( `(#:phases (modify-phases %standard-phases
#:phases (add-after 'configure 'patch-/bin/sh
(modify-phases %standard-phases (lambda _
(add-after 'configure 'patch-/bin/sh (substitute* '("Make.conf")
(lambda _ (("/bin/sh")
(substitute* '("Make.conf") (which "bash"))))))))
(("/bin/sh") (which "bash"))
)
)
)
)
)
)
(inputs (inputs `(("libx11" ,libx11)
`( ("libxft" ,libxft)
("libx11", libx11) ("libxt" ,libxt)
("libxft",libxft) ("libxpm" ,libxpm)
("libxt",libxt) ("libxext" ,libxext)
("libxpm",libxpm) ("autoconf" ,autoconf)
("libxext" ,libxext) ("glicid-motif" ,glicid-motif)
("autoconf", autoconf) ("fontconfig" ,fontconfig)
("glicid-motif" ,glicid-motif) ("gfortran" ,gfortran)
("fontconfig", fontconfig) ("libjpeg-turbo" ,libjpeg-turbo)
("gfortran", gfortran) ;; ("libxmhtml", libxmhtml)
("libjpeg-turbo", libjpeg-turbo) ))
;; ("libxmhtml", libxmhtml)
)
)
(synopsis "Xmgrace")
(description "xmgrace")
(home-page "https://sourceforge.net/untested")
(license license:gpl2+) ; probably not
(synopsis "Xmgrace") ))
(description "xmgrace")
(home-page "https://sourceforge.net/untested")
(license license:gpl2+) ;; probably not
)
)
(use-modules (guix packages)) (use-modules (guix packages))
(use-modules (guix download)) (use-modules (guix download))
@ -351,62 +323,51 @@
(use-modules (guix build-system ruby)) (use-modules (guix build-system ruby))
;(use-modules (guix licenses)) ;(use-modules (guix licenses))
(define-public ruby-asciidoctor-revealjs (define-public ruby-asciidoctor-revealjs
(package (package
(name "ruby-asciidoctor-revealjs") (name "ruby-asciidoctor-revealjs")
(version "4.1.0") (version "4.1.0")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (rubygems-uri "asciidoctor-revealjs" version))
(uri (rubygems-uri "asciidoctor-revealjs" version)) (sha256
(sha256 (base32
(base32 "03vmbcc3x059h17ry4qwk1p0yar9wgh87l2qssi307gy45cjw2mq"))))
"03vmbcc3x059h17ry4qwk1p0yar9wgh87l2qssi307gy45cjw2mq")))) (build-system ruby-build-system)
(build-system ruby-build-system) (arguments
(arguments '(#:tests? #f))
'(#:tests? #f)) (propagated-inputs `(("ruby-asciidoctor" ,ruby-asciidoctor)
(propagated-inputs ;; ("ruby-concurrent-ruby" ,ruby-concurrent-ruby)
`(("ruby-asciidoctor" ,ruby-asciidoctor) ("ruby-concurrent" ,ruby-concurrent)
; ("ruby-concurrent-ruby" ,ruby-concurrent-ruby) ("ruby-asciidoctor-kroki" ,ruby-asciidoctor-kroki)
("ruby-concurrent" ,ruby-concurrent) ("ruby-thread-safe" ,ruby-thread-safe)))
("ruby-asciidoctor-kroki", ruby-asciidoctor-kroki) (synopsis
("ruby-thread-safe" ,ruby-thread-safe))) "Converts AsciiDoc documents into HTML5 presentations designed to be executed by the reveal.js presentation framework.")
(synopsis (description
"Converts AsciiDoc documents into HTML5 presentations designed to be executed by the reveal.js presentation framework.") "Converts AsciiDoc documents into HTML5 presentations designed to be executed by the reveal.js presentation framework.")
(description (home-page "https://github.com/asciidoctor/asciidoctor-reveal.js")
"Converts AsciiDoc documents into HTML5 presentations designed to be executed by the reveal.js presentation framework.") (license license:expat)))
(home-page
"https://github.com/asciidoctor/asciidoctor-reveal.js")
(license license:expat))
)
(define-public ruby-asciidoctor-kroki (define-public ruby-asciidoctor-kroki
(package (package
(name "ruby-asciidoctor-kroki") (name "ruby-asciidoctor-kroki")
(version "0.4.0") (version "0.4.0")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (rubygems-uri "asciidoctor-kroki" version))
(uri (rubygems-uri "asciidoctor-kroki" version)) (sha256
(sha256 (base32
(base32 "13gx22xld4rbxxirnsxyrsajy9v666r8a4ngms71611af5afgk6w"))))
"13gx22xld4rbxxirnsxyrsajy9v666r8a4ngms71611af5afgk6w")))) (build-system ruby-build-system)
(build-system ruby-build-system) (arguments
(arguments '(#:tests? #f))
'(#:tests? #f)) (propagated-inputs `(("ruby-asciidoctor" ,ruby-asciidoctor)))
(propagated-inputs (synopsis
`(("ruby-asciidoctor" ,ruby-asciidoctor))) "An extension for Asciidoctor to convert diagrams to images using https://kroki.io")
(synopsis (description
"An extension for Asciidoctor to convert diagrams to images using https://kroki.io") "An extension for Asciidoctor to convert diagrams to images using https://kroki.io")
(description (home-page "https://github.com/Mogztter/asciidoctor-kroki")
"An extension for Asciidoctor to convert diagrams to images using https://kroki.io") (license license:expat)))
(home-page
"https://github.com/Mogztter/asciidoctor-kroki")
(license license:expat)
)
)
;; python-glances is now upstreamed as glances in python-xyz ;; python-glances is now upstreamed as glances in python-xyz

13
glicid/packages/gnome.scm
View file

@ -5,21 +5,14 @@
#:use-module (gnu packages sssd) #:use-module (gnu packages sssd)
#:use-module (gnu packages gnome) #:use-module (gnu packages gnome)
#:use-module (glicid utils) #:use-module (glicid utils)
#:use-module (glicid packages vpn) #:use-module (glicid packages vpn))
)
(define-public glicid-terminator (define-public glicid-terminator
(package (package
(inherit terminator) (inherit terminator)
(name "glicid-terminator") (name "glicid-terminator")
(propagated-inputs (propagated-inputs `(("sssd" ,sssd)
`( ,@(package-propagated-inputs terminator)))))
("sssd" ,sssd)
,@(package-propagated-inputs terminator)
)
)
)
)
;; guix defined version is now on par or newer… ;; guix defined version is now on par or newer…

12
glicid/packages/golang.scm
View file

@ -1,10 +1,10 @@
(define-module (glicid packages golang) (define-module (glicid packages golang)
#:use-module (guix build-system go) #:use-module (guix build-system go)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses)
#:use-module (guix packages) #:prefix license:)
) #:use-module (guix packages))
;(define-public go-github-com-netflix-go-expect-0.0.0-20220104043353-73e0943537d2 ;(define-public go-github-com-netflix-go-expect-0.0.0-20220104043353-73e0943537d2
; (package ; (package

443
glicid/packages/linux.scm
View file

@ -1,242 +1,279 @@
(define-module (glicid packages linux) (define-module (glicid packages linux)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses)
#:use-module (guix build-system gnu) #:prefix license:)
#:use-module (guix build-system go) #:use-module (guix build-system gnu)
#:use-module (gnu packages backup) #:use-module (guix build-system go)
#:use-module (gnu packages compression) #:use-module (gnu packages backup)
#:use-module (gnu packages cryptsetup) #:use-module (gnu packages compression)
#:use-module (gnu packages golang) #:use-module (gnu packages cryptsetup)
#:use-module ((gnu packages linux) #:prefix gnu:) #:use-module (gnu packages golang)
#:use-module (gnu packages linux) ;; yes : redundant FIXIT #:use-module ((gnu packages linux)
#:use-module (gnu system uuid) #:prefix gnu:)
#:use-module (gnu packages pkg-config) #:use-module (gnu packages linux) ;yes : redundant FIXIT
#:use-module (gnu packages autotools) #:use-module (gnu system uuid)
#:use-module (gnu packages python) #:use-module (gnu packages pkg-config)
#:use-module (gnu packages tls) #:use-module (gnu packages autotools)
#:use-module (glicid packages golang) #:use-module (gnu packages python)
#:use-module (glicid utils)) #:use-module (gnu packages tls)
#:use-module (glicid packages golang)
#:use-module (glicid utils))
(define-public rdma-core-upstream-37.1 (define-public rdma-core-upstream-37.1
(package (package
(inherit gnu:rdma-core) (inherit gnu:rdma-core)
(name (string-append (package-name gnu:rdma-core) "-upstream" )) (name (string-append (package-name gnu:rdma-core) "-upstream"))
(version "37.1") (version "37.1")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append
(uri (string-append "https://github.com/linux-rdma/rdma-core/releases/download/v" version "/rdma-core-" version ".tar.gz")) "https://github.com/linux-rdma/rdma-core/releases/download/v"
(sha256 (base32 "1hjwagf5x48vgshy5s01qjlzjr8kmxpflfcvh8pgj3zbj82zzxiz")))))) version "/rdma-core-" version ".tar.gz"))
(sha256
(base32
"1hjwagf5x48vgshy5s01qjlzjr8kmxpflfcvh8pgj3zbj82zzxiz"))))))
(define-public rdma-core-upstream-38.0 (define-public rdma-core-upstream-38.0
(package (package
(inherit gnu:rdma-core) (inherit gnu:rdma-core)
(name (string-append (package-name gnu:rdma-core) "-upstream" )) (name (string-append (package-name gnu:rdma-core) "-upstream"))
(version "38.0") (version "38.0")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append
(uri (string-append "https://github.com/linux-rdma/rdma-core/releases/download/v" version "/rdma-core-" version ".tar.gz")) "https://github.com/linux-rdma/rdma-core/releases/download/v"
(sha256 (base32 "043vybwx9kz4mbbmnj0jzkzsw02vzhkkjc5j3yjdiiqkmsgwr3cs")))))) version "/rdma-core-" version ".tar.gz"))
(sha256
(base32
"043vybwx9kz4mbbmnj0jzkzsw02vzhkkjc5j3yjdiiqkmsgwr3cs"))))))
(define-public rdma-core-upstream-39.0 (define-public rdma-core-upstream-39.0
(package (package
(inherit gnu:rdma-core) (inherit gnu:rdma-core)
(name (string-append (package-name gnu:rdma-core) "-upstream" )) (name (string-append (package-name gnu:rdma-core) "-upstream"))
(version "39.0") (version "39.0")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append
(uri (string-append "https://github.com/linux-rdma/rdma-core/releases/download/v" version "/rdma-core-" version ".tar.gz")) "https://github.com/linux-rdma/rdma-core/releases/download/v"
(sha256 (base32 "0y13px3qgyh3szywjhikw183y54iym9sa60aw0sf51p3kzgg1spn")))))) version "/rdma-core-" version ".tar.gz"))
(sha256
(base32
"0y13px3qgyh3szywjhikw183y54iym9sa60aw0sf51p3kzgg1spn"))))))
(define-public rdma-core-upstream-41.0 (define-public rdma-core-upstream-41.0
(package (package
(inherit gnu:rdma-core) (inherit gnu:rdma-core)
(name (string-append (package-name gnu:rdma-core) "-upstream" )) (name (string-append (package-name gnu:rdma-core) "-upstream"))
(version "41.0") (version "41.0")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append
(uri (string-append "https://github.com/linux-rdma/rdma-core/releases/download/v" version "/rdma-core-" version ".tar.gz")) "https://github.com/linux-rdma/rdma-core/releases/download/v"
(sha256 (base32 "0yshfxm9i9fi51mmnxbbv39hqlrc34jzmq6gl2b9f8hzlywdxdz0")))))) version "/rdma-core-" version ".tar.gz"))
(sha256
(base32
"0yshfxm9i9fi51mmnxbbv39hqlrc34jzmq6gl2b9f8hzlywdxdz0"))))))
(define-public rdma-core-upstream-42.0 (define-public rdma-core-upstream-42.0
(package (package
(inherit gnu:rdma-core) (inherit gnu:rdma-core)
(name (string-append (package-name gnu:rdma-core) "-upstream" )) (name (string-append (package-name gnu:rdma-core) "-upstream"))
(version "42.0") (version "42.0")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append
(uri (string-append "https://github.com/linux-rdma/rdma-core/releases/download/v" version "/rdma-core-" version ".tar.gz")) "https://github.com/linux-rdma/rdma-core/releases/download/v"
(sha256 (base32 "03kclikv4k6rpsj6il131jjbnxyvdaiprc3wkmxn471crxsa9f9y")))))) version "/rdma-core-" version ".tar.gz"))
(sha256
(base32
"03kclikv4k6rpsj6il131jjbnxyvdaiprc3wkmxn471crxsa9f9y"))))))
(define-public rdma-core-upstream-42.1 (define-public rdma-core-upstream-42.1
(package (package
(inherit gnu:rdma-core) (inherit gnu:rdma-core)
(name (string-append (package-name gnu:rdma-core) "-upstream" )) (name (string-append (package-name gnu:rdma-core) "-upstream"))
(version "42.1") (version "42.1")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append
(uri (string-append "https://github.com/linux-rdma/rdma-core/releases/download/v" version "/rdma-core-" version ".tar.gz")) "https://github.com/linux-rdma/rdma-core/releases/download/v"
(sha256 (base32 "02xjksnm71aak215f9262c2qbs77n4yc856ra6dlcfblciqk1cxp")))))) version "/rdma-core-" version ".tar.gz"))
(sha256
(base32
"02xjksnm71aak215f9262c2qbs77n4yc856ra6dlcfblciqk1cxp"))))))
(define local-rdma-core
rdma-core-upstream-42.1)
(define local-rdma-core rdma-core-upstream-42.1) (define-public rdma-core-latest
(latest-version local-rdma-core gnu:rdma-core))
(define-public rdma-core-latest (latest-version local-rdma-core gnu:rdma-core))
(define-public libfabric-upstream-1.13.1 (define-public libfabric-upstream-1.13.1
(package (package
(inherit gnu:libfabric) (inherit gnu:libfabric)
(version "1.13.1") (version "1.13.1")
(name (string-append (package-name gnu:libfabric) "-upstream" )) (name (string-append (package-name gnu:libfabric) "-upstream"))
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append
(uri (string-append "https://github.com/ofiwg/libfabric/releases/download/v" version "/libfabric-" version ".tar.bz2")) "https://github.com/ofiwg/libfabric/releases/download/v"
(sha256 (base32 "03nkhqjjyw3hwhxrn7rg30qc1gzc1r7p7lymyz5s96m3qhwfsvlf")))))) version "/libfabric-" version ".tar.bz2"))
(sha256
(base32
"03nkhqjjyw3hwhxrn7rg30qc1gzc1r7p7lymyz5s96m3qhwfsvlf"))))))
(define-public libfabric-upstream-1.14.0 (define-public libfabric-upstream-1.14.0
(package (package
(inherit gnu:libfabric) (inherit gnu:libfabric)
(version "1.14.0") (version "1.14.0")
(name (string-append (package-name gnu:libfabric) "-upstream" )) (name (string-append (package-name gnu:libfabric) "-upstream"))
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append
(uri (string-append "https://github.com/ofiwg/libfabric/releases/download/v" version "/libfabric-" version ".tar.bz2")) "https://github.com/ofiwg/libfabric/releases/download/v"
(sha256 (base32 "16klkzkg04wb699mqpi8mn2r8sqzj35zalynbdazyg4ghj4169pw")))))) version "/libfabric-" version ".tar.bz2"))
(sha256
(base32
"16klkzkg04wb699mqpi8mn2r8sqzj35zalynbdazyg4ghj4169pw"))))))
(define-public libfabric-upstream-1.14.1 (define-public libfabric-upstream-1.14.1
(package (package
(inherit gnu:libfabric) (inherit gnu:libfabric)
(version "1.14.1") (version "1.14.1")
(name (string-append (package-name gnu:libfabric) "-upstream" )) (name (string-append (package-name gnu:libfabric) "-upstream"))
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append
(uri (string-append "https://github.com/ofiwg/libfabric/releases/download/v" version "/libfabric-" version ".tar.bz2")) "https://github.com/ofiwg/libfabric/releases/download/v"
(sha256 (base32 "1vca7p5cczlrayglps8ibdy0fz9nb9pm04jj07cikr58pjabpykc")))))) version "/libfabric-" version ".tar.bz2"))
(sha256
(base32
"1vca7p5cczlrayglps8ibdy0fz9nb9pm04jj07cikr58pjabpykc"))))))
(define-public libfabric-upstream-1.15.0 (define-public libfabric-upstream-1.15.0
(package (package
(inherit gnu:libfabric) (inherit gnu:libfabric)
(version "1.15.0") (version "1.15.0")
(name (string-append (package-name gnu:libfabric) "-upstream" )) (name (string-append (package-name gnu:libfabric) "-upstream"))
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append
(uri (string-append "https://github.com/ofiwg/libfabric/releases/download/v" version "/libfabric-" version ".tar.bz2")) "https://github.com/ofiwg/libfabric/releases/download/v"
(sha256 (base32 "1slvgih7y7mb30mvnvxm31k202z48pb3yh98vcfmpsyyx9c2r63h")))))) version "/libfabric-" version ".tar.bz2"))
(sha256
(base32
"1slvgih7y7mb30mvnvxm31k202z48pb3yh98vcfmpsyyx9c2r63h"))))))
(define-public libfabric-upstream-1.15.1 (define-public libfabric-upstream-1.15.1
(package (package
(inherit gnu:libfabric) (inherit gnu:libfabric)
(version "1.15.1") (version "1.15.1")
(name (string-append (package-name gnu:libfabric) "-upstream" )) (name (string-append (package-name gnu:libfabric) "-upstream"))
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append
(uri (string-append "https://github.com/ofiwg/libfabric/releases/download/v" version "/libfabric-" version ".tar.bz2")) "https://github.com/ofiwg/libfabric/releases/download/v"
(sha256 (base32 "1k8h7sa16gdhilkf0bw65xmv8c5dk13szc3rw56hd1nwm42k1yna")) version "/libfabric-" version ".tar.bz2"))
) (sha256
) (base32
(inputs `( ("util-linux:lib", util-linux "lib") ;; uuid.h, numa.h "1k8h7sa16gdhilkf0bw65xmv8c5dk13szc3rw56hd1nwm42k1yna"))))
("numactl", gnu:numactl) (inputs `(("util-linux:lib" ,util-linux "lib")
,@(package-inputs gnu:libfabric))))) ;; uuid.h, numa.h
("numactl" ,gnu:numactl)
,@(package-inputs gnu:libfabric)))))
(define-public libfabric-upstream-1.16.0 (define-public libfabric-upstream-1.16.0
(package (package
(inherit gnu:libfabric) (inherit gnu:libfabric)
(version "1.16.0") (version "1.16.0")
(name (string-append (package-name gnu:libfabric) "-upstream" )) (name (string-append (package-name gnu:libfabric) "-upstream"))
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append
(uri (string-append "https://github.com/ofiwg/libfabric/releases/download/v" version "/libfabric-" version ".tar.bz2")) "https://github.com/ofiwg/libfabric/releases/download/v"
(sha256 (base32 "1lk7abv919bc24ak0yr509bdh8dn83sf6ab326kbvs1wdsfln45c")) version "/libfabric-" version ".tar.bz2"))
) (sha256
) (base32
(inputs `( ("util-linux:lib", util-linux "lib") ;; uuid.h, numa.h "1lk7abv919bc24ak0yr509bdh8dn83sf6ab326kbvs1wdsfln45c"))))
("numactl", gnu:numactl) (inputs `(("util-linux:lib" ,util-linux "lib")
,@(package-inputs gnu:libfabric))))) ;; uuid.h, numa.h
("numactl" ,gnu:numactl)
,@(package-inputs gnu:libfabric)))))
(define-public libfabric-upstream-1.16.1 (define-public libfabric-upstream-1.16.1
(package (package
(inherit gnu:libfabric) (inherit gnu:libfabric)
(version "1.16.1") (version "1.16.1")
(name (string-append (package-name gnu:libfabric) "-upstream" )) (name (string-append (package-name gnu:libfabric) "-upstream"))
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append
(uri (string-append "https://github.com/ofiwg/libfabric/releases/download/v" version "/libfabric-" version ".tar.bz2")) "https://github.com/ofiwg/libfabric/releases/download/v"
(sha256 (base32 "0gqr7765za14kalwws2brw8l6zw80iai0ggaljw99zls7z9r5yak")) version "/libfabric-" version ".tar.bz2"))
) (sha256
) (base32
(inputs `( ("util-linux:lib", util-linux "lib") ;; uuid.h, numa.h "0gqr7765za14kalwws2brw8l6zw80iai0ggaljw99zls7z9r5yak"))))
("numactl", gnu:numactl) (inputs `(("util-linux:lib" ,util-linux "lib")
,@(package-inputs gnu:libfabric))))) ;; uuid.h, numa.h
("numactl" ,gnu:numactl)
,@(package-inputs gnu:libfabric)))))
(define local-libfabric
libfabric-upstream-1.16.1)
(define-public libfabric-latest
(latest-version local-libfabric gnu:libfabric))
(define local-libfabric libfabric-upstream-1.16.1)
(define-public libfabric-latest (latest-version local-libfabric gnu:libfabric))
(define-public psm2-upstream-11.2.228 (define-public psm2-upstream-11.2.228
(package (package
(inherit gnu:psm2) (inherit gnu:psm2)
(name "psm2-upstream") (name "psm2-upstream")
(version "11.2.228") (version "11.2.228")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://github.com/cornelisnetworks/opa-psm2") (url "https://github.com/cornelisnetworks/opa-psm2")
(commit (string-append "PSM2_" version)))) (commit (string-append "PSM2_" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (base32 "1yymw4rkpdkzyi0lglagncjg1az2qmnq6f3lgrkvs6y77l9z6wrz")))))) (sha256
(base32
"1yymw4rkpdkzyi0lglagncjg1az2qmnq6f3lgrkvs6y77l9z6wrz"))))))
(define-public psm2-upstream-11.2.230 (define-public psm2-upstream-11.2.230
(package (package
(inherit gnu:psm2) (inherit gnu:psm2)
(name "psm2-upstream") (name "psm2-upstream")
(version "11.2.230") (version "11.2.230")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://github.com/cornelisnetworks/opa-psm2") (url "https://github.com/cornelisnetworks/opa-psm2")
(commit (string-append "PSM2_" version)))) (commit (string-append "PSM2_" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (base32 "1bm7ndhi8qzmd0plnggj2h52yb34bab4k38530nsnkmv9smwdivl")))))) (sha256
(base32
"1bm7ndhi8qzmd0plnggj2h52yb34bab4k38530nsnkmv9smwdivl"))))))
(define local-psm2
psm2-upstream-11.2.230)
(define-public psm2-latest
(define local-psm2 psm2-upstream-11.2.230) (latest-version local-psm2 gnu:psm2))
(define-public psm2-latest (latest-version local-psm2 gnu:psm2))
(define-public corefreq (define-public corefreq
(package (package
(inherit gnu:corefreq) (inherit gnu:corefreq)
(name "corefreq") (name "corefreq")
(version "1.93.1") (version "1.93.1")
(source (source (origin
(origin (method git-fetch)
(method git-fetch) (uri (git-reference
(uri (git-reference (url "https://github.com/cyring/CoreFreq")
(url "https://github.com/cyring/CoreFreq") (commit version)))
(commit version))) (file-name (git-file-name name version))
(file-name (git-file-name name version)) (sha256
(sha256 (base32 "1crp1cmfcfd26j8rg29pl3lbkp135f17jr1686y0cb87v133kcq8")))))) (base32
"1crp1cmfcfd26j8rg29pl3lbkp135f17jr1686y0cb87v133kcq8"))))))

75
glicid/packages/maths.scm
View file

@ -1,65 +1,58 @@
(define-module (glicid packages maths) (define-module (glicid packages maths)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module ((gnu packages maths) #:prefix gnu:) #:use-module ((gnu packages maths)
#:prefix gnu:)
#:use-module (gnu packages commencement) #:use-module (gnu packages commencement)
#:use-module (gnu packages mpi) #:use-module (gnu packages mpi)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (glicid utils) #:use-module (glicid utils))
)
(define-public scalapack-upstream (define-public scalapack-upstream
(package (package
(inherit gnu:scalapack) (inherit gnu:scalapack)
(name "scalapack-upstream") (name "scalapack-upstream")
(version "2.1.0-new-upstream") (version "2.1.0-new-upstream")
(source (source (origin
(origin (method git-fetch)
(method git-fetch) (uri (git-reference
(uri (url
(git-reference "https://oauth2:glpat-RsX2GjsD2WrzXubiJeou@gitlab.univ-nantes.fr/CCIPL/legacy_code_mirror/scalapack.git")
(url "https://oauth2:glpat-RsX2GjsD2WrzXubiJeou@gitlab.univ-nantes.fr/CCIPL/legacy_code_mirror/scalapack.git") (commit "myv2.0.2")))
(commit "myv2.0.2") (file-name "scalapack-univ-myv2")
) ;; (patches (search-patches "scalapack-blacs-mpi-deprecations.patch"))
) (sha256
(file-name "scalapack-univ-myv2") (base32
; (patches (search-patches "scalapack-blacs-mpi-deprecations.patch")) "1ccic46psf2hl9wsyflvkn5rxg8k17q578m9mzimvm9brbggf0na"))))
(sha256 (base32 "1ccic46psf2hl9wsyflvkn5rxg8k17q578m9mzimvm9brbggf0na" ))
)
)
(arguments (arguments
`(#:configure-flags `("-DBUILD_SHARED_LIBS:BOOL=YES") `(#:configure-flags `("-DBUILD_SHARED_LIBS:BOOL=YES")
#:phases (modify-phases %standard-phases #:phases (modify-phases %standard-phases
(add-before 'check 'mpi-setup (add-before 'check 'mpi-setup
,%openmpi-setup ,%openmpi-setup))))))
)
)
)
)
)
)
(define local:scalapack scalapack-upstream) (define local:scalapack
(define-public scalapack-latest (latest-version local:scalapack gnu:scalapack)) scalapack-upstream)
(define-public scalapack-latest
(latest-version local:scalapack gnu:scalapack))
(define-public openblas-upstream-0.3.15 (define-public openblas-upstream-0.3.15
(package (package
(inherit gnu:openblas) (inherit gnu:openblas)
(name "openblas-upstream") (name "openblas-upstream")
(version "0.3.15") (version "0.3.15")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append
(uri (string-append "https://github.com/xianyi/OpenBLAS/releases/download/v" version "/OpenBLAS-" version ".tar.gz" )) "https://github.com/xianyi/OpenBLAS/releases/download/v"
(sha256 (base32 "1gjbkrsh6n28hdp2ciyjigc8vg764d2r0jbzl63v753mjzn9va9h")) version "/OpenBLAS-" version ".tar.gz"))
) (sha256
) (base32
) "1gjbkrsh6n28hdp2ciyjigc8vg764d2r0jbzl63v753mjzn9va9h"))))))
)
(define local:openblas
(define local:openblas openblas-upstream-0.3.15) openblas-upstream-0.3.15)
(define-public scalapack-latest (latest-version local:openblas gnu:openblas)) (define-public scalapack-latest
(latest-version local:openblas gnu:openblas))

99
glicid/packages/mpi.scm
View file

@ -1,70 +1,59 @@
(define-module (glicid packages mpi) (define-module (glicid packages mpi)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix download) #:use-module (guix download)
#:use-module ((gnu packages mpi) #:prefix gnu:) #:use-module ((gnu packages mpi)
#:prefix gnu:)
#:use-module (glicid packages linux) #:use-module (glicid packages linux)
#:use-module (glicid packages fabric-management) #:use-module (glicid packages fabric-management)
#:use-module (glicid utils) #:use-module (glicid utils)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module (glicid packages parallel) #:use-module (glicid packages parallel)
#:use-module (gnu packages) #:use-module (gnu packages))
)
(define-public openmpi-upstream-4.1.2 (define-public openmpi-upstream-4.1.2
(package (package
(inherit gnu:openmpi) (inherit gnu:openmpi)
(name "openmpi-upstream") (name "openmpi-upstream")
(version "4.1.2") (version "4.1.2")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append "https://www.open-mpi.org/software/ompi/v"
(uri (string-append "https://www.open-mpi.org/software/ompi/v" (version-major+minor version)
(version-major+minor version) "/downloads/openmpi-" version ".tar.bz2"))
"/downloads/openmpi-" version ".tar.bz2")) (sha256
(sha256 (base32 "09xmlr4mfs02kwcf5cmdgkcdjj81fjwjmpa3rz2k28f3gz7wfy4v")) (base32
(patches (search-patches "openmpi-mtl-priorities.patch")) "09xmlr4mfs02kwcf5cmdgkcdjj81fjwjmpa3rz2k28f3gz7wfy4v"))
) (patches (search-patches "openmpi-mtl-priorities.patch"))))))
)
)
)
(define-public openmpi-upstream-4.1.4 (define-public openmpi-upstream-4.1.4
(package (package
(inherit gnu:openmpi) (inherit gnu:openmpi)
(name "openmpi-upstream") (name "openmpi-upstream")
(version "4.1.4") (version "4.1.4")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append "https://www.open-mpi.org/software/ompi/v"
(uri (string-append "https://www.open-mpi.org/software/ompi/v" (version-major+minor version)
(version-major+minor version) "/downloads/openmpi-" version ".tar.bz2"))
"/downloads/openmpi-" version ".tar.bz2")) (sha256
(sha256 (base32 "03ckngrff1cl0l81vfvrfhp99rbgk7s0633kr1l468yibwbjx4cj")) (base32
(patches (search-patches "openmpi-mtl-priorities.patch")) "03ckngrff1cl0l81vfvrfhp99rbgk7s0633kr1l468yibwbjx4cj"))
) (patches (search-patches "openmpi-mtl-priorities.patch"))))))
)
)
)
(define local-openmpi
openmpi-upstream-4.1.4)
(define-public openmpi-latest
(latest-version local-openmpi gnu:openmpi))
(define local-openmpi openmpi-upstream-4.1.4)
(define-public openmpi-latest (latest-version local-openmpi gnu:openmpi))
(define-public openmpi-glicid (define-public openmpi-glicid
(package (package
(inherit (inherit (transform-package ((instead-of "slurm" slurm-glicid)
(transform-package ((instead-of "slurm" slurm-glicid) openmpi-latest) "glicid") openmpi-latest) "glicid"))))
)
)
)
(define openmpi-glicid-libfabric (define openmpi-glicid-libfabric
(transform-package ((instead-of "libfabric" libfabric-latest) openmpi-glicid) "libfabric") (transform-package ((instead-of "libfabric" libfabric-latest)
) openmpi-glicid) "libfabric"))
;(define-public openmpi-glicid-rdma ;(define-public openmpi-glicid-rdma
; (transform-package ((instead-of "rdma-core" rdma-core-latest) openmpi-glicid) "rdma-core") ; (transform-package ((instead-of "rdma-core" rdma-core-latest) openmpi-glicid) "rdma-core")
@ -75,35 +64,33 @@
;) ;)
(define openmpi-glicid-libfabric-rdma (define openmpi-glicid-libfabric-rdma
(transform-package ((instead-of "rdma-core" rdma-core-latest) openmpi-glicid-libfabric) "rdma") (transform-package ((instead-of "rdma-core" rdma-core-latest)
) openmpi-glicid-libfabric) "rdma"))
;(define-public openmpi-glicid-libfabric-ucx ;(define-public openmpi-glicid-libfabric-ucx
; (transform-package ((instead-of "ucx" ucx-latest-glicid) openmpi-glicid-libfabric) "ucx") ; (transform-package ((instead-of "ucx" ucx-latest-glicid) openmpi-glicid-libfabric) "ucx")
;) ;)
(define openmpi-glicid-libfabric-rdma-ucx (define openmpi-glicid-libfabric-rdma-ucx
(transform-package ((instead-of "ucx" ucx-latest-glicid) openmpi-glicid-libfabric-rdma) "ucx") (transform-package ((instead-of "ucx" ucx-latest-glicid)
) openmpi-glicid-libfabric-rdma) "ucx"))
(define openmpi-glicid-libfabric-rdma-ucx-psm2 (define openmpi-glicid-libfabric-rdma-ucx-psm2
(transform-package ((instead-of "psm2" psm2-latest) openmpi-glicid-libfabric-rdma-ucx) "psm2") (transform-package ((instead-of "psm2" psm2-latest)
) openmpi-glicid-libfabric-rdma-ucx) "psm2"))
(define-public openmpi-glicid-waves (define-public openmpi-glicid-waves
(package (package
(inherit (transform-package ((instead-of "slurm-glicid" slurm-ccipl) openmpi-glicid-libfabric-rdma-ucx-psm2) "waves")) (inherit (transform-package ((instead-of "slurm-glicid" slurm-ccipl)
(name "openmpi-glicid-waves") openmpi-glicid-libfabric-rdma-ucx-psm2)
) "waves"))
) (name "openmpi-glicid-waves")))
(define openmpi-glicid-transform-gcc-11
(define openmpi-glicid-transform-gcc-11 (gcc11-instead-of-gcc openmpi-glicid)) (gcc11-instead-of-gcc openmpi-glicid))
(define-public openmpi-glicid-gcc-11 (define-public openmpi-glicid-gcc-11
(package (package
(inherit openmpi-glicid-transform-gcc-11) (inherit openmpi-glicid-transform-gcc-11)
(name (string-append (package-name openmpi-glicid-transform-gcc-11) "-gcc-11" )) (name (string-append (package-name openmpi-glicid-transform-gcc-11)
) "-gcc-11"))))
)

123
glicid/packages/networking.scm
View file

@ -1,93 +1,88 @@
(define-module (glicid packages networking) (define-module (glicid packages networking)
#:use-module ((gnu packages networking) #:prefix gnu:) #:use-module ((gnu packages networking)
#:prefix gnu:)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module (guix download) #:use-module (guix download)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses)
#:use-module (guix packages) #:prefix license:)
) #:use-module (guix packages))
(define-public libecap (define-public libecap
(package (package
(name "libecap") (name "libecap")
(version "1.0.0") (version "1.0.0")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append "https://www.e-cap.org/archive/libecap-"
(uri (string-append "https://www.e-cap.org/archive/libecap-" version ".tar.gz")) version ".tar.gz"))
(sha256 (base32 "1gn44230z3n5vbwf1lb8ninjmhngc96criy6vc1qj8adw19bpiv4")) (sha256
) (base32
) "1gn44230z3n5vbwf1lb8ninjmhngc96criy6vc1qj8adw19bpiv4"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(synopsis "eCAP is a software interface that allows a network application, such as an HTTP proxy or an ICAP server, to outsource content analysis and adaptation to a loadable module.") (synopsis
(description "eCAP is a software interface that allows a network application, such as an HTTP proxy or an ICAP server, to outsource content analysis and adaptation to a loadable module.") "eCAP is a software interface that allows a network application, such as an HTTP proxy or an ICAP server, to outsource content analysis and adaptation to a loadable module.")
(description
"eCAP is a software interface that allows a network application, such as an HTTP proxy or an ICAP server, to outsource content analysis and adaptation to a loadable module.")
(home-page "https://www.e-cap.org/") (home-page "https://www.e-cap.org/")
(license license:gpl3+) (license license:gpl3+)))
)
)
(define-public squid (define-public squid
(package (package
(inherit gnu:squid) (inherit gnu:squid)
(name "squid") (name "squid")
(version "5.7") (version "5.7")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append
(uri (string-append "http://www.squid-cache.org/Versions/v5/squid-" version ".tar.xz")) "http://www.squid-cache.org/Versions/v5/squid-" version
(sha256 (base32 "10fdgrdiycphs8ciyn1q5p6dcyngmr614rry6gylx72cpam561vb")) ".tar.xz"))
) (sha256
) (base32
(inputs "10fdgrdiycphs8ciyn1q5p6dcyngmr614rry6gylx72cpam561vb"))))
`(("libecap", libecap) (inputs `(("libecap" ,libecap)
,@(package-inputs gnu:squid))) ,@(package-inputs gnu:squid)))
(arguments (arguments
'( '(#:configure-flags (list "--disable-arch-native"
#:configure-flags (list "--enable-icmp"
"--disable-arch-native" "--enable-icmp" "--enable-delay-pools" "--enable-ecap" "--enable-follow-x-forwarded-for" "--enable-delay-pools"
"--enable-auth" "--enable-auth-basic" "--enable-auth-negotiate" "--enable-auth-ntlm" "--enable-ecap"
"--enable-log-daemon-helpers" "--enable-follow-x-forwarded-for"
) "--enable-auth"
#:phases "--enable-auth-basic"
(modify-phases %standard-phases "--enable-auth-negotiate"
(add-before 'build 'fix-true-path "--enable-auth-ntlm"
(lambda* (#:key inputs #:allow-other-keys) "--enable-log-daemon-helpers")
(substitute* "test-suite/testheaders.sh" #:phases (modify-phases %standard-phases
(("/bin/true") (search-input-file inputs "/bin/true")) (add-before 'build 'fix-true-path
) (lambda* (#:key inputs #:allow-other-keys)
) (substitute* "test-suite/testheaders.sh"
) (("/bin/true")
) (search-input-file inputs "/bin/true"))))))))))
)
)
)
)
(define-public squid-5.5 (define-public squid-5.5
(package (package
(inherit squid) (inherit squid)
(name "squid") (name "squid")
(version "5.5") (version "5.5")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append
(uri (string-append "http://www.squid-cache.org/Versions/v5/squid-" version ".tar.xz")) "http://www.squid-cache.org/Versions/v5/squid-" version
(sha256 (base32 "0v0h949l4wd1hl87a8wkk1fkvj8j44wifyxi9myxdgbnci6lh7af")) ".tar.xz"))
) (sha256
) (base32
) "0v0h949l4wd1hl87a8wkk1fkvj8j44wifyxi9myxdgbnci6lh7af"))))))
)
(define-public openvswitch-2.17 (define-public openvswitch-2.17
(package (package
(inherit gnu:openvswitch) (inherit gnu:openvswitch)
(name "openvswitch") (name "openvswitch")
(version "2.17.2") (version "2.17.2")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append
(uri (string-append "https://www.openvswitch.org/releases/openvswitch-" version ".tar.gz")) "https://www.openvswitch.org/releases/openvswitch-"
(sha256 (base32 "0sada2a9x9x7x6a45l7iklqh29wsbrdvvgpkyz5cpf5d5fs0sbka")) version ".tar.gz"))
) (sha256
) (base32
) "0sada2a9x9x7x6a45l7iklqh29wsbrdvvgpkyz5cpf5d5fs0sbka"))))))
)

86
glicid/packages/nfs.scm
View file

@ -4,7 +4,8 @@
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module (guix build-system cmake) #:use-module (guix build-system cmake)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses)
#:prefix license:)
#:use-module (gnu packages perl) #:use-module (gnu packages perl)
#:use-module (gnu packages shells) #:use-module (gnu packages shells)
#:use-module (gnu packages python) #:use-module (gnu packages python)
@ -19,59 +20,48 @@
#:use-module (gnu packages linux) #:use-module (gnu packages linux)
#:use-module (gnu packages jemalloc) #:use-module (gnu packages jemalloc)
#:use-module (gnu packages storage) #:use-module (gnu packages storage)
; #:use-module (glicid packages storage) ;; #:use-module (glicid packages storage)
) )
(define-public nfs-ganesha (define-public nfs-ganesha
(package (package
(name "nfs-ganesha") (name "nfs-ganesha")
(version "3.5") (version "3.5")
(source (source (origin
(origin (method git-fetch)
(method git-fetch) (uri (git-reference
(uri (url "https://github.com/nfs-ganesha/nfs-ganesha.git")
(git-reference (commit (string-append "V" version))
(url "https://github.com/nfs-ganesha/nfs-ganesha.git") (recursive? #t)))
(commit (string-append "V" version)) (sha256
(recursive? #t) (base32
) "0rdg3mjqrr4a8mywxkfis25gkbn4fylw42hg1d9cvp4dwrjk3hl4"))
) (file-name (string-append name "-" version "-checkout"))))
(sha256 (base32 "0rdg3mjqrr4a8mywxkfis25gkbn4fylw42hg1d9cvp4dwrjk3hl4"))
(file-name (string-append name "-" version "-checkout"))
)
)
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments `( (arguments
#:configure-flags (list `(#:configure-flags (list (string-append "-DLIB_INSTALL_DIR="
(string-append "-DLIB_INSTALL_DIR=" (assoc-ref %outputs "out") "/lib" ) (assoc-ref %outputs "out")
) "/lib"))
#:phases (modify-phases %standard-phases #:phases (modify-phases %standard-phases
(add-after 'unpack 'chdir ( (add-after 'unpack 'chdir
lambda _ (chdir "src") (lambda _
#t (chdir "src") #t)))))
)) (inputs `(("perl" ,perl)
) ("oksh" ,oksh)
)) ("python-3" ,python-3)
(inputs `( ("mit-krb5" ,mit-krb5)
("perl", perl) ("gss" ,gss)
("oksh", oksh) ("pkg-config" ,pkg-config)
("python-3", python-3) ("jemalloc" ,jemalloc)
("mit-krb5", mit-krb5) ("ceph:lib" ,ceph "lib")
("gss", gss) ("libnfsidmap" ,libnfsidmap)
("pkg-config", pkg-config) ("libnfs" ,libnfs)
("jemalloc", jemalloc) ("liburcu" ,liburcu)
("ceph:lib", ceph "lib") ("bison" ,bison)
("libnfsidmap", libnfsidmap) ("flex" ,flex)
("libnfs", libnfs) ("libnsl" ,libnsl)
("liburcu", liburcu) ("util-linux" ,util-linux "lib")))
("bison", bison)
("flex", flex)
("libnsl", libnsl)
("util-linux", util-linux "lib")
))
(synopsis "nfs-ganesha") (synopsis "nfs-ganesha")
(description "NFS-Ganesha.") (description "NFS-Ganesha.")
(home-page "https://") (home-page "https://")
(license license:gpl3+) (license license:gpl3+)))
)
)

599
glicid/packages/nginx.scm
View file

@ -1,306 +1,323 @@
(define-module (glicid packages nginx) (define-module (glicid packages nginx)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:use-module (guix) #:use-module (guix)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses)
#:use-module (guix utils) #:prefix license:)
#:use-module (gnu packages compression) #:use-module (guix utils)
#:use-module (gnu packages curl) #:use-module (gnu packages compression)
#:use-module (gnu packages geo) #:use-module (gnu packages curl)
#:use-module (gnu packages pcre) #:use-module (gnu packages geo)
#:use-module (gnu packages perl) #:use-module (gnu packages pcre)
#:use-module (gnu packages pkg-config) #:use-module (gnu packages perl)
#:use-module (gnu packages web) #:use-module (gnu packages pkg-config)
#:use-module (gnu packages xml) #:use-module (gnu packages web)
#:use-module (gnu packages tls) #:use-module (gnu packages xml)
#:use-module (glicid packages openldap)) #:use-module (gnu packages tls)
#:use-module (glicid packages openldap))
(define-public nginx (define-public nginx
(package (package
(name "nginx") (name "nginx")
(version "1.23.2") (version "1.23.2")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://nginx.org/download/nginx-" version ".tar.gz")) (uri (string-append "https://nginx.org/download/nginx-" version
(sha256 (base32 "0ihbkfcqlqadzkdk813raq15qqrahss1gdd81bkswanpsdrc4358")))) ".tar.gz"))
(build-system gnu-build-system) (sha256
(inputs (list libxml2 libxslt openssl pcre zlib)) (base32
(arguments "0ihbkfcqlqadzkdk813raq15qqrahss1gdd81bkswanpsdrc4358"))))
`(#:tests? #f (build-system gnu-build-system)
#:phases (inputs (list libxml2 libxslt openssl pcre zlib))
(modify-phases (arguments
%standard-phases `(#:tests? #f
(add-before 'configure 'patch-/bin/sh #:phases (modify-phases %standard-phases
(lambda _ (add-before 'configure 'patch-/bin/sh
(substitute* "auto/feature" (lambda _
(("/bin/sh") (which "sh"))) (substitute* "auto/feature"
#t)) (("/bin/sh")
(replace 'configure (which "sh"))) #t))
;; The configure script is hand-written, not from GNU autotools. (replace 'configure
(lambda* (#:key configure-flags inputs outputs #:allow-other-keys) ;; The configure script is hand-written, not from GNU autotools.
(let ((flags (lambda* (#:key configure-flags inputs outputs
(append (list (string-append "--prefix=" (assoc-ref outputs "out")) #:allow-other-keys)
"--with-http_ssl_module" (let ((flags (append (list (string-append "--prefix="
"--with-http_v2_module" (assoc-ref
"--with-http_xslt_module" outputs "out"))
"--with-http_gzip_static_module" "--with-http_ssl_module"
"--with-http_gunzip_module" "--with-http_v2_module"
"--with-http_addition_module" "--with-http_xslt_module"
"--with-http_sub_module" "--with-http_gzip_static_module"
"--with-pcre-jit" "--with-http_gunzip_module"
"--with-debug" "--with-http_addition_module"
"--with-stream" "--with-http_sub_module"
;; Even when not cross-building, we pass the "--with-pcre-jit"
;; --crossbuild option to avoid customizing for the "--with-debug"
;; kernel version on the build machine. "--with-stream"
,(let ((system "Linux") ; uname -s ;; Even when not cross-building, we pass the
(release "3.2.0") ; uname -r ;; --crossbuild option to avoid customizing for the
;; uname -m ;; kernel version on the build machine.
(machine (match (or (%current-target-system) ,(let ((system "Linux")
(%current-system)) ;uname -s
("x86_64-linux" "x86_64") (release "3.2.0") ;uname -r
("i686-linux" "i686") ;; uname -m
("mips64el-linux" "mips64") (machine (match (or (%current-target-system)
(_ "UNSUPPORTED")))) (%current-system))
(string-append "--crossbuild=" system ":" release ":" machine) ("x86_64-linux"
)) "x86_64")
configure-flags))) ("i686-linux"
(setenv "CC" ,(cc-for-target)) "i686")
(setenv "CFLAGS" ; CPPFLAGS is not respected ("mips64el-linux"
(string-append "-I" (assoc-ref inputs "libxml2") "mips64")
"/include/libxml2")) (_ "UNSUPPORTED"))))
(format #t "configure flags: ~s~%" flags) (string-append "--crossbuild="
(apply invoke "./configure" flags) system
#t))) ":"
(add-after 'install 'install-man-page release
(lambda* (#:key outputs #:allow-other-keys) ":"
(let* ((out (assoc-ref outputs "out")) machine)))
(man (string-append out "/share/man"))) configure-flags)))
(install-file "objs/nginx.8" (string-append man "/man8")) (setenv "CC"
#t))) ,(cc-for-target))
(add-after 'install 'fix-root-dirs (setenv "CFLAGS" ;CPPFLAGS is not respected
(lambda* (#:key outputs #:allow-other-keys) (string-append "-I"
(let* ((out (assoc-ref outputs "out")) (assoc-ref inputs "libxml2")
(share (string-append out "/share/nginx"))) "/include/libxml2"))
(rmdir (string-append out "/logs")) (format #t "configure flags: ~s~%" flags)
(mkdir-p share) (apply invoke "./configure" flags) #t)))
(rename-file (string-append out "/conf") (add-after 'install 'install-man-page
(string-append share "/conf")) (lambda* (#:key outputs #:allow-other-keys)
(rename-file (string-append out "/html") (let* ((out (assoc-ref outputs "out"))
(string-append share "/html")) (man (string-append out "/share/man")))
#t)))))) (install-file "objs/nginx.8"
(home-page "https://nginx.org") (string-append man "/man8")) #t)))
(synopsis "HTTP and reverse proxy server") (add-after 'install 'fix-root-dirs
(description (lambda* (#:key outputs #:allow-other-keys)
"Nginx (\"engine X\") is a high-performance web and reverse proxy server (let* ((out (assoc-ref outputs "out"))
(share (string-append out "/share/nginx")))
(rmdir (string-append out "/logs"))
(mkdir-p share)
(rename-file (string-append out "/conf")
(string-append share "/conf"))
(rename-file (string-append out "/html")
(string-append share "/html")) #t))))))
(home-page "https://nginx.org")
(synopsis "HTTP and reverse proxy server")
(description
"Nginx (\"engine X\") is a high-performance web and reverse proxy server
created by Igor Sysoev. It can be used both as a stand-alone web server created by Igor Sysoev. It can be used both as a stand-alone web server
and as a proxy to reduce the load on back-end HTTP or mail servers.") and as a proxy to reduce the load on back-end HTTP or mail servers.")
(license (list license:bsd-2 license:expat license:bsd-3 license:bsd-4)))) (license (list license:bsd-2 license:expat license:bsd-3 license:bsd-4))))
(define-public nginx-ldap-auth-module (define-public nginx-ldap-auth-module
(package (package
(inherit nginx) (inherit nginx)
(name "nginx-ldap-auth-module") (name "nginx-ldap-auth-module")
(version "83c059b73566c2ee9cbda920d91b66657cf120b7") (version "83c059b73566c2ee9cbda920d91b66657cf120b7")
(source (source (origin
(origin (method git-fetch)
(method git-fetch) (uri (git-reference
(uri (git-reference (url "https://github.com/kvspb/nginx-auth-ldap")
(url "https://github.com/kvspb/nginx-auth-ldap") (commit version)))
(commit version))) (file-name (git-file-name "nginx-ldap-auth-module" version))
(file-name (git-file-name "nginx-ldap-auth-module" version)) (sha256
(sha256 (base32 "023zmdir7w92dnb508ggskkc7kmd7k71hc597sb7i4xfgpwxzq1s")))) (base32
(synopsis "LDAP Authentication module for nginx") "023zmdir7w92dnb508ggskkc7kmd7k71hc597sb7i4xfgpwxzq1s"))))
(description "LDAP module for nginx which supports authentication against multiple LDAP servers.") (synopsis "LDAP Authentication module for nginx")
(build-system gnu-build-system) (description
(inputs "LDAP module for nginx which supports authentication against multiple LDAP servers.")
`(("nginx-sources" ,(package-source nginx)) (build-system gnu-build-system)
("openldap", openldap) (inputs `(("nginx-sources" ,(package-source nginx))
,@(package-inputs nginx))) ("openldap" ,openldap)
(arguments ,@(package-inputs nginx)))
(substitute-keyword-arguments (arguments
`(#:configure-flags '("--add-dynamic-module=.") (substitute-keyword-arguments `(#:configure-flags '("--add-dynamic-module=.")
#:make-flags '("modules") ,@(package-arguments nginx)) #:make-flags '("modules")
((#:phases phases) ,@(package-arguments nginx))
`(modify-phases ,phases ((#:phases phases)
(add-after 'unpack 'unpack-nginx-sources `(modify-phases ,phases
(lambda* (#:key inputs native-inputs #:allow-other-keys) (add-after 'unpack 'unpack-nginx-sources
(begin (lambda* (#:key inputs native-inputs #:allow-other-keys)
(format #t "decompressing nginx source code~%") (begin
(let ((tar (assoc-ref inputs "tar")) (nginx-srcs (assoc-ref inputs "nginx-sources"))) (format #t "decompressing nginx source code~%")
(invoke (string-append tar "/bin/tar") "xvf" nginx-srcs "--strip-components=1")) (let ((tar (assoc-ref inputs "tar"))
#t ))) (nginx-srcs (assoc-ref inputs "nginx-sources")))
(replace 'install (invoke (string-append tar "/bin/tar") "xvf" nginx-srcs
(lambda* (#:key outputs #:allow-other-keys) "--strip-components=1")) #t)))
(let ((modules-dir (string-append (assoc-ref outputs "out") "/etc/nginx/modules"))) (replace 'install
(install-file "objs/ngx_http_auth_ldap_module.so" modules-dir) (lambda* (#:key outputs #:allow-other-keys)
#t ))) (let ((modules-dir (string-append (assoc-ref outputs "out")
(delete 'fix-root-dirs) "/etc/nginx/modules")))
(delete 'install-man-page))))))) (install-file "objs/ngx_http_auth_ldap_module.so" modules-dir)
#t)))
(delete 'fix-root-dirs)
(delete 'install-man-page)))))))
(define-public modsecurity (define-public modsecurity
(package (package
(name "modsecurity") (name "modsecurity")
(version "3.0.8") (version "3.0.8")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (list (string-append
(uri (list "https://github.com/SpiderLabs/ModSecurity/releases/download/v"
(string-append "https://github.com/SpiderLabs/ModSecurity/releases/download/v" version "/modsecurity-v" version ".tar.gz") version "/modsecurity-v" version ".tar.gz")))
)) (sha256
(sha256 (base32 "1isng4z2xijqq92105si1zxkzlx4ifdnn38d7n38mrfp7jdwhhg2")))) (base32
(synopsis "modsecurity module for nginx") "1isng4z2xijqq92105si1zxkzlx4ifdnn38d7n38mrfp7jdwhhg2"))))
(description "modsecurity module for nginx.") (synopsis "modsecurity module for nginx")
(license license:asl2.0) (description "modsecurity module for nginx.")
(home-page "https://github.com/SpiderLabs/ModSecurity") (license license:asl2.0)
(build-system gnu-build-system) (home-page "https://github.com/SpiderLabs/ModSecurity")
(inputs `( (build-system gnu-build-system)
("curl", curl) (inputs `(("curl" ,curl)
("libxml2", libxml2) ("libxml2" ,libxml2)
("libxslt", libxslt) ("libxslt" ,libxslt)
("openssl", openssl) ("openssl" ,openssl)
("pcre", pcre) ("pcre" ,pcre)
("pcre:bin", pcre "bin") ("pcre:bin" ,pcre "bin")
("zlib", zlib) ("zlib" ,zlib)
("pkg-config", pkg-config) ("pkg-config" ,pkg-config)
("nginx-sources", (package-source nginx)) ("nginx-sources" ,(package-source nginx))))
)) (arguments
(arguments `(#:configure-flags (list (string-append "--with-curl="
`( #:configure-flags (list (assoc-ref %build-inputs "curl"))
(string-append "--with-curl=" (assoc-ref %build-inputs "curl")) (string-append "--with-pcre="
(string-append "--with-pcre=" (assoc-ref %build-inputs "pcre:bin") "/bin/pcre-config") (assoc-ref %build-inputs
(string-append "--with-libxml=" (assoc-ref %build-inputs "libxml2")) "pcre:bin")
"--enable-standalone-module" ))))) "/bin/pcre-config")
(string-append "--with-libxml="
(assoc-ref %build-inputs
"libxml2"))
"--enable-standalone-module")))))
(define-public nginx-modsecurity-module (define-public nginx-modsecurity-module
(package (package
(inherit nginx) (inherit nginx)
(name "nginx-modsecurity-module") (name "nginx-modsecurity-module")
(version "1.0.3") (version "1.0.3")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (list (string-append
(uri (list "https://github.com/SpiderLabs/ModSecurity-nginx/releases/download/v"
(string-append "https://github.com/SpiderLabs/ModSecurity-nginx/releases/download/v" version "/modsecurity-nginx-v" version ".tar.gz") version "/modsecurity-nginx-v" version ".tar.gz")))
)) (sha256
(sha256 (base32 "1pcayz0kkpr0fvs8fwai0xv7jw9r7ph66vwxm6vrq0mc11r1r0df")) (base32
) "1pcayz0kkpr0fvs8fwai0xv7jw9r7ph66vwxm6vrq0mc11r1r0df"))))
) (synopsis "ModSecurity module for nginx")
(synopsis "ModSecurity module for nginx") (description "ModSecurity module for nginx.")
(description "ModSecurity module for nginx.") (build-system gnu-build-system)
(build-system gnu-build-system) (inputs `(("nginx-sources" ,(package-source nginx))
(inputs ("modsecurity" ,modsecurity)
`(("nginx-sources" ,(package-source nginx)) ,@(package-inputs nginx)))
("modsecurity", modsecurity) (arguments
,@(package-inputs nginx))) (substitute-keyword-arguments `(#:configure-flags '("--add-dynamic-module=.")
(arguments #:make-flags '("modules")
(substitute-keyword-arguments ,@(package-arguments nginx))
`(#:configure-flags '("--add-dynamic-module=.") ((#:phases phases)
#:make-flags '("modules") `(modify-phases ,phases
,@(package-arguments nginx) (add-after 'unpack 'unpack-nginx-sources
) (lambda* (#:key inputs native-inputs #:allow-other-keys)
((#:phases phases) (begin
`(modify-phases ,phases ;; The nginx source code is part of the module’s source.
(add-after 'unpack 'unpack-nginx-sources (format #t "decompressing nginx source code~%")
(lambda* (#:key inputs native-inputs #:allow-other-keys) (let ((tar (assoc-ref inputs "tar"))
(begin (nginx-srcs (assoc-ref inputs "nginx-sources")))
;; The nginx source code is part of the module’s source. (invoke (string-append tar "/bin/tar") "xvf" nginx-srcs
(format #t "decompressing nginx source code~%") "--strip-components=1")) #t)))
(let ((tar (assoc-ref inputs "tar")) (nginx-srcs (assoc-ref inputs "nginx-sources"))) (replace 'install
(invoke (string-append tar "/bin/tar") "xvf" nginx-srcs "--strip-components=1") (lambda* (#:key outputs #:allow-other-keys)
) (let ((modules-dir (string-append (assoc-ref outputs "out")
#t ))) "/etc/nginx/modules")))
(replace 'install (install-file "objs/ngx_http_modsecurity_module.so"
(lambda* (#:key outputs #:allow-other-keys) modules-dir) #t)))
(let ((modules-dir (string-append (assoc-ref outputs "out") "/etc/nginx/modules"))) (delete 'fix-root-dirs)
(install-file "objs/ngx_http_modsecurity_module.so" modules-dir) (delete 'install-man-page)))))))
#t )))
(delete 'fix-root-dirs)
(delete 'install-man-page)))))))
(define-public nginx-geoip2-module (define-public nginx-geoip2-module
(package (package
(inherit nginx) (inherit nginx)
(name "nginx-geoip2-module") (name "nginx-geoip2-module")
(version "3.4") (version "3.4")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (list (string-append
(uri (list "https://github.com/leev/ngx_http_geoip2_module/archive/refs/tags/"
(string-append "https://github.com/leev/ngx_http_geoip2_module/archive/refs/tags/" version ".tar.gz") version ".tar.gz")))
)) (sha256
(sha256 (base32 "0lllgnasd97r6xkj70q42rp61cxrz8qlb64l14rmlwcd6hizqwmd")))) (base32
(synopsis "GeoIP2 module for nginx") "0lllgnasd97r6xkj70q42rp61cxrz8qlb64l14rmlwcd6hizqwmd"))))
(description "GeoIP2 module for nginx.") (synopsis "GeoIP2 module for nginx")
(build-system gnu-build-system) (description "GeoIP2 module for nginx.")
(inputs (build-system gnu-build-system)
`(("nginx-sources" ,(package-source nginx)) (inputs `(("nginx-sources" ,(package-source nginx))
("libmaxminddb", libmaxminddb) ("libmaxminddb" ,libmaxminddb)
,@(package-inputs nginx))) ,@(package-inputs nginx)))
(arguments (arguments
(substitute-keyword-arguments (substitute-keyword-arguments `(#:configure-flags '("--add-dynamic-module=.")
`(#:configure-flags '("--add-dynamic-module=.") #:make-flags '("modules")
#:make-flags '("modules") ,@(package-arguments nginx)) ,@(package-arguments nginx))
((#:phases phases) ((#:phases phases)
`(modify-phases ,phases `(modify-phases ,phases
(add-after 'unpack 'unpack-nginx-sources (add-after 'unpack 'unpack-nginx-sources
(lambda* (#:key inputs native-inputs #:allow-other-keys) (lambda* (#:key inputs native-inputs #:allow-other-keys)
(begin (begin
;; The nginx source code is part of the module’s source. ;; The nginx source code is part of the module’s source.
(format #t "decompressing nginx source code~%") (format #t "decompressing nginx source code~%")
(let ((tar (assoc-ref inputs "tar")) (nginx-srcs (assoc-ref inputs "nginx-sources"))) (let ((tar (assoc-ref inputs "tar"))
(invoke (string-append tar "/bin/tar") "xvf" nginx-srcs "--strip-components=1") (nginx-srcs (assoc-ref inputs "nginx-sources")))
) (invoke (string-append tar "/bin/tar") "xvf" nginx-srcs
#t ))) "--strip-components=1")) #t)))
(replace 'install (replace 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((modules-dir (string-append (assoc-ref outputs "out") "/etc/nginx/modules"))) (let ((modules-dir (string-append (assoc-ref outputs "out")
(install-file "objs/ngx_http_geoip2_module.so" modules-dir) "/etc/nginx/modules")))
(install-file "objs/ngx_stream_geoip2_module.so" modules-dir) (install-file "objs/ngx_http_geoip2_module.so" modules-dir)
#t ))) (install-file "objs/ngx_stream_geoip2_module.so" modules-dir)
(delete 'fix-root-dirs) #t)))
(delete 'install-man-page))))))) (delete 'fix-root-dirs)
(delete 'install-man-page)))))))
(define-public nginx-http_subs_filter-module (define-public nginx-http_subs_filter-module
(package (package
(inherit nginx) (inherit nginx)
(name "nginx-http_subs_filter-module") (name "nginx-http_subs_filter-module")
(version "e12e965") (version "e12e965")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (list (string-append
(uri (list "https://github.com/yaoweibin/ngx_http_substitutions_filter_module/archive/"
(string-append "https://github.com/yaoweibin/ngx_http_substitutions_filter_module/archive/" version ".tar.gz") version ".tar.gz")))
)) (sha256
(sha256 (base32 "1cxb3yv6085rj50s001p2vblvz5px2v92whwjhb14kl8fnm2cans")))) (base32
(synopsis "substitutions_filter module for nginx") "1cxb3yv6085rj50s001p2vblvz5px2v92whwjhb14kl8fnm2cans"))))
(description "substitutions_filter module for nginx.") (synopsis "substitutions_filter module for nginx")
(build-system gnu-build-system) (description "substitutions_filter module for nginx.")
(inputs (build-system gnu-build-system)
`(("nginx-sources" ,(package-source nginx)) (inputs `(("nginx-sources" ,(package-source nginx))
,@(package-inputs nginx))) ,@(package-inputs nginx)))
(arguments (arguments
(substitute-keyword-arguments (substitute-keyword-arguments `(#:configure-flags '("--add-dynamic-module=.")
`(#:configure-flags '("--add-dynamic-module=.") #:make-flags '("modules")
#:make-flags '("modules") ,@(package-arguments nginx)) ,@(package-arguments nginx))
((#:phases phases) ((#:phases phases)
`(modify-phases ,phases `(modify-phases ,phases
(add-after 'unpack 'unpack-nginx-sources (add-after 'unpack 'unpack-nginx-sources
(lambda* (#:key inputs native-inputs #:allow-other-keys) (lambda* (#:key inputs native-inputs #:allow-other-keys)
(begin (begin
;; The nginx source code is part of the module’s source. ;; The nginx source code is part of the module’s source.
(format #t "decompressing nginx source code~%") (format #t "decompressing nginx source code~%")
(let ((tar (assoc-ref inputs "tar")) (nginx-srcs (assoc-ref inputs "nginx-sources"))) (let ((tar (assoc-ref inputs "tar"))
(invoke (string-append tar "/bin/tar") "xvf" nginx-srcs "--strip-components=1") (nginx-srcs (assoc-ref inputs "nginx-sources")))
) (invoke (string-append tar "/bin/tar") "xvf" nginx-srcs
#t ))) "--strip-components=1")) #t)))
(replace 'install (replace 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((modules-dir (string-append (assoc-ref outputs "out") "/etc/nginx/modules"))) (let ((modules-dir (string-append (assoc-ref outputs "out")
(install-file "objs/ngx_http_subs_filter_module.so" modules-dir) "/etc/nginx/modules")))
#t ))) (install-file "objs/ngx_http_subs_filter_module.so"
(delete 'fix-root-dirs) modules-dir) #t)))
(delete 'install-man-page))))))) (delete 'fix-root-dirs)
(delete 'install-man-page)))))))

251
glicid/packages/openldap.scm
View file

@ -1,127 +1,152 @@
(define-module (glicid packages openldap) (define-module (glicid packages openldap)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module (guix download) #:use-module (guix download)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses)
#:use-module (guix packages) #:prefix license:)
#:use-module (guix utils) #:use-module (guix packages)
#:use-module (gnu packages autotools) #:use-module (guix utils)
#:use-module (gnu packages compression) #:use-module (gnu packages autotools)
#:use-module (gnu packages cyrus-sasl) #:use-module (gnu packages compression)
#:use-module (gnu packages databases) #:use-module (gnu packages cyrus-sasl)
#:use-module (gnu packages dbm) #:use-module (gnu packages databases)
#:use-module (gnu packages gnupg) #:use-module (gnu packages dbm)
#:use-module (gnu packages groff) #:use-module (gnu packages gnupg)
#:use-module (gnu packages kerberos) #:use-module (gnu packages groff)
#:use-module (gnu packages libevent) #:use-module (gnu packages kerberos)
#:use-module (gnu packages linux) #:use-module (gnu packages libevent)
#:use-module ((gnu packages openldap) #:prefix gnu:) #:use-module (gnu packages linux)
#:use-module (gnu packages password-utils) #:use-module ((gnu packages openldap)
#:use-module (gnu packages perl) #:prefix gnu:)
#:use-module (gnu packages python) #:use-module (gnu packages password-utils)
#:use-module (gnu packages pkg-config) #:use-module (gnu packages perl)
#:use-module (gnu packages tls)) #:use-module (gnu packages python)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages tls))
(define-public openldap (define-public openldap
(package (package
(name "openldap") (name "openldap")
(version "2.6.3") (version "2.6.3")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (list (string-append "https://www.openldap.org/software/download/OpenLDAP/openldap-release/openldap-" version ".tgz"))) (uri (list (string-append
(sha256 (base32 "0ihddk8c6hg9lkjv0wk0w13g8kb75r8dfsn1n6b77mzk3pbs38nj")))) "https://www.openldap.org/software/download/OpenLDAP/openldap-release/openldap-"
(build-system gnu-build-system) version ".tgz")))
(inputs (list argon2 cyrus-sasl libevent libgcrypt libltdl lz4 openssl perl snappy unixodbc wiredtiger zlib)) (sha256
(native-inputs (list bdb groff libtool pkg-config)) (base32
(arguments '( "0ihddk8c6hg9lkjv0wk0w13g8kb75r8dfsn1n6b77mzk3pbs38nj"))))
; this is needed because the make check does not work inside guix (build-system gnu-build-system)
#:tests? #f (inputs (list argon2
#:configure-flags '( cyrus-sasl
"--enable-debug" libevent
"--enable-dynamic" libgcrypt
"--enable-syslog" libltdl
"--enable-ipv6" lz4
"--enable-local" openssl
"--enable-slapd" perl
"--enable-dynacl" snappy
"--enable-aci" unixodbc
"--enable-cleartext" wiredtiger
"--enable-crypt" zlib))
"--enable-spasswd" (native-inputs (list bdb groff libtool pkg-config))
"--enable-modules" (arguments
"--enable-rlookups" '(;; this is needed because the make check does not work inside guix
"--enable-slapi" #:tests? #f
"--enable-backends=mod" #:configure-flags '("--enable-debug" "--enable-dynamic"
"--enable-overlays=mod" "--enable-syslog"
"--enable-argon2" "--enable-ipv6"
"--enable-balancer" "--enable-local"
"--disable-static" "--enable-slapd"
"--enable-shared" "--enable-dynacl"
"--with-tls=openssl" "--enable-aci"
) "--enable-cleartext"
#:make-flags '("STRIP=") "--enable-crypt"
#:phases (modify-phases %standard-phases "--enable-spasswd"
(add-before 'build 'make-depend "--enable-modules"
(lambda* (#:key input #:allow-other-keys) "--enable-rlookups"
(invoke "make" "depend")))))) "--enable-slapi"
(synopsis "Implementation of the Lightweight Directory Access Protocol") "--enable-backends=mod"
(description "OpenLDAP is a free implementation of the Lightweight Directory Access Protocol.") "--enable-overlays=mod"
(license license:openldap2.8) "--enable-argon2"
(home-page "https://www.openldap.org/"))) "--enable-balancer"
"--disable-static"
"--enable-shared"
"--with-tls=openssl")
#:make-flags '("STRIP=")
#:phases (modify-phases %standard-phases
(add-before 'build 'make-depend
(lambda* (#:key input #:allow-other-keys)
(invoke "make" "depend"))))))
(synopsis "Implementation of the Lightweight Directory Access Protocol")
(description
"OpenLDAP is a free implementation of the Lightweight Directory Access Protocol.")
(license license:openldap2.8)
(home-page "https://www.openldap.org/")))
(define-public openldap-2.4.59 (define-public openldap-2.4.59
(package (package
(inherit openldap) (inherit openldap)
(name "openldap") (name "openldap")
(version "2.4.59") (version "2.4.59")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (list (string-append "https://www.openldap.org/software/download/OpenLDAP/openldap-release/openldap-" version ".tgz"))) (uri (list (string-append
(sha256 (base32 "0d1gw898gbkv46mw0gll3q0w2j2y9midlzh6f320d0nq8xkpvwwr")))))) "https://www.openldap.org/software/download/OpenLDAP/openldap-release/openldap-"
version ".tgz")))
(sha256
(base32
"0d1gw898gbkv46mw0gll3q0w2j2y9midlzh6f320d0nq8xkpvwwr"))))))
(define-public openldap-2.5.13 (define-public openldap-2.5.13
(package (package
(inherit openldap) (inherit openldap)
(name "openldap") (name "openldap")
(version "2.5.13") (version "2.5.13")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (list (string-append "https://www.openldap.org/software/download/OpenLDAP/openldap-release/openldap-" version ".tgz"))) (uri (list (string-append
(sha256 (base32 "13007pv1vpp31dvnf9xzzcknqv9p75rqq412nrbprf7p9q646g7f")))))) "https://www.openldap.org/software/download/OpenLDAP/openldap-release/openldap-"
version ".tgz")))
(sha256
(base32
"13007pv1vpp31dvnf9xzzcknqv9p75rqq412nrbprf7p9q646g7f"))))))
(define-public nss-pam-ldapd (define-public nss-pam-ldapd
(package (package
(name "nss-pam-ldapd") (name "nss-pam-ldapd")
(version "0.9.12") (version "0.9.12")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://arthurdejong.org/nss-pam-ldapd/nss-pam-ldapd-" version ".tar.gz")) (uri (string-append
(sha256 (base32 "050fzcmxmf6y15dlcffc4gxr3wkk7fliqqwhlwqzbjwk8vkn3mn6")))) "https://arthurdejong.org/nss-pam-ldapd/nss-pam-ldapd-"
(build-system gnu-build-system) version ".tar.gz"))
(arguments (sha256
`( (base32
#:configure-flags "050fzcmxmf6y15dlcffc4gxr3wkk7fliqqwhlwqzbjwk8vkn3mn6"))))
(list (string-append (build-system gnu-build-system)
"--with-pam-seclib-dir=" (assoc-ref %outputs "out") "/lib/security/") (arguments
"--with-ldap-conf-file=/etc/nslcd.conf" ) `(#:configure-flags (list (string-append "--with-pam-seclib-dir="
#:phases (assoc-ref %outputs "out")
(modify-phases %standard-phases "/lib/security/")
(add-after 'unpack 'override-nslcd.conf-install-path "--with-ldap-conf-file=/etc/nslcd.conf")
(lambda* (#:key outputs #:allow-other-keys) #:phases (modify-phases %standard-phases
(substitute* "Makefile.in" (add-after 'unpack 'override-nslcd.conf-install-path
( (lambda* (#:key outputs #:allow-other-keys)
("\\$\\(DESTDIR\\)\\$\\(NSLCD_CONF_PATH\\)") (substitute* "Makefile.in"
(string-append (assoc-ref outputs "out") "/etc/nslcd.conf.example")))))))) (("\\$\\(DESTDIR\\)\\$\\(NSLCD_CONF_PATH\\)")
(inputs `( (string-append (assoc-ref outputs "out")
("linux-pam", linux-pam) "/etc/nslcd.conf.example"))))))))
("mit-krb5", mit-krb5) (inputs `(("linux-pam" ,linux-pam)
("openldap", openldap) ("mit-krb5" ,mit-krb5)
("python", python))) ("openldap" ,openldap)
(home-page "https://arthurdejong.org/nss-pam-ldapd") ("python" ,python)))
(synopsis "NSS and PAM modules for LDAP") (home-page "https://arthurdejong.org/nss-pam-ldapd")
(description "nss-pam-ldapd provides a @dfn{Name Service Switch} (NSS) (synopsis "NSS and PAM modules for LDAP")
(description
"nss-pam-ldapd provides a @dfn{Name Service Switch} (NSS)
module that allows your LDAP server to provide user account, group, host name, module that allows your LDAP server to provide user account, group, host name,
alias, netgroup, and basically any other information that you would normally alias, netgroup, and basically any other information that you would normally
get from @file{/etc} flat files or NIS. It also provides a @dfn{Pluggable get from @file{/etc} flat files or NIS. It also provides a @dfn{Pluggable
Authentication Module} (PAM) to do identity and authentication management with Authentication Module} (PAM) to do identity and authentication management with
an LDAP server.") an LDAP server.")
(license license:lgpl2.1+))) (license license:lgpl2.1+)))

269
glicid/packages/parallel.scm
View file

@ -3,7 +3,8 @@
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses)
#:prefix license:)
#:use-module (gnu packages parallel) #:use-module (gnu packages parallel)
#:use-module (gnu packages gtk) #:use-module (gnu packages gtk)
#:use-module (gnu packages libevent) #:use-module (gnu packages libevent)
@ -14,241 +15,195 @@
#:use-module (gnu packages haskell-xyz) #:use-module (gnu packages haskell-xyz)
#:use-module (gnu packages databases) #:use-module (gnu packages databases)
#:use-module (glicid utils) #:use-module (glicid utils)
#:use-module (glicid packages fabric-management) ; for latest ucx #:use-module (glicid packages fabric-management) ;for latest ucx
#:use-module (glicid packages containers) ; for latest podman #:use-module (glicid packages containers) ;for latest podman
#:use-module (gnu packages compression) ; lz4 #:use-module (gnu packages compression) ;lz4
#:use-module (gnu packages lua) ; lua #:use-module (gnu packages lua) ;lua
) )
(define-public openpmix-3.1.5 (define-public openpmix-3.1.5
(package (package
(name "openpmix") (name "openpmix")
(version "3.1.5") (version "3.1.5")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append
(uri (string-append "https://github.com/openpmix/openpmix/releases/download/v" version "/pmix-" version ".tar.bz2")) "https://github.com/openpmix/openpmix/releases/download/v"
(sha256 (base32 "1xswdkfcrw123ghcr9gmrb852nzjbl4i6qwrid3xyma42yal34w8")) version "/pmix-" version ".tar.bz2"))
) (sha256
) (base32
"1xswdkfcrw123ghcr9gmrb852nzjbl4i6qwrid3xyma42yal34w8"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:configure-flags `(#:configure-flags (list (string-append "--with-hwloc="
(list (assoc-ref %build-inputs "hwloc")))))
(string-append "--with-hwloc=" (assoc-ref %build-inputs "hwloc"))
)
)
)
(synopsis "MPIX lib") (synopsis "MPIX lib")
(description"MPIX. More to come. FIXIT") (description "MPIX. More to come. FIXIT")
(home-page "https://www.gnu.org/software/hello/") (home-page "https://www.gnu.org/software/hello/")
(license license:gpl3+) (license license:gpl3+)
(inputs `( (inputs `(("libevent" ,libevent)
("libevent", libevent) ("hwloc" ,hwloc-2 "lib")
("hwloc" ,hwloc-2 "lib") ("perl" ,perl)))))
("perl", perl)
))
)
)
(define-public openpmix-4.1.0 (define-public openpmix-4.1.0
(package (package
(inherit openpmix-3.1.5) (inherit openpmix-3.1.5)
(version "4.1.0") (version "4.1.0")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append
(uri (string-append "https://github.com/openpmix/openpmix/releases/download/v" version "/pmix-" version ".tar.bz2")) "https://github.com/openpmix/openpmix/releases/download/v"
(sha256 (base32 "0bl4gkh87csm3yh418wvrih35mg6swavcxj78gyb7gr1qsk0apql")) version "/pmix-" version ".tar.bz2"))
) (sha256
) (base32
(inputs `( "0bl4gkh87csm3yh418wvrih35mg6swavcxj78gyb7gr1qsk0apql"))))
("python", python) (inputs `(("python" ,python)
("zlib", zlib) ("zlib" ,zlib)
("pandoc", pandoc) ("pandoc" ,pandoc)
,@(package-inputs openpmix-3.1.5) ,@(package-inputs openpmix-3.1.5)))))
))
)
)
(define-public openpmix openpmix-4.1.0) (define-public openpmix
openpmix-4.1.0)
(define-public slurm-20.02-upstream (define-public slurm-20.02-upstream
(package (package
(inherit slurm-20.02) (inherit slurm-20.02)
(name "slurm-upstream") (name "slurm-upstream")
(version "20.02.7") (version "20.02.7")
(source (source (origin
(origin (inherit (package-source slurm-20.02))
(inherit (package-source slurm-20.02)) (method url-fetch)
(method url-fetch) (uri (string-append "https://download.schedmd.com/slurm/slurm-"
(uri (string-append "https://download.schedmd.com/slurm/slurm-" version ".tar.bz2")) version ".tar.bz2"))
(sha256 (base32 "1khlv69q41chgkcs1i7l651hvyx8sz3j9yhjbgky3gpqrgrmz1h6")) (sha256
) (base32
) "1khlv69q41chgkcs1i7l651hvyx8sz3j9yhjbgky3gpqrgrmz1h6"))))))
)
)
(define slurm-20.02-latest (define slurm-20.02-latest
(latest-version slurm-20.02 slurm-20.02-upstream) (latest-version slurm-20.02 slurm-20.02-upstream))
)
(define-public slurm-20.02-glicid (define-public slurm-20.02-glicid
(package (package
(inherit slurm-20.02-latest) (inherit slurm-20.02-latest)
(name "slurm-glicid") (name "slurm-glicid")
(inputs `( (inputs `(("gtk+-2" ,gtk+-2)
("gtk+-2", gtk+-2) ("mariadb:dev" ,mariadb "dev")
("mariadb:dev", mariadb "dev") ,@(package-inputs slurm-20.02-latest)))))
,@(package-inputs slurm-20.02-latest)
))
)
)
(define-public slurm-20.11-upstream (define-public slurm-20.11-upstream
(package (package
(inherit slurm-20.11) (inherit slurm-20.11)
(name "slurm-upstream") (name "slurm-upstream")
(version "20.11.9") (version "20.11.9")
(source (source (origin
(origin (inherit (package-source slurm-20.11))
(inherit (package-source slurm-20.11)) (method url-fetch)
(method url-fetch) (uri (string-append "https://download.schedmd.com/slurm/slurm-"
(uri (string-append "https://download.schedmd.com/slurm/slurm-" version ".tar.bz2")) version ".tar.bz2"))
(sha256 (base32 "0xq2d6dm285y541dyg1h66z7svsisrq8c81ag0f601xz1cn3mq9m")) (sha256
(base32
"0xq2d6dm285y541dyg1h66z7svsisrq8c81ag0f601xz1cn3mq9m"))
) ))))
)
)
)
(define slurm-20.11-latest (define slurm-20.11-latest
(latest-version slurm-20.11 slurm-20.11-upstream) (latest-version slurm-20.11 slurm-20.11-upstream))
)
(define-public slurm-20.11-glicid (define-public slurm-20.11-glicid
(package (package
(inherit slurm-20.11-latest) (inherit slurm-20.11-latest)
(name "slurm-glicid") (name "slurm-glicid")
(inputs `( (inputs `(("gtk+-2" ,gtk+-2)
("gtk+-2", gtk+-2) ("mariadb:dev" ,mariadb "dev")
("mariadb:dev", mariadb "dev") ,@(package-inputs slurm-20.11-latest)))))
,@(package-inputs slurm-20.11-latest)
))
)
)
(define-public slurm-21.08-upstream (define-public slurm-21.08-upstream
(package (package
(inherit slurm) (inherit slurm)
(name "slurm-upstream") (name "slurm-upstream")
(version "21.08.8-2") (version "21.08.8-2")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append "https://download.schedmd.com/slurm/slurm-"
(uri (string-append "https://download.schedmd.com/slurm/slurm-" version ".tar.bz2")) version ".tar.bz2"))
(sha256 (base32 "01lynxvfzjswq5zxfxzjqjalj1s596lh58f5g8xqb6as9gdcyzgg")) (sha256
) (base32
) "01lynxvfzjswq5zxfxzjqjalj1s596lh58f5g8xqb6as9gdcyzgg"))))))
)
)
(define slurm-21.08-latest (define slurm-21.08-latest
(latest-version slurm slurm-21.08-upstream) (latest-version slurm slurm-21.08-upstream))
)
(define-public slurm-21.08-glicid (define-public slurm-21.08-glicid
(package (package
(inherit slurm-21.08-latest) (inherit slurm-21.08-latest)
(name "slurm-glicid") (name "slurm-glicid")
(inputs `( (inputs `(("gtk+-2" ,gtk+-2)
("gtk+-2", gtk+-2) ("mariadb:dev" ,mariadb "dev")
("mariadb:dev", mariadb "dev") ,@(package-inputs slurm-21.08-latest)))))
,@(package-inputs slurm-21.08-latest)
))
)
)
(define-public slurm-22.05-upstream (define-public slurm-22.05-upstream
(package (package
(inherit slurm) (inherit slurm)
(name "slurm-upstream") (name "slurm-upstream")
(version "22.05.5") (version "22.05.5")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append "https://download.schedmd.com/slurm/slurm-"
(uri (string-append "https://download.schedmd.com/slurm/slurm-" version ".tar.bz2")) version ".tar.bz2"))
(sha256 (base32 "1khglnjhnfd7k9x6c5kn40zalvcq0nxinxv5z04p82vw9y6ck1zn")) (sha256
) (base32
) "1khglnjhnfd7k9x6c5kn40zalvcq0nxinxv5z04p82vw9y6ck1zn"))))))
)
)
(define slurm-22.05-latest (define slurm-22.05-latest
(latest-version slurm slurm-22.05-upstream) (latest-version slurm slurm-22.05-upstream))
)
(define-public slurm-22.05-glicid (define-public slurm-22.05-glicid
(package (package
(inherit slurm-22.05-latest) (inherit slurm-22.05-latest)
(name "slurm-glicid") (name "slurm-glicid")
(inputs `( (inputs `(("gtk+-2" ,gtk+-2)
("gtk+-2", gtk+-2) ("mariadb:dev" ,mariadb "dev")
("mariadb:dev", mariadb "dev") ,@(package-inputs slurm-22.05-latest)))))
,@(package-inputs slurm-22.05-latest)
))
)
)
(define-public slurm-23.02-upstream (define-public slurm-23.02-upstream
(package (package
(inherit slurm) (inherit slurm)
(name "slurm-upstream") (name "slurm-upstream")
(version "23.02.-pre-b2a2a3109bf1cd1ce899b3b51c5223958510ff27") (version "23.02.-pre-b2a2a3109bf1cd1ce899b3b51c5223958510ff27")
(source (source (origin
(origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://github.com/SchedMD/slurm") (url "https://github.com/SchedMD/slurm")
(commit "b2a2a3109bf1cd1ce899b3b51c5223958510ff27") (commit "b2a2a3109bf1cd1ce899b3b51c5223958510ff27")))
)) (file-name (git-file-name name version))
(file-name (git-file-name name version)) (sha256
(sha256 (base32 "1iwyvkfipizy46fi5plc3h8qvympx41l5bw58jw4kx01qi5fvj0z")) (base32
) "1iwyvkfipizy46fi5plc3h8qvympx41l5bw58jw4kx01qi5fvj0z"))))))
)
)
)
(define slurm-23.02-latest (define slurm-23.02-latest
(latest-version slurm slurm-23.02-upstream) (latest-version slurm slurm-23.02-upstream))
)
(define-public slurm-23.02-glicid (define-public slurm-23.02-glicid
(package (package
(inherit slurm-23.02-latest) (inherit slurm-23.02-latest)
(name "slurm-glicid") (name "slurm-glicid")
(inputs `( (inputs `(("gtk+-2" ,gtk+-2)
("gtk+-2", gtk+-2) ("mariadb:dev" ,mariadb "dev")
("mariadb:dev", mariadb "dev") ("ucx" ,ucx-latest-glicid) ;not autotested by config
("ucx", ucx-latest-glicid) ; not autotested by config ("podman" ,podman)
("podman", podman) ("lua" ,lua)
("lua", lua) ("lz4" ,lz4)
("lz4", lz4) ,@(package-inputs slurm-23.02-latest)))))
,@(package-inputs slurm-23.02-latest)
))
)
)
(define-public slurm-glicid slurm-22.05-glicid)
(define-public slurm-ccipl slurm-21.08-glicid)
(define-public slurm-glicid-preprod slurm-22.05-glicid)
(define-public slurm-glicid-test slurm-23.02-glicid)
(define-public slurm-glicid
slurm-22.05-glicid)
(define-public slurm-ccipl
slurm-21.08-glicid)
(define-public slurm-glicid-preprod
slurm-22.05-glicid)
(define-public slurm-glicid-test
slurm-23.02-glicid)
slurm-glicid-test slurm-glicid-test

33
glicid/packages/perl.scm
View file

@ -1,28 +1,25 @@
(define-module (glicid packages perl) (define-module (glicid packages perl)
#:use-module (guix build-system perl) #:use-module (guix build-system perl)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix utils) #:use-module (guix utils))
)
(define-public perl-extutils-embed (define-public perl-extutils-embed
(package (package
(name "perl-extutils-embed") (name "perl-extutils-embed")
(version "1.14") (version "1.14")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append
(uri (string-append "mirror://cpan/authors/id/D/DO/DOUGM/ExtUtils-Embed-" version ".tar.gz")) "mirror://cpan/authors/id/D/DO/DOUGM/ExtUtils-Embed-"
(sha256 (base32 "1w55q0wz6i4k9p500mc4wmr8jndnczb6qqrd2m1mrnx13v2mbr7h")) version ".tar.gz"))
) (sha256
) (base32
"1w55q0wz6i4k9p500mc4wmr8jndnczb6qqrd2m1mrnx13v2mbr7h"))))
(build-system perl-build-system) (build-system perl-build-system)
(arguments '( (arguments
#:tests? #f '(#:tests? #f))
))
(home-page "https://metacpan.org/release/ExtUtils-Embed") (home-page "https://metacpan.org/release/ExtUtils-Embed")
(synopsis "Utilities for embedding Perl in C/C++ applications") (synopsis "Utilities for embedding Perl in C/C++ applications")
(description "Utilities for embedding Perl in C/C++ applications") (description "Utilities for embedding Perl in C/C++ applications")
(license #f) (license #f)))
)
)

24
glicid/packages/python-science.scm
View file

@ -1,16 +1,15 @@
(define-module (glicid packages python-science) (define-module (glicid packages python-science)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix build-system python) #:use-module (guix build-system python)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses)
#:use-module (gnu packages python-xyz) #:prefix license:)
#:use-module (gnu packages python-crypto) #:use-module (gnu packages python-xyz)
#:use-module (gnu packages python-build) #:use-module (gnu packages python-crypto)
#:use-module (gnu packages check) #:use-module (gnu packages python-build)
#:use-module (gnu packages geo) #:use-module (gnu packages check)
#:use-module (gnu packages python-check) #:use-module (gnu packages geo)
) #:use-module (gnu packages python-check))
(define-public python-snuggs (define-public python-snuggs
(package (package
@ -50,7 +49,6 @@
;; un tout petit peu de modifications à faire ici ;; un tout petit peu de modifications à faire ici
(define-public python-rasterio (define-public python-rasterio
(package (package
(name "python-rasterio") (name "python-rasterio")

32
glicid/packages/python.scm
View file

@ -1,18 +1,20 @@
(define-module (glicid packages python) (define-module (glicid packages python)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix build-system python)) #:use-module (guix build-system python))
(define-public python-ssh-audit (define-public python-ssh-audit
(package (package
(name "python-ssh-audit") (name "python-ssh-audit")
(version "2.5.0") (version "2.5.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "ssh-audit" version)) (uri (pypi-uri "ssh-audit" version))
(sha256 (base32 "1dh5pwa0lhm1a5nvq5abwkqndivk37af5v3a4gj9g6bvpi8zg5rk")))) (sha256
(build-system python-build-system) (base32
(home-page "https://github.com/jtesta/ssh-audit") "1dh5pwa0lhm1a5nvq5abwkqndivk37af5v3a4gj9g6bvpi8zg5rk"))))
(synopsis "An SSH server & client configuration security auditing tool") (build-system python-build-system)
(description "An SSH server & client configuration security auditing tool") (home-page "https://github.com/jtesta/ssh-audit")
(license #f))) (synopsis "An SSH server & client configuration security auditing tool")
(description "An SSH server & client configuration security auditing tool")
(license #f)))

14
glicid/packages/rust.scm
View file

@ -1,11 +1,11 @@
(define-module (glicid packages rust) (define-module (glicid packages rust)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix build-system cargo) #:use-module (guix build-system cargo)
#:use-module (gnu packages crates-io) #:use-module (gnu packages crates-io)
#:use-module (gnu packages crates-graphics) #:use-module (gnu packages crates-graphics)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses)
) #:prefix license:))
; ;
;(define rust-clippy-0.0.302 rust-clippy-0.0) ;(define rust-clippy-0.0.302 rust-clippy-0.0)
;(define rust-unicode-xid-0.0.4 rust-unicode-xid-0.0) ;(define rust-unicode-xid-0.0.4 rust-unicode-xid-0.0)

249
glicid/packages/science.scm
View file

@ -1,136 +1,135 @@
(define-module (glicid packages science) (define-module (glicid packages science)
#:use-module (guix licenses) #:use-module (guix licenses)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module (guix build utils) #:use-module (guix build utils)
#:use-module (guix build-system cmake) #:use-module (guix build-system cmake)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (gnu packages pkg-config) #:use-module (gnu packages pkg-config)
#:use-module (gnu packages qt) #:use-module (gnu packages qt)
#:use-module (gnu packages gl) #:use-module (gnu packages gl)
#:use-module (gnu packages boost) #:use-module (gnu packages boost)
#:use-module (gnu packages algebra) #:use-module (gnu packages algebra)
#:use-module (gnu packages gdb) #:use-module (gnu packages gdb)
#:use-module (gnu packages sqlite) #:use-module (gnu packages sqlite)
#:use-module (gnu packages image-processing) #:use-module (gnu packages image-processing)
#:use-module (gnu packages graphics) #:use-module (gnu packages graphics)
#:use-module (gnu packages maths) #:use-module (gnu packages maths)
#:use-module (gnu packages mpi) #:use-module (gnu packages mpi)
#:use-module (gnu packages python) #:use-module (gnu packages python)
#:use-module (gnu packages python-xyz) #:use-module (gnu packages python-xyz)
#:use-module (gnu packages sphinx) #:use-module (gnu packages sphinx)
#:use-module (gnu packages commencement) #:use-module (gnu packages commencement)
#:use-module (gnu packages graphviz) #:use-module (gnu packages graphviz)
#:use-module (gnu packages multiprecision) #:use-module (gnu packages multiprecision)
#:use-module (glicid packages mpi) #:use-module (glicid packages mpi)
#:use-module (glicid utils) #:use-module (glicid utils))
)
(define-public loki (define-public loki
(package (package
(name "loki") (name "loki")
(version "0.1.7") (version "0.1.7")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append
(uri (string-append "https://downloads.sourceforge.net/project/loki-lib/Loki/Loki%200.1.7/loki-" version ".zip")) "https://downloads.sourceforge.net/project/loki-lib/Loki/Loki%200.1.7/loki-"
(sha256 version ".zip"))
(base32 "0p23k4dipk5nnfpvhhqj9apz8rhnd62qdydjmzx8q78sxpwims4w")))) (sha256
(build-system gnu-build-system) (base32
(inputs "0p23k4dipk5nnfpvhhqj9apz8rhnd62qdydjmzx8q78sxpwims4w"))))
`(("gcc-toolchain" ,gcc-toolchain))) (build-system gnu-build-system)
(synopsis "Loki is a C++ library of designs, containing flexible implementations of common design patterns and idioms.") (inputs `(("gcc-toolchain" ,gcc-toolchain)))
(description (synopsis
"Loki is the name of a C++ software library written by Andrei Alexandrescu as part of his book Modern C++ Design. "Loki is a C++ library of designs, containing flexible implementations of common design patterns and idioms.")
(description
"Loki is the name of a C++ software library written by Andrei Alexandrescu as part of his book Modern C++ Design.
The library makes extensive use of C++ template metaprogramming and implements several commonly used tools: typelist, functor, singleton, smart pointer, object factory, visitor and multimethods.") The library makes extensive use of C++ template metaprogramming and implements several commonly used tools: typelist, functor, singleton, smart pointer, object factory, visitor and multimethods.")
(home-page "http://loki-lib.sourceforge.net/index.php?n=Main.HomePage") (home-page "http://loki-lib.sourceforge.net/index.php?n=Main.HomePage")
(license gpl3+))) (license gpl3+)))
(define-public yade (define-public yade
(package (package
(name "yade") (name "yade")
(version "2022.01a") (version "2022.01a")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://gitlab.com/yade-dev/trunk/-/archive/2022.01a/trunk-" version ".tar.gz")) (uri (string-append
(sha256 "https://gitlab.com/yade-dev/trunk/-/archive/2022.01a/trunk-"
(base32 version ".tar.gz"))
"0k4hnvi70cqzl0q54kkbij6jwxydhfwcacp9s49n3fkaf1dihxiv")))) (sha256
(build-system cmake-build-system) (base32
(arguments "0k4hnvi70cqzl0q54kkbij6jwxydhfwcacp9s49n3fkaf1dihxiv"))))
`(#:configure-flags (build-system cmake-build-system)
(list "-DENABLE_POTENTIAL_BLOCKS=OFF" (arguments
(string-append "-DCMAKE_INSTALL_PREFIX=" `(#:configure-flags (list "-DENABLE_POTENTIAL_BLOCKS=OFF"
(assoc-ref %outputs "out")) (string-append "-DCMAKE_INSTALL_PREFIX="
(string-append "-DQGLVIEWER_INCLUDE_DIR=" (assoc-ref %outputs "out"))
(assoc-ref %build-inputs "libqglviewer"))) (string-append "-DQGLVIEWER_INCLUDE_DIR="
;;(string-append "-DQGLVIEWER_INCLUDE_DIR=" (assoc-ref %build-inputs
;;libqglviewer)))) "libqglviewer")))
#:phases ;; (string-append "-DQGLVIEWER_INCLUDE_DIR="
(modify-phases %standard-phases ;; libqglviewer))))
(add-after 'unpack 'post-unpack #:phases (modify-phases %standard-phases
(lambda* (#:key outputs inputs #:allow-other-keys) (add-after 'unpack 'post-unpack
(mkdir-p "./build") (lambda* (#:key outputs inputs #:allow-other-keys)
(chdir "./build"))) (mkdir-p "./build")
(replace 'configure (chdir "./build")))
(lambda* (#:key inputs outputs configure-flags #:allow-other-keys) (replace 'configure
(let ((out (assoc-ref outputs "out"))) (lambda* (#:key inputs outputs configure-flags
(apply invoke "cmake" "../" configure-flags))))) #:allow-other-keys)
#:tests? #f)) (let ((out (assoc-ref outputs "out")))
;;(lambda _ (invoke (apply invoke "cmake" "../" configure-flags)))))
;;"cmake" "../trunk" #:tests? #f))
;;configure-flags)))))) ;; (lambda _ (invoke
(propagated-inputs ;; "cmake" "../trunk"
`(("gdb" ,gdb) ;; configure-flags))))))
("sqlite" ,sqlite) (propagated-inputs `(("gdb" ,gdb)
("openmpi" ,openmpi) ("sqlite" ,sqlite)
("python" ,python) ("openmpi" ,openmpi)
("python-numpy" ,python-numpy) ("python" ,python)
("python-matplotlib" ,python-matplotlib) ("python-numpy" ,python-numpy)
("python-sphinx" ,python-sphinx) ("python-matplotlib" ,python-matplotlib)
("python-ipython" ,python-ipython) ("python-sphinx" ,python-sphinx)
("python-mpi4py" ,python-mpi4py) ("python-ipython" ,python-ipython)
("python-mpmath" ,python-mpmath) ("python-mpi4py" ,python-mpi4py)
("python-pygraphviz" ,python-pygraphviz) ("python-mpmath" ,python-mpmath)
("python-xlib" ,python-xlib) ("python-pygraphviz" ,python-pygraphviz)
("python-future" ,python-future) ("python-xlib" ,python-xlib)
("python-pyqt" ,python-pyqt) ("python-future" ,python-future)
("python-pyqtwebengine" ,python-pyqtwebengine) ("python-pyqt" ,python-pyqt)
("python-qtpy" ,python-qtpy)) ("python-pyqtwebengine" ,python-pyqtwebengine)
) ("python-qtpy" ,python-qtpy)))
(inputs (inputs `(("boost" ,boost)
`(("boost" ,boost) ("qtbase-5" ,qtbase-5)
("qtbase-5",qtbase-5) ;; ("qt" ,qt)
;;("qt" ,qt) ("freeglut" ,freeglut)
("freeglut" ,freeglut) ("gts" ,gts)
("gts" ,gts) ("pkg-config" ,pkg-config)
("pkg-config" ,pkg-config) ("libqglviewer" ,libqglviewer)
("libqglviewer" ,libqglviewer) ("eigen" ,eigen)
("eigen" ,eigen) ;; ("loki" ,loki)
;;("loki" ,loki) ;; ("vtk" ,vtk)
;;("vtk" ,vtk) ("qtwebkit" ,qtwebkit)
("qtwebkit" ,qtwebkit) ("openblas" ,openblas)
("openblas" ,openblas) ("suitesparse" ,suitesparse)
("suitesparse" ,suitesparse) ("gcc-toolchain" ,gcc-toolchain)
("gcc-toolchain" ,gcc-toolchain) ("metis" ,metis)
("metis" ,metis) ("cgal" ,cgal)
("cgal" ,cgal) ("qtsvg" ,qtsvg)
("qtsvg" ,qtsvg) ("qtwebengine" ,qtwebengine)
("qtwebengine" ,qtwebengine) ("mpfr" ,mpfr)))
("mpfr" ,mpfr))
)
(synopsis "Yade is an extensible open-source framework for discrete numerical models, focused on Discrete Element Method.") (synopsis
(description "Yade is an extensible open-source framework for discrete numerical models, focused on Discrete Element Method.")
"Yade is an extensible open-source framework for discrete numerical models, focused on Discrete Element Method. The computation parts are written in c++ using flexible object model, allowing independent implementation of new algorithms and interfaces. Python is used for rapid and concise scene construction, simulation control, postprocessing and debugging.") (description
(home-page "https://www.yade-dem.org/") "Yade is an extensible open-source framework for discrete numerical models, focused on Discrete Element Method. The computation parts are written in c++ using flexible object model, allowing independent implementation of new algorithms and interfaces. Python is used for rapid and concise scene construction, simulation control, postprocessing and debugging.")
(license gpl3+))) (home-page "https://www.yade-dem.org/")
(license gpl3+)))
(define-public yade-glicid-waves (define-public yade-glicid-waves
(package (package
(inherit (transform-package ((instead-of "openmpi-glicid-waves" openmpi) yade) "waves")) (inherit (transform-package ((instead-of "openmpi-glicid-waves" openmpi)
(name "yade-glicid-waves") yade) "waves"))
) (name "yade-glicid-waves")))
)

189
glicid/packages/ssh.scm
View file

@ -1,97 +1,104 @@
(define-module (glicid packages ssh) (define-module (glicid packages ssh)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module (guix build-system cmake) #:use-module (guix build-system cmake)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses)
#:use-module (gnu packages ssh) #:prefix license:)
#:use-module (gnu packages hurd) #:use-module (gnu packages ssh)
#:use-module (gnu packages tls) #:use-module (gnu packages hurd)
#:use-module (gnu packages compression) #:use-module (gnu packages tls)
#:use-module (gnu packages pkg-config) #:use-module (gnu packages compression)
#:use-module (gnu packages linux) #:use-module (gnu packages pkg-config)
#:use-module (gnu packages security-token) #:use-module (gnu packages linux)
) #:use-module (gnu packages security-token))
(define-public libcbor-0.8.0 (define-public libcbor-0.8.0
(package (package
(name "libcbor") (name "libcbor")
(version "0.8.0") (version "0.8.0")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append
(uri (string-append "http://github.com/PJK/libcbor/archive/refs/tags/v" version ".tar.gz")) "http://github.com/PJK/libcbor/archive/refs/tags/v"
(sha256 (base32 "12vw46ahhsc3ydnivkv5lvk1cn4sjjmcr639cjcl99d4dqb9g031")))) version ".tar.gz"))
(build-system cmake-build-system) (sha256
(arguments (base32
`(#:configure-flags (list "12vw46ahhsc3ydnivkv5lvk1cn4sjjmcr639cjcl99d4dqb9g031"))))
"-DCMAKE_CXX_FLAGS=-fPIE" (build-system cmake-build-system)
"-DCMAKE_C_FLAGS=-fPIE" ))) (arguments
(synopsis "libfido2") `(#:configure-flags (list "-DCMAKE_CXX_FLAGS=-fPIE"
(description "Todo") "-DCMAKE_C_FLAGS=-fPIE")))
(home-page "toto") (synopsis "libfido2")
(license license:gpl2+))) (description "Todo")
(home-page "toto")
(license license:gpl2+)))
(define-public libcbor-0.9.0 (define-public libcbor-0.9.0
(package (package
(inherit libcbor-0.8.0) (inherit libcbor-0.8.0)
(version "0.9.0") (version "0.9.0")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append
(uri (string-append "http://github.com/PJK/libcbor/archive/refs/tags/v" version ".tar.gz")) "http://github.com/PJK/libcbor/archive/refs/tags/v"
(sha256 (base32 "1l8m7h84zwlx088gkz6gvg2fq11g0p3q6lblwba8c01y6gwy90fs")))))) version ".tar.gz"))
(sha256
(base32
"1l8m7h84zwlx088gkz6gvg2fq11g0p3q6lblwba8c01y6gwy90fs"))))))
(define-public libcbor-latest libcbor-0.9.0) (define-public libcbor-latest
libcbor-0.9.0)
(define-public openssh-with-fido2 ;; this is has to be worked again (define-public openssh-with-fido2
(package ;this is has to be worked again
(inherit openssh) (package
(name "openssh-with-fido2") (inherit openssh)
(arguments `( (name "openssh-with-fido2")
#:test-target "tests" (arguments
#:make-flags '("REGRESSTMP=\"$${BUILDDIR}/regress\"") `(#:test-target "tests"
#:configure-flags `( #:make-flags '("REGRESSTMP=\"$${BUILDDIR}/regress\"")
"--sysconfdir=/etc/ssh" #:configure-flags `("--sysconfdir=/etc/ssh"
"--with-default-path=/run/current-system/profile/bin" "--with-default-path=/run/current-system/profile/bin"
,(string-append "--with-kerberos5=" (assoc-ref %build-inputs "mit-krb5") "/bin") ,(string-append "--with-kerberos5="
"--with-libedit" (assoc-ref %build-inputs "mit-krb5")
"--with-security-key-builtin" "/bin")
,,@(if (hurd-target?) "--with-libedit"
'() "--with-security-key-builtin"
'("--with-pam")) ,,@(if (hurd-target?)
,,@(if (%current-target-system) '()
'("--disable-strip") '("--with-pam"))
'())) ,,@(if (%current-target-system)
#:phases '("--disable-strip")
(modify-phases %standard-phases '()))
(add-after 'configure 'reset-/var/empty #:phases (modify-phases %standard-phases
(lambda* (#:key outputs #:allow-other-keys) (add-after 'configure 'reset-/var/empty
(let ((out (assoc-ref outputs "out"))) (lambda* (#:key outputs #:allow-other-keys)
(substitute* (let ((out (assoc-ref outputs "out")))
"Makefile" (substitute* "Makefile"
(("PRIVSEP_PATH=/var/empty") (string-append "PRIVSEP_PATH=" out "/var/empty")) (("PRIVSEP_PATH=/var/empty")
) (string-append "PRIVSEP_PATH=" out "/var/empty")))
#t ))) #t)))
(add-before 'check 'patch-tests (add-before 'check 'patch-tests
(lambda _ (lambda _
(substitute* "regress/test-exec.sh" (("/bin/sh") (which "sh"))) (substitute* "regress/test-exec.sh"
(substitute* (("/bin/sh")
(list "Makefile" "regress/Makefile") (which "sh")))
(("^(tests:.*) t-exec(.*)" all pre post) (string-append pre post))) (substitute* (list "Makefile" "regress/Makefile")
#t )) (("^(tests:.*) t-exec(.*)" all pre post)
(replace 'install (string-append pre post))) #t))
(lambda* (replace 'install
( (lambda* (#:key outputs
#:key outputs (make-flags '()) (make-flags '()) #:allow-other-keys)
#:allow-other-keys (apply invoke "make" "install-nosysconf" make-flags)
) (install-file "contrib/ssh-copy-id"
(apply invoke "make" "install-nosysconf" make-flags) (string-append (assoc-ref outputs "out")
(install-file "contrib/ssh-copy-id" (string-append (assoc-ref outputs "out") "/bin/")) "/bin/"))
(chmod (string-append (assoc-ref outputs "out") "/bin/ssh-copy-id") #o555) (chmod (string-append (assoc-ref outputs "out")
(install-file "contrib/ssh-copy-id.1" (string-append (assoc-ref outputs "out") "/share/man/man1/")) "/bin/ssh-copy-id") #o555)
#t ))))) (install-file "contrib/ssh-copy-id.1"
(inputs `( (string-append (assoc-ref outputs "out")
("libfido2", libfido2) "/share/man/man1/")) #t)))))
("libcbor", libcbor) (inputs `(("libfido2" ,libfido2)
,@(package-inputs openssh))))) ("libcbor" ,libcbor)
,@(package-inputs openssh)))))

85
glicid/packages/virtualization.scm
View file

@ -1,50 +1,51 @@
(define-module (glicid packages virtualization) (define-module (glicid packages virtualization)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix gexp) #:use-module (guix gexp)
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module (gnu packages virtualization) #:use-module (gnu packages virtualization)
#:use-module (gnu packages storage) #:use-module (gnu packages storage)
#:use-module (guix download) #:use-module (guix download)
#:use-module (glicid utils)) #:use-module (glicid utils))
(define-public qemu-latest qemu) (define-public qemu-latest
(define-public qemu-minimal-latest qemu-minimal) qemu)
(define-public qemu-minimal-latest
qemu-minimal)
(define-public qemu-with-rbd (define-public qemu-with-rbd
(package (package
(inherit qemu-latest) (inherit qemu-latest)
(name "qemu-with-rbd") (name "qemu-with-rbd")
(arguments (arguments
(substitute-keyword-arguments (substitute-keyword-arguments (package-arguments qemu)
(package-arguments qemu) ((#:tests? _ #f)
((#:tests? _ #f) #f)))
#f))) (inputs `(("ceph:lib" ,ceph "lib")
(inputs `( ,@(package-inputs qemu)))))
("ceph:lib", ceph "lib")
,@(package-inputs qemu)))))
(define-public qemu-minimal-with-rbd (define-public qemu-minimal-with-rbd
(package (package
(inherit qemu-minimal-latest) (inherit qemu-minimal-latest)
(name "qemu-minimal-with-rbd") (name "qemu-minimal-with-rbd")
(arguments (arguments
(substitute-keyword-arguments (substitute-keyword-arguments `(#:tests? #f
`( ,@(package-arguments qemu-minimal))
#:tests? #f ))
,@(package-arguments qemu-minimal)))) (inputs `(("ceph:lib" ,ceph "lib")
(inputs `( ,@(package-inputs qemu-minimal)))))
("ceph:lib", ceph "lib" )
,@(package-inputs qemu-minimal)))))
(define-public libvirt-8.5 (define-public libvirt-8.5
(package (package
(inherit libvirt) (inherit libvirt)
(name "libvirt") (name "libvirt")
(version "8.5.0") (version "8.5.0")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append "https://libvirt.org/sources/libvirt-"
(uri (string-append "https://libvirt.org/sources/libvirt-" version ".tar.xz")) version ".tar.xz"))
(sha256 (base32 "0qnvjy7k4l52bb5xylvhm21blkgbhld0jzilhsdf6gdqw6srj7j0")) (sha256
(patches (search-patches "glicid/packages/patches/glicid-libvirt-add-install-prefix.patch")))))) (base32
"0qnvjy7k4l52bb5xylvhm21blkgbhld0jzilhsdf6gdqw6srj7j0"))
(patches (search-patches
"glicid/packages/patches/glicid-libvirt-add-install-prefix.patch"))))))

7
glicid/packages/vpn.scm
View file

@ -1,9 +1,8 @@
(define-module (glicid packages vpn) (define-module (glicid packages vpn)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module ((gnu packages vpn) #:prefix gnu:) #:use-module ((gnu packages vpn)
#:use-module (guix download) #:prefix gnu:)
) #:use-module (guix download))
; guix defined openconnect is now newer ; guix defined openconnect is now newer