;;; 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)))
algrind.scm?id=091bf43b7f9d9b61481f6661cdaf4df6531a93ee&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2023-05-25 09:45:02 +0100'>2023-05-25</span></td><td><a href='/guix/commit/gnu/packages/valgrind.scm?id=e5184ba4349a66db24c5723c5a29befca6bcd338'>gnu: valgrind: Mark as not supported for armhf-linux.</a><span class='msg-avail'>...<span class='msg-tooltip'>From the build log:
  checking for a supported CPU... no (arm)
  configure: error: Unsupported host architecture. Sorry

* gnu/packages/valgrind.scm (valgrind)[supported-systems]: Remove armhf-linux.
</span></span></td><td>Christopher Baines</td></tr>
<tr><td><span title='2023-04-26 14:34:23 +0200'>2023-04-26</span></td><td><a href='/guix/commit/gnu/packages/valgrind.scm?id=c3509c2148ee74b66a7e4338c626cd3b582ab51c'>gnu: valgrind: Update to 3.20.0.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/valgrind.scm (valgrind): Update to 3.20.0. Remove patch.
[arguments]&lt;phases&gt;: Remove trailing #t.
* gnu/packages/patches/valgrind-enable-arm.patch: Delete file.
* gnu/packages/valgrind.scm (dist_patch_DATA): Unregister patch.

Signed-off-by: Andreas Enge &lt;andreas@enge.fr&gt;
</span></span></td><td>zimoun</td></tr>
<tr><td><span title='2023-04-14 23:37:06 -0400'>2023-04-14</span></td><td><a href='/guix/commit/gnu/packages/valgrind.scm?id=fa2c1689c8972a1cdd111bcbc114c25fbf447904'>gnu: valgrind/interactive: Rely on non-stripped glibc symbols.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/valgrind.scm (valgrind/interactive)
[source]: Remove patches.
[arguments]: Delete field.
* gnu/packages/patches/valgrind-fix-default-debuginfo-path.patch: Delete file.
* gnu/local.mk (dist_patch_DATA): De-register it.
</span></span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2023-02-09 01:07:22 +0100'>2023-02-09</span></td><td><a href='/guix/commit/gnu/packages/valgrind.scm?id=7ad98c571e1bd19b36b1cde7a49868b589fdb3ca'>gnu: Remove valgrind-3.20.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/valgrind.scm (valgrind-3.20): Delete variable.
(valgrind/interactive): Update to 3.20.0.

Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Simon Tournier</td></tr>