janneke pushed a commit to branch wip-hurd-vm
in repository guix.
commit 45652f39ebb884f1e420254170bf18dd8d627bd4
Author: Jan (janneke) Nieuwenhuizen <[email protected]>
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.
