guix
/
guix
mirror of git://git.savannah.gnu.org/guix.git
3
4
Fork 0
Code Issues Releases Wiki Activity

build: syscalls: Add unmount flags. 

* guix/build/syscalls.scm (MNT_FORCE, MNT_DETACH, MNT_EXPIRE)
  (UMOUNT_NOFOLLOW): New variables.
This commit is contained in:
David Thompson 2015-06-25 08:29:26 -04:00 committed by David Thompson
parent 577c02eb40
commit b16d138a0a
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
guix/build/syscalls.scm
View File

@ -34,6 +34,10 @@
MS_BIND
MS_MOVE
MS_STRICTATIME
MNT_FORCE
MNT_DETACH
MNT_EXPIRE
UMOUNT_NOFOLLOW
restart-on-EINTR
mount
umount
@ -150,6 +154,11 @@
(define MS_MOVE 8192)
(define MS_STRICTATIME 16777216)
(define MNT_FORCE 1)
(define MNT_DETACH 2)
(define MNT_EXPIRE 4)
(define UMOUNT_NOFOLLOW 8)
(define mount
(let* ((ptr (dynamic-func "mount" (dynamic-link)))
(proc (pointer->procedure int ptr `(* * * ,unsigned-long *))))