diff options
| author | Marius Bakke <mbakke@fastmail.com> | 2018-07-08 23:58:22 +0200 |
|---|---|---|
| committer | Marius Bakke <mbakke@fastmail.com> | 2018-07-08 23:58:22 +0200 |
| commit | 873325b0307a709be6f305472a5bfb9e07437aaa (patch) | |
| tree | b271f28b229f983841ca7b16c4d3cc52582c864e /guix/build | |
| parent | 68ee10da03b09c2acead8891e4b51c718c24d574 (diff) | |
| parent | 6a8299d267d111da4c80bbdfc83eb5cdfc072b4a (diff) | |
| download | gnu-guix-873325b0307a709be6f305472a5bfb9e07437aaa.tar gnu-guix-873325b0307a709be6f305472a5bfb9e07437aaa.tar.gz | |
Merge branch 'master' into staging
Diffstat (limited to 'guix/build')
| -rw-r--r-- | guix/build/syscalls.scm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm index 25726b885e..74cb675fcf 100644 --- a/guix/build/syscalls.scm +++ b/guix/build/syscalls.scm @@ -46,6 +46,14 @@ MNT_DETACH MNT_EXPIRE UMOUNT_NOFOLLOW + + AT_FDCWD + AT_SYMLINK_NOFOLLOW + AT_REMOVEDIR + AT_SYMLINK_FOLLOW + AT_NO_AUTOMOUNT + AT_EMPTY_PATH + restart-on-EINTR mount-points swapon @@ -667,6 +675,15 @@ mounted at FILE." (* (file-system-block-size fs) (file-system-blocks-available fs)))) +;; Flags for the *at command, notably the 'utime' procedure of libguile. +;; From <fcntl.h>. +(define AT_FDCWD -100) +(define AT_SYMLINK_NOFOLLOW #x100) +(define AT_REMOVEDIR #x200) +(define AT_SYMLINK_FOLLOW #x400) +(define AT_NO_AUTOMOUNT #x800) +(define AT_EMPTY_PATH #x1000) + ;;; ;;; Containers. |