me
/
guix
Archived
1
0
Fork 0
Code

hurd-boot: Mount /proc, add /etc/mtab. 

* gnu/build/hurd-boot.scm (set-hurd-device-translators): Mount /proc.  Add
symlink to /etc/mtab into /proc/mounts.
Jan (janneke) Nieuwenhuizen 2020-06-25 17:07:25 +02:00
parent db08a0d203
commit 65d95e5d85
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -191,7 +191,8 @@ set."
"10.0.2.15" ;the default QEMU guest IP "10.0.2.15" ;the default QEMU guest IP
"--netmask" "255.255.255.0" "--netmask" "255.255.255.0"
"--gateway" "10.0.2.2" "--gateway" "10.0.2.2"
"--ipv6" "/servers/socket/16")))) "--ipv6" "/servers/socket/16"))
("proc" ("/hurd/procfs" "--stat-mode=444"))))
(define devices (define devices
'(("dev/full" ("/hurd/null" "--full") #o666) '(("dev/full" ("/hurd/null" "--full") #o666)
@ -242,7 +243,12 @@ set."
(mkdir* "dev/fd") (mkdir* "dev/fd")
(false-if-EEXIST (symlink "/dev/fd/0" (scope "dev/stdin"))) (false-if-EEXIST (symlink "/dev/fd/0" (scope "dev/stdin")))
(false-if-EEXIST (symlink "/dev/fd/1" (scope "dev/stdout"))) (false-if-EEXIST (symlink "/dev/fd/1" (scope "dev/stdout")))
(false-if-EEXIST (symlink "/dev/fd/2" (scope "dev/stderr")))) (false-if-EEXIST (symlink "/dev/fd/2" (scope "dev/stderr")))
;; Make sure /etc/mtab is a symlink to /proc/mounts.
(false-if-exception (delete-file (scope "etc/mtab")))
(mkdir* (scope "etc"))
(symlink "/proc/mounts" (scope "etc/mtab")))
(define* (boot-hurd-system #:key (on-error 'debug)) (define* (boot-hurd-system #:key (on-error 'debug))