[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
14/27: bootloader: Extend `<menu-entry>' for multiboot.
From: |
guix-commits |
Subject: |
14/27: bootloader: Extend `<menu-entry>' for multiboot. |
Date: |
Fri, 29 May 2020 04:43:34 -0400 (EDT) |
janneke pushed a commit to branch wip-hurd-vm
in repository guix.
commit b21ab81266ef80fdf9e684e16bb9a6647a3504ac
Author: Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
AuthorDate: Tue May 26 16:54:18 2020 +0200
bootloader: Extend `<menu-entry>' for multiboot.
* gnu/bootloader.scm (<menu-entry>)[multiboot-kernel,multiboot-modules]: New
fields.
[linux,initrd]: Add default value '#f'.
(menu-entry->sexp, sexp->menu-entry): Support multiboot entry.
---
gnu/bootloader.scm | 40 +++++++++++++++++++++++++++++++++++-----
1 file changed, 35 insertions(+), 5 deletions(-)
diff --git a/gnu/bootloader.scm b/gnu/bootloader.scm
index 668caa7..a11e7df 100644
--- a/gnu/bootloader.scm
+++ b/gnu/bootloader.scm
@@ -3,6 +3,7 @@
;;; Copyright © 2017, 2020 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2017 Leo Famulari <leo@famulari.name>
;;; Copyright © 2019 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -33,6 +34,8 @@
menu-entry-linux-arguments
menu-entry-initrd
menu-entry-device-mount-point
+ menu-entry-multiboot-kernel
+ menu-entry-multiboot-modules
menu-entry->sexp
sexp->menu-entry
@@ -77,22 +80,38 @@
(default #f))
(device-mount-point menu-entry-device-mount-point
(default #f))
- (linux menu-entry-linux)
+ (linux menu-entry-linux
+ (default #f))
(linux-arguments menu-entry-linux-arguments
(default '())) ; list of string-valued gexps
- (initrd menu-entry-initrd)) ; file name of the initrd as a gexp
+ (initrd menu-entry-initrd ; file name of the initrd as a gexp
+ (default #f))
+ (multiboot-kernel menu-entry-multiboot-kernel
+ (default #f))
+ (multiboot-modules menu-entry-multiboot-modules
+ (default '()))) ; list of multiboot commands, where
+ ; a command is a list of <string>
(define (menu-entry->sexp entry)
"Return ENTRY serialized as an sexp."
(match entry
- (($ <menu-entry> label device mount-point linux linux-arguments initrd)
+ (($ <menu-entry> label device mount-point linux linux-arguments initrd #f
+ ())
`(menu-entry (version 0)
(label ,label)
(device ,device)
(device-mount-point ,mount-point)
(linux ,linux)
(linux-arguments ,linux-arguments)
- (initrd ,initrd)))))
+ (initrd ,initrd)))
+ (($ <menu-entry> label device mount-point #f () #f
+ multiboot-kernel multiboot-modules)
+ `(menu-entry (version 0)
+ (label ,label)
+ (device ,device)
+ (device-mount-point ,mount-point)
+ (multiboot-kernel ,multiboot-kernel)
+ (multiboot-modules ,multiboot-modules)))))
(define (sexp->menu-entry sexp)
"Turn SEXP, an sexp as returned by 'menu-entry->sexp', into a <menu-entry>
@@ -109,7 +128,18 @@ 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)
+ ('multiboot-kernel multiboot-kernel)
+ ('multiboot-modules multiboot-modules) _ ...)
+ (menu-entry
+ (label label)
+ (device device)
+ (device-mount-point mount-point)
+ (multiboot-kernel multiboot-kernel)
+ (multiboot-modules multiboot-modules)))))
;;;
- branch wip-hurd-vm created (now 7e26981), guix-commits, 2020/05/29
- 04/27: vm: 'qemu-image' preserves the cross-compilation target of the OS., guix-commits, 2020/05/29
- 01/27: system: 'system-linux-image-file-name' takes an optional parameter., guix-commits, 2020/05/29
- 02/27: vm: 'expression->derivation-in-linux-vm' always returns a native build., guix-commits, 2020/05/29
- 03/27: vm: 'qemu-image' uses the native partitioning tools and bootloader., guix-commits, 2020/05/29
- 09/27: image: Add Hurd support., guix-commits, 2020/05/29
- 12/27: system: hurd: Add hurd-default-essential-services., guix-commits, 2020/05/29
- 10/27: linux-boot: Update 'make-hurd-device-nodes'., guix-commits, 2020/05/29
- 13/27: system: Add 'hurd' field to <operating-system>., guix-commits, 2020/05/29
- 14/27: bootloader: Extend `<menu-entry>' for multiboot.,
guix-commits <=
- 05/27: vm: <virtual-machine> compiler honors system and target., guix-commits, 2020/05/29
- 06/27: vm: Shared-store script runs that native QEMU and Bash., guix-commits, 2020/05/29
- 07/27: gnu: guile-static: Disable JIT on ARMv7., guix-commits, 2020/05/29
- 08/27: gnu: hurd: Update to upstream Hurd-reserved xattr index., guix-commits, 2020/05/29
- 15/27: system: Add 'multiboot-modules' field to <boot-parameters>., guix-commits, 2020/05/29
- 19/27: services: hurd: Add `hurd-etc-service'., guix-commits, 2020/05/29
- 11/27: image: Support extra-directives, add hurd-directives., guix-commits, 2020/05/29
- 16/27: bootloader: grub: Add support for multiboot., guix-commits, 2020/05/29
- 17/27: system: Use 'hurd' package in label., guix-commits, 2020/05/29
- 20/27: system: Add `hurd-activation'., guix-commits, 2020/05/29