ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 13:58:15 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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 @@ (define-module (guix build syscalls)
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_BIND 4096)
(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 *))))