nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

build: syscalls: Add additional mount flags. 

* guix/build/syscalls.scm (MS_NOSUID, MS_NODEV, MS_NOEXEC, MS_STRICTATIME):
  New variables.
This commit is contained in:
David Thompson 2015-05-31 21:40:29 -04:00 committed by David Thompson
parent 4931dfcdfd
commit 577c02eb40
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
guix/build/syscalls.scm
View File

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014, 2015 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2014, 2015 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015 David Thompson <davet@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -26,9 +27,13 @@
#:use-module (ice-9 ftw) #:use-module (ice-9 ftw)
#:export (errno #:export (errno
MS_RDONLY MS_RDONLY
MS_NOSUID
MS_NODEV
MS_NOEXEC
MS_REMOUNT MS_REMOUNT
MS_BIND MS_BIND
MS_MOVE MS_MOVE
MS_STRICTATIME
restart-on-EINTR restart-on-EINTR
mount mount
umount umount
@ -137,9 +142,13 @@
;; Linux mount flags, from libc's <sys/mount.h>. ;; Linux mount flags, from libc's <sys/mount.h>.
(define MS_RDONLY 1) (define MS_RDONLY 1)
(define MS_NOSUID 2)
(define MS_NODEV 4)
(define MS_NOEXEC 8)
(define MS_REMOUNT 32) (define MS_REMOUNT 32)
(define MS_BIND 4096) (define MS_BIND 4096)
(define MS_MOVE 8192) (define MS_MOVE 8192)
(define MS_STRICTATIME 16777216)
(define mount (define mount
(let* ((ptr (dynamic-func "mount" (dynamic-link))) (let* ((ptr (dynamic-func "mount" (dynamic-link)))