mirror of
https://gitlab.univ-nantes.fr/glicid-public/guix-glicid.git
synced 2025-04-30 14:18:38 +02:00
76 lines
1.7 KiB
Scheme
76 lines
1.7 KiB
Scheme
(define-module (glicid packages virtualization)
|
|
#:use-module (guix packages)
|
|
#:use-module (guix utils)
|
|
#:use-module (gnu packages virtualization)
|
|
#:use-module (gnu packages storage)
|
|
#:use-module (guix download)
|
|
#:use-module (glicid utils)
|
|
|
|
; #:use-module (glicid packages storage)
|
|
)
|
|
|
|
|
|
(define-public qemu-7.0-upstream
|
|
(package
|
|
(inherit qemu)
|
|
(name "qemu-upstream")
|
|
(version "7.0")
|
|
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append "https://download.qemu.org/qemu-"
|
|
version ".tar.xz"))
|
|
(sha256
|
|
(base32
|
|
"0iavlsy9hin8k38230j8lfmyipx3965zljls1dp34mmc8n75vqb8"))
|
|
(patches (search-patches "qemu-build-info-manual.patch"
|
|
"qemu-fix-agent-paths.patch"))
|
|
(modules '((guix build utils)))
|
|
(snippet
|
|
'(begin
|
|
;; Delete the bundled meson copy.
|
|
(delete-file-recursively "meson")))))
|
|
|
|
|
|
)
|
|
)
|
|
|
|
(define local-qemu qemu-7.0-upstream)
|
|
|
|
(define qemu-latest (latest-version local-qemu 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
|
|
(package
|
|
(inherit qemu-minimal)
|
|
(name "qemu-minimal-with-rbd")
|
|
(arguments
|
|
(substitute-keyword-arguments `(
|
|
#:tests? #f
|
|
,@(package-arguments qemu-minimal)
|
|
))
|
|
)
|
|
(inputs `(
|
|
("ceph:lib", ceph "lib" )
|
|
,@(package-inputs qemu-minimal)
|
|
))
|
|
)
|
|
)
|