03/24: linux-boot: Update 'make-hurd-device-nodes'.

[guix-commits]

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

commit 45652f39ebb884f1e420254170bf18dd8d627bd4
Author: Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
AuthorDate: Sun May 24 12:41:32 2020 +0200

    linux-boot: Update 'make-hurd-device-nodes'.
    
    * gnu/build/linux-boot.scm (make-hurd-device-nodes): Avoid de-duplication of
    device mount points; also create mount points for /servers/.
---
 gnu/build/linux-boot.scm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/gnu/build/linux-boot.scm b/gnu/build/linux-boot.scm
index f08bb11..d62c670 100644
--- a/gnu/build/linux-boot.scm
+++ b/gnu/build/linux-boot.scm
@@ -337,6 +337,7 @@ one specific hardware device. These we have to create."
   (for-each (lambda (file)
               (call-with-output-file (scope file)
                 (lambda (port)
+                  (display file port)   ;avoid hard-linking
                   (chmod port #o666))))
             '("dev/null"
               "dev/zero"
@@ -347,6 +348,20 @@ one specific hardware device. These we have to create."
   ;; console-run on first boot.
 
   (mkdir (scope "servers"))
+  (for-each (lambda (file)
+              (call-with-output-file (scope (string-append "servers/" file))
+                (lambda (port)
+                  (display file port)   ;avoid hard-linking
+                  (chmod port #o444))))
+            '("startup"
+              "exec"
+              "proc"
+              "password"
+              "default-pager"
+              "crash-dump-core"
+              "kill"
+              "suspend"))
+
   (mkdir (scope "servers/socket"))
   ;; Don't create /servers/socket/1 & co: runsystem does that on first boot.