[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
03/15: build: syscalls: Add additional mount flags.
From: |
David Thompson |
Subject: |
03/15: build: syscalls: Add additional mount flags. |
Date: |
Thu, 02 Jul 2015 00:58:57 +0000 |
davexunit pushed a commit to branch wip-container
in repository guix.
commit 42a65debf1775a00ba77c7cb0d910132c2542c37
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 a3cbf11), David Thompson, 2015/07/01
- 02/15: build: syscalls: Add setns syscall wrapper., David Thompson, 2015/07/01
- 03/15: build: syscalls: Add additional mount flags.,
David Thompson <=
- 04/15: build: syscalls: Add unmount flags., David Thompson, 2015/07/01
- 05/15: build: syscalls: Add pivot-root., David Thompson, 2015/07/01
- 06/15: build: syscalls: Add mkdtemp!, David Thompson, 2015/07/01
- 07/15: utils: Add call-with-temporary-directory., David Thompson, 2015/07/01
- 01/15: build: syscalls: Add clone syscall wrapper., David Thompson, 2015/07/01
- 10/15: gnu: system: Move file-system->spec to (gnu system file-systems)., David Thompson, 2015/07/01
- 09/15: gnu: system: Move <file-system-mapping> into (gnu system file-systems)., David Thompson, 2015/07/01
- 12/15: gnu: system: Add Linux container file systems., David Thompson, 2015/07/01
- 11/15: gnu: system: Add Linux container module., David Thompson, 2015/07/01
- 14/15: scripts: environment: Add --container option., David Thompson, 2015/07/01