guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

02/10: build: syscalls: Add additional mount flags.


From: David Thompson
Subject: 02/10: build: syscalls: Add additional mount flags.
Date: Mon, 08 Jun 2015 14:04:23 +0000

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

commit 2b18d1e19c1c609e71f41bb306c85c9efb84c66d
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 3346358..a47d333 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
@@ -145,10 +149,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)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]