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

correction

Browse source
This commit is contained in:
Yann Dupont 2023-05-25 15:49:08 +02:00
parent 3a84e074ca
commit c6575c5d75
1 changed files with 11 additions and 63 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

74
glicid/services/virtualization.scm
View file

@ -1,8 +1,8 @@
(define-module (glicid services virtualization)
#:use-module (gnu services)
#:use-module (gnu services shepherd)
#:use-module ((gnu services virtualization) #:prefix gnu)
#:use-module ((gnu packages virtualization) #:prefix gnu)
#:use-module ((gnu services virtualization) #:prefix gnu:)
#:use-module ((gnu packages virtualization) #:prefix gnu:)
; #:use-module (guix records)
; #:use-module (guix utils)
#:use-module (guix gexp) ;; file-like?
@ -13,63 +13,6 @@
)
;;;
;;; Redef QEMU guest agent service.
;;;
;(define (serialize-field field-name val)
; (format #t "~a = ~a\n" (uglify-field-name field-name) val))
;(define (serialize-string field-name val)
; (serialize-field field-name (quote-val val)))
;;
;(define-configuration qemu-guest-agent-configuration
; (qemu
; (file-like gnu:qemu-minimal)
; "QEMU package.")
; (device
; (string "")
; "Path to device or socket used to communicate with the host. If not
;specified, the QEMU default path is used."))
;(define (qemu-guest-agent-shepherd-service config)
; (let ((qemu (qemu-guest-agent-configuration-qemu config))
; (device (qemu-guest-agent-configuration-device config)))
; (list
; (shepherd-service
; (provision '(qemu-guest-agent))
; (documentation "Run the QEMU guest agent.")
; (start #~(make-forkexec-constructor
; `(,(string-append #$qemu "/bin/qemu-ga")
; "--statedir" "/var/run"
; ,@(if (string-null? #$device)
; '()
; (list "--path" #$device)))
; #:log-file "/var/log/qemu-ga.log"))
; (stop #~(make-kill-destructor))))))
;(define (qemu-guest-agent-shepherd-service config)
; (let ((qemu (qemu-guest-agent-configuration-qemu config))
; (device (qemu-guest-agent-configuration-device config)))
; (list
; (shepherd-service
; (provision '(qemu-guest-agent))
; (requirement '(udev)) ;; GLiCID
; (documentation "Run the QEMU guest agent.")
; (start #~(make-forkexec-constructor
; `(,(string-append #$qemu "/bin/qemu-ga")
; "--statedir" "/var/run"
; ,@(if (string-null? #$device)
; '()
; (list "--path" #$device)))
; #:log-file "/var/log/qemu-ga.log"))
; (stop #~(make-kill-destructor))))))
(define (qemu-guest-agent-shepherd-service config)
(inherit gnu:qemu-guest-agent-shepherd-service)
@ -77,12 +20,17 @@
)
;(define qemu-guest-agent-service-type
; (service-type
(define qemu-guest-agent-service-type
(service-type
(inherit gnu:qemu-guest-agent-service-type)
(extensions
(list (service-extension shepherd-root-service-type
qemu-guest-agent-shepherd-service)))
))
; (name 'qemu-guest-agent)
; (extensions
; (list (service-extension shepherd-root-service-type
; qemu-guest-agent-shepherd-service)))
; (default-value (qemu-guest-agent-configuration))
; (default-value (gnu:qemu-guest-agent-configuration))
; (description "Run the QEMU guest agent.")))