ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 05:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

linux-initrd: Rename 'qemu-initrd' to 'base-initrd'.

Browse source 
* gnu/system/linux-initrd.scm (qemu-initrd): Rename to...
  (base-initrd): ... this.
* gnu/system.scm (<operating-system>)[initrd]: Update accordingly.
* gnu/system/vm.scm (expression->derivation-in-linux-vm,
  system-disk-image, virtualized-operating-system): Likewise.
This commit is contained in:
Ludovic Courtès 2014-06-30 20:56:45 +02:00
parent 4fc96187b9
commit 060238ae64
3 changed files with 10 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
gnu/system.scm
View file

@ -83,7 +83,7 @@ (define-record-type* <operating-system> operating-system
(bootloader operating-system-bootloader) ; <grub-configuration>
(initrd operating-system-initrd ; (list fs) -> M derivation
(default qemu-initrd))
(default base-initrd))
(host-name operating-system-host-name) ; string

13
gnu/system/linux-initrd.scm
View file

@ -35,7 +35,7 @@ (define-module (gnu system linux-initrd)
#:use-module (ice-9 regex)
#:use-module (srfi srfi-1)
#:export (expression->initrd
qemu-initrd))
base-initrd))
;;; Commentary:
@ -201,16 +201,15 @@ (define (file-system->spec fs)
(($ <file-system> device title mount-point type flags options _ check?)
(list device title mount-point type flags options check?))))
(define* (qemu-initrd file-systems
(define* (base-initrd file-systems
#:key
qemu-networking?
virtio?
volatile-root?
guile-modules-in-chroot?)
"Return a monadic derivation that builds an initrd for use in a QEMU guest
where the store is shared with the host. FILE-SYSTEMS is a list of
file-systems to be mounted by the initrd, possibly in addition to the root
file system specified on the kernel command line via '--root'.
"Return a monadic derivation that builds a generic initrd. FILE-SYSTEMS is
a list of file-systems to be mounted by the initrd, possibly in addition to
the root file system specified on the kernel command line via '--root'.
When QEMU-NETWORKING? is true, set up networking with the standard QEMU
parameters. When VIRTIO? is true, load additional modules so the initrd can
@ -282,7 +281,7 @@ (define helper-packages
#:qemu-guest-networking? #$qemu-networking?
#:guile-modules-in-chroot? '#$guile-modules-in-chroot?
#:volatile-root? '#$volatile-root?))
#:name "qemu-initrd"
#:name "base-initrd"
#:modules '((guix build utils)
(guix build linux-initrd))
#:to-copy helper-packages

6
gnu/system/vm.scm
View file

@ -153,7 +153,7 @@ (define* (expression->derivation-in-linux-vm name exp
(coreutils -> (car (assoc-ref %final-inputs "coreutils")))
(initrd (if initrd ; use the default initrd?
(return initrd)
(qemu-initrd %linux-vm-file-systems
(base-initrd %linux-vm-file-systems
#:virtio? #t
#:qemu-networking? #t
#:guile-modules-in-chroot? #t))))
@ -287,7 +287,7 @@ (define file-systems-to-keep
(let ((os (operating-system (inherit os)
;; Since this is meant to be used on real hardware, don't set up
;; QEMU networking.
(initrd (cut qemu-initrd <>
(initrd (cut base-initrd <>
#:volatile-root? volatile?))
;; Force our own root file system.
@ -350,7 +350,7 @@ (define (virtualized-operating-system os)
"Return an operating system based on OS suitable for use in a virtualized
environment with the store shared with the host."
(operating-system (inherit os)
(initrd (cut qemu-initrd <>
(initrd (cut base-initrd <>
#:volatile-root? #t
#:virtio? #t
#:qemu-networking? #t))