me
/
guix
Archived
1
0
Fork 0
Code

Merge branch 'master' into core-updates

master
Marius Bakke 2021-05-22 17:21:57 +02:00
parent fcf45f8d75 d4ffa96302
commit 4ea6852c5f
No known key found for this signature in database
GPG Key ID: A2A06DF2A33A54FA
105 changed files with 3510 additions and 42883 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Makefile.am
View File

@ -366,10 +366,6 @@ AUX_FILES = \
gnu/packages/aux-files/linux-libre/5.12-arm64.conf \
gnu/packages/aux-files/linux-libre/5.12-i686.conf \
gnu/packages/aux-files/linux-libre/5.12-x86_64.conf \
gnu/packages/aux-files/linux-libre/5.11-arm.conf \
gnu/packages/aux-files/linux-libre/5.11-arm64.conf \
gnu/packages/aux-files/linux-libre/5.11-i686.conf \
gnu/packages/aux-files/linux-libre/5.11-x86_64.conf \
gnu/packages/aux-files/linux-libre/5.10-arm.conf \
gnu/packages/aux-files/linux-libre/5.10-arm64.conf \
gnu/packages/aux-files/linux-libre/5.10-i686.conf \
@ -462,7 +458,6 @@ SCM_TESTS = \
tests/git-authenticate.scm \
tests/glob.scm \
tests/gnu-maintenance.scm \
tests/go.scm \
tests/grafts.scm \
tests/graph.scm \
tests/gremlin.scm \
@ -511,6 +506,10 @@ SCM_TESTS = \
tests/uuid.scm \
tests/workers.scm
if HAVE_GUILE_LIB
SCM_TESTS += tests/go.scm
endif
if BUILD_DAEMON_OFFLOAD
SCM_TESTS += tests/offload.scm
else

2
README
View File

@ -62,7 +62,7 @@ Please email <help-guix@gnu.org> for questions and <bug-guix@gnu.org> for bug
reports; email <gnu-system-discuss@gnu.org> for general issues regarding the
GNU system.
Join #guix on irc.freenode.net.
Join #guix on irc.libera.chat.
* Guix & Nix

2
ROADMAP
View File

@ -23,7 +23,7 @@ There will be a few 0.x releases by then to give the new features more
exposure and testing.
You're welcome to discuss this road map on guix-devel@gnu.org or #guix on
Freenode!
the Libera Chat IRC network!
* Features scheduled for 1.0

2
doc/contributing.texi
View File

