system: hurd-boot: Prepare for runsystem in Guile.

Fo guile to run, it needs pipe support: without pipe support it aborts at
startup.  Pipe support is currently createn in runsystem by creating a
passive translator

    settrans --create /servers/socket/1 /hurd/pflocal

However, this needs a writable root file-system, and runsystem is started with
a readonly root file-system.

This patch enables running guile early in runsystem, and thus prepares for
replacing the runsystem shell script with a guile program, by embedding the
servers/socket/1 passive translator into the hurd system image using xattr.

* gnu/build/hurd-boot.scm (make-hurd-device-nodes): Change optional root
parameter to keyword #:root.  Add #:hurd keyword parameter.  Use it to
create servers/socket/1 (pipe) and proc passive xattr translators.
* gnu/build/image.scm (initialize-root-partition): Update caller.
* gnu/system/image.scm (with-imported-modules*): Include (ice-9 optargs).
* gnu/system/images/hurd.scm (hurd-initialize-root-partition): Use it to
update caller.
* guix/scripts/system.scm (install): Update caller.

Change-Id: Ib3a672ae78bd969a2a4c0e33db8e38ccf71238ba
Merges: #8609

1 files changed, 10 insertions, 2 deletions

diff --git a/gnu/system/images/hurd.scm b/gnu/system/images/hurd.scm
index ba223b1e0cd..c65a9c8f13d 100644
--- a/gnu/system/images/hurd.scm
+++ b/gnu/system/images/hurd.scm
@@ -1,6 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2020 Mathieu Othacehe <m.othacehe@gmail.com>
-;;; Copyright © 2020, 2024 Janneke Nieuwenhuizen <janneke@gnu.org>
+;;; Copyright © 2020, 2024, 2026 Janneke Nieuwenhuizen <janneke@gnu.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -22,6 +22,7 @@
   #:use-module (gnu bootloader)
   #:use-module (gnu bootloader grub)
   #:use-module (gnu image)
+  #:use-module (gnu packages hurd)
   #:use-module (gnu packages ssh)
   #:use-module (guix platforms x86)
   #:use-module (gnu services)
@@ -97,7 +98,14 @@
   #~(lambda* (#:rest args)
       (apply initialize-root-partition
              (append args
-                     (list #:make-device-nodes make-hurd-device-nodes
+                     (list #:make-device-nodes
+                           (lambda device-args
+                             (let-keywords (cdr args) #t
+                                           ((system-directory #f))
+                               (let ((hurd (in-vicinity system-directory
+                                                        "hurd/hurd")))
+                                 (apply make-hurd-device-nodes
+                                        (cons* #:hurd hurd device-args)))))
                            ;; XXX Creating a db.sqlite with journal_mode=WAL
                            ;; yields "unable to open database file" on GNU/Hurd
                            ;; for an sqlite with the hurd-locking-mode.patch;