me/guix
Archived
1
0
Fork 0
Code Activity

hurd-boot: Create more PTY nodes.

Browse source 
* gnu/build/hurd-boot.scm (set-hurd-device-translators): Create more
/dev/ptyp* and /dev/ttyp* nodes.
This commit is contained in:
Ludovic Courtès 2022-11-27 23:00:12 +01:00
parent 691b672658
commit 450f774028
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 12 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
gnu/build/hurd-boot.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2020, 2021 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2020-2022 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
@ -217,24 +217,22 @@ set."
("dev/tty3" ("/hurd/term" "/dev/tty3" "hurdio" "/dev/vcs/3/console") ("dev/tty3" ("/hurd/term" "/dev/tty3" "hurdio" "/dev/vcs/3/console")
#o666) #o666)
("dev/ptyp0" ("/hurd/term" "/dev/ptyp0" "pty-master" "/dev/ttyp0") ,@(append-map (lambda (n)
#o666) (let ((n (number->string n)))
("dev/ptyp1" ("/hurd/term" "/dev/ptyp1" "pty-master" "/dev/ttyp1") `((,(string-append "dev/ptyp" n)
#o666) ("/hurd/term" ,(string-append "/dev/ptyp" n)
("dev/ptyp2" ("/hurd/term" "/dev/ptyp2" "pty-master" "/dev/ttyp2") "pty-master" ,(string-append "/dev/ttyp" n))
#o666) #o666)
("dev/ttyp0" ("/hurd/term" "/dev/ttyp0" "pty-slave" "/dev/ptyp0") (,(string-append "dev/ttyp" n)
#o666) ("/hurd/term" ,(string-append "/dev/ttyp" n)
("dev/ttyp1" ("/hurd/term" "/dev/ttyp1" "pty-slave" "/dev/ptyp1") "pty-slave" ,(string-append "/dev/ptyp" n))
#o666) #o666))))
("dev/ttyp2" ("/hurd/term" "/dev/ttyp2" "pty-slave" "/dev/ptyp2") (iota 10 0))))
#o666)))
(for-each scope-set-translator servers) (for-each scope-set-translator servers)
(mkdir* "dev/vcs/1") (mkdir* "dev/vcs/1")
(mkdir* "dev/vcs/2") (mkdir* "dev/vcs/2")
(mkdir* "dev/vcs/2")
(rename-file (scope "dev/console") (scope "dev/console-")) (rename-file (scope "dev/console") (scope "dev/console-"))
(for-each scope-set-translator devices) (for-each scope-set-translator devices)