[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
07/24: bootloader: Add `<hurd-menu-entry>'.
From: |
guix-commits |
Subject: |
07/24: bootloader: Add `<hurd-menu-entry>'. |
Date: |
Sun, 17 May 2020 06:00:51 -0400 (EDT) |
janneke pushed a commit to branch wip-hurd-vm
in repository guix.
commit 374f2a67f7f9b466e47d0b8056fbcbc03cf493ed
Author: Jan (janneke) Nieuwenhuizen <address@hidden>
AuthorDate: Sun May 10 13:12:09 2020 +0200
bootloader: Add `<hurd-menu-entry>'.
* gnu/bootloader.scm (<hurd-menu-entry>): New record.
(menu-entry->sexp,sexp->menu-entry): Support it.
---
gnu/bootloader.scm | 40 ++++++++++++++++++++++++++++++++++++++--
1 file changed, 38 insertions(+), 2 deletions(-)
diff --git a/gnu/bootloader.scm b/gnu/bootloader.scm
index 01bdd4a..e22d863 100644
--- a/gnu/bootloader.scm
+++ b/gnu/bootloader.scm
@@ -34,6 +34,14 @@
menu-entry-initrd
menu-entry-device-mount-point
+ hurd-menu-entry
+ hurd-menu-entry?
+ hurd-menu-entry-label
+ hurd-menu-entry-device
+ hurd-menu-entry-mach
+ hurd-menu-entry-hurd
+ hurd-menu-entry-device-mount-point
+
menu-entry->sexp
sexp->menu-entry
@@ -81,6 +89,17 @@
(default '())) ; list of string-valued gexps
(initrd menu-entry-initrd)) ; file name of the initrd as a gexp
+(define-record-type* <hurd-menu-entry>
+ hurd-menu-entry make-hurd-menu-entry
+ hurd-menu-entry?
+ (label hurd-menu-entry-label)
+ (device hurd-menu-entry-device ; file system uuid, label, or #f
+ (default #f))
+ (device-mount-point hurd-menu-entry-device-mount-point
+ (default #f))
+ (mach hurd-menu-entry-mach)
+ (hurd hurd-menu-entry-hurd))
+
(define (menu-entry->sexp entry)
"Return ENTRY serialized as an sexp."
(match entry
@@ -91,7 +110,14 @@
(device-mount-point ,mount-point)
(linux ,linux)
(linux-arguments ,linux-arguments)
- (initrd ,initrd)))))
+ (initrd ,initrd)))
+ (($ <hurd-menu-entry> label device mount-point mach hurd)
+ `(hurd-menu-entry (version 0)
+ (label ,label)
+ (device ,device)
+ (device-mount-point ,mount-point)
+ (mach ,mach)
+ (hurd ,hurd)))))
(define (sexp->menu-entry sexp)
"Turn SEXP, an sexp as returned by 'menu-entry->sexp', into a <menu-entry>
@@ -108,7 +134,17 @@ record."
(device-mount-point mount-point)
(linux linux)
(linux-arguments linux-arguments)
- (initrd initrd)))))
+ (initrd initrd)))
+ (('menu-entry ('version 0)
+ ('label label) ('device device)
+ ('device-mount-point mount-point)
+ ('mach mach) ('hurd hurd) _ ...)
+ (hurd-menu-entry
+ (label label)
+ (device device)
+ (device-mount-point mount-point)
+ (mach mach)
+ (hurd hurd)))))
;;;
- branch wip-hurd-vm created (now e4e1876), guix-commits, 2020/05/17
- 01/24: utils: Move 'reset-timestamps' out of database., guix-commits, 2020/05/17
- 02/24: system: vm: Do not register-closures when cross-building., guix-commits, 2020/05/17
- 03/24: system: vm: Build vm-image using native qemu., guix-commits, 2020/05/17
- 05/24: system: hurd: Add hurd-default-essential-services., guix-commits, 2020/05/17
- 11/24: system: Use 'hurd' package in label., guix-commits, 2020/05/17
- 08/24: system: Add 'hurd' field to <boot-parameters>., guix-commits, 2020/05/17
- 16/24: gnu: hurd: Create minimal "runsystem" script to invoke "rc"., guix-commits, 2020/05/17
- 07/24: bootloader: Add `<hurd-menu-entry>'.,
guix-commits <=
- 09/24: bootloader: grub: Add support for '<hurd-menu-entry>'., guix-commits, 2020/05/17
- 13/24: services: hurd: Add `hurd-etc-service'., guix-commits, 2020/05/17
- 12/24: system: examples: Add bare-hurd.tmpl., guix-commits, 2020/05/17
- 14/24: system: Add `hurd-activation'., guix-commits, 2020/05/17
- 17/24: services: Add `hurd-console-service-type'., guix-commits, 2020/05/17
- 18/24: services: Add `hurd-getty-service-type'., guix-commits, 2020/05/17
- 19/24: system: hurd: Populate services., guix-commits, 2020/05/17
- 20/24: DRAFT: system: vm: Activate the Hurd., guix-commits, 2020/05/17
- 21/24: system: bare-hurd.tmpl: Add openssh client and service., guix-commits, 2020/05/17
- 22/24: gnu: linux-libre: Add support for gnu.* namespace., guix-commits, 2020/05/17