@ -3,7 +3,7 @@
This project is a cooperative effort, and we need your help to make it
grow! Please get in touch with us on @email{guix-devel@@gnu.org} and
@code{#guix} on the Freenode IRC network. We welcome ideas, bug
@code{#guix} on the Libera Chat IRC network. We welcome ideas, bug
reports, patches, and anything that may be helpful to the project. We
particularly welcome help on packaging (@pxref{Packaging Guidelines}).

113
doc/guix.texi
View File

@ -2628,7 +2628,7 @@ root's login shell, you'll need to @command{guix pull} separately.
@end quotation
Now, @pxref{Getting Started}, and
join us on @code{#guix} on the Freenode IRC network or on
join us on @code{#guix} on the Libera Chat IRC network or on
@email{guix-devel@@gnu.org} to share your experience!
@ -5915,7 +5915,7 @@ For example, to create a bundle containing Guile, Emacs, Geiser, and all
their dependencies, you can run:
@example
$ guix pack guile emacs geiser
$ guix pack guile emacs emacs-geiser
@dots{}
/gnu/store/@dots{}-pack.tar.gz
@end example
@ -5933,7 +5933,7 @@ find inconvenient. To work around it, you can create, say, a
@file{/opt/gnu/bin} symlink to the profile:
@example
guix pack -S /opt/gnu/bin=bin guile emacs geiser
guix pack -S /opt/gnu/bin=bin guile emacs emacs-geiser
@end example
@noindent
@ -5977,7 +5977,7 @@ Yet another option is to produce a SquashFS image with the following
command:
@example
guix pack -f squashfs bash guile emacs geiser
guix pack -f squashfs bash guile emacs emacs-geiser
@end example
@noindent
@ -11845,7 +11845,7 @@ an upgrade. More rebuilds might be required under some circumstances.
@example
$ guix refresh --list-dependent flex
Building the following 120 packages would ensure 213 dependent packages are rebuilt:
hop@@2.4.0 geiser@@0.4 notmuch@@0.18 mu@@0.9.9.5 cflow@@1.4 idutils@@4.6 @dots{}
hop@@2.4.0 emacs-geiser@@0.13 notmuch@@0.18 mu@@0.9.9.5 cflow@@1.4 idutils@@4.6 @dots{}
@end example
The command above lists a set of packages that could be built to check
@ -12713,6 +12713,16 @@ Additionally, when @option{--cache} is used, cached entries that have
not been accessed for @var{ttl} and that no longer have a corresponding
item in the store, may be deleted.
@item --negative-ttl=@var{ttl}
Similarly produce @code{Cache-Control} HTTP headers to advertise the
time-to-live (TTL) of @emph{negative} lookups---missing store items, for
which the HTTP 404 code is returned. By default, no negative TTL is
advertised.
This parameter can help adjust server load and substitute latency by
instructing cooperating clients to be more or less patient when a store
item is missing.
@item --cache-bypass-threshold=@var{size}
When used in conjunction with @option{--cache}, store items smaller than
@var{size} are immediately available, even when they are not yet in
@ -16688,6 +16698,99 @@ must be @code{'()} or @code{'("internal")}.
detailed discussion of each configuration field.
@end deftp
@cindex opendht, distributed hash table network service
@cindex dhtproxy, for use with jami
@defvr {Scheme Variable} opendht-service-type
This is the type of the service running a @uref{https://opendht.net,
OpenDHT} node, @command{dhtnode}. The daemon can be used to host your
own proxy service to the distributed hash table (DHT), for example to
connect to with Jami, among other applications.
@quotation Important
When using the OpenDHT proxy server, the IP addresses it ``sees'' from
the clients should be addresses reachable from other peers. In practice
this means that a publicly reachable address is best suited for a proxy
server, outside of your private network. For example, hosting the proxy
server on a IPv4 private local network and exposing it via port
forwarding could work for external peers, but peers local to the proxy
would have their private addresses shared with the external peers,
leading to connectivity problems.
@end quotation
The value of this service is a @code{opendht-configuration} object, as
described below.
@end defvr
@deftp {Data Type} opendht-configuration
This is the data type for the OpenDHT service configuration.
@c The fields documentation has been auto-generated using the
@c configuration->documentation procedure from
@c (gnu services configuration).
Available @code{opendht-configuration} fields are:
@deftypevr {@code{opendht-configuration} parameter} package opendht
The @code{opendht} package to use.
@end deftypevr
@deftypevr {@code{opendht-configuration} parameter} boolean peer-discovery?
Whether to enable the multicast local peer discovery mechanism.
Defaults to @samp{#f}.
@end deftypevr
@deftypevr {@code{opendht-configuration} parameter} boolean enable-logging?
Whether to enable logging messages to syslog. It is disabled by default
as it is rather verbose.
Defaults to @samp{#f}.
@end deftypevr
@deftypevr {@code{opendht-configuration} parameter} boolean debug?
Whether to enable debug-level logging messages. This has no effect if
logging is disabled.
Defaults to @samp{#f}.
@end deftypevr
@deftypevr {@code{opendht-configuration} parameter} maybe-string bootstrap-host
The node host name that is used to make the first connection to the
network. A specific port value can be provided by appending the
@code{:PORT} suffix. By default, it uses the Jami bootstrap nodes, but
any host can be specified here. It's also possible to disable
bootsrapping by setting this to the @code{'disabled} symbol.
Defaults to @samp{"bootstrap.jami.net:4222"}.
@end deftypevr
@deftypevr {@code{opendht-configuration} parameter} maybe-number port
The UDP port to bind to. When set to @code{'disabled}, an available
port is automatically selected.
Defaults to @samp{4222}.
@end deftypevr
@deftypevr {@code{opendht-configuration} parameter} maybe-number proxy-server-port
Spawn a proxy server listening on the specified port.
Defaults to @samp{disabled}.
@end deftypevr
@deftypevr {@code{opendht-configuration} parameter} maybe-number proxy-server-port-tls
Spawn a proxy server listening to TLS connections on the specified port.
Defaults to @samp{disabled}.
@end deftypevr
@end deftp
@cindex Tor
@defvr {Scheme Variable} tor-service-type
This is the type for a service that runs the @uref{https://torproject.org,

11
gnu/local.mk
View File

@ -834,6 +834,7 @@ dist_patch_DATA = \
%D%/packages/patches/audiofile-hurd.patch \
%D%/packages/patches/audiofile-function-signature.patch \
%D%/packages/patches/automake-skip-amhello-tests.patch \
%D%/packages/patches/autotrace-glib-compat.patch \
%D%/packages/patches/avahi-localstatedir.patch \
%D%/packages/patches/avidemux-install-to-lib.patch \
%D%/packages/patches/awesome-reproducible-png.patch \
@ -946,6 +947,7 @@ dist_patch_DATA = \
%D%/packages/patches/desmume-gcc7-fixes.patch \
%D%/packages/patches/dfu-programmer-fix-libusb.patch \
%D%/packages/patches/diffutils-gets-undeclared.patch \
%D%/packages/patches/disarchive-cross-compilation.patch \
%D%/packages/patches/dkimproxy-add-ipv6-support.patch \
%D%/packages/patches/docbook-xsl-nonrecursive-string-subst.patch \
%D%/packages/patches/docbook-xsl-support-old-url.patch \
@ -1141,6 +1143,7 @@ dist_patch_DATA = \
%D%/packages/patches/gpodder-disable-updater.patch \
%D%/packages/patches/gpsbabel-fix-i686-test.patch \
%D%/packages/patches/grantlee-merge-theme-dirs.patch \
%D%/packages/patches/graphviz-CVE-2020-18032.patch \
%D%/packages/patches/grep-timing-sensitive-test.patch \
%D%/packages/patches/grocsvs-dont-use-admiral.patch \
%D%/packages/patches/gromacs-tinyxml2.patch \
@ -1247,6 +1250,7 @@ dist_patch_DATA = \
%D%/packages/patches/jfsutils-include-systypes.patch \
%D%/packages/patches/julia-SOURCE_DATE_EPOCH-mtime.patch \
%D%/packages/patches/kdbusaddons-kinit-file-name.patch \
%D%/packages/patches/libblockdev-glib-compat.patch \
%D%/packages/patches/libffi-3.3-powerpc-fixes.patch \
%D%/packages/patches/libffi-float128-powerpc64le.patch \
%D%/packages/patches/libvirt-add-install-prefix.patch \
@ -1339,6 +1343,7 @@ dist_patch_DATA = \
%D%/packages/patches/libutils-remove-damaging-includes.patch \
%D%/packages/patches/libvdpau-va-gl-unbundle.patch \
%D%/packages/patches/libvpx-CVE-2016-2818.patch \
%D%/packages/patches/libxml2-xpath0-Add-option-xpath0.patch \
%D%/packages/patches/libxslt-generated-ids.patch \
%D%/packages/patches/libxt-guix-search-paths.patch \
%D%/packages/patches/lierolibre-check-unaligned-access.patch \
@ -1386,6 +1391,7 @@ dist_patch_DATA = \
%D%/packages/patches/mcrypt-CVE-2012-4527.patch \
%D%/packages/patches/libmemcached-build-with-gcc7.patch \
%D%/packages/patches/libmhash-hmac-fix-uaf.patch \
%D%/packages/patches/mercurial-hg-extension-path.patch \
%D%/packages/patches/mesa-skip-tests.patch \
%D%/packages/patches/mescc-tools-boot.patch \
%D%/packages/patches/metabat-fix-compilation.patch \
@ -1508,10 +1514,6 @@ dist_patch_DATA = \
%D%/packages/patches/picard-fix-id3-rename-test.patch \
%D%/packages/patches/picprog-non-intel-support.patch \
%D%/packages/patches/pidgin-add-search-path.patch \
%D%/packages/patches/pinball-const-fix.patch \
%D%/packages/patches/pinball-cstddef.patch \
%D%/packages/patches/pinball-missing-separators.patch \
%D%/packages/patches/pinball-src-deps.patch \
%D%/packages/patches/pinball-system-ltdl.patch \
%D%/packages/patches/pingus-boost-headers.patch \
%D%/packages/patches/pingus-sdl-libs-config.patch \
@ -1635,7 +1637,6 @@ dist_patch_DATA = \
%D%/packages/patches/rust-nettle-sys-disable-vendor.patch \
%D%/packages/patches/rust-reproducible-builds.patch \
%D%/packages/patches/rust-openssl-sys-no-vendor.patch \
%D%/packages/patches/rxvt-unicode-escape-sequences.patch \
%D%/packages/patches/sbc-fix-build-non-x86.patch \
%D%/packages/patches/sbcl-clml-fix-types.patch \
%D%/packages/patches/scalapack-blacs-mpi-deprecations.patch \

18
gnu/packages/admin.scm
View File

@ -2,7 +2,7 @@
;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2013 Cyril Roelandt <tipecaml@gmail.com>
;;; Copyright © 2014, 2015, 2016, 2018, 2019, 2020 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2020 Eric Bavier <bavier@posteo.net>
;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2020, 2021 Eric Bavier <bavier@posteo.net>
;;; Copyright © 2015, 2016 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
;;; Copyright © 2015 Alex Sassmannshausen <alex.sassmannshausen@gmail.com>
;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr>
@ -1150,7 +1150,7 @@ connection alive.")
(define-public isc-dhcp
(let* ((bind-major-version "9")
(bind-minor-version "11")
(bind-patch-version "31")
(bind-patch-version "32")
(bind-release-type "") ; for patch release, use "-P"
(bind-release-version "") ; for patch release, e.g. "6"
(bind-version (string-append bind-major-version
@ -1287,7 +1287,7 @@ connection alive.")
"/bind-" bind-version ".tar.gz"))
(sha256
(base32
"0sm3vy5g21isdywxr650442x9r00fpj9cxc81n3qcbibyibl9wpm"))))
"0hhkb4d14hvly2751cxl2s2xyim3bri8qaisgkcm456xfi5wpy6b"))))
("coreutils*" ,coreutils)
("sed*" ,sed)))
@ -2149,7 +2149,7 @@ system is under heavy load.")
(define-public detox
(package
(name "detox")
(version "1.3.3")
(version "1.4.2")
(source (origin
(method git-fetch)
(uri (git-reference
@ -2158,21 +2158,23 @@ system is under heavy load.")
(file-name (git-file-name name version))
(sha256
(base32
"13mhs62m7bpff45liy65pajq5jg3i12jj90vwdkra94z9mlr2rlz"))))
"0q16dvjbry573j4ayh9dwskdh1dxx8dk4rj94w6f2dcv4ww37is1"))))
(build-system gnu-build-system)
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
("flex" ,flex)))
(arguments
`(#:tests? #f ;no 'check' target
#:phases (modify-phases %standard-phases
`(#:phases (modify-phases %standard-phases
(add-after 'unpack 'delete-configure
;; The "configure" script is present, but otherwise the
;; project is not bootstrapped: missing install-sh and
;; Makefile.in, so delete it so the bootstrap phase will
;; take over.
(lambda _ (delete-file "configure") #t)))))
(lambda _ (delete-file "configure") #t))
(replace 'check
(lambda _
(invoke "./tests/test.sh" "src/detox"))))))
(home-page "https://github.com/dharple/detox")
(synopsis "Clean up file names")
(description

4
gnu/packages/algebra.scm
View File

@ -341,7 +341,7 @@ precision.")
(define-public giac
(package
(name "giac")
(version "1.7.0-5")
(version "1.7.0-9")
(source
(origin
(method url-fetch)
@ -353,7 +353,7 @@ precision.")
"~parisse/debian/dists/stable/main/source/"
"giac_" version ".tar.gz"))
(sha256
(base32 "1fg82azzsxgglqq2im60wbqh18inaaf7cmz30aq8v9mdwrfp34x1"))))
(base32 "0yl5h13rnis8gqg48g9z719d5xfgxjcxz7bwbdqlwsvdy42crrim"))))
(build-system gnu-build-system)
(arguments
`(#:modules ((ice-9 ftw)

4
gnu/packages/aspell.scm
View File

@ -397,6 +397,10 @@ dictionaries, including personal ones.")
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'make-reproducible
(lambda _
(substitute* "speller/README_en.txt.sh"
(("\\bdate\\b") ""))))
(delete 'configure)
(delete 'check)
(replace 'build

9944
gnu/packages/aux-files/linux-libre/5.11-arm.conf
View File

File diff suppressed because it is too large Load Diff

10153
gnu/packages/aux-files/linux-libre/5.11-arm64.conf
View File

File diff suppressed because it is too large Load Diff

10792
gnu/packages/aux-files/linux-libre/5.11-i686.conf
View File

File diff suppressed because it is too large Load Diff

10828
gnu/packages/aux-files/linux-libre/5.11-x86_64.conf
View File

File diff suppressed because it is too large Load Diff

10
gnu/packages/backup.scm
View File

@ -1103,12 +1103,20 @@ backup.")
"disarchive-" version ".tar.gz"))
(sha256
(base32
"1jypk0gdwxqbqxiblww863nzq0kwnc676q68j32sprqd7ilnq02s"))))
"1jypk0gdwxqbqxiblww863nzq0kwnc676q68j32sprqd7ilnq02s"))
(patches (search-patches "disarchive-cross-compilation.patch"))))
(build-system gnu-build-system)
(arguments
`(#:phases (modify-phases %standard-phases
(add-after 'unpack 'delete-configure
(lambda _
(delete-file "configure"))))))
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
("pkg-config" ,pkg-config)
("guile" ,guile-3.0) ;for cross-compilation
("guile-gcrypt" ,guile-gcrypt)
("guile-quickcheck" ,guile-quickcheck)))
(inputs
`(("guile" ,guile-3.0)

39
gnu/packages/benchmark.scm
View File

@ -10,6 +10,7 @@
;;; Copyright © 2020 malte Frank Gerdes <malte.f.gerdes@gmail.com>
;;; Copyright © 2020, 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2020 Greg Hogan <code@greghogan.com>
;;; Copyright © 2021 Arun Isaac <arunisaac@systemreboot.net>
;;;
;;; This file is part of GNU Guix.
;;;
@ -353,3 +354,41 @@ Note: Locust will complain if the available open file descriptors limit for
the user is too low. To raise such limit on a Guix System, refer to
@samp{info guix --index-search=pam-limits-service}.")
(license license:expat)))
(define-public interbench
(package
(name "interbench")
(version "0.31")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/ckolivas/interbench")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0ifnw8vnkcgrksx7g5d9ii4kjppqnk32lvrybdybmibyvag6zfdc"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; no tests
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-broken-makefile
(lambda _
;; Remove erroneous "-lm" target
(substitute* "Makefile"
(("hackbench.o -lm") "hackbench.o"))))
(delete 'configure)
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(install-file "interbench" (string-append out "/bin"))
(install-file "interbench.8" (string-append out "/share/man/man8"))))))))
(home-page "http://users.on.net/~ckolivas/interbench/")
(synopsis "Interactivity benchmark")
(description "interbench is designed to benchmark interactivity on Linux.
It is designed to measure the effect of changes in Linux kernel design or
system configuration changes such as CPU, I/O scheduler and filesystem changes
and options. With careful benchmarking, different hardware can be compared.")
(license license:gpl2+)))

4
gnu/packages/bioconductor.scm
View File

@ -6820,14 +6820,14 @@ Markov-Chain-Monte-Carlo is applied to sample the activity states.")
(define-public r-multidataset
(package
(name "r-multidataset")
(version "1.18.1")
(version "1.18.2")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "MultiDataSet" version))
(sha256
(base32
"0v3ljpkggrpc7zp72z417jkzjq17abwsvsxh33fb8s3i2s4ycaa4"))))
"1wzhxgprriicw6lx1h91z4r9d5yaxar859scp83bm8pr9aznqk2z"))))
(properties `((upstream-name . "MultiDataSet")))
(build-system r-build-system)
(propagated-inputs

8
gnu/packages/bioinformatics.scm
View File

@ -8513,14 +8513,14 @@ of gene-level counts.")
(define-public r-rhdf5filters
(package
(name "r-rhdf5filters")
(version "1.2.0")
(version "1.2.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "rhdf5filters" version))
(sha256
(base32
"1jvnss44liapbc6hk93yg1gknv0ahd5x86dydqiwq9l65jd03psq"))))
"1bjlgc76vx0z81s8vci9ln1d2s3b157qnm32xs36mnyjk31ivasz"))))
(properties `((upstream-name . "rhdf5filters")))
(build-system r-build-system)
(propagated-inputs
@ -11817,7 +11817,7 @@ expression report comparing samples in an easily configurable manner.")
(define-public pigx-chipseq
(package
(name "pigx-chipseq")
(version "0.0.51")
(version "0.0.52")
(source (origin
(method url-fetch)
(uri (string-append "https://github.com/BIMSBbioinfo/pigx_chipseq/"
@ -11825,7 +11825,7 @@ expression report comparing samples in an easily configurable manner.")
"/pigx_chipseq-" version ".tar.gz"))
(sha256
(base32
"0bb6hzpl0qq0jd57pgd1m5ns547rfipr6071a4m12vxlm4nlpi5q"))))
"097cvc8kr3r1nq0sgjpirzmixwjl074qp4qq3sx4ngfqi06af6r9"))))
(build-system gnu-build-system)
;; parts of the tests rely on access to the network
(arguments '(#:tests? #f))

41
gnu/packages/c.scm
View File

@ -7,7 +7,7 @@
;;; Copyright © 2019 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2019 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2020 Marius Bakke <marius@gnu.org>
;;; Copyright © 2020, 2021 Marius Bakke <marius@gnu.org>
;;; Copyright © 2020 Katherine Cox-Buday <cox.katherine.e@gmail.com>
;;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2020, 2021 Greg Hogan <code@greghogan.com>
@ -37,6 +37,7 @@
#:use-module (guix build-system gnu)
#:use-module (guix build-system trivial)
#:use-module (gnu packages)
#:use-module (gnu packages bash)
#:use-module (gnu packages bootstrap)
#:use-module (gnu packages bison)
#:use-module (gnu packages check)
@ -329,10 +330,8 @@ as dictionaries, skip lists, and memory pools.")
(define-public packcc
(package
(name "packcc")
;; We need a few fixes on top of the latest release to prevent test
;; failures in Universal Ctags.
(version "1.2.5-19-g58d1b9d")
(home-page "https://github.com/enechaev/packcc")
(version "1.5.0")
(home-page "https://github.com/arithy/packcc")
(source (origin
(method git-fetch)
(uri (git-reference
@ -341,26 +340,34 @@ as dictionaries, skip lists, and memory pools.")
(file-name (git-file-name name version))
(sha256
(base32
"0biyv835jlk43fvmmd3p8jafs7k2iw9qlaj37hvsl604ai6rd5aj"))))
"1n9ivsa6b9ps2jbh34bycjqjpbwbk85l4jjg46pfhqxzz96793wy"))))
(build-system gnu-build-system)
(arguments
'(#:tests? #f ;no tests
#:make-flags '("-DUSE_SYSTEM_STRNLEN=1")
#:phases (modify-phases %standard-phases
;; The project consists of a single source file and has
;; no actual build system, so we need to do it manually.
'(#:phases (modify-phases %standard-phases
(delete 'configure)
(replace 'build
(lambda* (#:key make-flags #:allow-other-keys)
(apply invoke "gcc" "-o" "packcc" "packcc.c"
make-flags)))
(add-before 'build 'chdir
(lambda _
(chdir "build/gcc")))
(add-before 'check 'pre-check
(lambda _
(setenv "CC" "gcc")
;; The style tests are supposed to be skipped when
;; uncrustify is unavailable, but a stray version
;; check prevents it from working. This can be
;; removed for future versions of PackCC.
(substitute* "../../tests/style.d/style.bats"
(("^[[:blank:]]+check_uncrustify_version")
""))))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(install-file "packcc" (string-append out "/bin"))
(install-file "README.md"
(install-file "release/bin/packcc"
(string-append out "/bin"))
(install-file "../../README.md"
(string-append out "/share/doc/packcc"))
#t))))))
(native-inputs
`(("bats" ,bats)))
(synopsis "Packrat parser generator for C")
(description
"PackCC is a packrat parser generator for the C programming language.

54
gnu/packages/check.scm
View File

@ -424,39 +424,25 @@ a multi-paradigm automated test framework for C++ and Objective-C.")
(define-public cmdtest
(package
(name "cmdtest")
(version "0.32")
;; Use the latest commit (from 2019) in order to get Python 3 support.
(version "0.32-14-gcdfe14e")
(source (origin
(method url-fetch)
(uri (string-append "http://git.liw.fi/cmdtest/snapshot/"
name "-" version ".tar.gz"))
(method git-fetch)
(uri (git-reference
(url "git://git.liw.fi/cmdtest/")
(commit version)))
(sha256
(base32
"1jmfiyrrqmpvwdb273bkb8hjaf4rwx9njblx29pmr7giyahskwi5"))))
"1yhcwsqcpckkq5kw3h07k0xg6infyiyzq9ni3nqphrzxis7hxjf1"))))
(build-system python-build-system)
(arguments
`(#:python ,python-2
#:phases
(modify-phases %standard-phases
;; check phase needs to be run before the build phase. If not, the
;; coverage test runner looks for tests for the built source files,
;; and fails.
(delete 'check)
(add-before 'build 'check
(lambda _
(substitute* "yarn"
(("/bin/sh") (which "sh")))
;; yarn uses python2-ttystatus to print messages.
;; python2-ttystatus requires /dev/tty which is not present in
;; the build environment. Hence assuming-failure test fails.
(delete-file "yarn.tests/assuming-failure.script")
(delete-file "yarn.tests/assuming-failure.stdout")
(invoke "python" "setup.py" "check"))))))
(arguments `(#:tests? #f)) ;requires Python 2!
(native-inputs
`(("python2-coverage-test-runner" ,python2-coverage-test-runner)))
(propagated-inputs
`(("python2-cliapp" ,python2-cliapp)
("python2-markdown" ,python2-markdown)
("python2-ttystatus" ,python2-ttystatus)))
`(("python-coverage-test-runner" ,python-coverage-test-runner)
("python" ,python)))
(inputs
`(("python-cliapp" ,python-cliapp)
("python-markdown" ,python-markdown)
("python-ttystatus" ,python-ttystatus)))
(home-page "https://liw.fi/cmdtest/")
(synopsis "Black box Unix program tester")
(description
@ -2096,9 +2082,9 @@ failures.")
(define-public python2-pytest-flakes
(package-with-python2 python-pytest-flakes))
(define-public python2-coverage-test-runner
(define-public python-coverage-test-runner
(package
(name "python2-coverage-test-runner")
(name "python-coverage-test-runner")
(version "1.15")
(source
(origin
@ -2112,14 +2098,13 @@ failures.")
"1kjjb9llckycnfxag8zcvqsn4z1s3dwyw6b1n0avxydihgf30rny"))))
(build-system python-build-system)
(arguments
`(#:python ,python-2
#:phases
`(#:phases
(modify-phases %standard-phases
(replace 'check
(lambda _
(invoke "./testrun"))))))
(propagated-inputs
`(("python2-coverage" ,python2-coverage)))
`(("python-coverage" ,python-coverage)))
(home-page "https://liw.fi/coverage-test-runner/")
(synopsis "Python module for running unit tests")
(description "@code{CoverageTestRunner} is a python module for running
@ -2127,6 +2112,9 @@ unit tests and failing them if the unit test module does not exercise all
statements in the module it tests.")
(license license:gpl3+)))
(define-public python2-coverage-test-runner
(package-with-python2 python-coverage-test-runner))
(define-public python-pylint
(package
(name "python-pylint")

56
gnu/packages/code.scm
View File

@ -13,7 +13,7 @@
;;; Copyright © 2014 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2019 Hartmut Goebel <h.goebel@goebel-consult.de>
;;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2020 Marius Bakke <marius@gnu.org>
;;; Copyright © 2020, 2021 Marius Bakke <marius@gnu.org>
;;; Copyright © 2020 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2021 lu hui <luhuins@163.com>
;;;
@ -349,7 +349,7 @@ features that are not supported by the standard @code{stdio} implementation.")
(define-public universal-ctags
(package
(name "universal-ctags")
(version "5.9.20201018.0")
(version "5.9.20210509.0")
(source
(origin
(method git-fetch)
@ -359,64 +359,44 @@ features that are not supported by the standard @code{stdio} implementation.")
(file-name (git-file-name name version))
(sha256
(base32
"174p1w20pl25k996hfw61inw4mqhskmmic1lyw2m65firmkyvs7x"))
"1sq94bnbzr40zwihfnsna759bbak0lw27j0yn12iwpg4xgb4hhwp"))
(modules '((guix build utils)))
(snippet
'(begin
;; Remove the bundled PackCC and associated build rules.
(substitute* "Makefile.am"
(("\\$\\(packcc_verbose\\)\\$\\(PACKCC\\)")
"packcc")
(("\\$\\(PEG_SRCS\\) \\$\\(PEG_HEADS\\): packcc\\$\\(EXEEXT\\)")
"$(PEG_SRCS) $(PEG_HEADS):")
(("noinst_PROGRAMS \\+= packcc")
""))
(delete-file-recursively "misc/packcc")
#t))))
(("^PACKCC = .*")
"PACKCC = packcc")
(("\\$\\(PACKCC_FILES\\)")
"")
(("\\$\\(PEG_SRCS\\) \\$\\(PEG_HEADS\\): \\$\\(PACKCC\\)")
"$(PEG_SRCS) $(PEG_HEADS):"))
(delete-file-recursively "misc/packcc")))))
(build-system gnu-build-system)
(arguments
'(;; Don't use the build-time TMPDIR (/tmp/guix-build-...) at runtime.
#:configure-flags '("--enable-tmpdir=/tmp")
#:test-target "units"
#:phases (modify-phases %standard-phases
(add-after 'unpack 'make-files-writable
(lambda _
(for-each make-file-writable (find-files "."))
#t))
(add-before 'bootstrap 'patch-optlib2c
(for-each make-file-writable (find-files "."))))
(add-before 'bootstrap 'patch-misc
(lambda _
;; The autogen.sh script calls out to optlib2c to
;; generate translations, so we can not wait for the
;; patch-source-shebangs phase.
(patch-shebang "misc/optlib2c")
#t))
;; The autogen.sh script calls out to these scripts, so
;; we cannot wait for the patch-source-shebangs phase.
(for-each patch-shebang (find-files "misc"))))
(add-before 'check 'patch-tests
(lambda _
(substitute* "misc/units"
(("SHELL=/bin/sh")
(string-append "SHELL=" (which "sh"))))
(substitute* "Tmain/utils.sh"
(("/bin/echo") (which "echo")))
#t)))))
(("/bin/echo") (which "echo"))))))))
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
;; XXX: Use ctags' own packcc fork even though we meticolously unbundle
;; it above. Mainly for historical reasons, and perhaps their changes
;; get upstreamed in the future.
("packcc"
,(let ((commit "03402b79505dc0024f90d5bebfd7e5d3fb62da9a"))
(package
(inherit packcc)
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/universal-ctags/packcc")
(commit commit)))
(file-name (git-file-name "packcc-for-ctags"
(string-take commit 7)))
(sha256
(base32
"0vxpdk9l2lf7f32nx1p3b3xmw2kw2wp95vnf9bc4lyqrg69pblm0")))))))
("packcc" ,packcc)
("perl" ,perl)
("pkg-config" ,pkg-config)))
(inputs

16
gnu/packages/compression.scm
View File

@ -13,7 +13,7 @@
;;; Copyright © 2016–2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2016 David Craven <david@craven.ch>
;;; Copyright © 2016, 2019, 2020 Kei Kebreau <kkebreau@posteo.net>
;;; Copyright © 2016, 2018, 2019, 2020 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2016, 2018, 2019, 2020, 2021 Marius Bakke <marius@gnu.org>
;;; Copyright © 2017 Nikita <nikita@n0.is>
;;; Copyright © 2017 Manolis Fragkiskos Ragkousis <manolis837@gmail.com>
;;; Copyright © 2017 Theodoros Foradis <theodoros@foradis.org>
@ -673,6 +673,7 @@ decompressors when faced with corrupted input.")
(modules '((guix build utils)))
(snippet
'(begin
;; Adjust for newer libc versions.
(substitute* (find-files "lib" "\\.c$")
(("#if defined _IO_ftrylockfile")
"#if defined _IO_EOF_SEEN"))
@ -682,9 +683,15 @@ decompressors when faced with corrupted input.")
"# define _IO_IN_BACKUP 0x100\n"
"#endif\n\n"
"/* BSD stdio derived implementations")))
#t))))
;; ... and for newer GCC with -fno-common.
(substitute* '("src/shar-opts.h"
"src/unshar-opts.h"
"src/uudecode-opts.h"
"src/uuencode-opts.h")
(("char const \\* const program_name" all)
(string-append "extern " all)))))))
(build-system gnu-build-system)
(inputs
(native-inputs
`(("which" ,which)))
(arguments
`(#:phases
@ -694,8 +701,7 @@ decompressors when faced with corrupted input.")
;; in fact test data
(lambda _
(substitute* "tests/shar-1.ok"
(((which "sh")) "/bin/sh"))
#t)))))
(((which "sh")) "/bin/sh")))))))
(home-page "https://www.gnu.org/software/sharutils/")
(synopsis "Archives in shell scripts, uuencode/uudecode")
(description

244
gnu/packages/cran.scm
View File

@ -132,14 +132,14 @@ files and provide more explicit control over line endings.")
(define-public r-cachem
(package
(name "r-cachem")
(version "1.0.4")
(version "1.0.5")
(source
(origin
(method url-fetch)
(uri (cran-uri "cachem" version))
(sha256
(base32
"1b1gk837rk9kbfq385ybrrk12ckxwvhjvf0z9635l3vw49wal4mh"))))
"1xigqfhkl4n768bjgn2bqvb9k70h1ibj4lv5vvpwsh1p6vw4mkw2"))))
(properties `((upstream-name . "cachem")))
(build-system r-build-system)
(propagated-inputs
@ -1207,13 +1207,13 @@ models.")
(define-public r-httpuv
(package
(name "r-httpuv")
(version "1.6.0")
(version "1.6.1")
(source (origin
(method url-fetch)
(uri (cran-uri "httpuv" version))
(sha256
(base32
"01i0x9234fsyinzfjyl9a807kyvb0nivr6jx9911fp0msdmy1vkm"))
"0rxy57zl8yb5amsn3pvikha04k2vk0py4gys09lc7wr3agamswva"))
;; Unvendor bundled libraries. As of 1.5.4 the vendored libuv
;; only contains fixes for building on Solaris.
(patches (search-patches "r-httpuv-1.5.5-unvendor-libuv.patch"))
@ -1356,13 +1356,13 @@ applications.")
(define-public r-htmltable
(package
(name "r-htmltable")
(version "2.1.0")
(version "2.2.1")
(source
(origin
(method url-fetch)
(uri (cran-uri "htmlTable" version))
(sha256
(base32 "1gzh0bdxi55p1ckxv4k0a41b1j0grwv2w3lkqz4c3gkw66dk6ja0"))))
(base32 "05zy9acx4s80dr880q69i4rcjqgmbz18gn7pyazda9gsnm981j96"))))
(properties `((upstream-name . "htmlTable")))
(build-system r-build-system)
(propagated-inputs
@ -1612,19 +1612,18 @@ jQuery.")
(define-public r-sass
(package
(name "r-sass")
(version "0.3.1")
(version "0.4.0")
(source
(origin
(method url-fetch)
(uri (cran-uri "sass" version))
(sha256
(base32
"1cxqwsdyz71mgflqqa65mfr161jlv8q9mshs1y19pxp6pz5wnv0s"))))
"0axw358bbk3vxsqg3wq0bz3xigasa6af8fxvi2ga8hli4cawl1kx"))))
(properties `((upstream-name . "sass")))
(build-system r-build-system)
(propagated-inputs
`(("r-digest" ,r-digest)
("r-fs" ,r-fs)
`(("r-fs" ,r-fs)
("r-htmltools" ,r-htmltools)
("r-r6" ,r-r6)
("r-rappdirs" ,r-rappdirs)
@ -1644,14 +1643,14 @@ language, which is stable, powerful, and CSS compatible.")
(define-public r-bslib
(package
(name "r-bslib")
(version "0.2.4")
(version "0.2.5.1")
(source
(origin
(method url-fetch)
(uri (cran-uri "bslib" version))
(sha256
(base32
"0qlpv2lqr3hjykszmnll7vi4zhmrz4rgcfl0sifxc6cha6jy2nac"))
"16f8d7lp2bdq1vipr60l75gibgdq08hmx212dhrh66nwf7qglhky"))
(snippet
'(for-each delete-file
'("inst/lib/bs-a11y-p/plugins/js/bootstrap-accessibility.min.js"
@ -1688,8 +1687,7 @@ language, which is stable, powerful, and CSS compatible.")
(string-append "--outfile=" target)))
sources targets)))))))))
(propagated-inputs
`(("r-digest" ,r-digest)
("r-htmltools" ,r-htmltools)
`(("r-htmltools" ,r-htmltools)
("r-jquerylib" ,r-jquerylib)
("r-jsonlite" ,r-jsonlite)
("r-magrittr" ,r-magrittr)
@ -2653,13 +2651,13 @@ XML. To learn more about the Abbyy OCR API, see @url{http://ocrsdk.com/}.")
(define-public r-colorspace
(package
(name "r-colorspace")
(version "2.0-0")
(version "2.0-1")
(source
(origin
(method url-fetch)
(uri (cran-uri "colorspace" version))
(sha256
(base32 "13h1hara0s6xn16bgkrbd0flszah1yiylwfwxwn2inqqk6pm6sjf"))))
(base32 "0pj2hji71c18kwwk1pp2fj6s4jl7lm2yn47ls0dqsrsqc3ixsbzq"))))
(build-system r-build-system)
(native-inputs
`(("r-knitr" ,r-knitr)))
@ -3030,14 +3028,14 @@ on (non-orthogonal) variable vectors in scatterplots and biplots.")
(define-public r-shape
(package
(name "r-shape")
(version "1.4.5")
(version "1.4.6")
(source
(origin
(method url-fetch)
(uri (cran-uri "shape" version))
(sha256
(base32
"17qqhjyfhxv9la07ykaslb50c8g4d0cgfypx4y91h9i2yjw7jjh9"))))
"0yqbrrx2ywmfl99s6d1n6jblc63k1mxbiqyv8y0kq8jws1g3w45r"))))
(build-system r-build-system)
(home-page "https://cran.r-project.org/web/packages/shape")
(synopsis "Functions for plotting graphical shapes")
@ -3149,14 +3147,14 @@ rows, dropping names) to see if the modified versions are identical.")
(define-public r-dendextend
(package
(name "r-dendextend")
(version "1.14.0")
(version "1.15.1")
(source
(origin
(method url-fetch)
(uri (cran-uri "dendextend" version))
(sha256
(base32
"0n3qg76apgbqbvxv2yp5qwpy6nx03xmmc9mdfyq4dqblqhdld29p"))))
"0zf4w4rc2jj30i3x0m0gnkwidfmn3cvz1wirp20amq4v3n9420md"))))
(build-system r-build-system)
(propagated-inputs
`(("r-ggplot2" ,r-ggplot2)
@ -3546,14 +3544,14 @@ quantile mixture from L-moments and trimmed L-moments.")
(define-public r-distillery
(package
(name "r-distillery")
(version "1.2")
(version "1.2-1")
(source
(origin
(method url-fetch)
(uri (cran-uri "distillery" version))
(sha256
(base32
"10nhh9p0hp294pp4aav0y0zsmir2qbn05sf3k52rmzmm36q2kc8y"))))
"1ymmxyamkq0zbz2m4gllln1ihks2hcib6gs0mls92as79srz122b"))))
(build-system r-build-system)
(home-page "https://ral.ucar.edu/staff/ericg/")
(synopsis "Functions for confidence intervals and object information")
@ -3655,13 +3653,13 @@ by Li, Brown, Huang, and Bickel")
(define-public r-inline
(package
(name "r-inline")
(version "0.3.17")
(version "0.3.18")
(source (origin
(method url-fetch)
(uri (cran-uri "inline" version))
(sha256
(base32
"1wslsn60q959yrr27cwanba43qlpfaxzdli46i9dc26lxfr5fa3r"))))
"0fpcfwbhfg1lhkqc0gdqv2sq64r3ljld7piy34vv0nimq30xi2fc"))))
(build-system r-build-system)
(home-page "https://cran.r-project.org/web/packages/inline")
(synopsis "Functions to inline C, C++, Fortran function calls from R")
@ -4553,15 +4551,17 @@ from the data points.")
(define-public r-corrplot
(package
(name "r-corrplot")
(version "0.84")
(version "0.88")
(source
(origin
(method url-fetch)
(uri (cran-uri "corrplot" version))
(sha256
(base32
"1k03qd8db7pwg1v318xapx5mpiypiz2n07qr19c4b45diri5xkhd"))))
"1s09isdpx2i4p6jny50lck37bsqd5dfxdi3yn8xq8280x8l4vldz"))))
(build-system r-build-system)
(native-inputs
`(("r-knitr" ,r-knitr)))
(home-page "https://github.com/taiyun/corrplot")
(synopsis "Visualization of a correlation matrix")
(description
@ -5404,13 +5404,13 @@ iVAT).")
(define-public r-xfun
(package
(name "r-xfun")
(version "0.22")
(version "0.23")
(source
(origin
(method url-fetch)
(uri (cran-uri "xfun" version))
(sha256
(base32 "0ix3p0iw2c60whn5mvsflh0vhm4yixhw4s9d9v4023qhp077nw9y"))))
(base32 "0dqfhpnj9yxk42mx96dvhv2qs35in36mk0qls3dg7rx7bvl2i1gc"))))
(build-system r-build-system)
;; knitr itself depends on xfun
#;
@ -5507,14 +5507,14 @@ to variables on the left-hand side of the assignment.")
(define-public r-pillar
(package
(name "r-pillar")
(version "1.6.0")
(version "1.6.1")
(source
(origin
(method url-fetch)
(uri (cran-uri "pillar" version))
(sha256
(base32
"1pfa6q63ji6mqsvkbpjvvlaivw66nyinwbk82jh0a0c6dy41w47i"))))
"0akjk2k98zy4lyvw5ji1qlrrwzx43vad8z042jydn0f3i1hvkdq8"))))
(build-system r-build-system)
(propagated-inputs
`(("r-cli" ,r-cli)
@ -6083,14 +6083,14 @@ applied econometric analysis.")
(define-public r-cubature
(package
(name "r-cubature")
(version "2.0.4.1")
(version "2.0.4.2")
(source
(origin
(method url-fetch)
(uri (cran-uri "cubature" version))
(sha256
(base32
"006la36gxdikvmdnq4ny7ik7r30id4z3b3fqsl57dpqwkpsbsgrq"))))
"0kk9lw3s66h0sayza3in8rdj7bmgqn4v5lfckhslarpvj2fxsnv0"))))
(build-system r-build-system)
(propagated-inputs
`(("r-rcpp" ,r-rcpp)))
@ -6851,14 +6851,14 @@ evaluated by the @dfn{Akaike Information Criterion} (AIC).")
(define-public r-arules
(package
(name "r-arules")
(version "1.6-7")
(version "1.6-8")
(source
(origin
(method url-fetch)
(uri (cran-uri "arules" version))
(sha256
(base32
"0m80kndfbannw8h53nqdd5wl8h33q2z259aa1cp1nwadaxf9fc1q"))))
"1gy6wrys1qqik65dyr325hdbfmd3fx9a2lzdnrr29g751hprjx2l"))))
(build-system r-build-system)
(propagated-inputs
`(("r-matrix" ,r-matrix)))
@ -8249,14 +8249,14 @@ and tests them.")
(define-public r-overlap
(package
(name "r-overlap")
(version "0.3.3")
(version "0.3.4")
(source
(origin
(method url-fetch)
(uri (cran-uri "overlap" version))
(sha256
(base32
"17cnr4qin1qy0df4k491267acna12gpbbps6w3gi8nccqxfrb1pd"))))
"1arxprhz035ab78ks88n6scwnlwmnb97mlac5gsx90ipb6gkgcyk"))))
(build-system r-build-system)
(home-page "https://cran.r-project.org/web/packages/overlap/")
(synopsis "Estimates of coefficient of overlapping for animal activity patterns")
@ -8316,14 +8316,14 @@ other add-on packages.")
(define-public r-insight
(package
(name "r-insight")
(version "0.13.2")
(version "0.14.0")
(source
(origin
(method url-fetch)
(uri (cran-uri "insight" version))
(sha256
(base32
"03b7kd17h25mi1si40ibcp3jpasyqpj51mr8js0ywywyfw7909j1"))))
"1zkifkj2qg9vdv26z4qvi81qv9l1cqyrq3ihdpacpax80plkgdln"))))
(build-system r-build-system)
(native-inputs
`(("r-knitr" ,r-knitr)))
@ -8344,14 +8344,14 @@ information are missing.")
(define-public r-sjlabelled
(package
(name "r-sjlabelled")
(version "1.1.7")
(version "1.1.8")
(source
(origin
(method url-fetch)
(uri (cran-uri "sjlabelled" version))
(sha256
(base32
"0d3fsjd2gxchv8mlx9l5pf8xvkmx4pgvizam83f3qss07bmvpzwg"))))
"17gskxr43rgbg7syla3b78g2qgksq2kj07iad4139xycqxblxya0"))))
(build-system r-build-system)
(propagated-inputs
`(("r-insight" ,r-insight)))
@ -8370,14 +8370,14 @@ vice versa), or to deal with multiple declared missing values.")
(define-public r-sjmisc
(package
(name "r-sjmisc")
(version "2.8.6")
(version "2.8.7")
(source
(origin
(method url-fetch)
(uri (cran-uri "sjmisc" version))
(sha256
(base32
"1nfrkv5jfnwb85blpv7yk7xac1myzi2c30bqcf7xicniknkjwycr"))))
"17hcjb2j690qi2zrkwc14sr1wsid6dy6v7bfsf0bc94ql812k8g2"))))
(build-system r-build-system)
(propagated-inputs
`(("r-dplyr" ,r-dplyr)
@ -8452,14 +8452,14 @@ functions.")
(define-public r-flextable
(package
(name "r-flextable")
(version "0.6.5")
(version "0.6.6")
(source
(origin
(method url-fetch)
(uri (cran-uri "flextable" version))
(sha256
(base32
"1njk4kc19r2n2awxjfz4svf1pivxhn12r9dqsdvbdpbfl5wmvxzl"))))
"1f4yb2sgy6m0y2s5jcxa3vpbizyc72qj1n8i3vi2a4pjhnv3bn2g"))))
(build-system r-build-system)
(propagated-inputs
`(("r-base64enc" ,r-base64enc)
@ -10188,14 +10188,14 @@ observation.")
(define-public r-sandwich
(package
(name "r-sandwich")
(version "3.0-0")
(version "3.0-1")
(source
(origin
(method url-fetch)
(uri (cran-uri "sandwich" version))
(sha256
(base32
"0afm6snak7r11dxyl3qirqdjah6d9pdv4afmxwam1nq9bqxyb3w2"))))
"12aa5083k3sfrfq1jy3l94wffss9h0rga8j71jy3n8pkhiq4nn7n"))))
(build-system r-build-system)
(propagated-inputs
`(("r-zoo" ,r-zoo)))
@ -10524,14 +10524,14 @@ ROPE percentage and pd).")
(define-public r-performance
(package
(name "r-performance")
(version "0.7.1")
(version "0.7.2")
(source
(origin
(method url-fetch)
(uri (cran-uri "performance" version))
(sha256
(base32
"1kf8z7lrjv1bg8mqb7sq4651k2xg3d02azq7gr0jc4c52cr2yaqm"))))
"1yfbf7cp4nqwh5mcnm008vw3dapr5v3yj4lq81pvlwblp9hg7y94"))))
(build-system r-build-system)
(propagated-inputs
`(("r-bayestestr" ,r-bayestestr)
@ -11376,14 +11376,14 @@ package provides a minimal R interface by relying on the Rcpp package.")
(define-public r-rcppparallel
(package
(name "r-rcppparallel")
(version "5.1.3")
(version "5.1.4")
(source
(origin
(method url-fetch)
(uri (cran-uri "RcppParallel" version))
(sha256
(base32
"1c3y80m695xqhs4ynwig2bsl045nryi9ww0a1s2rb3gsjbs5vx7v"))))
"10pa9vaz7p4m6hjca2cpy6vj7rvgly4zv0q1g2xfsmcchyk4bdbn"))))
(properties `((upstream-name . "RcppParallel")))
(build-system r-build-system)
(home-page "https://rcppcore.github.io/RcppParallel/")
@ -11426,13 +11426,13 @@ netCDF files.")
(define-public r-biocmanager
(package
(name "r-biocmanager")
(version "1.30.12")
(version "1.30.15")
(source
(origin
(method url-fetch)
(uri (cran-uri "BiocManager" version))
(sha256
(base32 "0c2anza01pc36manj3cvycbq8p57qpq18dsimk3y3gpks70hhqf3"))))
(base32 "1mbz04ja4dsp8gs74ybmba7kcn9dkc5bvdqnlgn1wwq4y5xizk7m"))))
(properties `((upstream-name . "BiocManager")))
(build-system r-build-system)
(native-inputs
@ -11668,14 +11668,14 @@ circular variables).")
(define-public r-ouch
(package
(name "r-ouch")
(version "2.16")
(version "2.17")
(source
(origin
(method url-fetch)
(uri (cran-uri "ouch" version))
(sha256
(base32
"17y7qksp9v4jkr4h1psg14y3ridwhi4mgkfm0a02paabhwjc8d96"))))
"1a7r24j59xz3lxa5wc694j6b80j8m5l86zd1sw9pvs66l8gd98kf"))))
(build-system r-build-system)
(propagated-inputs `(("r-subplex" ,r-subplex)))
(home-page "https://kingaa.github.io/ouch/")
@ -11688,14 +11688,14 @@ for evolution along a phylogenetic tree.")
(define-public r-fmsb
(package
(name "r-fmsb")
(version "0.7.0")
(version "0.7.1")
(source
(origin
(method url-fetch)
(uri (cran-uri "fmsb" version))
(sha256
(base32
"0x1wkzfdvv4s5xmr0whcwjz4aac71gacwymj2c3mzj2bbswwlw45"))))
"09pq7p7i6vkq9av7l7x9hicl9sqh7xn96f9pac117hy6z852jvi2"))))
(build-system r-build-system)
(home-page "http://minato.sip21c.org/msb/")
(synopsis "Functions for medical statistics book with demographic data")
@ -11799,20 +11799,21 @@ after it was discovered that the NSA had backdoored Dual EC DRBG.")
(define-public r-softimpute
(package
(name "r-softimpute")
(version "1.4")
(version "1.4-1")
(source
(origin
(method url-fetch)
(uri (cran-uri "softImpute" version))
(sha256
(base32
"07cxbzkl08q58m1455i139952rmryjlic4s2f2hscl5zxxmfdxcq"))))
"1v2a4d688ij5zcvkzpra9yx40xckdfnllnfnyq2450zf3n1kjk7a"))))
(properties `((upstream-name . "softImpute")))
(build-system r-build-system)
(propagated-inputs
`(("r-matrix" ,r-matrix)))
(native-inputs
`(("gfortran" ,gfortran)))
`(("gfortran" ,gfortran)
("r-knitr" ,r-knitr)))
(home-page "https://cran.r-project.org/web/packages/softImpute")
(synopsis "Matrix completion via iterative soft-thresholded SVD")
(description
@ -12387,14 +12388,14 @@ Touzet and Varre (2007).")
(define-public r-rnifti
(package
(name "r-rnifti")
(version "1.3.0")
(version "1.3.1")
(source
(origin
(method url-fetch)
(uri (cran-uri "RNifti" version))
(sha256
(base32
"1zr0q79id62csmc30c7gs4hbmavk8n6p50a981sfz51dczhjj5ny"))))
"0bz10ar6hrgkvlzh9j2im24kwi3s2nnax668z40a2wj6s5xghqlr"))))
(properties `((upstream-name . "RNifti")))
(build-system r-build-system)
(propagated-inputs `(("r-rcpp" ,r-rcpp)))
@ -13361,17 +13362,18 @@ Differences with other sparse matrix packages are:
(define-public r-fields
(package
(name "r-fields")
(version "11.6")
(version "12.3")
(source
(origin
(method url-fetch)
(uri (cran-uri "fields" version))
(sha256
(base32 "1nsrgkw9w3mwd3sajyzc06h49gg1s0bkq6xh5b66h1n4jbcx2046"))))
(base32 "17dsnims2bjcpqsxcv63vkm8rjdmcmq10m00x15yvr4kk0p0aznr"))))
(build-system r-build-system)
(propagated-inputs
`(("r-maps" ,r-maps)
("r-spam" ,r-spam)))
("r-spam" ,r-spam)
("r-viridis" ,r-viridis)))
(native-inputs
`(("gfortran" ,gfortran)))
(home-page "https://www.image.ucar.edu/fields")
@ -14825,14 +14827,14 @@ running IRkernel session.")
(define-public r-irkernel
(package
(name "r-irkernel")
(version "1.1.1")
(version "1.2")
(source
(origin
(method url-fetch)
(uri (cran-uri "IRkernel" version))
(sha256
(base32
"1y06v3difaiihxfm2abm88nnjzvkla4p346cm1nxmga4iwb2k8gm"))))
"14gz3790iv6gg6yi9wslk1yn0jq57yvhxgm840qh818xfkdxpd2z"))))
(properties `((upstream-name . "IRkernel")))
(build-system r-build-system)
(arguments
@ -14923,14 +14925,14 @@ plotting functions are available for analyzing clustering results.")
(define-public r-valr
(package
(name "r-valr")
(version "0.6.2")
(version "0.6.3")
(source
(origin
(method url-fetch)
(uri (cran-uri "valr" version))
(sha256
(base32
"1vbp89zfylgih5acvw7lcx3a0dbbd7dhq7yhywr7kq02737qykdx"))))
"1lzdlw0mw06rymyjzwf4i8rx1z6zxpwxxqfsc9ggqlnhq6bfhy93"))))
(build-system r-build-system)
(propagated-inputs
`(("r-broom" ,r-broom)
@ -15567,13 +15569,13 @@ also provided to illustrate various methods.")
(define-public r-pegas
(package
(name "r-pegas")
(version "1.0")
(version "1.0-1")
(source
(origin
(method url-fetch)
(uri (cran-uri "pegas" version))
(sha256
(base32 "0nbdcrpha2r50gp0nymr4lqmqhd4237rzz6ank8cqdhl7lcsz69v"))))
(base32 "0ykx84p7c8cad5d1mj8cm1d5cz2paacdjx4ll4qzmq827lcyycz1"))))
(build-system r-build-system)
(propagated-inputs
`(("r-adegenet" ,r-adegenet)
@ -16309,20 +16311,52 @@ The extrafont package makes both of these things easier.")
the XKCD web comic.")
(license license:gpl3)))
(define-public r-babelgene
(package
(name "r-babelgene")
(version "21.4")
(source
(origin
(method url-fetch)
(uri (cran-uri "babelgene" version))
(sha256
(base32
"1gk5pm3b3shr1id66a11ywc1b823gbj8yckg24szzfhj8g4ixyf0"))))
(properties `((upstream-name . "babelgene")))
(build-system r-build-system)
(propagated-inputs
`(("r-dplyr" ,r-dplyr)
("r-rlang" ,r-rlang)))
(native-inputs
`(("r-knitr" ,r-knitr)))
(home-page
"https://igordot.github.io/babelgene/")
(synopsis "Gene orthologs for model organisms in a Tidy data format")
(description
"Genomic analysis of model organisms often requires the use of databases
based on human data or making comparisons to patient-derived resources. This
requires converting genes between human and non-human analogues. The
babelgene R package provides predicted gene orthologs/homologs for frequently
studied model organisms in an R-friendly tidy/long format. The package
integrates orthology assertion predictions sourced from multiple databases as
compiled by the HGNC Comparison of Orthology Predictions (HCOP).")
(license license:expat)))
(define-public r-msigdbr
(package
(name "r-msigdbr")
(version "7.2.1")
(version "7.4.1")
(source
(origin
(method url-fetch)
(uri (cran-uri "msigdbr" version))
(sha256
(base32
"1rc2p9vw57pn4prmfgay4w18qd53ggq7wxfsi9kp7w25ciip1dq1"))))
"103m52av68pkjfh8f81qh6j3cs1mj1lg831ciwybr34cax767jr1"))))
(build-system r-build-system)
(propagated-inputs
`(("r-dplyr" ,r-dplyr)
`(("r-babelgene" ,r-babelgene)
("r-dplyr" ,r-dplyr)
("r-magrittr" ,r-magrittr)
("r-rlang" ,r-rlang)
("r-tibble" ,r-tibble)
@ -16393,14 +16427,14 @@ package.")
(define-public r-ggplotify
(package
(name "r-ggplotify")
(version "0.0.6")
(version "0.0.7")
(source
(origin
(method url-fetch)
(uri (cran-uri "ggplotify" version))
(sha256
(base32
"1xs9l05hzlrgcr0p0xah2b05fbm64ma3vfwzn4p8q6nj7xch1dbd"))))
"1vx2fg91ivssrxr4kzs9737hr8bsfs0q5pvd7lck7ffjpkjbclhh"))))
(build-system r-build-system)
(propagated-inputs
`(("r-ggplot2" ,r-ggplot2)
@ -17610,14 +17644,14 @@ feature effects. Key functions are:
(define-public r-ibreakdown
(package
(name "r-ibreakdown")
(version "1.3.1")
(version "2.0.1")
(source
(origin
(method url-fetch)
(uri (cran-uri "iBreakDown" version))
(sha256
(base32
"1bfl5bh0x6z5a0cmdmx68sap9zdxa3kwdnyk57csxapc362yz108"))))
"00jzrndb3ahsv6ihp2pvs732n9cc944m83vdinrl9v1pxd82prkh"))))
(properties `((upstream-name . "iBreakDown")))
(build-system r-build-system)
(propagated-inputs `(("r-ggplot2" ,r-ggplot2)))
@ -18274,14 +18308,14 @@ both R code and compiled C/C++/FORTRAN code.")
(define-public r-systemfonts
(package
(name "r-systemfonts")
(version "1.0.1")
(version "1.0.2")
(source
(origin
(method url-fetch)
(uri (cran-uri "systemfonts" version))
(sha256
(base32
"15x7qx8iigkybgz6b6s66i3mh75vgynzpd50nw05wflfwzcv87a0"))))
"1a9nzd4nqawr6ni3mw7xc2yq77fb2f91aarnc906mq26510rdb11"))))
(properties `((upstream-name . "systemfonts")))
(build-system r-build-system)
(propagated-inputs
@ -18332,14 +18366,14 @@ emphasize hidden group structures in networks or focus on specific nodes.")
(define-public r-terra
(package
(name "r-terra")
(version "1.2-5")
(version "1.2-10")
(source
(origin
(method url-fetch)
(uri (cran-uri "terra" version))
(sha256
(base32
"0wmrb75y271xdx781xql0dx702ghnj4d2i2zr9375kqjbwgx9nad"))))
"0k2rwmfc07c9ipvd15mrfgw7yx61alf0zmyskkgrb0d1rf66n3id"))))
(properties `((upstream-name . "terra")))
(build-system r-build-system)
(inputs
@ -18711,18 +18745,20 @@ as a boxplot function.")
(define-public r-bio3d
(package
(name "r-bio3d")
(version "2.4-1")
(version "2.4-2")
(source
(origin
(method url-fetch)
(uri (cran-uri "bio3d" version))
(sha256
(base32
"07rw6c2d95gb5myxh31727j0jrchd0xisa3x89jjmf4zzs3vv7v7"))))
"1jvcmpzi9knhxq5jsbhg8slm8hnlx2y8smmwwrbnbyd0rmk5fhci"))))
(properties `((upstream-name . "bio3d")))
(build-system r-build-system)
(inputs `(("zlib" ,zlib)))
(propagated-inputs `(("r-rcpp" ,r-rcpp)))
(native-inputs
`(("r-knitr" ,r-knitr)))
(home-page "http://thegrantlab.org/bio3d/")
(synopsis "Biological structure analysis")
(description
@ -21133,14 +21169,14 @@ it may be seen by an animal with less acute vision.")
(define-public r-caret
(package
(name "r-caret")
(version "6.0-86")
(version "6.0-88")
(source
(origin
(method url-fetch)
(uri (cran-uri "caret" version))
(sha256
(base32
"0dyflixdw98lvk2x3w136sw24ij0fwx5c7l709dmqr5z7xy1qjns"))))
"174cyyhsw8s6jp80spmi40qq9sw5ys0r58v4ikp53kiw1dhd247s"))))
(build-system r-build-system)
(propagated-inputs
`(("r-foreach" ,r-foreach)
@ -22116,14 +22152,14 @@ programming} (OOP) using R Reference Class.")
(define-public r-proxyc
(package
(name "r-proxyc")
(version "0.1.5")
(version "0.2.0")
(source
(origin
(method url-fetch)
(uri (cran-uri "proxyC" version))
(sha256
(base32
"159bc42x4shm6n3rh9fc8ziv3ivq0ipmpbasrh279hhn1prc8gg6"))))
"08h79wzk8hp5yn3sxy1jcd1yljj25s7fac96l2jqavwd026y6j3l"))))
(properties `((upstream-name . "proxyC")))
(build-system r-build-system)
(propagated-inputs
@ -23718,13 +23754,13 @@ rendered as text, axis labels, etc. throughout R's plotting system.")
(define-public r-oai
(package
(name "r-oai")
(version "0.3.0")
(version "0.3.2")
(source (origin
(method url-fetch)
(uri (cran-uri "oai" version))
(sha256
(base32
"1ipw9bq3ra66d1ddj1rylyyd20mlcb2i7phzhywra53s1fdifq1g"))))
"1zcbcxhw692s0y6izvwazyzhgx0iwsxsbcan2nk0mb7n11p7bypb"))))
(build-system r-build-system)
(propagated-inputs
`(("r-xml2" ,r-xml2)
@ -23732,6 +23768,8 @@ rendered as text, axis labels, etc. throughout R's plotting system.")
("r-plyr" ,r-plyr)
("r-stringr" ,r-stringr)
("r-tibble" ,r-tibble)))
(native-inputs
`(("r-knitr" ,r-knitr)))
(home-page "https://github.com/ropensci/oai/")
(synopsis "General purpose OAI-PMH services client")
(description "@code{oai} provides a general purpose client to work with
@ -25225,14 +25263,14 @@ aggregation for comparing different implementations in order to provide a
(define-public r-rfast
(package
(name "r-rfast")
(version "2.0.1")
(version "2.0.3")
(source
(origin
(method url-fetch)
(uri (cran-uri "Rfast" version))
(sha256
(base32
"1cq3mcg49hsvqhwn6f4dgsx7f8ma4qnwr5n6s7m22qy57rg31958"))))
"1bmhmli6q4kg8321595k0yy91w9cblk14s6qbc9wf8f05108rg15"))))
(properties `((upstream-name . "Rfast")))
(build-system r-build-system)
(propagated-inputs
@ -25251,14 +25289,14 @@ Poisson), are some of the many fast functions.")
(define-public r-clusterr
(package
(name "r-clusterr")
(version "1.2.3")
(version "1.2.4")
(source
(origin
(method url-fetch)
(uri (cran-uri "ClusterR" version))
(sha256
(base32
"19xphxcpia7pdshn09yd328q3rbr6frz5574688ja1z7g5hsa2p7"))))
"01vgr1mpm7l1lyhril5hm1l72aicqc4iwb0b15ypijb6hwkv7g47"))))
(properties `((upstream-name . "ClusterR")))
(build-system r-build-system)
(propagated-inputs
@ -25933,14 +25971,14 @@ sliding windows are to be created.")
(define-public r-rsample
(package
(name "r-rsample")
(version "0.0.9")
(version "0.1.0")
(source
(origin
(method url-fetch)
(uri (cran-uri "rsample" version))
(sha256
(base32
"03qwsvylgmj2a2h764mzy0x57pgzmvjvl0ypmbn4lcf912bvrd2c"))))
"00w8r0p499fm8cyw297gznr83mbgy9a3znzpbgj0zq9dry1a266b"))))
(properties `((upstream-name . "rsample")))
(build-system r-build-system)
(propagated-inputs
@ -25948,6 +25986,7 @@ sliding windows are to be created.")
("r-ellipsis" ,r-ellipsis)
("r-furrr" ,r-furrr)
("r-generics" ,r-generics)
("r-lifecycle" ,r-lifecycle)
("r-purrr" ,r-purrr)
("r-rlang" ,r-rlang)
("r-slider" ,r-slider)
@ -26728,22 +26767,21 @@ data to rasters. It speeds up plotting of data with millions of points.")
(define-public r-seuratobject
(package
(name "r-seuratobject")
(version "4.0.0")
(version "4.0.1")
(source
(origin
(method url-fetch)
(uri (cran-uri "SeuratObject" version))
(sha256
(base32
"03k27z7g76wy7mfja2cpxq183xk0906k9gxb2j6p1zw341gv4gii"))))
"0g32ivx7g64a1sbxc5ym1832wh14w22z025lzyasn8yn2769c1f9"))))
(properties `((upstream-name . "SeuratObject")))
(build-system r-build-system)
(propagated-inputs
`(("r-matrix" ,r-matrix)
("r-rcpp" ,r-rcpp)
("r-rcppeigen" ,r-rcppeigen)
("r-rlang" ,r-rlang)
("r-sctransform" ,r-sctransform)))
("r-rlang" ,r-rlang)))
(home-page "https://satijalab.org/seurat")
(synopsis "Data structures for single cell data")
(description
@ -27543,14 +27581,14 @@ clusterings as resolution increases.")
(define-public r-textshaping
(package
(name "r-textshaping")
(version "0.3.3")
(version "0.3.4")
(source
(origin
(method url-fetch)
(uri (cran-uri "textshaping" version))
(sha256
(base32
"0yl3cv6r8k27h4lzbrsikjydhz94skdjmxx4zqzihvb7h3jfnlpn"))))
"1kr6rh5zb5jp3acsfah6bzwkypzl5ixjzrs1xpdcslq14n82j4s0"))))
(properties `((upstream-name . "textshaping")))
(build-system r-build-system)
(inputs
@ -28110,14 +28148,14 @@ data you need the @code{pdftools} package.")
(define-public r-pdftools
(package
(name "r-pdftools")
(version "2.3.1")
(version "3.0.1")
(source
(origin
(method url-fetch)
(uri (cran-uri "pdftools" version))
(sha256
(base32
"01i5g2mjkshis0zlm7lrvi7kkzl4dn3if1hzwkgzf9n2mi33ndsx"))))
"1dcbs5n5y8zi7bbyx491m9ik8kkmjr301x8ms85fmwdfb5a97m8k"))))
(properties `((upstream-name . "pdftools")))
(build-system r-build-system)
(inputs

33
gnu/packages/databases.scm
View File

@ -10,7 +10,7 @@
;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr>
;;; Copyright © 2016 Hartmut Goebel <h.goebel@crazy-compilers.com>
;;; Copyright © 2016 Christopher Allan Webber <cwebber@dustycloud.org>
;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020, 2021 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2017 Nikita <nikita@n0.is>
;;; Copyright © 2016, 2017, 2018 Roel Janssen <roel@gnu.org>
;;; Copyright © 2016 David Craven <david@craven.ch>
@ -1029,6 +1029,7 @@ and high-availability (HA).")
(define-public postgresql-13
(package
(name "postgresql")
(replacement postgresql-13.3)
(version "13.2")
(source (origin
(method url-fetch)
@ -1083,42 +1084,56 @@ TIMESTAMP. It also supports storage of binary large objects, including
pictures, sounds, or video.")
(license (license:x11-style "file://COPYRIGHT"))))
(define-public postgresql-13.3
(package
(inherit postgresql-13)
(name "postgresql")
(version "13.3")
(source (origin
(method url-fetch)
(uri (string-append "https://ftp.postgresql.org/pub/source/v"
version "/postgresql-" version ".tar.bz2"))
(sha256
(base32
"18dliq7h2l8irffhyyhdmfwx3si515q6gds3cxdjb9n7m17lbn9w"))
(patches (search-patches "postgresql-disable-resolve_symlinks.patch"))))))
(define-public postgresql-11
(package
(inherit postgresql-13)
(name "postgresql")
(version "11.11")
(version "11.12")
(source (origin
(inherit (package-source postgresql-13))
(uri (string-append "https://ftp.postgresql.org/pub/source/v"
version "/postgresql-" version ".tar.bz2"))
(sha256
(base32
"0v0qk298nxmpzpgsxcsxma328hdkyzd7fwjs0zsn6zavl5zpnq20"))))))
"016bacpmqxc676ipzc1l8zv1jj44mjz7dv7jhqazg3ibdfqxiyc7"))))))
(define-public postgresql-10
(package
(inherit postgresql-11)
(version "10.16")
(version "10.17")
(source (origin
(inherit (package-source postgresql-11))
(uri (string-append "https://ftp.postgresql.org/pub/source/v"
version "/postgresql-" version ".tar.bz2"))
(sha256
(base32
"1cvv8qw0gkkczqhiwx6ns7w88dwkvdz4cvb2d4ff14363f5p2p53"))))))
"0v5jahkqm6gkq67s4bac3h7297bscn2ab6y128idi73cc1qq1wjs"))))))
(define-public postgresql-9.6
(package
(inherit postgresql-10)
(version "9.6.21")
(version "9.6.22")
(source (origin
(inherit (package-source postgresql-10))
(uri (string-append "https://ftp.postgresql.org/pub/source/v"
version "/postgresql-" version ".tar.bz2"))
(sha256
(base32
"0d0ngpadf1i7c0i2psaxcbmiwx8334ibcsn283n9fp4853pyl3wk"))))))
"0c19kzrj5ib5ygmavf5d6qvxdwrxzzz6jz1r2dl5b815208cscix"))))))
(define-public postgresql postgresql-13)
@ -1821,7 +1836,7 @@ columns, primary keys, unique constraints and relationships.")
(define-public perl-dbd-pg
(package
(name "perl-dbd-pg")
(version "3.7.4")
(version "3.14.2")
(source
(origin
(method url-fetch)
@ -1829,7 +1844,7 @@ columns, primary keys, unique constraints and relationships.")
"DBD-Pg-" version ".tar.gz"))
(sha256
(base32
"0gkqlvbmzbdm0g4k328nlkjdg3wrjm5i2n9jxj1i8sqxkm79rylz"))))
"0kcfqq7g3832wiix0sbyvlc885qghjrp2ah3akn7h2lnb22fjwy9"))))
(build-system perl-build-system)
(native-inputs
`(("perl-dbi" ,perl-dbi)))

1
gnu/packages/disk.scm
View File

@ -925,6 +925,7 @@ to create devices with respective mappings for the ATARAID sets discovered.")
(uri (string-append "https://github.com/storaged-project/"
"libblockdev/releases/download/"
version "-1/libblockdev-" version ".tar.gz"))
(patches (search-patches "libblockdev-glib-compat.patch"))
(sha256
(base32
"0s0nazkpzpn4an00qghjkk9n7gdm5a8dqfr5hfnlk5mk5lma8njm"))))

11
gnu/packages/dlang.scm
View File

@ -240,6 +240,17 @@ bootstrapping more recent compilers written in D.")
(delete-file "tests/compilable/ctfe_math.d")
(delete-file "tests/debuginfo/nested_gdb.d")
(delete-file "tests/debuginfo/classtypes_gdb.d")
;; for the following tests ptrace fails with EPERM
;; (see <https://issues.guix.gnu.org/48541>):
(delete-file "tests/d2/dmd-testsuite/runnable/b18504.d")
(delete-file "tests/d2/dmd-testsuite/runnable/gdb14225.d")
(delete-file "tests/d2/dmd-testsuite/runnable/gdb14276.d")
(delete-file "tests/d2/dmd-testsuite/runnable/gdb14313.d")
(delete-file "tests/d2/dmd-testsuite/runnable/gdb14330.d")
(delete-file "tests/d2/dmd-testsuite/runnable/gdb1.d")
(delete-file "tests/d2/dmd-testsuite/runnable/gdb4149.d")
(delete-file "tests/d2/dmd-testsuite/runnable/gdb4181.d")
(delete-file "tests/d2/dmd-testsuite/runnable/gdb15729.sh")
;; the following tests plugins we don't have.
(delete-file "tests/plugins/addFuncEntryCall/testPlugin.d")
;; the following tests requires AVX instruction set in the CPU.

4
gnu/packages/dns.scm
View File

@ -320,7 +320,7 @@ and BOOTP/TFTP for network booting of diskless machines.")
;; When updating, check whether isc-dhcp's bundled copy should be as well.
;; The BIND release notes are available here:
;; https://www.isc.org/bind/
(version "9.16.15")
(version "9.16.16")
(source (origin
(method url-fetch)
(uri (string-append
@ -328,7 +328,7 @@ and BOOTP/TFTP for network booting of diskless machines.")
"/bind-" version ".tar.xz"))
(sha256
(base32
"0fbqisrh84f8wszm94cqp7v8q9r7pql3qyzbay7vz9vqv0rg9dlq"))))
"0yqxfq7qc26x7qhk0nkp8h7x9jggzaafm712bvfffy7qml13k4bc"))))
(build-system gnu-build-system)
(outputs `("out" "utils"))
(inputs

34
gnu/packages/documentation.scm
View File

@ -10,6 +10,7 @@
;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2020 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2020, 2021 Michael Rohleder <mike@rohleder.de>
;;; Copyright © 2021 Marius Bakke <marius@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -34,6 +35,7 @@
#:use-module (guix build-system gnu)
#:use-module (guix build-system cmake)
#:use-module (guix build-system qt)
#:use-module (guix deprecation)
#:use-module (gnu packages)
#:use-module (gnu packages autotools)
#:use-module (gnu packages backup)
@ -101,16 +103,16 @@ pages in HTML.")
(define-public asciidoc
(package
(name "asciidoc")
(version "8.6.10")
(version "9.1.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/asciidoc-py/asciidoc-py2")
(url "https://github.com/asciidoc/asciidoc-py")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1hrqkgjmp1gq3f9rkbr8l0y62fzvwb9n8ys35s25bg2ld04y4g4y"))))
"1clf1axkns23wfmh48xfspzsnw04pjh4mq1pshpzvj0cwxhz0yaq"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; no 'check' target
@ -159,7 +161,8 @@ release/xsl/current")
#t)))))
(native-inputs
`(("autoconf" ,autoconf)))
(inputs `(("python" ,python-2)
(inputs
`(("python" ,python)
("docbook-xml" ,docbook-xml)
("docbook-xsl" ,docbook-xsl)
("libxml2" ,libxml2)
@ -177,28 +180,7 @@ the backend output markups (which can be almost any type of SGML/XML
markup) can be customized and extended by the user.")
(license gpl2+)))
(define-public asciidoc-py3
(package (inherit asciidoc)
(name "asciidoc-py3")
(version "9.0.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/asciidoc/asciidoc-py3/")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1xpws5lgzaqwgbc7sq6bp8adjxy8qb4qb9nj4vvpxamjgx3pny54"))))
(build-system gnu-build-system)
(native-inputs
`(("autoconf" ,autoconf)))
(inputs
`(("python" ,python)
("docbook-xml" ,docbook-xml)
("docbook-xsl" ,docbook-xsl)
("libxml2" ,libxml2)
("libxslt" ,libxslt)))))
(define-deprecated asciidoc-py3 asciidoc)
(define-public doxygen
(package

239
gnu/packages/emacs-xyz.scm
View File

@ -131,6 +131,7 @@
#:use-module (guix build-system trivial)
#:use-module (gnu packages)
#:use-module (gnu packages admin)
#:use-module (gnu packages aspell)
#:use-module (gnu packages audio)
#:use-module (gnu packages bash)
#:use-module (gnu packages cmake)
@ -2066,6 +2067,32 @@ letter to each link using avy.")
@command{sudo} if it cannot write to it.")
(license license:expat)))
(define-public emacs-read-only-cfg
;; XXX: Upstream has no tagged release. Version is extracted from keyword
;; in main file.
(let ((commit "c128c9412f768adf89ff5c4ad433cf0beab6656a")
(revision "0"))
(package
(name "emacs-read-only-cfg")
(version (git-version "0.1.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/pfchen/read-only-cfg")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "11zj4ysmacvz82j1siqlcp30i05my20lscls8wkdjl75g9d2b12l"))))
(build-system emacs-build-system)
(home-page "https://github.com/pfchen/read-only-cfg")
(synopsis "Make files read-only based on user configuration")
(description
"Read-only-cfg is an Emacs minor mode that can automatically make files
read-only based on user configuration. User configuration may be prefix
directories or regex patterns.")
(license license:gpl3+))))
(define-public emacs-bbdb
(package
(name "emacs-bbdb")
@ -2582,10 +2609,43 @@ Its features are:
;; Software is dual-licensed.
(license (list license:unlicense license:wtfpl2))))
(define-public emacs-citeproc-el
;; XXX: This commit includes a fix for an API change in libxml.
(let ((commit "893bcb8dcb48ac9850841b58c7b64c1969e6f3de")
(revision "0"))
(package
(name "emacs-citeproc-el")
(version (git-version "0.1.2" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/andras-simonyi/citeproc-el")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "0xfkp8dccflas5ps30g3fw1vifn8pp9h9cyvxr1pcmyqr9rivy8f"))))
(build-system emacs-build-system)
(arguments
`(#:emacs ,emacs)) ;need libxml support
(propagated-inputs
`(("emacs-dash" ,emacs-dash)
("emacs-f" ,emacs-f)
("emacs-queue" ,emacs-queue)
("emacs-s" ,emacs-s)))
(home-page "https://github.com/andras-simonyi/citeproc-el")
(synopsis "Citation Style Language (CSL) processor for Emacs")
(description
"Citeproc-el is an Emacs Lisp library for rendering citations
and bibliographies in styles described in the Citation Style
Language (CSL), an XML-based, open format to describe the formatting
of bibliographic references.")
(license license:gpl3+))))
(define-public emacs-corfu
(package
(name "emacs-corfu")
(version "0.6")
(version "0.8")
(source (origin
(method git-fetch)
(uri (git-reference
@ -2594,7 +2654,7 @@ Its features are:
(file-name (git-file-name name version))
(sha256
(base32
"03x1yxbq7aha9j1blhl3nb3s5dapsavymg9ydjqdbq9py26qavf0"))))
"007r1l3ian2bfj4h2xkd2qwh1d1m7kda1p6pj51dikbzaphglh1r"))))
(build-system emacs-build-system)
(home-page "https://github.com/minad/corfu")
(synopsis "Completion overlay region function")
@ -4606,10 +4666,10 @@ your cursor steps onto them, and re-enabled when the cursor leaves.")
(define-public emacs-ob-erlang
(let ((revision "1")
(commit "f1a8c665b8f7d0ab32267a9961de8eed872e6333"))
(commit "a029c23902b4ad73b84f262a7fc5b98d87b63dfd"))
(package
(name "emacs-ob-erlang")
(version (git-version "20180827" revision commit))
(version (git-version "20210321" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
@ -4618,7 +4678,7 @@ your cursor steps onto them, and re-enabled when the cursor leaves.")
(file-name (git-file-name name version))
(sha256
(base32
"0b5zajqiy6955yvlqwy92prrqy89lqchsv4ss2ylws3p4s14rhij"))))
"1dlb9qgmijff4giglwb358g5zzyjbnay0wkr5spks1bawvyxpiyl"))))
(build-system emacs-build-system)
(home-page "https://github.com/xfwduke/ob-erlang/")
(synopsis "Org-babel support for Erlang")
@ -6646,6 +6706,38 @@ linting of manifests and integration with Puppet Debugger.")
;; Also incorporates work covered by the Apache License, Version 2.0
(license license:gpl3+))))
(define-public emacs-purescript-mode
;; Retrieved on 2021-05-18.
(let ((revision "0")
(commit "0acd1af446424ba855153161fe07a20f67dc0a89"))
(package
(name "emacs-purescript-mode")
(version (git-version "0.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/purescript-emacs/purescript-mode")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0rxdsmx8826az4blhnnvqrx7bjky9hwph6gkyrh33sck26xhh3g5"))))
(build-system emacs-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-before 'install 'make-info
(lambda _
(invoke "makeinfo" "--no-split"
"-o" "purescript-mode.info" "purescript-mode.texi"))))))
(native-inputs
`(("texinfo" ,texinfo)))
(home-page "https://github.com/purescript-emacs/purescript-mode")
(synopsis "Emacs major mode and related tools for Purescript")
(description "This package provides an Emacs major mode for writing Purescript.")
(license license:gpl3+))))
(define-public emacs-god-mode
(package
(name "emacs-god-mode")
@ -7567,7 +7659,7 @@ interface.")
(define-public emacs-orderless
(package
(name "emacs-orderless")
(version "0.5")
(version "0.6")
(source
(origin
(method git-fetch)
@ -7575,9 +7667,20 @@ interface.")
(url "https://github.com/oantolin/orderless")
(commit version)))
(sha256
(base32 "032lfwflkpaxbcxl4jf438vapswsdagipjczcn30sc4dfdh3p42c"))
(base32 "1javw5n3h3iv7f433b2ack49aka1jdpp8yxnaahzg5qbvr80hnay"))
(file-name (git-file-name name version))))
(build-system emacs-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'install 'makeinfo
(lambda* (#:key outputs #:allow-other-keys)
(invoke "makeinfo" "orderless.texi")
(install-file "orderless.info"
(string-append (assoc-ref outputs "out")
"/share/info")))))))
(native-inputs
`(("texinfo" ,texinfo)))
(home-page "https://github.com/oantolin/orderless")
(synopsis "Emacs completion style that matches multiple regexps in any order")
(description "This package provides an orderless completion style that
@ -9841,6 +9944,39 @@ current frame, disabling the mode line, and adding margins to the buffer that
restrict the text width to 80 characters.")
(license license:bsd-3)))
(define-public emacs-wucuo
(package
(name "emacs-wucuo")
(version "0.2.9")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/redguardtoo/wucuo")
(commit "89b99166768afb811c48a7db7c93c02d51a32b09")))
(file-name (git-file-name name version))
(sha256
(base32 "03a6jlbv9axrd9yr0xscq3ni7fipm20ppc51kxy0sn241rplv0pg"))))
(build-system emacs-build-system)
(arguments
`(#:tests? #t
#:test-command '("make" "test")
#:phases (modify-phases %standard-phases
;; Set HOME, otherwise tests fail on loading aspell dict.
(add-before 'check 'set-home
(lambda _ (setenv "HOME" (getcwd)))))))
(native-inputs
;; For tests.
`(("aspell" ,aspell)
("aspell-dict-en" ,aspell-dict-en)))
(home-page "https://github.com/redguardtoo/wucuo")
(synopsis "Fast spell checker for camel case code or plain text")
(description
"Wucuo provides a spell checker on top of either Aspell or Hunspell, and
relies on Flyspell internally. It operates on the current region or buffer,
a file, or a complete directory.")
(license license:gpl3+)))
(define-public emacs-ido-completing-read+
(package
(name "emacs-ido-completing-read+")
@ -11237,26 +11373,17 @@ passive voice.")
(name "emacs-org")
;; emacs-org-contrib inherits from this package. Please update it as
;; well.
(version "9.4.5")
(version "9.4.6")
(source
(origin
(method url-fetch)
(uri (string-append "https://elpa.gnu.org/packages/org-" version ".tar"))
(sha256
(base32 "0h5qhrd984vf17qc227wz68191xfgbpq32dyhw0lcz2d9i0pl3xk"))))
(base32 "1k49ymsi77366as2wi4kzv2f1xnbwpb47iw7iw07yxwlhmm7vskq"))))
(build-system emacs-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
;; FIXME: The elpa tarball upstream does not include the version
;; number, remove this phase when this is fixed.
;; https://lists.gnu.org/archive/html/emacs-orgmode/2020-12/msg00729.html
(add-after 'unpack 'fix-org-version
(lambda _
(substitute* "org-version.el"
(("org-release \"\"")
(string-append "org-release \"" ,version "\"")))
#t))
(add-after 'install 'install-documentation
(lambda* (#:key outputs #:allow-other-keys)
(let* ((share (string-append (assoc-ref outputs "out") "/share"))
@ -11264,10 +11391,9 @@ passive voice.")
(doc-dir (string-append share "/doc/" ,name "-" ,version)))
(install-file "org.info" info-dir)
(install-file "orgguide.info" info-dir)
;; XXX: "orgcard.pdf" is not built in Org 9.4.5.
;; XXX: "orgcard.pdf" is not built in Org 9.4.6.
;; (install-file "orgcard.pdf" doc-dir)
)
#t)))))
))))))
(home-page "https://orgmode.org/")
(synopsis "Outline-based notes management and organizer")
(description "Org is an Emacs mode for keeping notes, maintaining TODO
@ -11280,14 +11406,14 @@ programming and reproducible research.")
(package
(inherit emacs-org)
(name "emacs-org-contrib")
(version "20210329")
(version "20210519")
(source
(origin
(method url-fetch)
(uri (string-append "https://orgmode.org/elpa/"
"org-plus-contrib-" version ".tar"))
(sha256
(base32 "1l0ycz77hwmjb4sffhabb0d0hg1c9ypxbpbyv8xj5ib4nbi87f2h"))
(base32 "0g765fsc7ssn779xnhjzrxy1sz5b019h7dk1q26yk2w6i540ybfl"))
;; ob-sclang.el is packaged separately to avoid the dependency on
;; SuperCollider and qtwebengine.
(modules '((guix build utils)))
@ -14723,6 +14849,29 @@ literate programming tools for exporting, weaving and tangling.")
files using the major mode corresponding to each block.")
(license license:gpl3+)))
(define-public emacs-poly-noweb
(package
(name "emacs-poly-noweb")
(version "0.2.2")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/polymode/poly-noweb")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1jl5h4nf10xd2gdlsxi6h2n3z5zh26ffcixn68xfp5q4zl34zk8p"))))
(build-system emacs-build-system)
(propagated-inputs
`(("emacs-polymode" ,emacs-polymode)))
(home-page "https://github.com/polymode/poly-noweb")
(synopsis "Polymode for noweb")
(description
"This package provides @code{poly-noweb-mode}, a polymode for noweb
files.")
(license license:gpl3+)))
(define-public emacs-powershell
;; Tagged branch 0.1 is outdated (2015).
(let ((revision "0")
@ -16070,10 +16219,10 @@ as well as functions for navigating between these headings.")
(emacs-substitute-variables "test/test.el"
("org-super-agenda-test-results-file"
(string-append (getcwd) "/test/results.el")))
;; The following test fail (see:
;; The following tests fail (see:
;; https://github.com/alphapapa/org-super-agenda/issues/183).
(substitute* "test/test.el"
((".*org-super-agenda-test--:auto-map.*" all)
((".*org-super-agenda-test--:auto-(map|tags).*" all)
(string-append all " (skip-unless nil)\n")))
#t)))))
(native-inputs
@ -19892,8 +20041,8 @@ file.")
(license license:gpl3+))))
(define-public emacs-picpocket
(let ((version "40")
(commit "6fd88b8711c4370662c0f9c462170187d092a046"))
(let ((version "41")
(commit "fa3a49f011b5ae139728548fec7375743f61c7c7"))
(package
(name "emacs-picpocket")
(version version)
@ -19905,7 +20054,7 @@ file.")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "1mdzzxf7xm7zwrpnqqxa27d1cr31pd72d7ilbwljv13qp177a3yw"))))
(base32 "1vb358jyfs3px70ah60dmlz5azdfkva9xrw3mgrr4060vcy7w4q1"))))
(build-system emacs-build-system)
(arguments ; needed for running tests
`(#:tests? #t
@ -19917,7 +20066,6 @@ file.")
(synopsis "Image viewer for Emacs")
(description
"Picpocket is an image viewer for GNU Emacs. It has commands for:
@itemize
@item File operations on the picture files (delete, move, copy, hardlink).
@item Scale and rotate the picture.
@ -22510,7 +22658,7 @@ utilities.")
(guix build gnu-build-system))
#:phases
(modify-phases %standard-phases
(add-before 'add-source-to-load-path 'substitute-libyaml-core-path
(add-after 'unpack 'substitute-libyaml-core-path
(lambda* (#:key outputs #:allow-other-keys)
(chmod "libyaml.el" #o644)
(substitute* "libyaml.el"
@ -27202,6 +27350,33 @@ easily. Four pre-set options are: @samp{shell}, @samp{terminal},
you use some other configuration.")
(license license:gpl3+))))
(define-public emacs-tshell
;; XXX: Upstream has no tagged release. Version is extracted from keyword
;; in main file.
(let ((commit "47ef3a6c537b06eb422d9a124e1c44062223e323")
(revision "0"))
(package
(name "emacs-tshell")
(version (git-version "0.1.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/TatriX/tshell")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "0yv38bqdp6b614lbj4v408vv5mlic3vs1v7266xrfxm1cm903apj"))))
(build-system emacs-build-system)
(propagated-inputs
`(("emacs-transient" ,emacs-transient)))
(home-page "https://github.com/TatriX/tshell")
(synopsis "Experimental buffer-oriented Emacs shell")
(description
"Tshell is an experimental buffer-oriented shell. It supports shell
and Emacs lisp commands.")
(license license:gpl3+))))
(define-public emacs-extmap
(package
(name "emacs-extmap")
@ -27822,7 +27997,7 @@ and preferred services can easily be configured.")
(define-public emacs-vertico
(package
(name "emacs-vertico")
(version "0.8")
(version "0.10")
(source
(origin
(method git-fetch)
@ -27831,7 +28006,7 @@ and preferred services can easily be configured.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "11yaq9p5406m88l0di0g9q782gj5g3b2kc555440fwqcpjhdshqg"))))
(base32 "0am7d29gni7irbwsv3zc9cpk12f6pyys06zlpj506wj2d21v36la"))))
(build-system emacs-build-system)
(native-inputs
`(("texinfo" ,texinfo)))

23
gnu/packages/embedded.scm
View File

@ -1219,14 +1219,14 @@ SPI, I2C, JTAG.")
(define-public fc-host-tools
(package
(name "fc-host-tools")
(version "14")
(version "15")
(source (origin
(method url-fetch)
(uri (string-append "ftp://ftp.freecalypso.org/pub/GSM/"
"FreeCalypso/fc-host-tools-r" version ".tar.bz2"))
(sha256
(base32
"09ccd76khfvlx4dwi9dhrzl5mm68402mlych0g7f9ncfr5jzyf26"))))
"17v3xc44mmlvp0irwm1p55zdgzd31ic3nsjxnv8y28a1i85103cv"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; No tests exist.
@ -1237,17 +1237,13 @@ SPI, I2C, JTAG.")
(modify-phases %standard-phases
(add-after 'unpack 'patch-installation-paths
(lambda* (#:key outputs #:allow-other-keys)
(substitute* '("Makefile"
"rvinterf/etmsync/fsiomain.c"
"rvinterf/etmsync/fsnew.c"
"rvinterf/asyncshell/help.c"
"rvinterf/libinterf/launchrvif.c"
"loadtools/defpath.c"
"loadtools/Makefile"
"miscutil/c139explore"
(substitute* (cons* "miscutil/c139explore"
"miscutil/pirexplore"
"ffstools/tiffs-wrappers/installpath.c"
"uptools/atcmd/atinterf.c")
(find-files "." "^(.*\\.[ch]|Makefile)$"))
(("/opt/freecalypso/bin/fc-simtool")
"fc-simtool")
(("/opt/freecalypso/bin/fc-uicc-tool")
"fc-uicc-tool")
(("/opt/freecalypso/loadtools")
(string-append (assoc-ref outputs "out") "/lib/freecalypso/loadtools"))
(("\\$\\{INSTALL_PREFIX\\}/loadtools")
@ -1301,6 +1297,9 @@ to flash storage.
@item fc-iram: Allows running programs on the device without writing them
to flash storage.
@item fc-loadtool: Writes programs to the device's flash storage.
@item fc-simint: Loads and runs simagent on the phone, then calls fc-simtool
(see @url{https://www.freecalypso.org/hg/fc-sim-tools,fc-sim-tools
repository}) on the host to connect to it.
@item pirffs: Allows listing and extracting FFS content captured as a raw
flash image from Pirelli phones.
@item mokoffs: Allows listing and extracting FFS content captured as a raw

9
gnu/packages/emulators.scm
View File

@ -14,6 +14,7 @@
;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
;;; Copyright © 2020 Christopher Howard <christopher@librehacker.com>
;;; Copyright © 2021 Felipe Balbi <balbi@kernel.org>
;;; Copyright © 2021 Felix Gruber <felgru@posteo.net>
;;;
;;; This file is part of GNU Guix.
;;;
@ -637,7 +638,7 @@ and Game Boy Color games.")
(define-public sameboy
(package
(name "sameboy")
(version "0.13.6")
(version "0.14.3")
(source
(origin
(method git-fetch)
@ -646,17 +647,17 @@ and Game Boy Color games.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "04w8lybi7ssnax37ka4qw7pmcm7cgnmk90p9m73zbyp5chgpqqzc"))))
(base32 "1dipidx12ai62hnzf0pvnsk1cgjcmw1h5x2r7ilxq0k0pkia5b7a"))))
(build-system gnu-build-system)
(native-inputs
`(("rgbds" ,rgbds)
("gcc" ,gcc-9)
("pkg-config" ,pkg-config)))
(inputs
`(("sdl2" ,sdl2)))
(arguments
`(#:tests? #f ; There are no tests
#:make-flags `("CC=gcc" "NATIVE_CC=gcc" "CONF=release"
#:make-flags `(,(string-append "CC=" ,(cc-for-target))
"NATIVE_CC=gcc" "CONF=release"
,(string-append "DATA_DIR="
(assoc-ref %outputs "out")
"/share/sameboy/"))

8
gnu/packages/engineering.scm
View File

@ -23,6 +23,7 @@
;;; Copyright © 2020, 2021 Morgan Smith <Morgan.J.Smith@outlook.com>
;;; Copyright © 2021 qblade <qblade@protonmail.com>
;;; Copyright © 2021 Gerd Heber <gerd.heber@gmail.com>
;;; Copyright © 2021 Guillaume Le Vaillant <glv@posteo.net>
;;;
;;; This file is part of GNU Guix.
;;;
@ -923,6 +924,13 @@ Emacs).")
"-DCMAKE_BUILD_WITH_INSTALL_RPATH=TRUE")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-ngspice-detection
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "eeschema/CMakeLists.txt"
(("NGSPICE_DLL_FILE=\"\\$\\{NGSPICE_DLL_FILE\\}\"")
(string-append "NGSPICE_DLL_FILE=\""
(assoc-ref inputs "libngspice")
"/lib/libngspice.so\"")))))
(add-after 'install 'install-translations
(lambda* (#:key inputs outputs #:allow-other-keys)
(copy-recursively (assoc-ref inputs "kicad-i18n")

6
gnu/packages/fabric-management.scm
View File

@ -181,17 +181,17 @@ testing InfiniBand networks.")
(define-public ucx
(package
(name "ucx")
(version "1.6.1")
(version "1.9.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/openucx/ucx")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(patches (search-patches "ucx-tcp-iface-ioctl.patch"))
(sha256
(base32
"0x3clvy716i7va4m4adgx6ihjsfnzrkdizhxz5v52944dkglpc8n"))
(patches (search-patches "ucx-tcp-iface-ioctl.patch"))))
"0i0ji5ivzxjqh3ys1m517ghw3am7cw1hvf40ma7hsq3wznsyx5s1"))))
(build-system gnu-build-system)
(arguments
'( ;; These are some of the flags found in 'contrib/configure-release'.

83
gnu/packages/file-systems.scm
View File

@ -773,6 +773,89 @@ All of this is accomplished without a centralized metadata server.")
"This is a file system client based on the FTP File Transfer Protocol.")
(license license:gpl2+)))
(define-public libeatmydata
(package
(name "libeatmydata")
(version "129")
(source
(origin
(method url-fetch)
(uri (string-append "https://www.flamingspork.com/projects/libeatmydata/"
"libeatmydata-" version ".tar.gz"))
(sha256
(base32 "1qycv1cvy6fr3v5rxilnsqxllwyfbqlcairlh31x2dnjsx28jnqf"))))
(build-system gnu-build-system)
(arguments
;; All tests pass---but only if the host kernel allows PTRACE_TRACEME.
`(#:tests? #f
#:configure-flags
(list "--disable-static")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-file-names
(lambda* (#:key inputs #:allow-other-keys)
(substitute* (list "eatmydata.in" "eatmydata.sh.in")
(("basename|readlink|uname" command)
(string-append (assoc-ref inputs "coreutils") "/bin/" command)))))
(add-before 'patch-file-names 'tighten-symlink-mode
;; When the ‘eatmydata’ helper detects that it's a symlink, it will
;; transparently invoke the command of the same name. However, it's
;; *always* a link in Guix profiles and doesn't handle that well.
;; Patch it to treat its own $name specially.
(lambda _
(substitute* "eatmydata.in"
(("-L \"\\$0\"" match)
(string-append match " ] && [ "
"\"x$(basename \"$0\")\" != \"x$name\"")))))
(add-after 'install 'install-debian-files
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((debian (assoc-ref inputs "debian-files"))
(out (assoc-ref outputs "out"))
(share (string-append out "/share")))
(invoke "tar" "xvf" debian)
(with-directory-excursion "debian"
(install-file "eatmydata.1" (string-append share "/man/man1"))
(install-file "eatmydata.bash-completion"
(string-append share "/bash-completion"
"/completions")))))))))
(native-inputs
`(("debian-files" ; for the man page
,(origin
(method url-fetch)
(uri (string-append "https://deb.debian.org/debian/pool/main/"
"libe/libeatmydata/libeatmydata_" version
"-1.debian.tar.xz"))
(sha256
(base32 "0q6kx1bf870jj52a2vm5p5xlrr89g2zs8wyhlpn80pys9p28nikx"))))
;; For the test suite.
("strace" ,strace)
("which" ,which)))
(inputs
`(("coreutils" ,coreutils)))
(home-page "https://www.flamingspork.com/projects/libeatmydata/")
(synopsis "Transparently ignore calls to synchronize data safely to disk")
(description
"Libeatmydata transparently disables most ways a program might force data
to be written to the file system, such as @code{fsync()} or @code{open(O_SYNC)}.
Such synchronisation calls provide important data integrity guarantees but are
expensive to perform and can significantly slow down software that (over)uses
them.
This price is worth paying if you care about the files being modified---which is
typically the case---or when manipulating important components of your system.
Please, @emph{do not} use something called ``eat my data'' in such cases!
However, it does not make sense to accept this performance hit if the data is
unimportant and you can afford to lose all of it in the event of a crash, for
example when running a software test suite. Adding @code{}libeatmydata.so} to
the @env{LD_PRELOAD} environment of such tasks will override all C library data
synchronisation functions with custom @i{no-op} ones that do nothing and
immediately return success.
A simple @command{eatmydata} script is included that does this for you.")
(license license:gpl3+)))
(define-public libnfs
(package
(name "libnfs")

41
gnu/packages/finance.scm
View File

@ -400,22 +400,13 @@ in ability, and easy to use.")
(file-name (git-file-name name version))
(sha256
(base32 "1r5rcyxd6d1rqwamzpvqdbkbdf1zbj75aaciqijrklnm59ps244y"))))
(build-system cmake-build-system)
(build-system emacs-build-system)
(arguments
`(#:modules ((guix build cmake-build-system)
(guix build utils)
(guix build emacs-utils))
#:imported-modules (,@%cmake-build-system-modules
(guix build emacs-utils))
`(;; ledger-test.el is needed at runtime (but probably not for a good reason).
#:exclude '()
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-site-dir
(lambda _
(substitute* "CMakeLists.txt"
(("DESTINATION share/emacs/site-lisp/ledger-mode")
"DESTINATION share/emacs/site-lisp"))
#t))
(add-before 'build 'patch-path
(add-after 'unpack 'patch-path
(lambda* (#:key inputs #:allow-other-keys)
(let ((ledger (assoc-ref inputs "ledger")))
(make-file-writable "ledger-exec.el")
@ -430,12 +421,6 @@ in ability, and easy to use.")
(invoke "makeinfo" "-o" target
"../source/doc/ledger-mode.texi"))
#t))
(add-after 'install 'generate-autoload
(lambda* (#:key outputs #:allow-other-keys)
(let* ((site-dir (string-append (assoc-ref outputs "out")
"/share/emacs/site-lisp")))
(emacs-generate-autoloads ,name site-dir))
#t))
(replace 'check
(lambda _
(with-directory-excursion "../source/test"
@ -443,8 +428,7 @@ in ability, and easy to use.")
(inputs
`(("ledger" ,ledger)))
(native-inputs
`(("emacs-minimal" ,emacs-minimal)
("texinfo" ,texinfo)))
`(("texinfo" ,texinfo)))
(home-page "https://ledger-cli.org/")
(synopsis "Command-line double-entry accounting program")
(description
@ -763,7 +747,7 @@ the Monero command line client and daemon.")
(define-public monero-gui
(package
(name "monero-gui")
(version "0.17.2.1")
(version "0.17.2.2")
(source
(origin
(method git-fetch)
@ -780,7 +764,7 @@ the Monero command line client and daemon.")
(delete-file-recursively "monero")
#t))
(sha256
(base32 "17z4l7xj3zzbkb3fivsam38y5psknc2qbsg6yc72vb6n675khnsa"))))
(base32 "0n7gfhm13y18ffqsqdajl4knd4h8m772fz6lh1lpkh198pwmw8f9"))))
(build-system qt-build-system)
(native-inputs
`(,@(package-native-inputs monero)
@ -819,7 +803,12 @@ the Monero command line client and daemon.")
(("@VERSION_TAG_GUI@")
,version))
(substitute* "src/zxcvbn-c/makefile"
(("\\?=") "="))))
(("\\?=") "="))
(substitute* "external/CMakeLists.txt"
(("add_library\\(quirc" all)
(string-append
"set(CMAKE_C_FLAGS \"${CMAKE_C_FLAGS} -fPIC\")\n"
all)))))
(add-before 'configure 'generate-zxcvbn-c-header
(lambda _
(invoke "make" "-C" "src/zxcvbn-c" "dict-src.h")))
@ -1406,7 +1395,7 @@ following three utilities are included with the library:
(define-public bitcoin-unlimited
(package
(name "bitcoin-unlimited")
(version "1.9.1.1")
(version "1.9.2.0")
(source
(origin
(method git-fetch)
@ -1415,7 +1404,7 @@ following three utilities are included with the library:
(commit (string-append "BCHunlimited" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0vyvfawss40v9jaic9zq0z3cjvxiq04d4wgq4rnkha7ilm9zqyd7"))))
(base32 "1cmrvh7azz0g89rsx6i8apd1li6r1lb3jrmbbf8fic1918lwv62m"))))
(build-system gnu-build-system)
(native-inputs
`(("autoconf" ,autoconf)

20
gnu/packages/fonts.scm
View File

@ -1971,6 +1971,26 @@ always uses Farsi digits, and does not include Latin glyphs from Roboto.
"file://LICENSE" "Bitstream Vera License")
license:asl2.0)))) ; Latin glyphs from Roboto
(define-public font-victor-mono
(package
(name "font-victor-mono")
(version "1.4.2")
(source (origin
(method url-fetch/zipbomb)
(uri (string-append
"https://github.com/rubjo/victor-mono/raw/v"
version
"/public/VictorMonoAll.zip"))
(sha256 "01260vja0d22mcvkzspf0xnl7b851r0265arqkm12q1vagzyxvkm")))
(build-system font-build-system)
(synopsis "Font with support for italics and ligatures")
(description "Victor Mono is an open-source monospaced font with
optional semi-connected cursive italics and programming symbol ligatures.
This package provides only TrueType files (TTF).
It comes in seven weights and Roman, Italic and Oblique styles.")
(home-page "https://rubjo.github.io/victor-mono/")
(license license:expat)))
(define-public font-meera-inimai
(package
(name "font-meera-inimai")

56
gnu/packages/game-development.scm
View File

@ -493,7 +493,7 @@ clone.")
(define-public tsukundere
(package
(name "tsukundere")
(version "0.2.3")
(version "0.3.0")
(source (origin
(method git-fetch)
(uri (git-reference
@ -502,10 +502,12 @@ clone.")
(file-name (git-file-name name version))
(sha256
(base32
"05ckds2df810441wfavllx9lsw5jsc9h3nb7m31df01nsj56azdw"))))
"06jiaylbnx8khicsaq2gwnd8wspjhjymbb5z6x5445krklk0jx18"))))
(build-system gnu-build-system)
(arguments
`(#:modules (((guix build guile-build-system)
`(#:modules ((ice-9 match)
(srfi srfi-1)
((guix build guile-build-system)
#:select (target-guile-effective-version))
,@%gnu-build-system-modules)
#:imported-modules ((guix build guile-build-system)
@ -513,22 +515,33 @@ clone.")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-command
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(version (target-guile-effective-version))
(scm (string-append out "/share/guile/site/"
version))
(go (string-append out "/lib/guile/"
version "/site-ccache")))
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((scm (lambda (in)
(string-append in "/share/guile/site/"
(target-guile-effective-version))))
(ccache (lambda (in)
(string-append in "/lib/guile/"
(target-guile-effective-version)
"/site-ccache")))
(pkgs
(cons
(assoc-ref outputs "out")
(filter-map
(match-lambda
(("guile" . pkg) pkg)
((label . pkg)
(and (string-prefix? "guile-" label) pkg)))
inputs))))
(substitute* "bin/tsukundere"
(("exec guile .*" all)
(("exec guile (.*)" _ args)
(string-append
(format #f "export GUILE_LOAD_PATH=~@?~%"
"\"~a:~a\"" scm (getenv "GUILE_LOAD_PATH"))
(format #f "export GUILE_LOAD_COMPILED_PATH=~@?~%"
"\"~a:~a\"" go (getenv "GUILE_LOAD_COMPILED_PATH"))
all)))
(format #f "export GUILE_LOAD_PATH=\"~@?\"~%"
"~{~a~^:~}" (map scm pkgs))
(format #f "export GUILE_LOAD_COMPILED_PATH=\"~@?\"~%"
"~{~a~^:~}" (map ccache pkgs))
"exec "
(assoc-ref inputs "guile")
"/bin/guile " args)))
#t))))))
(native-inputs
`(("autoconf" ,autoconf)
@ -536,8 +549,9 @@ clone.")
("guile" ,guile-3.0)
("pkg-config" ,pkg-config)
("texinfo" ,texinfo)))
(propagated-inputs
`(("guile-sdl2" ,guile3.0-sdl2)))
(inputs
`(("guile-sdl2" ,guile3.0-sdl2)
("guile" ,guile-3.0)))
(home-page "https://gitlab.com/leoprikler/tsukundere")
(synopsis "Visual novel engine")
(description "Tsukundere is a game engine geared heavily towards the
@ -1855,14 +1869,14 @@ a 2D editor view.")
(define-public guile-chickadee
(package
(name "guile-chickadee")
(version "0.6.0")
(version "0.7.0")
(source (origin
(method url-fetch)
(uri (string-append "https://files.dthompson.us/chickadee/"
"chickadee-" version ".tar.gz"))
(sha256
(base32
"1jv4jkc35b7rizz8iflh74hhk9qy665isn1xa6gqz0qp9grwb019"))))
"199y4kc28va6klfs19h998sfh7vx9spnrvjw7p92i47q5a7jdcp6"))))
(build-system gnu-build-system)
(arguments
'(#:make-flags '("GUILE_AUTO_COMPILE=0")))

74
gnu/packages/games.scm
View File

@ -60,6 +60,7 @@
;;; Copyright © 2021 Stefan Reichör <stefan@xsteve.at>
;;; Copyright © 2021 Greg Hogan <code@greghogan.com>
;;; Copyright © 2021 David Pflug <david@pflug.io>
;;; Copyright © 2021 Felix Gruber <felgru@posteo.net>
;;;
;;; This file is part of GNU Guix.
;;;
@ -4675,34 +4676,48 @@ images, etc.)")
(define-public pinball
(package
(name "pinball")
(version "0.3.1")
(version "0.3.20201218")
(source
(origin (method url-fetch)
(uri (string-append "mirror://sourceforge/pinball/pinball/"
"pinball-" version "/"
"pinball-" version ".tar.gz"))
(origin (method git-fetch)
(uri (git-reference
(url "https://github.com/adoptware/pinball")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1f2whlrfidwfh8lvr8cspcyirc6840r5d1ajm7x99qmngygrhixs"))
(patches (search-patches "pinball-const-fix.patch"
"pinball-cstddef.patch"
"pinball-missing-separators.patch"
"pinball-src-deps.patch"
"pinball-system-ltdl.patch"))))
"056jk98v6zlkrj9vjm06p0pmpnav1x658n6qw10v5klg5gr6ldf7"))
(patches (search-patches "pinball-system-ltdl.patch"))))
(build-system gnu-build-system)
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
("pkg-config" ,pkg-config)
("libtool" ,libtool)))
(inputs
`(("glu" ,glu)
("libltdl" ,libltdl)
("mesa" ,mesa)
("sdl" ,sdl)
("sdl-image" ,sdl-image)
("sdl-mixer" ,sdl-mixer)))
(arguments
'(#:configure-flags
;; Configure tries to use pkg-config, but falls short, so:
(list (string-append "CPPFLAGS=-I"
(assoc-ref %build-inputs "sdl-image")
"/include/SDL -I"
(assoc-ref %build-inputs "sdl-mixer")
"/include/SDL"))))
"/include/SDL"))
#:phases
(modify-phases %standard-phases
(replace 'bootstrap
;; The `bootstrap` script tries to call a script with
;; `/usr/bin/make` in the shebang, but ultimately does the same as
;; autoreconf would do, so just use that.
(lambda _
(symlink "README.md" "README")
(display (which "autoreconf")) (newline)
(invoke "autoreconf" "-vif"))))))
(home-page "http://pinball.sourceforge.net")
(synopsis "Pinball simulator")
(description "The Emilia Pinball Project is a pinball simulator. There
@ -12460,3 +12475,38 @@ game FPS.")
implemented using ncurses user interface. An SDL graphical version is also
available.")
(license license:gpl3+)))
(define-public schiffbruch
;; There haven't been any releases for several years, so I've taken the most
;; recent commit from the master branch that didn't fail to build (the last
;; commit gave me a compile error).
(let ((commit "e41916d15d87749c82c5005cbb42d1bb079b43d9"))
(package
(name "schiffbruch")
(version (git-version "1.2.1" "0" commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/sandsmark/Schiffbruch")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "0lg3rqacrapf6c4sxi12cm9bmg43mlbclway1zxcm848pi1xkzwv"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f ; no tests
#:build-type "Release"))
(native-inputs
`(("gcc" ,gcc-11))) ; need C++20-compatible compiler
(inputs
`(("sfml" ,sfml)))
(home-page "https://github.com/sandsmark/Schiffbruch/")
(synopsis "Pixelart survival game")
(description
"Schiffbruch is a mix of building, strategy and adventure and gets played
with a two-dimensional view. The game deals with the consequences of a ship
wreckage. You're stranded on a desert island and have to survive. In order to
do so you need to explore the island, find food, build a shelter and try to
get attention, so you get found.")
(license license:cc-by4.0))))

4
gnu/packages/gcc.scm
View File

@ -542,14 +542,14 @@ It also includes runtime support libraries for these languages.")))
(define-public gcc-8
(package
(inherit gcc-7)
(version "8.4.0")
(version "8.5.0")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnu/gcc/gcc-"
version "/gcc-" version ".tar.xz"))
(sha256
(base32
"1m1d3gfix56w4aq8myazzfffkl8bqcrx4jhhapnjf7qfs596w2p3"))
"0l7d4m9jx124xsk6xardchgy2k5j5l2b15q322k31f0va4d8826k"))
(patches (search-patches "gcc-8-strmov-store-file-names.patch"
"gcc-5.0-libvtv-runpath.patch"))))))

