From 4949ada9da470b266063ff490438c85541af24cc Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sat, 1 Aug 2015 13:54:40 -0400 Subject: build: container: Setup /dev/console. * gnu/build/linux-container.scm (mount-file-systems): Bind mount the controlling terminal as /dev/console. --- gnu/build/linux-container.scm | 15 +++++++++++++-- 1 file changed, 13 insertions(+), 2 deletions(-) (limited to 'gnu/build') diff --git a/gnu/build/linux-container.scm b/gnu/build/linux-container.scm index af599040a1..c004303f03 100644 --- a/gnu/build/linux-container.scm +++ b/gnu/build/linux-container.scm @@ -55,6 +55,9 @@ (define* (mount-file-systems root mounts #:key mount-/sys? mount-/proc?) (define (scope dir) (string-append root dir)) + (define (touch file-name) + (call-with-output-file file-name (const #t))) + (define (bind-mount src dest) (mount src dest "none" MS_BIND)) @@ -89,8 +92,7 @@ (define* (mount* source target type #:optional (flags 0) options (for-each (lambda (device) (when (file-exists? device) ;; Create the mount point file. - (call-with-output-file (scope device) - (const #t)) + (touch (scope device)) (bind-mount device (scope device)))) '("/dev/null" "/dev/zero" @@ -101,6 +103,15 @@ (define* (mount* source target type #:optional (flags 0) options "/dev/ptmx" "/dev/fuse")) + ;; Setup the container's /dev/console by bind mounting the pseudo-terminal + ;; associated with standard input. + (let ((in (current-input-port)) + (console (scope "/dev/console"))) + (when (isatty? in) + (touch console) + (chmod console #o600) + (bind-mount (ttyname in) console))) + ;; Setup standard input/output/error. (symlink "/proc/self/fd" (scope "/dev/fd")) (symlink "/proc/self/fd/0" (scope "/dev/stdin")) -- cgit v1.2.3