12/15: gnu: system: Add Linux container file systems.

[David Thompson]

davexunit pushed a commit to branch wip-container
in repository guix.

commit 80a4ac8002059d1344a8645fd3da9344b3fe2b34
Author: David Thompson <address@hidden>
Date:   Sun Jun 28 00:42:16 2015 -0400

    gnu: system: Add Linux container file systems.
    
    * gnu/system/file-systems.scm (%container-file-systems): New variable.
---
 gnu/system/file-systems.scm |   30 ++++++++++++++++++++++++++++++
 1 files changed, 30 insertions(+), 0 deletions(-)

diff --git a/gnu/system/file-systems.scm b/gnu/system/file-systems.scm
index b33f826..23998dd 100644
--- a/gnu/system/file-systems.scm
+++ b/gnu/system/file-systems.scm
@@ -45,6 +45,7 @@
             %control-groups
 
             %base-file-systems
+            %container-file-systems
 
             mapped-device
             mapped-device?
@@ -198,6 +199,35 @@ initrd code."
                 %immutable-store)
           %control-groups))
 
+(define %container-file-systems
+  (list
+   ;; Psuedo-terminal file system.
+   (file-system
+     (device "none")
+     (mount-point "/dev/pts")
+     (type "devpts")
+     (flags '(no-exec no-suid))
+     (needed-for-boot? #t)
+     (create-mount-point? #t)
+     (options "newinstance,ptmxmode=0666,mode=620"))
+   ;; Shared memory file system.
+   (file-system
+     (device "tmpfs")
+     (mount-point "/dev/shm")
+     (type "tmpfs")
+     (flags '(no-exec no-suid no-dev))
+     (options "mode=1777,size=65536k")
+     (needed-for-boot? #t)
+     (create-mount-point? #t))
+   ;; Message queue file system.
+   (file-system
+     (device "mqueue")
+     (mount-point "/dev/mqueue")
+     (type "mqueue")
+     (flags '(no-exec no-suid no-dev))
+     (needed-for-boot? #t)
+     (create-mount-point? #t))))
+
 
 
 ;;;