From mboxrd@z Thu Jan 1 00:00:00 1970 From: David Craven Subject: [PATCH 4/4] environment: Add '--debug' flag. Date: Tue, 19 Jul 2016 18:49:16 +0200 Message-ID: <20160719164916.6597-5-david@craven.ch> References: <20160719164916.6597-1-david@craven.ch> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:44317) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bPYDu-00009r-7n for guix-devel@gnu.org; Tue, 19 Jul 2016 12:50:23 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1bPYDt-0000cB-9Z for guix-devel@gnu.org; Tue, 19 Jul 2016 12:50:22 -0400 Received: from so254-10.mailgun.net ([198.61.254.10]:47138) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bPYDs-0000Yu-31 for guix-devel@gnu.org; Tue, 19 Jul 2016 12:50:21 -0400 In-Reply-To: <20160719164916.6597-1-david@craven.ch> 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" To: guix-devel@gnu.org Cc: David Craven * guix/scripts/environment.scm: Add '--debug' flag to add common debugging packages (file, gdb, strace, valgrind) to environment. --- guix/scripts/environment.scm | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/guix/scripts/environment.scm b/guix/scripts/environment.scm index ebe966f..073dcac 100644 --- a/guix/scripts/environment.scm +++ b/guix/scripts/environment.scm @@ -165,6 +165,8 @@ COMMAND or an interactive shell in that environment.\n")) according to SPEC")) (display (_ " --bootstrap use bootstrap binaries to build the environment")) + (display (_ " + -d --debug add file, gdb, strace and valgrind to the environment")) (newline) (show-build-options-help) (newline) @@ -249,6 +251,12 @@ COMMAND or an interactive shell in that environment.\n")) (option '("bootstrap") #f #f (lambda (opt name arg result) (alist-cons 'bootstrap? #t result))) + (option '(#\d "debug") #f #f + (lambda (opt name arg result) + (alist-cons 'package `(ad-hoc-package ,"file") + (alist-cons 'package `(ad-hoc-package ,"gdb") + (alist-cons 'package `(ad-hoc-package ,"strace") + (alist-cons 'package `(ad-hoc-package ,"valgrind") result)))))) %standard-build-options)) (define (pick-all alist key) -- 2.9.0