;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2021 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 returns a manifest containing origins of all the packages.  The
;;; main purpose is to allow continuous integration services to keep upstream
;;; source code around.  It can also be passed to 'guix weather -m'.

(use-modules (srfi srfi-1) (srfi srfi-26)
             (ice-9 match) (ice-9 vlist)
             (guix packages) (guix profiles)
             (gnu packages))

(define (all-packages)
  "Return the list of all the packages, public or private, omitting only
superseded packages."
  (fold-packages (lambda (package lst)
                   (match (package-replacement package)
                     (#f (cons package lst))
                     (replacement
                      (append (list replacement package) lst))))
                 '()
                 #:select? (negate package-superseded)))

(define (upstream-origin source)
  "Return SOURCE without any patches or snippet."
  (origin (inherit source)
          (snippet #f) (patches '())))

(define (all-origins)
  "Return the list of origins referred to by all the packages."
  (let loop ((packages (all-packages))
             (origins  '())
             (visited   vlist-null))
    (match packages
      ((head . tail)
       (let ((new (remove (cut vhash-assq <> visited)
                          (package-direct-sources head))))
         (loop tail (append new origins)
               (fold (cut vhash-consq <> #t <>)
                     visited new))))
      (()
       origins))))

;; Return a manifest containing all the origins.
(manifest (map (lambda (origin)
                 (manifest-entry
                   (name (or (origin-actual-file-name origin)
                             "origin"))
                   (version "0")
                   (item (upstream-origin origin))))
               (all-origins)))
class='left'>Author</th></tr>
<tr><td><span title='2023-03-30 11:14:53 +0200'>2023-03-30</span></td><td><a href='/guix/commit/etc/release-manifest.scm?id=4ba06192aa9000f25946df9ed7cad2d7cbb6f2c4'>maint: Add icecat to the release manifest.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/release-manifest.scm (%system-packages): Uncomment icecat.
</span></span></td><td>Andreas Enge</td></tr>
<tr><td><span title='2023-02-05 06:56:42 +0100'>2023-02-05</span></td><td><a href='/guix/commit/etc/release-manifest.scm?id=c3e61c8c1f5ce867408ba7a113882a4b0ad5b2cb'>gnu: Rename 'guile-3.0/fixed' to 'guile-3.0/pinned'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/guile.scm: Rename variable 'guile-3.0/fixed' to
'guile-3.0/pinned', add deprecation.
* etc/release-manifest.scm (%packages-to-cross-build): Replace
'guile-3.0/fixed' with 'guile-3.0/pinned'.
* gnu/packages/autotools.scm (make-autoconf-wrapper)[inputs]: Likewise.
* gnu/packages/commencement.scm (guile-final): Likewise.

Signed-off-by: Liliana Marie Prikler &lt;liliana.prikler@gmail.com&gt;
</span></span></td><td>Simon Tournier</td></tr>
<tr><td><span title='2022-11-28 13:51:51 +0100'>2022-11-28</span></td><td><a href='/guix/commit/etc/release-manifest.scm?id=1bc9d5222f9053fd0ace7b92df0ef9548707cf41'>maint: Leave 'gcc-toolchain' out for i586-gnu.</a><span class='msg-avail'>...<span class='msg-tooltip'>This is a temporary measure to work around the fact that we're currently
lacking the necessary CPU power and human power to build everything up
to 'gcc-toolchain'.

* etc/release-manifest.scm (%base-packages/hurd): Comment out
"gcc-toolchain" for now.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-10-25 10:10:06 +0100'>2022-10-25</span></td><td><a href='/guix/commit/etc/release-manifest.scm?id=be9b213c75e903d999a6caedab1c6d4b3ffd623b'>maint: Tweak release manifest special case for armhf-linux.</a><span class='msg-avail'>...<span class='msg-tooltip'>Don't remove the emacs package, as it does build and substitutes are
available. Do remove the guix package though, as it doesn't build due to Guile
memory issues while compiling the package modules.

* etc/release-manifest.scm (%base-packages/armhf): Don't replace the emacs
package, remove the guix package.
(%base-manifest): Remove FIXME comment as %base-packages/armhf doesn't relate
to build power.
</span></span></td><td>Christopher Baines</td></tr>
<tr><td><span title='2022-09-01 18:31:26 +0200'>2022-09-01</span></td><td><a href='/guix/commit/etc/release-manifest.scm?id=fe149b01d0b65f421602f8bc794a926434f5d9a9'>maint: Ignore cross-compilation to x86.</a><span class='msg-avail'>...<span class='msg-tooltip'>This is consistent with what's done by 'cross-jobs' in (gnu ci).

* etc/release-manifest.scm (%cross-manifest): Remove "x86_64-linux-gnu"
and "i686-linux-gnu" from the list returned by 'targets'.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-05-25 09:27:25 +0200'>2022-05-25</span></td><td><a href='/guix/commit/etc/release-manifest.scm?id=dab819d5c4c55609efae098c8e3c2f2757c34e5b'>Move (gnu platform) and (gnu platforms ...) to guix/.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/platform.scm:
* gnu/platforms/arm.scm:
* gnu/platforms/hurd.scm:
* gnu/platforms/mips.scm:
* gnu/platforms/powerpc.scm:
* gnu/platforms/riscv.scm:
* gnu/platforms/s390.scm:
* gnu/platforms/x86.scm: Move to guix/.

* Makefile.am:
* doc/guix.texi (Porting to a New Platform):
* etc/release-manifest.scm:
* gnu/ci.scm:
* gnu/image.scm:
* gnu/local.mk:
* gnu/packages/bioinformatics.scm:
* gnu/packages/bootstrap.scm:
* gnu/packages/cross-base.scm:
* gnu/packages/instrumentation.scm:
* gnu/packages/linux.scm:
* gnu/system/image.scm:
* gnu/system/images/hurd.scm:
* gnu/system/images/novena.scm:
* gnu/system/images/pine64.scm:
* gnu/system/images/pinebook-pro.scm:
* gnu/system/images/rock64.scm:
* guix/scripts/build.scm:
* guix/scripts/system.scm:
* guix/self.scm: Update (gnu platform...) to (guix platform...).

Signed-off-by: Mathieu Othacehe &lt;othacehe@gnu.org&gt;
</span></span></td><td>Josselin Poiret</td></tr>
<tr><td><span title='2022-05-22 15:15:33 +0200'>2022-05-22</span></td><td><a href='/guix/commit/etc/release-manifest.scm?id=dd970122ddf3679482f658f73dd68307496c6215'>ci: Do not rely on hardcoded cross-targets lists.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/ci.scm (%cross-targets): Remove it ...
(cross-jobs): ... and use the targets procedure instead.
* etc/release-manifest.scm: Adapt it.

Signed-off-by: Mathieu Othacehe &lt;othacehe@gnu.org&gt;
</span></span></td><td>Mathieu Othacehe</td></tr>