;;; 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)))
</th><th class='left'>Author</th></tr>
<tr><td><span title='2024-04-17 12:13:01 +0200'>2024-04-17</span></td><td><a href='/guix/commit/gnu/system/vm.scm?id=d33965908dc8e21e9c9834ce1061cdcc664295ab'>vm: Always use a native emulator in ‘guix system vm’.</a><span class='msg-avail'>...<span class='msg-tooltip'>Suggested by Zheng Junjie &lt;zhengjunjie@iscas.ac.cn&gt;.

* gnu/system/vm.scm (system-qemu-image/shared-store-script)[qemu-exec]:
Wrap first element in ‘with-parameters’.

Change-Id: Iab9905aaa7e80bad0372c1ee7c3ea88a89564f8f
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2024-03-31 22:28:11 +0200'>2024-03-31</span></td><td><a href='/guix/commit/gnu/system/vm.scm?id=16c713083516e60b5ae30b3a8b49d5bf8d4cadc3'>vm: If not the same local architecture, don't enable kvm.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/system/vm.scm (common-qemu-options): Add target keyword.

Change-Id: Ic9bf18cf60ac5ce623289df31ea050a22c6e604e
Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Zheng Junjie</td></tr>
<tr><td><span title='2024-03-31 22:28:01 +0200'>2024-03-31</span></td><td><a href='/guix/commit/gnu/system/vm.scm?id=e6241de15a2aa04efc99769d768849240eaffea5'>vm: add arguments to use virt machine type for qemu-riscv64.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/system/vm.scm (system-qemu-image/shared-store-script): When target
riscv64, add arguments to set qemu virt machine type.

Change-Id: I974c82fdd2d5bfc01caff9e6411db38e472b5cd4
Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Zheng Junjie</td></tr>
<tr><td><span title='2024-03-31 22:27:02 +0200'>2024-03-31</span></td><td><a href='/guix/commit/gnu/system/vm.scm?id=ad9832f82e525834db2221ae462f2b7a6709fc05'>vm: When target riscv64-linux, use u-boot-qemu-riscv64-bootloader.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/system/vm.scm (virtualized-operating-system) When target riscv64-linux,
use u-boot-qemu-riscv64-bootloader. Add system, target keyword.

Change-Id: I22d64d00670a705e4b81427e44a83d504598b536
Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Zheng Junjie</td></tr>
<tr><td><span title='2024-03-31 22:26:27 +0200'>2024-03-31</span></td><td><a href='/guix/commit/gnu/system/vm.scm?id=a5deb90fd45872e0f4e3c2446b9848e1ea592068'>vm: use #$ for kernel-arguments.</a><span class='msg-avail'>...<span class='msg-tooltip'>Use #$ allow cross-compile to with support current system kernel.

e.g. linux-libre-riscv64-generic.

* gnu/system/vm.scm(system-qemu-image/shared-store-script)
(linux-image-startup-command): use #$ for kernel-arguments.

Change-Id: I9d2e7df296ce590b95cd30996b33f8ca692ac1b1
Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Zheng Junjie</td></tr>