From unknown Sat Sep 06 13:45:09 2025 X-Loop: help-debbugs@gnu.org Subject: [bug#28486] [PATCH 2/3] gnu-system: Accept subset with list of package names. Resent-From: Jan Nieuwenhuizen Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Sun, 17 Sep 2017 20:14:03 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 28486 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 28486@debbugs.gnu.org X-Debbugs-Original-To: guix-patches@gnu.org Received: via spool by submit@debbugs.gnu.org id=B.1505679194784 (code B ref -1); Sun, 17 Sep 2017 20:14:03 +0000 Received: (at submit) by debbugs.gnu.org; 17 Sep 2017 20:13:14 +0000 Received: from localhost ([127.0.0.1]:45299 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dtfwH-0000CY-Oy for submit@debbugs.gnu.org; Sun, 17 Sep 2017 16:13:14 -0400 Received: from eggs.gnu.org ([208.118.235.92]:36027) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dtfw6-0000BA-RP for submit@debbugs.gnu.org; Sun, 17 Sep 2017 16:13:10 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dtfvy-0003Aj-Tf for submit@debbugs.gnu.org; Sun, 17 Sep 2017 16:12:57 -0400 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=-0.0 required=5.0 tests=BAYES_40,RP_MATCHES_RCVD autolearn=disabled version=3.3.2 Received: from lists.gnu.org ([2001:4830:134:3::11]:40078) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1dtfvy-0003AH-PP for submit@debbugs.gnu.org; Sun, 17 Sep 2017 16:12:54 -0400 Received: from eggs.gnu.org ([2001:4830:134:3::10]:55175) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dtfvw-0006vh-FH for guix-patches@gnu.org; Sun, 17 Sep 2017 16:12:54 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dtfvr-00037c-ED for guix-patches@gnu.org; Sun, 17 Sep 2017 16:12:52 -0400 Received: from fencepost.gnu.org ([2001:4830:134:3::e]:36650) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dtfvr-00037Y-BD; Sun, 17 Sep 2017 16:12:47 -0400 Received: from peder.onsbrabantnet.nl ([88.159.206.46]:60928 helo=localhost.localdomain) by fencepost.gnu.org with esmtpa (Exim 4.82) (envelope-from ) id 1dtfvq-0003Ow-P2; Sun, 17 Sep 2017 16:12:47 -0400 From: Jan Nieuwenhuizen Date: Sun, 17 Sep 2017 22:11:55 +0200 Message-Id: <20170917201157.9802-3-janneke@gnu.org> X-Mailer: git-send-email 2.14.1 In-Reply-To: <20170917201157.9802-1-janneke@gnu.org> References: <20170917201157.9802-1-janneke@gnu.org> MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 2001:4830:134:3::11 X-Spam-Score: -5.0 (-----) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -5.0 (-----) * examples/gnu-system.scm (hydra-jobs): Accept subset with list of package names. --- examples/gnu-system.scm | 18 +++++++++++++++--- 1 file changed, 15 insertions(+), 3 deletions(-) diff --git a/examples/gnu-system.scm b/examples/gnu-system.scm index 4076786..ee2b571 100644 --- a/examples/gnu-system.scm +++ b/examples/gnu-system.scm @@ -2,6 +2,7 @@ ;;; ;;; Copyright © 2012, 2013, 2014, 2015, 2016 Ludovic Courtès ;;; Copyright © 2016 Mathieu Lirzin +;;; Copyright © 2017 Jan Nieuwenhuizen ;;; ;;; This file is part of Cuirass. ;;; @@ -163,9 +164,10 @@ valid." "Return Hydra jobs." (define subset (match (assoc-ref arguments 'subset) - ("core" 'core) ; only build core packages - ("hello" 'hello) ; only build hello - (_ 'all))) ; build everything + ("core" 'core) ; only build core packages + ("hello" 'hello) ; only build hello + (((? string?) (? string?) ...) 'list) ; only build selected list of packages + (_ 'all))) ; build everything (define (cross-jobs system) (define (from-32-to-64? target) @@ -226,6 +228,16 @@ valid." (let ((hello (specification->package "hello"))) (list (package-job store (%job-name hello) hello system))) '())) + ((list) + ;; Build selected list of packages only. + (if (string=? system (%current-system)) + (let* ((names (assoc-ref arguments 'subset)) + (packages (map specification->package names))) + (map (lambda (package) + (package-job store (%job-name package) + package system)) + packages)) + '())) (else (error "unknown subset" subset)))) %hydra-supported-systems))) -- Jan Nieuwenhuizen | GNU LilyPond http://lilypond.org Freelance IT http://JoyofSource.com | Avatar® http://AvatarAcademy.com From unknown Sat Sep 06 13:45:09 2025 MIME-Version: 1.0 X-Mailer: MIME-tools 5.505 (Entity 5.505) X-Loop: help-debbugs@gnu.org From: help-debbugs@gnu.org (GNU bug Tracking System) To: Jan Nieuwenhuizen Subject: bug#28486: closed (Re: bug#28486: Acknowledgement ([PATCH 2/3] gnu-system: Accept subset with list of package names.)) Message-ID: References: <87o9q82eol.fsf@gnu.org> <20170917201157.9802-3-janneke@gnu.org> X-Gnu-PR-Message: they-closed 28486 X-Gnu-PR-Package: guix-patches X-Gnu-PR-Keywords: patch Reply-To: 28486@debbugs.gnu.org Date: Mon, 18 Sep 2017 15:47:02 +0000 Content-Type: multipart/mixed; boundary="----------=_1505749622-18440-1" This is a multi-part message in MIME format... ------------=_1505749622-18440-1 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset="utf-8" Your bug report #28486: [PATCH 2/3] gnu-system: Accept subset with list of package names. which was filed against the guix-patches package, has been closed. The explanation is attached below, along with your original report. If you require more details, please reply to 28486@debbugs.gnu.org. --=20 28486: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=3D28486 GNU Bug Tracking System Contact help-debbugs@gnu.org with problems ------------=_1505749622-18440-1 Content-Type: message/rfc822 Content-Disposition: inline Content-Transfer-Encoding: 7bit Received: (at 28486-done) by debbugs.gnu.org; 18 Sep 2017 15:46:09 +0000 Received: from localhost ([127.0.0.1]:46637 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dtyFN-0004mK-CH for submit@debbugs.gnu.org; Mon, 18 Sep 2017 11:46:09 -0400 Received: from eggs.gnu.org ([208.118.235.92]:38946) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dtyFK-0004le-KS for 28486-done@debbugs.gnu.org; Mon, 18 Sep 2017 11:46:06 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dtyFC-0007jF-9i for 28486-done@debbugs.gnu.org; Mon, 18 Sep 2017 11:46:01 -0400 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=-0.5 required=5.0 tests=BAYES_05,RP_MATCHES_RCVD autolearn=disabled version=3.3.2 Received: from fencepost.gnu.org ([2001:4830:134:3::e]:44519) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dtyF2-0007d1-Lo; Mon, 18 Sep 2017 11:45:48 -0400 Received: from mx.verum.com ([31.223.170.65]:65318 helo=dundal.peder.onsbrabantnet.nl) by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256) (Exim 4.82) (envelope-from ) id 1dtyF2-0007tw-5c; Mon, 18 Sep 2017 11:45:48 -0400 From: Jan Nieuwenhuizen To: help-debbugs@gnu.org (GNU bug Tracking System) Subject: Re: bug#28486: Acknowledgement ([PATCH 2/3] gnu-system: Accept subset with list of package names.) Organization: AvatarAcademy.nl References: <20170917201157.9802-3-janneke@gnu.org> X-Url: http://AvatarAcademy.nl Date: Mon, 18 Sep 2017 17:45:46 +0200 In-Reply-To: (GNU bug Tracking System's message of "Sun, 17 Sep 2017 20:14:04 +0000") Message-ID: <87o9q82eol.fsf@gnu.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/25.2 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 2001:4830:134:3::e X-Spam-Score: -5.0 (-----) X-Debbugs-Envelope-To: 28486-done Cc: 28486-done@debbugs.gnu.org X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -5.0 (-----) GNU bug Tracking System writes: As discussed in other thread... pushed to master as bbab646926714ad6cdaac3e= 4578a14b408b65a84 janneke --=20 Jan Nieuwenhuizen | GNU LilyPond http://lilypond.org Freelance IT http://JoyofSource.com | Avatar=C2=AE http://AvatarAcademy.com ------------=_1505749622-18440-1 Content-Type: message/rfc822 Content-Disposition: inline Content-Transfer-Encoding: 7bit Received: (at submit) by debbugs.gnu.org; 17 Sep 2017 20:13:14 +0000 Received: from localhost ([127.0.0.1]:45299 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dtfwH-0000CY-Oy for submit@debbugs.gnu.org; Sun, 17 Sep 2017 16:13:14 -0400 Received: from eggs.gnu.org ([208.118.235.92]:36027) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dtfw6-0000BA-RP for submit@debbugs.gnu.org; Sun, 17 Sep 2017 16:13:10 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dtfvy-0003Aj-Tf for submit@debbugs.gnu.org; Sun, 17 Sep 2017 16:12:57 -0400 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=-0.0 required=5.0 tests=BAYES_40,RP_MATCHES_RCVD autolearn=disabled version=3.3.2 Received: from lists.gnu.org ([2001:4830:134:3::11]:40078) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1dtfvy-0003AH-PP for submit@debbugs.gnu.org; Sun, 17 Sep 2017 16:12:54 -0400 Received: from eggs.gnu.org ([2001:4830:134:3::10]:55175) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dtfvw-0006vh-FH for guix-patches@gnu.org; Sun, 17 Sep 2017 16:12:54 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dtfvr-00037c-ED for guix-patches@gnu.org; Sun, 17 Sep 2017 16:12:52 -0400 Received: from fencepost.gnu.org ([2001:4830:134:3::e]:36650) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dtfvr-00037Y-BD; Sun, 17 Sep 2017 16:12:47 -0400 Received: from peder.onsbrabantnet.nl ([88.159.206.46]:60928 helo=localhost.localdomain) by fencepost.gnu.org with esmtpa (Exim 4.82) (envelope-from ) id 1dtfvq-0003Ow-P2; Sun, 17 Sep 2017 16:12:47 -0400 From: Jan Nieuwenhuizen To: guix-patches@gnu.org Subject: [PATCH 2/3] gnu-system: Accept subset with list of package names. Date: Sun, 17 Sep 2017 22:11:55 +0200 Message-Id: <20170917201157.9802-3-janneke@gnu.org> X-Mailer: git-send-email 2.14.1 In-Reply-To: <20170917201157.9802-1-janneke@gnu.org> References: <20170917201157.9802-1-janneke@gnu.org> MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 2001:4830:134:3::11 X-Spam-Score: -5.0 (-----) X-Debbugs-Envelope-To: submit X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -5.0 (-----) * examples/gnu-system.scm (hydra-jobs): Accept subset with list of package names. --- examples/gnu-system.scm | 18 +++++++++++++++--- 1 file changed, 15 insertions(+), 3 deletions(-) diff --git a/examples/gnu-system.scm b/examples/gnu-system.scm index 4076786..ee2b571 100644 --- a/examples/gnu-system.scm +++ b/examples/gnu-system.scm @@ -2,6 +2,7 @@ ;;; ;;; Copyright © 2012, 2013, 2014, 2015, 2016 Ludovic Courtès ;;; Copyright © 2016 Mathieu Lirzin +;;; Copyright © 2017 Jan Nieuwenhuizen ;;; ;;; This file is part of Cuirass. ;;; @@ -163,9 +164,10 @@ valid." "Return Hydra jobs." (define subset (match (assoc-ref arguments 'subset) - ("core" 'core) ; only build core packages - ("hello" 'hello) ; only build hello - (_ 'all))) ; build everything + ("core" 'core) ; only build core packages + ("hello" 'hello) ; only build hello + (((? string?) (? string?) ...) 'list) ; only build selected list of packages + (_ 'all))) ; build everything (define (cross-jobs system) (define (from-32-to-64? target) @@ -226,6 +228,16 @@ valid." (let ((hello (specification->package "hello"))) (list (package-job store (%job-name hello) hello system))) '())) + ((list) + ;; Build selected list of packages only. + (if (string=? system (%current-system)) + (let* ((names (assoc-ref arguments 'subset)) + (packages (map specification->package names))) + (map (lambda (package) + (package-job store (%job-name package) + package system)) + packages)) + '())) (else (error "unknown subset" subset)))) %hydra-supported-systems))) -- Jan Nieuwenhuizen | GNU LilyPond http://lilypond.org Freelance IT http://JoyofSource.com | Avatar® http://AvatarAcademy.com ------------=_1505749622-18440-1--