system: Provide declarations for the 'fusectl' and 'binfmt_misc' file systems.

* gnu/system.scm (%fuse-control-file-system,
  %binary-format-file-system): New variables.
* build-aux/hydra/demo-os.scm (file-systems): New field.
This commit is contained in:
Ludovic Courtès 2014-05-14 23:17:03 +02:00
parent 1eeccc2f31
commit 2717a89a84
2 changed files with 30 additions and 1 deletions

View file

@ -43,6 +43,11 @@
(host-name "gnu") (host-name "gnu")
(timezone "Europe/Paris") (timezone "Europe/Paris")
(locale "en_US.UTF-8") (locale "en_US.UTF-8")
(file-systems
;; We don't provide a file system for /, but that's OK because the VM build
;; code will automatically declare the / file system for us.
(list %fuse-control-file-system
%binary-format-file-system))
(users (list (user-account (users (list (user-account
(name "guest") (name "guest")
(group "wheel") (group "wheel")

View file

@ -64,7 +64,10 @@ (define-module (gnu system)
file-system-type file-system-type
file-system-needed-for-boot? file-system-needed-for-boot?
file-system-flags file-system-flags
file-system-options)) file-system-options
%fuse-control-file-system
%binary-format-file-system))
;;; Commentary: ;;; Commentary:
;;; ;;;
@ -126,6 +129,11 @@ (define-record-type* <operating-system> operating-system
(sudoers operating-system-sudoers ; /etc/sudoers contents (sudoers operating-system-sudoers ; /etc/sudoers contents
(default %sudoers-specification))) (default %sudoers-specification)))
;;;
;;; File systems.
;;;
;; File system declaration. ;; File system declaration.
(define-record-type* <file-system> file-system (define-record-type* <file-system> file-system
make-file-system make-file-system
@ -142,6 +150,22 @@ (define-record-type* <file-system> file-system
(check? file-system-check? ; Boolean (check? file-system-check? ; Boolean
(default #t))) (default #t)))
(define %fuse-control-file-system
;; Control file system for Linux' file systems in user-space (FUSE).
(file-system
(device "fusectl")
(mount-point "/sys/fs/fuse/connections")
(type "fusectl")
(check? #f)))
(define %binary-format-file-system
;; Support for arbitrary executable binary format.
(file-system
(device "binfmt_misc")
(mount-point "/proc/sys/fs/binfmt_misc")
(type "binfmt_misc")
(check? #f)))
;;; ;;;
;;; Derivation. ;;; Derivation.