;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2014, 2015 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 at hydra.gnu.org.
;;;

(use-modules (guix store)
             (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-gnuabi64")))
           (total  (append native cross)))

      (set-build-options store #:use-substitutes? #t)
      (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~%"
                    (length total))
            (format (current-error-port)
                    "~a packages are not substitutable:~%~{  ~a~%~}~%"
                    (length missing) missing))
        (exit (null? missing))))))
ntent'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/nix/libstore?id=4c3d2b2a8f6f6249b497776e5513bbadf5c6aa4c&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2015-12-30 18:01:01 +0100'>2015-12-30</span></td><td><a href='/guix/commit/nix/libstore?id=7a57c96a1024e6b74359ba561110f19f92b89b06'>daemon: Build in /tmp/guix-build-*.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-12-30 01:20:41 +0100'>2015-12-30</span></td><td><a href='/guix/commit/nix/libstore?id=20b978192e18a0ce0e34da2123a1174ebbce183c'>daemon: Remove unused 'RemoteStore' class.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-12-13 19:20:01 +0100'>2015-12-13</span></td><td><a href='/guix/commit/nix/libstore?id=f3ff1da42479eda7826d1bcb10e3a067e62a2daa'>daemon: Better distinguish build statuses.</a><span class='msg-avail'>...</span></td><td>Eelco Dolstra</td></tr>
<tr><td><span title='2015-12-09 14:29:41 +0100'>2015-12-09</span></td><td><a href='/guix/commit/nix/libstore?id=cb9601029ea164b86bdf997f7160d494c15d344b'>daemon: Use deterministic $TMPDIR in chroot.</a><span class='msg-avail'>...</span></td><td>Eelco Dolstra</td></tr>
<tr><td><span title='2015-12-08 23:58:12 +0100'>2015-12-08</span></td><td><a href='/guix/commit/nix/libstore?id=b23b4d394a39b60188ed74ecdf1027bc7dd5b9b3'>daemon: Allow builds to be repeated.</a><span class='msg-avail'>...</span></td><td>Eelco Dolstra</td></tr>
<tr><td><span title='2015-12-02 19:37:59 +0200'>2015-12-02</span></td><td><a href='/guix/commit/nix/libstore?id=708d9070006fd46ffe4c2c3cf64154ea4430202a'>daemon: Add 'buildMode' parameter to 'buildPaths' RPC.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-12-02 19:37:59 +0200'>2015-12-02</span></td><td><a href='/guix/commit/nix/libstore?id=e134baae774eaa78e7ae8c3d87db50170f023536'>daemon: optimizePath: Detect some .links corruptions.</a><span class='msg-avail'>...</span></td><td>Eelco Dolstra</td></tr>
<tr><td><span title='2015-12-02 19:37:59 +0200'>2015-12-02</span></td><td><a href='/guix/commit/nix/libstore?id=60c7c364f81309adb6e22e2cbf250669916b7d11'>daemon: Filter build-chroot-dirs entries that conflict with derivation outputs.</a><span class='msg-avail'>...</span></td><td>Eelco Dolstra</td></tr>
<tr><td><span title='2015-12-02 19:37:59 +0200'>2015-12-02</span></td><td><a href='/guix/commit/nix/libstore?id=538684d0c42fdedfbd660840d3e66c783c9006ef'>daemon: Prevent .chroot from being GC'ed when using LocalStore::buildDerivati...</a><span class='msg-avail'>...</span></td><td>Eelco Dolstra</td></tr>
<tr><td><span title='2015-11-01 14:26:54 +0100'>2015-11-01</span></td><td><a href='/guix/commit/nix/libstore?id=cbe95af7123fe4d384d36f4a55bfba7286a8de1b'>Remove unneeded HAVE_UNSHARE.</a><span class='msg-avail'>...</span></td><td>Manolis Ragkousis</td></tr>