branch master updated: hurd-boot: Setup/dev/hdX, /dev/hdXsY IDE device node translators.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

janneke pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 0a1af11ff8 hurd-boot: Setup/dev/hdX, /dev/hdXsY IDE device node 
translators.
0a1af11ff8 is described below

commit 0a1af11ff82254b369fa3ac8a9af2d97bb877ed0
Author: Janneke Nieuwenhuizen <janneke@gnu.org>
AuthorDate: Sun Oct 1 13:43:36 2023 +0200

    hurd-boot: Setup/dev/hdX, /dev/hdXsY IDE device node translators.
    
    The gnumach builtin IDE hd devices are still used, unless booting with
    "noide".
    
    * gnu/build/hurd-boot.scm (set-hurd-device-translators): Create 
/dev/hd{0..3},
    /dev/hd{0..3}s{0..3}.
---
 gnu/build/hurd-boot.scm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/gnu/build/hurd-boot.scm b/gnu/build/hurd-boot.scm
index 19bdbdf6ae..4407284acb 100644
--- a/gnu/build/hurd-boot.scm
+++ b/gnu/build/hurd-boot.scm
@@ -247,6 +247,19 @@ set."
                             "pty-slave" ,(string-append "/dev/ptyp" n))
                            #o666))))
                     (iota 10 0))
+      ,@(append-map (lambda (n)
+                      (let* ((n (number->string n))
+                             (disk (string-append "hd" n))
+                             (drive (string-append "dev/" disk)))
+                        `((,drive ("/hurd/storeio" ,disk) #o600)
+                          ,@(map (lambda (p)
+                                   (let ((p (number->string p)))
+                                     `(,(string-append drive "s" p)
+                                       ("/hurd/storeio"
+                                        ,(string-append disk "s" p))
+                                       #o660)))
+                                 (iota 4 1)))))
+                    (iota 4 0))
       ,@(append-map (lambda (n)
                       (let* ((n (number->string n))
                              (drive (string-append "dev/wd" n))