[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
09/21: system: vm: Initial vm-image support for the Hurd.
From: |
guix-commits |
Subject: |
09/21: system: vm: Initial vm-image support for the Hurd. |
Date: |
Sun, 10 May 2020 10:07:38 -0400 (EDT) |
janneke pushed a commit to branch wip-hurd-vm
in repository guix.
commit 6a98dfde7b3b7336380050ba72cb0e9612b84759
Author: Jan (janneke) Nieuwenhuizen <address@hidden>
AuthorDate: Thu Apr 30 15:40:26 2020 +0200
system: vm: Initial vm-image support for the Hurd.
* gnu/system/vm.scm (system-qemu-image): When building for the Hurd, add
hurd-directives.
---
gnu/system/vm.scm | 18 +++++++++++++++++-
1 file changed, 17 insertions(+), 1 deletion(-)
diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm
index 48cc3d2..33e1c18 100644
--- a/gnu/system/vm.scm
+++ b/gnu/system/vm.scm
@@ -650,7 +650,22 @@ of the GNU system as described by OS."
(device root-uuid)
(type file-system-type))
file-systems-to-keep))))
- (bootcfg (operating-system-bootcfg os)))
+ (bootcfg (operating-system-bootcfg os))
+ (hurd (operating-system-hurd os))
+ (target (%current-target-system))
+ (hurd (and hurd (if target
+ (with-parameters ((%current-target-system target))
+ hurd)
+ hurd)))
+ (hurd-directives (if hurd
+ `((directory "/servers")
+ ,@(map (lambda (server)
+ `(file ,(string-append "/servers/"
server)))
+ '("startup" "exec" "proc" "password"
+ "default-pager" "crash-dump-core"
+ "kill" "suspend"))
+ ("/hurd" -> ,(file-append hurd "/hurd")))
+ '())))
(qemu-image #:os os
#:bootcfg-drv bootcfg
#:bootloader (bootloader-configuration-bootloader
@@ -660,6 +675,7 @@ of the GNU system as described by OS."
#:file-system-uuid root-uuid
#:inputs `(("system" ,os)
("bootcfg" ,bootcfg))
+ #:extra-directives hurd-directives
#:copy-inputs? #t)))
- 06/21: bootleader: Add `<hurd-menu-entry>'., (continued)
- 06/21: bootleader: Add `<hurd-menu-entry>'., guix-commits, 2020/05/10
- 01/21: syscalls: Adjust 'sockaddr-in', 'sockaddr-in6' structs for the Hurd., guix-commits, 2020/05/10
- 04/21: system: hurd: Add hurd-default-essential-services., guix-commits, 2020/05/10
- 05/21: system: Add 'hurd' field to <operating-system>., guix-commits, 2020/05/10
- 07/21: system: Add 'hurd' field to <boot-parameters>., guix-commits, 2020/05/10
- 12/21: services: hurd: Add `hurd-etc-service'., guix-commits, 2020/05/10
- 14/21: services: hurd: Use activation-service, hurd-etc-service., guix-commits, 2020/05/10
- 08/21: bootloader: grub: Add support for '<hurd-menu-entry>'., guix-commits, 2020/05/10
- 10/21: system: Use 'hurd' package in label., guix-commits, 2020/05/10
- 13/21: system: Add `hurd-activation'., guix-commits, 2020/05/10
- 09/21: system: vm: Initial vm-image support for the Hurd.,
guix-commits <=
- 15/21: gnu: hurd: Create minimal "runsystem" script to invoke "rc"., guix-commits, 2020/05/10
- 21/21: gnu: guix: Update to 3e632091f0., guix-commits, 2020/05/10
- 20/21: DRAFT: system: vm: Activate the Hurd., guix-commits, 2020/05/10
- 11/21: system: examples: Add bare-hurd.tmpl., guix-commits, 2020/05/10
- 16/21: services: Add `hurd-console-service-type'., guix-commits, 2020/05/10
- 17/21: services: Add `hurd-getty-service-type'., guix-commits, 2020/05/10
- 18/21: WIP: gnu: services: Add `%hurd-bare-metal-service'., guix-commits, 2020/05/10
- 19/21: DRAFT: system: hurd: Populate services., guix-commits, 2020/05/10