diff options
| author | David Thompson <davet@gnu.org> | 2015-05-31 21:40:29 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2015-07-07 18:38:41 -0400 |
| commit | 577c02eb40569157d970435627c36d65ebbafb90 (patch) | |
| tree | 9d8adb1df5a22a5bcff9d1e638dce273de490fdc /guix | |
| parent | 4931dfcdfdbe9beaf829607429aec6af6a4dac1c (diff) | |
build: syscalls: Add additional mount flags.
* guix/build/syscalls.scm (MS_NOSUID, MS_NODEV, MS_NOEXEC, MS_STRICTATIME):
New variables.
Diffstat (limited to 'guix')
| -rw-r--r-- | guix/build/syscalls.scm | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm index 3585bf27a8..ec1ce89016 100644 --- a/guix/build/syscalls.scm +++ b/guix/build/syscalls.scm @@ -1,5 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2014, 2015 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2015 David Thompson <davet@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -26,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 @@ -136,10 +141,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))) |