summaryrefslogtreecommitdiff
path: root/gnu/build/hurd-boot.scm
diff options
context:
space:
mode:
authorJanneke Nieuwenhuizen <janneke@gnu.org>2023-10-01 13:43:36 +0200
committerJanneke Nieuwenhuizen <janneke@gnu.org>2023-10-01 15:51:23 +0200
commit0a1af11ff82254b369fa3ac8a9af2d97bb877ed0 (patch)
treee98f64b27de2f7ef8a7e191d7a3b55bc324dc44d /gnu/build/hurd-boot.scm
parent337dbf6867597b6e3b72b0bdb2152a42a9f41dbc (diff)
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}.
Diffstat (limited to 'gnu/build/hurd-boot.scm')
-rw-r--r--gnu/build/hurd-boot.scm13
1 files changed, 13 insertions, 0 deletions
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
@@ -249,6 +249,19 @@ set."
(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))
(disk (string-append "@/dev/disk:wd" n)))
`((,drive ("/hurd/storeio" ,disk) #o600)