me
/
guix
Archived
1
0
Fork 0
Code

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}.
Janneke Nieuwenhuizen 2023-10-01 13:43:36 +02:00
parent 337dbf6867
commit 0a1af11ff8
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
gnu/build/hurd-boot.scm
View File

@ -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))