futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

build: syscalls: Add unmount flags.

Browse Source 
* 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_BIND
MS_MOVE MS_MOVE
MS_STRICTATIME MS_STRICTATIME
MNT_FORCE
MNT_DETACH
MNT_EXPIRE
UMOUNT_NOFOLLOW
restart-on-EINTR restart-on-EINTR
mount mount
umount umount
@ -150,6 +154,11 @@
(define MS_MOVE 8192) (define MS_MOVE 8192)
(define MS_STRICTATIME 16777216) (define MS_STRICTATIME 16777216)
(define MNT_FORCE 1)
(define MNT_DETACH 2)
(define MNT_EXPIRE 4)
(define UMOUNT_NOFOLLOW 8)
(define mount (define mount
(let* ((ptr (dynamic-func "mount" (dynamic-link))) (let* ((ptr (dynamic-func "mount" (dynamic-link)))
(proc (pointer->procedure int ptr `(* * * ,unsigned-long *)))) (proc (pointer->procedure int ptr `(* * * ,unsigned-long *))))