mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-19 05:57:04 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

linux-initrd: Update /etc/mtab.

Browse source 
* guix/build/linux-initrd.scm (mount-root-file-system): Populate
  /root/etc/mtab.
  (mount-file-system): Update ROOT/etc/mtab.
This commit is contained in:
Ludovic Courtès 2014-05-08 00:22:26 +02:00
parent 538cc2e016
commit b1995341ce
1 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
guix/build/linux-initrd.scm
View file

@ -228,7 +228,9 @@ (define* (mount-root-file-system root type
(lambda args (lambda args
(format (current-error-port) "exception while mounting '~a': ~s~%" (format (current-error-port) "exception while mounting '~a': ~s~%"
root args) root args)
(start-repl)))) (start-repl)))
(copy-file "/proc/mounts" "/root/etc/mtab"))
(define (check-file-system device type) (define (check-file-system device type)
"Run a file system check of TYPE on DEVICE." "Run a file system check of TYPE on DEVICE."
@ -279,7 +281,14 @@ (define flags->bit-mask
(mount source mount-point type (flags->bit-mask flags) (mount source mount-point type (flags->bit-mask flags)
(if options (if options
(string->pointer options) (string->pointer options)
%null-pointer)))))) %null-pointer))
;; Update /etc/mtab.
(mkdir-p (string-append root "/etc"))
(let ((port (open-output-file (string-append root "/etc/mtab"))))
(format port "~a ~a ~a ~a 0 0~%"
source mount-point type options)
(close-port port))))))
(define (switch-root root) (define (switch-root root)
"Switch to ROOT as the root file system, in a way similar to what "Switch to ROOT as the root file system, in a way similar to what