;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017, 2018, 2020 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/>.

;;;
;;; This file defines a continuous integration job to build the same modular
;;; Guix as 'guix pull', which is defined in (guix self).
;;;

(use-modules (guix store)
             (guix config)
             (guix utils)
             ((guix packages) #:select (%hydra-supported-systems))
             (guix derivations)
             (guix monads)
             ((guix licenses) #:prefix license:)
             (srfi srfi-1)
             (ice-9 match))

;; XXX: Debugging hack: since `hydra-eval-guile-jobs' redirects the output
;; port to the bit bucket, let us write to the error port instead.
(setvbuf (current-error-port) 'line)
(set-current-output-port (current-error-port))

(define* (build-job store source version system)
  "Return a Hydra job a list building the modular Guix derivation from SOURCE
for SYSTEM.  Use VERSION as the version identifier."
  (lambda ()
    (define build
      (primitive-load (string-append source "/build-aux/build-self.scm")))

    (let ((drv (run-with-store store
                 (build source #:version version #:system system
                        #:pull-version 1
                        #:guile-version "2.2"))))
      `((derivation . ,(derivation-file-name drv)) ;the latest 2.2.x
        (log . ,(log-file store (derivation-file-name drv)))
        (outputs . ,(filter-map (lambda (res)
                                  (match res
                                    ((name . path)
                                     `(,name . ,path))))
                                (derivation->output-paths drv)))
        (nix-name . ,(derivation-name drv))
        (system . ,(derivation-system drv))
        (description . "Modular Guix")
        (long-description
         . "This is the modular Guix package as produced by 'guix pull'.")
        (license . ,license:gpl3+)
        (home-page . ,%guix-home-page-url)
        (maintainers . (,%guix-bug-report-address))))))

(define (hydra-jobs store arguments)
  "Return Hydra jobs."
  (define systems
    (match (assoc-ref arguments 'systems)
      (#f              %hydra-supported-systems)
      ((lst ...)       lst)
      ((? string? str) (call-with-input-string str read))))

  (define guix-checkout
    (or (assq-ref arguments 'guix)                ;Hydra on hydra
        (assq-ref arguments 'guix-modular)))      ;Cuirass on berlin

  (define version
    (or (assq-ref guix-checkout 'revision)
        "0.unknown"))

  (let ((file (assq-ref guix-checkout 'file-name)))
    (format (current-error-port) "using checkout ~s (~s; arguments: ~s)~%"
            guix-checkout file arguments)

    (map (lambda (system)
           (let ((name (string->symbol
                        (string-append "guix." system))))
             `(,name
               . ,(build-job store file version system))))
         systems)))
Mention libmagic.</a><span class='msg-avail'>...</span></td><td>Leo Famulari</td></tr>
<tr><td><span title='2017-10-01 22:16:22 +0300'>2017-10-01</span></td><td><a href='/guix/commit/gnu/packages/file.scm?id=64df08f0cfac8f7a329002afa3461fd62a4b229c'>Merge remote-tracking branch 'origin/master' into core-updates</a></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2017-09-06 08:48:52 +0300'>2017-09-06</span></td><td><a href='/guix/commit/gnu/packages/file.scm?id=8d988f3845ebab6e7a87904ecb888733265068d6'>gnu: file: Update to 5.32.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2017-09-05 23:04:05 +0300'>2017-09-05</span></td><td><a href='/guix/commit/gnu/packages/file.scm?id=f1597427f220b0799b9c8847768d2f5a93fe3730'>gnu: file: Fix CVE-2017-1000249.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2017-04-03 15:12:10 +0200'>2017-04-03</span></td><td><a href='/guix/commit/gnu/packages/file.scm?id=8c85cb1b9ff10de2df0f3395d0491c389b6596dd'>gnu: file: Update to 5.30.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2016-08-15 10:42:27 +0300'>2016-08-15</span></td><td><a href='/guix/commit/gnu/packages/file.scm?id=da931eee6014a4eaa59c1c513e24fa5045b5e188'>gnu: file: Update to 5.28.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2015-11-16 16:06:49 +0800'>2015-11-16</span></td><td><a href='/guix/commit/gnu/packages/file.scm?id=b85d0984105ccbc4842e57788be769deb23bbc1a'>gnu: file: Update to 5.25.</a><span class='msg-avail'>...</span></td><td>宋文武</td></tr>