From mboxrd@z Thu Jan 1 00:00:00 1970 From: Alex Kost Subject: [PATCH 6/7] guix build: Add 'build-package'. Date: Sat, 25 Jul 2015 11:49:56 +0300 Message-ID: <1437814197-6321-7-git-send-email-alezost@gmail.com> References: <1437814197-6321-1-git-send-email-alezost@gmail.com> 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]:53497) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZIvAF-0004XB-KM for guix-devel@gnu.org; Sat, 25 Jul 2015 04:50:41 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZIvAC-00056D-UC for guix-devel@gnu.org; Sat, 25 Jul 2015 04:50:39 -0400 Received: from mail-lb0-x22c.google.com ([2a00:1450:4010:c04::22c]:34318) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZIvAC-00055J-B7 for guix-devel@gnu.org; Sat, 25 Jul 2015 04:50:36 -0400 Received: by lbbzr7 with SMTP id zr7so27500404lbb.1 for ; Sat, 25 Jul 2015 01:50:35 -0700 (PDT) In-Reply-To: <1437814197-6321-1-git-send-email-alezost@gmail.com> 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: Alex Kost * guix/scripts/build.scm (build-package): New procedure. --- guix/scripts/build.scm | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/guix/scripts/build.scm b/guix/scripts/build.scm index f169853..b710b59 100644 --- a/guix/scripts/build.scm +++ b/guix/scripts/build.scm @@ -1,6 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2012, 2013, 2014, 2015 Ludovic Courtès ;;; Copyright © 2013 Mark H Weaver +;;; Copyright © 2015 Alex Kost ;;; ;;; This file is part of GNU Guix. ;;; @@ -39,9 +40,20 @@ set-build-options-from-command-line set-build-options-from-command-line* show-build-options-help - + build-package guix-build)) +(define (build-package package . build-options) + "Build PACKAGE using BUILD-OPTIONS." + (with-store store + (let* ((drv (run-with-store store + (package->derivation package))) + (drvs (list drv))) + (apply set-build-options store build-options) + (show-what-to-build store drvs) + (build-derivations store drvs) + (show-derivation-outputs drv)))) + (define (register-root store paths root) "Register ROOT as an indirect GC root for all of PATHS." (let* ((root (string-append (canonicalize-path (dirname root)) -- 2.4.3