GNU bug report logs -
#41785
[PATCH] DRAFT services: Add 'hurd-in-vm service-type'.
Previous Next
Full log
Message #71 received at 41785 <at> debbugs.gnu.org (full text, mbox):
Mathieu Othacehe writes:
Hey Mathieu!
>> +(define (hurd-vm-disk-image config)
>> + "Return a disk-image for the Hurd according to CONFIG."
>> + (let ((os (hurd-vm-configuration-os config))
>> + (disk-size (hurd-vm-configuration-disk-size config))
>> + (target (and (not (%current-target-system)) "i586-pc-gnu"))
>> + (base-image (find-image "ext2" (%current-target-system))))
>> + (with-parameters ((%current-target-system target))
>> + (system-image
>> + (image (inherit base-image)
>> + (size disk-size)
>> + (operating-system os))))))
>
> With the attached patch, you could write:
>
> (define (hurd-vm-disk-image config)
> "Return a disk-image for the Hurd according to CONFIG."
> (let ((os (hurd-vm-configuration-os config))
> (disk-size (hurd-vm-configuration-disk-size config)))
> (system-image
> (image
> (inherit hurd-disk-image)
> (size disk-size)
> (operating-system os)))))
>
> WDYT?
I like it a lot! Ludo already said adding target to image would be a
good idea. Go for it!
> From dbcfd86a74903cb0fe77843518625436d749ed09 Mon Sep 17 00:00:00 2001
> From: Mathieu Othacehe <othacehe <at> gnu.org>
> Date: Sat, 13 Jun 2020 14:01:18 +0200
> Subject: [PATCH] image: Add 'target' support.
This is already one step towards the image catalog, looks good to me!
Note that I found https://bugs.gnu.org/41835 so I had to revert that
patch in order to test...less than great; but I didn't want to push
a revert without communicating about it first.
Greetings,
Janneke
--
Jan Nieuwenhuizen <janneke <at> gnu.org> | GNU LilyPond http://lilypond.org
Freelance IT http://JoyofSource.com | Avatar® http://AvatarAcademy.com
This bug report was last modified 4 years and 341 days ago.
Previous Next
GNU bug tracking system
Copyright (C) 1999 Darren O. Benham,
1997,2003 nCipher Corporation Ltd,
1994-97 Ian Jackson.