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

updating qemu

Browse source
This commit is contained in:
Jean-François GUILLAUME 2024-02-17 15:31:16 +00:00
parent 2ed4450ac2
commit bd64cbbab0
1 changed files with 74 additions and 31 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

43
glicid/packages/virtualization.scm
View file

@ -16,7 +16,29 @@
(define-public qemu-with-rbd (define-public qemu-with-rbd
(package (package
(inherit qemu-latest) (inherit qemu-latest)
(version "8.2.1")
(name "qemu-with-rbd") (name "qemu-with-rbd")
(source
(origin
(method url-fetch)
(uri (string-append "https://download.qemu.org/qemu-"version ".tar.xz"))
(sha256 (base32 "1gi9fyc6sk632bnqqp1jy1qciqxbamsva8jzghc9spqpb08paql5"))
(patches (search-patches "qemu-disable-some-qtests-tests.patch"
"qemu-fix-agent-paths.patch"))
(modules '((guix build utils)))
(snippet
'(begin
(with-directory-excursion "pc-bios"
(for-each delete-file (find-files "." "^(bios|vgabios).*\\.bin$"))
(delete-file "openbios-ppc")
(delete-file "opensbi-riscv64-generic-fw_dynamic.bin")
(for-each delete-file (find-files "." "^(efi|pxe)-.*\\.rom$")))
(for-each delete-file-recursively
'("subprojects/dtc"
"roms/ipxe"
"roms/openbios"
"roms/opensbi"
"roms/seabios"))))))
(arguments (arguments
(substitute-keyword-arguments (package-arguments qemu) (substitute-keyword-arguments (package-arguments qemu)
((#:tests? _ #f) ((#:tests? _ #f)
@ -27,7 +49,28 @@
(define-public qemu-minimal-with-rbd (define-public qemu-minimal-with-rbd
(package (package
(inherit qemu-minimal-latest) (inherit qemu-minimal-latest)
(version "8.2.1")
(name "qemu-minimal-with-rbd") (name "qemu-minimal-with-rbd")
(source
(origin
(method url-fetch)
(uri (string-append "https://download.qemu.org/qemu-"version ".tar.xz"))
(sha256 (base32 "1gi9fyc6sk632bnqqp1jy1qciqxbamsva8jzghc9spqpb08paql5"))
(patches (search-patches "qemu-fix-agent-paths.patch"))
(modules '((guix build utils)))
(snippet
'(begin
(with-directory-excursion "pc-bios"
(for-each delete-file (find-files "." "^(bios|vgabios).*\\.bin$"))
(delete-file "openbios-ppc")
(delete-file "opensbi-riscv64-generic-fw_dynamic.bin")
(for-each delete-file (find-files "." "^(efi|pxe)-.*\\.rom$")))
(for-each delete-file-recursively
'("subprojects/dtc"
"roms/ipxe"
"roms/openbios"
"roms/opensbi"
"roms/seabios"))))))
(arguments (arguments
(substitute-keyword-arguments `(#:tests? #f (substitute-keyword-arguments `(#:tests? #f
,@(package-arguments qemu-minimal)) ,@(package-arguments qemu-minimal))