diff options
| author | David Thompson <davet@gnu.org> | 2015-06-25 08:29:26 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2015-07-07 18:38:41 -0400 |
| commit | b16d138a0af44740894ecd42eca4d71fd74aea1a (patch) | |
| tree | 1d2ea25c46e1ef0d98e09bb34cf246457961ad23 | |
| parent | 577c02eb40569157d970435627c36d65ebbafb90 (diff) | |
build: syscalls: Add unmount flags.
* guix/build/syscalls.scm (MNT_FORCE, MNT_DETACH, MNT_EXPIRE)
(UMOUNT_NOFOLLOW): New variables.
| -rw-r--r-- | guix/build/syscalls.scm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm index ec1ce89016..6d3151051b 100644 --- a/guix/build/syscalls.scm +++ b/guix/build/syscalls.scm @@ -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 *)))) |