From 66bc1d2aaf74fc7eb4ef9b3519c69bd37142ffb3 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Sat, 16 Sep 2017 12:57:37 +0200 Subject: cuirass: Add gnu-system build spec. * build-aux/hydra/gnu-system.scm (hydra-jobs): Support subset "hello". * build-aux/cuirass/gnu-system.scm: New file. * doc/guix.texi (Continuous Integration): Update example spec. --- build-aux/hydra/gnu-system.scm | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'build-aux/hydra/gnu-system.scm') diff --git a/build-aux/hydra/gnu-system.scm b/build-aux/hydra/gnu-system.scm index 73bd566f7c..8f97ab934f 100644 --- a/build-aux/hydra/gnu-system.scm +++ b/build-aux/hydra/gnu-system.scm @@ -270,6 +270,7 @@ valid." (define subset (match (assoc-ref arguments 'subset) ("core" 'core) ; only build core packages + ("hello" 'hello) ; only build hello (_ 'all))) ; build everything (define (cross-jobs system) @@ -340,6 +341,12 @@ valid." package system)) %core-packages) (cross-jobs system))) + ((hello) + ;; Build hello package only. + (if (string=? system (%current-system)) + (let ((hello (specification->package "hello"))) + (list (package-job store (job-name hello) hello system))) + '())) (else (error "unknown subset" subset)))) %hydra-supported-systems))) -- cgit 1.4.1 From 516b53828e90018126b79e7600cae9aa531e06d7 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Wed, 27 Sep 2017 22:04:44 +0200 Subject: cuirass: Support subset with list of package[@version]. * build-aux/hydra/gnu-system.scm (hydra-jobs): Support subset of packages: ("name[@version" ...). --- build-aux/hydra/gnu-system.scm | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'build-aux/hydra/gnu-system.scm') diff --git a/build-aux/hydra/gnu-system.scm b/build-aux/hydra/gnu-system.scm index 8f97ab934f..146d929f9b 100644 --- a/build-aux/hydra/gnu-system.scm +++ b/build-aux/hydra/gnu-system.scm @@ -1,5 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017 Ludovic Courtès +;;; Copyright © 2017 Jan Nieuwenhuizen ;;; ;;; This file is part of GNU Guix. ;;; @@ -271,6 +272,7 @@ valid." (match (assoc-ref arguments 'subset) ("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) @@ -347,6 +349,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))) -- cgit 1.4.1