4
gnu/packages/glib.scm
View File

@ -1081,7 +1081,7 @@ metadata.")
(define perl-net-dbus
(package
(name "perl-net-dbus")
(version "1.1.0")
(version "1.2.0")
(source
(origin
(method url-fetch)
@ -1089,7 +1089,7 @@ metadata.")
version ".tar.gz"))
(sha256
(base32
"0sg2w147b9r9ykfzjs7y9qxry73xkjnhnk4qf95kfv79p5nnk4c3"))))
"1g0w8i5scmh7kfy9mmvv8q326627qf38z26mvczmn8x1yjgar8g7"))))
(build-system perl-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)

4
gnu/packages/gnome.scm
View File

@ -11954,7 +11954,7 @@ integrated profiler via Sysprof, debugging support, and more.")
(define-public komikku
(package
(name "komikku")
(version "0.27.0")
(version "0.28.1")
(source
(origin
(method git-fetch)
@ -11964,7 +11964,7 @@ integrated profiler via Sysprof, debugging support, and more.")
(file-name (git-file-name name version))
(sha256
(base32
"0mj4bsy7jp9wjj1dqz9zdq5aj0ib813wkz5k1481k80jp9dnlqnv"))))
"0ifcwp5fw74yypxkq7i0yc3002bsvj3p5c1icspr8s2kyjyllm6i"))))
(build-system meson-build-system)
(arguments
`(#:glib-or-gtk? #t

61
gnu/packages/graph.scm
View File

@ -7,6 +7,7 @@
;;; Copyright © 2020 Alexander Krotov <krotov@iitp.ru>
;;; Copyright © 2020 Pierre Langlois <pierre.langlos@gmx.com>
;;; Copyright © 2021 Vinicius Monego <monego@posteo.net>
;;; Copyright © 2021 Alexandre Hannud Abdo <abdo@member.fsf.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -38,13 +39,18 @@
#:use-module (gnu packages autotools)
#:use-module (gnu packages bioconductor)
#:use-module (gnu packages bioinformatics)
#:use-module (gnu packages boost)
#:use-module (gnu packages check)
#:use-module (gnu packages compression)
#:use-module (gnu packages cran)
#:use-module (gnu packages datastructures)
#:use-module (gnu packages gd)
#:use-module (gnu packages graphics)
#:use-module (gnu packages graphviz)
#:use-module (gnu packages gtk)
#:use-module (gnu packages maths)
#:use-module (gnu packages multiprecision)
#:use-module (gnu packages ncurses)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages python)
#:use-module (gnu packages python-science)
@ -532,3 +538,58 @@ MSCs need not be complicated to create or use. Mscgen aims to provide a simple
text language that is clear to create, edit and understand, which can also be
transformed into common image formats for display or printing.")
(license license:gpl2+)))
(define-public python-graph-tool
(package
(name "python-graph-tool")
(version "2.37")
(source (origin
(method url-fetch)
(uri (string-append
"https://downloads.skewed.de/graph-tool/graph-tool-"
version ".tar.bz2"))
(sha256
(base32
"0w2i4d4zyk051zkykcg0ksngspajznwmp523hbsx50xnxc6jliyz"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
(list (string-append "--with-boost="
(assoc-ref %build-inputs "boost"))
(string-append "--with-python-module-path="
(assoc-ref %outputs "out")
"/lib/python"
,(version-major+minor
(package-version
(car (assoc-ref
(package-inputs this-package)
"python"))))
"/site-packages/"))))
(native-inputs
`(("pkg-config" ,pkg-config)
("gcc-10" ,gcc-10)
("ncurses" ,ncurses)))
(inputs
`(("python" ,python-wrapper)
("boost" ,boost)
("expat" ,expat)
("gmp" ,gmp)
("cgal" ,cgal)
("sparsehash" ,sparsehash)
("gtk+" ,gtk+)
("cairomm" ,cairomm)))
(propagated-inputs
`(("python-scipy" ,python-scipy)
("python-numpy" ,python-numpy)
("python-pycairo" ,python-pycairo)
("python-matplotlib" ,python-matplotlib)))
(synopsis "Manipulate and analyze graphs with Python efficiently")
(description "Graph-tool is an efficient Python module for manipulation
and statistical analysis of graphs (a.k.a. networks). Contrary to most other
Python modules with similar functionality, the core data structures and
algorithms are implemented in C++, making extensive use of template
metaprogramming, based heavily on the Boost Graph Library. This confers it a
level of performance that is comparable (both in memory usage and computation
time) to that of a pure C/C++ library.")
(home-page "https://graph-tool.skewed.de/")
(license license:lgpl3+)))

