amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: qemu: Enable execlog disassembly.

Browse source 
* gnu/packages/virtualization.scm (qemu)[inputs]: Add capstone.
[arguments]<#:phases>[install-plugins]: Install contrib.

Closes: #2081
Change-Id: I47365707e58a7b61e0d7195e48f819f0a1551f84
This commit is contained in:
Danny Milosavljevic 2025-08-19 01:36:15 +02:00
parent db6361bc2b
commit dd2ec4ecd0
No known key found for this signature in database
GPG key ID: E71A35542C30BAA5
1 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
gnu/packages/virtualization.scm
View file

@ -93,6 +93,7 @@
#:use-module (gnu packages dns) #:use-module (gnu packages dns)
#:use-module (gnu packages docbook) #:use-module (gnu packages docbook)
#:use-module (gnu packages documentation) #:use-module (gnu packages documentation)
#:use-module (gnu packages engineering)
#:use-module (gnu packages figlet) #:use-module (gnu packages figlet)
#:use-module (gnu packages file) #:use-module (gnu packages file)
#:use-module (gnu packages firmware) #:use-module (gnu packages firmware)
@ -461,6 +462,16 @@
(lambda args (lambda args
(with-directory-excursion "../user-static" (with-directory-excursion "../user-static"
(apply (assoc-ref %standard-phases 'build) args)))) (apply (assoc-ref %standard-phases 'build) args))))
(add-after 'install 'install-plugins
(lambda* (#:key outputs #:allow-other-keys)
(let ((plugin-dir (string-append
(assoc-ref outputs "out")
"/lib/qemu/plugins")))
(mkdir-p plugin-dir)
(with-directory-excursion "contrib/plugins"
(for-each
(cut install-file <> plugin-dir)
(find-files "." "\\.so$"))))))
(add-after 'install 'install-user-static (add-after 'install 'install-user-static
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((static-bin (string-append (let ((static-bin (string-append
@ -523,6 +534,7 @@ exec smbd $@")))
'()) '())
(list alsa-lib (list alsa-lib
bash-minimal bash-minimal
capstone
dtc dtc
glib glib
gnutls ;for qcow2 disk encryption gnutls ;for qcow2 disk encryption