From mboxrd@z Thu Jan 1 00:00:00 1970 From: David Thompson Subject: [PATCH 01/15] build: syscalls: Add additional mount flags. Date: Mon, 6 Jul 2015 09:16:30 -0400 Message-ID: <1436188604-2813-1-git-send-email-dthompson2@worcester.edu> Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:47029) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZC6GY-0000sN-SF for guix-devel@gnu.org; Mon, 06 Jul 2015 09:16:59 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZC6GQ-0006Wl-96 for guix-devel@gnu.org; Mon, 06 Jul 2015 09:16:56 -0400 Received: from mail-qg0-f54.google.com ([209.85.192.54]:36107) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZC6GQ-0006Ve-5Z for guix-devel@gnu.org; Mon, 06 Jul 2015 09:16:50 -0400 Received: by qgeg89 with SMTP id g89so68548858qge.3 for ; Mon, 06 Jul 2015 06:16:48 -0700 (PDT) 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 (MS_NOSUID, MS_NODEV, MS_NOEXEC, MS_STRICTATIME): New variables. --- guix/build/syscalls.scm | 17 +++++++++++++---- 1 file changed, 13 insertions(+), 4 deletions(-) diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm index 3585bf2..ec1ce89 100644 --- a/guix/build/syscalls.scm +++ b/guix/build/syscalls.scm @@ -1,5 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2014, 2015 Ludovic Courtès +;;; Copyright © 2015 David Thompson ;;; ;;; This file is part of GNU Guix. ;;; @@ -26,9 +27,13 @@ #:use-module (ice-9 ftw) #:export (errno MS_RDONLY + MS_NOSUID + MS_NODEV + MS_NOEXEC MS_REMOUNT MS_BIND MS_MOVE + MS_STRICTATIME restart-on-EINTR mount umount @@ -136,10 +141,14 @@ entries)))) ;; Linux mount flags, from libc's . -(define MS_RDONLY 1) -(define MS_REMOUNT 32) -(define MS_BIND 4096) -(define MS_MOVE 8192) +(define MS_RDONLY 1) +(define MS_NOSUID 2) +(define MS_NODEV 4) +(define MS_NOEXEC 8) +(define MS_REMOUNT 32) +(define MS_BIND 4096) +(define MS_MOVE 8192) +(define MS_STRICTATIME 16777216) (define mount (let* ((ptr (dynamic-func "mount" (dynamic-link))) -- 2.4.3