1
gnu/packages/graphics.scm
View File

@ -394,6 +394,7 @@ objects!")
(url "https://github.com/autotrace/autotrace")
(commit commit)))
(file-name (git-file-name name version))
(patches (search-patches "autotrace-glib-compat.patch"))
(sha256
(base32
"0mk4yavy42dj0pszr1ggnggpvmzs4ds46caa9wr55cqsypn7bq6s"))))

10
gnu/packages/graphviz.scm
View File

@ -62,6 +62,7 @@
(define-public graphviz
(package
(name "graphviz")
(replacement graphviz/fixed)
(version "2.42.3")
(source (origin
(method url-fetch)
@ -126,6 +127,15 @@ software engineering, database and web design, machine learning, and in visual
interfaces for other technical domains.")
(license license:epl1.0)))
(define-public graphviz/fixed
(hidden-package
(package
(inherit graphviz)
(source (origin
(inherit (package-source graphviz))
(patches (append (search-patches "graphviz-CVE-2020-18032.patch")
(origin-patches (package-source graphviz)))))))))
;; Older Graphviz needed for pygraphviz. See
;; https://github.com/pygraphviz/pygraphviz/issues/175
(define-public graphviz-2.38

6
gnu/packages/gtk.scm
View File

@ -9,7 +9,7 @@
;;; Copyright © 2015 Andy Wingo <wingo@igalia.com>
;;; Copyright © 2015 David Hashe <david.hashe@dhashe.com>
;;; Copyright © 2015, 2016, 2017, 2018, 2020, 2021 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2016, 2017, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2017, 2020, 2021 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 Fabian Harfert <fhmgufs@web.de>
;;; Copyright © 2016 Kei Kebreau <kkebreau@posteo.net>
;;; Copyright © 2016 Patrick Hetu <patrick.hetu@auf.org>
@ -1828,7 +1828,7 @@ write GNOME applications.")
(define-public perl-cairo
(package
(name "perl-cairo")
(version "1.108")
(version "1.109")
(source (origin
(method url-fetch)
(uri (string-append
@ -1836,7 +1836,7 @@ write GNOME applications.")
version ".tar.gz"))
(sha256
(base32
"1nh5iya63q6j2w0cdi24x2ygpi8k8wwccnbh8cisnx8nqmywnhk0"))))
"0zq78dv22arg35ma6kah9cwfd1zx8gg7amsibzd128qw81p766c2"))))
(build-system perl-build-system)
(native-inputs
`(("perl-extutils-depends" ,perl-extutils-depends)

38
gnu/packages/guile-xyz.scm
View File

@ -2526,7 +2526,7 @@ interface for reading articles in any format.")
(define-public guile-redis
(package
(name "guile-redis")
(version "2.0.0")
(version "2.1.1")
(home-page "https://github.com/aconchillo/guile-redis")
(source (origin
(method git-fetch)
@ -2536,7 +2536,7 @@ interface for reading articles in any format.")
(file-name (git-file-name name version))
(sha256
(base32
"1zk2x37lw6ygf7rwy71svnsian8lj51axpxmm66ah7dazn69swlm"))))
"0pvk4yadgx64wk81cpisdc7zqhk6ww58xi5fs5fs6s28wb6l5bfj"))))
(build-system gnu-build-system)
(arguments
'(#:make-flags '("GUILE_AUTO_COMPILE=0")))
@ -4742,3 +4742,37 @@ in a large number of randomly generated test cases.")
"This package contains helper functions for working with file system
locations.")
(license license:agpl3+)))
(define-public guile-netlink
(package
(name "guile-netlink")
(version "1.0.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://git.lepiller.eu/git/guile-netlink")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"03zmsha2d7whlwb52gna83jdas9bqi18rq3sss7kkicv814qb35g"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f)); no tests
(inputs
`(("guile" ,guile-3.0)))
(native-inputs
`(("automake" ,automake)
("autoconf" ,autoconf)
("pkg-config" ,pkg-config)
("texinfo" ,texinfo)))
(home-page "https://git.lepiller.eu/guile-netlink")
(synopsis "Netlink protocol implementation for Guile")
(description "Guile Netlink is a GNU Guile library providing an implementation
of the netlink protocol.
It provides a generic library for writing implementations of a netlink
protocol, a low-level rtnetlink implementation that uses that library and a
high-level API for network management that uses rtnetlink.")
(license license:gpl3+)))

1
gnu/packages/hurd.scm
View File

@ -31,7 +31,6 @@
#:use-module (guix utils)
#:use-module (guix build-system gnu)
#:use-module (guix build-system trivial)
#:use-module (gnu build hurd-boot)
#:use-module (gnu packages autotools)
#:use-module (gnu packages compression)
#:use-module (gnu packages flex)

13
gnu/packages/jose.scm
View File

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018 Manolis Fragkiskos Ragkousis <manolis837@gmail.com>
;;; Copyright © 2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; This file is part of GNU Guix.
;;;
@ -21,7 +22,7 @@
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix utils)
#:use-module (guix build-system gnu)
#:use-module (guix build-system meson)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages web)
#:use-module (gnu packages compression)
@ -30,20 +31,20 @@
(define-public jose
(package
(name "jose")
(version "10")
(version "11")
(source (origin
(method url-fetch)
(uri
(string-append "https://github.com/latchset/jose/releases/download/v10/jose-"
version ".tar.bz2"))
(string-append "https://github.com/latchset/jose/releases/"
"download/v" version "/jose-" version ".tar.xz"))
(sha256
(base32
"0wndxz3jqxfxnv5396da3kc1say7442m7mwk2dw9ykawagxxr72w"))))
"09c2kn9cjqkgx4g0rf6c2k3ng9970r468c9z7067j8kyf7ksywp2"))))
(build-system meson-build-system)
(native-inputs `(("pkg-config" ,pkg-config)))
(inputs `(("jansson" ,jansson)
("zlib" ,zlib)
("libcrypto" ,openssl)))
(build-system gnu-build-system)
(home-page "https://github.com/latchset/jose")
(synopsis "Object Signing and Encryption")
(description "C-language implementation of Javascript Object Signing and

686
gnu/packages/julia-xyz.scm
View File

File diff suppressed because it is too large Load Diff

8
gnu/packages/libreoffice.scm
View File

@ -424,14 +424,14 @@ AbiWord documents.")
(define-public libcdr
(package
(name "libcdr")
(version "0.1.6")
(version "0.1.7")
(source
(origin
(method url-fetch)
(uri (string-append "https://dev-www.libreoffice.org/src/" name "/"
name "-" version ".tar.xz"))
(sha256 (base32
"0qgqlw6i25zfq1gf7f6r5hrhawlrgh92sg238kjpf2839aq01k81"))))
"1m6dirmyhqwnrpv80z97x5k5hdh4kh8a8zlq3smbjrilc6fj8rjn"))))
(build-system gnu-build-system)
(native-inputs
`(("cppunit" ,cppunit)
@ -714,14 +714,14 @@ text documents, vector drawings, presentations and spreadsheets.")
(define-public libmwaw
(package
(name "libmwaw")
(version "0.3.18")
(version "0.3.19")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/libmwaw/libmwaw/libmwaw-"
version "/libmwaw-" version ".tar.xz"))
(sha256
(base32 "03qyxp8hkcc7jcwyq0v0y2diqsvib060pg7y9zk0n07qh0b0apgw"))))
(base32 "1bx5xnw8sk5h26x2z7hfac7hfbm68zqg0jilp15qr0pwxqsf4wmj"))))
(build-system gnu-build-system)
(native-inputs
`(("doxygen" ,doxygen)

113
gnu/packages/linux.scm
View File

@ -15,7 +15,7 @@
;;; Copyright © 2016, 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2016 David Craven <david@craven.ch>
;;; Copyright © 2016 John Darrington <jmd@gnu.org>
;;; Copyright © 2016, 2017, 2018, 2019, 2020 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2016, 2017, 2018, 2019, 2020, 2021 Marius Bakke <marius@gnu.org>
;;; Copyright © 2016, 2018 Rene Saavedra <pacoon@protonmail.com>
;;; Copyright © 2016 Carlos Sánchez de La Lama <csanchezdll@gmail.com>
;;; Copyright © 2016, 2017 Nikita <nikita@n0.is>
@ -356,7 +356,7 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
;; The current "stable" kernels. That is, the most recently released major
;; versions that are still supported upstream.
(define-public linux-libre-5.12-version "5.12.3")
(define-public linux-libre-5.12-version "5.12.5")
(define deblob-scripts-5.12
(linux-libre-deblob-scripts
linux-libre-5.12-version
@ -364,28 +364,15 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "1qp25fd4wgjyk7dzdq9yirm1z5w68sd1p3wv8lch8259i51gwjnf")))
(define-public linux-libre-5.12-pristine-source
(let ((version linux-libre-5.12-version)
(hash (base32 "13c7jbizf254rh4arvlgzk87vx7sz6psba47jnax23lbgal18dqk")))
(hash (base32 "1x39sdswww4j8zr54wpjzy9dia52kihs11xwljxcnz8pck0vwja0")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-5.12)))
(define-public linux-libre-5.11-version "5.11.20")
(define deblob-scripts-5.11
(linux-libre-deblob-scripts
linux-libre-5.11-version
(base32 "02mn6bd69sr3i3xapg146w7nxln15mffm2zh3qc7k5am92y049h4")
(base32 "0yvr80g200hdryz54gdnzj4fl38pf7g4qbgj475rhcfwixhp1j7n")))
(define-public linux-libre-5.11-pristine-source
(let ((version linux-libre-5.11-version)
(hash (base32 "15q7pw1wvl6ndvb6154p6vjr4qa4fa6lpbqpxvwy2kywc2jyxykk")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-5.11)))
;; The "longterm" kernels — the older releases with long-term upstream support.
;; Here are the support timelines:
;; <https://www.kernel.org/category/releases.html>
(define-public linux-libre-5.10-version "5.10.36")
(define-public linux-libre-5.10-version "5.10.38")
(define deblob-scripts-5.10
(linux-libre-deblob-scripts
linux-libre-5.10-version
@ -393,12 +380,12 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "0hh27ccqimagr3aij7ygwikxw66y63sqwd0xlf49bhpjd090r9a7")))
(define-public linux-libre-5.10-pristine-source
(let ((version linux-libre-5.10-version)
(hash (base32 "0s5jw7y17hnl66iybw6f4pbc5j5rilphqbv3iql22wq053vyg749")))
(hash (base32 "0bzipgnfvd5w70rv1x6g81iwknn2qskw92p2bpyiks7r52qmmwij")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-5.10)))
(define-public linux-libre-5.4-version "5.4.118")
(define-public linux-libre-5.4-version "5.4.120")
(define deblob-scripts-5.4
(linux-libre-deblob-scripts
linux-libre-5.4-version
@ -406,7 +393,7 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "1xghbbnaisjd0k1klbyn1p7r6r4x5a1bpmkm56a3gh2zvw4s7mj8")))
(define-public linux-libre-5.4-pristine-source
(let ((version linux-libre-5.4-version)
(hash (base32 "06w2vhw6pdy49n3dcnq12bn50glbg9pwaqvs4nlzbljg4yf50w6r")))
(hash (base32 "0q08q6q2l9k04p8a0vvbnhwfp4yiags8s6wc9dnac0fhd4y3gl1q")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-5.4)))
@ -496,14 +483,6 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(list %boot-logo-patch
%linux-libre-arm-export-__sync_icache_dcache-patch)))
(define-public linux-libre-5.11-source
(source-with-patches linux-libre-5.11-pristine-source
(list %boot-logo-patch
%linux-libre-arm-export-__sync_icache_dcache-patch
;; Pinebook Pro patch to fix LCD display
(search-patch
"linux-libre-arm64-generic-pinebook-lcd.patch"))))
(define-public linux-libre-5.10-source
(source-with-patches linux-libre-5.10-pristine-source
(list %boot-logo-patch
@ -617,10 +596,6 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(make-linux-libre-headers* linux-libre-5.12-version
linux-libre-5.12-source))
(define-public linux-libre-headers-5.11
(make-linux-libre-headers* linux-libre-5.11-version
linux-libre-5.11-source))
(define-public linux-libre-headers-5.10
(make-linux-libre-headers* linux-libre-5.10-version
linux-libre-5.10-source))
@ -921,16 +896,10 @@ It has been modified to remove all non-free binary blobs.")
'("x86_64-linux" "i686-linux" "armhf-linux" "aarch64-linux" "riscv64-linux")
#:configuration-file kernel-config))
(define-public linux-libre-5.11
(make-linux-libre* linux-libre-5.11-version
linux-libre-5.11-source
'("x86_64-linux" "i686-linux" "armhf-linux" "aarch64-linux" "riscv64-linux")
#:configuration-file kernel-config))
(define-public linux-libre-version linux-libre-5.11-version)
(define-public linux-libre-pristine-source linux-libre-5.11-pristine-source)
(define-public linux-libre-source linux-libre-5.11-source)
(define-public linux-libre linux-libre-5.11)
(define-public linux-libre-version linux-libre-5.12-version)
(define-public linux-libre-pristine-source linux-libre-5.12-pristine-source)
(define-public linux-libre-source linux-libre-5.12-source)
(define-public linux-libre linux-libre-5.12)
(define-public linux-libre-5.10
(make-linux-libre* linux-libre-5.10-version
@ -1144,8 +1113,8 @@ It has been modified to remove all non-free binary blobs.")
(define-public linux-libre-with-bpf
(let ((base-linux-libre
(make-linux-libre*
linux-libre-5.11-version
linux-libre-5.11-source
linux-libre-5.12-version
linux-libre-5.12-source
'("x86_64-linux" "i686-linux" "armhf-linux"
"aarch64-linux" "riscv64-linux")
#:extra-version "bpf"
@ -3263,40 +3232,36 @@ NUMA performance on your system.")
(define-public kbd
(package
(name "kbd")
(version "2.0.4")
(version "2.4.0")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kernel.org/linux/utils/kbd/kbd-"
version ".tar.xz"))
(sha256
(base32
"124swm93dm4ca0pifgkrand3r9gvj3019d4zkfxsj9djpvv0mnaz"))
"17wvrqz2kk0w87idinhyvd31ih1dp7ldfl2yfx7ailygb0279w2m"))
(modules '((guix build utils)))
(snippet
'(begin
(substitute* "tests/Makefile.in"
;; The '%: %.in' rule incorrectly uses @VERSION@.
(("@VERSION@")
"[@]VERSION[@]"))
(substitute* '("src/unicode_start" "src/unicode_stop")
;; Assume the Coreutils are in $PATH.
(("/usr/bin/tty")
"tty"))
#t))))
"tty"))))))
(build-system gnu-build-system)
(arguments
'(#:phases
(modify-phases %standard-phases
(add-before 'build 'pre-build
(lambda* (#:key inputs #:allow-other-keys)
(let ((gzip (assoc-ref %build-inputs "gzip"))
(bzip2 (assoc-ref %build-inputs "bzip2")))
(substitute* "src/libkeymap/findfile.c"
(("gzip")
(string-append gzip "/bin/gzip"))
(("bzip2")
(string-append bzip2 "/bin/bzip2")))
#t)))
(let ((bzip2 (assoc-ref inputs "bzip2"))
(gzip (assoc-ref inputs "gzip"))
(xz (assoc-ref inputs "xz"))
(zstd (assoc-ref inputs "zstd")))
(substitute* "src/libkbdfile/kbdfile.c"
(("bzip2") (string-append bzip2 "/bin/bzip2"))
(("gzip") (string-append gzip "/bin/gzip"))
(("xz -d") (string-append xz "/bin/xz -d"))
(("zstd") (string-append zstd "/bin/zstd"))))))
(add-after 'install 'post-install
(lambda* (#:key outputs #:allow-other-keys)
;; Make sure these programs find their comrades.
@ -3305,12 +3270,16 @@ NUMA performance on your system.")
(for-each (lambda (prog)
(wrap-program (string-append bin "/" prog)
`("PATH" ":" prefix (,bin))))
'("unicode_start" "unicode_stop"))
#t))))))
(inputs `(("check" ,check)
'("unicode_start" "unicode_stop"))))))))
(native-inputs
`(("autoconf" ,autoconf)
("pkg-config" ,pkg-config)))
(inputs
`(("bzip2" ,bzip2)
("gzip" ,gzip)
("bzip2" ,bzip2)
("pam" ,linux-pam)))
("pam" ,linux-pam)
("xz" ,xz)
("zstd" ,zstd)))
(native-search-paths
(list (search-path-specification
(variable "LOADKEYS_KEYMAP_PATH")
@ -3318,7 +3287,6 @@ NUMA performance on your system.")
;; run (for example) ‘loadkeys en-latin9’ instead of having to find
;; and type ‘i386/colemak/en-latin9’ on a mislabelled keyboard.
(files (list "share/keymaps/**")))))
(native-inputs `(("pkg-config" ,pkg-config)))
(home-page "http://kbd-project.org/")
(synopsis "Linux keyboard utilities and keyboard maps")
(description
@ -3339,7 +3307,7 @@ for systems using the Linux kernel. This includes commands such as
"--disable-libkeymap")
,flags))
((#:make-flags flags ''())
`(cons "LDFLAGS=-all-static" ,flags))
`(cons "LDFLAGS=-all-static -lrt -lpthread" ,flags))
((#:phases phases '%standard-phases)
`(modify-phases ,phases
(replace 'install
@ -3350,8 +3318,7 @@ for systems using the Linux kernel. This includes commands such as
(remove-store-references "src/loadkeys")
(install-file "src/loadkeys"
(string-append out "/bin"))
#t)))
(string-append out "/bin")))))
(delete 'post-install)))
((#:strip-flags _ '())
''("--strip-all"))
@ -5153,7 +5120,7 @@ and copy/paste text in the console and in xterm.")
(define-public btrfs-progs
(package
(name "btrfs-progs")
(version "5.12")
(version "5.12.1")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kernel.org/linux/kernel/"
@ -5161,7 +5128,7 @@ and copy/paste text in the console and in xterm.")
"btrfs-progs-v" version ".tar.xz"))
(sha256
(base32
"0mgdcqyww20fvh0js717yvla1hkky12c6dfhascicmrfw5fdcfcf"))))
"0n9p8zaz4nrkgc20cp6zj7gp4ib4hd4lbyph74f4pysllkz4c24m"))))
(build-system gnu-build-system)
(outputs '("out"
"static")) ; static versions of the binaries in "out"
@ -7712,7 +7679,7 @@ of Linux application development.")
(define-public ell
(package
(name "ell")
(version "0.23")
(version "0.40")
(source (origin
(method git-fetch)
(uri (git-reference
@ -7721,7 +7688,7 @@ of Linux application development.")
(file-name (git-file-name name version))
(sha256
(base32
"1qhlcwhn0gj877yss2ymx1aczghlddzb5v9mm1dgp2zliii3jy10"))))
"1zzpbfdpmfldd7w0h7mwbq0mfqgqwz54nqbq0rmbqlqqpwlkrgb2"))))
(build-system gnu-build-system)
(arguments
`(#:phases

380
gnu/packages/lisp-xyz.scm
View File

@ -195,8 +195,8 @@ implementation with no external dependencies.")
(sbcl-package->ecl-package sbcl-bodge-queue))
(define-public sbcl-golden-utils
(let ((commit "62a5cb948a011eb26e7a89f56d5839a3334b4100")
(revision "2"))
(let ((commit "fe1898f9abbd302b0359f017637c063173cf73e1")
(revision "3"))
(package
(name "sbcl-golden-utils")
(version (git-version "0.0.0" revision commit))
@ -208,7 +208,7 @@ implementation with no external dependencies.")
(commit commit)))
(file-name (git-file-name "golden-utils" version))
(sha256
(base32 "13mvxqwd1nmpq8h5hb1s60wyqdj7ji4haxrqr0sy3csyqa8aq2j8"))))
(base32 "1ljc8yj32lmd1d60446rzl9m0r1ar15gdzacsf6blw1kny8xlrsr"))))
(build-system asdf-build-system/sbcl)
(inputs
`(("alexandria" ,sbcl-alexandria)))
@ -329,7 +329,7 @@ or cl-launch for portable processing of command-line arguments.")
(define-public sbcl-fiveam
(package
(name "sbcl-fiveam")
(version "1.4.1")
(version "1.4.2")
(source
(origin
(method git-fetch)
@ -338,7 +338,7 @@ or cl-launch for portable processing of command-line arguments.")
(commit (string-append "v" version))))
(file-name (git-file-name "fiveam" version))
(sha256
(base32 "1q3d38pwafnwnw42clq0f8g5xw7pbzr287jl9jsqmb1vb0n1vrli"))))
(base32 "04mh5plmlb15jbq3dkd8b9jl1dmbbg4hnd3k7859vpf6s12k5p4j"))))
(inputs
`(("alexandria" ,sbcl-alexandria)
("net.didierverna.asdf-flv" ,sbcl-net.didierverna.asdf-flv)
@ -544,7 +544,7 @@ logical continuation of Stefil. It focuses on interactive debugging.")
(define-public sbcl-flexi-streams
(package
(name "sbcl-flexi-streams")
(version "1.0.18")
(version "1.0.19")
(source
(origin
(method git-fetch)
@ -553,7 +553,7 @@ logical continuation of Stefil. It focuses on interactive debugging.")
(commit (string-append "v" version))))
(file-name (git-file-name "flexi-streams" version))
(sha256
(base32 "0bjv7fd2acknidc5dyi3h85pn10krxv5jyxs1xg8jya2rlfv7f1j"))))
(base32 "0v7lh4nrldzczd4mwylvmxfdxk7wfsli24iv1axd6mkb833llr70"))))
(build-system asdf-build-system/sbcl)
(arguments
`(#:phases
@ -970,22 +970,20 @@ a sequence (or chain) of such elements.")
(sbcl-package->cl-source-package sbcl-flexichain))
(define-public sbcl-cl-pdf
;; There are no releases
(let ((commit "752e337e6d6fc206f09d091a982e7f8e5c404e4e")
(let ((commit "dbafd62afcb2d2e9164054c72612763721297d59")
(revision "1"))
(package
(name "sbcl-cl-pdf")
(version (git-version "0" revision commit))
(version (git-version "2.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/mbattyani/cl-pdf")
(commit commit)))
(file-name (git-file-name name version))
(file-name (git-file-name "cl-pdf" version))
(sha256
(base32
"1cg3k3m3r11ipb8j008y8ipynj97l3xjlpi2knqc9ndmx4r3kb1r"))))
(base32 "0w6igiav35a65h6r4p1g6dw2i7mw0s06mviw31768r6z62l1ny1v"))))
(build-system asdf-build-system/sbcl)
(inputs
`(("iterate" ,sbcl-iterate)
@ -3451,10 +3449,10 @@ is a library for creating graphical user interfaces.")
(sbcl-package->ecl-package sbcl-cl-cffi-gtk))
(define-public sbcl-cl-webkit
(let ((commit "9ead3cac1382154fe03c61a1cabd483a8e5dfbfb"))
(let ((commit "891bcd2c76a61121af930f986abb1f24814913c5"))
(package
(name "sbcl-cl-webkit")
(version (git-version "2.4" "14" commit))
(version (git-version "2.4" "15" commit))
(source
(origin
(method git-fetch)
@ -3464,7 +3462,7 @@ is a library for creating graphical user interfaces.")
(file-name (git-file-name "cl-webkit" version))
(sha256
(base32
"1brrd9ha5j3z2p8nf0mbw25pslhj3cdqjljff8ignr5idq3ggsd1"))))
"00qfbzpw3biqna6fh8ga9dmxckids46vxy4sxma1r3cxq2yig739"))))
(build-system asdf-build-system/sbcl)
(inputs
`(("cffi" ,sbcl-cffi)
@ -5890,6 +5888,8 @@ formats.")
"iolib.common-lisp.asd"
"iolib.base.asd"
"iolib.asd")
#:asd-systems '("iolib"
"iolib/os")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-paths
@ -9989,8 +9989,8 @@ type correctness in Common Lisp. It is based on CLtL2 extensions.")
((#:tests? _ #f) #f))))))
(define-public sbcl-numcl
(let ((commit "d19f36356be900c600ef08560c9e1af441a166cb")
(revision "1"))
(let ((commit "3dcdb0e24a33943d6c3a188ecbb0c78003bf975c")
(revision "2"))
(package
(name "sbcl-numcl")
(version (git-version "0.2.0" revision commit))
@ -10002,7 +10002,7 @@ type correctness in Common Lisp. It is based on CLtL2 extensions.")
(commit commit)))
(file-name (git-file-name "numcl" version))
(sha256
(base32 "0q4ylfr7hl0gz2ynr0c15h09dmnli2x6ndnm5wr58wfplf1wfj31"))))
(base32 "17m1rx1gfjbbmgjsf33b8s4bygfsj1hb6kvmypkql21qzjvx60nl"))))
(build-system asdf-build-system/sbcl)
(arguments
`(#:test-asd-file "numcl.test.asd"
@ -10037,8 +10037,8 @@ type correctness in Common Lisp. It is based on CLtL2 extensions.")
(sbcl-package->ecl-package sbcl-numcl))
(define-public sbcl-pzmq
(let ((commit "7c7390eedc469d033c72dc497984d1536ee75826")
(revision "1"))
(let ((commit "6f7b2ca02c23ea53510a9b0e0f181d5364ce9d32")
(revision "2"))
(package
(name "sbcl-pzmq")
(version (git-version "0.0.0" revision commit))
@ -10050,7 +10050,7 @@ type correctness in Common Lisp. It is based on CLtL2 extensions.")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "0gmwzf7h90wa7v4wnk49g0hv2mdalljpwhyigxcb967wzv8lqci9"))))
(base32 "19mdhxhzzghlmff1fic4chg5iz0psglkim09z6dgpijm26biny05"))))
(build-system asdf-build-system/sbcl)
(native-inputs
`(("bordeaux-threads" ,sbcl-bordeaux-threads)
@ -10332,25 +10332,24 @@ database files (dbf and db3 files).")
(sbcl-package->cl-source-package sbcl-db3))
(define-public sbcl-dbi
;; Master includes a breaking change which other packages depend on since
;; Quicklisp decided to follow it:
;; https://github.com/fukamachi/cl-dbi/commit/31c46869722f77fd5292a81b5b101f1347d7fce1
(let ((commit "31c46869722f77fd5292a81b5b101f1347d7fce1"))
(let ((commit "7ba050dea8d137c1f85b7e704d4fc945104bf283")
(revision "1"))
(package
(name "sbcl-dbi")
(version (git-version "0.9.4" "1" commit))
(version (git-version "0.9.5" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/fukamachi/cl-dbi")
(commit commit)))
(file-name (git-file-name name version))
(file-name (git-file-name "cl-dbi" version))
(sha256
(base32 "0r3n4rw12qqxad0cryym2ibm4ddl49gbq4ra227afibsr43nw5k3"))))
(base32 "0qkpsf8w7ig6chbf4r7j1j7fwa6kpi58ij4hbcxpa4irqdan8s9f"))))
(build-system asdf-build-system/sbcl)
(native-inputs
`(("rove" ,sbcl-rove)
`(("alexandria" ,sbcl-alexandria)
("rove" ,sbcl-rove)
("trivial-types" ,sbcl-trivial-types)))
(inputs
`(("bordeaux-threads" ,sbcl-bordeaux-threads)
@ -11140,25 +11139,23 @@ learn about each of the parameters.")
(sbcl-package->ecl-package sbcl-exponential-backoff))
(define-public sbcl-sxql
(let ((commit "5aa8b739492c5829e8623432b5d46482263990e8"))
(let ((commit "acdd183a4c38b4e0699a285f8a711c88f6b4302c"))
(package
(name "sbcl-sxql")
(version (git-version "0.1.0" "1" commit))
(version (git-version "0.1.0" "2" commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/fukamachi/sxql")
(commit commit)))
(file-name (git-file-name name version))
(file-name (git-file-name "sqxl" version))
(sha256
(base32
"0k25p6w2ld9cn8q8s20lda6yjfyp4q89219sviayfgixnj27avnj"))))
(base32 "1i1crdsf2nbyxxpvjgrwmwpjxn6a4drbcmqs4q4shfi8zyap7vng"))))
(build-system asdf-build-system/sbcl)
(arguments
`(#:test-asd-file "sxql-test.asd"))
(inputs
`(("alexandria" ,sbcl-alexandria)
("cl-package-locks" ,sbcl-cl-package-locks)
("cl-syntax" ,sbcl-cl-syntax)
("iterate" ,sbcl-iterate)
("optima" ,sbcl-optima)
@ -12542,8 +12539,8 @@ can separate configuration system from an implementation.")
(sbcl-package->ecl-package sbcl-envy))
(define-public sbcl-mito
(let ((commit "d3b9e375ef364a65692da2185085a08c969ac88a")
(revision "1"))
(let ((commit "2fbfc8aa6f9e3e8029bf09888c74b9af98dad341")
(revision "2"))
(package
(name "sbcl-mito")
(version (git-version "0.1" revision commit))
@ -12554,14 +12551,15 @@ can separate configuration system from an implementation.")
(uri (git-reference
(url home-page)
(commit commit)))
(file-name (git-file-name name version))
(file-name (git-file-name "mito" version))
(sha256
(base32 "08mncgzjnbbsf1a6am3l73iw4lyfvz5ldjg5g84awfaxml4p73mb"))))
(base32 "1a9kivpy9j2grf1c6gdjk7fwcdlvvq67p3m98jyfhiyzj7axjymd"))))
(build-system asdf-build-system/sbcl)
(native-inputs
`(("prove" ,sbcl-prove)))
(inputs
`(("alexandria" ,sbcl-alexandria)
("cl-package-locks" ,sbcl-cl-package-locks)
("cl-ppcre" ,sbcl-cl-ppcre)
("cl-reexport" ,sbcl-cl-reexport)
("closer-mop" ,sbcl-closer-mop)
@ -12569,8 +12567,8 @@ can separate configuration system from an implementation.")
("dissect" ,sbcl-dissect)
("esrap" ,sbcl-esrap)
("local-time" ,sbcl-local-time)
("optima" ,sbcl-optima)
("sxql" ,sbcl-sxql)
("trivia" ,sbcl-trivia)
("uuid" ,sbcl-uuid)))
(arguments
'(#:phases
@ -12931,7 +12929,13 @@ XML to Lisp structures or s-expressions and back.")
(sbcl-package->cl-source-package sbcl-xmls))
(define-public ecl-xmls
(sbcl-package->ecl-package sbcl-xmls))
(let ((pkg (sbcl-package->ecl-package sbcl-xmls)))
(package
(inherit pkg)
(arguments
(substitute-keyword-arguments (package-arguments pkg)
;; Upstream doesn't have a test suite adapted for ECL.
((#:tests? _ #f) #f))))))
(define-public sbcl-geco
(package
@ -13171,7 +13175,7 @@ environment access API.")
(define-public sbcl-static-dispatch
(package
(name "sbcl-static-dispatch")
(version "0.5")
(version "0.5.1")
(source
(origin
(method git-fetch)
@ -13180,7 +13184,7 @@ environment access API.")
(commit (string-append "v" version))))
(file-name (git-file-name "static-dispatch" version))
(sha256
(base32 "1a4vgfcn6qnpdkxxv93rri7zf3c92alixp6nyqwpz8mg2xmvy1j3"))))
(base32 "1602vx6ybp0n8mbrrp6q8397fkkyvhrqpahc302pjdb57qildajz"))))
(build-system asdf-build-system/sbcl)
(native-inputs
`(("fiveam" ,sbcl-fiveam)))
@ -13192,7 +13196,7 @@ environment access API.")
("cl-environments" ,sbcl-cl-environments)
("closer-mop" ,sbcl-closer-mop)
("iterate" ,sbcl-iterate)
("trivia" ,sbcl-trivia)))
("optima" ,sbcl-optima)))
(home-page "https://github.com/alex-gutev/static-dispatch")
(synopsis "Static generic function dispatch for Common Lisp")
(description "Static dispatch is a Common Lisp library, inspired by
@ -14876,19 +14880,20 @@ and @code{doseq*}.")
(sbcl-package->cl-source-package sbcl-trivial-do))
(define-public sbcl-common-lisp-jupyter
(let ((commit "011f60b69a3b8c70eefeafe7acb724cd00dd3e62"))
(let ((commit "ba9f0e746b9200d6fd6db647d7274448119ed01b")
(revision "3"))
(package
(name "sbcl-common-lisp-jupyter")
(version (git-version "0.1" "2" commit))
(version (git-version "0.1.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/yitzchak/common-lisp-jupyter")
(commit commit)))
(file-name (git-file-name name commit))
(file-name (git-file-name "common-lisp-jupyter" commit))
(sha256
(base32 "10jdghlcmp9p6ygrvw7g49i8f9jy71ybzn29n544fzb6g47siqhw"))))
(base32 "0si69xfzi769dprwfy7gp1x3bl7lxz6d4n98sa26w9r41wvay5ja"))))
(build-system asdf-build-system/sbcl)
(inputs
`(("alexandria" ,sbcl-alexandria)
@ -14897,13 +14902,14 @@ and @code{doseq*}.")
("cl-base64" ,sbcl-cl-base64)
("cl-indentify" ,sbcl-cl-indentify)
("closer-mop" ,sbcl-closer-mop)
("dissect" ,sbcl-dissect)
("eclector" ,sbcl-eclector)
("ironclad" ,sbcl-ironclad)
("iterate" ,sbcl-iterate)
("jsown" ,sbcl-jsown)
("multilang-documentation" ,sbcl-multilang-documentation)
("pzmq" ,sbcl-pzmq)
("puri" ,sbcl-puri)
("pzmq" ,sbcl-pzmq)
("shasht" ,sbcl-shasht)
("static-vectors" ,sbcl-static-vectors)
("trivial-do" ,sbcl-trivial-do)
("trivial-garbage" ,sbcl-trivial-garbage)
@ -14915,7 +14921,7 @@ and @code{doseq*}.")
"This is a Common Lisp kernel for Jupyter along with a library for
building Jupyter kernels, based on Maxima-Jupyter which was based on
@code{cl-jupyter}.")
(license license:zlib))))
(license license:expat))))
(define-public ecl-common-lisp-jupyter
(sbcl-package->ecl-package sbcl-common-lisp-jupyter))
@ -15378,9 +15384,10 @@ Lisp.")
(sha256
(base32 "04if61wigylsmn996rbfl8ylsd0d9hzdmg7p2wiglncibjzcl5k9"))))
(build-system asdf-build-system/sbcl)
(arguments
'(#:tests? #f
#:asd-systems '("cl-html5-parser")))
(native-inputs
`(("json-streams" ,sbcl-json-streams)
("split-sequence" ,sbcl-split-sequence)
("stefil" ,sbcl-stefil)))
(inputs
`(("cl-ppcre" ,sbcl-cl-ppcre)
("flexi-stream" ,sbcl-flexi-streams)
@ -16577,3 +16584,264 @@ implementation, for example drawing calls of GUI applications.")
(define-public cl-trivial-main-thread
(sbcl-package->cl-source-package sbcl-trivial-main-thread))
(define-public sbcl-cl-package-locks
(let ((commit "96a358ede7cef416d61d2f699e724fe1d9de602c")
(revision "1"))
(package
(name "sbcl-cl-package-locks")
(version (git-version "0.0.2" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/elliottjohnson/cl-package-locks")
(commit commit)))
(file-name (git-file-name "cl-package-locks" version))
(sha256
(base32 "0g3gfljnvpgd66ccd2sqawlkwqx4a0wsdrg5180va61w869cgxqq"))))
(build-system asdf-build-system/sbcl)
(home-page "https://github.com/elliottjohnson/cl-package-locks")
(synopsis "Compatibility layer for dealing with package locks")
(description
"This is a Common Lisp library providing a unified way to work with
package locks across supported Common Lisp implementations.")
(license license:expat))))
(define-public ecl-cl-package-locks
(sbcl-package->ecl-package sbcl-cl-package-locks))
(define-public cl-package-locks
(sbcl-package->cl-source-package sbcl-cl-package-locks))
(define-public sbcl-cl-typesetting
(let ((commit "86eba981fc4254addebecf765578ec350d6e3b75")
(revision "1"))
(package
(name "sbcl-cl-typesetting")
(version (git-version "0.8.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/mbattyani/cl-typesetting")
(commit commit)))
(file-name (git-file-name "cl-typesetting" version))
(sha256
(base32 "0fcs5mq0gxfczbrg7ay8r4bf5r4g6blvpdbjkhcl8dapcikyn35h"))))
(build-system asdf-build-system/sbcl)
(arguments
;; NOTE: (Sharlatan-20210515T213014+0100): Circular dependencies with
;; cl-typegraph
`(#:tests? #f))
(inputs
`(("cl-pdf" ,sbcl-cl-pdf)
("xmls" ,sbcl-xmls)))
(home-page "https://github.com/mbattyani/cl-typesetting")
(synopsis "Stand-alone Common Lisp typesetting system")
(description
"CL-TYPESETTING is a cross-platform Common Lisp typesetting library for
all kind of typesetting applications.")
(license license:bsd-2))))
(define-public ecl-cl-typesetting
(sbcl-package->ecl-package sbcl-cl-typesetting))
(define-public cl-typesetting
(sbcl-package->cl-source-package sbcl-cl-typesetting))
(define-public sbcl-shasht
(let ((commit "4055327ef8e2aaa8627892ab256350ff3cb15e3c")
(revision "1"))
(package
(name "sbcl-shasht")
(version (git-version "0.1.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/yitzchak/shasht")
(commit commit)))
(file-name (git-file-name "shasht" version))
(sha256
(base32 "01mh20s5gj0lajq45anxji77ykq1wcg72mn1y9a1k8i7q1ainjlr"))))
(build-system asdf-build-system/sbcl)
(native-inputs
`(("alexandria" ,sbcl-alexandria)
("parachute" ,sbcl-parachute)))
(inputs
`(("trivial-do" ,sbcl-trivial-do)))
(home-page "https://yitzchak.github.io/shasht/")
(synopsis "Common Lisp JSON reading and writing library")
(description
"This package provides a Common Lisp library to work with the JSON file
format.")
(license license:expat))))
(define-public ecl-shasht
(sbcl-package->ecl-package sbcl-shasht))
(define-public cl-shasht
(sbcl-package->cl-source-package sbcl-shasht))
(define-public sbcl-cl-speedy-queue
(let ((commit "0425c7c62ad3b898a5ec58cd1b3e74f7d91eec4b")
(revision "1"))
(package
(name "sbcl-cl-speedy-queue")
(version (git-version "0.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/zkat/cl-speedy-queue")
(commit commit)))
(file-name (git-file-name "cl-speedy-queue" version))
(sha256
(base32 "0czhnvxn9lvbjz9h1lb7y18nqrsq3drq5icd3lqdaa07362alriq"))))
(build-system asdf-build-system/sbcl)
(home-page "https://github.com/zkat/cl-speedy-queue")
(synopsis "Lightweight optimized queue for Common Lisp")
(description
"This is a lightweight, non-consing, optimized queue implementation for
Common Lisp.")
(license license:expat))))
(define-public cl-speedy-queue
(sbcl-package->cl-source-package sbcl-cl-speedy-queue))
(define-public ecl-cl-speedy-queue
(sbcl-package->ecl-package sbcl-cl-speedy-queue))
(define-public sbcl-lev
(let ((commit "7d03c68dad44f1cc4ac2aeeab2d24eb525ad941a")
(revision "1"))
(package
(name "sbcl-lev")
(version (git-version "0.1.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/fukamachi/lev")
(commit commit)))
(file-name (git-file-name "lev" version))
(sha256
(base32 "14lfnrvfyg2nnvlwck896p6vgarzc6g4kijmvhi2d8wra7gxzifh"))))
(build-system asdf-build-system/sbcl)
(arguments
;; NOTE: (Sharlatan-20210520T163300+0100): No tests in upstream
`(#:tests? #f
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-libev-lib-path
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "src/lev.lisp"
(("libev.so" all)
(string-append (assoc-ref inputs "libev")
"/lib/" all))))))))
(inputs
`(("cffi" ,sbcl-cffi)
("libev" ,libev)))
(home-page "https://github.com/fukamachi/lev")
(synopsis "Common Lisp bindings for libev")
(description "This package provides Common Lisp bindings for libev.")
(license license:bsd-2))))
(define-public cl-lev
(sbcl-package->cl-source-package sbcl-lev))
(define-public ecl-lev
(sbcl-package->ecl-package sbcl-lev))
(define-public sbcl-woo
(let ((commit "fba3567be95ed6e782d98a4c1477d3a74b8ad124")
(revision "1"))
(package
(name "sbcl-woo")
(version (git-version "0.12.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/fukamachi/woo")
(commit commit)))
(file-name (git-file-name "woo" version))
(sha256
(base32 "06f95x8s8v523gxmrkn9wwgw2pvc3bc66znbgrzhqb30y4aar5v5"))))
(build-system asdf-build-system/sbcl)
(arguments
;; FIXME: Tests fail because they try to compile clack-test:
;;
;; Error opening #P"/gnu/store/...-sbcl-clack-2.0.0-1.e3e0328/
;; lib/common-lisp/sbcl/clack/src/test-tmpGHU3ALSV.fasl":
;;
;; Permission denied
;;
;; clack-test should be compiled when building the sbcl-clack package,
;; but it isn't right now because of the circular dependency between
;; clack-test and dexador.
`(#:tests? #f))
(native-inputs
`(("clack" ,sbcl-clack)
("rove" ,sbcl-rove)))
(inputs
`(("alexandria" ,sbcl-alexandria)
("bordeaux-threads" ,sbcl-bordeaux-threads)
("cffi" ,sbcl-cffi)
("cl-speedy-queue" ,sbcl-cl-speedy-queue) ;; Required for ecl build
("clack-socket" ,sbcl-clack)
("fast-http" ,sbcl-fast-http)
("fast-io" ,sbcl-fast-io)
("lev" ,sbcl-lev)
("quri" ,sbcl-quri)
("rove" ,sbcl-rove)
("smart-buffer" ,sbcl-smart-buffer)
("static-vectors" ,sbcl-static-vectors)
("swap-bytes" ,sbcl-swap-bytes)
("trivial-utf-8" ,sbcl-trivial-utf-8)
("vom" ,sbcl-vom)))
(home-page "https://github.com/fukamachi/woo")
(synopsis "Non-blocking HTTP server based on libev")
(description
"This package provides the Common Lisp HTTP server @code{WOO}, which
is built on top of the @code{libev} event library.")
(license license:expat))))
(define-public cl-woo
(sbcl-package->cl-source-package sbcl-woo))
(define-public ecl-woo
(sbcl-package->ecl-package sbcl-woo))
(define-public sbcl-json-streams
(let ((commit "5da012e8133affbf75024e7500feb37394690752")
(revision "1"))
(package
(name "sbcl-json-streams")
(version (git-version "0.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/rotatef/json-streams")
(commit commit)))
(file-name (git-file-name "json-streams" version))
(sha256
(base32 "0cia3721im04q73dfkd688d8splgpz03qa4h8s3r39kar4w3xll2"))))
(build-system asdf-build-system/sbcl)
(native-inputs
`(("cl-quickcheck" ,sbcl-cl-quickcheck)
("flexi-streams" ,sbcl-flexi-streams)))
(home-page "https://github.com/rotatef/json-streams")
(synopsis "Common Lisp library for reading and writing JSON")
(description
"This package provides a stream based JSON parser/writer, well suited as
building block for higher level libraries.")
(license license:gpl3+))))
(define-public cl-json-streams
(sbcl-package->cl-source-package sbcl-json-streams))
(define-public ecl-json-streams
(sbcl-package->ecl-package sbcl-json-streams))

