23/47: hurd-boot: Cater for netdde.

[guix-commits]

janneke pushed a commit to branch wip-hurd
in repository guix.

commit 1bb9bc7440263721259e585f54357cd049e8154a
Author: Janneke Nieuwenhuizen <janneke@gnu.org>
AuthorDate: Wed May 24 23:23:30 2023 +0200

    hurd-boot: Cater for netdde.
    
    * gnu/build/hurd-boot.scm (set-hurd-device-translators): Setup translators 
for
    netdde, eth{0,1}.  Create /servers/socket/{inet,inet6} symlinks.
---
 gnu/build/hurd-boot.scm | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/gnu/build/hurd-boot.scm b/gnu/build/hurd-boot.scm
index 84eec85f5b..a9700fd1cd 100644
--- a/gnu/build/hurd-boot.scm
+++ b/gnu/build/hurd-boot.scm
@@ -215,6 +215,13 @@ set."
       ("dev/fd"      ("/hurd/magic"    "--directory" "fd")  #o555)
 
       ("dev/rumpdisk"("/hurd/rumpdisk")                     #o660)
+      ("dev/netdde"  ("/hurd/netdde")                       #o660)
+      ("dev/eth0"    ("/hurd/devnode" "--master-device=/dev/net"
+                      "eth0")
+                                                            #o660)
+      ("dev/eth1"    ("/hurd/devnode" "--master-device=/dev/net"
+                      "eth1")
+                                                            #o660)
 
       ;; Create a number of ttys; syslogd writes to tty12 by default.
       ;; FIXME: Creating /dev/tty12 leads the console client to switch to
@@ -268,6 +275,9 @@ set."
   (false-if-EEXIST (symlink "/dev/fd/2" (scope "dev/stderr")))
   (false-if-EEXIST (symlink "crash-dump-core" (scope "servers/crash")))
   (false-if-EEXIST (symlink "/dev/rumpdisk" (scope "dev/disk")))
+  (false-if-EEXIST (symlink "/dev/netdde" (scope "dev/net")))
+  (false-if-EEXIST (symlink "/servers/socket/2" (scope "servers/socket/inet")))
+  (false-if-EEXIST (symlink "/servers/socket/26" (scope 
"servers/socket/inet6")))
 
   ;; Make sure /etc/mtab is a symlink to /proc/mounts.
   (false-if-exception (delete-file (scope "etc/mtab")))