[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
03/14: build: syscalls: Add additional mount flags.
From: |
David Thompson |
Subject: |
03/14: build: syscalls: Add additional mount flags. |
Date: |
Tue, 30 Jun 2015 01:54:06 +0000 |
davexunit pushed a commit to branch wip-container
in repository guix.
commit 0740cf7577f4ce21e94b776dc68c0cc9585e3d2d
Author: David Thompson <address@hidden>
Date: Sun May 31 21:40:29 2015 -0400
build: syscalls: Add additional mount flags.
* guix/build/syscalls.scm (MS_NOSUID, MS_NODEV, MS_NOEXEC, MS_STRICTATIME):
New variables.
---
guix/build/syscalls.scm | 16 ++++++++++++----
1 files changed, 12 insertions(+), 4 deletions(-)
diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm
index 6794d9d..37ded8d 100644
--- a/guix/build/syscalls.scm
+++ b/guix/build/syscalls.scm
@@ -27,9 +27,13 @@
#:use-module (ice-9 ftw)
#:export (errno
MS_RDONLY
+ MS_NOSUID
+ MS_NODEV
+ MS_NOEXEC
MS_REMOUNT
MS_BIND
MS_MOVE
+ MS_STRICTATIME
restart-on-EINTR
mount
umount
@@ -146,10 +150,14 @@
entries))))
;; Linux mount flags, from libc's <sys/mount.h>.
-(define MS_RDONLY 1)
-(define MS_REMOUNT 32)
-(define MS_BIND 4096)
-(define MS_MOVE 8192)
+(define MS_RDONLY 1)
+(define MS_NOSUID 2)
+(define MS_NODEV 4)
+(define MS_NOEXEC 8)
+(define MS_REMOUNT 32)
+(define MS_BIND 4096)
+(define MS_MOVE 8192)
+(define MS_STRICTATIME 16777216)
(define mount
(let* ((ptr (dynamic-func "mount" (dynamic-link)))
- branch wip-container created (now 53c036c), David Thompson, 2015/06/29
- 02/14: build: syscalls: Add setns syscall wrapper., David Thompson, 2015/06/29
- 04/14: build: syscalls: Add unmount flags., David Thompson, 2015/06/29
- 05/14: build: syscalls: Add mkdtemp!, David Thompson, 2015/06/29
- 01/14: build: syscalls: Add clone syscall wrapper., David Thompson, 2015/06/29
- 06/14: build: syscalls: Add pivot-root., David Thompson, 2015/06/29
- 03/14: build: syscalls: Add additional mount flags.,
David Thompson <=
- 07/14: utils: Add call-with-temporary-directory., David Thompson, 2015/06/29
- 09/14: gnu: system: Move <file-system-mapping> into (gnu system file-systems)., David Thompson, 2015/06/29
- 12/14: gnu: system: Add Linux container file systems., David Thompson, 2015/06/29
- 10/14: gnu: system: Move file-system->spec to (gnu system file-systems)., David Thompson, 2015/06/29
- 13/14: scripts: system: Add 'container' subcommand., David Thompson, 2015/06/29
- 14/14: scripts: environment: Add --container option., David Thompson, 2015/06/29
- 08/14: gnu: build: Add Linux container module., David Thompson, 2015/06/29
- 11/14: gnu: system: Add Linux container module., David Thompson, 2015/06/29