4
gnu/packages/lisp.scm
View File

@ -843,7 +843,7 @@ enough to play the original mainframe Zork all the way through.")
(define-public txr
(package
(name "txr")
(version "258")
(version "259")
(source
(origin
(method git-fetch)
@ -852,7 +852,7 @@ enough to play the original mainframe Zork all the way through.")
(commit (string-append "txr-" version))))
(file-name (git-file-name name version))
(sha256
(base32 "126hvjqlbrsp7sp9wbcii5cc9j5r3dq24cvxi5z3z9zys2plzrn2"))))
(base32 "1awg6l458pl2y340l0vja2j5q636vh2mx2mllxqydg36j89lfniz"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags

4
gnu/packages/mail.scm
View File

@ -2561,7 +2561,7 @@ Authentication-Results header seen in the wild.")
(define-public perl-mail-dkim
(package
(name "perl-mail-dkim")
(version "0.58")
(version "1.20200907")
(source (origin
(method url-fetch)
(uri (string-append
@ -2570,7 +2570,7 @@ Authentication-Results header seen in the wild.")
".tar.gz"))
(sha256
(base32
"0cgkal65qqcy57b21lgij90ba36wl66byw9i76g5yhwaa8ms8hqa"))))
"1x8v4pa0447c1xqri1jn96i8vlyjpl6jmz63nb1vifbp16yi3zxb"))))
(build-system perl-build-system)
(propagated-inputs
`(("perl-crypt-openssl-rsa" ,perl-crypt-openssl-rsa)

59
gnu/packages/maths.scm
View File

@ -45,6 +45,7 @@
;;; Copyright © 2021 Gerd Heber <gerd.heber@gmail.com>
;;; Copyright © 2021 Franck Pérignon <franck.perignon@univ-grenoble-alpes.fr>
;;; Copyright © 2021 Philip McGrath <philip@philipmcgrath.com>
;;; Copyright © 2021 Paul A. Patience <paul@apatience.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -236,15 +237,15 @@ programming languages.")
(define-public qhull
(package
(name "qhull")
(version "2019.1")
(version "2020.2")
(source (origin
(method url-fetch)
(uri (string-append "http://www.qhull.org/download/qhull-"
(car (string-split version #\.))
"-src-7.3.2.tgz"))
"-src-8.0.2.tgz"))
(sha256
(base32
"1ys3vh3qq0v9lh452xb932vp63advds1pxk42lk7cc1niiar0y9b"))))
"0zlbhg0lb6j60188c2xhcrvviskr079552icjldqhy1jhgmxghmm"))))
(build-system cmake-build-system)
(synopsis "Calculate convex hulls and related structures")
(description
@ -773,7 +774,7 @@ halfspaces) or by their double description with both representations.")
(define-public arpack-ng
(package
(name "arpack-ng")
(version "3.6.3")
(version "3.8.0")
(home-page "https://github.com/opencollab/arpack-ng")
(source (origin
(method git-fetch)
@ -781,14 +782,16 @@ halfspaces) or by their double description with both representations.")
(file-name (git-file-name name version))
(sha256
(base32
"1wljl96yqxc9v8r49c37lscwkdp58kaacfb9p6s6nvpm31haax4y"))))
"0l7as5z6xvbxly8alam9s4kws70952qq35a6vkljzayi4b9gbklx"))))
(build-system gnu-build-system)
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
("libtool" ,libtool)))
("libtool" ,libtool)
("pkg-config" ,pkg-config)))
(inputs
`(("lapack" ,lapack)
`(("eigen" ,eigen)
("lapack" ,lapack)
("fortran" ,gfortran)))
(synopsis "Fortran subroutines for solving eigenvalue problems")
(description
@ -801,16 +804,15 @@ large scale eigenvalue problems.")
(package
(inherit arpack-ng)
(version "3.3.0")
(name (package-name arpack-ng))
(home-page (package-home-page arpack-ng))
(source
(origin
(method url-fetch)
(uri (string-append home-page "/archive/" version ".tar.gz"))
(file-name (string-append name "-" version ".tar.gz"))
(method git-fetch)
(uri (git-reference (url (package-home-page arpack-ng))
(commit version)))
(file-name (git-file-name (package-name arpack-ng) version))
(sha256
(base32
"1cz53wqzcf6czmcpfb3vb61xi0rn5bwhinczl65hpmbrglg82ndd"))))))
"00h6bjvxjq7bv0b8pwnc0gw33ns6brlqv00xx2rh3w9b5n205918"))))))
(define-public arpack-ng-openmpi
(package (inherit arpack-ng)
@ -1172,7 +1174,7 @@ incompatible with HDF5.")
;; libhdf5.so. We truncate the hashes to avoid
;; unnecessary store references to those compilers:
(substitute* "src/libhdf5.settings"
(("(/gnu/store/)([a-Z0-9]*)" all prefix hash)
(("(/gnu/store/)([a-zA-Z0-9]*)" all prefix hash)
(string-append prefix (string-take hash 10) "..."))
;; Don't record the build-time kernel version to make the
;; settings file reproducible.
@ -6227,3 +6229,32 @@ and conversions, physical constants, symbolic calculations (including
integrals and equations), arbitrary precision, uncertainty propagation,
interval arithmetic, plotting.")
(license license:gpl2+)))
(define-public numdiff
(package
(name "numdiff")
(version "5.9.0")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://savannah/numdiff/numdiff-"
version ".tar.gz"))
(sha256
(base32
"1vzmjh8mhwwysn4x4m2vif7q2k8i19x8azq7pzmkwwj4g48lla47"))))
(build-system gnu-build-system)
(arguments
'(#:tests? #f ; There are no tests.
#:phases
(modify-phases %standard-phases
(add-before 'compress-documentation 'delete-precompressed-info-file
(lambda _
(delete-file (string-append (assoc-ref %outputs "out")
"/share/info/numdiff.info.gz"))
#t)))))
(home-page "https://nongnu.org/numdiff/")
(synopsis "Compare files with numeric fields")
(description
"Numdiff compares files line by line and field by field, ignoring small
numeric differences and differences in numeric formats.")
(license license:gpl3+)))

29
gnu/packages/music.scm
View File

@ -37,6 +37,7 @@
;;; Copyright © 2021 Vinicius Monego <monego@posteo.net>
;;; Copyright © 2021 Brendan Tildesley <mail@brendan.scot>
;;; Copyright © 2021 Bonface Munyoki Kilyungi <me@bonfacemunyoki.com>
;;; Copyright © 2021 Frank Pursel <frank.pursel@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -2010,7 +2011,7 @@ users to select LV2 plugins and run them with jalv.")
(define-public synthv1
(package
(name "synthv1")
(version "0.9.21")
(version "0.9.22")
(source (origin
(method url-fetch)
(uri
@ -2018,7 +2019,7 @@ users to select LV2 plugins and run them with jalv.")
"/synthv1-" version ".tar.gz"))
(sha256
(base32
"0wg4ywkqf307vln0y923p083xacb5ahr2ghzvb9gmqyszd7k2v15"))))
"0cmxbsfhkkyqn97rc47cb7d3bv6bd9r71xp4z85mi2kl3q4k569i"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f)) ; there are no tests
@ -2042,7 +2043,7 @@ oscillators and stereo effects.")
(define-public drumkv1
(package
(name "drumkv1")
(version "0.9.21")
(version "0.9.22")
(source (origin
(method url-fetch)
(uri
@ -2050,7 +2051,7 @@ oscillators and stereo effects.")
"/drumkv1-" version ".tar.gz"))
(sha256
(base32
"1ym7kns7hfgxdwm2nzvpdm5vjxpkwb9dssjiic6rrpicv1p2v59m"))))
"0c13l814f5rhbmpmd4w0a07j1ki5wc092xcgy6p6zj5s03zvcrzy"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f)) ; there are no tests
@ -2075,7 +2076,7 @@ effects.")
(define-public samplv1
(package
(name "samplv1")
(version "0.9.21")
(version "0.9.22")
(source (origin
(method url-fetch)
(uri
@ -2083,7 +2084,7 @@ effects.")
"/samplv1-" version ".tar.gz"))
(sha256
(base32
"1kz8hcpzhrkvxpah6irz5gbah4m7knjhi4rk5hs1kwiikn7p6vgk"))))
"19ajnwzd5w2jlazflh5r9qm4sflkn2s2zc5zh0vlqywxzvb9dp9g"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f)) ; there are no tests
@ -2108,7 +2109,7 @@ effects.")
(define-public padthv1
(package
(name "padthv1")
(version "0.9.21")
(version "0.9.22")
(source (origin
(method url-fetch)
(uri
@ -2116,7 +2117,7 @@ effects.")
"/padthv1-" version ".tar.gz"))
(sha256
(base32
"0s28l8vp9b85s4bdm18qm57dh8dx8rx7659r05p44828g4053ipl"))))
"1wky9v91qc3j866di8mcjz0pf3n8ah888lxg8dpvp6ryh1cm6i6x"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f)) ; there are no tests
@ -3083,14 +3084,14 @@ from the command line.")
(define-public qtractor
(package
(name "qtractor")
(version "0.9.21")
(version "0.9.22")
(source (origin
(method url-fetch)
(uri (string-append "https://downloads.sourceforge.net/qtractor/"
"qtractor-" version ".tar.gz"))
(sha256
(base32
"12hn17hqs3jndv6238wj8yhw07n99s0zachab4kfvhwa0qfflsbl"))))
"0n73xn3205afi9vsy6ianixq36ddp8qv6iaq03ldc6mkkfvn0nc5"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f)) ; no "check" target
@ -5091,7 +5092,7 @@ the electronic or dubstep genre.")
(define-public sonivox-eas
(package
(name "sonivox-eas")
(version "1.1.0")
(version "1.3.0")
(source (origin
(method git-fetch)
(uri (git-reference
@ -5100,7 +5101,7 @@ the electronic or dubstep genre.")
(file-name (string-append name "-" version "-checkout"))
(sha256
(base32
"0l9gs00p5g4k4qy6i7nv1mfi2n2wnsycwjrgrh9hxzam4irf2mw2"))))
"1ygmlrsdzxii2dvj6id2ai3xv3klw2x67ip5rcp823jzczl0wpjd"))))
(build-system cmake-build-system)
(arguments '(#:tests? #f)) ; there are no tests
(inputs
@ -5252,7 +5253,7 @@ MusicBrainz lookup capabilities to their applications.")
(define-public perl-musicbrainz-discid
(package
(name "perl-musicbrainz-discid")
(version "0.04")
(version "0.06")
(source (origin
(method url-fetch)
(uri (string-append
@ -5260,7 +5261,7 @@ MusicBrainz lookup capabilities to their applications.")
version ".tar.gz"))
(sha256
(base32
"1i4qk1qfcmxdibqkyfjrrjdq2zk42vjcz590qgiyc47fi9p6xx1j"))))
"1azc91jnwa3gdmy9pc8mflakgvsvf69ywwlqllxmdzwpk386w2xs"))))
(build-system perl-build-system)
(native-inputs `(("pkg-config" ,pkg-config)
("which" ,which)))

114
gnu/packages/networking.scm
View File

@ -23,7 +23,7 @@
;;; Copyright © 2018 Tonton <tonton@riseup.net>
;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2018 Theodoros Foradis <theodoros@foradis.org>
;;; Copyright © 2018, 2020 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2018, 2020, 2021 Marius Bakke <marius@gnu.org>
;;; Copyright © 2018, 2020 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2018 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2019, 2020, 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
@ -3463,7 +3463,7 @@ and targeted primarily for asynchronous processing of HTTP-requests.")
(define-public opendht
(package
(name "opendht")
(version "2.2.0rc4") ;jami requires >= 2.2.0
(version "2.2.0rc7") ;jami requires >= 2.2.0
(source (origin
(method git-fetch)
(uri (git-reference
@ -3472,8 +3472,9 @@ and targeted primarily for asynchronous processing of HTTP-requests.")
(file-name (git-file-name name version))
(sha256
(base32
"1wc0f6cnvnlmhxnx64nxqgsx93k4g7ljdaqjl40ml74jg3nqrzcl"))))
"0wkynjzwzl5q46hy1yb9npi5hvknnj17rjkax5v3acqjmd0y48h9"))))
;; Since 2.0, the gnu-build-system does not seem to work anymore, upstream bug?
(outputs '("out" "tools" "debug"))
(build-system cmake-build-system)
(inputs
`(("argon2" ,argon2)
@ -3490,23 +3491,79 @@ and targeted primarily for asynchronous processing of HTTP-requests.")
`(("autoconf" ,autoconf)
("automake" ,automake)
("pkg-config" ,pkg-config)
("python" ,python)
("python-cython" ,python-cython)
("libtool" ,libtool)
("cppunit" ,cppunit)))
(arguments
`(#:tests? #f ; Tests require network connection.
`(#:imported-modules ((guix build python-build-system) ;for site-packages
,@%cmake-build-system-modules)
#:modules (((guix build python-build-system) #:prefix python:)
(guix build cmake-build-system)
(guix build utils))
#:tests? #f ; Tests require network connection.
#:configure-flags
'(;;"-DOPENDHT_TESTS=on"
"-DOPENDHT_TOOLS=off"
"-DOPENDHT_PYTHON=off"
'( ;;"-DOPENDHT_TESTS=on"
"-DOPENDHT_STATIC=off"
"-DOPENDHT_TOOLS=on"
"-DOPENDHT_PYTHON=on"
"-DOPENDHT_PROXY_SERVER=on"
"-DOPENDHT_PUSH_NOTIFICATIONS=on"
"-DOPENDHT_PROXY_SERVER_IDENTITY=on"
"-DOPENDHT_PROXY_CLIENT=on")))
"-DOPENDHT_PROXY_CLIENT=on")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-python-installation-prefix
;; Specify the installation prefix for the compiled Python module
;; that would otherwise attempt to installs itself to Python's own
;; site-packages directory.
(lambda* (#:key inputs outputs #:allow-other-keys)
(substitute* "python/CMakeLists.txt"
(("--root=\\\\\\$ENV\\{DESTDIR\\}")
(string-append "--root=/ --single-version-externally-managed "
"--prefix=${CMAKE_INSTALL_PREFIX}")))))
(add-after 'unpack 'specify-runpath-for-python-module
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(substitute* "python/setup.py.in"
(("extra_link_args=\\[(.*)\\]" _ args)
(string-append "extra_link_args=[" args
", '-Wl,-rpath=" out "/lib']"))))))
(add-after 'install 'move-and-wrap-tools
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(tools (assoc-ref outputs "tools"))
(site-packages (python:site-packages inputs outputs)))
(mkdir tools)
(rename-file (string-append out "/bin")
(string-append tools "/bin"))
(wrap-program (string-append tools "/bin/dhtcluster")
`("PYTHONPATH" prefix (,site-packages)))))))))
(home-page "https://github.com/savoirfairelinux/opendht/")
(synopsis "Distributed Hash Table (DHT) library")
(description "OpenDHT is a Distributed Hash Table (DHT) library. It may
be used to manage peer-to-peer network connections as needed for real time
communication.")
(synopsis "Lightweight Distributed Hash Table (DHT) library")
(description "OpenDHT provides an easy to use distributed in-memory data
store. Every node in the network can read and write values to the store.
Values are distributed over the network, with redundancy. It includes the
following features:
@itemize
@item Lightweight and scalable, designed for large networks and small devices;
@item High resilience to network disruption;
@item Public key cryptography layer providing optional data signature and
encryption (using GnuTLS);
@item IPv4 and IPv6 support;
@item Clean and powerful C++14 map API;
@item Bindings for C, Rust & Python 3;
@item REST API with an optional HTTP client and server with push notification
support.
@end itemize
The following tools are also included:
@table @command
@item dhtnode
A command line tool to run a DHT node and perform operations supported by the
library (get, put, etc.) with text values.
@item dhtchat
A very simple IM client working over the DHT.
@end table")
(license license:gpl3+)))
(define-public frrouting
@ -3542,28 +3599,26 @@ protocol daemons for BGP, IS-IS, LDP, OSPF, PIM, and RIP. ")
(define-public iwd
(package
(name "iwd")
(version "0.21")
(version "1.14")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://git.kernel.org/pub/scm/network/wireless/iwd.git")
(commit version)))
(file-name (git-file-name name version))
;; FIXME: We're using the bootstrapped sources because
;; otherwise using an external ell library is impossible.
;; How to bootstrap with Guix?
(method url-fetch)
(uri (string-append "https://www.kernel.org/pub/linux/network"
"/wireless/iwd-" version ".tar.xz"))
(sha256
(base32
"001dikinsa6kshwscjbvwipavzwpqnpvx9fpshcn63gbvbhyd393"))))
"02vz4lyd6vq3vcii357ljqprnas78zb8j670a0gblrm6kganmgi1"))))
(build-system gnu-build-system)
(inputs
`(("dbus" ,dbus)
("ell" ,ell)
("readline" ,readline)))
(native-inputs
`(("asciidoc" ,asciidoc)
("autoconf" ,autoconf)
("automake" ,automake)
("libtool" ,libtool)
("pkgconfig" ,pkg-config)
`(("pkgconfig" ,pkg-config)
("python" ,python)
("rst2man" ,python-docutils)
("openssl" ,openssl)))
(arguments
`(#:configure-flags
@ -3573,22 +3628,17 @@ protocol daemons for BGP, IS-IS, LDP, OSPF, PIM, and RIP. ")
"--enable-hwsim"
"--enable-tools"
"--enable-wired"
"--enable-docs"
"--localstatedir=/var"
(string-append "--with-dbus-datadir=" dbus "/share/")
(string-append "--with-dbus-busdir="
dbus "/share/dbus-1/system-services")))
#:phases
(modify-phases %standard-phases
(add-before 'bootstrap 'pre-bootstrap
(add-after 'configure 'patch-Makefile
(lambda _
(substitute* "Makefile.am"
;; Test disabled because it needs the kernel module
;; 'pkcs8_key_parser' loaded.
(("unit\\/test-eapol.*? ") "")
(substitute* "Makefile"
;; Don't try to 'mkdir /var'.
(("\\$\\(MKDIR_P\\) -m 700") "true"))
#t)))))
(("\\$\\(MKDIR_P\\) -m 700") "true")))))))
(home-page "https://git.kernel.org/pub/scm/network/wireless/iwd.git/")
(synopsis "Internet Wireless Daemon")
(description "iwd is a wireless daemon for Linux that aims to replace WPA

11
gnu/packages/ntp.scm
View File

@ -6,6 +6,7 @@
;;; Copyright © 2016, 2017, 2018 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018–2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2021 Marius Bakke <marius@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -122,6 +123,16 @@ time-stamping or reference clock, sub-microsecond accuracy is possible.")
"/ntp-" version ".tar.gz")))
(sha256
(base32 "06cwhimm71safmwvp6nhxp6hvxsg62whnbgbgiflsqb8mgg40n7n"))
;; Add an upstream patch to fix build with GCC 10. Taken from
;; <https://bugs.ntp.org/show_bug.cgi?id=3688>.
(patches (list (origin
(method url-fetch)
(uri "https://bugs.ntp.org/attachment.cgi?id=1760\
&action=diff&context=patch&collapsed=&headers=1&format=raw")
(file-name "ntp-gcc-compat.patch")
(sha256
(base32
"13d28sg45rflc7kqiv30asrhna8n69wlpwx16l65rravgpvp90h2")))))
(modules '((guix build utils)))
(snippet
'(begin

10
gnu/packages/package-management.scm
View File

@ -132,8 +132,8 @@
;; Note: the 'update-guix-package.scm' script expects this definition to
;; start precisely like this.
(let ((version "1.3.0")
(commit "771b866c55e5f992df60f6c32f5fdd78b64e17f6")
(revision 1))
(commit "9f2b2c432b834c8057ce2f4119599d36197bc063")
(revision 2))
(package
(name "guix")
@ -149,7 +149,7 @@
(commit commit)))
(sha256
(base32
"0w8w05w6v3lc6478vfw67jzn0hbd9nsncpx9i9ch1lck53r8vs44"))
"09w6b4hqcxaj6x1q6m1q8vlp4dyk6anfv8p6mfwmpqis81cspphn"))
(file-name (string-append "guix-" version "-checkout"))))
(build-system gnu-build-system)
(arguments
@ -620,14 +620,14 @@ out) and returning a package that uses that as its 'source'."
(define-public nix
(package
(name "nix")
(version "2.3.10")
(version "2.3.11")
(source (origin
(method url-fetch)
(uri (string-append "https://nixos.org/releases/nix/nix-"
version "/nix-" version ".tar.xz"))
(sha256
(base32
"1axphwkx270c10bjyn4icq9wlx46npgnw0qkpymigl23vramxa58"))))
"0a61c5d7g07iqi5hksq497y93ivr32zhnrz6c4aqp9q5afcxga49"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags '("--sysconfdir=/etc" "--enable-gc")

50
gnu/packages/patches/autotrace-glib-compat.patch 100644
View File

@ -0,0 +1,50 @@
Fix build with GLib 2.68 and later.
Taken from upstream pull request:
https://github.com/autotrace/autotrace/pull/41
diff --git a/src/autotrace.h b/src/autotrace.h
--- a/src/autotrace.h
+++ b/src/autotrace.h
@@ -23,6 +23,9 @@
#include <stdio.h>
+#include "types.h"
+#include "color.h"
+
#ifdef __cplusplus
extern "C" {
#endif /* __cplusplus */
@@ -35,9 +38,6 @@ extern "C" {
* Typedefs
* ===================================================================== */
-#include "types.h"
-#include "color.h"
-
/* Third degree is the highest we deal with. */
enum _at_polynomial_degree {
AT_LINEARTYPE = 1,
diff --git a/src/color.h b/src/color.h
--- a/src/color.h
+++ b/src/color.h
@@ -24,6 +24,10 @@
#include <glib.h>
#include <glib-object.h>
+#ifdef __cplusplus
+extern "C" {
+#endif /* __cplusplus */
+
typedef struct _at_color at_color;
struct _at_color {
guint8 r;
@@ -43,4 +47,7 @@ void at_color_free(at_color * color);
GType at_color_get_type(void);
#define AT_TYPE_COLOR (at_color_get_type ())
+#ifdef __cplusplus
+}
+#endif /* __cplusplus */
#endif /* not AT_COLOR_H */

77
gnu/packages/patches/disarchive-cross-compilation.patch 100644
View File

@ -0,0 +1,77 @@
From dc0f8f8bf8608c39da32e3c8ca1484b766fc7452 Mon Sep 17 00:00:00 2001
From: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Date: Mon, 17 May 2021 16:47:19 -0400
Subject: [PATCH] build: Fix cross-compilation.
The cross-compilation issues corrected by this change were discovered
when attempting to cross-compile disarchive for the i586-gnu target on
GNU Guix.
* configure.ac [O_NOFOLLOW]: Rewrite test using AC_COMPUTE_INT, which
is supported even when cross-compiling.
(GUILD_TARGET_OPTION): New computed variable.
* build-aux/guile.am ($(AM_V_GUILEC)GUILE_AUTO_COMPILE): Use it.
---
build-aux/guile.am | 6 +++---
configure.ac | 24 +++++++++++++++---------
2 files changed, 18 insertions(+), 12 deletions(-)
diff --git a/build-aux/guile.am b/build-aux/guile.am
index bec04ea..7745125 100644
--- a/build-aux/guile.am
+++ b/build-aux/guile.am
@@ -54,7 +54,7 @@ AM_V_GUILEC_0 = @echo " GUILEC" $@;
SUFFIXES = .scm .go
.scm.go:
- $(AM_V_GUILEC)GUILE_AUTO_COMPILE=0 \
- $(top_builddir)/pre-inst-env \
- $(GUILD) compile $(GUILE_WARNINGS) \
+ $(AM_V_GUILEC)GUILE_AUTO_COMPILE=0 \
+ $(top_builddir)/pre-inst-env \
+ $(GUILD) compile $(GUILE_WARNINGS) $(GUILD_TARGET_OPTION) \
-o "$@" "$<"
diff --git a/configure.ac b/configure.ac
index 99c5ac5..0cd0173 100644
--- a/configure.ac
+++ b/configure.ac
@@ -39,21 +39,27 @@ AS_IF([test "x$GUILD" = "x"],
[AC_MSG_ERROR(m4_normalize([
'guild' binary not found; please check your Guile installation.]))])])
+dnl This argument is passed to guild; it ensures cross-compiling uses
+dnl the right target.
+if test -n "$host_alias"; then
+ AC_SUBST([GUILD_TARGET_OPTION], [--target=$host_alias])
+fi
+
GUILE_MODULE_REQUIRED(gcrypt hash)
dnl Guile defines a handful of values from <fcntl.h>, but it is
dnl missing O_NOFOLLOW.
AC_ARG_VAR([O_NOFOLLOW], [value to use for O_NOFOLLOW (cf. <fcntl.h>)])
AS_IF([test "x$O_NOFOLLOW" = "x"],
- [AC_MSG_CHECKING([the value of O_NOFOLLOW])
- AC_RUN_IFELSE([AC_LANG_PROGRAM([[
- #include <fcntl.h>
- #include <stdio.h>
- ]], [[
- printf("%d\n", O_NOFOLLOW)
- ]])],
- [O_NOFOLLOW=`./conftest$EXEEXT`],
- [AC_MSG_FAILURE([could find value for O_NOFOLLOW])])])
+ [AC_MSG_CHECKING([the value of O_NOFOLLOW])]
+ [AC_COMPUTE_INT([O_NOFOLLOW],
+ [O_NOFOLLOW],
+ [[
+ #include <fcntl.h>
+ #include <stdio.h>
+ ]],
+ [AC_MSG_FAILURE([could find value for O_NOFOLLOW])])]
+ [AC_MSG_RESULT([$O_NOFOLLOW])])
AC_ARG_VAR([TAR], [tar utility])
AS_IF([test "x$TAR" = "x"], [AC_PATH_PROG([TAR], [tar])])
--
2.31.1

49
gnu/packages/patches/graphviz-CVE-2020-18032.patch 100644
View File

@ -0,0 +1,49 @@
Fix CVE-2020-18032:
https://cve.mitre.org/cgi-bin/cvename.cgi?name=2020-18032
https://gitlab.com/graphviz/graphviz/-/issues/1700
Patch copied from upstream source repository:
https://gitlab.com/graphviz/graphviz/-/commit/784411ca3655c80da0f6025ab20634b2a6ff696b
From 784411ca3655c80da0f6025ab20634b2a6ff696b Mon Sep 17 00:00:00 2001
From: Matthew Fernandez <matthew.fernandez@gmail.com>
Date: Sat, 25 Jul 2020 19:31:01 -0700
Subject: [PATCH] fix: out-of-bounds write on invalid label
When the label for a node cannot be parsed (due to it being malformed), it falls
back on the symbol name of the node itself. I.e. the default label the node
would have had if it had no label attribute at all. However, this is applied by
dynamically altering the node's label to "\N", a shortcut for the symbol name of
the node. All of this is fine, however if the hand written label itself is
shorter than the literal string "\N", not enough memory would have been
allocated to write "\N" into the label text.
Here we account for the possibility of error during label parsing, and assume
that the label text may need to be overwritten with "\N" after the fact. Fixes
issue #1700.
---
lib/common/shapes.c | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/lib/common/shapes.c b/lib/common/shapes.c
index 0a0635fc3..9dca9ba6e 100644
--- a/lib/common/shapes.c
+++ b/lib/common/shapes.c
@@ -3546,9 +3546,10 @@ static void record_init(node_t * n)
reclblp = ND_label(n)->text;
len = strlen(reclblp);
/* For some forgotten reason, an empty label is parsed into a space, so
- * we need at least two bytes in textbuf.
+ * we need at least two bytes in textbuf, as well as accounting for the
+ * error path involving "\\N" below.
*/
- len = MAX(len, 1);
+ len = MAX(MAX(len, 1), (int)strlen("\\N"));
textbuf = N_NEW(len + 1, char);
if (!(info = parse_reclbl(n, flip, TRUE, textbuf))) {
agerr(AGERR, "bad label format %s\n", ND_label(n)->text);
--
2.31.1

61
gnu/packages/patches/libblockdev-glib-compat.patch 100644
View File

@ -0,0 +1,61 @@
Don't use g_memdup() which is removed in newer versions of GLib.
See <https://github.com/storaged-project/libblockdev/pull/623>.
Taken from upstream:
https://github.com/storaged-project/libblockdev/commit/5528baef6ccc835a06c45f9db34a2c9c3f2dd940
diff --git a/src/lib/plugin_apis/vdo.api b/src/lib/plugin_apis/vdo.api
--- a/src/lib/plugin_apis/vdo.api
+++ b/src/lib/plugin_apis/vdo.api
@@ -170,7 +170,22 @@ void bd_vdo_stats_free (BDVDOStats *stats) {
* Deprecated: 2.24: Use LVM-VDO integration instead.
*/
BDVDOStats* bd_vdo_stats_copy (BDVDOStats *stats) {
- return g_memdup (stats, sizeof (BDVDOStats));
+ if (stats == NULL)
+ return NULL;
+
+ BDVDOStats *new_stats = g_new0 (BDVDOStats, 1);
+
+ new_stats->block_size = stats->block_size;
+ new_stats->logical_block_size = stats->logical_block_size;
+ new_stats->physical_blocks = stats->physical_blocks;
+ new_stats->data_blocks_used = stats->data_blocks_used;
+ new_stats->overhead_blocks_used = stats->overhead_blocks_used;
+ new_stats->logical_blocks_used = stats->logical_blocks_used;
+ new_stats->used_percent = stats->used_percent;
+ new_stats->saving_percent = stats->saving_percent;
+ new_stats->write_amplification_ratio = stats->write_amplification_ratio;
+
+ return new_stats;
}
GType bd_vdo_stats_get_type () {
diff --git a/src/plugins/vdo.c b/src/plugins/vdo.c
--- a/src/plugins/vdo.c
+++ b/src/plugins/vdo.c
@@ -81,7 +81,22 @@ void bd_vdo_stats_free (BDVDOStats *stats) {
}
BDVDOStats* bd_vdo_stats_copy (BDVDOStats *stats) {
- return g_memdup (stats, sizeof (BDVDOStats));
+ if (stats == NULL)
+ return NULL;
+
+ BDVDOStats *new_stats = g_new0 (BDVDOStats, 1);
+
+ new_stats->block_size = stats->block_size;
+ new_stats->logical_block_size = stats->logical_block_size;
+ new_stats->physical_blocks = stats->physical_blocks;
+ new_stats->data_blocks_used = stats->data_blocks_used;
+ new_stats->overhead_blocks_used = stats->overhead_blocks_used;
+ new_stats->logical_blocks_used = stats->logical_blocks_used;
+ new_stats->used_percent = stats->used_percent;
+ new_stats->saving_percent = stats->saving_percent;
+ new_stats->write_amplification_ratio = stats->write_amplification_ratio;
+
+ return new_stats;
}

129
gnu/packages/patches/libxml2-xpath0-Add-option-xpath0.patch 100644
View File

@ -0,0 +1,129 @@
This patch adds an "--xpath0" option to xmllint so that NUL characters
can be used as separators.
See <https://gitlab.gnome.org/GNOME/libxml2/-/issues/227>.
diff --git a/doc/xmllint.xml b/doc/xmllint.xml
--- a/doc/xmllint.xml
+++ b/doc/xmllint.xml
@@ -70,6 +70,7 @@
<arg choice="plain"><option>--debug</option></arg>
<arg choice="plain"><option>--shell</option></arg>
<arg choice="plain"><option>--xpath "<replaceable class="option">XPath_expression</replaceable>"</option></arg>
+ <arg choice="plain"><option>--xpath0 "<replaceable class="option">XPath_expression</replaceable>"</option></arg>
<arg choice="plain"><option>--debugent</option></arg>
<arg choice="plain"><option>--copy</option></arg>
<arg choice="plain"><option>--recover</option></arg>
@@ -537,6 +538,21 @@
node set is serialized in full in the output. In case
of an empty node set the "XPath set is empty" result
will be shown and an error exit code will be returned.
+ Results are separated by the newline character.
+ </para>
+ </listitem>
+ </varlistentry>
+
+ <varlistentry>
+ <term><option>--xpath0 "<replaceable class="option">XPath_expression</replaceable>"</option></term>
+ <listitem>
+ <para>
+ Run an XPath expression given as argument and print the
+ result. In case of a nodeset result, each node in the
+ node set is serialized in full in the output. In case
+ of an empty node set the "XPath set is empty" result
+ will be shown and an error exit code will be returned.
+ Results are separated by the null character.
</para>
</listitem>
</varlistentry>
diff --git a/xmllint.c b/xmllint.c
--- a/xmllint.c
+++ b/xmllint.c
@@ -194,6 +194,7 @@ static int sax1 = 0;
#endif /* LIBXML_SAX1_ENABLED */
#ifdef LIBXML_XPATH_ENABLED
static const char *xpathquery = NULL;
+static const char *xpathsep = "\n";
#endif
static int options = XML_PARSE_COMPACT | XML_PARSE_BIG_LINES;
static int sax = 0;
@@ -2095,7 +2096,7 @@ static void doXPathDump(xmlXPathObjectPtr cur) {
for (i = 0;i < cur->nodesetval->nodeNr;i++) {
node = cur->nodesetval->nodeTab[i];
xmlNodeDumpOutput(buf, NULL, node, 0, 0, NULL);
- xmlOutputBufferWrite(buf, 1, "\n");
+ xmlOutputBufferWrite(buf, 1, xpathsep);
}
xmlOutputBufferClose(buf);
#else
@@ -2104,27 +2105,27 @@ static void doXPathDump(xmlXPathObjectPtr cur) {
break;
}
case XPATH_BOOLEAN:
- if (cur->boolval) printf("true\n");
- else printf("false\n");
+ if (cur->boolval) printf("true%s", xpathsep);
+ else printf("false%s", xpathsep);
break;
case XPATH_NUMBER:
switch (xmlXPathIsInf(cur->floatval)) {
case 1:
- printf("Infinity\n");
+ printf("Infinity%s", xpathsep);
break;
case -1:
- printf("-Infinity\n");
+ printf("-Infinity%s", xpathsep);
break;
default:
if (xmlXPathIsNaN(cur->floatval)) {
- printf("NaN\n");
+ printf("NaN%s", xpathsep);
} else {
- printf("%0g\n", cur->floatval);
+ printf("%0g%s", cur->floatval, xpathsep);
}
}
break;
case XPATH_STRING:
- printf("%s\n", (const char *) cur->stringval);
+ printf("%s%s", (const char *) cur->stringval, xpathsep);
break;
case XPATH_UNDEFINED:
fprintf(stderr, "XPath Object is uninitialized\n");
@@ -3098,7 +3099,8 @@ static void usage(FILE *f, const char *name) {
fprintf(f, "\t--sax: do not build a tree but work just at the SAX level\n");
fprintf(f, "\t--oldxml10: use XML-1.0 parsing rules before the 5th edition\n");
#ifdef LIBXML_XPATH_ENABLED
- fprintf(f, "\t--xpath expr: evaluate the XPath expression, imply --noout\n");
+ fprintf(f, "\t--xpath expr: evaluate the XPath expression, results are separated by \\n, imply --noout\n");
+ fprintf(f, "\t--xpath0 expr: evaluate the XPath expression, results are separated by \\0, imply --noout\n");
#endif
fprintf(f, "\nLibxml project home page: http://xmlsoft.org/\n");
@@ -3480,6 +3482,13 @@ main(int argc, char **argv) {
i++;
noout++;
xpathquery = argv[i];
+ xpathsep = "\n";
+ } else if ((!strcmp(argv[i], "-xpath0")) ||
+ (!strcmp(argv[i], "--xpath0"))) {
+ i++;
+ noout++;
+ xpathquery = argv[i];
+ xpathsep = "\0";
#endif
} else if ((!strcmp(argv[i], "-oldxml10")) ||
(!strcmp(argv[i], "--oldxml10"))) {
@@ -3712,6 +3721,11 @@ main(int argc, char **argv) {
i++;
continue;
}
+ if ((!strcmp(argv[i], "-xpath0")) ||
+ (!strcmp(argv[i], "--xpath0"))) {
+ i++;
+ continue;
+ }
#endif
if ((timing) && (repeat))
startTimer();

29
gnu/packages/patches/mercurial-hg-extension-path.patch 100644
View File

@ -0,0 +1,29 @@
This is needed to make Mercurial read the HGEXTENSIONPATH to detect
third-party extensions. It is called HGEXTENSIONPATH and not
HG_EXTENSION_PATH to keep it consistent with other environment variables for
Mercurial, e.g. HGENCODINGAMBIGUOUS, HGEDITOR ... Hopefully I or someone else
will get this into Mercurial proper.
diff --git a/mercurial/extensions.py b/mercurial/extensions.py
--- a/mercurial/extensions.py
+++ b/mercurial/extensions.py
@@ -13,6 +13,7 @@
import imp
import inspect
import os
+import sys
from .i18n import (
_,
@@ -108,6 +109,11 @@
def _importh(name):
"""import and return the <name> module"""
+ # Read HGEXTENSIONSPATH environment variable when import extensions.
+ extension_path = os.getenv("HGEXTENSIONSPATH")
+ if extension_path is not None:
+ for path in extension_path:
+ sys.path.append(path)
mod = __import__(pycompat.sysstr(name))
components = name.split(b'.')
for comp in components[1:]:

11
gnu/packages/patches/pinball-const-fix.patch
View File

@ -1,11 +0,0 @@
--- pinball-0.3.1/base/Config.cpp 2009-10-13 18:33:38.000000000 +0200
+++ pinball-0.3.1/base/Config.cpp 2009-10-13 18:37:12.000000000 +0200
@@ -416,7 +416,7 @@
m_sDataDir = string(EM_DATADIR) + "/";
m_sExeDir = "./";
if ( *( m_sDataDir.c_str() ) != '/' ) {
- char* ptr=0;
+ const char* ptr=0;
char* ptrw = 0;
//cout<<"relative to exe file"<<endl;
ptr = (strrchr(argv0,'/')); // unix /cygwin / check win32

38
gnu/packages/patches/pinball-cstddef.patch
View File

@ -1,38 +0,0 @@
Description: Add missing inlcudes of cstddef, fixing FTBFS13.1
Author: Regis Boudin <regis@debian.org>
Bug-Debian: http://bugs.debian.org/624953
Bug-Debian: http://bugs.debian.org/640726
--- pinball-0.3.1/base/Behavior.cpp
+++ pinball-0.3.1/base/Behavior.cpp
@@ -10,6 +10,8 @@
#include "Behavior.h"
#include "Group.h"
+#include <cstddef>
+
Behavior::Behavior() {
//EM_COUT("Behavior::Behavior", 1);
p_Light = NULL;
--- pinball-0.3.1/base/SignalSender.cpp
+++ pinball-0.3.1/base/SignalSender.cpp
@@ -12,6 +12,8 @@
#include "Group.h"
#include "Behavior.h"
+#include <cstddef>
+
SignalSender * SignalSender::p_SignalSender = NULL;
SignalSender::SignalSender() {
--- pinball-0.3.1/base/BehaviorVisitor.cpp
+++ pinball-0.3.1/base/BehaviorVisitor.cpp
@@ -10,6 +10,8 @@
#include "Behavior.h"
#include "Group.h"
+#include <cstddef>
+
BehaviorVisitor * BehaviorVisitor::p_BehaviorVisitor = NULL;
BehaviorVisitor::BehaviorVisitor() {

101
gnu/packages/patches/pinball-missing-separators.patch
View File

@ -1,101 +0,0 @@
From: Markus Koschany <apo@gambaru.de>
Date: Sun, 3 Aug 2014 22:50:46 +0200
Subject: missing separators
Bug: https://bugs.debian.org/750082
---
src/Makefile.am | 14 +++++++-------
src/Makefile.in | 14 +++++++-------
test/Makefile.am | 2 +-
test/Makefile.in | 2 +-
4 files changed, 16 insertions(+), 16 deletions(-)
diff --git a/src/Makefile.am b/src/Makefile.am
index fbd7e8f..96768d3 100755
--- a/src/Makefile.am
+++ b/src/Makefile.am
@@ -29,7 +29,7 @@ Script.cpp \
StateBehavior.cpp \
Table.cpp
-dnl libemilia_pin_la_SOURCES = $(libemilia_pin_a_SOURCES)
+# libemilia_pin_la_SOURCES = $(libemilia_pin_a_SOURCES)
pininclude_HEADERS = \
ArmBehavior.h \
@@ -56,10 +56,10 @@ Table.h
# libemilia_pin.a libemilia_addon.a libemilia_base.a libltdlc.a
wpinball.exe: ${pinball_OBJECTS} ${pinball_DEPENDENCIES}
${GCCLOCALDIR}g++ -g -W -Wall -O2 -o$@ $^ \
- -lSDL_mixer -lvorbisfile -lvorbis -logg -lsmpeg \
- -lSDL_image -lSDLmain -lSDL \
- -lglu32 -lopengl32 -ljpeg -lpng \
- -lwinmm -luser32 -lgdi32 -ldxguid \
- -lmingw32 -lSDLmain -lSDL -mwindows \
- -L${GCCLOCALDIR}../lib
+ -lSDL_mixer -lvorbisfile -lvorbis -logg -lsmpeg \
+ -lSDL_image -lSDLmain -lSDL \
+ -lglu32 -lopengl32 -ljpeg -lpng \
+ -lwinmm -luser32 -lgdi32 -ldxguid \
+ -lmingw32 -lSDLmain -lSDL -mwindows \
+ -L${GCCLOCALDIR}../lib
# !-rzr : # have to solve it later # -lstdc++
diff --git a/src/Makefile.in b/src/Makefile.in
index ea7651b..8e95cd6 100644
--- a/src/Makefile.in
+++ b/src/Makefile.in
@@ -505,7 +505,7 @@ uninstall-am: uninstall-binPROGRAMS uninstall-info-am \
uninstall-pinincludeHEADERS uninstall-pinlibLIBRARIES
-dnl libemilia_pin_la_SOURCES = $(libemilia_pin_a_SOURCES)
+ dnl libemilia_pin_la_SOURCES = $(libemilia_pin_a_SOURCES)
# !+rzr : This trick workaround a bad generated rule (under Linux mingw32)
# src/ litool returns: -L/usr/local//lib /usr/lib/libjpeg.so
@@ -514,12 +514,12 @@ dnl libemilia_pin_la_SOURCES = $(libemilia_pin_a_SOURCES)
# libemilia_pin.a libemilia_addon.a libemilia_base.a libltdlc.a
wpinball.exe: ${pinball_OBJECTS} ${pinball_DEPENDENCIES}
${GCCLOCALDIR}g++ -g -W -Wall -O2 -o$@ $^ \
- -lSDL_mixer -lvorbisfile -lvorbis -logg -lsmpeg \
- -lSDL_image -lSDLmain -lSDL \
- -lglu32 -lopengl32 -ljpeg -lpng \
- -lwinmm -luser32 -lgdi32 -ldxguid \
- -lmingw32 -lSDLmain -lSDL -mwindows \
- -L${GCCLOCALDIR}../lib
+ -lSDL_mixer -lvorbisfile -lvorbis -logg -lsmpeg \
+ -lSDL_image -lSDLmain -lSDL \
+ -lglu32 -lopengl32 -ljpeg -lpng \
+ -lwinmm -luser32 -lgdi32 -ldxguid \
+ -lmingw32 -lSDLmain -lSDL -mwindows \
+ -L${GCCLOCALDIR}../lib
# !-rzr : # have to solve it later # -lstdc++
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
diff --git a/test/Makefile.am b/test/Makefile.am
index d87cf34..ea3ffc9 100755
--- a/test/Makefile.am
+++ b/test/Makefile.am
@@ -4,7 +4,7 @@ testlibdir = $(EM_LIBDIR)
testdatadir = $(pkgdatadir)
noinst_PROGRAMS = scale simple light texture load explode collision signal billboard font thread menu joy sound trans math misc varray unittest
-dnl noinst_PROGRAMS = unittest
+# noinst_PROGRAMS = unittest
INCLUDES = -I../base -I../addon -I../src @INCLTDL@
LDADD = ../src/libemilia_pin.a ../addon/libemilia_addon.a ../base/libemilia_base.a @LIBLTDL@
diff --git a/test/Makefile.in b/test/Makefile.in
index 6ba2646..47654dc 100644
--- a/test/Makefile.in
+++ b/test/Makefile.in
@@ -621,7 +621,7 @@ uninstall-am: uninstall-info-am uninstall-testlibLTLIBRARIES
mostlyclean-generic mostlyclean-libtool tags uninstall \
uninstall-am uninstall-info-am uninstall-testlibLTLIBRARIES
-dnl noinst_PROGRAMS = unittest
+# noinst_PROGRAMS = unittest
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:

24
gnu/packages/patches/pinball-src-deps.patch
View File

@ -1,24 +0,0 @@
Fixes error during make:
"No rule to make target '../src/libemilia_pin.a', needed by 'pinball'. Stop."
--- pinball-0.3.1/src/Makefile.in 2003-12-10 05:34:47.000000000 -0600
+++ pinball-0.3.1/src/Makefile.in 2016-01-31 22:29:13.134519889 -0600
@@ -116,7 +116,7 @@
INCLUDES = -I../base -I../addon @INCLTDL@
-pinball_LDADD = ../src/libemilia_pin.a ../addon/libemilia_addon.a ../base/libemilia_base.a @LIBLTDL@
+pinball_LDADD = libemilia_pin.a ../addon/libemilia_addon.a ../base/libemilia_base.a @LIBLTDL@
pinball_LDFLAGS = -export-dynamic
pinball_SOURCES = Pinball.cpp
@@ -174,7 +174,7 @@
am_pinball_OBJECTS = Pinball.$(OBJEXT)
pinball_OBJECTS = $(am_pinball_OBJECTS)
-pinball_DEPENDENCIES = ../src/libemilia_pin.a ../addon/libemilia_addon.a \
+pinball_DEPENDENCIES = libemilia_pin.a ../addon/libemilia_addon.a \
../base/libemilia_base.a
DEFS = @DEFS@

24
gnu/packages/patches/pinball-system-ltdl.patch
View File

@ -1,18 +1,10 @@
--- pinball-0.3.1/configure.ac 2010-01-14 17:26:25.000000000 +0100
+++ pinball-0.3.1/configure.ac 2010-01-14 17:26:25.000000000 +0100
@@ -22,14 +22,12 @@
[ --with-cxxflags=CXXFLAGS use CXXFLAGS as compile time arguments.],
[CXXFLAGS=$with_cxxflags; export CXXFLAGS])
--- a/Makefile.am
+++ b/Makefile.am
@@ -1,6 +1,6 @@
AUTOMAKE_OPTIONS = gnu
-AC_CONFIG_SUBDIRS(libltdl)
-
dnl Checks for programs.
AC_PROG_CC
AC_PROG_CXX
AC_PROG_INSTALL
AC_LIBTOOL_DLOPEN
-AC_LIBLTDL_CONVENIENCE
+LTDL_INIT
AC_PROG_LIBTOOL
-SUBDIRS = libltdl addon base data src test
+SUBDIRS = addon base data src test
EXTRA_DIST = bootstrap pinball.spec clean pinball.desktop
AC_SUBST(INCLTDL)

35
gnu/packages/patches/rxvt-unicode-escape-sequences.patch
View File

@ -1,35 +0,0 @@
This patch prevents a code execution vector involving terminal escape
sequences when rxvt-unicode is in "secure mode".
This change was spurred by the following conversation on the
oss-security mailing list:
Problem description and proof of concept:
http://seclists.org/oss-sec/2017/q2/190
Upstream response:
http://seclists.org/oss-sec/2017/q2/291
Patch copied from upstream source repository:
http://cvs.schmorp.de/rxvt-unicode/src/command.C?r1=1.582&r2=1.583
--- rxvt-unicode/src/command.C 2016/07/14 05:33:26 1.582
+++ rxvt-unicode/src/command.C 2017/05/18 02:43:18 1.583
@@ -2695,7 +2695,7 @@
/* kidnapped escape sequence: Should be 8.3.48 */
case C1_ESA: /* ESC G */
// used by original rxvt for rob nations own graphics mode
- if (cmd_getc () == 'Q')
+ if (cmd_getc () == 'Q' && option (Opt_insecure))
tt_printf ("\033G0\012"); /* query graphics - no graphics */
break;
@@ -2914,7 +2914,7 @@
break;
case CSI_CUB: /* 8.3.18: (1) CURSOR LEFT */
- case CSI_HPB: /* 8.3.59: (1) CHARACTER POSITION BACKWARD */
+ case CSI_HPB: /* 8.3.59: (1) CHARACTER POSITION BACKWARD */
#ifdef ISO6429
arg[0] = -arg[0];
#else /* emulate common DEC VTs */

41
gnu/packages/patches/ucx-tcp-iface-ioctl.patch
View File

@ -4,29 +4,29 @@ provides alternative code that uses the SIOCGIFCONF ioctl to get the
names of the available TCP network interfaces.
diff --git a/src/uct/tcp/tcp_iface.c b/src/uct/tcp/tcp_iface.c
index 81ad459..10024a6 100644
index cad4a2709..7c1d2c9de 100644
--- a/src/uct/tcp/tcp_iface.c
+++ b/src/uct/tcp/tcp_iface.c
@@ -12,6 +12,8 @@
@@ -17,6 +17,8 @@
#include <sys/poll.h>
#include <netinet/tcp.h>
#include <dirent.h>
+#include <net/if.h>
+#include <sys/ioctl.h>
static ucs_config_field_t uct_tcp_iface_config_table[] = {
{"", "MAX_SHORT=8k", NULL,
@@ -483,6 +485,70 @@ static UCS_CLASS_DEFINE_NEW_FUNC(uct_tcp_iface_t, uct_iface_t, uct_md_h,
extern ucs_class_t UCS_CLASS_DECL_NAME(uct_tcp_iface_t);
@@ -586,6 +588,68 @@ static UCS_CLASS_DEFINE_NEW_FUNC(uct_tcp_iface_t, uct_iface_t, uct_md_h,
uct_worker_h, const uct_iface_params_t*,
const uct_iface_config_t*);
+/* Fetch information about available network devices through an ioctl. */
+static ucs_status_t query_devices_ioctl(uct_md_h md,
+ uct_tl_resource_desc_t **resource_p,
+ unsigned *num_resources_p)
+ uct_tl_device_resource_t **tl_devices_p,
+ unsigned *num_tl_devices_p)
+{
+ int sock, err, i;
+ uct_tl_resource_desc_t *resources, *tmp;
+ uct_tl_device_resource_t *resources, *tmp;
+ unsigned num_resources;
+ ucs_status_t status;
+ struct ifconf conf;
@ -67,16 +67,14 @@ index 81ad459..10024a6 100644
+ }
+ resources = tmp;
+
+ ucs_snprintf_zero(resources[i].tl_name, sizeof(resources[i].tl_name),
+ "%s", UCT_TCP_NAME);
+ ucs_snprintf_zero(resources[i].dev_name, sizeof(resources[i].dev_name),
+ ucs_snprintf_zero(resources[i].name, sizeof(resources[i].name),
+ "%s", name);
+ resources[i].dev_type = UCT_DEVICE_TYPE_NET;
+ resources[i].type = UCT_DEVICE_TYPE_NET;
+ ++num_resources;
+ }
+
+ *num_resources_p = num_resources;
+ *resource_p = resources;
+ *num_tl_devices_p = num_resources;
+ *tl_devices_p = resources;
+ status = UCS_OK;
+
+out:
@ -84,10 +82,10 @@ index 81ad459..10024a6 100644
+ return status;
+}
+
static ucs_status_t uct_tcp_query_tl_resources(uct_md_h md,
uct_tl_resource_desc_t **resource_p,
unsigned *num_resources_p)
@@ -496,9 +562,9 @@ static ucs_status_t uct_tcp_query_tl_resources(uct_md_h md,
ucs_status_t uct_tcp_query_devices(uct_md_h md,
uct_tl_device_resource_t **devices_p,
unsigned *num_devices_p)
@@ -599,9 +663,9 @@ ucs_status_t uct_tcp_query_devices(uct_md_h md,
dir = opendir(netdev_dir);
if (dir == NULL) {
@ -96,14 +94,15 @@ index 81ad459..10024a6 100644
- goto out;
+ /* When /sys is unavailable, as can be the case in a container,
+ * resort to a good old 'ioctl'. */
+ return query_devices_ioctl(md, resource_p, num_resources_p);
+ return query_devices_ioctl(md, devices_p, num_devices_p);
}
resources = NULL;
@@ -543,6 +609,5 @@ static ucs_status_t uct_tcp_query_tl_resources(uct_md_h md,
devices = NULL;
@@ -655,7 +719,6 @@ ucs_status_t uct_tcp_query_devices(uct_md_h md,
out_closedir:
closedir(dir);
-out:
return status;
}

6
gnu/packages/perl-compression.scm
View File

@ -3,7 +3,7 @@
;;; Copyright © 2015 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2016, 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017 Petter <petter@mykolab.ch>
;;; Copyright © 2017, 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017, 2019, 2021 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;;
@ -170,14 +170,14 @@ in the format used by the @command{gzip} program.")
(define-public perl-archive-extract
(package
(name "perl-archive-extract")
(version "0.86")
(version "0.88")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://cpan/authors/id/B/BI/BINGOS/Archive-Extract-"
version ".tar.gz"))
(sha256
(base32 "11xnmb21835hysdk2mcq6ndch0136j03n2i111nhpkz8p36hkkcs"))))
(base32 "0hpplmgf4j0rc9k3kl5fzi4m8j8ncxyly5827dyjh8h6rlsz3z6g"))))
(build-system perl-build-system)
(home-page "https://metacpan.org/release/Archive-Extract")
(synopsis "Generic archive extracting mechanism")

5
gnu/packages/perl-web.scm
View File

@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2021 Efraim Flashner <efraim@flashner.co.il>
;;;
;;; This file is part of GNU Guix.
;;;
@ -30,7 +31,7 @@
(define-public perl-mojolicious
(package
(name "perl-mojolicious")
(version "7.59")
(version "9.17")
(source
(origin
(method url-fetch)
@ -38,7 +39,7 @@
version ".tar.gz"))
(sha256
(base32
"11whfrbafj191ahbhlhadws0vkg9kmvqswzkvswgwajhr1x678rh"))))
"13dxjhr03dhh1f5bbxbb3jiwdv7jby96qqb97l3arf5x043yd9hd"))))
(build-system perl-build-system)
(home-page "https://mojolicious.org/")
(synopsis "Real-time web framework")

118
gnu/packages/perl.scm
View File

@ -620,7 +620,7 @@ error when it would have happened.")
(define-public perl-bareword-filehandles
(package
(name "perl-bareword-filehandles")
(version "0.006")
(version "0.007")
(source
(origin
(method url-fetch)
@ -629,7 +629,7 @@ error when it would have happened.")
version ".tar.gz"))
(sha256
(base32
"1yxz6likpfshpyfrgwyi7dw6ig1wjhh0vnvbcs6ypr62pv00fv5d"))))
"0zy1v746pzv3vvvpr3plpykz0vfhi940q9bfypzzhynq2qvm6d21"))))
(build-system perl-build-system)
(native-inputs
`(("perl-b-hooks-op-check" ,perl-b-hooks-op-check)
@ -714,14 +714,14 @@ compiling the surrounding scope.")
(define-public perl-b-keywords
(package
(name "perl-b-keywords")
(version "1.20")
(version "1.22")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://cpan/authors/id/R/RU/RURBAN/B-Keywords-"
version ".tar.gz"))
(sha256
(base32 "12jvx5gnypqxal4valkf9lidba9nz7kjk2wvm07q3hkmdqxw1zk0"))))
(base32 "0i2ksp0w9wv1qc22hrdl3k48cww64syhmv8zf6x0kgyd4081hr56"))))
(build-system perl-build-system)
(home-page "https://metacpan.org/release/B-Keywords")
(synopsis "Lists of reserved barewords and symbol names")
@ -1039,14 +1039,14 @@ library assert.h.")
(define-public perl-carp-assert-more
(package
(name "perl-carp-assert-more")
(version "1.20")
(version "1.26")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://cpan/authors/id/P/PE/PETDANCE/"
"Carp-Assert-More-" version ".tar.gz"))
(sha256
(base32 "16jnhdjgfwymrc5fki4xlf1rlziszf9k6q0245g976124k708ac5"))))
(base32 "14x4m4dlj7pwq2r2fsmww3q3xb61cdgnrlmjh5mms3ikaln6rmmk"))))
(build-system perl-build-system)
(native-inputs
`(("perl-test-exception" ,perl-test-exception)))
@ -1564,7 +1564,7 @@ a mixin in order to become instantiable.")
(define-public perl-class-singleton
(package
(name "perl-class-singleton")
(version "1.5")
(version "1.6")
(source
(origin
(method url-fetch)
@ -1572,7 +1572,7 @@ a mixin in order to become instantiable.")
"Class-Singleton-" version ".tar.gz"))
(sha256
(base32
"0y7ngrjf551bjgmijp5rsidbkq6c8hb5lmy2jcqq0fify020s8iq"))))
"1942j9g0b4c88nvs3jghh3y31mlhbpwrx35xdcb2jaaiv7q17fi7"))))
(build-system perl-build-system)
(home-page "https://metacpan.org/release/Class-Singleton")
(synopsis "Implementation of a singleton class for Perl")
@ -1584,7 +1584,7 @@ little other than manage the instantiation of a single object.")
(define-public perl-class-tiny
(package
(name "perl-class-tiny")
(version "1.006")
(version "1.008")
(source
(origin
(method url-fetch)
@ -1592,7 +1592,7 @@ little other than manage the instantiation of a single object.")
"Class-Tiny-" version ".tar.gz"))
(sha256
(base32
"0knbi1agcfc9d7fca0szvxr6335pb22pc5n648q1vrcba8qvvz1f"))))
"05anh4hn8va46xwbdx7rqxnhb8i1lingb614lywzr89gj5iql1gf"))))
(build-system perl-build-system)
(home-page "https://metacpan.org/release/Class-Tiny")
(synopsis "Minimalist class construction")
@ -2504,15 +2504,15 @@ code that, when \"eval\"ed, produces a deep copy of the original arguments.")
(define-public perl-data-dumper
(package
(name "perl-data-dumper")
(version "2.173")
(version "2.180")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://cpan/authors/id/X/XS/XSAWYERX/"
(uri (string-append "mirror://cpan/authors/id/N/NW/NWCLARK/"
"Data-Dumper-" version ".tar.gz"))
(sha256
(base32
"1yknbp86md6mjlhbs1lzz6mals3iyizndgiij58qx61hjfrhhxk9"))))
"029vfvj81dhyv01zrd94lak8qnkbik2h5d1mvj19hxdp67jnwqc6"))))
(build-system perl-build-system)
(home-page "https://metacpan.org/release/Data-Dumper")
(synopsis "Convert data structures to strings")
@ -2914,14 +2914,14 @@ Date::Calc.")
(define-public perl-date-manip
(package
(name "perl-date-manip")
(version "6.82")
(version "6.85")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://cpan/authors/id/S/SB/SBECK/"
"Date-Manip-" version ".tar.gz"))
(sha256
(base32 "0ak72kpydwhq2z03mhdfwm3ganddzb8gawzh6crpsjvb9kwvr5ps"))))
(base32 "1p6clpx9r0kzpzr9d6gy4q6m0pw21lh7bnd9ir3qiidp8cwkjqhn"))))
(build-system perl-build-system)
(arguments
;; Tests would require tzdata for timezone information, but tzdata is in
@ -2960,14 +2960,14 @@ hours, minutes, seconds, and time zones.")
(define-public perl-datetime
(package
(name "perl-datetime")
(version "1.52")
(version "1.54")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://cpan/authors/id/D/DR/DROLSKY/"
"DateTime-" version ".tar.gz"))
(sha256
(base32 "1z1xpifh2kpyw7rlc8ivg9rl0qmabjq979gjp0s9agdjf9hqp0k7"))))
(base32 "1rxjagwmkdlmksz1cbxwx2ad51pv5q7dri2djqkz44q7j1nxlbmi"))))
(build-system perl-build-system)
(native-inputs
`(("perl-cpan-meta-check" ,perl-cpan-meta-check)
@ -3196,14 +3196,14 @@ extension that parses almost all ISO8601 date and time formats.")
(define-public perl-datetime-format-natural
(package
(name "perl-datetime-format-natural")
(version "1.06")
(version "1.12")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://cpan/authors/id/S/SC/SCHUBIGER/"
"DateTime-Format-Natural-" version ".tar.gz"))
(sha256
(base32 "1n68b5hnw4n55q554v7y4ffwiypz6rk40mh0r550fxwv69bvyky0"))))
(base32 "0mqjsjyfymzp7lx7czx17bsdshzsh6l8r6hcadv81zvga326zprw"))))
(build-system perl-build-system)
(native-inputs
`(("perl-module-build" ,perl-module-build)
@ -3288,7 +3288,7 @@ the DateTime.pm class.")
(define-public perl-datetime-timezone
(package
(name "perl-datetime-timezone")
(version "2.23")
(version "2.47")
(source
(origin
(method url-fetch)
@ -3296,7 +3296,7 @@ the DateTime.pm class.")
"DateTime-TimeZone-" version ".tar.gz"))
(sha256
(base32
"0kz5kz47awf2bhb85xx5rbajkr093ipm2d2vkhqs8lqq0f305r3a"))))
"1fgj3si94w87sy66p44mphsgj2cfrkqvdjn3bbz5bqmmvcw72qa1"))))
(build-system perl-build-system)
(arguments
'(#:phases
@ -5247,16 +5247,16 @@ inc directory within a distribution and are used by Makefile.PL or Build.PL.")
(define-public perl-inline
(package
(name "perl-inline")
(version "0.81")
(version "0.86")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://cpan/authors/id/T/TI/TINITA/Inline-"
"mirror://cpan/authors/id/I/IN/INGY/Inline-"
version ".tar.gz"))
(sha256
(base32
"1qxi0xvn8rqj4sca9gwb1xkm6bdz33x57li5kfls6mnavil3i5qz"))))
"0fhyspkg2ka7yz7kbq8a028hj0chfc7qqkl7n20dpc0is3i7s2ji"))))
(build-system perl-build-system)
(native-inputs
`(("perl-test-warn" ,perl-test-warn)))
@ -5271,7 +5271,7 @@ for immediate access from Perl.")
(define-public perl-inline-c
(package
(name "perl-inline-c")
(version "0.78")
(version "0.81")
(source
(origin
(method url-fetch)
@ -5280,7 +5280,7 @@ for immediate access from Perl.")
version ".tar.gz"))
(sha256
(base32
"1izv7vswd17glffh8h83bi63gdk208mmhxi17l3qd8q1bkc08y4s"))))
"1b3sr39813di3j1kwbgn1xq2z726rhjjdw809ydzgmshj26jb1gi"))))
(build-system perl-build-system)
(native-inputs
`(("perl-file-copy-recursive" ,perl-file-copy-recursive)
@ -5783,17 +5783,17 @@ logging mechanism.")
(define-public perl-log-log4perl
(package
(name "perl-log-log4perl")
(version "1.49")
(version "1.54")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://cpan/authors/id/M/MS/MSCHILLI/Log-Log4perl-"
"mirror://cpan/authors/id/E/ET/ETJ/Log-Log4perl-"
version
".tar.gz"))
(sha256
(base32
"05ifhx1lmv91dbs9ck2zbjrkhh8z9g32gi6gxdmwnilia5zihfdp"))))
"1gpa08vd71lm24mzzkgzphfbsnymh6z5gfb6fsja7njc7cny9axv"))))
(build-system perl-build-system)
(home-page
"https://metacpan.org/release/Log-Log4perl")
@ -6300,7 +6300,7 @@ messages.")
(define-public perl-mime-types
(package
(name "perl-mime-types")
(version "2.17")
(version "2.20")
(source
(origin
(method url-fetch)
@ -6308,7 +6308,7 @@ messages.")
"MIME-Types-" version ".tar.gz"))
(sha256
(base32
"1xlg7q6h8zyb8534sy0iqn90py18kilg419q6051bwqz5zadfkp0"))))
"1wgqm5777xac0xzcysr7adh1gi0108bdfhq6kzpxinxzjadhjw9y"))))
(build-system perl-build-system)
(home-page "https://metacpan.org/release/MIME-Types")
(synopsis "Definition of MIME types")
@ -6345,7 +6345,7 @@ file names are added for you.")
(define-public perl-modern-perl
(package
(name "perl-modern-perl")
(version "1.20181021")
(version "1.20200211")
(source
(origin
(method url-fetch)
@ -6353,7 +6353,7 @@ file names are added for you.")
"mirror://cpan/authors/id/C/CH/CHROMATIC/Modern-Perl-"
version ".tar.gz"))
(sha256
(base32 "1if9jbh66z2vm4wwnky41ljnhdlwrh7vzl6pd3w60v3wix92nj0x"))))
(base32 "1064k29aavabxj8m20b65rxk7qa3mjmzgmrikvdrxasgx378676s"))))
(build-system perl-build-system)
(native-inputs
`(("perl-module-build" ,perl-module-build)))
@ -7576,7 +7576,7 @@ fields in Moo-based classes.")
(define-public perl-mouse
(package
(name "perl-mouse")
(version "2.5.6")
(version "2.5.10")
(source (origin
(method url-fetch)
(uri (string-append
@ -7585,7 +7585,7 @@ fields in Moo-based classes.")
".tar.gz"))
(sha256
(base32
"1j3048ip691j91rdig6wrlg6i4jdzhszxmz5pi2g7n355rl2w00l"))))
"1vijm8wkyws1jhnqmx104585q3srw9z1crcpy1zlcfhm8qww53ff"))))
(build-system perl-build-system)
(native-inputs
`(("perl-module-build" ,perl-module-build)
@ -7633,7 +7633,7 @@ of data.")
(define-public perl-mozilla-ca
(package
(name "perl-mozilla-ca")
(version "20180117")
(version "20200520")
(source
(origin
(method url-fetch)
@ -7641,7 +7641,7 @@ of data.")
version ".tar.gz"))
(sha256
(base32
"01p4ykyilk1639dxgjaa2n7rz1f0zbqxkq11yc9n6xcz26z9zk7j"))))
"09n7hwrh63c5gqvygqvvgvklcbvsm7g0p4nmq0b4mwhb64101jmk"))))
(build-system perl-build-system)
(home-page "https://metacpan.org/release/Mozilla-CA")
(synopsis "Mozilla's CA cert bundle in PEM format")
@ -9704,7 +9704,7 @@ future, or if you want the retain the familiarity of TT-style templates.")
(define-public perl-term-encoding
(package
(name "perl-term-encoding")
(version "0.02")
(version "0.03")
(source
(origin
(method url-fetch)
@ -9712,7 +9712,7 @@ future, or if you want the retain the familiarity of TT-style templates.")
"Term-Encoding-" version ".tar.gz"))
(sha256
(base32
"1k6g4q7snxggv5fdqnzw29al4mwbwg0hl0skzfnczh508qiyfx7j"))))
"02qx4ni1vqp9hvkw69hp5bxcf2ghjiw8sl34pqy5mlimsy3rdflm"))))
(build-system perl-build-system)
(native-inputs
`(("perl-module-install" ,perl-module-install)))
@ -10312,7 +10312,7 @@ approximately follow the suggestions in the Perl Style Guide.")
(define-public perl-tie-cycle
(package
(name "perl-tie-cycle")
(version "1.225")
(version "1.226")
(source
(origin
(method url-fetch)
@ -10320,7 +10320,7 @@ approximately follow the suggestions in the Perl Style Guide.")
version ".tar.gz"))
(sha256
(base32
"0i9xq2qm50p2ih24265jndp2x8hfq7ap0d88nrlv5yaad4hxhc7k"))))
"0cvnykkr5z57xwl6i9qdws2gpdhsm0rrf3kia8q0q25vag0f31q9"))))
(build-system perl-build-system)
(home-page "https://metacpan.org/release/Tie-Cycle")
(synopsis "Cycle through a list of values")
@ -10508,7 +10508,7 @@ the system epoch.")
(define-public perl-time-piece
(package
(name "perl-time-piece")
(version "1.3203")
(version "1.3401")
(source
(origin
(method url-fetch)
@ -10516,7 +10516,7 @@ the system epoch.")
"mirror://cpan/authors/id/E/ES/ESAYM/Time-Piece-"
version ".tar.gz"))
(sha256
(base32 "0hbg99v8xqy3nx6nrjpwh1w6xwqpfflz0djkbdd72kvf8zvglwb9"))))
(base32 "09scn3yyqfl5w3yb6qrylhhn386zfz9fmpslk8iwyidb1sxvfmab"))))
(build-system perl-build-system)
(home-page "https://metacpan.org/release/Time-Piece")
(synopsis "Object-Oriented time objects")
@ -10571,14 +10571,14 @@ and time() calls.")
(define-public perl-tree-simple
(package
(name "perl-tree-simple")
(version "1.33")
(version "1.34")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://cpan/authors/id/R/RS/RSAVAGE/"
"Tree-Simple-" version ".tgz"))
(sha256
(base32 "1alnwb6c7n4al91m9cyknvcyvdz521lh22dz1hyk4v7c50adffnv"))))
(base32 "176j8zgsndfnxb5mxaiarnva3ghck1jxgxwkz77r9fr2sadpksdp"))))
(build-system perl-build-system)
(native-inputs
`(("perl-module-build" ,perl-module-build)
@ -10594,14 +10594,14 @@ simple n-ary tree.")
(define-public perl-tree-simple-visitorfactory
(package
(name "perl-tree-simple-visitorfactory")
(version "0.15")
(version "0.16")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://cpan/authors/id/R/RS/RSAVAGE/"
"Tree-Simple-VisitorFactory-" version ".tgz"))
(sha256
(base32 "06y2vazkl307k59hnkp9h5bp3p7711kgmp1qdhb2lgnfwzn84zin"))))
(base32 "19hdi00rw492m5r51b495gv5c64g91g98f8lm6sgym1cl7x3ixcw"))))
(build-system perl-build-system)
(native-inputs
`(("perl-module-build" ,perl-module-build)
@ -10637,14 +10637,14 @@ else.")
(define-public perl-type-tie
(package
(name "perl-type-tie")
(version "0.014")
(version "0.015")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://cpan/authors/id/T/TO/TOBYINK/"
"Type-Tie-" version ".tar.gz"))
(sha256
(base32 "1ri23xb3rdb59lk984hnjqi4pb97zqnv4ppn0zpd70pfp0a9addm"))))
(base32 "0d2ldn6pi8dj7shk4gkjm9bzqr7509fzkwjs7579pmgg6xkkynjf"))))
(build-system perl-build-system)
(native-inputs
`(("perl-test-fatal" ,perl-test-fatal)
@ -10664,14 +10664,14 @@ variable conform.")
(define-public perl-type-tiny
(package
(name "perl-type-tiny")
(version "1.008003")
(version "1.012003")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://cpan/authors/id/T/TO/TOBYINK/"
"Type-Tiny-" version ".tar.gz"))
(sha256
(base32 "1x80rlnh7kl4xgm4qvyfbgahcyla4wbyh3b759nm21czn8x6wkm4"))))
(base32 "0s11rlkkjjys8x6ihm5mrhzbbf341g5ckqbalph4g7l98kcy26yl"))))
(build-system perl-build-system)
(native-inputs
`(("perl-test-warnings" ,perl-test-warnings)))
@ -10697,14 +10697,14 @@ be used with Moose, Mouse and Moo (or none of the above).")
(define-public perl-type-tiny-xs
(package
(name "perl-type-tiny-xs")
(version "0.014")
(version "0.022")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://cpan/authors/id/T/TO/TOBYINK/Type-Tiny-XS-"
version ".tar.gz"))
(sha256
(base32 "1bbvghd2wmm9z1jx9qs9yz4l3r4izs8sz87z87sis7n3ydjdx2w2"))))
(base32 "007z49zbwnhghsrvvv2v7fvp6iqfz74bb29qh36307fwywqlmhxw"))))
(build-system perl-build-system)
(home-page "https://metacpan.org/release/Type-Tiny-XS")
(synopsis "Provides an XS boost for some of Type::Tiny's built-in type constraints")
@ -10790,14 +10790,14 @@ common serialisation formats such as JSON or CBOR.")
(define-public perl-unicode-collate
(package
(name "perl-unicode-collate")
(version "1.27")
(version "1.29")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://cpan/authors/id/S/SA/SADAHIRO/"
"Unicode-Collate-" version ".tar.gz"))
(sha256
(base32 "12df4n46yri6via4x9jb918v1hk6yrlzqk9srq6fnz5kviylnxbf"))))
(base32 "0dr4k10fgbsczh4sz7w8d0nnba38r6jrg87cm3gw4xxgn55fzj7l"))))
(build-system perl-build-system)
(arguments
`(#:phases
@ -10911,7 +10911,7 @@ UNIVERSAL::isa as a function.")
(define-public perl-universal-require
(package
(name "perl-universal-require")
(version "0.18")
(version "0.19")
(source
(origin
(method url-fetch)
@ -10920,7 +10920,7 @@ UNIVERSAL::isa as a function.")
version ".tar.gz"))
(sha256
(base32
"1v9qdg80ng6dzyzs7cn8sb6mn8ym042i32lcnpd478b7g6l3d9xj"))))
"00qs1y2xzxbz4s13q28hwg2pm0vcmsb0gg6k7wh3p33cw0kcsryl"))))
(build-system perl-build-system)
(home-page "https://metacpan.org/release/UNIVERSAL-require")
(synopsis "Require modules from a variable")
@ -11026,7 +11026,7 @@ on the YAML 1.0 specification.")
(define-public perl-yaml-libyaml
(package
(name "perl-yaml-libyaml")
(version "0.82")
(version "0.83")
(source
(origin
(method url-fetch)
@ -11034,7 +11034,7 @@ on the YAML 1.0 specification.")
"mirror://cpan/authors/id/T/TI/TINITA/YAML-LibYAML-"
version ".tar.gz"))
(sha256
(base32 "0j7yhxkaasccynl5iq1cqpf4x253p4bi5wsq6qbwwv2wjsiwgd02"))))
(base32 "1464pradi2dkydm35bhbzyk7sqq87kcd70bp9xddfyirzys7awdl"))))
(build-system perl-build-system)
(home-page "https://metacpan.org/release/YAML-LibYAML")
(synopsis "Perl YAML Serialization using XS and libyaml")

19
gnu/packages/python-check.scm
View File

@ -48,6 +48,25 @@
#:use-module (guix download)
#:use-module (guix build-system python))
(define-public python-tappy
(package
(name "python-tappy")
(version "3.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "tap.py" version))
(sha256
(base32
"0w4w6pqjkv54j7rv6vdrpfxa72c5516bnlhpcqr3vrb4zpmyxvpm"))))
(build-system python-build-system)
(home-page "https://github.com/python-tap/tappy")
(synopsis "Tools for Test Anything Protocol")
(description "Tappy is a set of tools for working with the Test Anything
Protocol (TAP) in Python. TAP is a line based test protocol for recording test
data in a standard way.")
(license license:bsd-3)))
(define-public python-pytest-click
(package
(name "python-pytest-click")

84
gnu/packages/python-xyz.scm
View File

@ -521,13 +521,13 @@ with Python's logging module that outputs records using terminal colors.")
(define-public python-pyprind
(package
(name "python-pyprind")
(version "2.11.2")
(version "2.11.3")
(source (origin
(method url-fetch)
(uri (pypi-uri "PyPrind" version))
(sha256
(base32
"0xg6m5hr33h9bdlrr42kc58jm2m87a9zsagy7n2m4n407d2snv64"))))
"1gscnlvj37m421ch3akm3kddxqkrgbg5zrpwy2ky1j59w6vclzg3"))))
(build-system python-build-system)
(propagated-inputs
`(("python-psutil" ,python-psutil)))
@ -2202,7 +2202,7 @@ human-friendly syntax.")
(define-public python-scour
(package
(name "python-scour")
(version "038.1")
(version "0.38.2")
(source
(origin
(method git-fetch)
@ -2213,7 +2213,7 @@ human-friendly syntax.")
(string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0rgiypb9ig8x4rl3hfzpy7kwnx1q3064nvlrv4fk0dnp84girn0v"))))
(base32 "0mmfvx4wqp8gkpv0kbih89zfs9njvmd3v4dxfqii62xddpxq0f1k"))))
(propagated-inputs
`(("python-six" ,python-six)))
(build-system python-build-system)
@ -5247,14 +5247,13 @@ humans, and implementation simplicity.")
(define-public python-pdftotext
(package
(name "python-pdftotext")
(version "2.1.5")
(version "2.1.6")
(source
(origin
(method url-fetch)
(uri (pypi-uri "pdftotext" version))
(sha256
(base32
"19la1cw1hmkcr8big04gm2dd5fw0y0z97g930aiy29s1gaqbiblq"))))
(base32 "1555wbgr5spj8xflrs4mwsrdmba2f9s72nk50xzqk9ghxaxdvy6a"))))
(build-system python-build-system)
(inputs
`(("poppler" ,poppler)))
@ -6115,13 +6114,13 @@ the OleFileIO module from PIL, the Python Image Library.")
(define-public python-pikepdf
(package
(name "python-pikepdf")
(version "2.12.0")
(version "2.12.1")
(source
(origin
(method url-fetch)
(uri (pypi-uri "pikepdf" version))
(sha256
(base32 "1fgk93v5zac38ak00nw94mi44z9701kn20dkdfpwqr3588vnxfzw"))))
(base32 "1si1x4dc4i4ghyirjfws1zkgiwk8kypnpp4gf68haascrdy7znqw"))))
(build-system python-build-system)
(arguments
`(#:tests? #false)) ;require python-xmp-toolkit
@ -10099,13 +10098,13 @@ designed to efficiently cope with extremely large amounts of data.")
(define-public python-sniffio
(package
(name "python-sniffio")
(version "1.1.0")
(version "1.2.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "sniffio" version))
(sha256
(base32 "08bsp2pp2dxzn9yzcafwzw8jlm0jf50as0ix8vfhxzk91w810f4f"))))
(base32 "1pnkvi6wvn4qd37y69n1ls6n8l63gfmn3pvb1jb50gqxxkn6wrn4"))))
(build-system python-build-system)
(arguments
`(#:phases
@ -16742,9 +16741,9 @@ protocols.")
(define-public python2-attrs-bootstrap
(package-with-python2 python-attrs-bootstrap))
(define-public python2-cliapp
(define-public python-cliapp
(package
(name "python2-cliapp")
(name "python-cliapp")
(version "1.20180812.1")
(source
(origin
@ -16757,35 +16756,27 @@ protocols.")
"1c1jlblbns8qhiaqjpg4xi6lip8xwfc5w643p43rg543havaj45x"))))
(build-system python-build-system)
(arguments
`(#:python ,python-2
#:phases
(modify-phases %standard-phases
;; check phase needs to be run before the build phase. If not,
;; coverage-test-runner looks for tests for the built source files,
;; and fails.
(delete 'check)
(add-before 'build 'check
(lambda _
;; Disable python3 tests
(substitute* "check"
(("python3") "# python3"))
(invoke "./check"))))))
`(;; XXX: The tests only do style and coverage checks, which
;; fails due to deprecation warnings, etc.
#:tests? #f))
(native-inputs
`(("python2-coverage-test-runner" ,python2-coverage-test-runner)
("python2-pep8" ,python2-pep8)))
`(("python-coverage-test-runner" ,python-coverage-test-runner)
("python-pep8" ,python-pep8)))
(propagated-inputs
`(("python2-pyaml" ,python2-pyaml)))
`(("python-pyaml" ,python-pyaml)))
(home-page "https://liw.fi/cliapp/")
(synopsis "Python framework for command line programs")
(description "@code{python2-cliapp} is a python framework for
command line programs. It contains the typical stuff such programs
need to do, such as parsing the command line for options, and
iterating over input files.")
(description "@code{cliapp} is a Python framework for command line
programs. It contains the typical stuff such programs need to do, such
as parsing the command line for options, and iterating over input files.")
(license license:gpl2+)))
(define-public python2-ttystatus
(define-public python2-cliapp
(package-with-python2 python-cliapp))
(define-public python-ttystatus
(package
(name "python2-ttystatus")
(name "python-ttystatus")
(version "0.38")
(source
(origin
@ -16799,11 +16790,10 @@ iterating over input files.")
(file-name (git-file-name name version))))
(build-system python-build-system)
(native-inputs
`(("python2-coverage-test-runner" ,python2-coverage-test-runner)
("python2-pep8" ,python2-pep8)))
`(("python-coverage-test-runner" ,python-coverage-test-runner)
("python-pep8" ,python-pep8)))
(arguments
`(#:python ,python-2
#:phases
`(#:phases
(modify-phases %standard-phases
;; check phase needs to be run before the build phase. If not,
;; coverage-test-runner looks for tests for the built source files,
@ -16814,13 +16804,15 @@ iterating over input files.")
(home-page "https://liw.fi/ttystatus/")
(synopsis "Python library for showing progress reporting and
status updates on terminals")
(description "@code{python2-ttystatus} is a python library for
showing progress reporting and status updates on terminals, for
command line programs. Output is automatically adapted to the width
of the terminal: truncated if it does not fit, and resized if the
terminal size changes.")
(description "@code{ttystatus} is a Python library for showing progress
reporting and status updates on terminals, for command line programs.
Output is automatically adapted to the width of the terminal: truncated
if it does not fit, and resized if the terminal size changes.")
(license license:gpl3+)))
(define-public python2-ttystatus
(package-with-python2 python-ttystatus))
(define-public python2-tracing
(package
(name "python2-tracing")
@ -20400,7 +20392,7 @@ user-space file systems in Python.")
(define-public pybind11
(package
(name "pybind11")
(version "2.6.1")
(version "2.6.2")
(source (origin
(method git-fetch)
(uri (git-reference
@ -20408,7 +20400,7 @@ user-space file systems in Python.")
(commit (string-append "v" version))))
(sha256
(base32
"1wh5b1xnywzxwxkyac2wvyqwzmy1qxs341jjk820r7b825wn6yad"))
"1lsacpawl2gb5qlh0cawj9swsyfbwhzhwiv6553a7lsigdbadqpy"))
(file-name (git-file-name name version))))
(build-system cmake-build-system)
(native-inputs

51
gnu/packages/qt.scm
View File

@ -21,6 +21,7 @@
;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de>
;;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2021 Brendan Tildesley <mail@brendan.scot>
;;; Copyright © 2021 Guillaume Le Vaillant <glv@posteo.net>
;;;
;;; This file is part of GNU Guix.
;;;
@ -2604,6 +2605,56 @@ color-related widgets.")
;; Includes a license exception for combining with GPL2 code.
(license license:lgpl3+))))
(define-public qcustomplot
(package
(name "qcustomplot")
(version "2.1.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://www.qcustomplot.com/release/"
version "fixed" "/QCustomPlot.tar.gz"))
(sha256
(base32 "1324kqyj1v1f8k8d7b15gc3apwz9qxx52p86hvchg33hjdlqhskx"))))
(native-inputs
`(("qcustomplot-sharedlib"
,(origin
(method url-fetch)
(uri (string-append "https://www.qcustomplot.com/release/"
version "fixed" "/QCustomPlot-sharedlib.tar.gz"))
(sha256
(base32 "0vp8lpxvd1nlp4liqrlvslpqrgfn0wpiwizzdsjbj22zzb8vxikc"))))))
(inputs
`(("qtbase" ,qtbase)))
(build-system gnu-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'unpack-extra-files
(lambda* (#:key inputs #:allow-other-keys)
(invoke "tar" "-xvf" (assoc-ref inputs "qcustomplot-sharedlib"))))
(replace 'configure
(lambda* (#:key outputs #:allow-other-keys)
(chdir "qcustomplot-sharedlib/sharedlib-compilation")
(substitute* "sharedlib-compilation.pro"
;; Don't build debug library.
(("debug_and_release")
"release"))
(invoke "qmake"
(string-append "DESTDIR="
(assoc-ref outputs "out")
"/lib"))))
(add-after 'install 'install-header
(lambda* (#:key outputs #:allow-other-keys)
(install-file "../../qcustomplot.h"
(string-append (assoc-ref outputs "out")
"/include")))))))
(home-page "https://www.qcustomplot.com/")
(synopsis "Qt widget for plotting and data visualization")
(description
"QCustomPlot is a Qt C++ widget providing 2D plots, graphs and charts.")
(license license:gpl3+)))
(define-public python-shiboken-2
(package
(name "python-shiboken-2")

116
gnu/packages/radio.scm
View File

@ -82,6 +82,7 @@
#:use-module (gnu packages tcl)
#:use-module (gnu packages tex)
#:use-module (gnu packages texinfo)
#:use-module (gnu packages tls)
#:use-module (gnu packages video)
#:use-module (gnu packages xiph)
#:use-module (gnu packages xml)
@ -476,12 +477,12 @@ environment.")
(home-page "https://www.gnuradio.org")
(license license:gpl3+)))
(define-public gnuradio-osmosdr
(define-public gr-osmosdr
;; No tag for version supporting Gnuradio 3.9; use commit.
(let ((commit "a100eb024c0210b95e4738b6efd836d48225bd03")
(revision "0"))
(package
(name "gnuradio-osmosdr")
(name "gr-osmosdr")
(version (git-version "0.2.3" revision commit))
(source
(origin
@ -528,6 +529,7 @@ environment.")
to access different radio hardware.")
(home-page "https://osmocom.org/projects/gr-osmosdr/wiki/GrOsmoSDR")
(license license:gpl3+))))
(deprecated-package "gnuradio-osmosdr" gr-osmosdr)
(define-public libosmo-dsp
(package
@ -573,12 +575,12 @@ primitives for SDR (Software Defined Radio).")
(home-page "https://osmocom.org/projects/libosmo-dsp")
(license license:gpl2+)))
(define-public gnuradio-iqbalance
(define-public gr-iqbal
;; No tag for version supporting Gnuradio 3.9; use commit.
(let ((commit "fbee239a6fb36dd2fb564f6e6a0d393c4bc844db")
(revision "0"))
(package
(name "gnuradio-iqbalance")
(name "gr-iqbal")
(version (git-version "0.38.2" revision commit))
(source
(origin
@ -616,6 +618,7 @@ to the fix block above.
@end itemize")
(home-page "https://git.osmocom.org/gr-iqbal/")
(license license:gpl3+))))
(deprecated-package "gnuradio-iqbalance" gr-iqbal)
(define-public gqrx
(package
@ -639,8 +642,8 @@ to the fix block above.
("fftwf" ,fftwf)
("gmp" ,gmp)
("gnuradio" ,gnuradio)
("gnuradio-iqbalance" ,gnuradio-iqbalance)
("gnuradio-osmosdr" ,gnuradio-osmosdr)
("gr-iqbal" ,gr-iqbal)
("gr-osmosdr" ,gr-osmosdr)
("jack" ,jack-1)
("libsndfile" ,libsndfile)
("log4cpp" ,log4cpp)
@ -1143,7 +1146,7 @@ their position, altitude, speed, etc.")
(define-public rtl-433
(package
(name "rtl-433")
(version "20.11")
(version "21.05")
(source
(origin
(method git-fetch)
@ -1152,12 +1155,13 @@ their position, altitude, speed, etc.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "093bxjxkg7yf78wqj5gpijbfa2p05ny09qqsj84kzi1svnzsa369"))))
(base32 "1f60nvahsplv1yszacc49mlbcnacgs1nwhdf8y9srmzg08xrfnfk"))))
(build-system cmake-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)))
(inputs
`(("libusb" ,libusb)
("openssl" ,openssl)
("rtl-sdr" ,rtl-sdr)))
(synopsis "Decoder for radio transmissions in ISM bands")
(description
@ -1827,3 +1831,99 @@ voice formats.")
"SDRangel is a Qt software defined radio and signal analyzer frontend for
various hardware.")
(license license:gpl3+)))
(define-public inspectrum
(package
(name "inspectrum")
(version "0.2.3")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/miek/inspectrum")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1x6nyn429pk0f7lqzskrgsbq09mq5787xd4piic95add6n1cc355"))))
(build-system qt-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)))
(inputs
`(("fftwf" ,fftwf)
("liquid-dsp" ,liquid-dsp)
("qtbase" ,qtbase)))
(home-page "https://github.com/miek/inspectrum")
(synopsis "Radio signal analyser")
(description
"Inspectrum is a tool for analysing captured signals, primarily from
software-defined radio receivers.")
(license license:gpl3+)))
(define-public wfview
;; No tagged release, use commit directly.
(let ((commit "274e905d214a7360e8cf2dd0421dbe3712a0ddcc")
(revision "1"))
(package
(name "wfview")
(version (git-version "20210511" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.com/eliggett/wfview")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "1dmxn15xs63wx1y4mh1mlv8qc1xz32vgbyl3rk82gf6knw518svp"))))
(build-system qt-build-system)
(inputs
`(("qcustomplot" ,qcustomplot)
("qtbase" ,qtbase)
("qtmultimedia" ,qtmultimedia)
("qtserialport" ,qtserialport)))
(arguments
`(#:tests? #f ; No test suite.
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-paths
(lambda* (#:key outputs #:allow-other-keys)
(substitute* "wfview.pro"
(("\\.\\./wfview/")
"../"))
(substitute* '("wfmain.cpp")
(("/usr/share")
(string-append (assoc-ref outputs "out") "/share")))))
(replace 'configure
(lambda _
(mkdir-p "build")
(chdir "build")
(invoke "qmake" "../wfview.pro")))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")))
(install-file "wfview"
(string-append out "/bin"))
(install-file "wfview.png"
(string-append out "/share/pixmaps"))
(install-file "wfview.desktop"
(string-append out "/share/applications"))
(let ((dir (string-append
out "/share/wfview/stylesheets/qdarkstyle")))
(mkdir-p dir)
(copy-recursively "qdarkstyle" dir))))))))
(home-page "https://wfview.org/")
(synopsis "Software to control Icom radios")
(description
"@code{wfview} is a program to control modern Icom radios and view the
spectrum waterfall. It supports at least the following models:
@itemize
@item IC-705
@item IC-7300
@item IC-7610
@item IC-7850
@item IC-7851
@item IC-9700
@end itemize\n")
(license (list license:expat
license:gpl3)))))

4
gnu/packages/re2c.scm
View File

@ -26,7 +26,7 @@
(define-public re2c
(package
(name "re2c")
(version "2.0.3")
(version "2.1.1")
(source (origin
(method url-fetch)
(uri (string-append "https://github.com/skvadrik/" name
@ -34,7 +34,7 @@
name "-" version ".tar.xz"))
(sha256
(base32
"0y22fiyv2pqmq8asb2p5hzcf7ibjdrz7nl16rlpzy8damaw1xg5j"))))
"1y0iwxpkdmw5fcqacs209ix49aasfy88hqmx3qa26m7xz9jf4vh3"))))
(build-system gnu-build-system)
(home-page "https://re2c.org/")
(synopsis "Lexer generator for C/C++")

10
gnu/packages/rust.scm
View File

@ -845,6 +845,16 @@ safety and thread safety guarantees.")
(rust-bootstrapped-package rust-1.50 "1.51.0"
"0ixqkqglv3isxbvl4ldr4byrkx692wghsz3fasy1pn5kr2prnsvs"))
(define-public rust-1.52
(let ((base-rust
(rust-bootstrapped-package rust-1.51 "1.52.1"
"165zs3xzp9dravybwslqs1qhn35agp6wacmzpymqg3qfdni26vrs")))
(package
(inherit base-rust)
(inputs
(alist-replace "llvm" (list llvm-12)
(package-inputs base-rust))))))
;;; Note: Only the latest versions of Rust are supported and tested. The
;;; intermediate rusts are built for bootstrapping purposes and should not
;;; be relied upon. This is to ease maintenance and reduce the time

4
gnu/packages/sdl.scm
View File

@ -620,14 +620,14 @@ sound and device input (keyboards, joysticks, mice, etc.).")
(define-public guile-sdl2
(package
(name "guile-sdl2")
(version "0.5.0")
(version "0.6.0")
(source (origin
(method url-fetch)
(uri (string-append "https://files.dthompson.us/guile-sdl2/"
"guile-sdl2-" version ".tar.gz"))
(sha256
(base32
"118x0cg7fzbsyrfhy5f9ab7dqp9czgia0ycgzp6sn3nlsdrcnr4m"))))
"06vrknn4iz0ag932rb4almyhi9cvdkn081shvsi0h4skd6ry8bdl"))))
(build-system gnu-build-system)
(arguments
'(#:make-flags '("GUILE_AUTO_COMPILE=0")))

11
gnu/packages/security-token.scm
View File

@ -362,7 +362,7 @@ and other operations. It includes a library and a command-line tool.")
(define-public yubikey-personalization
(package
(name "yubikey-personalization")
(version "1.19.3")
(version "1.20.0")
(source (origin
(method url-fetch)
(uri (string-append
@ -370,7 +370,14 @@ and other operations. It includes a library and a command-line tool.")
"/Releases/ykpers-" version ".tar.gz"))
(sha256
(base32
"0jhvnavjrpwzmmjcw486df5s48j53njqgyz36yz3dskbaz3kwlfr"))))
"14wvlwqnwj0gllkpvfqiy8ns938bwvjsz8x1hmymmx32m074vj0f"))
(modules '((guix build utils)))
(snippet
;; Fix build with GCC 10, remove for versions > 1.20.0.
'(begin
(substitute* "ykpers-args.h"
(("^const char")
"extern const char"))))))
(build-system gnu-build-system)
(arguments
'(#:configure-flags (list (string-append "--with-udevrulesdir="

77
gnu/packages/statistics.scm
View File

@ -37,6 +37,7 @@
#:use-module (guix git-download)
#:use-module (guix utils)
#:use-module (guix build-system ant)
#:use-module (guix build-system emacs)
#:use-module (guix build-system gnu)
#:use-module (guix build-system r)
#:use-module (guix build-system python)
@ -586,14 +587,14 @@ also flexible enough to handle most nonstandard requirements.")
(define-public r-matrix
(package
(name "r-matrix")
(version "1.3-2")
(version "1.3-3")
(source
(origin
(method url-fetch)
(uri (cran-uri "Matrix" version))
(sha256
(base32
"0ccmmfd0lbvrhzjzr28k4yfawiywa1m4ics34zyi3rqq23csa2wm"))))
"0fvayd6b8w6yzhil85xw7lib68dvxyzpcznwvwczlyxf8ggchzpp"))))
(properties `((upstream-name . "Matrix")))
(build-system r-build-system)
(propagated-inputs
@ -1039,14 +1040,14 @@ solution for sending email, including attachments, from within R.")
(define-public r-stringi
(package
(name "r-stringi")
(version "1.5.3")
(version "1.6.2")
(source
(origin
(method url-fetch)
(uri (cran-uri "stringi" version))
(sha256
(base32
"0420f7zn5knyyvd3a3xa7059l4kadw0m67rfpivacqn9xn6iwkr2"))))
"1bidc1xzsv5nz2glf6z4sjxqlbs6zq595wwdmiq66sc2p7cis59s"))))
(build-system r-build-system)
(inputs `(("icu4c" ,icu4c)))
(native-inputs `(("pkg-config" ,pkg-config)))
@ -1675,14 +1676,14 @@ like tidy evaluation.")
(define-public r-tibble
(package
(name "r-tibble")
(version "3.1.1")
(version "3.1.2")
(source
(origin
(method url-fetch)
(uri (cran-uri "tibble" version))
(sha256
(base32
"0qqfiwy7i2zjxwmz0xp1j1p88yycdg3lh377jkzz6zs6gsbd89ln"))))
"1vmwz1a756lar0jsigx6dhmj9mwk5mhywhq0prifwih3abhvszmn"))))
(build-system r-build-system)
(propagated-inputs
`(("r-ellipsis" ,r-ellipsis)
@ -1705,13 +1706,13 @@ and printing capabilities than traditional data frames.")
(define-public r-dplyr
(package
(name "r-dplyr")
(version "1.0.5")
(version "1.0.6")
(source (origin
(method url-fetch)
(uri (cran-uri "dplyr" version))
(sha256
(base32
"0w3fr6sn0mw5mjs27669czpc8vpjj6ayrjavw8v0gd7ccsfa0hbm"))))
"01zsc9hn2wfvgphn8wcy7j4nvyq2qdl32008alnj0nsr34d3i308"))))
(build-system r-build-system)
(propagated-inputs
`(("r-ellipsis" ,r-ellipsis)
@ -1719,6 +1720,7 @@ and printing capabilities than traditional data frames.")
("r-glue" ,r-glue)
("r-lifecycle" ,r-lifecycle)
("r-magrittr" ,r-magrittr)
("r-pillar" ,r-pillar)
("r-r6" ,r-r6)
("r-rlang" ,r-rlang)
("r-tibble" ,r-tibble)
@ -2464,13 +2466,13 @@ informative error messages when it's not available.")
(define-public r-devtools
(package
(name "r-devtools")
(version "2.4.0")
(version "2.4.1")
(source (origin
(method url-fetch)
(uri (cran-uri "devtools" version))
(sha256
(base32
"094kl4d07kvmn1dcvq73mn4r30c4vpshrqj4998azh7garjlz3kj"))))
"0jd4ph3z7shqyy8lw34i10qmhqr6z8ihqix96kkayjql315ccah6"))))
(build-system r-build-system)
(propagated-inputs
`(("r-callr" ,r-callr)
@ -2479,7 +2481,6 @@ informative error messages when it's not available.")
("r-ellipsis" ,r-ellipsis)
("r-fs" ,r-fs)
("r-httr" ,r-httr)
("r-jsonlite" ,r-jsonlite)
("r-lifecycle" ,r-lifecycle)
("r-memoise" ,r-memoise)
("r-pkgbuild" ,r-pkgbuild)
@ -2526,14 +2527,14 @@ were originally a part of the r-devtools package.")
(define-public r-hms
(package
(name "r-hms")
(version "1.0.0")
(version "1.1.0")
(source
(origin
(method url-fetch)
(uri (cran-uri "hms" version))
(sha256
(base32
"0qn9lvpkqrpxck88nf0zbff43vd7d6s1ibg58qfr3w14sw1yj14p"))))
"1kmlw5hs2c69qgkkipjxb6j05wdk6jiqrac3y4z9ds63c3r9lng8"))))
(build-system r-build-system)
(propagated-inputs
`(("r-ellipsis" ,r-ellipsis)
@ -2735,13 +2736,13 @@ certain criterion, e.g., it contains a certain regular file.")
(define-public r-rmarkdown
(package
(name "r-rmarkdown")
(version "2.7")
(version "2.8")
(source
(origin
(method url-fetch)
(uri (cran-uri "rmarkdown" version))
(sha256
(base32 "0shj637qhpcf30il3lhl3k5bxi5l3x3gf612hbqlakp1qrgrf8lm"))))
(base32 "0qk558n9fxvl0465384mbvkip9jqymjccdvwpxzm54jr0v56gprz"))))
(properties `((upstream-name . "rmarkdown")))
(build-system r-build-system)
(propagated-inputs
@ -3686,13 +3687,13 @@ memory usage.")
(define-public r-viridis
(package
(name "r-viridis")
(version "0.6.0")
(version "0.6.1")
(source (origin
(method url-fetch)
(uri (cran-uri "viridis" version))
(sha256
(base32
"1vr5s86h39r86pfxyh3pylpwhf2chdy047ny63v04f576w4hxarp"))))
"1fyax36ycjiypcnxhrv58pq67qv03vfg4lx822d38jpjly54q128"))))
(build-system r-build-system)
(propagated-inputs
`(("r-ggplot2" ,r-ggplot2)
@ -4465,13 +4466,13 @@ Wall Street Journal, among others. This package also provides
(define-public r-statmod
(package
(name "r-statmod")
(version "1.4.35")
(version "1.4.36")
(source (origin
(method url-fetch)
(uri (cran-uri "statmod" version))
(sha256
(base32
"1zpqnfslq5gi6hvqjqnsn5kf2m986s1yb6kvyjd881n3h67l4pny"))))
"1hkvklcav6gj4zib4g3b4xwsdsbsmnzdblr0v6jaqv227p49gs0l"))))
(build-system r-build-system)
(home-page "https://cran.r-project.org/web/packages/statmod")
(native-inputs
@ -4680,14 +4681,14 @@ forest of trees using random inputs, for classification and regression.")
(define-public r-diptest
(package
(name "r-diptest")
(version "0.75-7")
(version "0.76-0")
(source
(origin
(method url-fetch)
(uri (cran-uri "diptest" version))
(sha256
(base32
"06xnc5gv1284ll0addxnxb6ljz6fn8dbyrp5vchyz6551h800aa6"))))
"10629vwn6r2949jjrmj5slbb5v0vnm3w0v8mrl7ws68m2sxmx2jh"))))
(build-system r-build-system)
(home-page "https://cran.r-project.org/web/packages/diptest")
(synopsis "Hartigan's dip test statistic for unimodality")
@ -5190,14 +5191,14 @@ algorithms.")
(define-public r-lme4
(package
(name "r-lme4")
(version "1.1-26")
(version "1.1-27")
(source
(origin
(method url-fetch)
(uri (cran-uri "lme4" version))
(sha256
(base32
"0ls2krph4pfjn45vf9fn3ln3x98s85wxrkvm5pnxyx55n1pnsjrn"))))
"0px1wppmb6wibac4sismkf82q8870r6h267vxv0ql63qdk3r20zy"))))
(build-system r-build-system)
(propagated-inputs
`(("r-boot" ,r-boot)
@ -5208,8 +5209,7 @@ algorithms.")
("r-nloptr" ,r-nloptr)
("r-nlme" ,r-nlme)
("r-rcpp" ,r-rcpp)
("r-rcppeigen" ,r-rcppeigen)
("r-statmod" ,r-statmod)))
("r-rcppeigen" ,r-rcppeigen)))
(native-inputs
`(("r-knitr" ,r-knitr)))
(home-page "https://cran.r-project.org/web/packages/lme4")
@ -5919,6 +5919,33 @@ is designed to support editing of scripts and interaction with various
statistical analysis programs such as R, Julia, and JAGS.")
(license license:gpl3+))))
(define-public emacs-poly-r
(package
(name "emacs-poly-r")
(version "0.2.2")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/polymode/poly-R")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0a4wx73jkngw5nbq1fa4jfhba6bsmyn6vnsf887x3xhb5v3ykhsg"))))
(build-system emacs-build-system)
(propagated-inputs
`(("emacs-ess" ,emacs-ess)
("emacs-poly-noweb" ,emacs-poly-noweb)
("emacs-polymode-markdown" ,emacs-polymode-markdown)
("emacs-polymode" ,emacs-polymode)))
(properties '((upstream-name . "poly-R")))
(home-page "https://github.com/polymode/poly-markdown")
(synopsis "Polymodes for the R language")
(description
"This package provides a number of polymodes for working with mixed R
files, including Rmarkdown files.")
(license license:gpl3+)))
(define-public readstat
(package
(name "readstat")

71
gnu/packages/version-control.scm
View File

@ -62,6 +62,7 @@
#:use-module (guix download)
#:use-module (guix git-download)
#:use-module (guix hg-download)
#:use-module (guix build python-build-system)
#:use-module (guix build-system cmake)
#:use-module (guix build-system copy)
#:use-module (guix build-system gnu)
@ -88,6 +89,7 @@
#:use-module (gnu packages gl)
#:use-module (gnu packages glib)
#:use-module (gnu packages gnome)
#:use-module (gnu packages gnupg)
#:use-module (gnu packages golang)
#:use-module (gnu packages groff)
#:use-module (gnu packages guile)
@ -202,7 +204,7 @@ as well as the classic centralized workflow.")
(base32
"00n7vbfmd3ywgjksgwrszwj0l2niba64qkaq07ra4p8mawy483ax"))))
;; For subtree documentation.
("asciidoc" ,asciidoc-py3)
("asciidoc" ,asciidoc)
("docbook-xsl" ,docbook-xsl)
("xmlto" ,xmlto)
("pkg-config" ,pkg-config)))
@ -1612,6 +1614,7 @@ execution of any hook written in any language before every commit.")
(method url-fetch)
(uri (string-append "https://www.mercurial-scm.org/"
"release/mercurial-" version ".tar.gz"))
(patches (search-patches "mercurial-hg-extension-path.patch"))
(sha256
(base32
"17rhlmmkqz5ll3k68jfzpcifg3nndbcbc2nx7kw8xn3qcj7nlpgw"))))
@ -1682,6 +1685,11 @@ execution of any hook written in any language before every commit.")
("which" ,which)))
(inputs
`(("python" ,python)))
;; Find third-party extensions.
(native-search-paths
(list (search-path-specification
(variable "HGEXTENSIONPATH")
(files '("lib/python3.8/site-packages/hgext3rd")))))
(home-page "https://www.mercurial-scm.org/")
(synopsis "Decentralized version control system")
(description
@ -1716,6 +1724,67 @@ interface.")
history. It implements the changeset evolution concept for Mercurial.")
(license license:gpl2)))
(define-public hg-commitsigs
;; Latest tag is 11 years old.
(let ((changeset "b53eb6862bff")
(revision "0"))
(package
(name "hg-commitsigs")
(version (git-version "0.1.0" revision changeset))
(source (origin
(method hg-fetch)
(uri (hg-reference
(url "https://foss.heptapod.net/mercurial/commitsigs")
(changeset changeset)))
(file-name (git-file-name name version))
(sha256
(base32
"059gm66q06m6ayl4brsc517zkw3ahmz249b6xm1m32ac5y24wb9x"))))
(build-system copy-build-system)
(arguments
`(#:imported-modules ((guix build python-build-system)
,@%copy-build-system-modules)
#:modules ((srfi srfi-1)
(guix build python-build-system)
;; Don't use `%copy-build-system-modules' because
;; `standard-phases' from (guix build gnu-build-system)
;; shadows the one from (guix build copy-build-system),
;; which is the one we actually want.
(guix build copy-build-system)
((guix build gnu-build-system) #:prefix gnu)
(guix build utils)
(guix build gremlin)
(ice-9 ftw)
(guix elf))
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-paths
(lambda* (#:key inputs #:allow-other-keys)
(let ((gpg (string-append (assoc-ref inputs "gnupg")
"/bin/gpg"))
(openssl (string-append (assoc-ref inputs "openssl")
"/bin/openssl")))
(substitute* "commitsigs.py"
(("b'gpg',") (string-append "b'" gpg "',"))
(("b'openssl',") (string-append "b'" openssl "',")))))))
#:install-plan
`(("commitsigs.py" ,(string-append "lib/python"
(python-version
(assoc-ref %build-inputs "python"))
"/site-packages/hgext3rd/commitsigs.py")))))
(native-inputs
`(("python" ,python)))
(inputs
`(("gnupg" ,gnupg)
("openssl" ,openssl)))
(home-page "https://foss.heptapod.net/mercurial/commitsigs")
(synopsis "Automatic signing of changeset hashes")
(description "This package provides a Mercurial extension for signing
the changeset hash of commits. The signure is embedded directly in the
changeset itself; there won't be any extra commits. Either GnuPG or OpenSSL
can be used for signing.")
(license license:gpl2)))) ;per commitsigs.py
(define-public neon
(package
(name "neon")

12
gnu/packages/video.scm
View File

@ -776,7 +776,7 @@ television and DVD. It is also known as AC-3.")
(define-public libaom
(package
(name "libaom")
(version "3.0.0")
(version "3.1.0")
(source (origin
(method git-fetch)
(uri (git-reference
@ -785,7 +785,7 @@ television and DVD. It is also known as AC-3.")
(file-name (git-file-name name version))
(sha256
(base32
"178rq1d7i9q4lg40bipkyhdrk18j9wi5k5avpa5bls0zm7g5ifsx"))))
"1v3i34jmbz1p3x8msj3vx46nl6jdzxbkr2lfbh06vard8adb16il"))))
(build-system cmake-build-system)
(native-inputs
`(("perl" ,perl)
@ -2183,14 +2183,14 @@ To load this plugin, specify the following option when starting mpv:
(define-public youtube-dl
(package
(name "youtube-dl")
(version "2021.04.26")
(version "2021.05.16")
(source (origin
(method url-fetch)
(uri (string-append "https://youtube-dl.org/downloads/latest/"
"youtube-dl-" version ".tar.gz"))
(sha256
(base32
"0jpa65jr5djn9175p6a8j9i1zgarshfwfsgmprc0vvnsl3s23ksc"))
"1z8sdzvkxhscnzy7cnjag308glif0k8jylr11biqwzypm1f2l0fl"))
(snippet
'(begin
;; Delete the pre-generated files, except for the man page
@ -4574,7 +4574,7 @@ transitions, and effects and then export your film to many common formats.")
(define-public dav1d
(package
(name "dav1d")
(version "0.8.2")
(version "0.9.0")
(source
(origin
(method git-fetch)
@ -4583,7 +4583,7 @@ transitions, and effects and then export your film to many common formats.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0plmnxpz66yv3nqv1kgbyyfnwfqi9dqs0zbsdj488i6464a1m6si"))))
(base32 "0ki3wlyaqr80gl1srbbd18dd5bs1sl9icxym8ar62abpvgzxl5yk"))))
(build-system meson-build-system)
(native-inputs `(("nasm" ,nasm)))
(home-page "https://code.videolan.org/videolan/dav1d")

38
gnu/packages/vim.scm
View File

@ -10,6 +10,7 @@
;;; Copyright © 2019, 2020 Jakub Kądziołka <kuba@kadziolka.net>
;;; Copyright © 2020 Jack Hill <jackhill@jackhill.us>
;;; Copyright © 2021 Simon Tournier <zimon.toutoune@gmail.com>
;;; Copyright © 2021 Tissevert <tissevert+guix@marvid.fr>
;;;
;;; This file is part of GNU Guix.
;;;
@ -579,6 +580,43 @@ are detected, the user is notified.")
(home-page "https://github.com/vim-syntastic/syntastic")
(license license:wtfpl2)))
(define-public vim-solarized
(let ((commit "62f656a02f93c5190a8753159e34b385588d5ff3")
(revision "1"))
(package
(name "vim-solarized")
(version (git-version "1.0.0beta1" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/altercation/solarized")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "0001mz5v3a8zvi3gzmxhi3yrsb6hs7qf6i497arsngnvj2cwn61d"))))
(build-system copy-build-system)
(arguments
'(#:install-plan
'(("vim-colors-solarized/colors" "share/vim/vimfiles/")
("vim-colors-solarized/doc" "share/vim/vimfiles/"))))
(home-page "https://github.com/altercation/vim-colors-solarized")
(synopsis "Solarized color scheme for Vim")
(description
"This package provides the Solarized theme as a Vim color scheme.
Solarized is a 16-color palette comprising 8 monotones and 8 accent
colors. It was designed for use with both terminal and GUI applications, and
has a dark and a light mode.
Based on CIELAB lightness relationships between colors, this theme reduces
brightness contrast but retains contrasting hues based on colorwheel relations
for syntax highlighting readability.
It keeps the same selective contrast relationships and overall feel when
switching between the light and dark background modes.")
(license license:expat))))
(define-public editorconfig-vim
(package
(name "editorconfig-vim")

25
gnu/packages/virtualization.scm
View File

@ -1031,14 +1031,14 @@ manage system or application containers.")
(define-public libvirt
(package
(name "libvirt")
(version "7.2.0")
(version "7.3.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://libvirt.org/sources/libvirt-"
version ".tar.xz"))
(sha256
(base32 "1l6i1rz1v9rnp61sgzlrlbsfh03208dbm3b259i0jl5sqz85kx01"))
(base32 "1gn13mfwbdhp31pkzvrba7avz84yc9f1ik9f3ympa51hq22vpg97"))
(patches (search-patches "libvirt-add-install-prefix.patch"))))
(build-system meson-build-system)
(arguments
@ -1159,33 +1159,34 @@ three libraries:
(define-public python-libvirt
(package
(name "python-libvirt")
(version "7.2.0")
(version "7.3.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://libvirt.org/sources/python/libvirt-python-"
version ".tar.gz"))
(sha256
(base32 "1ryfimhf47s9k4n0gys233bh15l68fccs2bvj8bjwqjm9k2vmhy0"))))
(base32 "15pn8610ybf03xff3vbz3apz2ph42k2kh6k19r020l9nvc6jcv37"))))
(build-system python-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-nosetests-path
(lambda* (#:key inputs #:allow-other-keys)
(replace 'check
(lambda* (#:key inputs outputs tests? #:allow-other-keys)
(when tests?
;; No reason to explicity invoke Python on a wrapped pytest.
(substitute* "setup.py"
(("\"/usr/bin/nosetests\"")
(string-append "\"" (which "nosetests") "\""))
(("self\\.spawn\\(\\[sys\\.executable, nose\\]\\)")
(format #f "self.spawn([\"~a\", nose])" (which "bash"))))
#t)))))
(("sys\\.executable, pytest") "pytest"))
(add-installed-pythonpath inputs outputs)
(setenv "LIBVIRT_API_COVERAGE" "whynot")
(invoke "python" "setup.py" "test")))))))
(inputs
`(("libvirt" ,libvirt)))
(propagated-inputs
`(("python-lxml" ,python-lxml)))
(native-inputs
`(("pkg-config" ,pkg-config)
("python-nose" ,python-nose)))
("python-pytest" ,python-pytest)))
(home-page "https://libvirt.org")
(synopsis "Python bindings to libvirt")
(description "This package provides Python bindings to the libvirt

17
gnu/packages/web-browsers.scm
View File

@ -599,9 +599,7 @@ driven and does not detract you from your daily work.")
(define-public nyxt
(package
(name "nyxt")
;; Package the pre-release because latest stable 1.5.0 does not build
;; anymore.
(version "2-pre-release-7")
(version "2.0.0")
(source
(origin
(method git-fetch)
@ -612,7 +610,7 @@ driven and does not detract you from your daily work.")
(commit version)))
(sha256
(base32
"0d5mawka26gwi9nb45x1n33vgskwyn46jrvfz7nzmm2jfaq4ipn6"))
"0y91hnanf1bj378zsxhjh33qnhj09f6ixpdqmkl69k0075zls93r"))
(file-name (git-file-name "nyxt" version))))
(build-system gnu-build-system)
(arguments
@ -627,10 +625,6 @@ driven and does not detract you from your daily work.")
(lambda _
(setenv "HOME" "/tmp")
#t))
(add-before 'build 'set-version
(lambda _
(setenv "NYXT_VERSION" ,version)
#t))
(add-before 'check 'configure-tests
(lambda _
(setenv "NYXT_TESTS_NO_NETWORK" "1")
@ -678,7 +672,6 @@ driven and does not detract you from your daily work.")
("cluffer" ,sbcl-cluffer)
("dexador" ,sbcl-dexador)
("enchant" ,sbcl-enchant)
("file-attributes" ,sbcl-file-attributes)
("fset" ,sbcl-fset)
("hu.dwim.defclass-star" ,sbcl-hu.dwim.defclass-star)
("iolib" ,sbcl-iolib)
@ -711,9 +704,9 @@ driven and does not detract you from your daily work.")
("gobject-introspection" ,gobject-introspection)))
(synopsis "Extensible web-browser in Common Lisp")
(home-page "https://nyxt.atlas.engineer")
(description "Nyxt is a keyboard-oriented, extensible web-browser
designed for power users. The application has familiar Emacs and VI
key-bindings and is fully configurable and extensible in Common Lisp.")
(description "Nyxt is a keyboard-oriented, extensible web browser designed
for power users. Conceptually inspired by Emacs and Vim, it has familiar
key-bindings (Emacs, vi, CUA), and is fully configurable in Common Lisp.")
(license license:bsd-3)))
(define-public next

4
gnu/packages/web.scm
View File

@ -4299,7 +4299,7 @@ can say what method it actually meant.")
(define-public perl-plack-middleware-removeredundantbody
(package
(name "perl-plack-middleware-removeredundantbody")
(version "0.07")
(version "0.09")
(source
(origin
(method url-fetch)
@ -4307,7 +4307,7 @@ can say what method it actually meant.")
"Plack-Middleware-RemoveRedundantBody-"
version ".tar.gz"))
(sha256
(base32 "1hz3kgb5vw4r02gfk9i911f5ykvz55lrsx45bdcllk2bszal3f34"))))
(base32 "0zh83001rn5aqwpc1pn3di2h3ibzlf2dvkmkv05hnadpss9mzm40"))))
(build-system perl-build-system)
(propagated-inputs
`(("perl-plack" ,perl-plack)))

6
gnu/packages/wm.scm
View File

@ -163,14 +163,14 @@ the leaves of a full binary tree.")
(define-public herbstluftwm
(package
(name "herbstluftwm")
(version "0.9.2")
(version "0.9.3")
(source
(origin
(method url-fetch)
(uri (string-append "https://herbstluftwm.org/tarballs/herbstluftwm-"
version ".tar.gz"))
(sha256
(base32 "0avfhr68f6fjnafjdcyxcx7dkg38f2nadmhpj971qyqzfq2f6i38"))
(base32 "01f1bv9axjhw1l2gwhdwahljssj0h8q7a1bqwbpnwvln0ayv39qb"))
(file-name (string-append "herbstluftwm-" version ".tar.gz"))))
(build-system cmake-build-system)
(inputs
@ -334,7 +334,7 @@ commands would.")
`(("which" ,which)
("perl" ,perl)
("pkg-config" ,pkg-config)
("asciidoc-py3" ,asciidoc-py3)
("asciidoc" ,asciidoc)
;; For building the documentation.
("libxml2" ,libxml2)
("docbook-xsl" ,docbook-xsl)))

26
gnu/packages/xdisorg.scm
View File

@ -1090,15 +1090,14 @@ compact configuration syntax.")
(define-public rxvt-unicode
(package
(name "rxvt-unicode")
(version "9.22")
(version "9.26")
(source (origin
(method url-fetch)
(uri (string-append "http://dist.schmorp.de/rxvt-unicode/Attic/"
name "-" version ".tar.bz2"))
(patches (search-patches "rxvt-unicode-escape-sequences.patch"))
(sha256
(base32
"1pddjn5ynblwfrdmskylrsxb9vfnk3w4jdnq2l8xn2pspkljhip9"))))
"12y9p32q0v7n7rhjla0j2g9d5rj2dmwk20c9yhlssaaxlawiccb4"))))
(build-system gnu-build-system)
(arguments
;; This sets the destination when installing the necessary terminal
@ -1148,7 +1147,8 @@ compact configuration syntax.")
#t))))))
(inputs
`(("libXft" ,libxft)
("libX11" ,libx11)))
("libX11" ,libx11)
("libXt" ,libxt)))
(native-inputs
`(("ncurses" ,ncurses) ;trigger the installation of terminfo data
("perl" ,perl)
@ -2237,11 +2237,25 @@ binary to setuid-binaries:
(sha256
(base32 "0c4w87ipsw09aii34szj9p0xfy0m00wyjpll0gb0aqmwa60p0c5d"))))
(build-system meson-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-file-names
(lambda* (#:key inputs #:allow-other-keys)
(substitute* (find-files "src" "\\.c$")
(("\"(cat|rm)\"" _ command)
(string-append "\"" (assoc-ref inputs "coreutils")
"/bin/" command "\""))
(("\"xdg-mime\"")
(string-append "\"" (assoc-ref inputs "xdg-utils")
"/bin/xdg-mime\""))))))))
(native-inputs
`(("pkg-config" ,pkg-config)))
(inputs
`(("wayland" ,wayland)
("wayland-protocols" ,wayland-protocols)))
`(("coreutils" ,coreutils)
("wayland" ,wayland)
("wayland-protocols" ,wayland-protocols)
("xdg-utils" ,xdg-utils)))
(home-page "https://github.com/bugaevc/wl-clipboard")
(synopsis "Command-line copy/paste utilities for Wayland")
(description "Wl-clipboard is a set of command-line copy/paste utilities for

8
gnu/packages/xfce.scm
View File

@ -1243,7 +1243,7 @@ of data to either CD/DVD/BD.")
(define-public mousepad
(package
(name "mousepad")
(version "0.5.4")
(version "0.5.5")
(source (origin
(method url-fetch)
(uri (string-append "https://archive.xfce.org/src/apps/mousepad/"
@ -1251,7 +1251,7 @@ of data to either CD/DVD/BD.")
version ".tar.bz2"))
(sha256
(base32
"189aljqgkrspqk9498izgvssw08pgkyvf7hc7ddmzfhcblp4j3yr"))))
"1qdbch7g8ppwn1rsm8nq9rbvabvx02lvn3dxb45ga3g1w005zhs0"))))
(build-system gnu-build-system)
(arguments
'(#:configure-flags '(;; Use the GSettings keyfile backend rather than
@ -1285,7 +1285,7 @@ of data to either CD/DVD/BD.")
(define-public xfce4-screenshooter
(package
(name "xfce4-screenshooter")
(version "1.9.8")
(version "1.9.9")
(source (origin
(method url-fetch)
(uri (string-append "https://archive.xfce.org/src/apps/"
@ -1295,7 +1295,7 @@ of data to either CD/DVD/BD.")
version ".tar.bz2"))
(sha256
(base32
"0l1cyrb4ym7d95yliyl8gn701wvnr734v622yyy3zdnk99hrs0kg"))))
"196swmc4amab8xcwv4q9p8b43fzzi9xagg20gnyjvf5x7yssxj1k"))))
(build-system gnu-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)

33
gnu/packages/xml.scm
View File

@ -31,6 +31,7 @@
;;; Copyright © 2021 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2021 Felix Gruber <felgru@posteo.net>
;;; Copyright © 2021 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2021 David Larsson <david.larsson@selfhosted.xyz>
;;;
;;; This file is part of GNU Guix.
;;;
@ -224,6 +225,19 @@ hierarchical form with variable field lengths.")
project (but it is usable outside of the Gnome platform).")
(license license:x11)))
(define-public libxml2-xpath0
(package/inherit libxml2
(name "libxml2-xpath0")
(source (origin
(inherit (package-source libxml2))
(patches (append (search-patches
"libxml2-xpath0-Add-option-xpath0.patch")
(origin-patches (package-source libxml2))))))
(description
"Libxml2-xpath0 is like libxml2 but with a patch applied that
provides an @code{--xpath0} option to @command{xmllint} that enables it
to output XPath results with a null delimiter.")))
(define-public libxlsxwriter
(package
(name "libxlsxwriter")
@ -530,14 +544,14 @@ the @code{Graph} class and write it out in a specific file format.")
(define-public perl-xml-atom
(package
(name "perl-xml-atom")
(version "0.42")
(version "0.43")
(source (origin
(method url-fetch)
(uri (string-append "mirror://cpan/authors/id/M/MI/MIYAGAWA/"
"XML-Atom-" version ".tar.gz"))
(sha256
(base32
"1wa8kfy1w4mg7kzxim4whyprkn48a2il6fap0b947zywknw4c6y6"))))
"0b8bpdnvz9sqwjhjkydbzy4karb7nn6i15b8g4mczrznlsb3hnaf"))))
(build-system perl-build-system)
(arguments
`(#:phases
@ -704,14 +718,14 @@ XML parser and the high performance DOM implementation.")
(define-public perl-xml-libxml-simple
(package
(name "perl-xml-libxml-simple")
(version "0.99")
(version "1.01")
(source (origin
(method url-fetch)
(uri (string-append "mirror://cpan/authors/id/M/MA/MARKOV/"
"XML-LibXML-Simple-" version ".tar.gz"))
(sha256
(base32
"0i4ybiqdnvnbfxqslw2y392kvy7i752dl8n99bqiqv5kzk4lbzhl"))))
"19k50d80i9dipsl6ln0f4awv9wmdg0xm3d16z8mngmvh9c8ci66d"))))
(build-system perl-build-system)
(propagated-inputs
`(("perl-file-slurp-tiny" ,perl-file-slurp-tiny)
@ -770,14 +784,14 @@ checks.")
(define-public perl-xml-rss
(package
(name "perl-xml-rss")
(version "1.61")
(version "1.62")
(source (origin
(method url-fetch)
(uri (string-append "mirror://cpan/authors/id/S/SH/SHLOMIF/"
"XML-RSS-" version ".tar.gz"))
(sha256
(base32
"03f983l2dnkvcw6iyg1s0xmv5wn793d3kvqlshmhm01ibp7ffvzs"))))
"0klb8ghd405pdkmn25lp3i4j2lfydz8w581sk51p3zy788s0c9yk"))))
(build-system perl-build-system)
(native-inputs
`(("perl-module-build" ,perl-module-build)
@ -970,8 +984,7 @@ This module provide functions which simplify writing tests for
"0psr5pwsk2biz2bfkigmx04v2rfhs6ybwcfmcrrg7gvh9bpp222b"))))
(build-system perl-build-system)
(propagated-inputs
`(("perl-carp" ,perl-carp)
("perl-log-report" ,perl-log-report)
`(("perl-log-report" ,perl-log-report)
("perl-xml-compile-tester" ,perl-xml-compile-tester)
("perl-xml-libxml" ,perl-xml-libxml)
("perl-scalar-list-utils" ,perl-scalar-list-utils)
@ -1065,14 +1078,14 @@ server, collect the answer, and finally decoding the XML to Perl.")
(define-public perl-xml-feed
(package
(name "perl-xml-feed")
(version "0.59")
(version "0.61")
(source (origin
(method url-fetch)
(uri (string-append "mirror://cpan/authors/id/D/DA/DAVECROSS/"
"XML-Feed-" version ".tar.gz"))
(sha256
(base32
"1z1a88bpy64j42bbyl8acbfl3dn9iaz47gx6clkgy5sbn4kr0kgk"))))
"1zrslg7wz15sm1k28i3gp108cszh062ac24m3ydvr59pwfqs9br6"))))
(build-system perl-build-system)
(native-inputs
`(("perl-module-build" ,perl-module-build)

35
gnu/services/configuration.scm
View File

@ -44,10 +44,12 @@
configuration-error?
define-configuration
define-configuration/no-serialization
no-serialization
serialize-configuration
define-maybe
define-maybe/no-serialization
validate-configuration
generate-documentation
configuration->documentation
@ -107,20 +109,34 @@ does not have a default value" field kind)))
"Assemble PARTS into a raw (unhygienic) identifier."
(datum->syntax ctx (symbol-append (syntax->datum parts) ...)))
(define-syntax define-maybe
(lambda (x)
(syntax-case x ()
(define (define-maybe-helper serialize? syn)
(syntax-case syn ()
((_ stem)
(with-syntax
((stem? (id #'stem #'stem #'?))
(maybe-stem? (id #'stem #'maybe- #'stem #'?))
(serialize-stem (id #'stem #'serialize- #'stem))
(serialize-maybe-stem (id #'stem #'serialize-maybe- #'stem)))
#'(begin
#`(begin
(define (maybe-stem? val)
(or (eq? val 'disabled) (stem? val)))
(define (serialize-maybe-stem field-name val)
(if (stem? val) (serialize-stem field-name val) ""))))))))
#,@(if serialize?
(list #'(define (serialize-maybe-stem field-name val)
(if (stem? val)
(serialize-stem field-name val)
"")))
'()))))))
(define-syntax define-maybe
(lambda (x)
(syntax-case x (no-serialization)
((_ stem (no-serialization))
(define-maybe-helper #f #'(_ stem)))
((_ stem)
(define-maybe-helper #t #'(_ stem))))))
(define-syntax-rule (define-maybe/no-serialization stem)
(define-maybe stem (no-serialization)))
(define (define-configuration-helper serialize? syn)
(syntax-case syn ()
@ -207,6 +223,13 @@ does not have a default value" field kind)))
#t #'(_ stem (field (field-type def ...) doc custom-serializer ...)
...))))))
(define-syntax-rule (define-configuration/no-serialization
stem (field (field-type def ...)
doc custom-serializer ...) ...)
(define-configuration stem (field (field-type def ...)
doc custom-serializer ...) ...
(no-serialization)))
(define (empty-serializer field-name val) "")
(define serialize-package empty-serializer)

135
gnu/services/networking.scm
View File

@ -10,7 +10,7 @@
;;; Copyright © 2018 Chris Marusich <cmmarusich@gmail.com>
;;; Copyright © 2018 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2019 Florian Pelz <pelzflorian@pelzflorian.de>
;;; Copyright © 2019 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2019, 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2019 Sou Bunnbu <iyzsong@member.fsf.org>
;;; Copyright © 2019 Alex Griffin <a@ajgrf.com>
;;; Copyright © 2020 Brice Waegeneire <brice@waegenei.re>
@ -111,6 +111,18 @@
inetd-entry
inetd-service-type
opendht-configuration
opendht-configuration-peer-discovery?
opendht-configuration-verbose?
opendht-configuration-bootstrap-host
opendht-configuration-port
opendht-configuration-proxy-server-port
opendht-configuration-proxy-server-port-tls
opendht-configuration->command-line-arguments
opendht-shepherd-service
opendht-service-type
tor-configuration
tor-configuration?
tor-hidden-service
@ -740,6 +752,127 @@ daemon will keep the system clock synchronized with that of the given servers.")
for listening on Internet sockets and spawning the corresponding services on
demand.")))
;;;
;;; OpenDHT, the distributed hash table network used by Jami
;;;
(define-maybe/no-serialization number)
(define-maybe/no-serialization string)
;;; To generate the documentation of the following configuration record, you
;;; can evaluate: (configuration->documentation 'opendht-configuration)
(define-configuration/no-serialization opendht-configuration
(opendht
(package opendht)
"The @code{opendht} package to use.")
(peer-discovery?
(boolean #false)
"Whether to enable the multicast local peer discovery mechanism.")
(enable-logging?
(boolean #false)
"Whether to enable logging messages to syslog. It is disabled by default
as it is rather verbose.")
(debug?
(boolean #false)
"Whether to enable debug-level logging messages. This has no effect if
logging is disabled.")
(bootstrap-host
(maybe-string "bootstrap.jami.net:4222")
"The node host name that is used to make the first connection to the
network. A specific port value can be provided by appending the @code{:PORT}
suffix. By default, it uses the Jami bootstrap nodes, but any host can be
specified here. It's also possible to disable bootstrapping by setting this
to the @code{'disabled} symbol.")
(port
(maybe-number 4222)
"The UDP port to bind to. When set to @code{'disabled}, an available port
is automatically selected.")
(proxy-server-port
(maybe-number 'disabled)
"Spawn a proxy server listening on the specified port.")
(proxy-server-port-tls
(maybe-number 'disabled)
"Spawn a proxy server listening to TLS connections on the specified
port."))
(define %opendht-accounts
;; User account and groups for Tor.
(list (user-group (name "opendht") (system? #t))
(user-account
(name "opendht")
(group "opendht")
(system? #t)
(comment "OpenDHT daemon user")
(home-directory "/var/empty")
(shell (file-append shadow "/sbin/nologin")))))
(define (opendht-configuration->command-line-arguments config)
"Derive the command line arguments used to launch the OpenDHT daemon from
CONFIG, an <opendht-configuration> object."
(match-record config <opendht-configuration>
(opendht bootstrap-host enable-logging? port debug? peer-discovery?
proxy-server-port proxy-server-port-tls)
(let ((dhtnode #~(string-append #$opendht:tools "/bin/dhtnode")))
`(,dhtnode
"--service" ;non-forking mode
,@(if (string? bootstrap-host)
(list "--bootstrap" bootstrap-host))
,@(if enable-logging?
(list "--syslog")
'())
,@(if (number? port)
(list "--port" (number->string port))
'())
,@(if debug?
(list "--verbose")
'())
,@(if peer-discovery?
(list "--peer-discovery")
'())
,@(if (number? proxy-server-port)
(list "--proxyserver" (number->string proxy-server-port))
'())
,@(if (number? proxy-server-port-tls)
(list "--proxyserverssl" (number->string proxy-server-port-tls))
'())))))
(define (opendht-shepherd-service config)
"Return a <shepherd-service> running OpenDHT."
(with-imported-modules (source-module-closure
'((gnu build shepherd)
(gnu system file-systems)))
(shepherd-service
(documentation "Run an OpenDHT node.")
(provision '(opendht dhtnode dhtproxy))
(requirement '(networking syslogd))
(modules '((gnu build shepherd)
(gnu system file-systems)))
(start #~(make-forkexec-constructor/container
(list #$@(opendht-configuration->command-line-arguments config))
#:mappings (list (file-system-mapping
(source "/dev/log") ;for syslog
(target source)))
#:user "opendht"
#:group "opendht"))
(stop #~(make-kill-destructor)))))
(define opendht-service-type
(service-type
(name 'opendht)
(default-value (opendht-configuration))
(extensions
(list (service-extension shepherd-root-service-type
(compose list opendht-shepherd-service))
(service-extension account-service-type
(const %opendht-accounts))))
(description "Run the OpenDHT @command{dhtnode} command that allows
participating in the distributed hash table based OpenDHT network. The
service can be configured to act as a proxy to the distributed network, which
can be useful for portable devices where minimizing energy consumption is
paramount. OpenDHT was originally based on Kademlia and adapted for
applications in communication. It is used by Jami, for example.")))
;;;
;;; Tor.

5
gnu/system/vm.scm
View File

@ -45,17 +45,12 @@
#:autoload (gnu packages gnupg) (guile-gcrypt)
#:use-module (gnu packages gawk)
#:use-module (gnu packages bash)
#:use-module (gnu packages less)
#:use-module (gnu packages virtualization)
#:use-module (gnu packages disk)
#:use-module (gnu packages zile)
#:use-module (gnu packages linux)
#:use-module (gnu packages admin)
#:use-module (gnu bootloader)
#:use-module (gnu bootloader grub)
#:use-module (gnu system shadow)
#:use-module (gnu system pam)
#:use-module (gnu system linux-container)
#:use-module (gnu system linux-initrd)
#:use-module (gnu bootloader)

22
guix/inferior.scm
View File

@ -90,6 +90,7 @@
inferior-package-native-search-paths
inferior-package-transitive-native-search-paths
inferior-package-search-paths
inferior-package-replacement
inferior-package-provenance
inferior-package-derivation
@ -462,6 +463,27 @@ package."
(define inferior-package-transitive-native-search-paths
(cut %inferior-package-search-paths <> 'package-transitive-native-search-paths))
(define (inferior-package-replacement package)
"Return the replacement for PACKAGE. This will either be an inferior
package, or #f."
(match (inferior-package-field
package
'(compose (match-lambda
((? package? package)
(let ((id (object-address package)))
(hashv-set! %package-table id package)
(list id
(package-name package)
(package-version package))))
(#f #f))
package-replacement))
(#f #f)
((id name version)
(inferior-package (inferior-package-inferior package)
name
version
id))))
(define (inferior-package-provenance package)
"Return a \"provenance sexp\" for PACKAGE, an inferior package. The result
is similar to the sexp returned by 'package-provenance' for regular packages."

3
guix/scripts/challenge.scm
View File

@ -257,7 +257,8 @@ NARINFO."
(http-fetch uri)))
(define reporter
(progress-reporter/file (narinfo-path narinfo)
(max size (or actual-size 0)) ;defensive
(and size
(max size (or actual-size 0))) ;defensive
#:abbreviation (const (uri-host uri))))
(define result

16
guix/scripts/discover.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2020 Mathieu Othacehe <othacehe@gnu.org>
;;; Copyright © 2020, 2021 Mathieu Othacehe <othacehe@gnu.org>
;;; Copyright © 2021 Simon Tournier <zimon.toutoune@gmail.com>
;;;
;;; This file is part of GNU Guix.
@ -26,6 +26,7 @@
#:use-module (guix build syscalls)
#:use-module (guix build utils)
#:use-module (guix scripts publish)
#:use-module (avahi)
#:use-module (ice-9 rdelim)
#:use-module (srfi srfi-37)
#:export (read-substitute-urls
@ -138,5 +139,16 @@ to synchronize with the writer."
(parameterize ((%publish-file publish-file))
(mkdir-p (dirname publish-file))
(false-if-exception (delete-file publish-file))
(catch 'avahi-error
(lambda ()
(avahi-browse-service-thread service-proc
#:types %services)))))
#:types %services))
(lambda (key err function . _)
(cond
((eq? err error/no-daemon)
(warning (G_ "Avahi daemon is not running, \
cannot auto-discover substitutes servers.~%")))
(else
(report-error (G_ "an Avahi error was raised by `~a': ~a~%")
function (error->string err))))
(exit 1)))))))

30
guix/scripts/publish.scm
View File

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 David Thompson <davet@gnu.org>
;;; Copyright © 2020 by Amar M. Singh <nly@disroot.org>
;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2021 Simon Tournier <zimon.toutoune@gmail.com>
;;;
@ -101,6 +101,8 @@ Publish ~a over HTTP.\n") %store-directory)
--workers=N use N workers to bake items"))
(display (G_ "
--ttl=TTL announce narinfos can be cached for TTL seconds"))
(display (G_ "
--negative-ttl=TTL announce missing narinfos can be cached for TTL seconds"))
(display (G_ "
--nar-path=PATH use PATH as the prefix for nar URLs"))
(display (G_ "
@ -224,6 +226,13 @@ usage."
(leave (G_ "~a: invalid duration~%") arg))
(alist-cons 'narinfo-ttl (time-second duration)
result))))
(option '("negative-ttl") #t #f
(lambda (opt name arg result)
(let ((duration (string->duration arg)))
(unless duration
(leave (G_ "~a: invalid duration~%") arg))
(alist-cons 'narinfo-negative-ttl (time-second duration)
result))))
(option '("nar-path") #t #f
(lambda (opt name arg result)
(alist-cons 'nar-path arg result)))
@ -390,14 +399,14 @@ References: ~a~%"
(define* (render-narinfo store request hash
#:key ttl (compressions (list %no-compression))
(nar-path "nar"))
(nar-path "nar") negative-ttl)
"Render metadata for the store path corresponding to HASH. If TTL is true,
advertise it as the maximum validity period (in seconds) via the
'Cache-Control' header. This allows 'guix substitute' to cache it for an
appropriate duration. NAR-PATH specifies the prefix for nar URLs."
(let ((store-path (hash-part->path store hash)))
(if (string-null? store-path)
(not-found request #:phrase "")
(not-found request #:phrase "" #:ttl negative-ttl)
(values `((content-type . (application/x-nix-narinfo))
,@(if ttl
`((cache-control (max-age . ,ttl)))
@ -512,7 +521,7 @@ interpreted as the basename of a store item."
(define* (render-narinfo/cached store request hash
#:key ttl (compressions (list %no-compression))
(nar-path "nar")
(nar-path "nar") negative-ttl
cache pool)
"Respond to the narinfo request for REQUEST. If the narinfo is available in
CACHE, then send it; otherwise, return 404 and \"bake\" that nar and narinfo
@ -536,7 +545,7 @@ requested using POOL."
#:compression
(first compressions)))))
(cond ((string-null? item)
(not-found request))
(not-found request #:ttl negative-ttl))
((file-exists? cached)
;; Narinfo is in cache, send it.
(values `((content-type . (application/x-nix-narinfo))
@ -584,7 +593,7 @@ requested using POOL."
#:phrase "We're baking it"
#:ttl 300))) ;should be available within 5m
(else
(not-found request #:phrase "")))))
(not-found request #:phrase "" #:ttl negative-ttl)))))
(define (compress-nar cache item compression)
"Save in directory CACHE the nar for ITEM compressed with COMPRESSION."
@ -974,7 +983,7 @@ methods, return the applicable compression."
(define* (make-request-handler store
#:key
cache pool
narinfo-ttl
narinfo-ttl narinfo-negative-ttl
(nar-path "nar")
(compressions (list %no-compression)))
(define compression-type?
@ -1006,10 +1015,12 @@ methods, return the applicable compression."
#:cache cache
#:pool pool
#:ttl narinfo-ttl
#:negative-ttl narinfo-negative-ttl
#:nar-path nar-path
#:compressions compressions)
(render-narinfo store request hash
#:ttl narinfo-ttl
#:negative-ttl narinfo-negative-ttl
#:nar-path nar-path
#:compressions compressions)))
;; /nar/file/NAME/sha256/HASH
@ -1068,7 +1079,7 @@ methods, return the applicable compression."
#:key
advertise? port
(compressions (list %no-compression))
(nar-path "nar") narinfo-ttl
(nar-path "nar") narinfo-ttl narinfo-negative-ttl
cache pool)
(when advertise?
(let ((name (service-name)))
@ -1084,6 +1095,7 @@ methods, return the applicable compression."
#:pool pool
#:nar-path nar-path
#:narinfo-ttl narinfo-ttl
#:narinfo-negative-ttl narinfo-negative-ttl
#:compressions compressions)
concurrent-http-server
`(#:socket ,socket)))
@ -1127,6 +1139,7 @@ methods, return the applicable compression."
(user (assoc-ref opts 'user))
(port (assoc-ref opts 'port))
(ttl (assoc-ref opts 'narinfo-ttl))
(negative-ttl (assoc-ref opts 'narinfo-negative-ttl))
(compressions (match (filter-map (match-lambda
(('compression . compression)
compression)
@ -1192,6 +1205,7 @@ consider using the '--user' option!~%")))
"publish worker"))
#:nar-path nar-path
#:compressions compressions
#:narinfo-negative-ttl negative-ttl
#:narinfo-ttl ttl))))))
;;; Local Variables:

Some files were not shown because too many files have changed in this diff Show More