From 0a1af11ff82254b369fa3ac8a9af2d97bb877ed0 Mon Sep 17 00:00:00 2001 From: Janneke Nieuwenhuizen Date: Sun, 1 Oct 2023 13:43:36 +0200 Subject: 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}. --- gnu/build/hurd-boot.scm | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'gnu/build') 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 @@ -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)) -- cgit v1.2.3