From mboxrd@z Thu Jan 1 00:00:00 1970 From: David Thompson Subject: [PATCH 12/15] gnu: system: Add Linux container file systems. Date: Mon, 6 Jul 2015 09:16:41 -0400 Message-ID: <1436188604-2813-12-git-send-email-dthompson2@worcester.edu> References: <1436188604-2813-1-git-send-email-dthompson2@worcester.edu> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:47626) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZC6HB-0001Ya-Mk for guix-devel@gnu.org; Mon, 06 Jul 2015 09:17:41 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZC6H7-0006zW-Ic for guix-devel@gnu.org; Mon, 06 Jul 2015 09:17:37 -0400 Received: from mail-qk0-f172.google.com ([209.85.220.172]:33364) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZC6H7-0006zK-Dc for guix-devel@gnu.org; Mon, 06 Jul 2015 09:17:33 -0400 Received: by qkhu186 with SMTP id u186so116515418qkh.0 for ; Mon, 06 Jul 2015 06:17:33 -0700 (PDT) In-Reply-To: <1436188604-2813-1-git-send-email-dthompson2@worcester.edu> List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: guix-devel@gnu.org Cc: David Thompson From: David Thompson * gnu/system/file-systems.scm (%container-file-systems): New variable. --- gnu/system/file-systems.scm | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) 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)))) + ;;; -- 2.4.3