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

rewrite virtualization.scm

Browse source
This commit is contained in:
Jean-François GUILLAUME 2022-12-13 15:31:30 +01:00
parent 16ae2d732c
commit 92b9df92b0
Signed by: Jean-François GUILLAUME
GPG key ID: 38751DAE145EFB5A
1 changed files with 40 additions and 89 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

129
glicid/packages/virtualization.scm
View file

@ -1,99 +1,50 @@
(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))
; #:use-module (glicid packages storage)
)
;(define local-qemu qemu-7.0-upstream)
;(define qemu-latest (latest-version local-qemu qemu))
;(define local-qemu-minimal qemu-minimal-7.0-upstream)
;(define qemu-minimal-latest (latest-version local-qemu-minimal qemu-minimal))
;; current guix version is latest.
(define-public qemu-latest qemu) (define-public qemu-latest qemu)
(define-public qemu-minimal-latest qemu-minimal) (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)
;; FIXME: To run the test suite, fix all the instances where scripts #f)))
;; generates "#! /bin/sh" shebangs. (inputs `(
#f) ("ceph:lib", ceph "lib")
) ,@(package-inputs qemu)))))
)
(inputs `(
("ceph:lib", ceph "lib")
,@(package-inputs qemu)
))
)
)
;(define-public qemu-with-rbd
; (package
; (inherit qemu-latest)
; (name "qemu-with-rbd")
; (arguments
; (substitute-keyword-arguments `(
; #:tests? #f
; ,@(package-arguments qemu)
; ))
; )
; (inputs `(
; ("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 `(
(inputs `( ("ceph:lib", ceph "lib" )
("ceph:lib", ceph "lib" ) ,@(package-inputs qemu-minimal)))))
,@(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-" version ".tar.xz")) (uri (string-append "https://libvirt.org/sources/libvirt-" version ".tar.xz"))
(sha256 (base32 "0qnvjy7k4l52bb5xylvhm21blkgbhld0jzilhsdf6gdqw6srj7j0")) (sha256 (base32 "0qnvjy7k4l52bb5xylvhm21blkgbhld0jzilhsdf6gdqw6srj7j0"))
(patches (search-patches "glicid/packages/patches/glicid-libvirt-add-install-prefix.patch")) (patches (search-patches "glicid/packages/patches/glicid-libvirt-add-install-prefix.patch"))))))
)
)
)
)