From mboxrd@z Thu Jan 1 00:00:00 1970 From: David Thompson Subject: [PATCH 02/15] build: syscalls: Add unmount flags. Date: Mon, 6 Jul 2015 09:16:31 -0400 Message-ID: <1436188604-2813-2-git-send-email-dthompson2@worcester.edu> References: <1436188604-2813-1-git-send-email-dthompson2@worcester.edu> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:47310) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZC6Gx-0001F2-H3 for guix-devel@gnu.org; Mon, 06 Jul 2015 09:17:28 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZC6Gs-0006mG-TG for guix-devel@gnu.org; Mon, 06 Jul 2015 09:17:23 -0400 Received: from mail-qg0-f46.google.com ([209.85.192.46]:33007) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZC6Gs-0006lw-Of for guix-devel@gnu.org; Mon, 06 Jul 2015 09:17:18 -0400 Received: by qgef3 with SMTP id f3so18566502qge.0 for ; Mon, 06 Jul 2015 06:17:18 -0700 (PDT) In-Reply-To: <1436188604-2813-1-git-send-email-dthompson2@worcester.edu> List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: guix-devel@gnu.org Cc: David Thompson From: David Thompson * guix/build/syscalls.scm (MNT_FORCE, MNT_DETACH, MNT_EXPIRE) (UMOUNT_NOFOLLOW): New variables. --- guix/build/syscalls.scm | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm index ec1ce89..6d31510 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 *)))) -- 2.4.3