gnu/packages/package-management.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
   3 ;;; Copyright © 2015, 2017, 2020 Ricardo Wurmus <rekado@elephly.net>
   4 ;;; Copyright © 2017 Muriithi Frederick Muriuki <fredmanglis@gmail.com>
   5 ;;; Copyright © 2017, 2018 Oleg Pykhalov <go.wigust@gmail.com>
   6 ;;; Copyright © 2017 Roel Janssen <roel@gnu.org>
   7 ;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
   8 ;;; Copyright © 2018 Julien Lepiller <julien@lepiller.eu>
   9 ;;; Copyright © 2018, 2019 Rutger Helling <rhelling@mykolab.com>
  10 ;;; Copyright © 2018 Sou Bunnbu <iyzsong@member.fsf.org>
  11 ;;; Copyright © 2018, 2019 Eric Bavier <bavier@member.fsf.org>
  12 ;;; Copyright © 2019, 2020 Efraim Flashner <efraim@flashner.co.il>
  13 ;;; Copyright © 2019 Jonathan Brielmaier <jonathan.brielmaier@web.de>
  14 ;;; Copyright © 2020 Mathieu Othacehe <m.othacehe@gmail.com>
  15 ;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
  16 ;;; Copyright © 2020 Giacomo Leidi <goodoldpaul@autistici.org>
  17 ;;; Copyright © 2020 Jesse Gibbons <jgibbons2357+guix@gmail.com>
  18 ;;; Copyright © 2020 Martin Becze <mjbecze@riseup.net>
  19 ;;;
  20 ;;; This file is part of GNU Guix.
  21 ;;;
  22 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  23 ;;; under the terms of the GNU General Public License as published by
  24 ;;; the Free Software Foundation; either version 3 of the License, or (at
  25 ;;; your option) any later version.
  26 ;;;
  27 ;;; GNU Guix is distributed in the hope that it will be useful, but
  28 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  29 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  30 ;;; GNU General Public License for more details.
  31 ;;;
  32 ;;; You should have received a copy of the GNU General Public License
  33 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  34
  35 (define-module (gnu packages package-management)
  36   #:use-module (gnu packages)
  37   #:use-module (gnu packages acl)
  38   #:use-module (gnu packages attr)
  39   #:use-module (gnu packages avahi)
  40   #:use-module (gnu packages autotools)
  41   #:use-module (gnu packages backup)
  42   #:use-module (gnu packages base)
  43   #:use-module (gnu packages bash)
  44   #:use-module (gnu packages bdw-gc)
  45   #:use-module (gnu packages bison)
  46   #:use-module (gnu packages boost)
  47   #:use-module (gnu packages bootstrap)          ;for 'bootstrap-guile-origin'
  48   #:use-module (gnu packages check)
  49   #:use-module (gnu packages compression)
  50   #:use-module (gnu packages cpio)
  51   #:use-module (gnu packages crypto)
  52   #:use-module (gnu packages curl)
  53   #:use-module (gnu packages databases)
  54   #:use-module (gnu packages dbm)
  55   #:use-module (gnu packages docbook)
  56   #:use-module (gnu packages file)
  57   #:use-module (gnu packages gettext)
  58   #:use-module (gnu packages glib)
  59   #:use-module (gnu packages gnome)
  60   #:use-module (gnu packages gnupg)
  61   #:use-module (gnu packages graphviz)
  62   #:use-module (gnu packages gtk)
  63   #:use-module (gnu packages guile)
  64   #:use-module (gnu packages guile-xyz)
  65   #:use-module (gnu packages hurd)
  66   #:use-module (gnu packages libedit)
  67   #:use-module (gnu packages linux)
  68   #:use-module (gnu packages lisp)
  69   #:use-module (gnu packages man)
  70   #:use-module (gnu packages nettle)
  71   #:use-module (gnu packages networking)
  72   #:use-module (gnu packages nss)
  73   #:use-module (gnu packages patchutils)
  74   #:use-module (gnu packages perl)
  75   #:use-module (gnu packages perl-check)
  76   #:use-module (gnu packages pkg-config)
  77   #:use-module (gnu packages popt)
  78   #:use-module (gnu packages python)
  79   #:use-module (gnu packages python-web)
  80   #:use-module (gnu packages python-xyz)
  81   #:use-module (gnu packages serialization)
  82   #:use-module (gnu packages sqlite)
  83   #:use-module (gnu packages ssh)
  84   #:use-module (gnu packages texinfo)
  85   #:use-module (gnu packages time)
  86   #:use-module (gnu packages tls)
  87   #:use-module (gnu packages vim)
  88   #:use-module (gnu packages virtualization)
  89   #:use-module (gnu packages web)
  90   #:use-module (gnu packages xml)
  91   #:use-module (gnu packages xorg)
  92   #:use-module (guix build-system glib-or-gtk)
  93   #:use-module (guix build-system gnu)
  94   #:use-module (guix build-system meson)
  95   #:use-module (guix build-system python)
  96   #:use-module (guix download)
  97   #:use-module (guix gexp)
  98   #:use-module (guix git-download)
  99   #:use-module ((guix licenses) #:prefix license:)
 100   #:use-module (guix packages)
 101   #:use-module (guix utils)
 102   #:use-module (ice-9 match)
 103   #:use-module (srfi srfi-1))
 104
 105 (define (boot-guile-uri arch)
 106   "Return the URI for the bootstrap Guile tarball for ARCH."
 107   (cond ((string=? "armhf" arch)
 108          (string-append "http://alpha.gnu.org/gnu/guix/bootstrap/"
 109                         arch "-linux"
 110                         "/20150101/guile-2.0.11.tar.xz"))
 111         ((string=? "aarch64" arch)
 112          (string-append "http://alpha.gnu.org/gnu/guix/bootstrap/"
 113                         arch "-linux/20170217/guile-2.0.14.tar.xz"))
 114         (else
 115          (string-append "http://alpha.gnu.org/gnu/guix/bootstrap/"
 116                         arch "-linux"
 117                         "/20131110/guile-2.0.9.tar.xz"))))
 118
 119 ;; NOTE: The commit IDs used here form a linked list threaded through the git
 120 ;; history. In a phenomenon known as boot-stripping, not only the head of this
 121 ;; list is used, but also a few older versions, when a guix from this package is
 122 ;; used to build something also depending on guix.
 123 ;;
 124 ;; Therefore, if, by accident, you set this package to a non-existent commit ID,
 125 ;; it is insufficient to simply correct it with the latest commit.
 126 ;; Instead, please push one commit that rolls back Guix to before the mistake,
 127 ;; and then another that points to the first one. That way, the faulty commit
 128 ;; won't appear on the linked list.
 129 (define-public guix
 130   ;; Latest version of Guix, which may or may not correspond to a release.
 131   ;; Note: the 'update-guix-package.scm' script expects this definition to
 132   ;; start precisely like this.
 133   (let ((version "1.2.0")
 134         (commit "2c11cf1b91b07ed8c00b5525ab6a75e81f5cc289")
 135         (revision 2))
 136     (package
 137       (name "guix")
 138
 139       (version (if (zero? revision)
 140                    version
 141                    (string-append version "-"
 142                                   (number->string revision)
 143                                   "." (string-take commit 7))))
 144       (source (origin
 145                 (method git-fetch)
 146                 (uri (git-reference
 147                       (url "https://git.savannah.gnu.org/git/guix.git")
 148                       (commit commit)))
 149                 (sha256
 150                  (base32
 151                   "0w9yrky8qx6zwh97aq6z07mxpjixxg5pp7lzw1r72j3qg3rircj2"))
 152                 (file-name (string-append "guix-" version "-checkout"))))
 153       (build-system gnu-build-system)
 154       (arguments
 155        `(#:configure-flags (list
 156                             "--localstatedir=/var"
 157                             "--sysconfdir=/etc"
 158                             (string-append "--with-bash-completion-dir="
 159                                            (assoc-ref %outputs "out")
 160                                            "/etc/bash_completion.d")
 161
 162                             ;; Set 'DOT_USER_PROGRAM' to the empty string so
 163                             ;; we don't keep a reference to Graphviz, whose
 164                             ;; closure is pretty big (too big for the Guix
 165                             ;; system installation image.)
 166                             "ac_cv_path_DOT_USER_PROGRAM=dot"
 167
 168                             ;; To avoid problems with the length of shebangs,
 169                             ;; choose a fixed-width and short directory name
 170                             ;; for tests.
 171                             "ac_cv_guix_test_root=/tmp/guix-tests"
 172                             ,@(if (hurd-target?) '("--with-courage") '()))
 173          #:parallel-tests? #f         ;work around <http://bugs.gnu.org/21097>
 174
 175          #:modules ((guix build gnu-build-system)
 176                     (guix build utils)
 177                     (srfi srfi-26)
 178                     (ice-9 popen)
 179                     (ice-9 rdelim))
 180
 181          #:phases (modify-phases %standard-phases
 182                     (replace 'bootstrap
 183                       (lambda _
 184                         ;; Make sure 'msgmerge' can modify the PO files.
 185                         (for-each (lambda (po)
 186                                     (chmod po #o666))
 187                                   (find-files "." "\\.po$"))
 188
 189                         (patch-shebang "build-aux/git-version-gen")
 190
 191                         (call-with-output-file ".tarball-version"
 192                           (lambda (port)
 193                             (display ,version port)))
 194
 195                         ;; Install SysV init files to $(prefix)/etc rather
 196                         ;; than to /etc.
 197                         (substitute* "nix/local.mk"
 198                           (("^sysvinitservicedir = .*$")
 199                            (string-append "sysvinitservicedir = \
 200 $(prefix)/etc/init.d\n")))
 201
 202                         ;; Install OpenRC init files to $(prefix)/etc rather
 203                         ;; than to /etc.
 204                         (substitute* "nix/local.mk"
 205                           (("^openrcservicedir = .*$")
 206                            (string-append "openrcservicedir = \
 207 $(prefix)/etc/init.d\n")))
 208
 209                         (invoke "sh" "bootstrap")))
 210                     (add-before 'build 'use-host-compressors
 211                       (lambda* (#:key inputs target #:allow-other-keys)
 212                         (when target
 213                           ;; Use host compressors.
 214                           (let ((bzip2 (assoc-ref inputs "bzip2"))
 215                                 (gzip (assoc-ref inputs "gzip"))
 216                                 (xz (assoc-ref inputs "xz")))
 217                             (substitute* "guix/config.scm"
 218                               (("\"[^\"]*/bin/bzip2")
 219                                (string-append "\"" bzip2 "/bin/bzip2"))
 220                               (("\"[^\"]*/bin/gzip") gzip
 221                                (string-append "\"" gzip "/bin/gzip"))
 222                               (("\"[^\"]*/bin//xz")
 223                                (string-append "\"" xz "/bin/xz")))))
 224                         #t))
 225                     (add-before 'check 'copy-bootstrap-guile
 226                       (lambda* (#:key system target inputs #:allow-other-keys)
 227                         ;; Copy the bootstrap guile tarball in the store
 228                         ;; used by the test suite.
 229                         (define (intern file recursive?)
 230                           ;; Note: don't use 'guix download' here because we
 231                           ;; need to set the 'recursive?' argument.
 232                           (define base
 233                             (strip-store-file-name file))
 234
 235                           (define code
 236                             `(begin
 237                                (use-modules (guix))
 238                                (with-store store
 239                                  (let* ((item (add-to-store store ,base
 240                                                             ,recursive?
 241                                                             "sha256" ,file))
 242                                         (root (string-append "/tmp/gc-root-"
 243                                                              (basename item))))
 244                                    ;; Register a root so that the GC tests
 245                                    ;; don't delete those.
 246                                    (symlink item root)
 247                                    (add-indirect-root store root)))))
 248
 249                           (invoke "./test-env" "guile" "-c"
 250                                   (object->string code)))
 251
 252                         (unless target
 253                           (intern (assoc-ref inputs "boot-guile") #f)
 254
 255                           ;; On x86_64 some tests need the i686 Guile.
 256                           ,@(if (and (not (%current-target-system))
 257                                      (string=? (%current-system)
 258                                                "x86_64-linux"))
 259                                 '((intern (assoc-ref inputs "boot-guile/i686") #f))
 260                                 '())
 261
 262                           ;; Copy the bootstrap executables.
 263                           (for-each (lambda (input)
 264                                       (intern (assoc-ref inputs input) #t))
 265                                     '("bootstrap/bash" "bootstrap/mkdir"
 266                                       "bootstrap/tar" "bootstrap/xz")))
 267                         #t))
 268                     (add-after 'unpack 'disable-failing-tests
 269                       ;; XXX FIXME: These tests fail within the build container.
 270                       (lambda _
 271                         (substitute* "tests/syscalls.scm"
 272                           (("^\\(test-(assert|equal) \"(clone|setns|pivot-root)\"" all)
 273                            (string-append "(test-skip 1)\n" all)))
 274                         (substitute* "tests/containers.scm"
 275                           (("^\\(test-(assert|equal)" all)
 276                            (string-append "(test-skip 1)\n" all)))
 277                         (when (file-exists? "tests/guix-environment-container.sh")
 278                           (substitute* "tests/guix-environment-container.sh"
 279                             (("guix environment --version")
 280                              "exit 77\n")))
 281                         #t))
 282                     (add-before 'check 'set-SHELL
 283                       (lambda _
 284                         ;; 'guix environment' tests rely on 'SHELL' having a
 285                         ;; correct value, so set it.
 286                         (setenv "SHELL" (which "sh"))
 287                         #t))
 288                     (add-after 'install 'wrap-program
 289                       (lambda* (#:key inputs native-inputs outputs target
 290                                 #:allow-other-keys)
 291                         ;; Make sure the 'guix' command finds GnuTLS,
 292                         ;; Guile-JSON, and Guile-Git automatically.
 293                         (let* ((out    (assoc-ref outputs "out"))
 294                                (guile  ,@(if (%current-target-system)
 295                                              '((assoc-ref native-inputs "guile"))
 296                                              '((assoc-ref inputs "guile"))))
 297                                (gcrypt (assoc-ref inputs "guile-gcrypt"))
 298                                (json   (assoc-ref inputs "guile-json"))
 299                                (sqlite (assoc-ref inputs "guile-sqlite3"))
 300                                (zlib   (assoc-ref inputs "guile-zlib"))
 301                                (lzlib  (assoc-ref inputs "guile-lzlib"))
 302                                (git    (assoc-ref inputs "guile-git"))
 303                                (bs     (assoc-ref inputs
 304                                                   "guile-bytestructures"))
 305                                (ssh    (assoc-ref inputs "guile-ssh"))
 306                                (gnutls (assoc-ref inputs "gnutls"))
 307                                (locales (assoc-ref inputs "glibc-utf8-locales"))
 308                                (deps   (list gcrypt json sqlite gnutls
 309                                              git bs ssh zlib lzlib))
 310                                (effective
 311                                 (read-line
 312                                  (open-pipe* OPEN_READ
 313                                              (string-append guile "/bin/guile")
 314                                              "-c" "(display (effective-version))")))
 315                                (path   (string-join
 316                                         (map (cut string-append <>
 317                                                   "/share/guile/site/"
 318                                                   effective)
 319                                              (delete #f deps))
 320                                         ":"))
 321                                (gopath (string-join
 322                                         (map (cut string-append <>
 323                                                   "/lib/guile/" effective
 324                                                   "/site-ccache")
 325                                              (delete #f deps))
 326                                         ":"))
 327                                (locpath (string-append locales "/lib/locale")))
 328
 329                           (wrap-program (string-append out "/bin/guix")
 330                             `("GUILE_LOAD_PATH" ":" prefix (,path))
 331                             `("GUILE_LOAD_COMPILED_PATH" ":" prefix (,gopath))
 332                             `("GUIX_LOCPATH" ":" suffix (,locpath)))
 333
 334                           (when target
 335                             ;; XXX Touching wrap-program rebuilds world
 336                             (let ((bash (assoc-ref inputs "bash")))
 337                               (substitute* (string-append out "/bin/guix")
 338                                 (("^#!.*/bash") (string-append "#! " bash "/bin/bash")))))
 339                           #t)))
 340
 341                     ;; The 'guix' executable has 'OUT/libexec/guix/guile' as
 342                     ;; its shebang; that should remain unchanged, thus remove
 343                     ;; the 'patch-shebangs' phase, which would otherwise
 344                     ;; change it to 'GUILE/bin/guile'.
 345                     (delete 'patch-shebangs))))
 346       (native-inputs `(("pkg-config" ,pkg-config)
 347
 348                        ;; Guile libraries are needed here for
 349                        ;; cross-compilation.
 350                        ("guile" ,guile-3.0-latest) ;for faster builds
 351                        ("gnutls" ,gnutls)
 352                        ("guile-gcrypt" ,guile-gcrypt)
 353                        ("guile-json" ,guile-json-4)
 354                        ("guile-sqlite3" ,guile-sqlite3)
 355                        ("guile-zlib" ,guile-zlib)
 356                        ("guile-lzlib" ,guile-lzlib)
 357                        ("guile-ssh" ,guile-ssh)
 358                        ("guile-git" ,guile-git)
 359
 360                        ;; XXX: Keep the development inputs here even though
 361                        ;; they're unnecessary, just so that 'guix environment
 362                        ;; guix' always contains them.
 363                        ("autoconf" ,autoconf-wrapper)
 364                        ("automake" ,automake)
 365                        ("gettext" ,gettext-minimal)
 366                        ("texinfo" ,texinfo)
 367                        ("graphviz" ,graphviz)
 368                        ("help2man" ,help2man)
 369                        ("po4a" ,po4a)))
 370       (inputs
 371        `(("bzip2" ,bzip2)
 372          ("gzip" ,gzip)
 373          ("sqlite" ,sqlite)
 374          ("libgcrypt" ,libgcrypt)
 375
 376          ("guile" ,guile-3.0-latest)
 377
 378          ;; Some of the tests use "unshare" when it is available.
 379          ("util-linux" ,util-linux)
 380
 381          ;; Many tests rely on the 'guile-bootstrap' package, which is why we
 382          ;; have it here.
 383          ("boot-guile" ,(bootstrap-guile-origin (%current-system)))
 384          ,@(if (and (not (%current-target-system))
 385                     (string=? (%current-system) "x86_64-linux"))
 386                `(("boot-guile/i686" ,(bootstrap-guile-origin "i686-linux")))
 387                '())
 388          ,@(if (%current-target-system)
 389                `(("bash" ,bash-minimal)
 390                  ("xz" ,xz))
 391                '())
 392
 393          ;; Tests also rely on these bootstrap executables.
 394          ("bootstrap/bash" ,(bootstrap-executable "bash" (%current-system)))
 395          ("bootstrap/mkdir" ,(bootstrap-executable "mkdir" (%current-system)))
 396          ("bootstrap/tar" ,(bootstrap-executable "tar" (%current-system)))
 397          ("bootstrap/xz" ,(bootstrap-executable "xz" (%current-system)))
 398
 399          ("glibc-utf8-locales" ,glibc-utf8-locales)))
 400       (propagated-inputs
 401        `(("gnutls" ,(if (%current-target-system) gnutls-3.6.14 gnutls))
 402          ("guile-gcrypt" ,guile-gcrypt)
 403          ("guile-json" ,guile-json-4)
 404          ("guile-sqlite3" ,guile-sqlite3)
 405          ("guile-ssh" ,guile-ssh)
 406          ("guile-git" ,guile-git)
 407          ("guile-zlib" ,guile-zlib)
 408          ("guile-lzlib" ,guile-lzlib)))
 409
 410       (home-page "https://www.gnu.org/software/guix/")
 411       (synopsis "Functional package manager for installed software packages and versions")
 412       (description
 413        "GNU Guix is a functional package manager for the GNU system, and is
 414 also a distribution thereof.  It includes a virtual machine image.  Besides
 415 the usual package management features, it also supports transactional
 416 upgrades and roll-backs, per-user profiles, and much more.  It is based on
 417 the Nix package manager.")
 418       (license license:gpl3+)
 419       (properties '((ftp-server . "alpha.gnu.org"))))))
 420
 421 (define-public guix-daemon
 422   ;; This package is for internal consumption: it allows us to quickly build
 423   ;; the 'guix-daemon' program and use that in (guix self), used by 'guix
 424   ;; pull'.
 425   (package
 426     (inherit guix)
 427     (properties `((hidden? . #t)))
 428     (name "guix-daemon")
 429
 430     ;; Use a minimum set of dependencies.
 431     (native-inputs
 432      (fold alist-delete (package-native-inputs guix)
 433            '("po4a" "graphviz" "help2man")))
 434     (inputs
 435      `(("gnutls" ,gnutls)
 436        ("guile-git" ,guile-git)
 437        ("guile-json" ,guile-json-3)
 438        ("guile-gcrypt" ,guile-gcrypt)
 439        ,@(fold alist-delete (package-inputs guix)
 440                '("boot-guile" "boot-guile/i686" "util-linux"))))
 441
 442     (propagated-inputs '())
 443
 444     (arguments
 445      (substitute-keyword-arguments (package-arguments guix)
 446        ((#:configure-flags flags '())
 447         ;; Pretend we have those libraries; we don't actually need them.
 448         `(append ,flags
 449                  '("guix_cv_have_recent_guile_sqlite3=yes"
 450                    "guix_cv_have_recent_guile_ssh=yes")))
 451        ((#:tests? #f #f)
 452         #f)
 453        ((#:phases phases '%standard-phases)
 454         `(modify-phases ,phases
 455            (add-after 'unpack 'change-default-guix
 456              (lambda _
 457                ;; We need to tell 'guix-daemon' which 'guix' command to use.
 458                ;; Here we use a questionable hack where we hard-code root's
 459                ;; current guix, which could be wrong (XXX).  Note that scripts
 460                ;; like 'guix perform-download' do not run as root so we assume
 461                ;; that they have access to /var/guix/profiles/per-user/root.
 462                (substitute* "nix/libstore/globals.cc"
 463                  (("guixProgram = (.*)nixBinDir + \"/guix\"" _ before)
 464                   (string-append "guixProgram = " before
 465                                  "/var/guix/profiles/per-user/root\
 466 /current-guix/bin/guix")))
 467                #t))
 468            (replace 'build
 469              (lambda _
 470                (invoke "make" "nix/libstore/schema.sql.hh")
 471                (invoke "make" "-j" (number->string
 472                                     (parallel-job-count))
 473                        "guix-daemon")))
 474            (delete 'copy-bootstrap-guile)
 475            (replace 'install
 476              (lambda* (#:key outputs #:allow-other-keys)
 477                (invoke "make" "install-binPROGRAMS")))
 478            (delete 'wrap-program)))))))
 479
 480
 481 (define-public guile2.2-guix
 482   (package
 483     (inherit guix)
 484     (name "guile2.2-guix")
 485     (native-inputs
 486      `(("guile" ,guile-2.2)
 487        ("gnutls" ,guile2.2-gnutls)
 488        ("guile-gcrypt" ,guile2.2-gcrypt)
 489        ("guile-json" ,guile2.2-json)
 490        ("guile-sqlite3" ,guile2.2-sqlite3)
 491        ("guile-ssh" ,guile2.2-ssh)
 492        ("guile-git" ,guile2.2-git)
 493        ,@(fold alist-delete (package-native-inputs guix)
 494                '("guile" "gnutls" "guile-gcrypt" "guile-json"
 495                  "guile-sqlite3" "guile-ssh" "guile-git"))))
 496     (inputs
 497      `(("guile" ,guile-2.2)
 498        ,@(alist-delete "guile" (package-inputs guix))))
 499     (propagated-inputs
 500      `(("gnutls" ,gnutls)
 501        ("guile-gcrypt" ,guile2.2-gcrypt)
 502        ("guile-json" ,guile2.2-json)
 503        ("guile-sqlite3" ,guile2.2-sqlite3)
 504        ("guile-ssh" ,guile2.2-ssh)
 505        ("guile-git" ,guile2.2-git)))))
 506
 507 (define-public guile3.0-guix
 508   (deprecated-package "guile3.0-guix" guix))
 509
 510 (define-public guix-minimal
 511   ;; A version of Guix which is built with the minimal set of dependencies, as
 512   ;; outlined in the README "Requirements" section.  Intended as a CI job, so
 513   ;; marked as hidden.
 514   (hidden-package
 515    (package
 516      (inherit guix)
 517      (name "guix-minimal")
 518      (native-inputs
 519       (fold alist-delete
 520             (package-native-inputs guix)
 521             '("guile-ssh")))
 522      (propagated-inputs
 523       (fold alist-delete
 524             (package-propagated-inputs guix)
 525             '("guile-ssh"))))))
 526
 527 (define (source-file? file stat)
 528   "Return true if FILE is likely a source file, false if it is a typical
 529 generated file."
 530   (define (wrong-extension? file)
 531     (or (string-suffix? "~" file)
 532         (member (file-extension file)
 533                 '("o" "a" "lo" "so" "go"))))
 534
 535   (match (basename file)
 536     ((or ".git" "autom4te.cache" "configure" "Makefile" "Makefile.in" ".libs")
 537      #f)
 538     ((? wrong-extension?)
 539      #f)
 540     (_
 541      #t)))
 542
 543 (define-public current-guix-package
 544   ;; This parameter allows callers to override the package that 'current-guix'
 545   ;; returns.  This is useful when 'current-guix' cannot compute it by itself,
 546   ;; for instance because it's not running from a source code checkout.
 547   (make-parameter #f))
 548
 549 (define-public current-guix
 550   (let* ((repository-root (delay (canonicalize-path
 551                                   (string-append (current-source-directory)
 552                                                  "/../.."))))
 553          (select? (delay (or (git-predicate (force repository-root))
 554                              source-file?))))
 555     (lambda ()
 556       "Return a package representing Guix built from the current source tree.
 557 This works by adding the current source tree to the store (after filtering it
 558 out) and returning a package that uses that as its 'source'."
 559       (or (current-guix-package)
 560           (package
 561             (inherit guix)
 562             (version (string-append (package-version guix) "+"))
 563             (source (local-file (force repository-root) "guix-current"
 564                                 #:recursive? #t
 565                                 #:select? (force select?))))))))
 566
 567 \f
 568 ;;;
 569 ;;; Other tools.
 570 ;;;
 571
 572 (define-public nix
 573   (package
 574     (name "nix")
 575     (version "2.3.9")
 576     (source (origin
 577              (method url-fetch)
 578              (uri (string-append "https://nixos.org/releases/nix/nix-"
 579                                  version "/nix-" version ".tar.xz"))
 580              (sha256
 581               (base32
 582                "1yi2c1fp33sxv9j0pvxlpxs1dhq3axrwkxdwr867ll90lbdiycvj"))))
 583     (build-system gnu-build-system)
 584     (arguments
 585      `(#:configure-flags '("--sysconfdir=/etc" "--enable-gc")
 586        #:phases
 587        (modify-phases %standard-phases
 588          (replace 'install
 589            ;; Don't try & fail to create subdirectories in /etc, but keep them
 590            ;; in the output as examples.
 591            (lambda* (#:key (make-flags '()) outputs #:allow-other-keys)
 592              (let* ((out (assoc-ref outputs "out"))
 593                     (etc (string-append out "/etc")))
 594                (apply invoke "make" "install"
 595                       (string-append "sysconfdir=" etc)
 596                       (string-append "profiledir=" etc "/profile.d")
 597                       make-flags)))))))
 598     (native-inputs `(("pkg-config" ,pkg-config)))
 599     (inputs `(("boost" ,boost)
 600               ("brotli" ,brotli)
 601               ("bzip2" ,bzip2)
 602               ("curl" ,curl)
 603               ("editline" ,editline)
 604               ("libgc" ,libgc)
 605               ("libseccomp" ,libseccomp)
 606               ("libsodium" ,libsodium)
 607               ("openssl" ,openssl)
 608               ("sqlite" ,sqlite)
 609               ("xz" ,xz)))
 610     (home-page "https://nixos.org/nix/")
 611     (synopsis "The Nix package manager")
 612     (description
 613      "Nix is a purely functional package manager.  This means that it treats
 614 packages like values in purely functional programming languages such as
 615 Haskell—they are built by functions that don't have side-effects, and they
 616 never change after they have been built.  Nix stores packages in the Nix
 617 store, usually the directory /nix/store, where each package has its own unique
 618 sub-directory.")
 619     (license license:lgpl2.1+)))
 620
 621 (define-public stow
 622   (package
 623     (name "stow")
 624     (version "2.3.1")
 625     (source (origin
 626               (method url-fetch)
 627               (uri (string-append "mirror://gnu/stow/stow-"
 628                                   version ".tar.gz"))
 629               (sha256
 630                (base32
 631                 "0jrxy12ywn7smdzdnvwzjw77l6knx6jkj2rckgykg1dpf6bdkm89"))))
 632     (build-system gnu-build-system)
 633     (inputs
 634      `(("perl" ,perl)))
 635     (native-inputs
 636      `(("perl-test-simple" ,perl-test-simple)
 637        ("perl-test-output" ,perl-test-output)
 638        ("perl-capture-tiny" ,perl-capture-tiny)
 639        ("perl-io-stringy" ,perl-io-stringy)))
 640     (home-page "https://www.gnu.org/software/stow/")
 641     (synopsis "Managing installed software packages")
 642     (description
 643      "GNU Stow is a symlink manager.  It generates symlinks to directories
 644 of data and makes them appear to be merged into the same directory.  It is
 645 typically used for managing software packages installed from source, by
 646 letting you install them apart in distinct directories and then create
 647 symlinks to the files in a common directory such as /usr/local.")
 648     (license license:gpl3+)))
 649
 650 (define-public xstow
 651   (package
 652     (name "xstow")
 653     (version "1.0.2")
 654     (source (origin
 655               (method url-fetch)
 656               (uri (string-append "mirror://sourceforge/xstow/xstow-"
 657                                   version ".tar.bz2"))
 658               (sha256
 659                (base32
 660                 "1vy6lcswpkixh7h5mvsmq2wbcih6lpsmcva3m7v6f5npllciy13g"))))
 661     (build-system gnu-build-system)
 662     (synopsis "Replacement of GNU Stow written in C++")
 663     (description
 664      "XStow is a replacement of GNU Stow written in C++.  It supports all
 665 features of Stow with some extensions.")
 666     (home-page "http://xstow.sourceforge.net/")
 667     (license license:gpl2)))
 668
 669 (define-public rpm
 670   (package
 671     (name "rpm")
 672     (version "4.14.2.1")
 673     (source (origin
 674               (method url-fetch)
 675               (uri (string-append "http://ftp.rpm.org/releases/rpm-"
 676                                   (version-major+minor version) ".x/rpm-"
 677                                   version ".tar.bz2"))
 678               (sha256
 679                (base32
 680                 "1nmck2fq9h85fgs3zhh6w1avlw5y16cbz5khd459ry3jfd5w4f8i"))))
 681     (build-system gnu-build-system)
 682     (arguments
 683      '(#:configure-flags '("--with-external-db"   ;use the system's bdb
 684                            "--enable-python"
 685                            "--without-lua")
 686        #:phases (modify-phases %standard-phases
 687                   (add-before 'configure 'set-nss-library-path
 688                     (lambda* (#:key inputs #:allow-other-keys)
 689                       (let ((nss (assoc-ref inputs "nss")))
 690                         (setenv "LIBRARY_PATH"
 691                                 (string-append (getenv "LIBRARY_PATH") ":"
 692                                                nss "/lib/nss"))
 693                         #t))))))
 694     (native-inputs
 695      `(("pkg-config" ,pkg-config)))
 696     (inputs
 697      `(("python" ,python)
 698        ("xz" ,xz)
 699        ("bdb" ,bdb)
 700        ("popt" ,popt)
 701        ("nss" ,nss)
 702        ("nspr" ,nspr)
 703        ("libarchive" ,libarchive)
 704        ("file" ,file)
 705        ("bzip2" ,bzip2)
 706        ("zlib" ,zlib)
 707        ("cpio" ,cpio)))
 708     (home-page "https://rpm.org/")
 709     (synopsis "The RPM Package Manager")
 710     (description
 711      "The RPM Package Manager (RPM) is a command-line driven package
 712 management system capable of installing, uninstalling, verifying, querying,
 713 and updating computer software packages.  Each software package consists of an
 714 archive of files along with information about the package like its version, a
 715 description.  There is also a library permitting developers to manage such
 716 transactions from C or Python.")
 717
 718     ;; The whole is GPLv2+; librpm itself is dual-licensed LGPLv2+ | GPLv2+.
 719     (license license:gpl2+)))
 720
 721 (define-public python-anaconda-client
 722   (package
 723     (name "python-anaconda-client")
 724     (version "1.6.3")
 725     (source
 726      (origin
 727        (method git-fetch)
 728        (uri (git-reference
 729               (url "https://github.com/Anaconda-Platform/anaconda-client")
 730               (commit version)))
 731        (file-name (git-file-name name version))
 732        (sha256
 733         (base32
 734          "0w1bfxnydjl9qp53r2gcvr6vlpdqqilcrzqxrll9sgg6vwdyiyyp"))))
 735     (build-system python-build-system)
 736     (propagated-inputs
 737      `(("python-pyyaml" ,python-pyyaml)
 738        ("python-requests" ,python-requests)
 739        ("python-clyent" ,python-clyent)))
 740     (native-inputs
 741      `(("python-pytz" ,python-pytz)
 742        ("python-dateutil" ,python-dateutil)
 743        ("python-mock" ,python-mock)
 744        ("python-coverage" ,python-coverage)
 745        ("python-pillow" ,python-pillow)))
 746     (arguments
 747      `(#:phases
 748        (modify-phases %standard-phases
 749          ;; This is needed for some tests.
 750          (add-before 'check 'set-up-home
 751            (lambda* _ (setenv "HOME" "/tmp") #t))
 752          (add-before 'check 'remove-network-tests
 753            (lambda* _
 754              ;; Remove tests requiring a network connection
 755              (let ((network-tests '("tests/test_upload.py"
 756                                     "tests/test_authorizations.py"
 757                                     "tests/test_login.py"
 758                                     "tests/test_whoami.py"
 759                                     "utils/notebook/tests/test_data_uri.py"
 760                                     "utils/notebook/tests/test_base.py"
 761                                     "utils/notebook/tests/test_downloader.py"
 762                                     "inspect_package/tests/test_conda.py")))
 763                (with-directory-excursion "binstar_client"
 764                  (for-each delete-file network-tests)))
 765              #t)))))
 766     (home-page "https://github.com/Anaconda-Platform/anaconda-client")
 767     (synopsis "Anaconda Cloud command line client library")
 768     (description
 769      "Anaconda Cloud command line client library provides an interface to
 770 Anaconda Cloud.  Anaconda Cloud is useful for sharing packages, notebooks and
 771 environments.")
 772     (license license:bsd-3)))
 773
 774 (define-public python2-anaconda-client
 775   (package-with-python2 python-anaconda-client))
 776
 777 (define-public python-conda-package-handling
 778   (package
 779     (name "python-conda-package-handling")
 780     (version "1.6.0")
 781     (source
 782      (origin
 783        (method git-fetch)
 784        (uri (git-reference
 785              (url "https://github.com/conda/conda-package-handling/")
 786              (commit version)))
 787        (file-name (git-file-name name version))
 788        (sha256
 789         (base32
 790          "0bqbs6a8jbjmbn47n5n1p529cx7pf4vgfnhqca9mflgidfb5i0jf"))))
 791     (build-system python-build-system)
 792     (arguments
 793      `(#:phases
 794        (modify-phases %standard-phases
 795          (add-after 'unpack 'use-unmodified-libarchive
 796            (lambda _
 797              (substitute* "setup.py"
 798                (("archive_and_deps") "archive"))
 799              #t))
 800          (replace 'check
 801            (lambda* (#:key inputs outputs #:allow-other-keys)
 802              (add-installed-pythonpath inputs outputs)
 803              (invoke "pytest" "-vv" "tests"
 804                      "-k"
 805                      (string-append
 806                       ;; TODO: these three fail because the mocker fixture
 807                       ;; cannot be found
 808                       "not test_rename_to_trash"
 809                       " and not test_api_extract_tarball_with_libarchive_import_error"
 810                       " and not test_delete_trash"
 811                       ;; TODO: this one does not raise an exception when it
 812                       ;; should.
 813                       " and not test_secure_refusal_to_extract_abs_paths")))))))
 814     (propagated-inputs
 815      `(("python-six" ,python-six)
 816        ("python-tqdm" ,python-tqdm)))
 817     (inputs
 818      `(("libarchive" ,libarchive)))
 819     (native-inputs
 820      `(("python-cython" ,python-cython)
 821        ("python-pytest" ,python-pytest)
 822        ("python-pytest-cov" ,python-pytest-cov)
 823        ("python-mock" ,python-mock)))
 824     (home-page "https://conda.io")
 825     (synopsis "Create and extract conda packages of various formats")
 826     (description
 827      "This library is an abstraction of Conda package handling and a tool for
 828 extracting, creating, and converting between formats.")
 829     (license license:bsd-3)))
 830
 831 (define-public conda
 832   (package
 833     (name "conda")
 834     (version "4.8.3")
 835     (source
 836      (origin
 837        (method git-fetch)
 838        (uri (git-reference
 839               (url "https://github.com/conda/conda")
 840               (commit version)))
 841        (file-name (git-file-name name version))
 842        (sha256
 843         (base32
 844          "0iv1qzk21jsk6vdp3106xvpvl68zgfdqb3kyzpya87jhkl204l7r"))))
 845     (build-system python-build-system)
 846     (arguments
 847      `(#:phases
 848        (modify-phases %standard-phases
 849          (add-after 'unpack 'fix-permissions
 850            (lambda _
 851              ;; This file is no longer writable after downloading with
 852              ;; 'git-fetch'
 853              (make-file-writable
 854               "tests/conda_env/support/saved-env/environment.yml")
 855              #t))
 856          (add-after 'unpack 'correct-python-executable-name
 857            (lambda* (#:key inputs #:allow-other-keys)
 858              (let ((python (assoc-ref inputs "python-wrapper")))
 859                #;
 860                (substitute* "conda/common/path.py"
 861                  (("python_version or ''")
 862                   "python_version or '3'"))
 863                (substitute* "conda/core/initialize.py"
 864                  (("python_exe = join")
 865                   (format #f "python_exe = \"~a/bin/python\" #"
 866                           python))))
 867              #t))
 868          (add-after 'unpack 'do-not-use-python-root-as-prefix
 869            (lambda* (#:key inputs outputs #:allow-other-keys)
 870              (let ((out (assoc-ref outputs "out"))
 871                    (python (assoc-ref inputs "python-wrapper")))
 872                (substitute* "tests/core/test_initialize.py"
 873                  (("\"\"\"\\) % conda_prefix")
 874                   (format #f "\"\"\") % \"~a\"" python))
 875                  (("CONDA_PYTHON_EXE \"%s\"' % join\\(conda_prefix")
 876                   (format #f "CONDA_PYTHON_EXE \"%s\"' % join(\"~a\""
 877                           python))
 878                  (("conda_prefix = abspath\\(sys.prefix\\)")
 879                   (format #f "conda_prefix = abspath(\"~a\")" out)))
 880                (substitute* "conda/base/context.py"
 881                  (("os.chdir\\(sys.prefix\\)")
 882                   (format #f "os.chdir(\"~a\")" out))
 883                  (("sys.prefix, '.condarc'")
 884                   (format #f "\"~a\", '.condarc'" out))
 885                  (("return abspath\\(sys.prefix\\)")
 886                   (format #f "return abspath(\"~a\")" out))
 887                  (("os.path.join\\(sys.prefix, bin_dir, exe\\)")
 888                   (format #f "\"~a/bin/conda\"" out))
 889                  (("'CONDA_EXE', sys.executable")
 890                   (format #f "'CONDA_EXE', \"~a/bin/conda\"" out))))
 891              #t))
 892          (add-before 'build 'create-version-file
 893            (lambda _
 894              (with-output-to-file "conda/.version"
 895                (lambda () (display ,version)))
 896              #t))
 897          (replace 'check
 898            (lambda _
 899              (setenv "HOME" "/tmp")
 900              (invoke "py.test" "-vv"
 901                      "-k"
 902                      (string-append
 903                       "not integration"
 904                       ;; This one reports a newer version of conda than
 905                       ;; expected.
 906                       " and not test_auto_update_conda"
 907                       ;; This fails because the output directory is not a
 908                       ;; Conda environment.
 909                       " and not test_list"
 910                       ;; This fails because we patched the default root
 911                       ;; prefix.
 912                       " and not test_default_target_is_root_prefix"
 913                       ;; TODO: I don't understand what this failure means
 914                       " and not test_PrefixData_return_value_contract"
 915                       ;; TODO: same here
 916                       " and not test_install_1"
 917                       ;; Not sure if this is really wrong.  This fails because
 918                       ;; /gnu/store/...python-conda-4.8.3/bin/python
 919                       ;; is not /gnu/store/...python-wrapper-3.8.2/bin/python
 920                       " and not test_make_entry_point"))))
 921          (add-after 'install 'init
 922            ;; This writes a whole bunch of shell initialization files to the
 923            ;; prefix directory.  Many features of conda can only be used after
 924            ;; running "conda init".
 925            (lambda* (#:key inputs outputs #:allow-other-keys)
 926              (add-installed-pythonpath inputs outputs)
 927              (setenv "HOME" "/tmp")
 928
 929              ;; "conda init" insists on using sudo, because it is hell-bent on
 930              ;; modifying system files.
 931              (mkdir-p "/tmp/fake-sudo")
 932              (with-output-to-file "/tmp/fake-sudo/sudo"
 933                (lambda () (format #t "#!~/bin/sh~%exec $@" (which "sh"))))
 934              (chmod "/tmp/fake-sudo/sudo" #o700)
 935              (setenv "PATH" (string-append "/tmp/fake-sudo:"
 936                                            (getenv "PATH")))
 937
 938              (invoke (string-append (assoc-ref outputs "out")
 939                                     "/bin/conda")
 940                      "init"))))))
 941     (inputs
 942      `(("python-wrapper" ,python-wrapper)))
 943     (propagated-inputs
 944      `(("python-anaconda-client" ,python-anaconda-client)
 945        ("python-conda-package-handling" ,python-conda-package-handling)
 946        ("python-cytoolz" ,python-cytoolz)
 947        ("python-pycosat" ,python-pycosat)
 948        ("python-pytest" ,python-pytest)
 949        ("python-pyyaml" ,python-pyyaml)
 950        ("python-requests" ,python-requests)
 951        ("python-responses" ,python-responses)
 952        ("python-ruamel.yaml" ,python-ruamel.yaml)
 953        ("python-tqdm" ,python-tqdm)
 954        ;; XXX: This is dragged in by libarchive and is needed at runtime.
 955        ("zstd" ,zstd)))
 956     (home-page "https://github.com/conda/conda")
 957     (synopsis "Cross-platform, OS-agnostic, system-level binary package manager")
 958     (description
 959      "Conda is a cross-platform, Python-agnostic binary package manager.  It
 960 is the package manager used by Anaconda installations, but it may be used for
 961 other systems as well.  Conda makes environments first-class citizens, making
 962 it easy to create independent environments even for C libraries.  Conda is
 963 written entirely in Python.")
 964     (license license:bsd-3)))
 965
 966 (define-public python-conda
 967   (deprecated-package "python-conda" conda))
 968
 969 (define-public gwl
 970   (package
 971     (name "gwl")
 972     (version "0.2.1")
 973     (source (origin
 974               (method url-fetch)
 975               (uri (string-append "mirror://gnu/gwl/gwl-" version ".tar.gz"))
 976               (sha256
 977                (base32
 978                 "1ji5jvzni8aml9fmimlr11g3k8isrnlvnbzhmwgdjh72hils0alc"))))
 979     (build-system gnu-build-system)
 980     (arguments
 981      `(#:phases
 982        (modify-phases %standard-phases
 983          (add-before 'build 'fix-tests
 984            (lambda _
 985              ;; Avoid cross-device link.
 986              (substitute* "tests/cache.scm"
 987                (("/tmp/gwl-test-input-XXXXXX")
 988                 (string-append (getcwd) "/gwl-test-input-XXXXXX")))
 989              #t)))))
 990     (native-inputs
 991      `(("autoconf" ,autoconf)
 992        ("automake" ,automake)
 993        ("pkg-config" ,pkg-config)
 994        ("texinfo" ,texinfo)
 995        ("graphviz" ,graphviz)))
 996     (inputs
 997      `(("guile" ,@(assoc-ref (package-native-inputs guix) "guile"))))
 998     (propagated-inputs
 999      `(("guix" ,guix)
1000        ("guile-commonmark" ,guile-commonmark)
1001        ("guile-gcrypt" ,guile-gcrypt)
1002        ("guile-pfds" ,guile-pfds)
1003        ("guile-syntax-highlight" ,guile-syntax-highlight)
1004        ("guile-wisp" ,guile-wisp)))
1005     (home-page "https://workflows.guix.info")
1006     (synopsis "Workflow management extension for GNU Guix")
1007     (description "The @dfn{Guix Workflow Language} (GWL) provides an
1008 extension to GNU Guix's declarative language for package management to
1009 automate the execution of programs in scientific workflows.  The GWL
1010 can use process engines to integrate with various computing
1011 environments.")
1012     ;; The Scheme modules in guix/ and gnu/ are licensed GPL3+,
1013     ;; the web interface modules in gwl/ are licensed AGPL3+,
1014     ;; and the fonts included in this package are licensed OFL1.1.
1015     (license (list license:gpl3+ license:agpl3+ license:silofl1.1))))
1016
1017 (define-public guix-build-coordinator
1018   (let ((commit "99f6a0f248600fc9063ec808370a2a070a856dbe")
1019         (revision "7"))
1020     (package
1021       (name "guix-build-coordinator")
1022       (version (git-version "0" revision commit))
1023       (source (origin
1024                 (method git-fetch)
1025                 (uri (git-reference
1026                       (url "https://git.cbaines.net/git/guix/build-coordinator")
1027                       (commit commit)))
1028                 (sha256
1029                  (base32
1030                   "1vk9dn4km4j6ngfk97vip822zs1j9494f2ig3l97mq1r5400fpqv"))
1031                 (file-name (string-append name "-" version "-checkout"))))
1032       (build-system gnu-build-system)
1033       (arguments
1034        `(#:modules (((guix build guile-build-system)
1035                      #:select (target-guile-effective-version))
1036                     ,@%gnu-build-system-modules)
1037          #:imported-modules ((guix build guile-build-system)
1038                              ,@%gnu-build-system-modules)
1039          #:phases
1040          (modify-phases %standard-phases
1041            (add-before 'build 'set-GUILE_AUTO_COMPILE
1042              (lambda _
1043                ;; To avoid warnings relating to 'guild'.
1044                (setenv "GUILE_AUTO_COMPILE" "0")
1045                #t))
1046            (add-after 'install 'wrap-executable
1047              (lambda* (#:key inputs outputs #:allow-other-keys)
1048                (let* ((out (assoc-ref outputs "out"))
1049                       (bin (string-append out "/bin"))
1050                       (guile (assoc-ref inputs "guile"))
1051                       (version (target-guile-effective-version))
1052                       (scm (string-append out "/share/guile/site/" version))
1053                       (go  (string-append out "/lib/guile/" version "/site-ccache")))
1054                  (for-each
1055                   (lambda (file)
1056                     (simple-format (current-error-port) "wrapping: ~A\n" file)
1057                     (wrap-program file
1058                       `("PATH" ":" prefix
1059                         (,bin
1060                          ;; Support building without sqitch as an input, as it
1061                          ;; can't be cross-compiled yet
1062                          ,@(or (and=> (assoc-ref inputs "sqitch")
1063                                       list)
1064                                '())))
1065                       `("GUILE_LOAD_PATH" ":" prefix
1066                         (,scm ,(getenv "GUILE_LOAD_PATH")))
1067                       `("GUILE_LOAD_COMPILED_PATH" ":" prefix
1068                         (,go ,(getenv "GUILE_LOAD_COMPILED_PATH")))))
1069                   (find-files bin)))
1070                #t))
1071            (delete 'strip))))             ; As the .go files aren't compatible
1072       (native-inputs
1073        `(("pkg-config" ,pkg-config)
1074          ("autoconf" ,autoconf)
1075          ("automake" ,automake)
1076          ("gnutls" ,gnutls)
1077
1078          ;; Guile libraries are needed here for cross-compilation.
1079          ("guile-json" ,guile-json-3)
1080          ("guile-gcrypt" ,guile-gcrypt)
1081          ("guix" ,guix)
1082          ("guile-prometheus" ,guile-prometheus)
1083          ("guile-fibers" ,guile-fibers)
1084          ("guile-lib" ,guile-lib)
1085          ("guile" ,@(assoc-ref (package-native-inputs guix) "guile"))))
1086       (inputs
1087        `(("guile" ,@(assoc-ref (package-native-inputs guix) "guile"))
1088          ("sqlite" ,sqlite)
1089          ("sqitch" ,sqitch)))
1090       (propagated-inputs
1091        `(("guile-fibers" ,guile-fibers)
1092          ("guile-prometheus" ,guile-prometheus)
1093          ("guile-gcrypt" ,guile-gcrypt)
1094          ("guile-json" ,guile-json-4)
1095          ("guile-lib" ,guile-lib)
1096          ("guile-lzlib" ,guile-lzlib)
1097          ("guile-zlib" ,guile-zlib)
1098          ("guile-sqlite3" ,guile-sqlite3)
1099          ("guix" ,guix)
1100          ("gnutls" ,gnutls)))
1101       (home-page "https://git.cbaines.net/guix/build-coordinator/")
1102       (synopsis "Tool to help build derivations")
1103       (description
1104        "The Guix Build Coordinator helps with performing lots of builds across
1105 potentially many machines, and with doing something with the results and
1106 outputs of those builds.")
1107       (license license:gpl3+))))
1108
1109 (define-public guix-jupyter
1110   (package
1111     (name "guix-jupyter")
1112     (version "0.1.0")
1113     (home-page "https://gitlab.inria.fr/guix-hpc/guix-kernel")
1114     (source (origin
1115               (method git-fetch)
1116               (uri (git-reference (url home-page)
1117                                   (commit (string-append "v" version))))
1118               (sha256
1119                (base32
1120                 "01z7jjkc7r7lj6637rcgpz40v8xqqyfp6871h94yvcnwm7zy9h1n"))
1121               (modules '((guix build utils)))
1122               (snippet
1123                '(begin
1124                   ;; Allow builds with Guile 3.0.
1125                   (substitute* "configure.ac"
1126                     (("^GUILE_PKG.*")
1127                      "GUILE_PKG([3.0 2.2])\n"))
1128
1129                   ;; Avoid name clash and build failure now that
1130                   ;; 'define-json-mapping' is also provided by Guile-JSON, as
1131                   ;; of version 4.3.
1132                   (substitute* (find-files "." "\\.scm$")
1133                     (("define-json-mapping")
1134                      "define-json-mapping*")
1135                     (("<=>")
1136                      "<->"))
1137                   #t))
1138               (file-name (string-append "guix-jupyter-" version "-checkout"))))
1139     (build-system gnu-build-system)
1140     (arguments
1141      `(#:modules ((srfi srfi-26)
1142                   (ice-9 match)
1143                   (ice-9 popen)
1144                   (ice-9 rdelim)
1145                   (guix build utils)
1146                   (guix build gnu-build-system))
1147        #:phases
1148        (modify-phases %standard-phases
1149          (add-after 'install 'sed-kernel-json
1150            (lambda* (#:key inputs outputs #:allow-other-keys)
1151              (let* ((out   (assoc-ref outputs "out"))
1152                     (guix  (assoc-ref inputs  "guix"))
1153                     (guile (assoc-ref inputs  "guile"))
1154                     (json  (assoc-ref inputs  "guile-json"))
1155                     (git   (assoc-ref inputs  "guile-git"))
1156                     (bs    (assoc-ref inputs  "guile-bytestructures"))
1157                     (s-zmq (assoc-ref inputs  "guile-simple-zmq"))
1158                     (gcrypt (assoc-ref inputs  "guile-gcrypt"))
1159                     (deps  (list out s-zmq guix json git bs gcrypt))
1160                     (effective
1161                      (read-line
1162                       (open-pipe* OPEN_READ
1163                                   (string-append guile "/bin/guile")
1164                                   "-c" "(display (effective-version))")))
1165                     (path (map (cut string-append "-L\", \"" <>
1166                                     "/share/guile/site/"
1167                                     effective)
1168                                deps))
1169                     (gopath (map (cut string-append "-C\", \"" <>
1170                                       "/lib/guile/" effective
1171                                       "/site-ccache")
1172                                  deps))
1173                     (kernel-dir (string-append out "/share/jupyter/kernels/guix/")))
1174                (substitute* (string-append kernel-dir "kernel.json")
1175                  (("-s")
1176                   (string-join
1177                    (list (string-join path "\",\n\t\t\"")
1178                          (string-join gopath "\",\n\t\t\"")
1179                          "-s")
1180                    "\",\n\t\t\""))
1181                  (("guix-jupyter-kernel.scm")
1182                   (string-append out "/share/guile/site/3.0/"
1183                                  "guix-jupyter-kernel.scm")))
1184                #t))))))
1185     (native-inputs
1186      `(("autoconf" ,autoconf)
1187        ("automake" ,automake)
1188        ("pkg-config" ,pkg-config)
1189
1190        ;; For testing.
1191        ("jupyter" ,jupyter)
1192        ("python-ipython" ,python-ipython)
1193        ("python-ipykernel" ,python-ipykernel)))
1194     (inputs
1195      `(("guix" ,guix)
1196        ("guile" ,@(assoc-ref (package-native-inputs guix) "guile"))))
1197     (propagated-inputs
1198      `(("guile-json" ,guile-json-4)
1199        ("guile-simple-zmq" ,guile-simple-zmq)
1200        ("guile-gcrypt" ,guile-gcrypt)))
1201     (synopsis "Guix kernel for Jupyter")
1202     (description
1203      "Guix-Jupyter is a Jupyter kernel.  It allows you to annotate notebooks
1204 with information about their software dependencies, such that code is executed
1205 in the right software environment.  Guix-Jupyter spawns the actual kernels
1206 such as @code{python-ipykernel} on behalf of the notebook user and runs them
1207 in an isolated environment, in separate namespaces.")
1208     (license license:gpl3+)))
1209
1210 (define-public gcab
1211   (package
1212     (name "gcab")
1213     (version "1.4")
1214     (source (origin
1215               (method url-fetch)
1216               (uri (string-append "mirror://gnome/sources/gcab/"
1217                                   version "/gcab-" version ".tar.xz"))
1218               (sha256
1219                (base32
1220                 "13q43iqld4l50yra45lhvkd376pn6qpk7rkx374zn8y9wsdzm9b7"))))
1221     (build-system meson-build-system)
1222     (native-inputs
1223      `(("glib:bin" ,glib "bin")         ; for glib-mkenums
1224        ("intltool" ,intltool)
1225        ("pkg-config" ,pkg-config)
1226        ("vala" ,vala)))
1227     (inputs
1228      `(("glib" ,glib)
1229        ("zlib" ,zlib)))
1230     (arguments
1231      `(#:configure-flags
1232        ;; XXX This ‘documentation’ is for developers, and fails informatively:
1233        ;; Error in gtkdoc helper script: 'gtkdoc-mkhtml' failed with status 5
1234        (list "-Ddocs=false"
1235              "-Dintrospection=false")))
1236     (home-page "https://wiki.gnome.org/msitools") ; no dedicated home page
1237     (synopsis "Microsoft Cabinet file manipulation library")
1238     (description
1239      "The libgcab library provides GObject functions to read, write, and modify
1240 Microsoft cabinet (.@dfn{CAB}) files.")
1241     (license (list license:gpl2+        ; tests/testsuite.at
1242                    license:lgpl2.1+)))) ; the rest
1243
1244 (define-public msitools
1245   (package
1246     (name "msitools")
1247     (version "0.100")
1248     (source (origin
1249               (method url-fetch)
1250               (uri (string-append "mirror://gnome/sources/msitools/"
1251                                   version "/msitools-" version ".tar.xz"))
1252               (sha256
1253                (base32
1254                 "1skq17qr2ic4qr3779j49byfm8rncwbsq9rj1a33ncn2m7isdwdv"))))
1255     (build-system gnu-build-system)
1256     (native-inputs
1257      `(("bison" ,bison)
1258        ("pkg-config" ,pkg-config)))
1259     (inputs
1260      `(("gcab" ,gcab)
1261        ("glib" ,glib)
1262        ("libgsf" ,libgsf)
1263        ("libxml2" ,libxml2)
1264        ("uuid" ,util-linux "lib")))
1265     (home-page "https://wiki.gnome.org/msitools")
1266     (synopsis "Windows Installer file manipulation tool")
1267     (description
1268      "msitools is a collection of command-line tools to inspect, extract, build,
1269 and sign Windows@tie{}Installer (.@dfn{MSI}) files.  It aims to be a solution
1270 for packaging and deployment of cross-compiled Windows applications.")
1271     (license license:lgpl2.1+)))
1272
1273 (define-public libostree
1274   (package
1275     (name "libostree")
1276     (version "2020.8")
1277     (source
1278      (origin
1279        (method url-fetch)
1280        (uri (string-append
1281              "https://github.com/ostreedev/ostree/releases/download/v"
1282              (version-major+minor version) "/libostree-" version ".tar.xz"))
1283        (sha256
1284         (base32 "16v73v63h16ika73kgh2cvgm0v27r2d48m932mbj3xm6s295kapx"))))
1285     (build-system gnu-build-system)
1286     (arguments
1287      '(#:phases
1288        (modify-phases %standard-phases
1289          (add-before 'check 'pre-check
1290            (lambda _
1291              ;; Don't try to use the non-existing '/var/tmp' as test
1292              ;; directory.
1293              (setenv "TEST_TMPDIR" (getenv "TMPDIR"))
1294              #t)))
1295        ;; XXX: fails with:
1296        ;;     tap-driver.sh: missing test plan
1297        ;;     tap-driver.sh: internal error getting exit status
1298        ;;     tap-driver.sh: fatal: I/O or internal error
1299        #:tests? #f))
1300     (native-inputs
1301      `(("attr" ,attr)                   ; for tests
1302        ("bison" ,bison)
1303        ("glib:bin" ,glib "bin")         ; for 'glib-mkenums'
1304        ("gobject-introspection" ,gobject-introspection)
1305        ("pkg-config" ,pkg-config)
1306        ("xsltproc" ,libxslt)))
1307     (inputs
1308      `(("avahi" ,avahi)
1309        ("docbook-xml" ,docbook-xml-4.2)
1310        ("docbook-xsl" ,docbook-xsl)
1311        ("e2fsprogs" ,e2fsprogs)
1312        ("fuse" ,fuse)
1313        ("glib" ,glib)
1314        ("gpgme" ,gpgme)
1315        ("libarchive" ,libarchive)
1316        ("libsoup" ,libsoup)
1317        ("util-linux" ,util-linux)))
1318     (home-page "https://ostree.readthedocs.io/en/latest/")
1319     (synopsis "Operating system and container binary deployment and upgrades")
1320     (description
1321      "@code{libostree} is both a shared library and suite of command line
1322 tools that combines a \"git-like\" model for committing and downloading
1323 bootable file system trees, along with a layer for deploying them and managing
1324 the boot loader configuration.")
1325     (license license:lgpl2.0+)))
1326
1327 (define-public flatpak
1328   (package
1329    (name "flatpak")
1330    (version "1.8.2")
1331    (source
1332     (origin
1333      (method url-fetch)
1334      (uri (string-append "https://github.com/flatpak/flatpak/releases/download/"
1335                          version "/flatpak-" version ".tar.xz"))
1336      (sha256
1337       (base32 "1c45a0k7wx685n5b3ihv7dk0mm2kmwbw7cx8w5g2la62yxfn49kr"))))
1338
1339    ;; Wrap 'flatpak' so that GIO_EXTRA_MODULES is set, thereby allowing GIO to
1340    ;; find the TLS backend in glib-networking.
1341    (build-system glib-or-gtk-build-system)
1342
1343    (arguments
1344     '(#:configure-flags
1345       (list
1346        "--enable-documentation=no" ;; FIXME
1347        "--enable-system-helper=no"
1348        "--localstatedir=/var"
1349        (string-append "--with-system-bubblewrap="
1350                       (assoc-ref %build-inputs "bubblewrap")
1351                       "/bin/bwrap")
1352        (string-append "--with-system-dbus-proxy="
1353                       (assoc-ref %build-inputs "xdg-dbus-proxy")
1354                       "/bin/xdg-dbus-proxy"))
1355       #:phases
1356       (modify-phases %standard-phases
1357         (add-after 'unpack 'fix-tests
1358           (lambda* (#:key inputs #:allow-other-keys)
1359             (copy-recursively
1360              (string-append (assoc-ref inputs "glibc-utf8-locales")
1361                             "/lib/locale/") "/tmp/locale")
1362             (for-each make-file-writable (find-files "/tmp"))
1363             (substitute* "tests/make-test-runtime.sh"
1364               (("cp `which.*") "echo guix\n")
1365               (("cp -r /usr/lib/locale/C\\.\\*")
1366                (string-append "mkdir ${DIR}/usr/lib/locale/en_US; \
1367 cp -r /tmp/locale/*/en_US.*")))
1368             (substitute* "tests/libtest.sh"
1369               (("/bin/kill") (which "kill"))
1370               (("/usr/bin/python3") (which "python3")))
1371             #t))
1372         ;; Many tests fail for unknown reasons, so we just run a few basic
1373         ;; tests.
1374         (replace 'check
1375           (lambda _
1376             (setenv "HOME" "/tmp")
1377             (invoke "make" "check"
1378                     "TESTS=tests/test-basic.sh tests/test-config.sh testcommon"))))))
1379     (native-inputs
1380     `(("bison" ,bison)
1381       ("dbus" ,dbus) ; for dbus-daemon
1382       ("gettext" ,gettext-minimal)
1383       ("glib:bin" ,glib "bin")          ; for glib-mkenums + gdbus-codegen
1384       ("glibc-utf8-locales" ,glibc-utf8-locales)
1385       ("gobject-introspection" ,gobject-introspection)
1386       ("libcap" ,libcap)
1387       ("pkg-config" ,pkg-config)
1388       ("python" ,python)
1389       ("python-pyparsing" ,python-pyparsing)
1390       ("socat" ,socat)
1391       ("which" ,which)))
1392    (propagated-inputs `(("glib-networking" ,glib-networking)
1393                         ("gnupg" ,gnupg)
1394                         ("gsettings-desktop-schemas"
1395                          ,gsettings-desktop-schemas)))
1396    (inputs
1397     `(("appstream-glib" ,appstream-glib)
1398       ("bubblewrap" ,bubblewrap)
1399       ("dconf" ,dconf)
1400       ("fuse" ,fuse)
1401       ("gdk-pixbuf" ,gdk-pixbuf)
1402       ("gpgme" ,gpgme)
1403       ("json-glib" ,json-glib)
1404       ("libarchive" ,libarchive)
1405       ("libostree" ,libostree)
1406       ("libseccomp" ,libseccomp)
1407       ("libsoup" ,libsoup)
1408       ("libxau" ,libxau)
1409       ("libxml2" ,libxml2)
1410       ("util-linux" ,util-linux)
1411       ("xdg-dbus-proxy" ,xdg-dbus-proxy)))
1412    (home-page "https://flatpak.org")
1413    (synopsis "System for building, distributing, and running sandboxed desktop
1414 applications")
1415    (description "Flatpak is a system for building, distributing, and running
1416 sandboxed desktop applications on GNU/Linux.")
1417    (license license:lgpl2.1+)))
1418
1419 (define-public akku
1420   (package
1421     (name "akku")
1422     (version "1.0.1")
1423     (source (origin
1424               (method git-fetch)
1425               (uri (git-reference
1426                     (url "https://gitlab.com/akkuscm/akku.git")
1427                     (commit (string-append "v" version))))
1428               (file-name (git-file-name name version))
1429               (sha256 (base32 "1dm32ws3nshnnscd7k75zswxxs1pp25y2q4k8j5ms241hz47by3c"))))
1430     (build-system gnu-build-system)
1431     (arguments
1432      '(#:phases (modify-phases %standard-phases
1433                   (replace 'bootstrap
1434                     (lambda* (#:key outputs #:allow-other-keys)
1435                       (for-each patch-shebang
1436                                 '("bootstrap"
1437                                   ".akku/env"))
1438                       (let* ((home "/tmp")
1439                              (datadir (string-append home "/.local/share/akku/")))
1440                         (mkdir-p datadir)
1441                         (invoke "touch" (string-append datadir "index.db"))
1442                         (setenv "HOME" home))
1443                       (invoke "./bootstrap")
1444                       #t))
1445                   (add-after 'install 'wrap-executables
1446                     (lambda* (#:key outputs inputs #:allow-other-keys)
1447                       (let ((out (assoc-ref outputs "out"))
1448                             (curl (assoc-ref inputs "curl")))
1449                         (wrap-program (string-append out "/bin/akku")
1450                           `("LD_LIBRARY_PATH" ":" prefix (,(string-append curl "/lib"))))
1451                         #t))))))
1452     (native-inputs
1453      `(("which" ,which)
1454        ("autoconf" ,autoconf)
1455        ("automake" ,automake)
1456        ("pkg-config" ,pkg-config)))
1457     (inputs
1458      `(("guile" ,guile-3.0)
1459        ("curl" ,curl)))
1460     (home-page "https://akkuscm.org/")
1461     (synopsis "Language package manager for Scheme")
1462     (description
1463      "Akku.scm is a project-based language package manager for R6RS and R7RS Scheme.
1464 It is mainly meant for programmers who develop portable programs or libraries in Scheme,
1465 but could potentially work for end-users of those programs.  It also has a translator
1466 from R7RS, which allows most R7RS code to run on R6RS implementations.")
1467     (license license:gpl3+)))