;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

;;;
;;; Check whether important binaries are available.
;;;

(use-modules (guix store)
             (guix grafts)
             (guix packages)
             (guix derivations)
             (gnu packages emacs)
             (gnu packages make-bootstrap)
             (srfi srfi-1)
             (srfi srfi-26)
             (ice-9 format))

(with-store store
  (parameterize ((%graft? #f))
    (let* ((native (append-map (lambda (system)
                                 (map (cut package-derivation store <> system)
                                      (list %bootstrap-tarballs emacs)))
                               %hydra-supported-systems))
           (cross  (map (cut package-cross-derivation store
                             %bootstrap-tarballs <>)
                        '("mips64el-linux-gnu"
                          "arm-linux-gnueabihf")))
           (total  (append native cross)))

      (set-build-options store
                         #:use-substitutes? #t
                         #:substitute-urls %default-substitute-urls)
      (let* ((total     (map derivation->output-path total))
             (available (substitutable-paths store total))
             (missing   (lset-difference string=? total available)))
        (if (null? missing)
            (format (current-error-port)
                    "~a packages found substitutable on~{ ~a~}~%"
                    (length total) %hydra-supported-systems)
            (format (current-error-port)
                    "~a packages are not substitutable:~%~{  ~a~%~}~%"
                    (length missing) missing))
        (exit (null? missing))))))
>
<tr><td><span title='2018-03-05 10:41:18 +0100'>2018-03-05</span></td><td><a href='/guix/commit/config-daemon.ac?id=bdbece905538caf68817066126cb9b6b68ba9fd4'>build: Default to berlin.guixsd.org substitutes on aarch64.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-03-05 10:41:18 +0100'>2018-03-05</span></td><td><a href='/guix/commit/config-daemon.ac?id=234d7ef567bd98ace98dd784472f19d2ee84f73d'>build: Always use https substitute URLs.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-02-27 00:45:59 +0100'>2018-02-27</span></td><td><a href='/guix/commit/config-daemon.ac?id=6f4c74620da01ead97507ead59b8b7a007fc5c5a'>build: Really build 'guix offload' when possible.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-02-26 18:19:34 +0100'>2018-02-26</span></td><td><a href='/guix/commit/config-daemon.ac?id=1d84d7bf6052c0c80bd212d4524876576e9817d4'>build: Require Guile &gt;= 2.0.13.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-01-07 23:47:22 +0100'>2018-01-07</span></td><td><a href='/guix/commit/config-daemon.ac?id=f997137d0e2eba27bb1e2b282ee19ea474c41e12'>daemon: Make libbz2 an optional dependency.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-01-07 23:47:22 +0100'>2018-01-07</span></td><td><a href='/guix/commit/config-daemon.ac?id=29a686688674dc875775305312513405fa396a06'>daemon: Add gzip log compression.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-02-06 10:51:25 +0100'>2017-02-06</span></td><td><a href='/guix/commit/config-daemon.ac?id=1ca0f20a7ded5de185f6dee93f6da30eb62a9188'>config-daemon.ac: detect host AR</a><span class='msg-avail'>...</span></td><td>Sergei Trofimovich</td></tr>
<tr><td><span title='2016-11-25 23:44:20 +0100'>2016-11-25</span></td><td><a href='/guix/commit/config-daemon.ac?id=21531add3205e400707c8fbfd841845f9a71863a'>offload: Use Guile-SSH instead of GNU lsh.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-11-16 18:19:47 +0100'>2016-11-16</span></td><td><a href='/guix/commit/config-daemon.ac?id=94d92c7796a3dd50c27d532315f7d497ac99f08e'>daemon: Add "builtin:download" derivation builder.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-07-16 14:41:39 +0200'>2016-07-16</span></td><td><a href='/guix/commit/config-daemon.ac?id=f82ce8f6b1e1f64aad08e66eec77d72d8e53b1ad'>build: Substitute URLs now default to "mirror.hydra.gnu.org" alone.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-03-19 15:07:46 +0100'>2016-03-19</span></td><td><a href='/guix/commit/config-daemon.ac?id=ef5f5c8659b1ca3999e362dfa33478e0a0150ced'>build: Protect against misconfiguration of localstatedir.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-03-16 11:27:37 +0100'>2016-03-16</span></td><td><a href='/guix/commit/config-daemon.ac?id=df061d079b50111280aa7209b3b3c4cf21fde218'>build: Default to "https://mirror.hydra.gnu.org/" for substitutes.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-12-09 22:18:47 +0100'>2015-12-09</span></td><td><a href='/guix/commit/config-daemon.ac?id=cd48eae560c76f93cec6cf3db7c8cd788b929a69'>build: Always check for gzip/bzip2/xz.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-10-09 20:57:24 +0200'>2015-10-09</span></td><td><a href='/guix/commit/config-daemon.ac?id=ca34fc317f7a812285805f0cc6b41ccae6d57434'>build: Fix libgcrypt detection on FHS systems.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>