summaryrefslogtreecommitdiff
path: root/guix/build/syscalls.scm
diff options
context:
space:
mode:
Diffstat (limited to 'guix/build/syscalls.scm')
-rw-r--r--guix/build/syscalls.scm13
1 files changed, 13 insertions, 0 deletions
diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm
index 7e5245fcc6..9765820836 100644
--- a/guix/build/syscalls.scm
+++ b/guix/build/syscalls.scm
@@ -31,6 +31,7 @@
MS_MOVE
mount
umount
+ mount-points
swapon
swapoff
processes
@@ -166,6 +167,18 @@ constants from <sys/mount.h>."
(when update-mtab?
(remove-from-mtab target))))))
+(define (mount-points)
+ "Return the mounts points for currently mounted file systems."
+ (call-with-input-file "/proc/mounts"
+ (lambda (port)
+ (let loop ((result '()))
+ (let ((line (read-line port)))
+ (if (eof-object? line)
+ (reverse result)
+ (match (string-tokenize line)
+ ((source mount-point _ ...)
+ (loop (cons mount-point result))))))))))
+
(define swapon
(let* ((ptr (dynamic-func "swapon" (dynamic-link)))
(proc (pointer->procedure int ptr (list '* int))))