me
/
guix
Archived
1
0
Fork 0
Code

Merge branch 'master' into core-updates 

Conflicts:
	gnu/local.mk
	gnu/packages/algebra.scm
	gnu/packages/bioinformatics.scm
	gnu/packages/curl.scm
	gnu/packages/docbook.scm
	gnu/packages/emacs-xyz.scm
	gnu/packages/maths.scm
	gnu/packages/plotutils.scm
	gnu/packages/python-web.scm
	gnu/packages/python-xyz.scm
	gnu/packages/radio.scm
	gnu/packages/readline.scm
	gnu/packages/tls.scm
	gnu/packages/xml.scm
	gnu/packages/xorg.scm
master
Marius Bakke 2021-06-06 21:16:32 +02:00
parent e7f0835b07 a068ed6a5f
commit 8d59c262ad
No known key found for this signature in database
GPG Key ID: A2A06DF2A33A54FA
176 changed files with 16041 additions and 6439 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Makefile.am
View File

@ -247,6 +247,7 @@ MODULES = \
guix/import/cpan.scm \
guix/import/cran.scm \
guix/import/crate.scm \
guix/import/egg.scm \
guix/import/elpa.scm \
guix/import/gem.scm \
guix/import/github.scm \
@ -292,6 +293,7 @@ MODULES = \
guix/scripts/challenge.scm \
guix/scripts/import/crate.scm \
guix/scripts/import/cran.scm \
guix/scripts/import/egg.scm \
guix/scripts/import/elpa.scm \
guix/scripts/import/gem.scm \
guix/scripts/import/gnu.scm \
@ -450,6 +452,7 @@ SCM_TESTS = \
tests/debug-link.scm \
tests/derivations.scm \
tests/discovery.scm \
tests/egg.scm \
tests/elpa.scm \
tests/file-systems.scm \
tests/gem.scm \

6
configure.ac
View File

@ -96,16 +96,12 @@ m4_pattern_forbid([^GUIX_])
dnl Search for 'guile' and 'guild'. This macro defines
dnl 'GUILE_EFFECTIVE_VERSION'.
GUILE_PKG([3.0 2.2])
GUILE_PKG([3.0])
GUILE_PROGS
if test "x$GUILD" = "x"; then
AC_MSG_ERROR(['guild' binary not found; please check your Guile installation.])
fi
if test "x$GUILE_EFFECTIVE_VERSION" = "x2.2"; then
PKG_CHECK_MODULES([GUILE], [guile-2.2 >= 2.2.6])
fi
dnl Get CFLAGS and LDFLAGS for libguile.
GUILE_FLAGS

36
doc/contributing.texi
View File

@ -1018,20 +1018,21 @@ Make sure the package builds on your platform, using @code{guix build
We recommend you also try building the package on other supported
platforms. As you may not have access to actual hardware platforms, we
recommend using the @code{qemu-binfmt-service-type} to emulate them. In
order to enable it, add the following service to the list of services in
your @code{operating-system} configuration:
order to enable it, add the @code{virtualization} service module and the
following service to the list of services in your @code{operating-system}
configuration:
@lisp
(service qemu-binfmt-service-type
(qemu-binfmt-configuration
(platforms (lookup-qemu-platforms "arm" "aarch64"))
(platforms (lookup-qemu-platforms "arm" "aarch64"))))
@end lisp
Then reconfigure your system.
You can then build packages for different platforms by specifying the
@code{--system} option. For example, to build the "hello" package for
the armhf, aarch64, or mips64 architectures, you would run the following
the armhf or aarch64 architectures, you would run the following
commands, respectively:
@example
guix build --system=armhf-linux --rounds=2 hello
@ -1062,7 +1063,7 @@ and which optional dependencies should be used. In particular, avoid adding
the @code{texlive-tiny} package or @code{texlive-union} procedure instead.
@item
For important changes, check that dependent package (if applicable) are
For important changes, check that dependent packages (if applicable) are
not affected by the change; @code{guix refresh --list-dependent
@var{package}} will help you do that (@pxref{Invoking guix refresh}).
@ -1180,6 +1181,11 @@ MIME attachments. You are advised to pay attention if your email client
changes anything like line breaks or indentation which could potentially
break the patches.
Expect some delay when you submit your very first patch to
@email{guix-patches@@gnu.org}. You have to wait until you get an
acknowledgement with the assigned tracking number. Future acknowledgements
should not be delayed.
When a bug is resolved, please close the thread by sending an email to
@email{@var{NNN}-done@@debbugs.gnu.org}.
@ -1517,20 +1523,20 @@ doubt, please contact us, we will be happy to help!
@table @asis
@item guix
Guix is written in the Guile programming language, and some strings contain
special formating that is interpreted by Guile. These special formating
special formatting that is interpreted by Guile. These special formatting
should be highlighted by Weblate. They start with @code{~} followed by one
or more characters.
When printing the string, Guile replaces the special formating symbols with
When printing the string, Guile replaces the special formatting symbols with
actual values. For instance, the string @samp{ambiguous package specification
`~a'} would be substituted to contain said package specification instead of
@code{~a}. To properly translate this string, you must keep the formating
@code{~a}. To properly translate this string, you must keep the formatting
code in your translation, although you can place it where it makes sense in
your language. For instance, the French translation says @samp{spécification
du paquet « ~a » ambiguë} because the adjective needs to be placed in the
end of the sentence.
If there are multiple formating symbols, make sure to respect the order.
If there are multiple formatting symbols, make sure to respect the order.
Guile does not know in which order you intended the string to be read, so it
will substitute the symbols in the same order as the English sentence.
@ -1538,9 +1544,9 @@ As an example, you cannot translate @samp{package '~a' has been superseded by
'~a'} by @samp{'~a' superseeds package '~a'}, because the meaning would be
reversed. If @var{foo} is superseded by @var{bar}, the translation would read
@samp{'foo' superseeds package 'bar'}. To work around this problem, it
is possible to use more advanced formating to select a given piece of data,
is possible to use more advanced formatting to select a given piece of data,
instead of following the default English order. @xref{Formatted Output,,,
guile, GNU Guile Reference Manual}, for more information on formating in Guile.
guile, GNU Guile Reference Manual}, for more information on formatting in Guile.
@item packages
@ -1551,7 +1557,7 @@ and Descriptions}). Texinfo markup looks like @samp{@@code@{rm -rf@}},
The characters after ``@@'' form the name of the markup, and the text between
``@{'' and ``@}'' is its content. In general, you should not translate the
content of markup like @code{@@code}, as it contains literal code that do not
change with language. You can translate the content of formating markup such
change with language. You can translate the content of formatting markup such
as @code{@@emph}, @code{@@i}, @code{@@itemize}, @code{@@item}. However, do
not translate the name of the markup, or it will not be recognized. Do
not translate the word after @code{@@end}, it is the name of the markup that
@ -1581,10 +1587,10 @@ The manual and the cookbook both use Texinfo. As for @code{packages}, please
keep Texinfo markup as is. There are more possible markup types in the manual
than in the package descriptions. In general, do not translate the content
of @code{@@code}, @code{@@file}, @code{@@var}, @code{@@value}, etc. You
should translate the content of formating markup such as @code{@@emph},
should translate the content of formatting markup such as @code{@@emph},
@code{@@i}, etc.
The manual contains sections that can be refered to by name by @code{@@ref},
The manual contains sections that can be referred to by name by @code{@@ref},
@code{@@xref} and @code{@@pxref}. We have a mechanism in place so you do
not have to translate their content. If you keep the English title, we will
automatically replace it with your translation of that title. This ensures
@ -1664,7 +1670,7 @@ synchronize it with our guix and artworks repositories after checking no issue
was introduced in the translation.
Developers can download the latest PO files from weblate in the Guix
repository by runnig the @command{make download-po} target. It will
repository by running the @command{make download-po} command. It will
automatically download the latest files from weblate, reformat them to a
canonical form, and check they do not contain issues. The manual needs to be
built again to check for additional issues that might crash Texinfo.

58
doc/guix.texi
View File

@ -76,7 +76,7 @@ Copyright @copyright{} 2020 Damien Cassou@*
Copyright @copyright{} 2020 Jakub Kądziołka@*
Copyright @copyright{} 2020 Jack Hill@*
Copyright @copyright{} 2020 Naga Malleswari@*
Copyright @copyright{} 2020 Brice Waegeneire@*
Copyright @copyright{} 2020, 2021 Brice Waegeneire@*
Copyright @copyright{} 2020 R Veera Kumar@*
Copyright @copyright{} 2020 Pierre Langlois@*
Copyright @copyright{} 2020 pinoaffe@*
@ -787,6 +787,13 @@ To use substitutes from @code{@value{SUBSTITUTE-SERVER}} or one of its mirrors
~root/.config/guix/current/share/guix/@value{SUBSTITUTE-SERVER}.pub
@end example
@quotation Note
If you do not enable substitutes, Guix will end up building
@emph{everything} from source on your machine, making each installation
and upgrade very expensive. @xref{On Trusting Binaries}, for a
discussion of reasons why one might want do disable substitutes.
@end quotation
@item
Each user may need to perform a few additional steps to make their Guix
environment ready for use, @pxref{Application Setup}.
@ -833,8 +840,7 @@ GNU Guix is available for download from its website at
GNU Guix depends on the following packages:
@itemize
@item @url{https://gnu.org/software/guile/, GNU Guile}, version 3.0.x or
2.2.x;
@item @url{https://gnu.org/software/guile/, GNU Guile}, version 3.0.x;
@item @url{https://notabug.org/cwebber/guile-gcrypt, Guile-Gcrypt}, version
0.1.0 or later;
@item
@ -11624,6 +11630,28 @@ using this mode, the symbol of the package is made by appending the
version to its name, so that multiple versions of the same package can
coexist.
@end table
@item egg
@cindex egg
Import metadata for @uref{https://wiki.call-cc.org/eggs, CHICKEN eggs}.
The information is taken from @file{PACKAGE.egg} files found in the
@uref{git://code.call-cc.org/eggs-5-latest, eggs-5-latest} Git
repository. However, it does not provide all the information that we
need, there is no ``description'' field, and the licenses used are not
always precise (BSD is often used instead of BSD-N).
@example
guix import egg sourcehut
@end example
Additional options include:
@table @code
@item --recursive
@itemx -r
Traverse the dependency graph of the given upstream package recursively
and generate package expressions for all those packages that are not yet
in Guix.
@end table
@end table
The structure of the @command{guix import} code is modular. It would be
@ -11778,6 +11806,8 @@ the updater for KDE packages;
the updater for X.org packages;
@item kernel.org
the updater for packages hosted on kernel.org;
@item egg
the updater for @uref{https://wiki.call-cc.org/eggs/, Egg} packages;
@item elpa
the updater for @uref{https://elpa.gnu.org/, ELPA} packages;
@item cran
@ -16450,6 +16480,7 @@ configuration rejecting all incoming connections except those to the ssh port
:INPUT ACCEPT
:FORWARD ACCEPT
:OUTPUT ACCEPT
-A INPUT -m conntrack --ctstate ESTABLISHED,RELATED -j ACCEPT
-A INPUT -p tcp --dport 22 -j ACCEPT
-A INPUT -j REJECT --reject-with icmp-port-unreachable
COMMIT
@ -16458,6 +16489,7 @@ COMMIT
:INPUT ACCEPT
:FORWARD ACCEPT
:OUTPUT ACCEPT
-A INPUT -m conntrack --ctstate ESTABLISHED,RELATED -j ACCEPT
-A INPUT -p tcp --dport 22 -j ACCEPT
-A INPUT -j REJECT --reject-with icmp6-port-unreachable
COMMIT
@ -19236,7 +19268,7 @@ The MATE package to use.
@end deftp
@deffn {Scheme Variable} lxqt-desktop-service-type
This is the type of the service that runs the @uref{https://lxqt.github.io,
This is the type of the service that runs the @uref{https://lxqt-project.org,
LXQt desktop environment}. Its value is a @code{lxqt-desktop-configuration}
object (see below).
@ -33868,6 +33900,13 @@ every time you modify your @command{config.scm} file and the
@command{-o StrictHostKeyChecking=no} prevents you from having to allow a
connection to an unknown host every time you connect.
@quotation Note
If you find the above @samp{hostfwd} example not to be working (e.g.,
your SSH client hangs attempting to connect to the mapped port of your
VM), make sure that your Guix System VM has networking support, such as
by using the @code{dhcp-client-service-type} service type.
@end quotation
@subsection Using @command{virt-viewer} with Spice
As an alternative to the default @command{qemu} graphical client you can
@ -34395,13 +34434,10 @@ This service type is intended to be extended by other service types,
such as below:
@lisp
(define module-installing-service-type
(service-type
(name 'module-installing-service)
(extensions (list (service-extension linux-loadable-module-service-type
(const (list module-to-install-1
module-to-install-2)))))
(default-value #f)))
(simple-service 'installing-module
linux-loadable-module-service-type
(list module-to-install-1
module-to-install-2))
@end lisp
This does not actually load modules at bootup, only adds it to the

7
etc/guix-daemon.cil.in
View File

@ -301,7 +301,7 @@
open read write)))
(allow guix_daemon_t
guix_daemon_conf_t
(lnk_file (create getattr rename unlink)))
(lnk_file (create getattr rename unlink read)))
(allow guix_daemon_t net_conf_t
(file (getattr open read)))
(allow guix_daemon_t net_conf_t
@ -328,6 +328,9 @@
(allow guix_daemon_t
cache_home_t
(dir (search)))
(allow guix_daemon_t
cache_home_t
(lnk_file (getattr read)))
;; self upgrades
(allow guix_daemon_t
@ -340,7 +343,7 @@
;; Socket operations
(allow guix_daemon_t
guix_daemon_socket_t
(sock_file (unlink)))
(sock_file (unlink write)))
(allow guix_daemon_t
init_t
(fd (use)))

35
etc/news.scm
View File

@ -14,6 +14,7 @@
;; Copyright © 2021 Zhu Zihao <all_but_last@163.com>
;; Copyright © 2021 Chris Marusich <cmmarusich@gmail.com>
;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be>
;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz>
;;
;; Copying and distribution of this file, with or without modification, are
;; permitted in any medium without royalty provided the copyright notice and
@ -22,6 +23,40 @@
(channel-news
(version 0)
(entry (commit "bdc298ecee15283451d3aa20a849dd7bb22c8538")
(title
(en "New @command{guix import egg} command")
(de "Neuer Befehl @command{guix import egg}")
(zh "新的 @command{guix import egg} 命令"))
(body
(en "The new @command{guix import egg} command allows packagers to
generate a package definition or a template thereof given the name of a
CHICKEN egg package, like so:
@example
guix import egg sourcehut
@end example
Run @command{info \"(guix) Invoking guix import\"} for more info.")
(de "Mit dem neuen Befehl @command{guix import egg} können
Paketautoren eine Paketdefinition oder eine Vorlage dafür anhand des Namens
eines „Egg“-Pakets für CHICKEN erzeugen, etwa so:
@example
guix import egg sourcehut
@end example
Führen Sie @command{info \"(guix.de) Aufruf von guix import\"} aus, um mehr
Informationen zu bekommen.")
(zh "新的 @command{guix import egg} 命令能让贡献者从一个CHICKEN egg生
成一个包装或包装样板。
x
@example
guix import egg sourcehut
@end example
想了解更多可以运行 @command{info \"(guix) Invoking guix import\"}。")))
(entry (commit "2161820ebbbab62a5ce76c9101ebaec54dc61586")
(title
(en "Risk of local privilege escalation during user account creation")

7
gnu/bootloader/u-boot.scm
View File

@ -73,9 +73,12 @@
(define install-allwinner64-u-boot
#~(lambda (bootloader root-index image)
(let ((spl (string-append bootloader "/libexec/u-boot-sunxi-with-spl.fit.itb")))
(let ((spl (string-append bootloader "/libexec/u-boot-sunxi-with-spl.bin"))
(u-boot (string-append bootloader "/libexec/u-boot-sunxi-with-spl.fit.itb")))
(write-file-on-device spl (stat:size (stat spl))
image (* 8 1024)))))
image (* 8 1024))
(write-file-on-device u-boot (stat:size (stat u-boot))
image (* 40 1024)))))
(define install-imx-u-boot
#~(lambda (bootloader root-index image)

16
gnu/build/linux-boot.scm
View File

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016, 2017, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2016, 2017, 2019–2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2019 Guillaume Le Vaillant <glv@posteo.net>
;;;
@ -411,11 +411,13 @@ the last argument of `mknod'."
(filter-map string->number (scandir "/proc")))))
(define* (mount-root-file-system root type
#:key volatile-root? (flags 0) options)
#:key volatile-root? (flags 0) options
check?)
"Mount the root file system of type TYPE at device ROOT. If VOLATILE-ROOT? is
true, mount ROOT read-only and make it an overlay with a writable tmpfs using
the kernel built-in overlayfs. FLAGS and OPTIONS indicates the options to use
to mount ROOT, and behave the same as for the `mount' procedure."
to mount ROOT, and behave the same as for the `mount' procedure.
If CHECK? is true, first run ROOT's fsck tool (if any) non-interactively."
(if volatile-root?
(begin
@ -436,7 +438,8 @@ to mount ROOT, and behave the same as for the `mount' procedure."
(mount "none" "/root" "overlay" 0
"lowerdir=/real-root,upperdir=/rw-root/upper,workdir=/rw-root/work"))
(begin
(check-file-system root type)
(when check?
(check-file-system root type))
(mount root "/root" type flags options)))
;; Make sure /root/etc/mtab is a symlink to /proc/self/mounts.
@ -600,7 +603,10 @@ upon error."
root-fs-type
#:volatile-root? volatile-root?
#:flags root-fs-flags
#:options root-options)
#:options root-options
#:check? (if root-fs
(file-system-check? root-fs)
#t))
(mount "none" "/root" "tmpfs"))
;; Mount the specified file systems.

13
gnu/local.mk
View File

@ -42,6 +42,7 @@
# Copyright © 2021 Björn Höfling <bjoern.hoefling@bjoernhoefling.de>
# Copyright © 2021 Greg Hogan <code@greghogan.com>
# Copyright © 2021 Philip McGrath <philip@philipmcgrath.com>
# Copyright © 2021 Arun Isaac <arunisaac@systemreboot.net>
#
# This file is part of GNU Guix.
#
@ -308,6 +309,7 @@ GNU_SYSTEM_MODULES = \
%D%/packages/jrnl.scm \
%D%/packages/jose.scm \
%D%/packages/julia.scm \
%D%/packages/julia-jll.scm \
%D%/packages/julia-xyz.scm \
%D%/packages/jupyter.scm \
%D%/packages/kawa.scm \
@ -601,6 +603,7 @@ GNU_SYSTEM_MODULES = \
%D%/services/base.scm \
%D%/services/certbot.scm \
%D%/services/cgit.scm \
%D%/services/ci.scm \
%D%/services/configuration.scm \
%D%/services/cuirass.scm \
%D%/services/cups.scm \
@ -692,6 +695,7 @@ GNU_SYSTEM_MODULES = \
%D%/tests.scm \
%D%/tests/audio.scm \
%D%/tests/base.scm \
%D%/tests/ci.scm \
%D%/tests/cups.scm \
%D%/tests/databases.scm \
%D%/tests/desktop.scm \
@ -807,7 +811,6 @@ dist_patch_DATA = \
%D%/packages/patches/akonadi-not-relocatable.patch \
%D%/packages/patches/akonadi-timestamps.patch \
%D%/packages/patches/allegro-mesa-18.2.5-and-later.patch \
%D%/packages/patches/amule-crypto-6.patch \
%D%/packages/patches/anki-mpv-args.patch \
%D%/packages/patches/antiword-CVE-2014-8123.patch \
%D%/packages/patches/antlr3-3_1-fix-java8-compilation.patch \
@ -974,8 +977,6 @@ dist_patch_DATA = \
%D%/packages/patches/emacs-exec-path.patch \
%D%/packages/patches/emacs-exwm-fix-fullscreen-states.patch \
%D%/packages/patches/emacs-fix-scheme-indent-function.patch \
%D%/packages/patches/emacs-geiser-guile-auto-activate.patch \
%D%/packages/patches/emacs-geiser-autoload-activate-implementation.patch \
%D%/packages/patches/emacs-ignore-empty-xim-styles.patch \
%D%/packages/patches/emacs-json-reformat-fix-tests.patch \
%D%/packages/patches/emacs-highlight-stages-add-gexp.patch \
@ -1018,7 +1019,6 @@ dist_patch_DATA = \
%D%/packages/patches/fpc-reproducibility.patch \
%D%/packages/patches/fplll-std-fenv.patch \
%D%/packages/patches/freedink-engine-fix-sdl-hints.patch \
%D%/packages/patches/freebayes-devendor-deps.patch \
%D%/packages/patches/freeglut-gcc-compat.patch \
%D%/packages/patches/freeimage-unbundle.patch \
%D%/packages/patches/fuse-overlapping-headers.patch \
@ -1254,7 +1254,6 @@ dist_patch_DATA = \
%D%/packages/patches/libffi-float128-powerpc64le.patch \
%D%/packages/patches/libvirt-add-install-prefix.patch \
%D%/packages/patches/libziparchive-add-includes.patch \
%D%/packages/patches/lksctp-tools-1.0.18-fix-header-file-name.patch \
%D%/packages/patches/localed-xorg-keyboard.patch \
%D%/packages/patches/kdiagram-Fix-missing-link-libraries.patch \
%D%/packages/patches/kiki-level-selection-crash.patch \
@ -1398,7 +1397,6 @@ dist_patch_DATA = \
%D%/packages/patches/mingw-w64-6.0.0-gcc.patch \
%D%/packages/patches/mingw-w64-dlltool-temp-prefix.patch \
%D%/packages/patches/mingw-w64-reproducible-gendef.patch \
%D%/packages/patches/minimap2-aarch64-support.patch \
%D%/packages/patches/minisat-friend-declaration.patch \
%D%/packages/patches/minisat-install.patch \
%D%/packages/patches/mit-krb5-hurd.patch \
@ -1407,6 +1405,7 @@ dist_patch_DATA = \
%D%/packages/patches/module-init-tools-moduledir.patch \
%D%/packages/patches/monero-use-system-miniupnpc.patch \
%D%/packages/patches/mono-mdoc-timestamping.patch \
%D%/packages/patches/mosaicatcher-unbundle-htslib.patch \
%D%/packages/patches/mozjs17-aarch64-support.patch \
%D%/packages/patches/mozjs24-aarch64-support.patch \
%D%/packages/patches/mozjs38-pkg-config-version.patch \
@ -1439,6 +1438,7 @@ dist_patch_DATA = \
%D%/packages/patches/network-manager-plugin-path.patch \
%D%/packages/patches/nginx-socket-cloexec.patch \
%D%/packages/patches/nsis-env-passthru.patch \
%D%/packages/patches/nsis-source-date-epoch.patch \
%D%/packages/patches/nss-getcwd-nonnull.patch \
%D%/packages/patches/nss-increase-test-timeout.patch \
%D%/packages/patches/nss-3.56-pkgconfig.patch \
@ -1766,7 +1766,6 @@ dist_patch_DATA = \
%D%/packages/patches/webkitgtk-share-store.patch \
%D%/packages/patches/webkitgtk-bind-all-fonts.patch \
%D%/packages/patches/websocketpp-fix-for-cmake-3.15.patch \
%D%/packages/patches/wgetpaste-update-bpaste.patch \
%D%/packages/patches/wicd-bitrate-none-fix.patch \
%D%/packages/patches/wicd-get-selected-profile-fix.patch \
%D%/packages/patches/wicd-urwid-1.3.patch \

41
gnu/machine/ssh.scm
View File

@ -38,6 +38,9 @@
#:use-module (guix store)
#:use-module (guix utils)
#:use-module ((guix self) #:select (make-config.scm))
#:use-module ((guix inferior)
#:select (inferior-exception?
inferior-exception-arguments))
#:use-module (gcrypt pk-crypto)
#:use-module (ice-9 format)
#:use-module (ice-9 match)
@ -443,17 +446,47 @@ have you run 'guix archive --generate-key?'")
(mlet %store-monad ((_ (check-deployment-sanity machine))
(boot-parameters (machine-boot-parameters machine)))
(let* ((os (machine-operating-system machine))
(host (machine-ssh-configuration-host-name
(machine-configuration machine)))
(eval (cut machine-remote-eval machine <>))
(menu-entries (map boot-parameters->menu-entry boot-parameters))
(bootloader-configuration (operating-system-bootloader os))
(bootcfg (operating-system-bootcfg os menu-entries)))
(define-syntax-rule (eval/error-handling condition handler ...)
;; Return a wrapper around EVAL such that HANDLER is evaluated if an
;; exception is raised.
(lambda (exp)
(lambda (store)
(guard (condition ((inferior-exception? condition)
(values (begin handler ...) store)))
(values (run-with-store store (eval exp))
store)))))
(mbegin %store-monad
(with-roll-back #f
(switch-to-system eval os))
(switch-to-system (eval/error-handling c
(raise (formatted-message
(G_ "\
failed to switch systems while deploying '~a':~%~{~s ~}")
host
(inferior-exception-arguments c))))
os))
(with-roll-back #t
(mbegin %store-monad
(upgrade-shepherd-services eval os)
(install-bootloader eval bootloader-configuration bootcfg)))))))
(upgrade-shepherd-services (eval/error-handling c
(warning (G_ "\
an error occurred while upgrading services on '~a':~%~{~s ~}~%")
host
(inferior-exception-arguments
c)))
os)
(install-bootloader (eval/error-handling c
(raise (formatted-message
(G_ "\
failed to install bootloader on '~a':~%~{~s ~}~%")
host
(inferior-exception-arguments c))))
bootloader-configuration bootcfg)))))))
;;;
@ -540,4 +573,6 @@ for environment of type '~a'")
;; Local Variables:
;; eval: (put 'remote-let 'scheme-indent-function 1)
;; eval: (put 'with-roll-back 'scheme-indent-function 1)
;; eval: (put 'eval/error-handling 'scheme-indent-function 1)
;; End:

42
gnu/packages/admin.scm
View File

@ -1162,14 +1162,14 @@ connection alive.")
bind-release-version)))
(package
(name "isc-dhcp")
(version "4.4.2")
(version "4.4.2-P1")
(source (origin
(method url-fetch)
(uri (string-append "https://ftp.isc.org/isc/dhcp/"
version "/dhcp-" version ".tar.gz"))
(sha256
(base32
"08a5003zdxgl41b29zjkxa92h2i40zyjgxg0npvnhpkfl5jcsz0s"))))
"06jsr0cg5rsmyibshrpcb9za0qgwvqccashdma7mlm1rflrh8pmh"))))
(build-system gnu-build-system)
(arguments
`(#:parallel-build? #f
@ -1292,7 +1292,7 @@ connection alive.")
("coreutils*" ,coreutils)
("sed*" ,sed)))
(home-page "https://www.isc.org/products/DHCP/")
(home-page "https://www.isc.org/dhcp/")
(synopsis "Dynamic Host Configuration Protocol (DHCP) tools")
(description
"ISC's Dynamic Host Configuration Protocol (DHCP) distribution provides a
@ -3608,14 +3608,14 @@ information tool.")
(define-public nnn
(package
(name "nnn")
(version "4.0")
(version "4.1.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/jarun/nnn/releases/download/v"
version "/nnn-v" version ".tar.gz"))
(sha256
(base32 "0m07nh1cdfikn4bkpni29j61hr9jdwbl0n5fmlm53l1xmn7yq6d2"))))
(base32 "1fnf35s3b2nfp18s712n5vhg6idx4rfgwdfv74nc2933v9l2dq7h"))))
(build-system gnu-build-system)
(inputs
`(("ncurses" ,ncurses)
@ -3626,30 +3626,26 @@ information tool.")
`(#:tests? #f ; no tests
#:phases
(modify-phases %standard-phases
(delete 'configure) ; no configure script
(add-after 'unpack 'patch-pkg-config
(lambda _
(substitute* "Makefile"
(("pkg-config")
,(pkg-config-for-target))))))
(delete 'configure)) ; no configure script
#:make-flags
(list
(string-append "PREFIX="
(assoc-ref %outputs "out"))
(string-append "CC=" ,(cc-for-target)))))
(string-append "CC=" ,(cc-for-target))
(string-append "PKG_CONFIG=" ,(pkg-config-for-target)))))
(home-page "https://github.com/jarun/nnn")
(synopsis "Terminal file browser")
(description "@command{nnn} is a fork of @command{noice}, a blazing-fast
lightweight terminal file browser with easy keyboard shortcuts for
navigation, opening files and running tasks. There is no config file and
mime associations are hard-coded. The incredible user-friendliness and speed
make it a perfect utility on modern distros.")
(description
"@command{nnn} is a fork of @command{noice}, a fast and minimal text
terminal file browser with keyboard shortcuts for navigation, opening files and
running tasks. There is no configuration file and MIME associations are
hard-coded.")
(license license:bsd-2)))
(define-public thermald
(package
(name "thermald")
(version "2.4.4")
(version "2.4.5")
(source
(origin
(method git-fetch)
@ -3658,7 +3654,7 @@ make it a perfect utility on modern distros.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1k0r2c13fihjndwfh0byw0i8ni4lzsjgwz874pvpj1l1nvjj0ajx"))))
(base32 "1y8s0cpjm01bz4isp3ksvnrbhpp3phivdhsb0w2kxhv09sfxkc5g"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
@ -3672,13 +3668,7 @@ make it a perfect utility on modern distros.")
(modify-phases %standard-phases
(add-before 'bootstrap 'no-early-./configure
(lambda _
(setenv "NO_CONFIGURE" "yet")
;; XXX thd_trip_point.h redefines "__STDC_LIMIT_MACROS" after
;; <xz>/include/lzma.h. ./configure forcibly appends -Werror
;; to CXXFLAGS, overriding any -Wno-error we'd add.
(substitute* "configure.ac"
(("-Werror") ""))
#t)))))
(setenv "NO_CONFIGURE" "yet"))))))
(native-inputs
`(("autoconf" ,autoconf)
("autoconf-archive" ,autoconf-archive)

4
gnu/packages/algebra.scm
View File

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

78
gnu/packages/animation.scm
View File

@ -2,7 +2,7 @@
;;; Copyright © 2015, 2017 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2018–2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Pkill -9 <pkill9@runbox.com>
;;; Copyright © 2020 Vinicius Monego <monego@posteo.net>
;;; Copyright © 2020, 2021 Vinicius Monego <monego@posteo.net>
;;;
;;; This file is part of GNU Guix.
;;;
@ -25,10 +25,12 @@
#:use-module (guix git-download)
#:use-module (guix utils)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix build-system cmake)
#:use-module (guix build-system gnu)
#:use-module (guix build-system meson)
#:use-module (gnu packages)
#:use-module (gnu packages algebra)
#:use-module (gnu packages assembly)
#:use-module (gnu packages autotools)
#:use-module (gnu packages boost)
#:use-module (gnu packages check)
@ -45,6 +47,8 @@
#:use-module (gnu packages image)
#:use-module (gnu packages imagemagick)
#:use-module (gnu packages jemalloc)
#:use-module (gnu packages networking)
#:use-module (gnu packages pcre)
#:use-module (gnu packages perl)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages pulseaudio)
@ -320,6 +324,78 @@ audio or video backends, ensuring good performance.")
(home-page "https://www.gnu.org/software/gnash/")
(license license:gpl3+))))
;; This package provides a standalone (no browser plugin) version of
;; Lightspark.
(define-public lightspark
(package
(name "lightspark")
(version "0.8.4.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/lightspark/lightspark")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "17l5gzb7p8nivx1a2frca2jklcjdsk2qj4jniv3z8bh307ksz254"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f ;requires Adobe Flex SDK, see README.tests
;; Disable browser plugins because neither NPAPI nor PPAPI is
;; supported in the browsers we have.
#:configure-flags
'("-DCOMPILE_NPAPI_PLUGIN=FALSE"
"-DCOMPILE_PPAPI_PLUGIN=FALSE")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'prepare-build-environment
(lambda _
;; Use relative etc path.
(substitute* "CMakeLists.txt" (("\\/etc") "etc"))))
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(invoke "./tests")))))))
(native-inputs
`(("gettext" ,gettext-minimal)
("glib:bin" ,glib "bin")
("nasm" ,nasm)
("perl" ,perl)
("pkg-config" ,pkg-config)
("python" ,python-wrapper)))
(inputs
`(("cairo" ,cairo)
("curl" ,curl)
("ffmpeg" ,ffmpeg)
("freeglut" ,freeglut)
("glew" ,glew)
("glibmm" ,glibmm)
("gnash" ,gnash)
("gnutls" ,gnutls)
("libjpeg" ,libjpeg-turbo)
("openssl" ,openssl)
("pango" ,pango)
("pcre2" ,pcre2)
("rtmpdump" ,rtmpdump)
("sdl2" ,sdl2)
("sdl2-mixer" ,sdl2-mixer)
("zlib" ,zlib)))
(home-page "https://lightspark.github.io/")
(synopsis "Flash player implementation")
(description
"Lightspark is a Flash player implementation for playing files in the SWF
format. It supports SWF files written on all versions of the ActionScript
language.")
;; NOTE: The bundled pugixml is a fork specific to Lightspark and
;; incompatible with the one we have.
;; FIXME: we also have jxrlib, but the build fails to find JXRMeta.h so we
;; use the bundled one for now.
(license (list license:lgpl3+ ;lightspark
license:mpl2.0 ;avmplus
license:bsd-2 ;jxrlib
license:expat)))) ;pugixml, PerlinNoise
(define-public papagayo
(let ((commit "e143684b30e59fe4a554f965cb655d23cbe93ee7")
(revision "1"))

4
gnu/packages/aspell.scm
View File

@ -489,14 +489,14 @@ under permissive licensing terms. See the 'Copyright' file."))))
(define-public ispell
(package
(name "ispell")
(version "3.4.02")
(version "3.4.04")
(source
(origin
(method url-fetch)
(uri (string-append "https://www.cs.hmc.edu/~geoff/tars/ispell-"
version ".tar.gz"))
(sha256
(base32 "0b6rqzqjdhwf323sf1dv8qzx5pxa5asz618922r59zjp65660yb6"))))
(base32 "0gp1rwn8grkvz28wgisc2j9w9svldnaiahl3lyis118xabqddg47"))))
(build-system gnu-build-system)
(arguments
`(#:parallel-build? #f

4
gnu/packages/astronomy.scm
View File

@ -228,7 +228,7 @@ astronomical image-processing packages like Drizzle, Swarp or SExtractor.")
(define-public gnuastro
(package
(name "gnuastro")
(version "0.14")
(version "0.15")
(source
(origin
(method url-fetch)
@ -236,7 +236,7 @@ astronomical image-processing packages like Drizzle, Swarp or SExtractor.")
version ".tar.lz"))
(sha256
(base32
"1xp6n42qxv0x6yigi2w2l5k8006smv27lhrcssysgsvzbydghzg5"))))
"1jjr3ixxbpsr5m4s7ahh12ymcnlvjzwcp02ya16b1lvzrz1wmhy4"))))
(build-system gnu-build-system)
(arguments
'(#:configure-flags '("--disable-static")))

32
gnu/packages/audio.scm
View File

@ -302,7 +302,7 @@ Linux kernel.")
(define-public libopenmpt
(package
(name "libopenmpt")
(version "0.5.8")
(version "0.5.9")
(source
(origin
(method url-fetch)
@ -310,7 +310,7 @@ Linux kernel.")
(string-append "https://download.openmpt.org/archive/libopenmpt/src/"
"libopenmpt-" version "+release.autotools.tar.gz"))
(sha256
(base32 "1kca5nc870mfv7i4ww2g1q9jn61gsq46irsypbr6fgxpfh8w5qi9"))))
(base32 "0h86p8mnpm98vc4v6jbvrmm02fch7dnn332i26fg3a2s1738m04d"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
@ -1022,7 +1022,7 @@ generators of mostly elementary and occasionally exotic nature.")
(define-public infamous-plugins
(package
(name "infamous-plugins")
(version "0.2.04")
(version "0.3.0")
(source (origin
(method git-fetch)
(uri (git-reference
@ -1031,7 +1031,7 @@ generators of mostly elementary and occasionally exotic nature.")
(file-name (git-file-name name version))
(sha256
(base32
"0hmqk80w4qxq09iag7b7srf2g0wigkyhzq0ywxvhz2iz0hq9k0dh"))))
"1r72agk5nxf5k0mghcc2j90z43j5d9i7rqjmf49jfyqnd443isip"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f ; there are no tests
@ -1041,6 +1041,12 @@ generators of mostly elementary and occasionally exotic nature.")
(lambda _
(substitute* (find-files "." "CMakeLists.txt")
(("-msse2 -mfpmath=sse") ""))
#t))
(add-after 'unpack 'fix-build-with-newer-lv2
(lambda _
;; https://github.com/ssj71/infamousPlugins/commit/4c7275b1fa8ea3296446421cbd29ec2df66588c0
(substitute* (find-files "src" ".*\\.cxx")
(("_LV2UI_Descriptor") "LV2UI_Descriptor"))
#t)))))
(inputs
`(("cairo" ,cairo)
@ -4313,7 +4319,7 @@ representations.")
(define-public cava
(package
(name "cava")
(version "0.7.3")
(version "0.7.4")
(source (origin
(method git-fetch)
(uri (git-reference
@ -4322,7 +4328,7 @@ representations.")
(file-name (git-file-name name version))
(sha256
(base32
"04j5hb29hivcbk542sfsx9m57dbnj2s6qpvy9fs488zvgjbgxrai"))))
"1mziklmqifhnb4kg9ia2r56r8wjn6xp40bkpf484hsgqvnrccl86"))))
(build-system gnu-build-system)
(native-inputs
`(("autoconf" ,autoconf)
@ -4465,7 +4471,7 @@ library.")
(define-public faudio
(package
(name "faudio")
(version "21.05")
(version "21.06")
(source
(origin
(method git-fetch)
@ -4474,7 +4480,7 @@ library.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0lzvfx5gg5m6jbdzqwkjl4wq4fdg5n98fxn5x8n65vgvrj95sx6z"))))
(base32 "1nnx4l1r5hwdaw824d4fmd558qsqa22qzpvnkhs8nkjr40cnidkr"))))
(arguments
'(#:tests? #f ; No tests.
#:configure-flags '("-DGSTREAMER=ON")))
@ -5165,14 +5171,18 @@ while still staying in time.")
(define-public butt
(package
(name "butt")
(version "0.1.29")
(version "0.1.30")
(source (origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/butt/butt/butt-"
version "/butt-" version ".tar.gz"))
(sha256
(base32
"0nbz0z4d7krvhmnwn10594gwc61gn2dlb5fazmynjfisrfdswqlg"))))
"1dfspdh3f18lpp7asxpj63b9zfpvazi7shgrdacg17gd42ycayq5"))
(modules '((guix build utils)))
(snippet
'(substitute* "src/butt.cpp"
((".*zica.*") "")))))
(build-system gnu-build-system)
(arguments
`(#:phases
@ -5209,7 +5219,7 @@ while still staying in time.")
version "_manual.pdf"))
(sha256
(base32
"1hhgdhdg5s86hjcbwh856gcd3kcch0i5xgi3i3v02zz3xmzl7gg3"))))))
"1w3krh7f2v5vdz18hqycnpn0qv1x6xl6pa1najgp4jbfisjc1mn8"))))))
(home-page "https://danielnoethen.de/butt/")
(synopsis "Audio streaming tool")
(description "Butt is a tool to stream audio to a ShoutCast or

5
gnu/packages/axoloti.scm
View File

@ -125,6 +125,11 @@
(("arm-none-eabi-(gcc|g\\+\\+|objcopy|objdump)" tool)
(which tool)))
;; XXX: for some reason the whitespace substitution does not
;; work, so we disable it.
(substitute* "firmware/Makefile.patch"
(("^BDIR=.*") "BDIR=${axoloti_home}/build\n"))
;; Hardcode full path to compiler tools
(substitute* '("firmware/Makefile"
"firmware/flasher/Makefile"

19
gnu/packages/benchmark.scm
View File

@ -5,7 +5,7 @@
;;; Copyright © 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2019 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2019 Gábor Boskovits <boskovits@gmail.com>
;;; Copyright © 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2019, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
;;; Copyright © 2020 malte Frank Gerdes <malte.f.gerdes@gmail.com>
;;; Copyright © 2020, 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
@ -52,14 +52,14 @@
(define-public fio
(package
(name "fio")
(version "3.26")
(version "3.27")
(source (origin
(method url-fetch)
(uri (string-append "https://brick.kernel.dk/snaps/"
"fio-" version ".tar.bz2"))
(sha256
(base32
"1114h60vw63bim872an33xpvjfib6sc9dwj9xvk0yw41xjzfpp06"))))
"0akaixip86ycbxr13bjff2121rgfbz35fa9l39677wpwzckp4f4d"))))
(build-system gnu-build-system)
(arguments
'(#:test-target "test"
@ -126,13 +126,9 @@ is to write a job file matching the I/O load one wants to simulate.")
(license (list license:gpl2 license:gpl2+ license:bsd-2
license:public-domain))))
;; Parameterized in anticipation of m(va)pich support
(define (intel-mpi-benchmarks mpi)
(define-public intel-mpi-benchmarks/openmpi
(package
(name (string-append "intel-mpi-benchmarks"
(if (string=? (package-name mpi) "openmpi")
""
(string-append "-" (package-name mpi)))))
(name "intel-mpi-benchmarks")
(version "2019.6")
(source (origin
(method git-fetch)
@ -154,7 +150,7 @@ is to write a job file matching the I/O load one wants to simulate.")
#t))))
(build-system gnu-build-system)
(inputs
`(("mpi" ,mpi)))
`(("openmpi" ,openmpi)))
(arguments
`(#:phases
(modify-phases %standard-phases
@ -194,9 +190,6 @@ Efficiency of the MPI implementation.
@end itemize")
(license license:cpl1.0)))
(define-public intel-mpi-benchmarks/openmpi
(intel-mpi-benchmarks openmpi))
(define-public imb-openmpi
(deprecated-package "imb-openmpi" intel-mpi-benchmarks/openmpi))

3531
gnu/packages/bioconductor.scm
View File

File diff suppressed because it is too large Load Diff

2178
gnu/packages/bioinformatics.scm
View File

File diff suppressed because it is too large Load Diff

9
gnu/packages/check.scm
View File

@ -431,6 +431,7 @@ a multi-paradigm automated test framework for C++ and Objective-C.")
(uri (git-reference
(url "git://git.liw.fi/cmdtest/")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1yhcwsqcpckkq5kw3h07k0xg6infyiyzq9ni3nqphrzxis7hxjf1"))))
@ -697,8 +698,8 @@ generation.")
(license license:bsd-3)))
(define-public googletest-1.8
(package/inherit
googletest
(package
(inherit googletest)
(version "1.8.1")
(source (origin
(method git-fetch)
@ -1144,8 +1145,8 @@ contacting the real http server.")
;; python-bleach 3.1.0 requires this ancient version of pytest-runner.
;; Remove once no longer needed.
(define-public python-pytest-runner-2
(package/inherit
python-pytest-runner
(package
(inherit python-pytest-runner)
(version "2.12.2")
(source (origin
(method url-fetch)

31
gnu/packages/chromium.scm
View File

@ -163,6 +163,7 @@
"third_party/google_input_tools/third_party/closure_library/third_party/closure" ;Expat
"third_party/googletest" ;BSD-3
"third_party/harfbuzz-ng" ;Expat
"third_party/highway" ;ASL2.0
"third_party/hunspell" ;MPL1.1/GPL2+/LGPL2.1+
"third_party/iccjpeg" ;IJG
"third_party/inspector_protocol" ;BSD-3
@ -179,6 +180,7 @@
"third_party/libaom/source/libaom/third_party/fastfeat" ;BSD-3
"third_party/libaom/source/libaom/third_party/vector" ;Expat
"third_party/libaom/source/libaom/third_party/x86inc" ;ISC
"third_party/libjxl" ;ASL2.0
"third_party/libgav1" ;ASL2.0
"third_party/libgifcodec" ;MPL1.1/GPL2+/LGPL2.1+, BSD-3, BSD-2
"third_party/libjingle_xmpp" ;BSD-3
@ -239,7 +241,6 @@
"third_party/rnnoise" ;BSD-3
"third_party/ruy" ;ASL2.0
"third_party/s2cellid" ;ASL2.0
"third_party/schema_org" ;CC-BY-SA3.0
"third_party/securemessage" ;ASL2.0
"third_party/shell-encryption" ;ASL2.0
"third_party/skia" ;BSD-3
@ -274,6 +275,7 @@
"third_party/wayland-protocols" ;Expat
"third_party/web-animations-js" ;ASL2.0
"third_party/webdriver" ;ASL2.0
"third_party/webgpu-cts" ;BSD-3
"third_party/webrtc" ;BSD-3
"third_party/webrtc/common_audio/third_party/ooura" ;Non-copyleft
"third_party/webrtc/common_audio/third_party/spl_sqrt_floor" ;Public domain
@ -320,14 +322,14 @@
(string-append "ungoogled-chromium-" category "-" name))))
(sha256 (base32 hash))))
(define %chromium-version "90.0.4430.212")
(define %chromium-version "91.0.4472.77")
(define %debian-revision "debian/90.0.4430.85-1")
(define %ungoogled-revision "90.0.4430.85-1-11-g3184907")
;; Note: use 'git describe --long' even for exact tags to placate the
;; custom version format for ungoogled-chromium.
(define %ungoogled-revision "91.0.4472.77-1-0-g6802c88")
(define %debian-patches
(list (debian-patch "fixes/missing-includes.patch"
"1f0drxp1cy76g71rkkzxxbwixn03yn9b0q22vb0mb6h2qk6cw92q")
(debian-patch "fixes/nomerge.patch"
(list (debian-patch "fixes/nomerge.patch"
"0lybs2b5gk08j8cr6vjrs9d3drd7qfw013z2r0y00by8dnpm74i3")
(debian-patch "system/nspr.patch"
"1gdirn1k1i841l8zp8xgr95kl16b5nx827am9rcxj8sfkm8hgkn3")
@ -344,7 +346,7 @@
(file-name (git-file-name "ungoogled-chromium" %ungoogled-revision))
(sha256
(base32
"18xfwgkw3xarxcgnzvyv70h4icyqh3k8lfx6fvhp7fsr6x20sai0"))))
"1jfmmkw1y4rcjfgsm7b4v2lrgd3sks5qpajvq0djflbhkpsqxfk0"))))
(define %guix-patches
(list (local-file
@ -399,6 +401,11 @@
(format #t "Replacing GN files...~%")
(force-output)
;; XXX: Chromium no longer relies on overriding ICU's UCHAR_TYPE,
;; but the unbundling code was not updated. Remove for M92.
(substitute* "build/linux/unbundle/icu.gn"
(("\"UCHAR_TYPE=uint16_t\",")
""))
(substitute* "tools/generate_shim_headers/generate_shim_headers.py"
;; The "is_official_build" configure option enables certain
;; release optimizations like those used in the commercial
@ -481,7 +488,7 @@
%chromium-version ".tar.xz"))
(sha256
(base32
"17nmhrkl81qqvzbh861k2mmifncx4wg1mv1fmn52f8gzn461vqdb"))
"0c8vj3gq3nmb7ssiwj6875g0a8hcprss1a4gqw9h7llqywza9ma5"))
(modules '((guix build utils)))
(snippet (force ungoogled-chromium-snippet))))
(build-system gnu-build-system)
@ -630,6 +637,12 @@
(("include \"third_party/lcms/include/lcms2\\.h\"")
"include \"lcms2.h\""))
;; Add missing include statement.
(substitute* "third_party/pdfium/core/fxcodec/png/png_decoder.cpp"
(("#include \"core/fxcodec/fx_codec.h\"" all)
(string-append all
"\n#include \"core/fxcodec/fx_codec_def.h\"")))
(substitute*
"third_party/breakpad/breakpad/src/common/linux/libcurl_wrapper.h"
(("include \"third_party/curl")
@ -852,7 +865,7 @@
("glib" ,glib)
("gtk+" ,gtk+)
("harfbuzz" ,harfbuzz)
("icu4c" ,icu4c-68)
("icu4c" ,icu4c-69)
("lcms" ,lcms)
("libevent" ,libevent)
("libffi" ,libffi)

8
gnu/packages/ci.scm
View File

@ -73,8 +73,8 @@
(file-name (string-append name "-" version "-checkout")))))))
(define-public cuirass
(let ((commit "31fd4d4fe107d86f5e202510e177726a1f49e828")
(revision "17"))
(let ((commit "21202760c0d15c99b69ef235ff129ab9cb478186")
(revision "25"))
(package
(name "cuirass")
(version (git-version "1.0.0" revision commit))
@ -87,7 +87,7 @@
(file-name (git-file-name name version))
(sha256
(base32
"08phqr0sfi6hkzrqhqsh9ri9434sd41qg1b5vijbadgsj1ql33rw"))))
"1bzzycz7jmmrph730p8d3q2h76ab6i8j72wblm3w0szf8vimcqfk"))))
(build-system gnu-build-system)
(arguments
`(#:modules ((guix build utils)
@ -141,7 +141,7 @@
(guix (assoc-ref inputs "guix"))
(deps (list avahi gcrypt json zmq squee git bytes
fibers zlib matd tls mail guix))
(guile (assoc-ref %build-inputs "guile"))
(guile (assoc-ref inputs "guile"))
(effective
(read-line
(open-pipe* OPEN_READ

45
gnu/packages/cluster.scm
View File

@ -3,6 +3,7 @@
;;; Copyright © 2018, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Andrew Miloradovsky <andrew@interpretmath.pw>
;;; Copyright © 2020 Marius Bakke <marius@gnu.org>
;;; Copyright © 2021 Dion Mendel <guix@dm9.info>
;;;
;;; This file is part of GNU Guix.
;;;
@ -33,6 +34,7 @@
#:use-module (gnu packages linux)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages sphinx)
#:use-module (gnu packages sqlite)
#:use-module (gnu packages texinfo)
#:use-module (gnu packages tls))
@ -186,7 +188,7 @@ independently or together to provide resilient infrastructures.")
(define-public libraft
(package
(name "libraft")
(version "0.9.11")
(version "0.10.1")
(home-page "https://github.com/canonical/raft")
(source (origin
(method git-fetch)
@ -195,7 +197,7 @@ independently or together to provide resilient infrastructures.")
(file-name (git-file-name name version))
(sha256
(base32
"00rsq4z9nykmf7r5rlpv1y6bvckcmg3zv57vh1h681y5pij6cch1"))))
"18idj53vnl5fx1ja1zlp8kiwmdxgwjxsi88rdql0pbh0484b92a3"))))
(arguments '(#:configure-flags '("--enable-uv")
#:phases
(modify-phases %standard-phases
@ -220,3 +222,42 @@ that, a pluggable interface defines the I/O implementation for networking
(send/receive RPC messages) and disk persistence (store log entries and
snapshots).")
(license license:asl2.0)))
(define-public libdqlite
(package
(name "libdqlite")
(version "1.7.0")
(home-page "https://github.com/canonical/dqlite")
(source (origin
(method git-fetch)
(uri (git-reference (url home-page)
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"15cg8yl3n7lcg0qyg0byciz8v6y200ghmzzkwpdzggy3m6c168wl"))))
(arguments
'(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'disable-failing-tests
(lambda _
(substitute* "Makefile.am"
;; Test client/query sometimes fails.
;; The actual tested asserts succeed, but there appears to be a
;; race condition when tearing down the test server.
((".*test_client.c.*") "")))))))
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
("libtool" ,libtool)
("pkg-config" ,pkg-config)))
(inputs
`(("libraft" ,libraft)
("libuv" ,libuv)))
(propagated-inputs
`(("sqlite" ,sqlite))) ; dqlite.h includes sqlite3.h
(build-system gnu-build-system)
(synopsis "Distributed SQLite")
(description "dqlite is a C library that implements an embeddable and replicated
SQL database engine with high-availability and automatic failover.")
(license license:lgpl3)))

14
gnu/packages/compression.scm
View File

@ -864,7 +864,15 @@ time for compression ratio.")
"squashfs" version ".tar.gz"))
(sha256
(base32
"0zmhvczscqz0mzh4b9m8m42asq14db0a6lc8clp5ljq5ybrv70d9"))))
"0zmhvczscqz0mzh4b9m8m42asq14db0a6lc8clp5ljq5ybrv70d9"))
(modules '((guix build utils)))
(snippet
'(begin
;; Fix build with -fno-common (default in GCC 10).
;; Remove for squashfs-tools > 4.4.
(substitute* "squashfs-tools/mksquashfs.h"
(("struct cache \\*bwriter_buffer" all)
(string-append "extern " all)))))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; no check target
@ -1008,7 +1016,7 @@ tarballs.")
(define-public libjcat
(package
(name "libjcat")
(version "0.1.7")
(version "0.1.8")
(source
(origin
(method git-fetch)
@ -1018,7 +1026,7 @@ tarballs.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "110c8h3p7m4ibrfvgja592z7j5h88qqanllxsvmxkjz3b129i02r"))))
(base32 "18qkyg19r7fxzv93kar5n808n3582ygjmqwa7rnyg5y4b6hnwihl"))))
(build-system meson-build-system)
(native-inputs
`(("gobject-introspection" ,gobject-introspection)

904
gnu/packages/cran.scm
View File

File diff suppressed because it is too large Load Diff

119
gnu/packages/crates-graphics.scm
View File

@ -10,6 +10,7 @@
;;; Copyright © 2020 Leo Famulari <leo@famulari.name>
;;; Copyright © 2020, 2021 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2020 Antoine Côté <antoine.cote@posteo.net>
;;; Copyright © 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -32,6 +33,7 @@
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (gnu packages)
#:use-module (gnu packages assembly)
#:use-module (gnu packages crates-io)
#:use-module (gnu packages freedesktop)
#:use-module (gnu packages llvm)
@ -269,6 +271,38 @@ the term library to handle the ANSI nonsense and hence it works on Windows,
Mac, and Unix.")
(license (list license:asl2.0 license:expat))))
(define-public rust-avif-parse-0.13
(package
(name "rust-avif-parse")
(version "0.13.2")
(source
(origin
(method url-fetch)
(uri (crate-uri "avif-parse" version))
(file-name
(string-append name "-" version ".tar.gz"))
(sha256
(base32
"1vylrjq77mpl6flmd85j5f2qimh6vjn03syvq8agb62x56khm0xj"))))
(build-system cargo-build-system)
(arguments
`(#:cargo-inputs
(("rust-bitreader" ,rust-bitreader-0.3)
("rust-byteorder" ,rust-byteorder-1)
("rust-fallible-collections" ,rust-fallible-collections-0.4)
("rust-log" ,rust-log-0.4)
("rust-static-assertions" ,rust-static-assertions-1))
#:cargo-development-inputs
(("rust-env-logger" ,rust-env-logger-0.8)
("rust-walkdir" ,rust-walkdir-2))))
(home-page "https://github.com/kornelski/avif-parse")
(synopsis "Parser for AVIF image files")
(description "This AVIF parser allows extracting the AV1 payload and alpha
channel metadata out of AVIF image files. The parser is a fork of Mozilla's
MP4 parser used in Firefox, so it's designed to be robust and safely handle
untrusted data.")
(license license:mpl2.0)))
(define-public rust-avif-serialize-0.6
(package
(name "rust-avif-serialize")
@ -1915,75 +1949,6 @@ interactive applications.")
("rust-glob" ,rust-glob-0.2)
("rust-term" ,rust-term-0.4))))))
(define-public rust-rav1e-0.4
(package
(name "rust-rav1e")
(version "0.4.0")
(source
(origin
(method url-fetch)
(uri (crate-uri "rav1e" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "02cpgzycfgnflnv8sck6ajasa7abfgdzn6b4jv01sf6r21yfipbq"))))
(build-system cargo-build-system)
(arguments
`(#:skip-build? #t
#:cargo-inputs
(("rust-aom-sys" ,rust-aom-sys-0.2)
("rust-arbitrary" ,rust-arbitrary-0.4)
("rust-arg-enum-proc-macro" ,rust-arg-enum-proc-macro-0.3)
("rust-arrayvec" ,rust-arrayvec-0.5)
("rust-assert-cmd" ,rust-assert-cmd-1)
("rust-av-metrics" ,rust-av-metrics-0.6)
("rust-backtrace" ,rust-backtrace-0.3)
("rust-bitstream-io" ,rust-bitstream-io-1)
("rust-byteorder" ,rust-byteorder-1)
("rust-cc" ,rust-cc-1)
("rust-cfg-if" ,rust-cfg-if-1)
("rust-clap" ,rust-clap-2)
("rust-console" ,rust-console-0.14)
("rust-criterion" ,rust-criterion-0.3)
("rust-crossbeam" ,rust-crossbeam-0.8)
("rust-dav1d-sys" ,rust-dav1d-sys-0.3)
("rust-fern" ,rust-fern-0.6)
("rust-image" ,rust-image-0.23)
("rust-interpolate-name" ,rust-interpolate-name-0.2)
("rust-itertools" ,rust-itertools-0.10)
("rust-ivf" ,rust-ivf-0.1)
("rust-libc" ,rust-libc-0.2)
("rust-libfuzzer-sys" ,rust-libfuzzer-sys-0.3)
("rust-log" ,rust-log-0.4)
("rust-nasm-rs" ,rust-nasm-rs-0.2)
("rust-noop-proc-macro" ,rust-noop-proc-macro-0.3)
("rust-num-derive" ,rust-num-derive-0.3)
("rust-num-traits" ,rust-num-traits-0.2)
("rust-paste" ,rust-paste-1)
("rust-pretty-assertions" ,rust-pretty-assertions-0.6)
("rust-rand" ,rust-rand-0.8)
("rust-rand-chacha" ,rust-rand-chacha-0.3)
("rust-rayon" ,rust-rayon-1)
("rust-regex" ,rust-regex-1)
("rust-rust-hawktracer" ,rust-rust-hawktracer-0.7)
("rust-rustc-version" ,rust-rustc-version-0.3)
("rust-scan-fmt" ,rust-scan-fmt-0.2)
("rust-serde" ,rust-serde-1)
("rust-signal-hook" ,rust-signal-hook-0.3)
("rust-simd-helpers" ,rust-simd-helpers-0.1)
("rust-thiserror" ,rust-thiserror-1)
("rust-toml" ,rust-toml-0.5)
("rust-v-frame" ,rust-v-frame-0.2)
("rust-vergen" ,rust-vergen-3)
("rust-wasm-bindgen" ,rust-wasm-bindgen-0.2)
("rust-y4m" ,rust-y4m-0.7))))
(home-page "https://github.com/xiph/rav1e")
(synopsis "Fast and safe AV1 encoder")
(description
"@code{rav1e} is an AV1 video encoder. It is designed to eventually
cover all use cases, though in its current form it is most suitable for cases
where libaom (the reference encoder) is too slow.")
(license license:bsd-2)))
(define-public rust-ravif-0.6
(package
(name "rust-ravif")
@ -1997,20 +1962,22 @@ where libaom (the reference encoder) is too slow.")
(base32 "1gyc7w1fz3qdk95cdpkj185dm6lskxfp329xm69waxc565fcz9rx"))))
(build-system cargo-build-system)
(arguments
`(#:skip-build? #t
#:cargo-inputs
`(#:cargo-inputs
(("rust-avif-serialize" ,rust-avif-serialize-0.6)
("rust-imgref" ,rust-imgref-1)
("rust-loop9" ,rust-loop9-0.1)
("rust-num-cpus" ,rust-num-cpus-1)
("rust-rav1e" ,rust-rav1e-0.4)
("rav1e" ,rav1e)
("rust-rayon" ,rust-rayon-1)
("rust-rgb" ,rust-rgb-0.8))))
("rust-rgb" ,rust-rgb-0.8))
#:cargo-development-inputs
(("rust-avif-parse" ,rust-avif-parse-0.13))))
(native-inputs
`(("nasm" ,nasm))) ;for building rav1e
(home-page "https://lib.rs/ravif")
(synopsis "Library for encoding images in AVIF format")
(description
"This package is a rav1e-based pure Rust library for encoding images in
AVIF format.")
(description "This package is a rav1e-based pure Rust library for encoding
images in AVIF format.")
(license license:bsd-3)))
(define-public rust-raw-window-handle-0.3

1694
gnu/packages/crates-io.scm
View File

File diff suppressed because it is too large Load Diff

12
gnu/packages/crypto.scm
View File

@ -944,14 +944,14 @@ SHA256, SHA512, SHA3, AICH, ED2K, Tiger, DC++ TTH, BitTorrent BTIH, GOST R
(define-public botan
(package
(name "botan")
(version "2.17.3")
(version "2.18.1")
(source (origin
(method url-fetch)
(uri (string-append "https://botan.randombit.net/releases/"
"Botan-" version ".tar.xz"))
(sha256
(base32
"121vn1aryk36cpks70kk4c4cfic5g0qs82bf92xap9258ijkn4kr"))))
"0adf53drhk1hlpfih0175c9081bqpclw6p2afn51cmx849ib9izq"))))
(build-system gnu-build-system)
(arguments
'(#:phases
@ -976,7 +976,9 @@ SHA256, SHA512, SHA3, AICH, ED2K, Tiger, DC++ TTH, BitTorrent BTIH, GOST R
(add-before 'check 'library-path-for-tests
(lambda _ (setenv "LD_LIBRARY_PATH" (getcwd))))
(replace 'check
(lambda _ (invoke "./botan-test"))))))
(lambda* (#:key tests? #:allow-other-keys)
(if tests?
(invoke "./botan-test")))))))
(native-inputs
`(("python" ,python-wrapper)
("python-docutils" ,python-docutils)))
@ -1297,7 +1299,7 @@ Trusted comments are signed, thus verified, before being displayed.")
(define-public libolm
(package
(name "libolm")
(version "3.2.2")
(version "3.2.3")
(source (origin
(method git-fetch)
(uri (git-reference
@ -1305,7 +1307,7 @@ Trusted comments are signed, thus verified, before being displayed.")
(commit version)))
(sha256
(base32
"0qji25wiwmkxyfpraxj96c54hyayqmjkvwh0gsy5gb5pz5bp4mcy"))
"0bixly6jqpwfx3p37c1qp1j685yg6m429r1nazwh43w4n527bs3y"))
(file-name (git-file-name name version))))
(build-system cmake-build-system)
(arguments

26
gnu/packages/cryptsetup.scm
View File

@ -35,7 +35,7 @@
(define-public cryptsetup
(package
(name "cryptsetup")
(version "2.3.5")
(version "2.3.6")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kernel.org/linux/utils/cryptsetup/v"
@ -43,7 +43,7 @@
"/cryptsetup-" version ".tar.xz"))
(sha256
(base32
"1hbhzlv4vbib1da20vnrqaikhxi7ljnchbzrv8v2a4sd8ipr9nff"))))
"0pv34l6230ba1i5p0z6zmvfqvv3as0cwn731h2qw4xm53sibg5mj"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
@ -63,14 +63,22 @@
("lvm2" ,lvm2) ; device-mapper
("popt" ,popt)
("util-linux" ,util-linux "lib"))) ;libuuid
(synopsis "Hard disk encryption tool")
(synopsis "Set up transparent encryption of block devices using dm-crypt")
(description
"LUKS (Linux Unified Key Setup)/Cryptsetup provides a standard on-disk
encryption format, which does not only facilitate compatibility among
distributions, but which also provides secure management of multiple user
passwords. In contrast to existing solutions, LUKS stores all setup necessary
setup information in the partition header, enabling the users to transport
or migrate their data seamlessly.")
"Cryptsetup is a utility used to conveniently set up disk encryption based
on the @code{dm-crypt} Linux kernel module. It is most often used to manage
LUKS volumes but also supports plain dm-crypt volumes and loop-AES, TrueCrypt
(including VeraCrypt extension), and BitLocker formats.
@acronym{LUKS, Linux Unified Key Setup} is the standard for hard disk encryption
with the kernel Linux. It provides a standard on-disk-format compatible amongst
distributions as well as secure management of multiple user passwords. LUKS
stores all necessary setup information in the partition header to facilitate
data transport and migration.
The package also includes the @command{veritysetup} and @command{integritysetup}
utilities to conveniently configure the @code{dm-verity} and @code{dm-integrity}
block integrity kernel modules.")
(license license:gpl2)
(home-page "https://gitlab.com/cryptsetup/cryptsetup")))

15
gnu/packages/curl.scm
View File

@ -53,6 +53,7 @@
(define-public curl
(package
(name "curl")
(replacement curl-7.77.0)
(version "7.76.1")
(source (origin
(method url-fetch)
@ -145,6 +146,20 @@ tunneling, and so on.")
(define-public curl-minimal
(deprecated-package "curl-minimal" curl))
(define-public curl-7.77.0
(package
(inherit curl)
(version "7.77.0")
(source
(origin
(inherit (package-source curl))
(uri (string-append "https://curl.haxx.se/download/curl-"
version ".tar.xz"))
(patches (search-patches "curl-7.76-use-ssl-cert-env.patch"))
(sha256
(base32
"0jsrc97vbghvljic997r9nypc9qqddcil2lzvv032br8ahn5hr0g"))))))
(define-public kurly
(package
(name "kurly")

20
gnu/packages/databases.scm
View File

@ -51,6 +51,7 @@
;;; Copyright © 2021 David Larsson <david.larsson@selfhosted.xyz>
;;; Copyright © 2021 Pjotr Prins <pjotr.guix@thebird.nl>
;;; Copyright © 2021 Bonface Munyoki Kilyungi <me@bonfacemunyoki.com>
;;; Copyright © 2021 Simon Streit <simon@netpanic.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -2135,14 +2136,14 @@ similar to BerkeleyDB, LevelDB, etc.")
(define-public redis
(package
(name "redis")
(version "6.0.11")
(version "6.2.4")
(source (origin
(method url-fetch)
(uri (string-append "http://download.redis.io/releases/redis-"
version".tar.gz"))
(sha256
(base32
"0prwqap452m581nyc3cz642d1z3x9nd81896hlqdm3z8238z49y9"))
"0vp1d9mlfsppry3nsj9f7bmh9wjgsy3jggp24sac1hhgl43c8cms"))
(modules '((guix build utils)))
(snippet
;; Delete bundled jemalloc, as the package will use the libc one
@ -2150,8 +2151,8 @@ similar to BerkeleyDB, LevelDB, etc.")
#t))))
(build-system gnu-build-system)
(native-inputs
`(("procps" ,procps) ; for tests
("tcl" ,tcl))) ; for tests
`(("procps" ,procps) ; for tests
("tcl" ,tcl))) ; for tests
(arguments
'(#:phases
(modify-phases %standard-phases
@ -2168,9 +2169,10 @@ similar to BerkeleyDB, LevelDB, etc.")
(lambda _
;; Disable failing tests
(substitute* "tests/test_helper.tcl"
((" integration/replication[^-]") "")
((" integration/replication-4") "")
((" integration/replication-psync") ""))
(("integration/failover") "")
(("integration/replication-4") "")
(("integration/replication-psync") "")
(("integration/replication[^-]") ""))
#t)))
#:make-flags `("CC=gcc"
"MALLOC=libc"
@ -2383,7 +2385,7 @@ database.")
(define-public lmdb
(package
(name "lmdb")
(version "0.9.28")
(version "0.9.29")
(source
(origin
(method git-fetch)
@ -2392,7 +2394,7 @@ database.")
(commit (string-append "LMDB_" version))))
(file-name (git-file-name name version))
(sha256
(base32 "012a8bs49cswsnzw7k4piis5b6dn4by85w7a7mai9i04xcjyy9as"))))
(base32 "0airps4cd0d91nbgy7hgvifa801snxwxzwxyr6pdv61plsi7h8l3"))))
(build-system gnu-build-system)
(arguments
`(#:test-target "test"

5
gnu/packages/dictionaries.scm
View File

@ -175,11 +175,10 @@ work, such as sentence length and other readability measures.")
(delete 'build)
(delete 'check)
(replace 'install
(lambda _
(lambda* (#:key inputs #:allow-other-keys)
(let ((bindir (string-append
(assoc-ref %outputs "out") "/bin"))
(wish (string-append
(assoc-ref %build-inputs "tk")
(wish (string-append (assoc-ref inputs "tk")
"/bin/wish8.6"))
(sharedir (string-append
(assoc-ref %outputs "out")

4
gnu/packages/diffoscope.scm
View File

@ -72,7 +72,7 @@
(define-public diffoscope
(package
(name "diffoscope")
(version "174")
(version "177")
(source (origin
(method git-fetch)
(uri (git-reference
@ -81,7 +81,7 @@
(file-name (git-file-name name version))
(sha256
(base32
"16nvcvvps2gxr0b9wbfilrn4397cqkcm716zvhlx5hsbq6w6cx08"))))
"02np9dq7jnq48lcmz4k1hvwc6xiqgjhrwr1vsbsfw8rxnp9vs0a5"))))
(build-system python-build-system)
(arguments
`(#:phases (modify-phases %standard-phases

50
gnu/packages/disk.scm
View File

@ -552,14 +552,14 @@ and can dramatically shorten the lifespan of the drive if left unchecked.")
(define-public gparted
(package
(name "gparted")
(version "1.2.0")
(version "1.3.0")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/gparted/gparted/gparted-"
version "/gparted-" version ".tar.gz"))
(sha256
(base32 "06f72hqx5jf2irzsmi7lgpxxj38ncixh0acb4307wyjd4mfp343c"))))
(base32 "0amx3hb4rc504nl9i73rgyz0hzhq5x8nkg7lwbk4bsnrblj81hcd"))))
(build-system glib-or-gtk-build-system)
(arguments
;; Tests require access to paths outside the build container, such
@ -1144,15 +1144,18 @@ of choice for all light thinking Unix addicts!")
(define-public hddtemp
(package
(name "hddtemp")
(version "0.3-beta15")
(source (origin
(method url-fetch)
(uri (string-append "mirror://savannah/hddtemp/hddtemp-"
version
".tar.bz2"))
(sha256
(base32
"0nzgg4nl8zm9023wp4dg007z6x3ir60rwbcapr9ks2al81c431b1"))))
;; <https://savannah.nongnu.org/projects/hddtemp/> advertises the project as
;; ‘orphaned/unmaintained’. Use a maintained fork/continuation.
(version "0.4.3")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/vitlav/hddtemp")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "04kylb2ka0jimi238zpfq1yii2caidpmj3ck51rvxz03y5lpq8fw"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags (list (string-append
@ -1161,19 +1164,20 @@ of choice for all light thinking Unix addicts!")
"/share/hddtemp/hddtemp.db"))
#:phases
(modify-phases %standard-phases
(add-before 'bootstrap 'delete-autogen.sh
(lambda _
;; The default 'bootstrap phase works better.
(delete-file "autogen.sh")))
(add-after 'install 'install-db
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((target (string-append (assoc-ref outputs "out")
"/share/hddtemp/hddtemp.db")))
(mkdir-p (dirname target))
(copy-file (assoc-ref inputs "db") target)))))))
(inputs
`(("db" ,(origin
(method url-fetch)
(uri "mirror://savannah/hddtemp/hddtemp.db")
(sha256
(base32 "1fr6qgns6qv7cr40lic5yqwkkc7yjmmgx8j0z6d93csg3smzhhya"))))))
(home-page "https://savannah.nongnu.org/projects/hddtemp/")
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(install-file "data/hddtemp.db"
(string-append out "/share/hddtemp"))))))))
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
("gettext" ,gettext-minimal)))
(home-page "https://github.com/vitlav/hddtemp")
(synopsis "Report the temperature of hard drives from S.M.A.R.T. information")
(description "@command{hddtemp} is a small utility that gives you the
temperature of your hard drive by reading S.M.A.R.T. information (for drives

17
gnu/packages/django.scm
View File

@ -48,13 +48,13 @@
(define-public python-django
(package
(name "python-django")
(version "3.2.2")
(version "3.2.4")
(source (origin
(method url-fetch)
(uri (pypi-uri "Django" version))
(sha256
(base32
"0gffaabnnpzj0sl3jl7mllvi3gc0jvab6xw2bckvyljwsrd1j78a"))))
"15pjwyvrx4n8gi8n51b14wp54bg4jqapr25p52597zn6ikdxijb6"))))
(build-system python-build-system)
(arguments
'(#:phases
@ -130,13 +130,13 @@ to the @dfn{don't repeat yourself} (DRY) principle.")
(define-public python-django-2.2
(package
(inherit python-django)
(version "2.2.22")
(version "2.2.24")
(source (origin
(method url-fetch)
(uri (pypi-uri "Django" version))
(sha256
(base32
"0q30zjcmnvwp1v1syn739wapahs2dx784n0yjyypq0cr3kdi88nv"))))
"1dvx3x85lggm91x7mpvaf9nmpxyz7r97pbpnmr2k1qfy0c7gyf9k"))))
(native-inputs
`(;; XXX: In 2.2 and 3.0, selenium is required for the test suite.
("python-selenium" ,python-selenium)
@ -932,7 +932,7 @@ name is purely coincidental.")
(define-public python-django-statici18n
(package
(name "python-django-statici18n")
(version "1.9.0")
(version "2.1.0")
(home-page "https://github.com/zyegfryed/django-statici18n")
(source (origin
(method git-fetch)
@ -942,7 +942,7 @@ name is purely coincidental.")
(file-name (git-file-name name version))
(sha256
(base32
"1p3myp2im6c87yc05alh91jyahqws5lcw3zzdsj4dh8lx9s9cgpf"))))
"0x0xvfqd40is2ks43d65awgqkx3wk10lvdim15scvbjhkh301b6v"))))
(build-system python-build-system)
(arguments
'(#:phases (modify-phases %standard-phases
@ -1089,14 +1089,13 @@ forms using your favorite CSS framework, without writing template code.")
(define-public python-django-compressor
(package
(name "python-django-compressor")
(version "2.4")
(version "2.4.1")
(source
(origin
(method url-fetch)
(uri (pypi-uri "django_compressor" version))
(sha256
(base32
"0kx7bclfa0sxlsz6ka70zr9ra00lks0hmv1kc99wbanx6xhirvfj"))))
(base32 "1q0m0hfg7sqmj5km924g4dgy3nx51aszzsprlp6gsin10mv0fn1k"))))
(build-system python-build-system)
(arguments
'(#:phases

3
gnu/packages/dns.scm
View File

@ -625,12 +625,15 @@ to result in system-wide compromise.")
(inputs
`(("expat" ,expat)
("libevent" ,libevent)
("nghttp2" ,nghttp2 "lib")
("protobuf" ,protobuf)
("python-wrapper" ,python-wrapper)
("openssl" ,openssl)))
(arguments
`(#:configure-flags
(list "--disable-static" ; save space and non-determinism in libunbound.a
(string-append
"--with-libnghttp2=" (assoc-ref %build-inputs "nghttp2"))
(string-append
"--with-ssl=" (assoc-ref %build-inputs "openssl"))
(string-append

38
gnu/packages/education.scm
View File

@ -9,6 +9,7 @@
;;; Copyright © 2020 Guy Fleury Iteriteka <gfleury@disroot.org>
;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
;;; Copyright © 2020 Prafulla Giri <pratheblackdiamond@gmail.com>
;;; Copyright © 2021 Nicolò Balzarotti <nicolo@nixo.xyz>
;;;
;;; This file is part of GNU Guix.
;;;
@ -727,6 +728,43 @@ languages and keyboard layouts, and typing statistics are used to dynamically
adjust the level of difficulty.")
(license license:gpl2)))
(define-public kanatest
;; Latest release tarball is 0.4.8, which is really old and does not build
;; commit on sourceforge are not tagged, we take the latest
(let ((commit "860e790a35f547cc96669f805d371a5ba3d8daff")
(revision "0"))
(package
(name "kanatest")
(version (git-version "0.4.10" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://git.code.sf.net/p/kanatest/code")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "0dz63m9p4ggzw0yb309qmgnl664qb5q268vaa3i9v0i8qsl66d78"))))
(build-system gnu-build-system)
(native-inputs
`(("gettext" ,gettext-minimal) ; for msgfmt
("pkg-config" ,pkg-config)))
(inputs
`(("libxml2" ,libxml2)
("gtk+" ,gtk+)))
(home-page "https://kanatest.sourceforge.io/")
(synopsis "Hiragana and Katakana simple flashcard tool")
(description "Kanatest is a Japanese kana (Hiragana and Katakana) simple
flashcard tool.
During test the Kanatest displays randomly selected kana char (respecting mode
and lesson) and waits for user answer expected as romaji equivalent. This
process continues until all questions will be answered or all questions will
be answered correctly (depends on options). At the end of test a short info
about drilling time and correctness ratio is displayed. The results are
stored and user can review his performance in any time.")
(license license:gpl2+))))
(define-public anki
(package
(name "anki")

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

File diff suppressed because it is too large Load Diff

12
gnu/packages/emacs.scm
View File

@ -59,7 +59,7 @@
#:use-module (gnu packages gtk)
#:use-module (gnu packages guile)
#:use-module (gnu packages image)
#:use-module (gnu packages linux) ; alsa-lib
#:use-module (gnu packages linux) ; alsa-lib, gpm
#:use-module (gnu packages mail) ; for mailutils
#:use-module (gnu packages multiprecision)
#:use-module (gnu packages ncurses)
@ -248,6 +248,7 @@
("mailutils" ,mailutils)
;; TODO: Add the optional dependencies.
("gpm" ,gpm)
("libx11" ,libx11)
("gtk+" ,gtk+)
("cairo" ,cairo)
@ -311,7 +312,8 @@ languages.")
(define-public emacs-next
(let ((commit "2ea34662c20f71d35dd52a5ed996542c7386b9cb")
(revision "0"))
(package/inherit emacs
(package
(inherit emacs)
(name "emacs-next")
(version (git-version "28.0.50" revision commit))
(source
@ -332,7 +334,8 @@ languages.")
(define-public emacs-next-pgtk
(let ((commit "ae18c8ec4f0ef37c8c9cda473770ff47e41291e2")
(revision "1"))
(package/inherit emacs-next
(package
(inherit emacs-next)
(name "emacs-next-pgtk")
(version (git-version "28.0.50" revision commit))
(source
@ -456,7 +459,8 @@ editor (with wide ints)" )
(define-public guile-emacs
(let ((commit "41120e0f595b16387eebfbf731fff70481de1b4b")
(revision "0"))
(package/inherit emacs
(package
(inherit emacs)
(name "guile-emacs")
(version (git-version "0.0.0" revision commit))
(source (origin

404
gnu/packages/emulators.scm
View File

@ -15,6 +15,7 @@
;;; Copyright © 2020 Christopher Howard <christopher@librehacker.com>
;;; Copyright © 2021 Felipe Balbi <balbi@kernel.org>
;;; Copyright © 2021 Felix Gruber <felgru@posteo.net>
;;; Copyright © 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -1314,7 +1315,7 @@ as RetroArch.")
(define-public retroarch
(package
(name "retroarch")
(version "1.9.2")
(version "1.9.4")
(source
(origin
(method git-fetch)
@ -1323,7 +1324,7 @@ as RetroArch.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0zrry2zwknzsrrz8r6rl1iy9hmiv4dwjmf61aidx3xwxby3g82qg"))
(base32 "1wky28y52nsjmannks3y1hbjgw0dvqh85gxrllr98f9y7kvk1cvf"))
(patches
(search-patches "retroarch-LIBRETRO_DIRECTORY.patch"))))
(build-system gnu-build-system)
@ -1630,7 +1631,7 @@ This is a part of the TiLP project.")
(define-public mame
(package
(name "mame")
(version "0.231")
(version "0.232")
(source
(origin
(method git-fetch)
@ -1639,7 +1640,7 @@ This is a part of the TiLP project.")
(commit (apply string-append "mame" (string-split version #\.)))))
(file-name (git-file-name name version))
(sha256
(base32 "0rgch8fg8ra48wa4gl5ah70q6191sxs28x39iyalb6ballmz8v1w"))
(base32 "1v6qka8k4smah08rp62kgjmc84hwsg1iqhms0369rhdh722bgpn7"))
(modules '((guix build utils)))
(snippet
;; Remove bundled libraries.
@ -2123,200 +2124,211 @@ framework based on QEMU.")
(license license:gpl2+))))
(define-public ppsspp
(package
(name "ppsspp")
(version "1.11.3")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/hrydgard/ppsspp")
(commit (string-append "v" version))))
(sha256
(base32 "1dpxnwvl6jq7z67lbjws4lqc1bxc31xi6ddlmg5n3aig008yi2fp"))
(file-name (git-file-name name version))
(patches
(search-patches "ppsspp-disable-upgrade-and-gold.patch"))
(modules '((guix build utils)))
(snippet
`(begin
;; The following is quite a heavy-handed way of unbundling PPSSPP.
;; There are still a number of external sources, that we don't
;; remove here. Some may be packaged, others are not.
;; First, we patch existing sources to include the right headers.
(substitute* (append (find-files "Common" ".*\\.(h|cpp)")
(find-files "Core" ".*\\.(h|cpp)")
(find-files "GPU" ".*\\.(h|cpp)")
(find-files "SDL" ".*\\.(h|cpp)")
(find-files "UI" ".*\\.(h|cpp)"))
;; These headers are all hard-coded in the original source.
(("ext/cityhash/") "")
(("ext/glslang/glslang/") "glslang/")
(("ext/glslang/") "glslang/")
(("ext/miniupnp/") "")
(("ext/SPIRV-Cross/") "spirv_cross/")
(("ext/vulkan/") "vulkan/")
(("ext/xxhash.h") "xxhash.h")
;; These definitions do not actually exist in the Vulkan headers,
;; but PPSSPP defines them in ext/vulkan.
(("VK_FORMAT_BEGIN_RANGE") "VK_FORMAT_UNDEFINED")
(("VK_FORMAT_END_RANGE") "VK_FORMAT_ASTC_12x12_SRGB_BLOCK"))
;; Next, we patch CMakeLists.
(substitute* "CMakeLists.txt"
;; Drop unnecessary includes and targets.
(("include_directories\\(ext/glslang\\)") "")
(("include_directories\\(ext/xxhash\\)") "")
(("include_directories\\(ext/cityhash\\)") "")
(("set_target_properties\\(cityhash .*\\)") "")
;; Fix linking to GLEW.
(("TARGET Ext::GLEW") "true")
(("target_link_libraries\\(native Ext::GLEW\\)")
"find_package(GLEW)\ntarget_link_libraries(native GLEW::GLEW)")
(("Ext::Snappy") "snappy")
;; Don't search for cityhash/xxhash, we already have them.
(("add_library\\((city|xx)hash STATIC") "if()\nendif(")
(("ext/xxhash\\.[ch]") "")
(("ext/cityhash/.*\\.(cpp|h)") "")
(("if\\(USE_MINIUPNPC\\)" all)
(string-append all "
;; Use a recent commit as fixes for ffmpeg 4.4 haven't been released as of
;; 1.11.3.
(let ((commit "69fa20744958aef8da9ca052ba7675fdc1636e46")
(revision "1"))
(package
(name "ppsspp")
(version (git-version "1.11.3" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/hrydgard/ppsspp")
(commit commit)))
(sha256
(base32 "0r8w4hllhn6zsfxlajxw3sn3f8vsri45srr4mdwsffzcb4hvl0cr"))
(file-name (git-file-name name version))
(patches
(search-patches "ppsspp-disable-upgrade-and-gold.patch"))
(modules '((guix build utils)))
(snippet
`(begin
;; The following is quite a heavy-handed way of unbundling PPSSPP.
;; There are still a number of external sources, that we don't
;; remove here. Some may be packaged, others are not.
;; First, we patch existing sources to include the right headers.
(substitute* (append (find-files "Common" ".*\\.(h|cpp)")
(find-files "Core" ".*\\.(h|cpp)")
(find-files "GPU" ".*\\.(h|cpp)")
(find-files "SDL" ".*\\.(h|cpp)")
(find-files "UI" ".*\\.(h|cpp)"))
;; These headers are all hard-coded in the original source.
(("ext/cityhash/") "")
(("ext/glslang/glslang/") "glslang/")
(("ext/glslang/") "glslang/")
(("ext/miniupnp/") "")
(("ext/SPIRV-Cross/") "spirv_cross/")
(("ext/vulkan/") "vulkan/")
(("ext/xxhash.h") "xxhash.h")
;; These definitions do not actually exist in the Vulkan headers,
;; but PPSSPP defines them in ext/vulkan.
(("VK_FORMAT_BEGIN_RANGE") "VK_FORMAT_UNDEFINED")
(("VK_FORMAT_END_RANGE") "VK_FORMAT_ASTC_12x12_SRGB_BLOCK"))
;; Next, we patch CMakeLists.
(substitute* "CMakeLists.txt"
;; Drop unnecessary includes and targets.
(("include_directories\\(ext/glslang\\)") "")
(("include_directories\\(ext/xxhash\\)") "")
(("include_directories\\(ext/cityhash\\)") "")
(("include_directories\\(ext/zstd.*") "")
(("libzstd_static") "zstd")
(("set_target_properties\\(cityhash .*\\)") "")
;; Fix linking to GLEW.
(("TARGET Ext::GLEW") "true")
(("target_link_libraries\\(native Ext::GLEW\\)")
"find_package(GLEW)\ntarget_link_libraries(native GLEW::GLEW)")
(("Ext::Snappy") "snappy")
;; Don't search for cityhash/xxhash, we already have them.
(("add_library\\((city|xx)hash STATIC") "if()\nendif(")
(("ext/xxhash\\.[ch]") "")
(("ext/cityhash/.*\\.(cpp|h)") "")
(("if\\(USE_MINIUPNPC\\)" all)
(string-append all "
find_package(miniupnpc)
target_link_libraries(${CoreLibName} miniupnpc ${LDLIBS})
elseif(FALSE)"))
;; Link all of spirv-cross.
(("spirv-cross-glsl" all)
(string-append all
" spirv-cross-core spirv-cross-cpp"
" spirv-cross-reflect spirv-cross-util")))
(substitute* "ext/CMakeLists.txt"
(("add_subdirectory\\(glew\\)") "")
(("add_subdirectory\\(glslang( [A-Z_]*)*\\)") "")
(("add_subdirectory\\(snappy\\)") "")
(("add_subdirectory\\(SPIRV-Cross-build\\)") ""))
;; Finally, we can delete the bundled sources.
(for-each delete-file-recursively
'("MoltenVK"
"ext/cmake"
"ext/glew"
"ext/glslang" "ext/glslang-build"
"ext/miniupnp" "ext/miniupnp-build"
"ext/native"
"ext/snappy"
"ext/SPIRV-Cross" "ext/SPIRV-Cross-build"
"ext/vulkan"
"ext/xxhash.c"
"ext/xxhash.h"
"ext/zlib"))
;; Since we are not including git as an input, PPSSPP is confused
;; about its version. Let's fix that here.
(substitute* "git-version.cmake"
(("unknown") ,version))))))
(build-system cmake-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)
("python" ,python)))
(inputs
`(("cityhash" ,cityhash)
("ffmpeg" ,ffmpeg)
("glew" ,glew)
("glslang" ,glslang)
("libpng" ,libpng)
("libzip" ,libzip)
("mesa" ,mesa)
("miniupnpc" ,miniupnpc)
("sdl2" ,sdl2)
("snappy" ,snappy)
("spirv-cross" ,spirv-cross)
("vulkan-headers" ,vulkan-headers)
("vulkan-loader" ,vulkan-loader)
("xxhash" ,xxhash)
("zlib" ,zlib)
;; TODO: unbundle armips.
("armips-source" ,(package-source armips))
("lang"
,(let ((commit "6bd5b4bc983917ea8402f73c726b46e36f3de0b4"))
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/hrydgard/ppsspp-lang")
(commit commit)))
(sha256
(base32 "08npr3a4xskf85gnlxidl4ksc3rhc7m5rgnj7vsbjvhvw5ap02qx"))
(file-name (git-file-name "ppsspp-lang" commit)))))
("tests"
,(let ((commit "1047400eaec6bcbdb2a64d326375ef6a6617c4ac"))
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/hrydgard/pspautotests")
(commit commit)))
(sha256
(base32 "0nxv1lskcr8zbg6nrfai21mxsw0n5vaqhbsa41c3cxfyx5c4w2pg"))
(file-name (git-file-name "pspautotests" commit)))))))
(arguments
`(#:out-of-source? #f
#:configure-flags (list "-DUSE_DISCORD=OFF"
"-DUSE_SYSTEM_FFMPEG=ON"
"-DUSE_SYSTEM_LIBZIP=ON"
;; for testing
"-DUNITTEST=ON" "-DHEADLESS=ON")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'add-external-sources
(lambda* (#:key inputs #:allow-other-keys)
;; TODO: unbundle armips.
(copy-recursively (assoc-ref inputs "armips-source")
"ext/armips")
;; Some tests are externalised, so we add them here.
(copy-recursively (assoc-ref inputs "tests")
"pspautotests")
;; i18n is externalised, so we add it here.
(copy-recursively (assoc-ref inputs "lang")
"assets/lang")
#t))
(add-after 'unpack 'fix-unittest-build
(lambda _
(substitute* "CMakeLists.txt"
(("unittest/TestVertexJit.cpp" all)
(string-append all " unittest/TestShaderGenerators.cpp")))
(substitute* "unittest/TestVertexJit.cpp"
(("#include \"unittest/UnitTest.h\"" all)
(string-append all "\n#include <cmath>")))
#t))
(replace 'check
(lambda _
(for-each
(lambda (t) (invoke "./unitTest" t))
'("Arm64Emitter" "ArmEmitter" "X64Emitter" "VertexJit" "Asin"
"SinCos" #|"VFPUSinCos" SIGSEGV|# "MathUtil" "Parsers" "Jit"
"MatrixTranspose" "ParseLBN" "QuickTexHash" "CLZ"
#|"ShaderGenerators"|#))
(invoke "python3" "test.py" "-g")
#t))
(replace 'install
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin/ppsspp (string-append out "/bin/ppsspp"))
(share (string-append out "/share/ppsspp")))
(copy-recursively "icons/hicolor"
(string-append out "/share/icons/hicolor"))
(install-file "PPSSPPSDL" share)
(copy-recursively "assets" (string-append share "/assets"))
;; Link all of spirv-cross.
(("spirv-cross-glsl" all)
(string-append all
" spirv-cross-core spirv-cross-cpp"
" spirv-cross-reflect spirv-cross-util")))
(substitute* "ext/CMakeLists.txt"
(("add_subdirectory\\(glew.*") "")
(("add_subdirectory\\(glslang.*") "")
(("add_subdirectory\\(snappy.*") "")
(("add_subdirectory\\(SPIRV-Cross-build.*") "")
(("add_subdirectory\\(zstd.*") ""))
;; Finally, we can delete the bundled sources.
(for-each delete-file-recursively
'("MoltenVK"
"ext/cmake"
"ext/glew"
"ext/glslang" "ext/glslang-build"
"ext/miniupnp" "ext/miniupnp-build"
"ext/native"
"ext/snappy"
"ext/SPIRV-Cross" "ext/SPIRV-Cross-build"
"ext/vulkan"
"ext/xxhash.c"
"ext/xxhash.h"
"ext/zlib"
"ext/zstd"))
;; Since we are not including git as an input, PPSSPP is confused
;; about its version. Let's fix that here.
(substitute* "git-version.cmake"
(("unknown") ,version))))))
(build-system cmake-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)
("python" ,python)))
(inputs
`(("cityhash" ,cityhash)
;; ppsspp doesn't yet build with ffmpeg 4.4 (see:
("ffmpeg" ,ffmpeg)
("glew" ,glew)
("glslang" ,glslang)
("libpng" ,libpng)
("libzip" ,libzip)
("mesa" ,mesa)
("miniupnpc" ,miniupnpc)
("sdl2" ,sdl2)
("snappy" ,snappy)
("spirv-cross" ,spirv-cross)
("vulkan-headers" ,vulkan-headers)
("vulkan-loader" ,vulkan-loader)
("xxhash" ,xxhash)
("zlib" ,zlib)
("zstd" ,zstd "lib")
; ("zstd" ,zstd "static")
;; TODO: unbundle armips.
("armips-source" ,(package-source armips))
("lang"
,(let ((commit "6bd5b4bc983917ea8402f73c726b46e36f3de0b4"))
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/hrydgard/ppsspp-lang")
(commit commit)))
(sha256
(base32 "08npr3a4xskf85gnlxidl4ksc3rhc7m5rgnj7vsbjvhvw5ap02qx"))
(file-name (git-file-name "ppsspp-lang" commit)))))
("tests"
,(let ((commit "1047400eaec6bcbdb2a64d326375ef6a6617c4ac"))
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/hrydgard/pspautotests")
(commit commit)))
(sha256
(base32 "0nxv1lskcr8zbg6nrfai21mxsw0n5vaqhbsa41c3cxfyx5c4w2pg"))
(file-name (git-file-name "pspautotests" commit)))))))
(arguments
`(#:out-of-source? #f
#:configure-flags (list "-DUSE_DISCORD=OFF"
"-DUSE_SYSTEM_FFMPEG=ON"
"-DUSE_SYSTEM_LIBZIP=ON"
;; for testing
"-DUNITTEST=ON" "-DHEADLESS=ON")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'add-external-sources
(lambda* (#:key inputs #:allow-other-keys)
;; TODO: unbundle armips.
(copy-recursively (assoc-ref inputs "armips-source")
"ext/armips")
;; Some tests are externalised, so we add them here.
(copy-recursively (assoc-ref inputs "tests")
"pspautotests")
;; i18n is externalised, so we add it here.
(copy-recursively (assoc-ref inputs "lang")
"assets/lang")
#t))
(add-after 'unpack 'fix-unittest-build
(lambda _
(substitute* "CMakeLists.txt"
(("unittest/TestVertexJit.cpp" all)
(string-append all " unittest/TestShaderGenerators.cpp")))
(substitute* "unittest/TestVertexJit.cpp"
(("#include \"unittest/UnitTest.h\"" all)
(string-append all "\n#include <cmath>")))
#t))
(replace 'check
(lambda _
(for-each
(lambda (t) (invoke "./unitTest" t))
'("Arm64Emitter" "ArmEmitter" "X64Emitter" "VertexJit" "Asin"
"SinCos" #|"VFPUSinCos" SIGSEGV|# "MathUtil" "Parsers" "Jit"
"MatrixTranspose" "ParseLBN" "QuickTexHash" "CLZ"
#|"ShaderGenerators"|#))
(invoke "python3" "test.py" "-g")
#t))
(replace 'install
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin/ppsspp (string-append out "/bin/ppsspp"))
(share (string-append out "/share/ppsspp")))
(copy-recursively "icons/hicolor"
(string-append out "/share/icons/hicolor"))
(install-file "PPSSPPSDL" share)
(copy-recursively "assets" (string-append share "/assets"))
(make-desktop-entry-file
(string-append out "/share/applications/ppsspp.desktop")
#:name "PPSSPP"
#:exec (string-append share "/PPSSPPSDL")
#:icon "ppsspp")
(mkdir-p (string-append out "/bin"))
(with-output-to-file bin/ppsspp
(lambda ()
(format #t "#!~a~%exec ~a/PPSSPPSDL \"$@\""
(which "sh") share)))
(chmod bin/ppsspp #o755)
#t))))))
(home-page "https://www.ppsspp.org/")
(synopsis "PSP emulator")
(description
"PPSSPP is a ``high-level'' emulator simulating the PSP operating
(make-desktop-entry-file
(string-append out "/share/applications/ppsspp.desktop")
#:name "PPSSPP"
#:exec (string-append share "/PPSSPPSDL")
#:icon "ppsspp")
(mkdir-p (string-append out "/bin"))
(with-output-to-file bin/ppsspp
(lambda ()
(format #t "#!~a~%exec ~a/PPSSPPSDL \"$@\""
(which "sh") share)))
(chmod bin/ppsspp #o755)
#t))))))
(home-page "https://www.ppsspp.org/")
(synopsis "PSP emulator")
(description
"PPSSPP is a ``high-level'' emulator simulating the PSP operating
system.")
(license license:gpl2+)))
(license license:gpl2+))))

4
gnu/packages/engineering.scm
View File

@ -2745,14 +2745,14 @@ GUI.")
(define-public poke
(package
(name "poke")
(version "1.2")
(version "1.3")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnu/poke/poke-" version
".tar.gz"))
(sha256
(base32
"0qnz7lc681nxa16rw9n9q4spy9fas6m2adrpb49imh34bgdgh77n"))))
"06qgry1pal2vampmbmc1lzlhf1qnjkd8py781r5h020v981n6y5s"))))
(build-system gnu-build-system)
;; The GUI, which we elide, requires tcl and tk.
(native-inputs `(("bison" ,bison)

5
gnu/packages/entr.scm
View File

@ -4,6 +4,7 @@
;;; Copyright © 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
;;; Copyright © 2021 Solene Rapenne <solene@perso.pw>
;;;
;;; This file is part of GNU Guix.
;;;
@ -33,14 +34,14 @@
(define-public entr
(package
(name "entr")
(version "4.6")
(version "4.9")
(source (origin
(method url-fetch)
(uri (string-append "http://entrproject.org/code/entr-"
version ".tar.gz"))
(sha256
(base32
"0vcflgagna2gdlpjsd6748c73j2829xlhm276mi838zl1n121phn"))))
"18h58k69f0qmqkknbcnhm5dz7mv5gr2blcq88qr62vz4zg9a8mp2"))))
(build-system gnu-build-system)
(arguments
`(#:test-target "test"

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

@ -8,6 +8,7 @@
;;; Copyright © 2020 Morgan Smith <Morgan.J.Smith@outlook.com>
;;; Copyright © 2021 raid5atemyhomework <raid5atemyhomework@protonmail.com>
;;; Copyright © 2021 Stefan Reichör <stefan@xsteve.at>
;;; Copyright © 2021 Noisytoot <noisytoot@disroot.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -477,7 +478,7 @@ from the bcachefs-tools package. It is meant to be used in initrds.")
(define-public exfatprogs
(package
(name "exfatprogs")
(version "1.1.1")
(version "1.1.2")
(source
(origin
(method git-fetch)
@ -486,7 +487,7 @@ from the bcachefs-tools package. It is meant to be used in initrds.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "1zl3w5w2mzyggizc4dsiln0pa013f8sf5dxmm5wflplpfm6k4brk"))))
(base32 "19pbybgbfnvjb3n944ihrn1r8ch4dm8dr0d44d6w7p63dcp372xy"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
@ -1526,3 +1527,35 @@ your put them. TMSU maintains its own database and you simply gain an
additional view, which you can mount where you like, based upon the tags you
set up.")
(license license:gpl3+)))
(define-public udftools
(package
(name "udftools")
(version "2.3")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/pali/udftools")
(commit version)))
(sha256
(base32
"1nl2s61znyzaap23zhbdg3znj6l6akr313fchn5wwvjzj8k70is9"))
(file-name (git-file-name name version))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
(list (string-append "--docdir=" (assoc-ref %outputs "out")
"/share/doc/" ,name "-" ,version))))
(native-inputs
`(("automake" ,automake)
("autoconf" ,autoconf)
("libtool" ,libtool)
("pkg-config" ,pkg-config)))
(home-page "https://github.com/pali/udftools")
(synopsis "Tools to manage UDF file systems and DVD/CD-R(W) drives")
(description "@code{udftools} is a set of programs for reading
and modifying @acronym{UDF, Universal Disk Format} file systems.
@acronym{UDF, Universal Disk Format} is a file system mostly used for DVDs
and other optical media. It supports read-only media (DVD/CD-R)
and rewritable media that wears out (DVD/CD-RW).")
(license license:gpl2+)))

6
gnu/packages/fltk.scm
View File

@ -5,6 +5,7 @@
;;; Copyright © 2016 Kei Kebreau <kkebreau@posteo.net>
;;; Copyright © 2018 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2018 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; This file is part of GNU Guix.
;;;
@ -42,7 +43,7 @@
(define-public fltk
(package
(name "fltk")
(version "1.3.5")
(version "1.3.6")
(source
(origin
(method url-fetch)
@ -50,8 +51,7 @@
(first (string-split version #\-))
"/fltk-" version "-source.tar.gz"))
(sha256
(base32
"00jp24z1818k9n6nn6lx7qflqf2k13g4kxr0p8v1d37kanhb4ac7"))))
(base32 "1arp1niiz3qxm8iacpmilwpc5rinsm6hsk4a6fsxfywvkvppbb4s"))))
(build-system gnu-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)))

28
gnu/packages/fonts.scm
View File

@ -119,30 +119,6 @@ well as other mediums.")
in print. With attention to detail for high resolution rendering.")
(license license:silofl1.1)))
(define-public font-ubuntu
(package
(name "font-ubuntu")
(version "0.83")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://salsa.debian.org/fonts-team/fonts-ubuntu")
(commit (string-append "upstream/" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1d2xrjpxy70f3nsgqiggwv6pj06qglf5vj2847pqx60w3ygi903g"))))
(build-system font-build-system)
(home-page "http://font.ubuntu.com/")
(synopsis "The Ubuntu Font Family")
(description "The Ubuntu Font Family is a unique, custom designed font
that has a very distinctive look and feel. This package provides the
TrueType (TTF) files.")
(license
(license:non-copyleft
"http://font.ubuntu.com/ufl/ubuntu-font-licence-1.0.txt"
"Ubuntu Font License v1.0"))))
(define-public font-dejavu
(package
(name "font-dejavu")
@ -1387,7 +1363,7 @@ programming. Iosevka is completely generated from its source code.")
(define-public font-sarasa-gothic
(package
(name "font-sarasa-gothic")
(version "0.12.7")
(version "0.31.2")
(source
(origin
(method url-fetch)
@ -1395,7 +1371,7 @@ programming. Iosevka is completely generated from its source code.")
"/releases/download/v" version
"/sarasa-gothic-ttc-" version ".7z"))
(sha256
(base32 "09v65k00g8m953s6riz9xjzb2jgr6v5pdhcllalzzl7c1cn2xl3k"))))
(base32 "0p67qyhm266s6q17islqvwch807fy5slgp2symrl0z665vp6hycj"))))
(build-system font-build-system)
(arguments
`(#:phases (modify-phases %standard-phases

7
gnu/packages/fpga.scm
View File

@ -432,7 +432,7 @@ a hardware description and verification language. ")
(define-public nvc
(package
(name "nvc")
(version "1.5.0")
(version "1.5.1")
(source (origin
(method git-fetch)
(uri (git-reference
@ -441,11 +441,10 @@ a hardware description and verification language. ")
(file-name (string-append name "-" version "-checkout"))
(sha256
(base32
"0dd1xany6qhh2qsfw8ba0ky7y86h19yr4hlk0r5i2bvwsg4355v9"))))
"0m1zhcqhgz5fajz98ky5zdv8g8gvk9caghqfpbv8q3mzdzahcsx5"))))
(build-system gnu-build-system)
(arguments
`(#:parallel-build? #f ; https://github.com/nickg/nvc/issues/409
#:configure-flags
`(#:configure-flags
'("--enable-vhpi")
#:phases
(modify-phases %standard-phases

6
gnu/packages/freeipmi.scm
View File

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015, 2016, 2017, 2020, 2021 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019–2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; This file is part of GNU Guix.
;;;
@ -28,14 +28,14 @@
(define-public freeipmi
(package
(name "freeipmi")
(version "1.6.7")
(version "1.6.8")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnu/freeipmi/freeipmi-"
version ".tar.gz"))
(sha256
(base32
"1gyyx99q02p3v2nqm3h53mkjd33l0hrapwg4alg6qr9k74qik1dv"))))
"0w8af1i57szmxl9vfifwwyal7xh8aixz2l9487wvy6yckqk6m92a"))))
(build-system gnu-build-system)
(arguments
'(#:configure-flags '("--disable-static")))

4
gnu/packages/ftp.scm
View File

@ -220,14 +220,14 @@ output.
(define-public filezilla
(package
(name "filezilla")
(version "3.53.1")
(version "3.54.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://download.filezilla-project.org/client/"
"FileZilla_" version "_src.tar.bz2"))
(sha256
(base32 "0ygpqfzj5ms1pd46fpfya1y1jl4w2kmaa7plf8n6fm7cxbr78s35"))))
(base32 "0smayigsk8hjplk7pm6dd80r1dnhr4f6xzp3n1p1ss5v2ff1jfkh"))))
(build-system gnu-build-system)
(arguments
;; Don't let filezilla phone home to check for updates.

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

@ -1487,7 +1487,7 @@ painted with a mouse.")
(define-public ois
(package
(name "ois")
(version "1.5")
(version "1.5.1")
(source
(origin
(method git-fetch)
@ -1496,7 +1496,7 @@ painted with a mouse.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0g8krgq5bdx2rw7ig0xva4kqv4x815672i7z6lljp3n8847wmypa"))))
(base32 "0nkh0zrsbyv47c0i0vhdna3jsnvs69pb1svg75avxw6z7kwskgla"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f)) ; no test suite

72
gnu/packages/games.scm
View File

@ -61,6 +61,7 @@
;;; Copyright © 2021 Greg Hogan <code@greghogan.com>
;;; Copyright © 2021 David Pflug <david@pflug.io>
;;; Copyright © 2021 Felix Gruber <felgru@posteo.net>
;;; Copyright © 2021 Solene Rapenne <solene@perso.pw>
;;;
;;; This file is part of GNU Guix.
;;;
@ -1836,19 +1837,17 @@ Chess). It is similar to standard chess but this variant is far more complicate
(define-public ltris
(package
(name "ltris")
(version "1.2.1")
(version "1.2.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/lgames/ltris/"
"ltris-" version ".tar.gz"))
(sha256
(base32 "0959vvxh5xnxzpdv7i67lpd2b6ghx69z65ldnclj1z6llyfzfs7q"))))
(base32 "1a2m17jwkyar8gj07bn5jk01j2ps4vvc48z955jjjsh67q2svi0f"))))
(build-system gnu-build-system)
(arguments
'(;; The code in LTris uses traditional GNU semantics for inline functions
#:configure-flags '("CFLAGS=-fgnu89-inline")
#:phases
'(#:phases
(modify-phases %standard-phases
(add-after 'set-paths 'set-sdl-paths
(lambda* (#:key inputs #:allow-other-keys)
@ -4305,35 +4304,15 @@ world}, @uref{http://evolonline.org, Evol Online} and
(define openttd-engine
(package
(name "openttd-engine")
(version "1.10.3")
(version "1.11.2")
(source
(origin (method url-fetch)
(uri (string-append "https://cdn.openttd.org/openttd-releases/"
version "/openttd-" version "-source.tar.xz"))
(sha256
(base32
"0fxmfz1mm95a2x0rnzfff9wb8q57w0cvsdd0z7agdcbyakph25n1"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; no "check" target
#:phases
(modify-phases %standard-phases
;; The build process fails if the configure script is passed the
;; option "--enable-fast-install".
(replace 'configure
(lambda* (#:key inputs outputs (configure-flags '())
#:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(lzo (assoc-ref inputs "lzo")))
(apply invoke "./configure"
(string-append "--prefix=" out)
;; Provide the "lzo" path.
(string-append "--with-liblzo2="
lzo "/lib/liblzo2.a")
;; Put the binary in 'bin' instead of 'games'.
"--binary-dir=bin"
configure-flags)))))))
(native-inputs `(("pkg-config" ,pkg-config)))
"0v9f93lsdcv3ia28y8iihx9nj9zp6fpf5hkdrpl4ypw159d97fhg"))))
(build-system cmake-build-system)
(inputs
`(("allegro" ,allegro)
("fontconfig" ,fontconfig)
@ -4500,19 +4479,17 @@ Transport Tycoon Deluxe.")
(name "openttd")
(arguments
`(#:configure-flags
(list (string-append "--with-midi=" (assoc-ref %build-inputs "timidity++")
"/bin/timidity"))
,@(substitute-keyword-arguments (package-arguments openttd-engine)
((#:phases phases)
`(modify-phases ,phases
(add-after 'install 'install-data
(lambda* (#:key inputs outputs #:allow-other-keys)
(for-each
(lambda (input)
(copy-recursively (assoc-ref inputs input)
(assoc-ref outputs "out")))
(list "opengfx" "openmsx" "opensfx"))
#t)))))))
(let* ((out (assoc-ref %outputs "out")))
(list (string-append "-DCMAKE_INSTALL_BINDIR=" out "/bin")))
#:phases
(modify-phases %standard-phases
(add-before 'check 'install-data
(lambda* (#:key inputs outputs #:allow-other-keys)
(for-each
(lambda (input)
(copy-recursively (assoc-ref inputs input)
(assoc-ref outputs "out")))
(list "opengfx" "openmsx" "opensfx")))))))
(inputs
`(("timidity++" ,timidity++)
,@(package-inputs openttd-engine)))
@ -5138,7 +5115,7 @@ in-window at 640x480 resolution or fullscreen.")
(define-public warzone2100
(package
(name "warzone2100")
(version "3.4.1")
(version "4.0.1")
(source
(origin
(method url-fetch)
@ -5146,7 +5123,7 @@ in-window at 640x480 resolution or fullscreen.")
version
"/warzone2100_src.tar.xz"))
(sha256
(base32 "0savalmw1kp1sf8vg5aqrl5hc77p4jacxy5y9qj8k2hi2vqdfb7a"))
(base32 "1f8a4kflslsjl8jrryhwg034h1yc9y3y1zmllgww3fqkz3aj4xik"))
(modules '((guix build utils)))
(snippet
'(begin
@ -5160,6 +5137,7 @@ in-window at 640x480 resolution or fullscreen.")
(build-system cmake-build-system)
(arguments
`(#:configure-flags '("-DWZ_DISTRIBUTOR=Guix"
"-DWZ_ENABLE_BACKEND_VULKAN=off"
"-DENABLE_DISCORD=off")
#:tests? #f ; TODO: Tests seem to be broken, configure.ac is missing.
#:phases
@ -5205,6 +5183,7 @@ in-window at 640x480 resolution or fullscreen.")
("qtscript" ,qtscript)
("openssl" ,openssl)
("sdl2" ,sdl2)
("sqlite" ,sqlite)
("utfcpp" ,utfcpp)))
(home-page "https://wz2100.net")
(synopsis "3D Real-time strategy and real-time tactics game")
@ -6909,7 +6888,7 @@ Crowther & Woods, its original authors, in 1995. It has been known as
(define-public tome4
(package
(name "tome4")
(version "1.7.2")
(version "1.7.3")
(synopsis "Single-player, RPG roguelike game set in the world of Eyal")
(source
(origin
@ -6917,7 +6896,7 @@ Crowther & Woods, its original authors, in 1995. It has been known as
(uri (string-append "https://te4.org/dl/t-engine/t-engine4-src-"
version ".tar.bz2"))
(sha256
(base32 "1xa0pdn9pggwf7hnqb87ya2qxqhjahkdjwf8cr2y01gixgrkj9lv"))
(base32 "1rik17r01glq3944sdb06xjf0xppgqkjk564wrh22slm4mi3fifz"))
(modules '((guix build utils)))
(snippet
'(begin
@ -7302,7 +7281,8 @@ elements to achieve a simple goal in the most complex way possible.")
`(#:tests? #f ;tests are broken
#:configure-flags (list "-DUSE_SYSTEM_LIBLUA:BOOL=YES"
(string-append "-DPIONEER_DATA_DIR="
%output "/share/games/pioneer"))))
%output "/share/games/pioneer"))
#:make-flags (list "all" "build-data")))
(home-page "https://pioneerspacesim.net")
(synopsis "Game of lonely space adventure")
(description

4
gnu/packages/gcc.scm
View File

@ -556,14 +556,14 @@ It also includes runtime support libraries for these languages.")))
(define-public gcc-9
(package
(inherit gcc-8)
(version "9.3.0")
(version "9.4.0")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnu/gcc/gcc-"
version "/gcc-" version ".tar.xz"))
(sha256
(base32
"1la2yy27ziasyf0jvzk58y1i5b5bq2h176qil550bxhifs39gqbi"))
"13l3p6g2krilaawbapmn9zmmrh3zdwc36mfr3msxfy038hps6pf9"))
(patches (search-patches "gcc-9-strmov-store-file-names.patch"
"gcc-9-asan-fix-limits-include.patch"
"gcc-5.0-libvtv-runpath.patch"))))))

20
gnu/packages/gnome.scm
View File

@ -59,6 +59,7 @@
;;; Copyright © 2020, 2021 Andy Tai <atai@atai.org>
;;; Copyright © 2020, 2021 Sébastien Lerique <sl@eauchat.org>
;;; Copyright © 2021 Trevor Hass <thass@okstate.edu>
;;; Copyright © 2021 Solene Rapenne <solene@perso.pw>
;;;
;;; This file is part of GNU Guix.
;;;
@ -1109,7 +1110,7 @@ freedesktop.org desktop notification specification.")
(define-public mm-common
(package
(name "mm-common")
(version "1.0.2")
(version "1.0.3")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnome/sources/mm-common/"
@ -1117,7 +1118,7 @@ freedesktop.org desktop notification specification.")
"mm-common-" version ".tar.xz"))
(sha256
(base32
"07b4s5ckcz9q5gwx8vchim19mhfgl8wysqwi30pndks3m4zrzad2"))))
"1x8yvjy0yg17qyhmqws8xh2k8dvzrhpwqz7j1cfwzalrb1i9c5g8"))))
(build-system meson-build-system)
(arguments
`(#:phases
@ -1176,6 +1177,7 @@ Library reference documentation.")
`(("docbook-xml" ,docbook-xml-4.3)
("gettext" ,gettext-minimal)
("glib:bin" ,glib "bin")
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
("gtk-doc" ,gtk-doc/stable)
("pkg-config" ,pkg-config)))
(inputs
@ -1408,7 +1410,7 @@ and implementation of UPnP A/V profiles.")
(define-public libmediaart
(package
(name "libmediaart")
(version "1.9.4")
(version "1.9.5")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnome/sources/" name "/"
@ -1416,8 +1418,8 @@ and implementation of UPnP A/V profiles.")
name "-" version ".tar.xz"))
(sha256
(base32
"0gc10imyabk57ar54m0qzms0x9dnmkymhkzyk8w1aj3y4lby0yx5"))))
(build-system gnu-build-system)
"1mlw1qgj8nkd9ll6b6h54r1gfdy3zp8a8xqz7qfyfaj85jjgbph7"))))
(build-system meson-build-system)
(native-inputs
`(("glib:bin" ,glib "bin")
("pkg-config" ,pkg-config)))
@ -6984,7 +6986,7 @@ metadata in photo and video files of various formats.")
(define-public shotwell
(package
(name "shotwell")
(version "0.30.11")
(version "0.30.12")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnome/sources/shotwell/"
@ -6992,7 +6994,7 @@ metadata in photo and video files of various formats.")
"shotwell-" version ".tar.xz"))
(sha256
(base32
"12d26y40kjlv5x8f5g04wff33vh7mdjb8c41ydqbrwdip0jwy2n2"))))
"1h5crjq59lqi8f8mdkadzi8pc3i9i2ik4lsx2nrhzq486fzdfhw6"))))
(build-system meson-build-system)
(arguments
'(#:glib-or-gtk? #t
@ -11954,7 +11956,7 @@ integrated profiler via Sysprof, debugging support, and more.")
(define-public komikku
(package
(name "komikku")
(version "0.28.1")
(version "0.29.0")
(source
(origin
(method git-fetch)
@ -11964,7 +11966,7 @@ integrated profiler via Sysprof, debugging support, and more.")
(file-name (git-file-name name version))
(sha256
(base32
"0ifcwp5fw74yypxkq7i0yc3002bsvj3p5c1icspr8s2kyjyllm6i"))))
"1sirwgny1s6jv9rb0lildqv4p7nfa15rvw957pwxnvrjasxyf6bq"))))
(build-system meson-build-system)
(arguments
`(#:glib-or-gtk? #t

12
gnu/packages/gnucash.scm
View File

@ -256,14 +256,14 @@ to be read using the GNOME Yelp program.")
(define-public gwenhywfar
(package
(name "gwenhywfar")
(version "4.99.25rc9")
(version "5.6.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://www.aquamaniac.de/rdm/attachments/"
"download/223/gwenhywfar-" version ".tar.gz"))
"download/364/gwenhywfar-" version ".tar.gz"))
(sha256
(base32 "14ws780zfyv9qg41z42hlk8sh31w80w3v8n5riaslqhvvxqbfgkq"))))
(base32 "1isbj4a7vdgagp3kkvx2pjcjy8lba6kzjr11fmr06aci1694dbsp"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
@ -293,14 +293,14 @@ applications and libraries. It is used by AqBanking.")
(define-public aqbanking
(package
(name "aqbanking")
(version "5.99.44beta")
(version "6.3.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://www.aquamaniac.de/rdm/attachments/"
"download/224/aqbanking-" version ".tar.gz"))
"download/372/aqbanking-" version ".tar.gz"))
(sha256
(base32 "1cgj8g3wy53galp9pk50a85w0kmwfx3dwl93cbvq6sqb9izxmwdb"))))
(base32 "1k2mhdnk0jc0inq1hmp74m3y7azxrjm8r07x5k1pp4ic0yi5vs50"))))
(build-system gnu-build-system)
(arguments
`(;; Parallel building fails because aqhbci is required before it's

63
gnu/packages/gnuzilla.scm
View File

@ -694,8 +694,8 @@ from forcing GEXP-PROMISE."
#:system system
#:guile-for-build guile)))
(define %icecat-version "78.10.0-guix0-preview1")
(define %icecat-build-id "20210419000000") ;must be of the form YYYYMMDDhhmmss
(define %icecat-version "78.11.0-guix0-preview1")
(define %icecat-build-id "20210601000000") ;must be of the form YYYYMMDDhhmmss
;; 'icecat-source' is a "computed" origin that generates an IceCat tarball
;; from the corresponding upstream Firefox ESR tarball, using the 'makeicecat'
@ -717,7 +717,7 @@ from forcing GEXP-PROMISE."
"firefox-" upstream-firefox-version ".source.tar.xz"))
(sha256
(base32
"0h6zl87czbhyhy3597bxqzwy4p1vsaqimkg92lw31gjbv6k434cp"))))
"0zjpzkxx3wc2840d7q4b9lnkj1kwk1qps29s9c83jf5y6xclnf9q"))))
(upstream-icecat-base-version "78.7.0") ; maybe older than base-version
;;(gnuzilla-commit (string-append "v" upstream-icecat-base-version))
@ -1302,11 +1302,11 @@ standards of the IceCat project.")
(cpe-version . ,(first (string-split version #\-)))))))
;; Update this together with icecat!
(define %icedove-build-id "20210504000000") ;must be of the form YYYYMMDDhhmmss
(define %icedove-build-id "20210601000000") ;must be of the form YYYYMMDDhhmmss
(define-public icedove
(package
(name "icedove")
(version "78.10.1")
(version "78.11.0")
(source icecat-source)
(properties
`((cpe-name . "thunderbird_esr")))
@ -1586,7 +1586,7 @@ standards of the IceCat project.")
;; in the Thunderbird release tarball. We don't use the release
;; tarball because it duplicates the Icecat sources and only adds the
;; "comm" directory, which is provided by this repository.
,(let ((changeset "14a9afcfb6cc0c466e0d0b8222e85de5b2d8078d"))
,(let ((changeset "1717d8d5fbd359aab7a4a0a15f4d15c72a7e6afc"))
(origin
(method hg-fetch)
(uri (hg-reference
@ -1595,7 +1595,7 @@ standards of the IceCat project.")
(file-name (string-append "thunderbird-" version "-checkout"))
(sha256
(base32
"18658r4b1f5p8jcz68l31z29ny73lic0br7gc827m72nfc85wqz3")))))
"10l042dd7b8rvla0cbiks5kjrz2b28yy7hr8sr169wlx202hxa01")))))
("autoconf" ,autoconf-2.13)
("cargo" ,rust "cargo")
("clang" ,clang)
@ -1618,25 +1618,40 @@ Thunderbird. It supports email, news feeds, chat, calendar and contacts.")
(license license:mpl2.0)))
(define-public icedove/wayland
(package/inherit icedove
(package
(inherit icedove)
(name "icedove-wayland")
(native-inputs '())
(inputs
`(("bash" ,bash-minimal)
("icedove" ,icedove)))
(build-system trivial-build-system)
(arguments
(substitute-keyword-arguments (package-arguments icedove)
((#:phases phases)
`(modify-phases ,phases
(replace 'wrap-program
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(lib (string-append out "/lib"))
(gtk (assoc-ref inputs "gtk+"))
(gtk-share (string-append gtk "/share"))
(pulseaudio (assoc-ref inputs "pulseaudio"))
(pulseaudio-lib (string-append pulseaudio "/lib")))
(wrap-program (car (find-files lib "^icedove$"))
`("MOZ_ENABLE_WAYLAND" = ("1"))
`("XDG_DATA_DIRS" prefix (,gtk-share))
`("LD_LIBRARY_PATH" prefix (,pulseaudio-lib)))
#t)))))))))
'(#:modules ((guix build utils))
#:builder
(begin
(use-modules (guix build utils))
(let* ((bash (assoc-ref %build-inputs "bash"))
(icedove (assoc-ref %build-inputs "icedove"))
(out (assoc-ref %outputs "out"))
(exe (string-append out "/bin/icedove")))
(mkdir-p (dirname exe))
(call-with-output-file exe
(lambda (port)
(format port "#!~a
MOZ_ENABLE_WAYLAND=1 exec ~a $@"
(string-append bash "/bin/bash")
(string-append icedove "/bin/icedove"))))
(chmod exe #o555)
;; Provide the manual and .desktop file.
(copy-recursively (string-append icedove "/share")
(string-append out "/share"))
(substitute* (string-append
out "/share/applications/icedove.desktop")
((icedove) out))
#t))))))
(define-public firefox-decrypt
(package

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

@ -2744,11 +2744,11 @@ The picture values can directly be displayed in Geiser.")
guile-picture-language))
(define-public guile-studio
(let ((commit "93622e788e727d3275291f999f7e570de6a5bb35")
(let ((commit "dd0ad42e51feafebda7cc29afe7c8bc7a182a842")
(revision "1"))
(package
(name "guile-studio")
(version (git-version "0.1.0" revision commit))
(version (git-version "0.1.1" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
@ -2757,7 +2757,7 @@ The picture values can directly be displayed in Geiser.")
(file-name (git-file-name name version))
(sha256
(base32
"0n6y0bcmkx50m8rccz7a6h4yxmwq54pf2bfzpd5ndz2bsiwiq13l"))))
"1cpqilly8dqmai1qsgjxy99zs34sfz95zwxhzx979wryqb69vi0q"))))
(build-system gnu-build-system)
(arguments
`(#:modules
@ -4569,6 +4569,39 @@ including parsing and code generation.")
"Guile Shapefile is a Guile library for reading shapefiles.")
(license license:expat)))
(define-public guile-drmaa
(package
(name "guile-drmaa")
(version "0.1.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://git.elephly.net/software/guile-drmaa.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1m2x62n3x5hi5vnsvv2zgqhgpzrfq7r5095fzzjd1aaybi9i9igg"))))
(build-system gnu-build-system)
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
("pkg-config" ,pkg-config)
("texinfo" ,texinfo)
("sed" ,sed)))
(inputs
`(("guile" ,guile-3.0)))
(propagated-inputs
`(("guile-bytestructures" ,guile-bytestructures)
("nyacc" ,nyacc)))
(home-page "https://git.elephly.net/software/guile-drmaa.git")
(synopsis "Guile bindings to DRMAA")
(description "This project provides Guile bindings to the DRMAA library
version 1. DRMAA is a resource management library implemented by HPC cluster
schedulers.")
(license license:gpl3+)))
(define-public guile-libyaml
(let ((commit "f5d33a6880e96571d3cb079ed7755ffc156cac46")
(revision "1"))

4
gnu/packages/guile.scm
View File

@ -275,8 +275,8 @@ without requiring the source code to be rewritten.")
(define-deprecated guile-2.2/bug-fix guile-2.2)
(define-public guile-2.2.4
(package/inherit
guile-2.2
(package
(inherit guile-2.2)
(version "2.2.4")
(source (origin
(inherit (package-source guile-2.2))

4
gnu/packages/hardware.scm
View File

@ -240,7 +240,7 @@ Memtest86+ cannot currently be used on computers booted with UEFI.")
(define-public memtester
(package
(name "memtester")
(version "4.5.0")
(version "4.5.1")
(source
(origin
(method url-fetch)
@ -248,7 +248,7 @@ Memtest86+ cannot currently be used on computers booted with UEFI.")
(uri (string-append "http://pyropus.ca/software/memtester/old-versions/"
"memtester-" version ".tar.gz"))
(sha256
(base32 "0dxfwayns3hjjplkxkpkm1409lmjlpi4chcrahcvdbnl0q6jpmcf"))))
(base32 "0issrasdihav8jgsqb49cfyj0v564z8k9lyg2jrq9h3n4lwc4pqw"))))
(build-system gnu-build-system)
(arguments
`(#:make-flags

74
gnu/packages/i2p.scm
View File

@ -1,6 +1,8 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2019 Jakob L. Kreuze <zerodaysfordays@sdf.org>
;;; Copyright © 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2021 Solene Rapenne <solene@perso.pw>
;;; Copyright © 2021 Efraim Flashner <efraim@flashner.co.il>
;;;
;;; This file is part of GNU Guix.
;;;
@ -30,7 +32,7 @@
(define-public i2pd
(package
(name "i2pd")
(version "2.36.0")
(version "2.38.0")
(source
(origin
(method git-fetch)
@ -39,40 +41,44 @@
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0gx7y0vrg9lsl7m1r6c8xyyqmaqn900kms4g0941g0gd5zdb0mvz"))))
(base32 "1a35grcfw5a9dsj0rnm2i86fjf4px96xbnjj3hkril7hv5jvl37k"))))
(build-system cmake-build-system)
(inputs `(("boost" ,boost)
("miniupnpc" ,miniupnpc)
("openssl" ,openssl)
("zlib" ,zlib)))
(arguments '(#:configure-flags
(let ((source (assoc-ref %build-inputs "source")))
(list (string-append "-S" source "/build")
"-DWITH_PCH=OFF"
"-DWITH_STATIC=OFF"
"-DWITH_UPNP=ON"
"-DWITH_LIBRARY=ON"
"-DBUILD_SHARED_LIBS=ON"
"-DWITH_BINARY=ON"))
#:phases
(modify-phases %standard-phases
(replace 'check
(lambda* (#:key
(make-flags '())
(parallel-tests? #t)
#:allow-other-keys)
(let ((source (assoc-ref %build-inputs "source")))
(copy-recursively (string-append source "/tests")
"./tests")
(with-directory-excursion "tests"
(substitute* "Makefile"
(("../libi2pd/") (string-append source "/libi2pd/")))
(apply invoke "make" "all"
`(,@(if parallel-tests?
`("-j" ,(number->string
(parallel-job-count)))
'())
,@make-flags)))))))))
(inputs
`(("boost" ,boost)
("miniupnpc" ,miniupnpc)
("openssl" ,openssl)
("zlib" ,zlib)))
(arguments
'(#:configure-flags
(let ((source (assoc-ref %build-inputs "source")))
(list (string-append "-S" source "/build")
"-DWITH_PCH=OFF"
"-DWITH_STATIC=OFF"
"-DWITH_UPNP=ON"
"-DWITH_LIBRARY=ON"
"-DBUILD_SHARED_LIBS=ON"
"-DWITH_BINARY=ON"))
#:phases
(modify-phases %standard-phases
(replace 'check
(lambda* (#:key
tests?
(make-flags '())
(parallel-tests? #t)
#:allow-other-keys)
(let ((source (assoc-ref %build-inputs "source")))
(when tests?
(copy-recursively (string-append source "/tests")
"./tests")
(with-directory-excursion "tests"
(substitute* "Makefile"
(("../libi2pd/") (string-append source "/libi2pd/")))
(apply invoke "make" "all"
`(,@(if parallel-tests?
`("-j" ,(number->string
(parallel-job-count)))
'())
,@make-flags))))))))))
(home-page "https://i2pd.website/")
(synopsis "Router for an end-to-end encrypted and anonymous internet")
(description "i2pd is a client for the anonymous I2P network, upon which

16
gnu/packages/icu4c.scm
View File

@ -128,6 +128,22 @@ C/C++ part.")
(base32
"09fng7a80xj8d5r1cgbgq8r47dsw5jsr6si9p2cj2ylhwgg974f7"))))))
(define-public icu4c-69
(package
(inherit icu4c)
(version "69.1")
(source (origin
(method url-fetch)
(uri (string-append
"https://github.com/unicode-org/icu/releases/download/release-"
(string-map (lambda (x) (if (char=? x #\.) #\- x)) version)
"/icu4c-"
(string-map (lambda (x) (if (char=? x #\.) #\_ x)) version)
"-src.tgz"))
(sha256
(base32
"0icps0avkwy5df3wwc5kybxcg63hcgk4phdh9g244g0xrmx7pfjc"))))))
(define-public icu4c-build-root
(package
(inherit icu4c)

5
gnu/packages/image-processing.scm
View File

@ -16,6 +16,7 @@
;;; Copyright © 2021 Felix Gruber <felgru@posteo.net>
;;; Copyright © 2021 Andy Tai <atai@atai.org>
;;; Copyright © 2021 Ekaitz Zarraga <ekaitz@elenq.tech>
;;; Copyright © 2021 Paul Garlick <pgarlick@tourbillion-technology.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -298,6 +299,8 @@ many popular formats.")
"-DVTK_MODULE_USE_EXTERNAL_VTK_theora=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_tiff=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_zlib=ON"
"-DVTK_WRAP_PYTHON=ON"
"-DVTK_PYTHON_VERSION:STRING=3"
)
#:phases
(modify-phases %standard-phases
@ -328,6 +331,7 @@ many popular formats.")
("netcdf" ,netcdf)
("png" ,libpng)
("proj" ,proj.4)
("python", python)
;("pugixml" ,pugixml)
("sqlite" ,sqlite)
("tiff" ,libtiff)
@ -871,6 +875,7 @@ libraries designed for computer vision research and implementation.")
;; variable in the installed CMake files. This is necessary as other
;; packages using insight-toolkit could not be configured otherwise.
"-DGTEST_ROOT=gtest")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'do-not-tune

4
gnu/packages/image.scm
View File

@ -2136,7 +2136,7 @@ This package can be used to create @code{favicon.ico} files for web sites.")
(define-public libavif
(package
(name "libavif")
(version "0.9.0")
(version "0.9.1")
(source (origin
(method git-fetch)
(uri (git-reference
@ -2145,7 +2145,7 @@ This package can be used to create @code{favicon.ico} files for web sites.")
(file-name (git-file-name name version))
(sha256
(base32
"1aw41m8ddrckq375w0lv2zd4ybhccsy1hw4f9kipppwxhgvk17gf"))))
"1h1gf4cbrff73f8s4avkph2sbr4d3s71kifipskzcmrqjbjc2qsx"))))
(build-system cmake-build-system)
(arguments
`(#:configure-flags '("-DAVIF_CODEC_AOM=ON" "-DAVIF_CODEC_DAV1D=ON"

3
gnu/packages/installers.scm
View File

@ -42,7 +42,8 @@
(sha256
(base32
"1sbwx5vzpddharkb7nj4q5z3i5fbg4lan63ng738cw4hmc4v7qdn"))
(patches (search-patches "nsis-env-passthru.patch"))))
(patches (search-patches "nsis-env-passthru.patch"
"nsis-source-date-epoch.patch"))))
(build-system scons-build-system)
(native-inputs `(("xgcc" ,xgcc)
("xbinutils" ,xbinutils)

13
gnu/packages/jami.scm
View File

@ -546,12 +546,21 @@ decentralized calling using P2P-DHT.")
; automatically started by DBus.
("adwaita-icon-theme" ,adwaita-icon-theme)))
(arguments
`(#:tests? #f ; There is no testsuite.
`(#:tests? #f ;no test suite
#:imported-modules (,@%cmake-build-system-modules
(guix build glib-or-gtk-build-system))
#:modules ((guix build cmake-build-system)
((guix build glib-or-gtk-build-system) #:prefix gtk:)
(guix build utils))
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'change-directory
(lambda _
(chdir "client-gnome"))))))
(chdir "client-gnome")))
(add-after 'install 'glib-or-gtk-compile-schemas
(assoc-ref gtk:%standard-phases 'glib-or-gtk-compile-schemas))
(add-after 'glib-or-gtk-compile-schemas 'glib-or-gtk-wrap
(assoc-ref gtk:%standard-phases 'glib-or-gtk-wrap)))))
(synopsis "Jami client for GNOME")
(description "This package provides a Jami client for the GNOME desktop.
Jami is a secure and distributed voice, video and chat communication platform

2667
gnu/packages/julia-jll.scm 100644
View File

File diff suppressed because it is too large Load Diff

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

File diff suppressed because it is too large Load Diff

4
gnu/packages/kde.scm
View File

@ -619,14 +619,14 @@ used in KDE development tools Kompare and KDevelop.")
(define-public qca
(package
(name "qca")
(version "2.3.2")
(version "2.3.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/qca/" version
"/qca-" version ".tar.xz"))
(sha256
(base32 "0vb0kwm4vpf71vczadg6h1ib09sgca0crll7ksbkmg646w1615s6"))))
(base32 "0rvvf97la95lah67jcj0p06n4br0pc2mri0q1hn4x522hndqybjn"))))
(build-system cmake-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)))

4
gnu/packages/libreoffice.scm
View File

@ -453,14 +453,14 @@ CorelDRAW documents of all versions.")
(define-public libetonyek
(package
(name "libetonyek")
(version "0.1.9")
(version "0.1.10")
(source
(origin
(method url-fetch)
(uri (string-append "http://dev-www.libreoffice.org/src/" name "/"
name "-" version ".tar.xz"))
(sha256 (base32
"0jhsbdimiyijdqriy0zzkjjgc4wi6fjimhdg4mdybrlwg7l7f5p6"))))
"16hy60ws29pb4pz3z5l4920yn9hnk2vlij0xfs5qi1w4drd46c5l"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags '("--with-mdds=1.5")))

77
gnu/packages/linux.scm
View File

@ -356,15 +356,15 @@ 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.5")
(define-public linux-libre-5.12-version "5.12.9")
(define deblob-scripts-5.12
(linux-libre-deblob-scripts
linux-libre-5.12-version
(base32 "1vdsr9y4gckknrbqcjyfakwva3k0vb5zcivzk3k1s9mh7qp9dils")
(base32 "1qp25fd4wgjyk7dzdq9yirm1z5w68sd1p3wv8lch8259i51gwjnf")))
(base32 "1p1jzrci97sipjdx3h0vmdnw35z2vyvczinxmp65xi1ja7ww0g14")))
(define-public linux-libre-5.12-pristine-source
(let ((version linux-libre-5.12-version)
(hash (base32 "1x39sdswww4j8zr54wpjzy9dia52kihs11xwljxcnz8pck0vwja0")))
(hash (base32 "0vg71h8r90fl01a8khyf1776y76rgqisxafky89cswa2fpsvxyn7")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-5.12)))
@ -372,20 +372,20 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
;; 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.38")
(define-public linux-libre-5.10-version "5.10.42")
(define deblob-scripts-5.10
(linux-libre-deblob-scripts
linux-libre-5.10-version
(base32 "1rmnx1px4sizs2lq831yd2g9dyflg0vmykz3cv9443x2a2vwy81f")
(base32 "0hh27ccqimagr3aij7ygwikxw66y63sqwd0xlf49bhpjd090r9a7")))
(base32 "1zsr02zmpx3968277sy8pfs2mdlgh86ifymwyj0r56wnhzf5q6hk")))
(define-public linux-libre-5.10-pristine-source
(let ((version linux-libre-5.10-version)
(hash (base32 "0bzipgnfvd5w70rv1x6g81iwknn2qskw92p2bpyiks7r52qmmwij")))
(hash (base32 "1r86v6q7ml7zv001f25w3h667nqqy39439s94vnqsyyn7g3jg84b")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-5.10)))
(define-public linux-libre-5.4-version "5.4.120")
(define-public linux-libre-5.4-version "5.4.124")
(define deblob-scripts-5.4
(linux-libre-deblob-scripts
linux-libre-5.4-version
@ -393,12 +393,12 @@ 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 "0q08q6q2l9k04p8a0vvbnhwfp4yiags8s6wc9dnac0fhd4y3gl1q")))
(hash (base32 "10kxa1ng9w9xd2d5xh48fbhp1kri650p90nihrcpnb845gd9vwpp")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-5.4)))
(define-public linux-libre-4.19-version "4.19.190")
(define-public linux-libre-4.19-version "4.19.193")
(define deblob-scripts-4.19
(linux-libre-deblob-scripts
linux-libre-4.19-version
@ -406,46 +406,46 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "1jiaw0as1ippkrjdpd52657w5mz9qczg3y2hlra7m9k0xawwiqlf")))
(define-public linux-libre-4.19-pristine-source
(let ((version linux-libre-4.19-version)
(hash (base32 "0pf8py0id0r8wzr5050bik1sbhl8gsznnr5bvcmrs4jkhpp2m73g")))
(hash (base32 "17ci49ak5iw01kfkn3fcgncg9hm4j188417bxi3bnsq9il5ymhl4")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-4.19)))
(define-public linux-libre-4.14-version "4.14.232")
(define-public linux-libre-4.14-version "4.14.235")
(define deblob-scripts-4.14
(linux-libre-deblob-scripts
linux-libre-4.14-version
(base32 "091jk9jkn9jf39bxpc7395bhcb7p96nkg3a8047380ki06lnfxh6")
(base32 "07afckszdm4pq008i6ij0pxpw2rpgi5q931nxh6dxcczpicvwbc9")
(base32 "1qij18inijj6c3ma8hv98yjagnzxdxyn134da9fd23ky8q6hbvky")))
(define-public linux-libre-4.14-pristine-source
(let ((version linux-libre-4.14-version)
(hash (base32 "0sa3sz7bznlhijd0iwv37nyrrnw34iq6dq1bqr6cj2wpyrhr7h8x")))
(hash (base32 "03k793hj294zf7jncs1h8zh5dh6xagkfvnydd9jadxvq2z8vvl8f")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-4.14)))
(define-public linux-libre-4.9-version "4.9.268")
(define-public linux-libre-4.9-version "4.9.271")
(define deblob-scripts-4.9
(linux-libre-deblob-scripts
linux-libre-4.9-version
(base32 "1wvldzlv7q2xdbadas87dh593nxr4a8p5n0f8zpm72lja6w18hmg")
(base32 "1w8cb8w1cpcwswc3rxq6vwjafw6yy0igib34rrm93ag5h6inncfv")
(base32 "0fxajshb75siq39lj5h8xvhdj8lcmddkslwlyj65rhlwk6g2r4b2")))
(define-public linux-libre-4.9-pristine-source
(let ((version linux-libre-4.9-version)
(hash (base32 "0aknrlf5q0dsqib8c9klmf5c60dy7hg2zksb020qvyrp077gcrjv")))
(hash (base32 "1480miixphkf0b8w00m753ar7yp1rnl3zyr9wp4inngi2f90553r")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-4.9)))
(define-public linux-libre-4.4-version "4.4.268")
(define-public linux-libre-4.4-version "4.4.271")
(define deblob-scripts-4.4
(linux-libre-deblob-scripts
linux-libre-4.4-version
(base32 "0x2j1i88am54ih2mk7gyl79g25l9zz4r08xhl482l3fvjj2irwbw")
(base32 "1lid4k7g947yi3hcjj0lz0fnssawbph3jsy67vrv57l5imrhv3zs")
(base32 "0hhin1jpfkd6nwrb6xqxjzl3hdxy4pn8a15hy2d3d83yw6pflbsf")))
(define-public linux-libre-4.4-pristine-source
(let ((version linux-libre-4.4-version)
(hash (base32 "1srk08kaxq5jjlqx804cgjffhcsrdkv3idh8ipagl6v2w4kas5v8")))
(hash (base32 "0n5h2lv1p542a45pas3pi0vkhgrk096vwrps79a7v3a6c1q2dxx6")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-4.4)))
@ -481,14 +481,18 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(define-public linux-libre-5.12-source
(source-with-patches linux-libre-5.12-pristine-source
(list %boot-logo-patch
%linux-libre-arm-export-__sync_icache_dcache-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
%linux-libre-arm-export-__sync_icache_dcache-patch
(search-patch
"linux-libre-arm64-generic-pinebook-lcd.patch"))))
;; Pinebook Pro patch to fix LCD display
(search-patch
"linux-libre-arm64-generic-pinebook-lcd.patch"))))
(define-public linux-libre-5.4-source
(source-with-patches linux-libre-5.4-pristine-source
@ -1228,8 +1232,8 @@ RTL8812AU, RTL8821AU, and RTL8814AU chips.")
(license license:gpl2+))))
(define-public rtl8821ce-linux-module
(let ((commit "14b536f0c9ad2d0abbdab8afc7ade684900ca9cf")
(revision "2"))
(let ((commit "897e7c4c15dd5a0a569745dc223d969a26ff5bfc")
(revision "3"))
(package
(name "rtl8821ce-linux-module")
(version (git-version "0.0.0" revision commit))
@ -1242,7 +1246,7 @@ RTL8812AU, RTL8821AU, and RTL8814AU chips.")
(file-name (git-file-name name version))
(sha256
(base32
"0z7r7spsgn22gwv9pcmkdjn9ingi8jj7xkxasph8118h46fw8ip2"))))
"0935dzz0njxh78wfd17yqah1dxn6b3kaszvzclwwrwwhwcrdp80j"))))
(build-system linux-module-build-system)
(arguments
`(#:make-flags
@ -6650,14 +6654,14 @@ re-use code and to avoid re-inventing the wheel.")
(define-public libnftnl
(package
(name "libnftnl")
(version "1.1.9")
(version "1.2.0")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://netfilter.org/libnftnl/"
"libnftnl-" version ".tar.bz2"))
(sha256
(base32 "16jbp4fs5dz2yf4c3bl1sb48x9x9wi1chv39zwmfgya1k9pimcp9"))))
(base32 "1xblq1cbcxhr6qmjpy98i1qdza148idgz99vbhjc7s4vzvfizc4h"))))
(build-system gnu-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)))
@ -6674,7 +6678,7 @@ used by nftables.")
(define-public nftables
(package
(name "nftables")
(version "0.9.8")
(version "0.9.9")
(source
(origin
(method url-fetch)
@ -6683,7 +6687,7 @@ used by nftables.")
(string-append "https://www.nftables.org/projects/nftables"
"/files/nftables-" version ".tar.bz2")))
(sha256
(base32 "1r4g22grhd4s1918wws9vggb8821sv4kkj8197ygxr6sar301z30"))))
(base32 "1d7iwc8xlyfsbgn6qx1sdfcq7jhpl8wpfj39hcd06y8dzp3jvvvn"))))
(build-system gnu-build-system)
(arguments `(#:configure-flags
'("--disable-man-doc"))) ; FIXME: Needs docbook2x.
@ -7360,7 +7364,7 @@ compatible with Python's ConfigParser style of .INI files, including RFC
(define-public xfsprogs
(package
(name "xfsprogs")
(version "5.11.0")
(version "5.12.0")
(source (origin
(method url-fetch)
(uri (string-append
@ -7368,7 +7372,7 @@ compatible with Python's ConfigParser style of .INI files, including RFC
"xfsprogs-" version ".tar.gz"))
(sha256
(base32
"1byj53qdwsii35d0f11nz0dl618mpvwy5aa44pc9zg281g2r27ab"))))
"0b5vvwq4rqw7kph23ycd518d31dx3wq7w61znixxpdljx0ig71qn"))))
(build-system gnu-build-system)
(outputs (list "out" "python"))
(arguments
@ -8099,7 +8103,7 @@ provides user-space tools for creating EROFS file systems.")
(define-public rasdaemon
(package
(name "rasdaemon")
(version "0.6.6")
(version "0.6.7")
(source
(origin
(method git-fetch)
@ -8108,14 +8112,17 @@ provides user-space tools for creating EROFS file systems.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "13g39x19lfjf9izdcb0nlyfjrgpliivhv4nw3ndgyzi59l3yqc0v"))))
(base32 "12ih96jwmr7imp9zyckf9zjqqm5ra1kv5fj6kbw71y6yl31069dz"))))
(native-inputs `(("autoconf" ,autoconf)
("automake" ,automake)
("libtool" ,libtool)))
(inputs `(("sqlite" ,sqlite)))
(arguments
`(#:configure-flags '("--enable-all"
"--localstatedir=/var")
`(#:configure-flags
(list "--enable-all"
;; Don't install unused /etc/sysconfig/rasdaemon environment file.
"--with-sysconfdefdir=."
"--localstatedir=/var")
#:phases
(modify-phases %standard-phases
(add-before 'configure 'munge-autotools

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

@ -1360,29 +1360,31 @@ utilities that make it even easier to manipulate text in Common Lisp. It has
(sbcl-package->ecl-package sbcl-cl-strings))
(define-public sbcl-trivial-features
;; No release since 2014.
(let ((commit "870d03de0ed44067963350936856e17ee725153e"))
(package
(name "sbcl-trivial-features")
(version (git-version "0.8" "1" commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/trivial-features/trivial-features")
(commit commit)))
(file-name (git-file-name "trivial-features" version))
(sha256
(base32 "14pcahr8r2j3idhyy216zyw8jnj1dnrx0qbkkbdqkvwzign1ah4j"))))
(build-system asdf-build-system/sbcl)
(arguments
'(#:asd-files '("trivial-features.asd")
#:tests? #f))
(home-page "https://cliki.net/trivial-features")
(synopsis "Ensures consistency of @code{*FEATURES*} in Common Lisp")
(description "Trivial-features ensures that @code{*FEATURES*} is
(package
(name "sbcl-trivial-features")
(version "1.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/trivial-features/trivial-features")
(commit (string-append "v" version))))
(file-name (git-file-name "trivial-features" version))
(sha256
(base32 "0jsqah1znzqilxnw5vannb083ayk0d7phkackqzwwqkyg5hpn6pq"))))
(build-system asdf-build-system/sbcl)
(arguments
'(#:asd-files '("trivial-features.asd")
;; FIXME: Tests disabled because of a circular dependency between
;; trivial-features and cffi.
#:tests? #f))
;; (native-inputs
;; `(("cffi" ,sbcl-cffi)))
(home-page "https://cliki.net/trivial-features")
(synopsis "Ensures consistency of @code{*FEATURES*} in Common Lisp")
(description "Trivial-features ensures that @code{*FEATURES*} is
consistent across multiple Common Lisp implementations.")
(license license:expat))))
(license license:expat)))
(define-public cl-trivial-features
(sbcl-package->cl-source-package sbcl-trivial-features))
@ -2079,8 +2081,8 @@ than the body of the lambda.")
(define-public sbcl-nibbles
;; No tagged release since 2018.
(let ((commit "8e6b9b42d9f69000f55e5c45ad974d9e376ffdbd")
(revision "1"))
(let ((commit "dad25240928d5cf8f7df69c4398244e03570bb35")
(revision "2"))
(package
(name "sbcl-nibbles")
(version (git-version "0.14" revision commit))
@ -2091,7 +2093,7 @@ than the body of the lambda.")
(url "https://github.com/sharplispers/nibbles/")
(commit commit)))
(sha256
(base32 "15qlsm82h36pjgvfnbzdg60l21qxbaii4d049jc5y0dn56y93amb"))
(base32 "0r6ljlpgjmkf87pmvdwzva8qj15bhznc3ylgcjjqyy4frbx9lygz"))
(file-name (git-file-name "nibbles" version))))
(build-system asdf-build-system/sbcl)
(native-inputs
@ -14468,10 +14470,10 @@ standard library.")
(sbcl-package->cl-source-package sbcl-shlex))
(define-public sbcl-cmd
(let ((commit "bc5a3bee8f22917126e4c3d05b33f766e562dbd8"))
(let ((commit "8ace7fb45f2ecf0eefae28583ee36c941d142179"))
(package
(name "sbcl-cmd")
(version (git-version "0.0.1" "3" commit))
(version (git-version "0.0.1" "4" commit))
(source
(origin
(method git-fetch)
@ -14480,7 +14482,7 @@ standard library.")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "1sjlabrknw1kjb2y89vssjhcqh3slgly8wnr3152zgis8lsj2yc7"))))
(base32 "1da8sa0fsvsdivnx2s9m6jbb7yszrnkqqcxrn1sszp7k6iwnnkgi"))))
(build-system asdf-build-system/sbcl)
(inputs
`(("alexandria" ,sbcl-alexandria)
@ -16845,3 +16847,403 @@ building block for higher level libraries.")
(define-public ecl-json-streams
(sbcl-package->ecl-package sbcl-json-streams))
(define-public sbcl-arnesi
(let ((commit "1e7dc4cb2cad8599113c7492c78f4925e839522e")
(revision "1"))
(package
(name "sbcl-arnesi")
(version (git-version "2.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/AccelerationNet/arnesi")
(commit commit)))
(file-name (git-file-name "arnesi" version))
(sha256
(base32 "0jgj2xgd1gq6rf8ia43lkmbrbxnp8rgs053br9azfa25ygk3ikbh"))))
(build-system asdf-build-system/sbcl)
(arguments
;; FIXME: (Sharlatan-20210523T190315+0100): Tests failed on
;; special-lisp-var-rebount-in/cc
;;
;; ; processing (TEST SPECIAL-LISP-VAR-REBOUND-IN/CC ...)
;; ; wrote .../sbcl/arnesi/t/call-cc-tmp5GEXGEG5.fasl
;; ; compilation finished in 0:00:00.028
;; Unhandled SIMPLE-ERROR in thread
;; #<SB-THREAD:THREAD "main thread" RUNNING {100B768173}>:
;; Sorry, No walker for the special operater DECLARE defined.
;;
;; Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {100B768173}>
;; 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<SIMPLE-ERROR "Sorry,
;; No walker for the special operater ~S defined."
;; {1001FAF9D3}> #<unused argument> :QUIT T)
;;
`(#:tests? #f))
(native-inputs
`(("fiveam" ,sbcl-fiveam)))
(inputs
`(("cl-ppcre" ,sbcl-cl-ppcre)
("collectors" ,sbcl-collectors)
("swank" ,sbcl-slime-swank)))
(home-page "https://github.com/AccelerationNet/arnesi")
(synopsis "Common Lisp utility suite")
(description
"ARNESI is Common Lisp utilities library similar to ALEXANDRIA, ANAPHORA
or GOLDEN-UTILS.")
(license license:bsd-3))))
(define-public ecl-arnesi
(sbcl-package->ecl-package sbcl-arnesi))
(define-public cl-arnesi
(sbcl-package->cl-source-package sbcl-arnesi))
(define-public sbcl-gettext
(let ((commit "a432020cbad99fc22cbe6bb9aa8a83a35000d7aa")
(revision "1"))
(package
(name "sbcl-gettext")
(version (git-version "0.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/rotatef/gettext")
(commit commit)))
(file-name (git-file-name "gettext" version))
(sha256
(base32 "1pzhamgni6k5hi6bbvlb3dm659pcllrrr3vhhn3rpjn238zxg5ar"))))
(build-system asdf-build-system/sbcl)
(native-inputs
`(("stefil" ,sbcl-stefil)))
(inputs
`(("flexi-streams" ,sbcl-flexi-streams)
("split-sequence" ,sbcl-split-sequence)
("yacc" ,sbcl-cl-yacc)))
(home-page "https://github.com/rotatef/gettext")
(synopsis "Common Lisp implementation of Gettext")
(description
"This package provides GNU @code{gettext} completely implemented in
Common Lisp without any C library bindings.")
(license license:lgpl3+))))
(define-public ecl-gettext
(sbcl-package->ecl-package sbcl-gettext))
(define-public cl-gettext
(sbcl-package->cl-source-package sbcl-gettext))
(define-public sbcl-parser-combinators
(let ((commit "9c7569a4f6af5e60c0d3a51d9c15c16d1714c845")
(revision "1"))
(package
(name "sbcl-parser-combinators")
(version (git-version "0.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/Ramarren/cl-parser-combinators")
(commit commit)))
(file-name (git-file-name "parser-combinators" version))
(sha256
(base32 "1k49vha5xm2cklayzpqwg73n4v93xwsbs5in6342pkkiimnidhs8"))))
(build-system asdf-build-system/sbcl)
(arguments
;; FIXME: (Sharlatan-20210523T184237+0100): Tests require `femlisp', which
;; is quite chunky not packaged system yet, enable them when it's packed.
`(#:tests? #f
#:test-asd-file "parser-combinators-tests.asd"))
;; (native-inputs
;; `(("hu.dwim.stefil" ,sbcl-hu.dwim.stefil)
;; ("infix" ,sbcl-femlisp)))
(inputs
`(("alexandria" ,sbcl-alexandria)
("cl-containers" ,sbcl-cl-containers)
("cl-ppcre" ,sbcl-cl-ppcre)
("iterate" ,sbcl-iterate)))
(home-page "https://github.com/Ramarren/cl-parser-combinators")
(synopsis "Parser combinators in Common Lisp")
(description
"PARSER-COMBINATORS is a library implementing monadic parser
combinators in Common Lisp, similar in concept to Haskell Parsec system.")
(license license:bsd-3))))
(define-public ecl-parser-combinators
(sbcl-package->ecl-package sbcl-parser-combinators))
(define-public cl-parser-combinators
(sbcl-package->cl-source-package sbcl-parser-combinators))
(define-public sbcl-cl-locale
(let ((commit "0a36cc0dcf5e0a8c8bf97869cd6199980ca25eec")
(revision "1"))
(package
(name "sbcl-cl-locale")
(version (git-version "0.1.1" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/fukamachi/cl-locale")
(commit commit)))
(file-name (git-file-name "cl-locale" version))
(sha256
(base32 "1rhannhpsw1yg1fpflam483a3w9qb1izgyvmnmiddv3dn4qsmn9p"))))
(build-system asdf-build-system/sbcl)
(arguments
;; FIXME: (Sharlatan-20210523T190658+0100): All tests passed ok but
;; successfully failed in the end:
;;
;; Summary:
;; All 1 file passed.
;; Unhandled ASDF/FIND-COMPONENT:MISSING-DEPENDENCY
;; in thread #<SB-THREAD:THREAD "main thread" RUNNING {100B6C8253}>:
;; Component CL-LOCALE-ASD::CL-LOCALE-TEST not found, required by
;; #<SYSTEM "cl-locale">
;;
`(#:tests? #f))
(native-inputs
`(("prove" ,sbcl-prove)
("flexi-streams" ,sbcl-flexi-streams)))
(inputs
`(("anaphora" ,sbcl-anaphora)
("arnesi" ,sbcl-arnesi)
("cl-annot" ,sbcl-cl-annot)
("cl-syntax" ,sbcl-cl-syntax)))
(home-page "https://github.com/fukamachi/cl-locale")
(synopsis "Internalization library for Common Lisp")
(description
"This package provides a Common Lisp translation library similar to
CL-I18N and CL-L10N.")
(license license:llgpl))))
(define-public ecl-cl-locale
(sbcl-package->ecl-package sbcl-cl-locale))
(define-public cl-locale
(sbcl-package->cl-source-package sbcl-cl-locale))
(define-public sbcl-cl-slice
(let ((commit "c531683f287216aebbb0affbe090611fa1b5d697")
(revision "1"))
(package
(name "sbcl-cl-slice")
(version (git-version "0.1.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/tpapp/cl-slice")
(commit commit)))
(file-name (git-file-name "cl-slice" version))
(sha256
(base32 "1ybznf4y5lda6bn163jcvj281qzhm24dfcwhbgxmm5n6f27gdccl"))))
(build-system asdf-build-system/sbcl)
(native-inputs
`(("clunit" ,sbcl-clunit)))
(inputs
`(("alexandria" ,sbcl-alexandria)
("anaphora" ,sbcl-anaphora)
("let-plus" ,sbcl-let-plus)))
(home-page "https://github.com/tpapp/cl-slice")
(synopsis "Array slices for Common Lisp")
(description
"This package provides a DSL for array slices in Common Lisp.")
(license license:expat))))
(define-public ecl-cl-slice
(sbcl-package->ecl-package sbcl-cl-slice))
(define-public cl-slice
(sbcl-package->cl-source-package sbcl-cl-slice))
(define-public sbcl-djula
(let ((commit "5df7af35a21503d468a878fc6029caa527a7d204")
(revision "1"))
(package
(name "sbcl-djula")
(version (git-version "0.2.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/mmontone/djula")
(commit commit)))
(file-name (git-file-name "djula" version))
(sha256
(base32 "1lk2ypm3sacf60h96a7hv9jwjlxkl4k40yzdalmqdg548vrd1jjm"))))
(build-system asdf-build-system/sbcl)
(native-inputs
`(("fiveam" ,sbcl-fiveam)))
(inputs
`(("access" ,sbcl-access)
("alexandria" ,sbcl-alexandria)
("anaphora" ,sbcl-anaphora)
("babel" ,sbcl-babel)
("cl-locale" ,sbcl-cl-locale)
("cl-ppcre" ,sbcl-cl-ppcre)
("cl-slice" ,sbcl-cl-slice)
("closer-mop" ,sbcl-closer-mop)
("gettext" ,sbcl-gettext)
("iterate" ,sbcl-iterate)
("local-time" ,sbcl-local-time)
("parser-combinators" ,sbcl-parser-combinators)
("split-sequence" ,sbcl-split-sequence)
("trivial-backtrace" ,sbcl-trivial-backtrace)))
(home-page "https://mmontone.github.io/djula/")
(synopsis "Common Lisp port of the Django templating language")
(description
"This package provides a Common Lisp templating system based on Python
Django with a syntax similar to Python Jinja2.")
(license license:expat))))
(define-public ecl-djula
(sbcl-package->ecl-package sbcl-djula))
(define-public cl-djula
(sbcl-package->cl-source-package sbcl-djula))
(define-public sbcl-for
(let ((commit "2e4fcfa0f9c1d2f4559c58cef20ccefa50ba180d")
(revision "1"))
(package
(name "sbcl-for")
(version (git-version "1.1.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/Shinmera/for")
(commit commit)))
(file-name (git-file-name "for" version))
(sha256
(base32 "1akz9ggh33x2cq3h0f1cd0p632v1mbagv3dzsb0r10bwg9lh3nmv"))))
(build-system asdf-build-system/sbcl)
(inputs
`(("documentation-utils" ,sbcl-documentation-utils)
("form-fiddle" ,sbcl-form-fiddle)
("lambda-fiddle" ,sbcl-lambda-fiddle)))
(home-page "https://shinmera.github.io/for/")
(synopsis "Extensible iteration macro library")
(description
"For is a library for an extensible iteration macro. It allows you to write
concise looping constructs similar to @code{loop} and @code{iterate}. Unlike
loop however it is extensible and sensible, and unlike iterate it does not
require code-walking and is easier to extend.")
(license license:zlib))))
(define-public ecl-for
(sbcl-package->ecl-package sbcl-for))
(define-public cl-for
(sbcl-package->cl-source-package sbcl-for))
(define-public sbcl-flare
(let ((commit "4f9f17a4fc5b368c2a1988b9a20288695b8d8c48")
(revision "1"))
(package
(name "sbcl-flare")
(version (git-version "1.1.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/Shinmera/flare")
(commit commit)))
(file-name (git-file-name "flare" version))
(sha256
(base32 "00nm3sjngbflj2gd5q0xs2m136w4kix6krww23nk64pkkyq2fs86"))))
(build-system asdf-build-system/sbcl)
(inputs
`(("3d-vectors" ,sbcl-3d-vectors)
("array-utils" ,sbcl-array-utils)
("documentation-utils" ,sbcl-documentation-utils)
("for" ,sbcl-for)
("lambda-fiddle" ,sbcl-lambda-fiddle)
("trivial-garbage" ,sbcl-trivial-garbage)))
(home-page "https://shinmera.github.io/flare/")
(synopsis "Easy particle systems with fine grained control")
(description
"FLARE is a library designed to allow quick and precise particle effect
creations. It does not concern itself with displaying and only with the
management and movement of particles. As such, it can easily be integrated into
any existing or future application.")
(license license:zlib))))
(define-public ecl-flare
(sbcl-package->ecl-package sbcl-flare))
(define-public cl-flare
(sbcl-package->cl-source-package sbcl-flare))
(define-public sbcl-simple-inferiors
(let ((commit "deac886354e03f8a9502ce96f12a0459ce3be671"))
(package
(name "sbcl-simple-inferiors")
(version (git-version "1.1.0" "1" commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/Shinmera/simple-inferiors")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "08vsvqv3768bwb2y8mwxbw5wyqzzwqr7rd004r6gafdgf9p9mcx3"))))
(build-system asdf-build-system/sbcl)
(inputs
`(("bordeaux-threads" ,sbcl-bordeaux-threads)
("documentation-utils" ,sbcl-documentation-utils)))
(home-page "https://shinmera.github.io/simple-inferiors/")
(synopsis "Common Lisp library to use inferior processes")
(description
"This is a library to allow easy handling of external processes, and
primarily to get their output. It handles proper copying of the standard and
error outputs of the process simultaneously, both in a sequential and parallel
fashion. It also features a lazy directory switching mechanism, to avoid
running into parallelism problems when having to change directory.")
(license license:zlib))))
(define-public ecl-simple-inferiors
(sbcl-package->ecl-package sbcl-simple-inferiors))
(define-public cl-simple-inferiors
(sbcl-package->cl-source-package sbcl-simple-inferiors))
(define-public sbcl-legit
(let ((commit "48d50a20d8dcbd941d119683463b7c8257ba6458"))
(package
(name "sbcl-legit")
(version (git-version "1.0.0" "1" commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/Shinmera/legit")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "181aqpj4zkfk1aavj5jw8rym6gw4ma3gd64z2h5fpryabgmwk236"))))
(build-system asdf-build-system/sbcl)
(inputs
`(("simple-inferiors" ,sbcl-simple-inferiors)
("lambda-fiddle" ,sbcl-lambda-fiddle)
("cl-ppcre" ,sbcl-cl-ppcre)
("documentation-utils" ,sbcl-documentation-utils)))
(home-page "https://shinmera.github.io/legit/")
(synopsis "Interface to the git binary")
(description
"This is an interface to the @code{git} binary to make controlling it
from within Common Lisp much easier. It might not ever reach full coverage of
all features given git's immense size, but features will be added as they are
needed. The low-level command API is fully mapped however.")
(license license:zlib))))
(define-public ecl-legit
(sbcl-package->ecl-package sbcl-legit))
(define-public cl-legit
(sbcl-package->cl-source-package sbcl-legit))

18
gnu/packages/lisp.scm
View File

@ -400,14 +400,14 @@ an interpreter, a compiler, a debugger, and much more.")
(define-public sbcl
(package
(name "sbcl")
(version "2.1.4")
(version "2.1.5")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/sbcl/sbcl/" version "/sbcl-"
version "-source.tar.bz2"))
(sha256
(base32 "04dxxycqhds9r1ycqx3cbavv7p4r13svl5bfakjjmlpw8qihw9lr"))))
(base32 "1id8r2y8hiz34lmvszikdqgrmr778jshim0fibb915assvn0fn4n"))))
(build-system gnu-build-system)
(outputs '("out" "doc"))
(native-inputs
@ -594,7 +594,9 @@ statistical profiler, a code coverage tool, and many other extensions.")
;; it, as is the case for SBCL, but I know of no attempt to do so."
(package
(name "ccl")
(version "1.12")
;; XXX When updating this package, check whether we can simply append
;; VERSION to the ccl-bootstrap URL again, instead of per architecture.
(version "1.12.1")
(source (origin
(method git-fetch)
(uri (git-reference
@ -603,7 +605,7 @@ statistical profiler, a code coverage tool, and many other extensions.")
(file-name (git-file-name "ccl" version))
(sha256
(base32
"0kxr24d2fzsmpsilijpwwfl6g89y7fcrwb80kai5nx9pwgxmjbp3"))))
"1zz291lvsrr7pps8wfl2kdxsnzjngqi4v3mil14pga4r5zanmsi7"))))
(build-system gnu-build-system)
;; CCL consists of a "lisp kernel" and "heap image", both of which are
;; shipped in precompiled form in source tarballs. The former is a C
@ -615,20 +617,20 @@ statistical profiler, a code coverage tool, and many other extensions.")
,(origin
(method url-fetch)
(uri (string-append
"https://github.com/Clozure/ccl/releases/download/v" version "/"
"https://github.com/Clozure/ccl/releases/download/v"
(match (%current-system)
("armhf-linux" "linuxarm")
("armhf-linux" "1.12/linuxarm")
;; XXX: This source only works on x86, but provide it as a
;; catch-all to prevent errors when querying this package
;; on unsupported platforms.
(_ "linuxx86"))
(_ "1.12.1/linuxx86"))
".tar.gz"))
(sha256
(base32
(match (%current-system)
("armhf-linux"
"0x4bjx6cxsjvxyagijhlvmc7jkyxifdvz5q5zvz37028va65243c")
(_ "15l7cfa4a7jkfwdzsfm4q3n22jnb57imxahpql3h77xin57v1gbz"))))))))
(_ "0ll017ajcfsyx8f7zsy4394y8xxvz40iz0gcsmznp0n3mf0xi67c"))))))))
(native-inputs
`(("cl-asdf" ,cl-asdf)
("m4" ,m4)))

10
gnu/packages/llvm.scm
View File

@ -7,7 +7,7 @@
;;; Copyright © 2017 Roel Janssen <roel@gnu.org>
;;; Copyright © 2018, 2019, 2020 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018, 2021 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018 Tim Gesthuizen <tim.gesthuizen@yahoo.de>
;;; Copyright © 2018 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2019 Rutger Helling <rhelling@mykolab.com>
@ -686,23 +686,23 @@ of programming tools as well as libraries with equivalent functionality.")
(define-public llvm-7
(package
(inherit llvm-8)
(version "7.0.1")
(version "7.1.0")
(source (origin
(method url-fetch)
(uri (llvm-uri "llvm" version))
(sha256
(base32
"16s196wqzdw4pmri15hadzqgdi926zln3an2viwyq0kini6zr3d3"))))))
"0r1p5didv4rkgxyvbkyz671xddg6i3dxvbpsi1xxipkla0l9pk0v"))))))
(define-public clang-runtime-7
(clang-runtime-from-llvm
llvm-7
"065ybd8fsc4h2hikbdyricj6pyv4r7r7kpcikhb2y5zf370xybkq"
"1n48p8gjarihkws0i2bay5w9bdwyxyxxbpwyng7ba58jb30dlyq5"
'("clang-runtime-9-libsanitizer-mode-field.patch")))
(define-public clang-7
(clang-from-llvm llvm-7 clang-runtime-7
"067lwggnbg0w1dfrps790r5l6k8n5zwhlsw7zb6zvmfpwpfn4nx4"
"0vc4i87qwxnw9lci4ayws9spakg0z6w5w670snj9f8g5m9rc8zg9"
#:patches '("clang-7.0-libc-search-path.patch")))
(define-public clang-toolchain-7

211
gnu/packages/lxqt.scm
View File

@ -10,6 +10,7 @@
;;; Copyright © 2019, 2020 Reza Alizadeh Majd <r.majd@pantherx.org>
;;; Copyright © 2020 Fakhri Sajadi <f.sajadi@pantherx.org>
;;; Copyright © 2020 André Batista <nandre@riseup.net>
;;; Copyright © 2021 Brendan Tildesley <mail@brendan.scot>
;;;
;;; This file is part of GNU Guix.
;;;
@ -127,7 +128,7 @@ to statistics about the system on which it's run.")
(define-public lxqt-build-tools
(package
(name "lxqt-build-tools")
(version "0.7.0")
(version "0.9.0")
(source
(origin
(method url-fetch)
@ -135,7 +136,7 @@ to statistics about the system on which it's run.")
"/download/" version
"/lxqt-build-tools-" version ".tar.xz"))
(sha256
(base32 "147vdkc25mrlr0fy785yzwhm4gwjxa5xl3n3hljz4c97m531kzl5"))))
(base32 "0kayad5l72h8n90zkf3hy8fxy72n4b1mrkjglpa9dj0cdj6qg0lp"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f ; no tests
@ -150,17 +151,20 @@ to statistics about the system on which it's run.")
("glib" ,glib)))
(inputs
`(("qtbase" ,qtbase)))
(propagated-inputs
;; Dependent projects require Perl via the CMake files.
`(("perl" ,perl)))
(synopsis "LXQt Build tools")
(description
"Lxqt-build-tools is providing several tools needed to build LXQt
itself as well as other components maintained by the LXQt project.")
(home-page "https://lxqt.github.io")
(home-page "https://lxqt-project.org")
(license license:lgpl2.1+)))
(define-public libqtxdg
(package
(name "libqtxdg")
(version "3.5.0")
(version "3.7.1")
(source
(origin
(method url-fetch)
@ -168,7 +172,7 @@ itself as well as other components maintained by the LXQt project.")
"https://github.com/lxqt/libqtxdg/releases/download/"
version "/libqtxdg-" version ".tar.xz"))
(sha256
(base32 "0g2mwipgl8737jhgqymjixvk745svh2rlini3qr92lrg60v9paa1"))))
(base32 "16wav2b948c837cpbvdr6hs1zifwrpdk3yjvbzzp2l1hndvbwz27"))))
(build-system cmake-build-system)
(arguments
'(#:configure-flags
@ -198,7 +202,7 @@ in Qt.")
(define-public liblxqt
(package
(name "liblxqt")
(version "0.15.1")
(version "0.17.0")
(source
(origin
(method url-fetch)
@ -206,7 +210,7 @@ in Qt.")
"https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "0mg62gypjpmpjd3lr7rrvzmkkhli1vf5pri47hg76byz84vng4a9"))))
(base32 "0ay3j6zdgffw3mzaq3wdq96la7fnn2dw52ij6987slv31563nknl"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f ; no tests
@ -235,7 +239,7 @@ in Qt.")
(native-inputs
`(("lxqt-build-tools" ,lxqt-build-tools)
("qttools" ,qttools)))
(home-page "https://lxqt.github.io")
(home-page "https://lxqt-project.org")
(synopsis "Core utility library for all LXQt components")
(description "liblxqt provides the basic libraries shared by the
components of the LXQt desktop environment.")
@ -244,21 +248,21 @@ components of the LXQt desktop environment.")
(define-public libsysstat
(package
(name "libsysstat")
(version "0.4.3")
(version "0.4.5")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "1s5s7skzy3sh4rlnfy7r0cg3r1scvp35ldd28bhnqjya99m7ip37"))))
(base32 "1ljy5ggvqvpm3k6kfy03dn47ygr9lzi8hmqws4dcqfc9sx86b6zi"))))
(build-system cmake-build-system)
(arguments '(#:tests? #f)) ; no tests
(inputs
`(("qtbase" ,qtbase)))
(native-inputs
`(("lxqt-build-tools" ,lxqt-build-tools)))
(home-page "https://lxqt.github.io")
(home-page "https://lxqt-project.org")
(synopsis "Library used to query system info and statistics")
(description "libsysstat is a library to query system information like CPU
and memory usage or network traffic.")
@ -270,14 +274,14 @@ and memory usage or network traffic.")
(define-public lxqt-about
(package
(name "lxqt-about")
(version "0.15.0")
(version "0.17.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "0p24z1vykyp8dkhwaxxi4hw5150yv9a2ncc55vbwx4c6bmmibmsh"))))
(base32 "04riqf2xgbcnq67l5zb0dfnnmc4a2zljx8zfn3jlvxirnd73l0zm"))))
(build-system cmake-build-system)
(inputs
`(("kwindowsystem" ,kwindowsystem)
@ -304,7 +308,7 @@ and memory usage or network traffic.")
(string-append (assoc-ref outputs "out")
"/share/lxqt/translations")))
#t)))))
(home-page "https://lxqt.github.io")
(home-page "https://lxqt-project.org")
(synopsis "Provides information about LXQt and the system")
(description "lxqt-about is a dialogue window providing information about
LXQt and the system it's running on.")
@ -313,14 +317,14 @@ LXQt and the system it's running on.")
(define-public lxqt-admin
(package
(name "lxqt-admin")
(version "0.15.0")
(version "0.17.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "1zal37hyzqimwsymmi3w15n1iq78g53754s8abc9ylkzc236xpfc"))))
(base32 "07fkn3zmpfxjzzsv1hyv50sx0359n10lxjil35qn266nz165wj43"))))
(build-system cmake-build-system)
(inputs
`(("kwindowsystem" ,kwindowsystem)
@ -338,7 +342,8 @@ LXQt and the system it's running on.")
(modify-phases %standard-phases
(add-after 'unpack 'patch-source
(lambda _
(substitute* "lxqt-admin-user/CMakeLists.txt"
(substitute* '("lxqt-admin-user/CMakeLists.txt"
"lxqt-admin-time/CMakeLists.txt")
(("DESTINATION \"\\$\\{POLKITQT-1_POLICY_FILES_INSTALL_DIR\\}")
"DESTINATION \"share/polkit-1/actions"))
#t))
@ -350,7 +355,7 @@ LXQt and the system it's running on.")
(string-append (assoc-ref outputs "out")
"/share/lxqt/translations")))
#t)))))
(home-page "https://lxqt.github.io")
(home-page "https://lxqt-project.org")
(synopsis "LXQt system administration tool")
(description "lxqt-admin is providing two GUI tools to adjust settings of
the operating system LXQt is running on.")
@ -359,19 +364,18 @@ the operating system LXQt is running on.")
(define-public lxqt-config
(package
(name "lxqt-config")
(version "0.15.0")
(version "0.17.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "18fagd6ynmx74qw0pjkkg2n3v6s18n6lcsbj7lvfd4lkbcfnzqpb"))))
(base32 "0nr43d6fyc5zg4b3iwpca2cy58ry8q0rahrk6ixm7wrvmaiwkh93"))))
(build-system cmake-build-system)
(inputs
`(("eudev" ,eudev)
("kwindowsystem" ,kwindowsystem)
("libkscreen" ,libkscreen)
("liblxqt" ,liblxqt)
("libqtxdg" ,libqtxdg)
("libxcursor" ,libxcursor)
@ -387,6 +391,10 @@ the operating system LXQt is running on.")
`(("pkg-config" ,pkg-config)
("lxqt-build-tools" ,lxqt-build-tools)
("qttools" ,qttools)))
;; XXX: This is a workaround so libkscreen can find the backends as we
;; dont have a way specify them. We may want to patch like Nix does.
(propagated-inputs
`(("libkscreen" ,libkscreen)))
(arguments
'(#:tests? #f ; no tests
#:phases
@ -419,7 +427,7 @@ the operating system LXQt is running on.")
(string-append (assoc-ref outputs "out")
"/share/lxqt/translations")))
#t)))))
(home-page "https://lxqt.github.io")
(home-page "https://lxqt-project.org")
(synopsis "Tools to configure LXQt and the underlying operating system")
(description "lxqt-config is providing several tools involved in the
configuration of both LXQt and the underlying operating system.")
@ -428,7 +436,7 @@ configuration of both LXQt and the underlying operating system.")
(define-public lxqt-globalkeys
(package
(name "lxqt-globalkeys")
(version "0.15.0")
(version "0.17.0")
(source
(origin
(method url-fetch)
@ -436,7 +444,7 @@ configuration of both LXQt and the underlying operating system.")
"releases/download/" version "/"
"lxqt-globalkeys-" version ".tar.xz"))
(sha256
(base32 "1wfvpvy32p60j7xibfa30skzxx2187qrsqxm1npabj1y5bva2m6f"))))
(base32 "0pnyqiqhaawrnyvw3ljp850d911abaalnl4rgvl2xyzybvlhki4h"))))
(build-system cmake-build-system)
(inputs
`(("kwindowsystem" ,kwindowsystem)
@ -467,7 +475,7 @@ configuration of both LXQt and the underlying operating system.")
(string-append (assoc-ref outputs "out")
"/share/lxqt/translations")))
#t)))))
(home-page "https://lxqt.github.io")
(home-page "https://lxqt-project.org")
(synopsis "Daemon used to register global keyboard shortcuts")
(description "lxqt-globalkeys is providing tools to set global keyboard
shortcuts in LXQt sessions, that is shortcuts which apply to the LXQt session
@ -477,14 +485,14 @@ as a whole and are not limited to distinct applications.")
(define-public lxqt-notificationd
(package
(name "lxqt-notificationd")
(version "0.15.0")
(version "0.17.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "01fva6q2vb0aframxgm0jslvb3z0dcwmhz0yr239bskvdwpn885w"))))
(base32 "1dyal7brmfnydfgb6lpxnqww8fj5gzixs7s3wf5nn2ihsz1wm4nk"))))
(build-system cmake-build-system)
(inputs
`(("kwindowsystem" ,kwindowsystem)
@ -514,7 +522,7 @@ as a whole and are not limited to distinct applications.")
(string-append (assoc-ref outputs "out")
"/share/lxqt/translations")))
#t)))))
(home-page "https://lxqt.github.io")
(home-page "https://lxqt-project.org")
(synopsis "The LXQt notification daemon")
(description "lxqt-notificationd is LXQt's implementation of a daemon
according to the Desktop Notifications Specification.")
@ -523,14 +531,14 @@ according to the Desktop Notifications Specification.")
(define-public lxqt-openssh-askpass
(package
(name "lxqt-openssh-askpass")
(version "0.15.0")
(version "0.17.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "1h8nhj4ig8419kfdqjsig16ayf2byrzgrk698aiym544n5ayjwak"))))
(base32 "0gdcy8c21sbfrlfz9c3zqw4dvdwf309flkjgqanwwl9i8hr26chr"))))
(build-system cmake-build-system)
(inputs
`(("kwindowsystem" ,kwindowsystem)
@ -553,7 +561,7 @@ according to the Desktop Notifications Specification.")
(string-append (assoc-ref outputs "out")
"/share/lxqt/translations")))
#t)))))
(home-page "https://lxqt.github.io")
(home-page "https://lxqt-project.org")
(synopsis "GUI to query passwords on behalf of SSH agents")
(description "lxqt-openssh-askpass is a GUI to query credentials on behalf
of other programs.")
@ -562,14 +570,14 @@ of other programs.")
(define-public lxqt-panel
(package
(name "lxqt-panel")
(version "0.15.1")
(version "0.17.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "1b40l9p31nz96q38vwgd1zj142xcwqnjwljsird4nnzs2smjn1c6"))))
(base32 "1k2cfs1mhad486kh93vbxma3jpjksp4hzjv1xmp1g5alb5dgnc0q"))))
(build-system cmake-build-system)
(inputs
`(("alsa-lib" ,alsa-lib)
@ -629,7 +637,7 @@ of other programs.")
(("/usr/share/X11/xkb/rules/evdev.xml")
(string-append xkb "/share/X11/xkb/rules/evdev.xml")))
#t))))))
(home-page "https://lxqt.github.io")
(home-page "https://lxqt-project.org")
(synopsis "The LXQt desktop panel")
(description "lxqt-panel represents the taskbar of LXQt.")
(license license:lgpl2.1+)))
@ -637,14 +645,14 @@ of other programs.")
(define-public lxqt-policykit
(package
(name "lxqt-policykit")
(version "0.15.0")
(version "0.17.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "0kzc9mxl47bz6mifmk4xi9sxh7jl31d55j7cq8vijqg3w1yb5rp2"))))
(base32 "119bjhx208g7wxmr8r0ajb3wl6vagq1aks6zz07df4bgjs3nnpli"))))
(build-system cmake-build-system)
(inputs
`(("kwindowsystem" ,kwindowsystem)
@ -677,7 +685,7 @@ of other programs.")
(string-append (assoc-ref outputs "out")
"/share/lxqt/translations")))
#t)))))
(home-page "https://lxqt.github.io")
(home-page "https://lxqt-project.org")
(synopsis "The LXQt PolicyKit agent")
(description "lxqt-policykit is the polkit authentication agent of
LXQt.")
@ -686,20 +694,21 @@ LXQt.")
(define-public lxqt-powermanagement
(package
(name "lxqt-powermanagement")
(version "0.15.0")
(version "0.17.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "1kal7w6ngs9yrg309p4wacmabpynsrysmbpfkpphg158z548wwl0"))))
(base32 "00njx8a8cs0zzpz798qc9j16k7i4y0ydy1xmmcq9yv0wawh4gqck"))))
(build-system cmake-build-system)
(inputs
`(("kidletime" ,kidletime)
("kwindowsystem" ,kwindowsystem)
("liblxqt" ,liblxqt)
("libqtxdg" ,libqtxdg)
("lxqt-globalkeys" ,lxqt-globalkeys)
("qtbase" ,qtbase)
("qtsvg" ,qtsvg)
("qtx11extras" ,qtx11extras)
@ -725,7 +734,7 @@ LXQt.")
(string-append (assoc-ref outputs "out")
"/share/lxqt/translations")))
#t)))))
(home-page "https://lxqt.github.io")
(home-page "https://lxqt-project.org")
(synopsis "Power management module for LXQt")
(description "lxqt-powermanagement is providing tools to monitor power
management events and optionally trigger actions like e. g. shut down a system
@ -735,14 +744,14 @@ when laptop batteries are low on power.")
(define-public lxqt-qtplugin
(package
(name "lxqt-qtplugin")
(version "0.15.1")
(version "0.17.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "17kmpm3nn07xyxz21f86y3hqi6s0jvqyhsc703zy0463sc58vvys"))))
(base32 "14c6abxfg3vda333wrvb5lk45c45hnb66jclbs3vsmrjxdb13vv5"))))
(build-system cmake-build-system)
(inputs
`(("libdbusmenu-qt" ,libdbusmenu-qt)
@ -764,7 +773,7 @@ when laptop batteries are low on power.")
(("DESTINATION \"\\$\\{QT_PLUGINS_DIR\\}")
"DESTINATION \"lib/qt5/plugins"))
#t)))))
(home-page "https://lxqt.github.io")
(home-page "https://lxqt-project.org")
(synopsis "LXQt Qt platform integration plugin")
(description "lxqt-qtplugin is providing a library libqtlxqt to integrate
Qt with LXQt.")
@ -773,14 +782,14 @@ Qt with LXQt.")
(define-public lxqt-runner
(package
(name "lxqt-runner")
(version "0.15.0")
(version "0.17.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "02xxpflhh6a8qpnjhl5mrl07ikzl5x21mf0rj8nmm0v28rpkqjk1"))))
(base32 "0n53jbvkmp4vgi21a720gsvi407m4ybqk8xrpnm5f48yjr88r9i4"))))
(build-system cmake-build-system)
(inputs
`(("kwindowsystem" ,kwindowsystem)
@ -813,7 +822,7 @@ Qt with LXQt.")
(string-append (assoc-ref outputs "out")
"/share/lxqt/translations")))
#t)))))
(home-page "https://lxqt.github.io")
(home-page "https://lxqt-project.org")
(synopsis "Tool used to launch programs quickly by typing their names")
(description "lxqt-runner provides a GUI that comes up on the desktop and
allows for launching applications or shutting down the system.")
@ -822,20 +831,21 @@ allows for launching applications or shutting down the system.")
(define-public lxqt-session
(package
(name "lxqt-session")
(version "0.15.0")
(version "0.17.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "17y6l1l2m2hzxlzvr7wbixnldbr7waky97vj6lx72r81l45wqkz4"))))
(base32 "0iwwfyngpbhs2dwvbw0cci0bf3qbqcpjjw7h5vm46nimvgp8q1fr"))))
(build-system cmake-build-system)
(inputs
`(("eudev" ,eudev)
("kwindowsystem" ,kwindowsystem)
("liblxqt" ,liblxqt)
("libqtxdg" ,libqtxdg)
("procps" ,procps)
("qtbase" ,qtbase)
("qtsvg" ,qtsvg)
("qtx11extras" ,qtx11extras)
@ -884,7 +894,7 @@ allows for launching applications or shutting down the system.")
`("XDG_CONFIG_DIRS" ":" suffix ("/run/current-system/profile/share"
"/run/current-system/profile/share/pcmanfm-qt")))
#t))))))
(home-page "https://lxqt.github.io")
(home-page "https://lxqt-project.org")
(synopsis "Session manager for LXQt")
(description "lxqt-session provides the standard session manager
for the LXQt desktop environment.")
@ -893,14 +903,14 @@ for the LXQt desktop environment.")
(define-public lxqt-sudo
(package
(name "lxqt-sudo")
(version "0.15.0")
(version "0.17.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "1v4gzmld3zqi3y9pdy3hb8lq81jwbgi4ia00lbzccg8cm0m8n55w"))))
(base32 "02s38m0ywp0gjkjczvrc4r1ignshbajlj084xd61d3rcm7vahhic"))))
(build-system cmake-build-system)
(inputs
`(("kwindowsystem" ,kwindowsystem)
@ -925,7 +935,7 @@ for the LXQt desktop environment.")
(string-append (assoc-ref outputs "out")
"/share/lxqt/translations")))
#t)))))
(home-page "https://lxqt.github.io")
(home-page "https://lxqt-project.org")
(synopsis "GUI frontend for sudo/su")
(description "lxqt-sudo is a graphical front-end of commands sudo and su
respectively. As such it enables regular users to launch applications with
@ -935,14 +945,14 @@ permissions of other users including root.")
(define-public lxqt-themes
(package
(name "lxqt-themes")
(version "0.15.0")
(version "0.17.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "1dzv60q1dhi666ajh218smkp3ybh5vl2mxyvlbyc9zwvhgx3f0d1"))))
(base32 "0kmvcz6rxghxxgb0m264zbvycc1zjma8mr4cpwg5kyrzb47rdw9z"))))
(build-system cmake-build-system)
(native-inputs
`(("lxqt-build-tools" ,lxqt-build-tools)))
@ -959,7 +969,7 @@ permissions of other users including root.")
(("DESTINATION \"\\$\\{LXQT_SHARE_DIR\\}")
"DESTINATION \"share/lxqt"))
#t)))))
(home-page "https://lxqt.github.io")
(home-page "https://lxqt-project.org")
(synopsis "Themes, graphics and icons for LXQt")
(description "This package comprises a number of graphic files and themes
for LXQt.")
@ -973,14 +983,14 @@ for LXQt.")
(define-public libfm-qt
(package
(name "libfm-qt")
(version "0.15.1")
(version "0.17.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "034kc8i571m31fksprih6iiykxj85j98fmm6nrkmlwql45kr6rvs"))))
(base32 "1991lm1gnw9s5wwn1yf3vba63bfmrrgsxc70h3nhdl9mh16qygxa"))))
(build-system cmake-build-system)
(arguments
'(#:tests? #f)) ; no tests
@ -997,7 +1007,7 @@ for LXQt.")
`(("pkg-config" ,pkg-config)
("lxqt-build-tools" ,lxqt-build-tools)
("qttools" ,qttools)))
(home-page "https://lxqt.github.io")
(home-page "https://lxqt-project.org")
(synopsis "Qt binding for libfm")
(description "libfm-qt is the Qt port of libfm, a library providing
components to build desktop file managers which belongs to LXDE.")
@ -1006,14 +1016,14 @@ components to build desktop file managers which belongs to LXDE.")
(define-public pcmanfm-qt
(package
(name "pcmanfm-qt")
(version "0.15.1")
(version "0.17.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "1izc60hrc16sv2ig9psr3br9iq8nln6a2ycfspzycgpk8rh0f6jd"))))
(base32 "1axs7dnh2z08ygy28iipfbgfck15k2i2pwlf0v8d8axjrmavzb3l"))))
(build-system cmake-build-system)
(inputs
`(("libfm-qt" ,libfm-qt)
@ -1036,7 +1046,7 @@ components to build desktop file managers which belongs to LXDE.")
(("@LXQT_SHARE_DIR@")
"/run/current-system/profile/share/lxqt" ))
#t)))))
(home-page "https://lxqt.github.io")
(home-page "https://lxqt-project.org")
(synopsis "File manager and desktop icon manager")
(description "PCManFM-Qt is the Qt port of PCManFM, the file manager of
LXDE.")
@ -1048,14 +1058,14 @@ LXDE.")
(define-public compton-conf
(package
(name "compton-conf")
(version "0.15.0")
(version "0.16.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "1ii1bans7wdafm9rmxvsdqp3ad4cj0pa8kf92plbmbm3nycpf1q9"))))
(base32 "0haarzhndjp0wndfhcdy6zl2whpdn3w0qzr3rr137kfqibc58lvx"))))
(build-system cmake-build-system)
(inputs
`(("libconfig" ,libconfig)
@ -1074,7 +1084,7 @@ LXDE.")
(("DESTINATION \"\\$\\{LXQT_ETC_XDG_DIR\\}")
"DESTINATION \"etc/xdg"))
#t)))))
(home-page "https://lxqt.github.io")
(home-page "https://lxqt-project.org")
(synopsis "GUI configuration tool for compton X composite manager")
(description "@code{compton-conf} is a configuration tool for X composite
manager Compton.")
@ -1083,14 +1093,14 @@ manager Compton.")
(define-public lximage-qt
(package
(name "lximage-qt")
(version "0.15.0")
(version "0.17.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "02iyymb8ywlzvv69lga5a86b7kh4v78zw6qzq5kcnjp1rpj2rjrk"))))
(base32 "0g6hs41xfw2ghhwpj0rqr2ciri0x9v984689yrnmnvah88zlya1f"))))
(build-system cmake-build-system)
(inputs
`(("libexif" ,libexif)
@ -1104,7 +1114,7 @@ manager Compton.")
("qttools" ,qttools)))
(arguments
'(#:tests? #f)) ; no tests
(home-page "https://lxqt.github.io")
(home-page "https://lxqt-project.org")
(synopsis "The image viewer and screenshot tool for lxqt")
(description "LXImage-Qt is the Qt port of LXImage, a simple and fast
image viewer.")
@ -1113,14 +1123,14 @@ image viewer.")
(define-public obconf-qt
(package
(name "obconf-qt")
(version "0.15.0")
(version "0.16.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "1vcv2y54hgxcf76cr775632kajmvz3v4x1q3r6p1lzs9s7lmrh6q"))))
(base32 "0hlbivdbiw7wjhwrp8qfmq50ks19v0q21m3pyjj0k2na7nv9d3a5"))))
(build-system cmake-build-system)
(inputs
`(("imlib2" ,imlib2)
@ -1139,7 +1149,7 @@ image viewer.")
("qttools" ,qttools)))
(arguments
'(#:tests? #f)) ; no tests
(home-page "https://lxqt.github.io")
(home-page "https://lxqt-project.org")
(synopsis "Openbox configuration tool")
(description "ObConf-Qt is a Qt port of ObConf, a configuration editor for
window manager OpenBox.")
@ -1148,14 +1158,14 @@ window manager OpenBox.")
(define-public pavucontrol-qt
(package
(name "pavucontrol-qt")
(version "0.15.0")
(version "0.17.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "15wknwmb4640r5fm4wiq6xa70qa2djay2806wyvajh11xjmqy566"))))
(base32 "0w51dpjayav78lmhw966fz3gvypkmv64xgsd7x5rqs8am39lq9vc"))))
(build-system cmake-build-system)
(inputs
`(("glib" ,glib)
@ -1169,7 +1179,7 @@ window manager OpenBox.")
("qttools" ,qttools)))
(arguments
'(#:tests? #f)) ; no tests
(home-page "https://lxqt.github.io")
(home-page "https://lxqt-project.org")
(synopsis "Pulseaudio mixer in Qt")
(description "@code{pavucontrol-qt} is the Qt port of volume control
@code{pavucontrol} of sound server @code{PulseAudio}.")
@ -1178,14 +1188,14 @@ window manager OpenBox.")
(define-public qps
(package
(name "qps")
(version "2.1.0")
(version "2.3.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "0yym1bpglz8vha28x7k21fxx1vlsq19m3fyhk2cq3pwq3nqijwp7"))))
(base32 "0zg0czrh3dlbnl5smxamhkdbj1g0szm47w1c0fwpaplgc1vv5lfq"))))
(build-system cmake-build-system)
(inputs
`(("kwindowsystem" ,kwindowsystem)
@ -1199,7 +1209,7 @@ window manager OpenBox.")
("qttools" ,qttools)))
(arguments
'(#:tests? #f)) ; no tests
(home-page "https://lxqt.github.io")
(home-page "https://lxqt-project.org")
(synopsis "Qt-based visual process status monitor")
(description "@code{qps} is a monitor that displays the status of the
processes currently in existence, much like code{top} or code{ps}.")
@ -1208,14 +1218,14 @@ processes currently in existence, much like code{top} or code{ps}.")
(define-public qtermwidget
(package
(name "qtermwidget")
(version "0.15.0")
(version "0.17.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "1vn3bbc99py0ak7z9s6p71n9cacpckz57a1p97iwb0p23g4zgjkf"))))
(base32 "10lv475qj0x3c3vl4yhjyr6y10qj5pq8n5pal5k24f6pf7xv412f"))))
(build-system cmake-build-system)
(inputs
`(("qtbase" ,qtbase)
@ -1225,7 +1235,7 @@ processes currently in existence, much like code{top} or code{ps}.")
("qttools" ,qttools)))
(arguments
'(#:tests? #f)) ; no tests
(home-page "https://lxqt.github.io")
(home-page "https://lxqt-project.org")
(synopsis "The terminal widget for QTerminal")
(description "QTermWidget is a terminal emulator widget for Qt 5.")
(license license:gpl2+)))
@ -1233,14 +1243,14 @@ processes currently in existence, much like code{top} or code{ps}.")
(define-public qterminal
(package
(name "qterminal")
(version "0.15.0")
(version "0.17.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "0r7xmwjpak47ayj7cj37bwrdlv1mx5nhqpccb5pbn2fh8slp8zsm"))))
(base32 "0rfv7a6ncm8fs8aicinh9l29w4636gxzcqz735jmch2r41v9i1d9"))))
(build-system cmake-build-system)
(inputs
`(("qtbase" ,qtbase)
@ -1251,7 +1261,7 @@ processes currently in existence, much like code{top} or code{ps}.")
("qttools" ,qttools)))
(arguments
'(#:tests? #f)) ; no tests
(home-page "https://lxqt.github.io")
(home-page "https://lxqt-project.org")
(synopsis "Lightweight Qt-based terminal emulator")
(description "QTerminal is a lightweight Qt terminal emulator based on
QTermWidget.")
@ -1260,14 +1270,14 @@ QTermWidget.")
(define-public screengrab
(package
(name "screengrab")
(version "2.0.1")
(version "2.2.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/screengrab/releases/download/"
version "/screengrab-" version ".tar.xz"))
(sha256
(base32 "14znjw3d3gw02fsmhrjcj86l173m2ypl1x8hhba9ld23icr1gqwf"))))
(base32 "0cilzw7rz5m2klzpax7rrs5rr6whfda2svwzsn2jvmrirmh5by7r"))))
(build-system cmake-build-system)
(inputs
`(("kwindowsystem" ,kwindowsystem)
@ -1277,10 +1287,11 @@ QTermWidget.")
("qtx11extras" ,qtx11extras)))
(native-inputs
`(("pkg-config" ,pkg-config)
("perl" ,perl)
("qttools" ,qttools)))
(arguments
'(#:tests? #f)) ; no tests
(home-page "https://lxqt.github.io")
(home-page "https://lxqt-project.org")
(synopsis "Crossplatform tool for fast making screenshots")
(description "ScreenGrab is a program for fast creating screenshots, and
easily publishing them on internet image hosting services.")
@ -1290,14 +1301,14 @@ easily publishing them on internet image hosting services.")
(define-public lxqt-archiver
(package
(name "lxqt-archiver")
(version "0.2.0")
(version "0.4.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "1i725zaah0wv18j5fchg6isbh4b601filx549cq2hkzf2sylh9ff"))))
(base32 "0fzgq7cyr7hx8qmq84xfgbsdx04mc1r7vzq5mz79j7bp2ysh134z"))))
(build-system cmake-build-system)
(inputs
`(("glib" ,glib)
@ -1311,7 +1322,7 @@ easily publishing them on internet image hosting services.")
("qttools" ,qttools)))
(arguments
'(#:tests? #f))
(home-page "https://lxqt.github.io")
(home-page "https://lxqt-project.org")
(synopsis "Simple & lightweight desktop-agnostic Qt file archiver")
(description
"This package provides a Qt graphical interface to archiving programs
@ -1321,7 +1332,7 @@ like @command{tar} and @command{zip}.")
(define-public lxqt-connman-applet
;; since the main developers didn't release any version yet, their
;; latest commit on `master` branch at the moment used for this version.
(let ((commit "8a6cc14371a2f18f963e6a2996446082bb60f17d")
(let ((commit "db1618d58fd3439142c4e44b24cba0dbb68b7141")
(revision "0"))
(package
(name "lxqt-connman-applet")
@ -1333,7 +1344,8 @@ like @command{tar} and @command{zip}.")
(url (string-append "https://github.com/lxqt/" name))
(commit commit)))
(file-name (git-file-name name version))
(sha256 (base32 "0br4bxfrl8k7lq84aq4grznlk8xzzjgkmd19bf9mwjr0a87gg72v"))))
(sha256
(base32 "087641idpg7n8yhh5biis4wv52ayw3rddirwqb34bf5fwj664pw9"))))
(build-system cmake-build-system)
(inputs
`(("kwindowsystem" ,kwindowsystem)
@ -1357,13 +1369,13 @@ like @command{tar} and @command{zip}.")
"/share/lxqt/translations"))
(("\\$\\{LXQT_ETC_XDG_DIR\\}") "etc/xdg"))
#t))
(add-after 'unpack 'remove-definitions
(lambda _
(substitute* "CMakeLists.txt"
(("include\\(LXQtCompilerSettings NO_POLICY_SCOPE\\)")
"include(LXQtCompilerSettings NO_POLICY_SCOPE)
(add-after 'unpack 'remove-definitions
(lambda _
(substitute* "CMakeLists.txt"
(("include\\(LXQtCompilerSettings NO_POLICY_SCOPE\\)")
"include(LXQtCompilerSettings NO_POLICY_SCOPE)
remove_definitions(-DQT_NO_CAST_TO_ASCII -DQT_NO_CAST_FROM_ASCII)"))
#t)))))
#t)))))
(home-page "https://github.com/lxqt/lxqt-connman-applet")
(synopsis "System-tray applet for connman")
(description "This package provides a Qt-based system-tray applet for
@ -1376,7 +1388,7 @@ desktop.")
(define-public lxqt
(package
(name "lxqt")
(version (package-version lxqt-session))
(version "17.0")
(source #f)
(build-system trivial-build-system)
(arguments '(#:builder (begin (mkdir %output) #t)))
@ -1407,8 +1419,7 @@ desktop.")
("lxqt-themes" ,lxqt-themes)
("pcmanfm-qt" ,pcmanfm-qt)
;; Extra
("compton" ,compton)
("compton-conf" ,compton-conf)
("picom" ,picom)
("font-dejavu" ,font-dejavu)
("lximage-qt" ,lximage-qt)
("obconf-qt" ,obconf-qt)
@ -1419,5 +1430,5 @@ desktop.")
("qterminal" ,qterminal)))
(synopsis "The Lightweight Qt Desktop Environment")
(description "LXQt is a lightweight Qt desktop environment.")
(home-page "https://lxqt.github.io")
(home-page "https://lxqt-project.org")
(license license:gpl2+)))

19
gnu/packages/mail.scm
View File

@ -208,10 +208,10 @@
`(("ncurses" ,ncurses)
("readline" ,readline)))
(home-page "https://abook.sourceforge.io/")
(synopsis "Text-based addressbook")
(synopsis "Text-based address book")
(description
"Abook is a text-based addressbook program designed to use with Mutt mail
client.")
"Abook is a text-based address book program designed to use with the Mutt
mail client.")
(license license:gpl2)))
(define-public anubis
@ -1332,14 +1332,14 @@ invoking @command{notifymuch} from the post-new hook.")
(define-public notmuch
(package
(name "notmuch")
(version "0.31.4")
(version "0.32.1")
(source (origin
(method url-fetch)
(uri (string-append "https://notmuchmail.org/releases/notmuch-"
version ".tar.xz"))
(sha256
(base32
"0magnyjjhhv11nwcm2596hdxszrj61y69i0hmwqdc3v6cxjvcqc6"))))
"0586d13ssygapjdri4cl25wzywivwsbxpjm6xlgxj6f9ii7clix7"))))
(build-system gnu-build-system)
(arguments
`(#:modules ((guix build gnu-build-system)
@ -1355,8 +1355,7 @@ invoking @command{notifymuch} from the post-new hook.")
(add-after 'unpack 'patch-notmuch-lib.el
(lambda _
(substitute* "emacs/notmuch-lib.el"
(("/bin/sh") (which "sh")))
#t))
(("/bin/sh") (which "sh")))))
(replace 'configure
(lambda* (#:key outputs #:allow-other-keys)
(setenv "CC" "gcc")
@ -1373,15 +1372,13 @@ invoking @command{notifymuch} from the post-new hook.")
;; and try removing this for notmuch versions > 0.31.
(lambda _
(substitute* "test/T356-protected-headers.sh"
(("\\$NOTMUCH_GMIME_X509_CERT_VALIDITY") "0"))
#t))
(("\\$NOTMUCH_GMIME_X509_CERT_VALIDITY") "0"))))
(add-before 'check 'prepare-test-environment
(lambda _
(setenv "TEST_CC" "gcc")
;; Patch various inline shell invocations.
(substitute* (find-files "test" "\\.sh$")
(("/bin/sh") (which "sh")))
#t))
(("/bin/sh") (which "sh")))))
(add-after 'install 'make-autoloads
(assoc-ref emacs:%standard-phases 'make-autoloads)))))
(native-inputs

6
gnu/packages/markup.scm
View File

@ -3,7 +3,7 @@
;;; Copyright © 2015 David Thompson <davet@gnu.org>
;;; Copyright © 2016, 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017 Nikita <nikita@n0.is>
;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017–2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2020 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2020 EuAndreh <eu@euandre.org>
;;; Copyright © 2021 Noisytoot <noisytoot@disroot.org>
@ -284,7 +284,7 @@ and smu is that smu doesn't support reference style links.")
(define-public md4c
(package
(name "md4c")
(version "0.4.7")
(version "0.4.8")
(source
(origin
(method git-fetch)
@ -293,7 +293,7 @@ and smu is that smu doesn't support reference style links.")
(commit (string-append "release-" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0m3202zzjvw4k7jw66z1qi3cbisxzvplq5alkygpifvhzm81gwwx"))))
(base32 "12pdh4rfjc3b0cblj5nz3jksr2376lx8ay0vw5dwa1s97q09pczq"))))
(build-system cmake-build-system)
(arguments '(#:tests? #f))
(home-page "https://github.com/mity/md4c/")

179
gnu/packages/maths.scm
View File

@ -28,7 +28,7 @@
;;; Copyright © 2018 Adam Massmann <massmannak@gmail.com>
;;; Copyright © 2018, 2020, 2021 Marius Bakke <marius@gnu.org>
;;; Copyright © 2018 Eric Brown <brown@fastmail.com>
;;; Copyright © 2018 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2018, 2021 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2018 Amin Bandali <bandali@gnu.org>
;;; Copyright © 2019, 2021 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2019 Steve Sprang <scs@stevesprang.com>
@ -75,6 +75,7 @@
#:use-module (guix build-system cmake)
#:use-module (guix build-system glib-or-gtk)
#:use-module (guix build-system gnu)
#:use-module (guix build-system ocaml)
#:use-module (guix build-system python)
#:use-module (guix build-system ruby)
#:use-module (gnu packages algebra)
@ -86,11 +87,13 @@
#:use-module (gnu packages check)
#:use-module (gnu packages cmake)
#:use-module (gnu packages compression)
#:use-module (gnu packages coq)
#:use-module (gnu packages curl)
#:use-module (gnu packages cyrus-sasl)
#:use-module (gnu packages dbm)
#:use-module (gnu packages documentation)
#:use-module (gnu packages elf)
#:use-module (gnu packages emacs)
#:use-module (gnu packages file)
#:use-module (gnu packages flex)
#:use-module (gnu packages fltk)
@ -120,6 +123,7 @@
#:use-module (gnu packages mpi)
#:use-module (gnu packages multiprecision)
#:use-module (gnu packages netpbm)
#:use-module (gnu packages ocaml)
#:use-module (gnu packages onc-rpc)
#:use-module (gnu packages pcre)
#:use-module (gnu packages popt)
@ -248,6 +252,9 @@ programming languages.")
(base32
"0zlbhg0lb6j60188c2xhcrvviskr079552icjldqhy1jhgmxghmm"))))
(build-system cmake-build-system)
(arguments
`(#:configure-flags '("-DLINK_APPS_SHARED=ON"
"-DCMAKE_POSITION_INDEPENDENT_CODE=ON")))
(synopsis "Calculate convex hulls and related structures")
(description
"@code{Qhull} computes the convex hull, Delaunay triangulation, Voronoi
@ -1234,7 +1241,8 @@ extremely large and complex data collections.")
"https://www.hdfgroup.org/ftp/HDF5/current/src/unpacked/COPYING"))))
(define-public hdf5-1.10
(package/inherit hdf5-1.8
(package
(inherit hdf5-1.8)
(version "1.10.7")
(source
(origin
@ -1253,7 +1261,8 @@ extremely large and complex data collections.")
(patches (search-patches "hdf5-config-date.patch"))))))
(define-public hdf5-1.12
(package/inherit hdf5-1.8
(package
(inherit hdf5-1.8)
(version "1.12.0")
(source
(origin
@ -1751,21 +1760,16 @@ online as well as original implementations of various other algorithms.")
(define-public ipopt
(package
(name "ipopt")
(version "3.12.12")
(version "3.13.4")
(source (origin
(method url-fetch)
(uri (string-append
"https://www.coin-or.org/download/source/Ipopt/Ipopt-"
version".tgz"))
(method git-fetch)
(uri (git-reference
(url "https://github.com/coin-or/Ipopt")
(commit (string-append "releases/" version))))
(file-name (git-file-name name version))
(sha256
(base32
"07yn9rzdswjk8n246qq6ci9ssf2bcplkifcpsfz9j6cdxw9vgbkv"))
(modules '((guix build utils)))
(snippet
;; Make sure we don't use the bundled software.
'(begin
(delete-file-recursively "ThirdParty")
#t))))
"08gznhwhqv1x4baksz350ih8q16r5rd0k8vals6078m3h94khr4b"))))
(build-system gnu-build-system)
(arguments
'(#:phases (modify-phases %standard-phases
@ -1785,7 +1789,8 @@ online as well as original implementations of various other algorithms.")
after "\n")))
#t))))))
(native-inputs
`(("gfortran" ,gfortran)))
`(("gfortran" ,gfortran)
("pkg-config" ,pkg-config)))
(inputs
;; TODO: Maybe add dependency on COIN-MUMPS, ASL, and HSL.
`(("lapack" ,lapack))) ;for both libblas and liblapack
@ -1795,6 +1800,35 @@ online as well as original implementations of various other algorithms.")
"The Interior Point Optimizer (IPOPT) is a software package for
large-scale nonlinear optimization. It provides C++, C, and Fortran
interfaces.")
(license license:epl2.0)))
(define-public cbc
(package
(name "cbc")
(version "2.10.5")
(source (origin
(method url-fetch)
(uri (string-append "https://www.coin-or.org/download/source/"
"Cbc/Cbc-" version ".tgz"))
(sha256
(base32
"0wk9vr6zc62gw71v7gnra5wxqlcljcgbhm5lasx236v791b986ns"))
(modules '((guix build utils)))
(snippet
;; Make sure we don't use the bundled software.
'(delete-file-recursively "ThirdParty"))))
(build-system gnu-build-system)
(native-inputs
`(("gfortran" ,gfortran)
("pkg-config" ,pkg-config)))
(inputs
`(("openblas" ,openblas)))
(home-page "https://www.coin-or.org")
(synopsis "Branch-and-cut solver")
(description
"Cbc (Coin-or branch and cut) is a mixed integer linear programming
solver written in C++. It can be used as a library or as a standalone
executable.")
(license license:epl1.0)))
(define-public clp
@ -4617,7 +4651,7 @@ set.")
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/LLNL/hypre")
(url "https://github.com/hypre-space/hypre")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
@ -4722,7 +4756,8 @@ set.")
(copy-recursively (string-append base "-html")
(string-append docdir "/" base)))
'("usr-manual" "ref-manual")))))))))
(home-page "http://www.llnl.gov/casc/hypre/")
(home-page "https://computing.llnl.gov/projects\
/hypre-scalable-linear-solvers-multigrid-methods")
(synopsis "Library of solvers and preconditioners for linear equations")
(description
"HYPRE is a software library of high performance preconditioners and
@ -6284,3 +6319,111 @@ interval arithmetic, plotting.")
"Numdiff compares files line by line and field by field, ignoring small
numeric differences and differences in numeric formats.")
(license license:gpl3+)))
(define-public why3
(package
(name "why3")
(version "1.3.1")
(source (origin
(method url-fetch)
(uri (string-append "https://gforge.inria.fr/frs/download.php/file"
"/38291/why3-" version ".tar.gz"))
(sha256
(base32
"16zcrc60zz2j3gd3ww93z2z9x2jkxb3kr57y8i5rcgmacy7mw3bv"))))
(build-system ocaml-build-system)
(native-inputs
`(("coq" ,coq)
("ocaml" ,ocaml)
("which" ,which)))
(propagated-inputs
`(("camlzip" ,camlzip)
("ocaml-graph" ,ocaml-graph)
("ocaml-menhir" ,ocaml-menhir)
("ocaml-num" ,ocaml-num)
("ocaml-zarith" ,ocaml-zarith)))
(inputs
`(("coq-flocq" ,coq-flocq)
("emacs-minimal" ,emacs-minimal)
("zlib" ,zlib)))
(arguments
`(#:phases
(modify-phases %standard-phases
(add-before 'configure 'fix-configure
(lambda _
(setenv "CONFIG_SHELL" (which "sh"))
(substitute* "configure"
;; find ocaml-num in the correct directory
(("\\$DIR/nums.cma") "$DIR/../nums.cma")
(("\\$DIR/num.cmi") "$DIR/../num.cmi"))
#t))
(add-after 'configure 'fix-makefile
(lambda _
(substitute* "Makefile"
;; find ocaml-num in the correct directory
(("site-lib/num") "site-lib"))
#t))
(add-after 'install 'install-lib
(lambda _
(invoke "make" "byte")
(invoke "make" "install-lib")
#t)))))
(home-page "http://why3.lri.fr")
(synopsis "Deductive program verification")
(description "Why3 provides a language for specification and programming,
called WhyML, and relies on external theorem provers, both automated and
interactive, to discharge verification conditions. Why3 comes with a standard
library of logical theories (integer and real arithmetic, Boolean operations,
sets and maps, etc.) and basic programming data structures (arrays, queues,
hash tables, etc.). A user can write WhyML programs directly and get
correct-by-construction OCaml programs through an automated extraction
mechanism. WhyML is also used as an intermediate language for the verification
of C, Java, or Ada programs.")
(license license:lgpl2.1)))
(define-public frama-c
(package
(name "frama-c")
(version "22.0")
(source (origin
(method url-fetch)
(uri (string-append "http://frama-c.com/download/frama-c-"
version "-Titanium.tar.gz"))
(sha256
(base32
"1mq1fijka95ydrla486yr4w6wdl9l7vmp512s1q00b0p6lmfwmkh"))))
(build-system ocaml-build-system)
(arguments
`(#:tests? #f; no test target in Makefile
#:phases
(modify-phases %standard-phases
(add-before 'configure 'export-shell
(lambda* (#:key inputs #:allow-other-keys)
(setenv "CONFIG_SHELL" (string-append (assoc-ref inputs "bash")
"/bin/sh"))
#t)))))
(inputs
`(("gmp" ,gmp)))
(propagated-inputs
`(("ocaml-biniou" ,ocaml-biniou)
("ocaml-easy-format" ,ocaml-easy-format)
("ocaml-graph" ,ocaml-graph)
("ocaml-yojson" ,ocaml-yojson)
("ocaml-zarith" ,ocaml-zarith)
("why3" ,why3)))
(native-search-paths
(list (search-path-specification
(variable "FRAMAC_SHARE")
(files '("share/frama-c"))
(separator #f))
(search-path-specification
(variable "FRAMAC_LIB")
(files '("lib/frama-c"))
(separator #f))))
(home-page "http://frama-c.com")
(synopsis "C source code analysis platform")
(description "Frama-C is an extensible and collaborative platform dedicated
to source-code analysis of C software. The Frama-C analyzers assist you in
various source-code-related activities, from the navigation through unfamiliar
projects up to the certification of critical software.")
(license license:lgpl2.1+)))

32
gnu/packages/mc.scm
View File

@ -20,19 +20,20 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages mc)
#:use-module (guix packages)
#:use-module (guix licenses)
#:use-module (guix download)
#:use-module (guix build-system gnu)
#:use-module (gnu packages)
#:use-module (gnu packages aspell)
#:use-module (gnu packages ncurses)
#:use-module (gnu packages glib)
#:use-module (gnu packages ssh)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages check)
#:use-module (gnu packages compression)
#:use-module (gnu packages glib)
#:use-module (gnu packages linux)
#:use-module (gnu packages ncurses)
#:use-module (gnu packages perl)
#:use-module (gnu packages compression))
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages ssh)
#:use-module (gnu packages)
#:use-module (guix build-system gnu)
#:use-module (guix download)
#:use-module (guix licenses)
#:use-module (guix packages))
(define-public mc
(package
@ -46,13 +47,14 @@
(sha256
(base32 "09vc2vf6k12a8k5gdss6hcskwfcbyalrkhn65nidkwlm0p2svpn6"))))
(build-system gnu-build-system)
(native-inputs `(("pkg-config" ,pkg-config)
("perl" ,perl)))
(native-inputs `(("perl" ,perl)
("pkg-config" ,pkg-config)))
(inputs `(("aspell" ,aspell)
("ncurses" ,ncurses)
("libssh2" ,libssh2)
("glib" ,glib)
("check" ,check)
("glib" ,glib)
("gpm" ,gpm)
("libssh2" ,libssh2)
("ncurses" ,ncurses)
("unzip" ,unzip)))
(arguments
`(#:configure-flags

5
gnu/packages/mes.scm
View File

@ -2,6 +2,7 @@
;;; Copyright © 2017, 2018, 2019, 2020, 2021 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2017, 2018 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2020, 2021 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz>
;;;
;;; This file is part of GNU Guix.
@ -99,14 +100,14 @@ extensive examples, including parsers for the Javascript and C99 languages.")
(define-public nyacc
(package
(inherit nyacc-0.99)
(version "1.03.6")
(version "1.04.0")
(source (origin
(method url-fetch)
(uri (string-append "mirror://savannah/nyacc/nyacc-"
version ".tar.gz"))
(sha256
(base32
"1s7kli288l4pizjaarx8m6jg7g0mgfy8rpbs9lpzg8la7wr5rvp4"))
"0m3mcdaslvvr2iav8ga146hzsja2hdj4656pszljb4q2q7h25ip5"))
(modules '((guix build utils)))
(snippet
'(begin

41
gnu/packages/messaging.scm
View File

@ -28,6 +28,7 @@
;;; Copyright © 2020 Raghav Gururajan <raghavgururajan@disroot.org>
;;; Copyright © 2020, 2021 Robert Karszniewicz <avoidr@posteo.de>
;;; Copyright © 2020 Giacomo Leidi <goodoldpaul@autistici.org>
;;; Copyright © 2021 Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -123,6 +124,7 @@
#:use-module (gnu packages xml)
#:use-module (gnu packages xorg)
#:use-module (guix build-system cmake)
#:use-module (guix build-system go)
#:use-module (guix build-system glib-or-gtk)
#:use-module (guix build-system gnu)
#:use-module (guix build-system meson)
@ -478,7 +480,7 @@ your private keys, no previous conversation is compromised.")
(define-public libsignal-protocol-c
(package
(name "libsignal-protocol-c")
(version "2.3.2")
(version "2.3.3")
(source (origin
(method git-fetch)
(uri (git-reference
@ -487,7 +489,7 @@ your private keys, no previous conversation is compromised.")
(file-name (git-file-name name version))
(sha256
(base32
"1qj2w4csy6j9jg1jy66n1qwysx7hgjywk4n35hlqcnh1kpa14k3p"))))
"0z5p03vk15i6h870azfjgyfgxhv31q2vq6rfhnybrnkxq2wqzwhk"))))
(arguments
`(;; Required for proper linking and for tests to run.
#:configure-flags '("-DBUILD_SHARED_LIBS=on" "-DBUILD_TESTING=1")))
@ -1144,7 +1146,7 @@ and OpenPGP) and available in 29 languages.")
(define-public gajim-omemo
(package
(name "gajim-omemo")
(version "2.7.13")
(version "2.7.14")
(source
(origin
(method url-fetch/zipbomb)
@ -1153,7 +1155,7 @@ and OpenPGP) and available in 29 languages.")
"https://ftp.gajim.org/plugins_releases/omemo_"
version ".zip"))
(sha256
(base32 "1msr71rvik05wjpa2inpkadddad2rxaqbqcww5qrdrcz75pm8brn"))))
(base32 "0jmyjqfc4vimvq5vdqsvz25dsij6bh92alml8qnn59p5farnf86v"))))
(build-system trivial-build-system)
(arguments
`(#:modules ((guix build utils))
@ -2404,13 +2406,13 @@ QMatrixClient project.")
(define-public hangups
(package
(name "hangups")
(version "0.4.13")
(version "0.4.14")
(source
(origin
(method url-fetch)
(uri (pypi-uri "hangups" version))
(sha256
(base32 "015g635vnrxk5lf9n80rdcmh6chv8kmla1k2j7m1iijijs519ngn"))))
(base32 "15qbbafcrdkx73xz9y30qa3d8nj6mgrp2m41749i5nn1qywmikk8"))))
(build-system python-build-system)
(arguments
`(#:phases
@ -2967,4 +2969,31 @@ designed for experienced users.")
(description "This package contains Zulip's official terminal client.")
(license license:asl2.0)))
(define-public matterbridge
(package
(name "matterbridge")
(version "1.22.2")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/42wim/matterbridge")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"07rgdc4v043fhzsalmlhickqizk6xjlpjkzn6l5v9ryp5gmv580z"))))
(build-system go-build-system)
(arguments
`(#:import-path "github.com/42wim/matterbridge"
#:unpack-path "github.com/42wim/matterbridge"))
(synopsis "Bridge together various messaging networks and protocols")
(description "Relays messages between different channels from various
messaging networks and protocols. So far it supports mattermost, IRC, gitter,
xmpp, slack, discord, telegram, rocketchat, twitch, ssh-chat, zulip, whatsapp,
keybase, matrix, microsoft teams, nextcloud, mumble, vk and more with REST
API. Mattermost is not required.")
(home-page "https://github.com/42wim/matterbridge")
(license license:asl2.0)))
;;; messaging.scm ends here

30
gnu/packages/monitoring.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016, 2021, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2018 Sou Bunnbu <iyzsong@member.fsf.org>
;;; Copyright © 2017, 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2018, 2020, 2021 Tobias Geerinckx-Rice <me@tobias.gr>
@ -8,6 +8,7 @@
;;; Copyright © 2020 Alex ter Weele <alex.ter.weele@gmail.com>
;;; Copyright © 2020 Lars-Dominik Braun <ldb@leibniz-psychology.org>
;;; Copyright © 2021 Marius Bakke <marius@gnu.org>
;;; Copyright © 2021 Stefan Reichör <stefan@xsteve.at>
;;;
;;; This file is part of GNU Guix.
;;;
@ -622,3 +623,30 @@ future system load (i.e., capacity planning).")
;; license:gpl2 for other plugins
(license (list license:expat license:gpl2))))
(define-public hostscope
(package
(name "hostscope")
(version "8.0")
(source (origin
(method url-fetch)
(uri (string-append
"http://www.maier-komor.de/hostscope/hostscope-V"
version ".tgz"))
(sha256
(base32
"0jw6yij8va0f292g4xkf9lp9sxkzfgv67ajw49g3vq42q47ld7cv"))))
(build-system gnu-build-system)
(inputs `(("ncurses" ,ncurses)))
(arguments '(#:tests? #f)) ;; No included tests.
(home-page "http://www.maier-komor.de/hostscope.html")
(properties `((release-monitoring-url . ,home-page)))
(synopsis
"System monitoring tool for multiple hosts")
(description
"HostScope displays key system metrics of Linux hosts, such as detailed
CPU load, speed and temperature, I/O rates of network interfaces, I/O rates of
disks, and user process summary information. All metrics are multicast on the
LAN, if wanted, and clients can switch between multiple hosts on the network.
Hostscope features a bridge to Influx DB. So Grafana can be used to visualize
the recorded data over time.")
(license license:gpl3+)))

4
gnu/packages/mpd.scm
View File

@ -105,7 +105,7 @@ interfacing MPD in the C, C++ & Objective C languages.")
(define-public mpd
(package
(name "mpd")
(version "0.22.6")
(version "0.22.8")
(source (origin
(method url-fetch)
(uri
@ -114,7 +114,7 @@ interfacing MPD in the C, C++ & Objective C languages.")
"/mpd-" version ".tar.xz"))
(sha256
(base32
"0pjdd8qwia1dsfkzyxcasfhxiqwk6lcz333z8w9vcg2wi6j4kq9b"))))
"0v980hhrdq9k2323ha6gfd7kzpwhdcgja6aqj9gwzbzzr44fs5wn"))))
(build-system meson-build-system)
(arguments
`(#:configure-flags '("-Ddocumentation=enabled")))

4
gnu/packages/mtools.scm
View File

@ -29,14 +29,14 @@
(define-public mtools
(package
(name "mtools")
(version "4.0.27")
(version "4.0.29")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnu/mtools/mtools-"
version ".tar.bz2"))
(sha256
(base32
"1crqi10adwfahj8xyw60lx70hkpcc5g00b5r8277cm2f4kcwi24w"))
"1izymrj7cjya3da5qgvlmywqs0kkjdk9940hl15ybbz70d30pdf6"))
(patches
(search-patches "mtools-mformat-uninitialized.patch"))))
(build-system gnu-build-system)

97
gnu/packages/music.scm
View File

@ -38,6 +38,7 @@
;;; Copyright © 2021 Brendan Tildesley <mail@brendan.scot>
;;; Copyright © 2021 Bonface Munyoki Kilyungi <me@bonfacemunyoki.com>
;;; Copyright © 2021 Frank Pursel <frank.pursel@gmail.com>
;;; Copyright © 2021 Rovanion Luckey <rovanion.luckey@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -68,9 +69,11 @@
#:use-module (guix build-system python)
#:use-module (guix build-system scons)
#:use-module (guix build-system glib-or-gtk)
#:use-module (guix build-system qt)
#:use-module (guix build-system waf)
#:use-module (guix build-system trivial)
#:use-module (guix build-system go)
#:use-module (guix build-system qt)
#:use-module (gnu packages)
#:use-module (gnu packages admin)
#:use-module (gnu packages algebra)
@ -1339,6 +1342,47 @@ Sega Master System/Mark III, Sega Genesis/Mega Drive, BBC Micro
;; demo and player directories are under the Expat license
license:expat))))
(define-public lingot
(package
(name "lingot")
(version "1.1.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/ibancg/lingot")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "04lcjzfhddbyskxr2068z609y6x0s2gjx1wl78w0dkxdi459zrn9"))))
(build-system gnu-build-system)
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
("cunit" ,cunit)
("glib" ,glib "bin") ; for glib-compile-resources
("intltool" ,intltool)
("libtool" ,libtool)
("pkg-config" ,pkg-config)))
(inputs
`(("alsa-lib" ,alsa-lib)
("fftw" ,fftw)
("gtk+" ,gtk+)
("jack" ,jack-2)
("json-c" ,json-c)
("pulseaudio" ,pulseaudio)))
(home-page "http://lingot.nongnu.org/")
(synopsis "Accurate & configurable musical instrument tuner")
(description
"LINGOT is a musical instrument tuner. It's accurate, easy to use, and
highly configurable. Originally conceived to tune electric guitars, it can now
be used to tune other instruments.
It looks like an analogue tuner, with a gauge indicating the relative shift to a
certain note, determined automatically as the closest note to the estimated
frequency.")
(license license:gpl2+)))
(define-public ninjas2
(package
(name "ninjas2")
@ -4704,7 +4748,7 @@ standalone JACK client and an LV2 plugin is also available.")
"thirdparty/portmidi"
"thirdparty/qt-google-analytics"))
#t))))
(build-system cmake-build-system)
(build-system qt-build-system)
(arguments
`(#:configure-flags
`("-DBUILD_TELEMETRY_MODULE=OFF" ;don't phone home
@ -4735,6 +4779,7 @@ standalone JACK client and an LV2 plugin is also available.")
("pulseaudio" ,pulseaudio)
("qtbase" ,qtbase)
("qtdeclarative" ,qtdeclarative)
("qtgraphicaleffects" ,qtgraphicaleffects)
("qtquickcontrols2" ,qtquickcontrols2)
("qtscript" ,qtscript)
("qtsvg" ,qtsvg)
@ -4761,25 +4806,21 @@ sample library.")
(define-public muse-sequencer
(package
(name "muse-sequencer")
(version "3.1.1")
(version "4.0.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/muse-sequencer/muse")
(commit (string-append "muse_"
(string-map (lambda (c)
(if (char=? c #\.)
#\_ c)) version)))))
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1rasp2v1ds2aw296lbf27rzw0l9fjl0cvbvw85d5ycvh6wkm301p"))))
(build-system cmake-build-system)
"1gamr9ln10l26wwyin1a4grrqy6h05qzcgp28wsp85yczkpsh02c"))))
(build-system qt-build-system)
(arguments
`(#:tests? #f ; there is no test target
#:configure-flags
(list "-DENABLE_INSTPATCH=OFF" ; FIXME: not packaged
"-DENABLE_VST_NATIVE=OFF"
(list "-DENABLE_VST_NATIVE=OFF"
(string-append "-DCMAKE_EXE_LINKER_FLAGS="
"-Wl,-rpath="
(assoc-ref %outputs "out") "/lib/muse-"
@ -4791,7 +4832,7 @@ sample library.")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'chdir
(lambda _ (chdir "muse3") #t))
(lambda _ (chdir "src") #t))
(add-after 'chdir 'fix-include
(lambda _
(substitute* "muse/driver/rtaudio.h"
@ -4799,26 +4840,30 @@ sample library.")
#t)))))
(inputs
`(("alsa-lib" ,alsa-lib)
("lash" ,lash)
("jack" ,jack-1)
("liblo" ,liblo)
("dssi" ,dssi)
("ladspa" ,ladspa)
("lv2" ,lv2)
("lilv" ,lilv)
("sord" ,sord)
("libsndfile" ,libsndfile)
("libsamplerate" ,libsamplerate)
("lrdf" ,lrdf)
("fluidsynth" ,fluidsynth)
("glib" ,glib)
("jack" ,jack-1)
("ladspa" ,ladspa)
("lash" ,lash)
("libinstpatch" ,libinstpatch)
("liblo" ,liblo)
("libsamplerate" ,libsamplerate)
("libsndfile" ,libsndfile)
("lilv" ,lilv)
("lrdf" ,lrdf)
("lv2" ,lv2)
("pcre" ,pcre)
("pulseaudio" ,pulseaudio) ; required by rtaudio
("qtbase" ,qtbase)
("qtsvg" ,qtsvg)
("rtaudio" ,rtaudio)
("rubberband" ,rubberband)))
("rubberband" ,rubberband)
("sord" ,sord)))
(native-inputs
`(("pkg-config" ,pkg-config)
`(("perl" ,perl)
("pkg-config" ,pkg-config)
("python" ,python-wrapper)
("qttools" ,qttools)))
(home-page "https://muse-sequencer.github.io/")
(synopsis "MIDI/Audio sequencer")
@ -4927,14 +4972,14 @@ specification and header.")
(define-public rosegarden
(package
(name "rosegarden")
(version "20.12")
(version "21.06")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/rosegarden/rosegarden/"
version "/rosegarden-" version ".tar.bz2"))
(sha256
(base32 "0nqw2caxmv6mqh485wzvywa024yvi18q87sd4dw9b2l5qnpq8rl8"))))
(base32 "0rhbmygzh62hc3mkq60lh9r28wvfkhzzd5kspl1ll0h1ipjgvr6d"))))
(build-system cmake-build-system)
(arguments
`(#:configure-flags '("-DCMAKE_BUILD_TYPE=Release")
@ -5892,7 +5937,7 @@ audio and MIDI plugins that can also run as standalone JACK applications.")
(recursive? #t)))
(file-name (git-file-name name version))
(sha256
(base32 "0bxvssqnnd7bph3w1d6xcmxradv4cqq3wyzyv1a1hfm71a0pdahs"))))
(base32 "02blg0iqich4vx5z1ahj6avkh83yqszdiq83p9jd5qwm0i4llqjq"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ;no "check" target

190
gnu/packages/networking.scm
View File

@ -2,7 +2,7 @@
;;; Copyright © 2014, 2017, 2018 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015, 2016, 2017, 2018, 2020 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2015, 2016, 2017 Stefan Reichör <stefan@xsteve.at>
;;; Copyright © 2015, 2016, 2017, 2021 Stefan Reichör <stefan@xsteve.at>
;;; Copyright © 2016 Raimon Grau <raimonster@gmail.com>
;;; Copyright © 2016–2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2016 John Darrington <jmd@gnu.org>
@ -440,7 +440,7 @@ performance across unpredictable networks, such as the Internet.")
(define-public lksctp-tools
(package
(name "lksctp-tools")
(version "1.0.18")
(version "1.0.19")
(source
(origin
(method git-fetch)
@ -449,10 +449,8 @@ performance across unpredictable networks, such as the Internet.")
(url "https://github.com/sctp/lksctp-tools")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(patches
(search-patches "lksctp-tools-1.0.18-fix-header-file-name.patch"))
(sha256
(base32 "1x4fwzrlzvfa3vcpja97m8w5g9ir2zrh4zs7zksminrnmdrs0dsr"))))
(base32 "1jfq58j365mlgssavyw5wcal42n0xjkr40vmj9b8w265wgs28j20"))))
(build-system gnu-build-system)
(native-inputs
`(("autoconf" ,autoconf)
@ -461,11 +459,14 @@ performance across unpredictable networks, such as the Internet.")
("pkg-config" ,pkg-config)))
(inputs
`(("linux-headers" ,linux-libre-headers)))
(synopsis "Linux SCTP helper library")
(description "Lksctp-tools project provides a user space library for SCTP
(libsctp) including C language header files (netinet/sctp.h) for accessing SCTP
specific application programming interfaces not provided by the standard
sockets, and also some helper utilities around SCTP.")
(synopsis
"@acronym{SCTP, Stream Control Transmission Protocol} helpers for Linux")
(description
"The lksctp-tools project provides a user-space library for @acronym{SCTP,
the Stream Control Transmission Protocol} (@file{libsctp}) and C language header
files (@file{netinet/sctp.h}) for accessing SCTP-specific @acronym{APIs,
application programming interfaces} not provided by the standard sockets.
It also includes some SCTP-related helper utilities.")
(home-page "http://lksctp.sourceforge.net/")
(license
(list
@ -908,6 +909,38 @@ establish a relatively secure environment (su and chroot) for running client
or server shell scripts with network connections.")
(license license:gpl2)))
(define-public mbuffer
(package
(name "mbuffer")
(version "20210328")
(source (origin
(method url-fetch)
(uri (string-append
"http://www.maier-komor.de/software/mbuffer/mbuffer-"
version ".tgz"))
(sha256
(base32
"0pfw9xw4ph18yss07fl6w8fbqiwy1w9r1knzw5gsb4c993cbidai"))))
(build-system gnu-build-system)
(inputs `(("openssl" ,openssl)))
(home-page "http://www.maier-komor.de/mbuffer.html")
(synopsis
"Swiss army knife for data stream buffering (network aware)")
(description
"mbuffer is a tool for buffering data streams with a large set of features:
@itemize
@item direct support for TCP based network targets (IPv4 and IPv6)
@item ability to send to multiple targets in parallel (distribution mode)
@item support for multiple volumes
@item I/O rate limitation
@item high/low watermark based restart criteria
@item configurable buffer size
@item on the fly MD5 hash calculation
@item highly efficient, multi-threaded implementation
@end itemize")
(license license:gpl3+)))
(define-public tcp-wrappers
(package
(name "tcp-wrappers")
@ -1025,20 +1058,7 @@ more.")
"0fdclvd7fcwixp0k57ccv7d159v3slasyhvndxfn8n1a9hh0lwjx"))))
(build-system gnu-build-system)
(arguments
'(#:configure-flags '("--enable-drafts")
#:phases (modify-phases %standard-phases
(add-before 'check 'patch-tests
(lambda _
(substitute* "src/czmq_selftest.c"
;; Disable the zproc test, which fails on some hardware
;; (see: https://github.com/zeromq/czmq/issues/2007).
(("\\{ \"zproc\", zproc_test.*")
"")
;; Also disable the zarmour test, which fails as well
;; (see: https://github.com/zeromq/czmq/issues/2125).
(("\\{ \"zarmour\", zarmour_test.*")
""))
#t)))))
'(#:configure-flags '("--enable-drafts")))
(inputs
`(("zeromq" ,zeromq)))
(home-page "https://zeromq.org")
@ -1154,14 +1174,14 @@ containing both Producer and Consumer support.")
(define-public libndp
(package
(name "libndp")
(version "1.7")
(version "1.8")
(source (origin
(method url-fetch)
(uri (string-append "https://libndp.org/files/"
"libndp-" version ".tar.gz"))
(sha256
(base32
"1dlinhl39va00v55qygjc9ap77yqf7xvn4rwmvdr49xhzzxhlj1c"))))
"0ay0n0d85254zdmv8znmn399gfiqpk6ga0jwdwa7ylpbw9pbdzw8"))))
(build-system gnu-build-system)
(home-page "https://libndp.org/")
(synopsis "Library for Neighbor Discovery Protocol")
@ -1380,7 +1400,7 @@ and up to 1 Mbit/s downstream.")
(define-public whois
(package
(name "whois")
(version "5.5.8")
(version "5.5.9")
(source
(origin
(method git-fetch)
@ -1389,7 +1409,7 @@ and up to 1 Mbit/s downstream.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "12lhl2q1pa1qkbv0l1cpy8hn4wh5i99bqc68rlm4f7jyqlj2l82r"))))
(base32 "0l9dhyciylh14lqw8j5mrk0y2hl95cnj8pyvvabbgwxpsdn0yvbb"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; no test suite
@ -1425,14 +1445,14 @@ of the same name.")
(define-public wireshark
(package
(name "wireshark")
(version "3.4.5")
(version "3.4.6")
(source
(origin
(method url-fetch)
(uri (string-append "https://www.wireshark.org/download/src/wireshark-"
version ".tar.xz"))
(sha256
(base32 "0cyk8nqws9gp8p2ywszbynh8vawivnbhw60dhmy21qd1038sy6ny"))))
(base32 "0a26kcj3n1a2kw1f3fc6s1x3rw3f3bj2cq6rp7k0kc4ciwh7i9hj"))))
(build-system cmake-build-system)
(arguments
`(#:phases
@ -1463,6 +1483,7 @@ of the same name.")
`(("c-ares" ,c-ares)
("glib" ,glib)
("gnutls" ,gnutls)
("google-brotli" ,google-brotli)
("libcap" ,libcap)
("libgcrypt" ,libgcrypt)
("libnl" ,libnl)
@ -1472,12 +1493,15 @@ of the same name.")
("lz4" ,lz4)
("lua" ,lua-5.2) ;Lua 5.3 unsupported
("krb5" ,mit-krb5)
("nghttp2:lib" ,nghttp2 "lib")
("minizip" ,minizip)
("qtbase" ,qtbase)
("qtmultimedia" ,qtmultimedia)
("qtsvg" ,qtsvg)
("sbc" ,sbc)
("snappy" ,snappy)
("zlib" ,zlib)))
("zlib" ,zlib)
("zstd:lib" ,zstd "lib")))
(native-inputs
`(("bison" ,bison)
("doxygen" ,doxygen)
@ -2347,15 +2371,20 @@ that block port 22.")
(define-public iperf
(package
(name "iperf")
(version "3.9")
(source (origin
(method url-fetch)
(uri (string-append "http://downloads.es.net/pub/iperf"
"/iperf-" version ".tar.gz"))
(sha256
(base32
"0f601avdmzpwsa3lbi0ppjhkrdipm5wifhhxy5czf99370k3mdi4"))))
(version "3.10.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/esnet/iperf")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0svkrmxki6ckn2a8xysh5x0bw68mqnvl3w64j6d45fxs97dca2vq"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
(list "--disable-static")))
(synopsis "TCP, UDP and SCTP bandwidth measurement tool")
(description
"iPerf is a tool to measure achievable bandwidth on IP networks. It
@ -2409,7 +2438,7 @@ gone wild and are suddenly taking up your bandwidth.")
(define-public nzbget
(package
(name "nzbget")
(version "21.0")
(version "21.1")
(source
(origin
(method url-fetch)
@ -2417,16 +2446,7 @@ gone wild and are suddenly taking up your bandwidth.")
"/download/v" version
"/nzbget-" version "-src.tar.gz"))
(sha256
(base32
"0lwd0pfrs4a5ms193hgz2qiyf7grrc925dw6y0nfc0gkp27db9b5"))
(modules '((guix build utils)))
(snippet
;; Reported upstream as <https://github.com/nzbget/nzbget/pull/414>.
'(begin
(substitute* "daemon/connect/TlsSocket.cpp"
(("gnutls_certificate-verification_status_print")
"gnutls_certificate_verification_status_print"))
#t))))
(base32 "09900x1k0yf4yi2cc0k093advvadyhrkm8rnd8nszhhdp2zc33sf"))))
(arguments
`(#:configure-flags
(list
@ -2861,16 +2881,65 @@ displays the results in real time.")
#t)))
#:configure-flags
(list
;; Disable bsd-4 licensed plugins.
"--disable-ldap"
"--disable-mysql"
"--disable-systemd"
;; Disable BSD-4 licensed plugins.
"--disable-blowfish"
"--disable-des"
"--disable-blowfish")))
;; Make it usable. The default configuration is far too minimal to be
;; used with most common VPN set-ups.
;; See <https://wiki.strongswan.org/projects/strongswan/wiki/Autoconf>.
"--enable-aesni"
"--enable-attr-sql"
"--enable-chapoly"
"--enable-curl"
"--enable-dhcp"
"--enable-eap-aka"
"--enable-eap-aka-3gpp"
"--enable-eap-dynamic"
"--enable-eap-identity"
"--enable-eap-md5"
"--enable-eap-mschapv2"
"--enable-eap-peap"
"--enable-eap-radius"
"--enable-eap-sim"
"--enable-eap-sim-file"
"--enable-eap-simaka-pseudonym"
"--enable-eap-simaka-reauth"
"--enable-eap-simaka-sql"
"--enable-eap-tls"
"--enable-eap-tnc"
"--enable-eap-ttls"
"--enable-ext-auth"
"--enable-farp"
"--enable-ha"
"--enable-led"
"--enable-md4"
"--enable-mediation"
"--enable-openssl"
"--enable-soup"
"--enable-sql"
"--enable-sqlite"
"--enable-xauth-eap"
"--enable-xauth-noauth"
"--enable-xauth-pam"
;; Use libcap by default.
"--with-capabilities=libcap")))
(inputs
`(("curl" ,curl)
("gmp" ,gmp)
("libcap" ,libcap)
("libgcrypt" ,libgcrypt)
("libsoup" ,libsoup)
("linux-pam" ,linux-pam)
("openssl" ,openssl)))
(native-inputs
`(("coreutils" ,coreutils)
("pkg-config" ,pkg-config)
("tzdata" ,tzdata-for-tests)))
(synopsis "IKEv1/v2 keying daemon")
(description "StrongSwan is an IPsec implementation originally based upon
@ -2909,7 +2978,7 @@ file for more details.")
(define-public amule
(package
(name "amule")
(version "2.3.2")
(version "2.3.3")
(source (origin
(method git-fetch)
(uri (git-reference
@ -2918,9 +2987,7 @@ file for more details.")
(file-name (git-file-name name version))
(sha256
(base32
"010wxm6g9f92x6fympj501zbnjka32rzbx0sk3a2y4zpih5d2nsn"))
;; Patch for adopting crypto++ >= 6.0.
(patches (search-patches "amule-crypto-6.patch"))))
"1nm4vxgmisn1b6l3drmz0q04x067j2i8lw5rnf0acaapwlp8qwvi"))))
(build-system gnu-build-system)
(arguments
`(#:phases
@ -2956,7 +3023,7 @@ file for more details.")
("crypto++" ,crypto++)
("libpng" ,libpng)
("wxwidgets-gtk2" ,wxwidgets-gtk2)))
(home-page "http://amule.org/")
(home-page "https://amule.org/")
(synopsis "Peer-to-peer client for the eD2K and Kademlia networks")
(description
"aMule is an eMule-like client for the eD2k and Kademlia peer-to-peer
@ -3152,14 +3219,14 @@ Features:
(define-public net-snmp
(package
(name "net-snmp")
(version "5.9")
(version "5.9.1")
(source (origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/net-snmp/net-snmp/"
version "/net-snmp-" version ".tar.gz"))
(sha256
(base32
"0wb0vyafpspw3mcifkjjmf17r1r80kjvslycscb8nvaxz1k3lc04"))
"0gwcyi9qk707jgfsgmdr9w2w3r892fnqaam9v7zxpkg69njd8zzb"))
(modules '((guix build utils)))
(snippet
'(begin
@ -3176,6 +3243,7 @@ Features:
(list (string-append "LDFLAGS=-Wl,-rpath="
(assoc-ref %outputs "out")
"/lib")
"--disable-static"
"--with-logfile=/var/log/snmpd.log"
(string-append "--with-openssl="
(assoc-ref %build-inputs "openssl")))
@ -3569,7 +3637,7 @@ A very simple IM client working over the DHT.
(define-public frrouting
(package
(name "frrouting")
(version "7.5")
(version "7.5.1")
(source (origin
(method url-fetch)
(uri (string-append "https://github.com/FRRouting/frr/releases/"
@ -3577,7 +3645,7 @@ A very simple IM client working over the DHT.
".tar.xz"))
(sha256
(base32
"1a27wvxmc51sr0kchy0hjfpv19imlgrr3s9k48lik9k01g71yrdr"))))
"1r7gh5h27ii7d1d0z0x48wx7hs8vvympv3gqvy3cwzg05q5vk9xs"))))
(build-system gnu-build-system)
(inputs
`(("c-ares" ,c-ares)

789
gnu/packages/ocaml.scm
View File

File diff suppressed because it is too large Load Diff

46
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 "9f2b2c432b834c8057ce2f4119599d36197bc063")
(revision 2))
(commit "50dfbbf8ef52111067071c788e19fc21d54c40d6")
(revision 3))
(package
(name "guix")
@ -149,7 +149,7 @@
(commit commit)))
(sha256
(base32
"09w6b4hqcxaj6x1q6m1q8vlp4dyk6anfv8p6mfwmpqis81cspphn"))
"128608qyza3p769h7awp183c2mi9gdx2b1xidvmjilfkphlg1lyi"))
(file-name (string-append "guix-" version "-checkout"))))
(build-system gnu-build-system)
(arguments
@ -518,40 +518,6 @@ the Nix package manager.")
(invoke "make" "install-binPROGRAMS")))
(delete 'wrap-program)))))))
(define-public guile2.2-guix
(package
(inherit guix)
(name "guile2.2-guix")
(native-inputs
`(("guile" ,guile-2.2)
("gnutls" ,guile2.2-gnutls)
("guile-gcrypt" ,guile2.2-gcrypt)
("guile-json" ,guile2.2-json)
("guile-lib" ,guile2.2-lib)
("guile-sqlite3" ,guile2.2-sqlite3)
("guile-ssh" ,guile2.2-ssh)
("guile-git" ,guile2.2-git)
("guile-zlib" ,guile2.2-zlib)
("guile-lzlib" ,guile2.2-lzlib)
,@(fold alist-delete (package-native-inputs guix)
'("guile" "gnutls" "guile-gcrypt" "guile-json"
"guile-lib" "guile-sqlite3" "guile-ssh" "guile-git"
"guile-zlib" "guile-lzlib"))))
(inputs
`(("guile" ,guile-2.2)
,@(alist-delete "guile" (package-inputs guix))))
(propagated-inputs
`(("gnutls" ,gnutls)
("guile-gcrypt" ,guile2.2-gcrypt)
("guile-json" ,guile2.2-json)
("guile-lib" ,guile2.2-lib)
("guile-sqlite3" ,guile2.2-sqlite3)
("guile-ssh" ,guile2.2-ssh)
("guile-git" ,guile2.2-git)
("guile-zlib" ,guile2.2-zlib)
("guile-lzlib" ,guile2.2-lzlib)))))
(define-public guile3.0-guix
(deprecated-package "guile3.0-guix" guix))
@ -1061,8 +1027,8 @@ environments.")
(license (list license:gpl3+ license:agpl3+ license:silofl1.1))))
(define-public guix-build-coordinator
(let ((commit "1305724c7ea3c2bb3e557918d5a1b17d572aa110")
(revision "27"))
(let ((commit "f9af463e81d9fcc712d7c58a491101d8d17457e8")
(revision "30"))
(package
(name "guix-build-coordinator")
(version (git-version "0" revision commit))
@ -1073,7 +1039,7 @@ environments.")
(commit commit)))
(sha256
(base32
"179n33mkhl6f2fv0gyn7sdm3k4hhm1hvca6dgc923d0w7zv4p577"))
"08ysa7a33fsm069gxqnvbf1yzqcsky6gk2pifamkq0wq1dls661r"))
(file-name (string-append name "-" version "-checkout"))))
(build-system gnu-build-system)
(arguments

36
gnu/packages/parallel.scm
View File

@ -41,6 +41,7 @@
#:use-module (gnu packages admin)
#:use-module (gnu packages autotools)
#:use-module (gnu packages base)
#:use-module (gnu packages flex)
#:use-module (gnu packages freeipmi)
#:use-module (gnu packages linux)
#:use-module (gnu packages mpi)
@ -57,14 +58,14 @@
(define-public parallel
(package
(name "parallel")
(version "20210422")
(version "20210522")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://gnu/parallel/parallel-"
version ".tar.bz2"))
(sha256
(base32 "1s4ynlsh5fr5vxcf5xm45fcfyzp62zclzjq5b7rbwrs4chxnlgmy"))))
(base32 "1qdgywilyy2vy8lcl7f5qa7cm0b2ddnwwx9n8xcfbv9wj0z3wrpg"))))
(build-system gnu-build-system)
(arguments
`(#:phases
@ -135,10 +136,37 @@ execution is also possible.")
(home-page "https://github.com/leahneukirchen/xe")
(license license:public-domain)))
(define-public xjobs
(package
(name "xjobs")
(version "20200726")
(source (origin
(method url-fetch)
(uri (string-append
"http://www.maier-komor.de/xjobs/xjobs-"
version ".tgz"))
(sha256
(base32
"0ay6gn43pnm7r1jamwgpycl67bjg5n87ncl27jb01w2x6x70z0i3"))))
(build-system gnu-build-system)
(arguments `(#:tests? #f)) ;; No tests
(native-inputs
`(("flex" ,flex)
("which" ,which)))
(home-page "http://www.maier-komor.de/xjobs.html")
(properties `((release-monitoring-url . ,home-page)))
(synopsis
"Parallel execution of jobs with several useful options")
(description
"xjobs reads job descriptions line by line and executes them in
parallel. It limits the number of parallel executing jobs and starts new jobs
when jobs finish.")
(license license:gpl2+)))
(define-public slurm
(package
(name "slurm")
(version "20.11.3")
(version "20.11.7")
(source (origin
(method url-fetch)
(uri (string-append
@ -146,7 +174,7 @@ execution is also possible.")
version ".tar.bz2"))
(sha256
(base32
"1s70x6yh60sx63dgmp5rlhq8jcz7kxv9pk8gbs9v1jg8zps5h5bk"))
"1fdjihg1x7ks5l77yjv14a4mg6r0v8c3zk1dcxkhrhq3n4dc9nbs"))
(modules '((guix build utils)))
(snippet
'(begin

45
gnu/packages/patches/amule-crypto-6.patch
View File

@ -1,45 +0,0 @@
From d1d1368c7909ffd8423730afaa811ce7b6a3a8aa Mon Sep 17 00:00:00 2001
From: Tommy Jerry Mairo <tommy.mairo@gmail.com>
Date: Sun, 4 Feb 2018 12:42:00 -0800
Subject: [PATCH 1/2] Bugfix: API mismatch with crypto++ 6.0.0
---
src/ClientCreditsList.cpp | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/ClientCreditsList.cpp b/src/ClientCreditsList.cpp
index 3bea9fe2d..a7ae1e34c 100644
--- a/src/ClientCreditsList.cpp
+++ b/src/ClientCreditsList.cpp
@@ -312,7 +312,7 @@ void CClientCreditsList::InitalizeCrypting()
// calculate and store public key
CryptoPP::RSASSA_PKCS1v15_SHA_Verifier pubkey(*static_cast<CryptoPP::RSASSA_PKCS1v15_SHA_Signer *>(m_pSignkey));
CryptoPP::ArraySink asink(m_abyMyPublicKey, 80);
- pubkey.DEREncode(asink);
+ pubkey.AccessMaterial().Save(asink);
m_nMyPublicKeyLen = asink.TotalPutLength();
asink.MessageEnd();
} catch (const CryptoPP::Exception& e) {
From 88ba0ac952b78382445f2fff73c6792c0474dc62 Mon Sep 17 00:00:00 2001
From: Tommy Jerry Mairo <tommy.mairo@gmail.com>
Date: Wed, 21 Mar 2018 11:56:28 -0700
Subject: [PATCH 2/2] Update: Change AccessMaterial to GetMaterial
---
src/ClientCreditsList.cpp | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/ClientCreditsList.cpp b/src/ClientCreditsList.cpp
index a7ae1e34c..69e881fd8 100644
--- a/src/ClientCreditsList.cpp
+++ b/src/ClientCreditsList.cpp
@@ -312,7 +312,7 @@ void CClientCreditsList::InitalizeCrypting()
// calculate and store public key
CryptoPP::RSASSA_PKCS1v15_SHA_Verifier pubkey(*static_cast<CryptoPP::RSASSA_PKCS1v15_SHA_Signer *>(m_pSignkey));
CryptoPP::ArraySink asink(m_abyMyPublicKey, 80);
- pubkey.AccessMaterial().Save(asink);
+ pubkey.GetMaterial().Save(asink);
m_nMyPublicKeyLen = asink.TotalPutLength();
asink.MessageEnd();
} catch (const CryptoPP::Exception& e) {

26
gnu/packages/patches/emacs-geiser-autoload-activate-implementation.patch
View File

@ -1,26 +0,0 @@
From 9fd3174cead8bfa17a8413bffa38362853d71a02 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Mon, 5 Apr 2021 23:06:56 +0100
Subject: [PATCH] autoload geiser activate implementation
---
elisp/geiser.el | 3 +++
readme.org | 4 ++--
2 files changed, 5 insertions(+), 2 deletions(-)
diff --git a/elisp/geiser.el b/elisp/geiser.el
index 887b8da..96c1dd6 100644
--- a/elisp/geiser.el
+++ b/elisp/geiser.el
@@ -104,6 +104,9 @@
;;;###autoload
(autoload 'geiser-mode--maybe-activate "geiser-mode")
+;;;###autoload
+(autoload 'geiser-activate-implementation "geiser-impl")
+
;;;###autoload
(mapc (lambda (group)
(custom-add-load group (symbol-name group))
--
GitLab

34
gnu/packages/patches/emacs-geiser-guile-auto-activate.patch
View File

@ -1,34 +0,0 @@
From 93ef7101fdfcc7eac6f465b4b9788c384a323c14 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Mon, 5 Apr 2021 20:17:50 +0100
Subject: [PATCH] fix: auto-activate guile implementation
---
geiser-guile.el | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/geiser-guile.el b/geiser-guile.el
index 340442b..deeb76f 100644
--- a/geiser-guile.el
+++ b/geiser-guile.el
@@ -25,6 +25,7 @@
(require 'geiser-syntax)
(require 'geiser-custom)
(require 'geiser-repl)
+(require 'geiser-impl)
(require 'geiser-base)
(require 'geiser-eval)
(require 'geiser-edit)
@@ -474,6 +475,9 @@ it spawn a server thread."
(geiser-impl--add-to-alist 'regexp "\\.scm$" 'guile t)
+;;;###autoload
+(geiser-activate-implementation 'guile)
+
;;;###autoload
(autoload 'run-guile "geiser-guile" "Start a Geiser Guile REPL." t)
--
GitLab

152
gnu/packages/patches/freebayes-devendor-deps.patch
View File

@ -1,152 +0,0 @@
This patch is original to Guix, ongoing work to upstream bits as possible.
From 9acc56db5e7469f5976be38b52ba4993de98ee38 Mon Sep 17 00:00:00 2001
From: Efraim Flashner <efraim@flashner.co.il>
Date: Sun, 17 Jan 2021 13:27:17 +0200
Subject: [PATCH] devendor-dependants
---
meson.build | 84 +++++++++++++++++++++++++++++++++++++++++------------
1 file changed, 66 insertions(+), 18 deletions(-)
diff --git a/meson.build b/meson.build
index f6bf242..bded4af 100644
--- a/meson.build
+++ b/meson.build
@@ -9,8 +9,13 @@ project('freebayes', ['cpp', 'c'],
zlib_dep = dependency('zlib')
lzma_dep = dependency('liblzma')
+simde_dep = dependency('simde')
bzip2_dep = dependency('bz2lib', required: false)
htslib_dep = dependency('htslib', required : false)
+tabixpp_dep = dependency('tabixpp', required : false)
+fastahack_dep = dependency('fastahack', required : false)
+smithwaterman_dep = dependency('smithwaterman', required : false)
+vcflib_dep = dependency('vcflib', required: false)
thread_dep = dependency('threads')
if htslib_dep.found()
@@ -59,6 +64,56 @@ else
]
endif
+if tabixpp_dep.found()
+ tabixpp_includes = ''
+ tabixpp_src = []
+else
+ tabixpp_includes = [
+ 'vcflib/tabixpp',
+ ]
+ tabixpp_src = [
+ 'vcflib/tabixpp/tabix.cpp',
+ ]
+endif
+
+if vcflib_dep.found()
+ vcflib_includes = ''
+ vcflib_src = []
+else
+ vcflib_includes = [
+ 'vcflib/src',
+ 'vcflib/multichoose',
+ 'vcflib/filevercmp',
+ ]
+ vcflib_src = [
+ 'vcflib/src/Variant.cpp',
+ ]
+endif
+
+if fastahack_dep.found()
+ fastahack_src = []
+else
+ fastahack_src = [
+ 'vcflib/fastahack/Fasta.cpp',
+ 'vcflib/src/split.cpp',
+ ]
+endif
+
+if smithwaterman_dep.found()
+ smithwaterman_includes = ''
+ smithwaterman_src = []
+else
+ smithwaterman_includes = [
+ 'vcflib/smithwaterman',
+ ]
+ smithwaterman_src = [
+ 'vcflib/smithwaterman/SmithWatermanGotoh.cpp',
+ 'vcflib/smithwaterman/disorder.cpp',
+ 'vcflib/smithwaterman/Repeats.cpp',
+ 'vcflib/smithwaterman/LeftAlign.cpp',
+ 'vcflib/smithwaterman/IndelAllele.cpp',
+ ]
+endif
#
@@ -105,23 +160,18 @@ seqlib_src = [
]
vcflib_src = [
- 'vcflib/tabixpp/tabix.cpp',
- 'vcflib/src/Variant.cpp',
- 'vcflib/smithwaterman/SmithWatermanGotoh.cpp',
- 'vcflib/smithwaterman/disorder.cpp',
- 'vcflib/smithwaterman/Repeats.cpp',
- 'vcflib/smithwaterman/LeftAlign.cpp',
- 'vcflib/smithwaterman/IndelAllele.cpp',
+ vcflib_src,
+ tabixpp_src,
+ smithwaterman_src,
]
bamleftalign_src = [
'src/bamleftalign.cpp',
'src/IndelAllele.cpp',
'contrib/SeqLib/src/BamWriter.cpp',
- 'vcflib/fastahack/Fasta.cpp',
- 'vcflib/smithwaterman/LeftAlign.cpp',
- 'vcflib/smithwaterman/IndelAllele.cpp',
- 'vcflib/src/split.cpp',
+ fastahack_src,
+ smithwaterman_src,
+ vcflib_src,
'src/LeftAlign.cpp',
]
@@ -134,11 +184,9 @@ incdir = include_directories(
'ttmath',
'contrib',
'contrib/SeqLib',
- 'vcflib/src',
- 'vcflib/tabixpp',
- 'vcflib/smithwaterman',
- 'vcflib/multichoose',
- 'vcflib/filevercmp')
+ tabixpp_includes,
+ smithwaterman_includes,
+ vcflib_includes)
c_args = ['-fpermissive','-w']
cpp_args = ['-fpermissive','-w','-Wc++14-compat']
@@ -152,7 +200,7 @@ executable('freebayes',
include_directories : incdir,
cpp_args : cpp_args,
c_args : c_args,
- dependencies: [zlib_dep, lzma_dep, htslib_dep, thread_dep],
+ dependencies: [zlib_dep, lzma_dep, simde_dep, htslib_dep, tabixpp_dep, smithwaterman_dep, vcflib_dep, thread_dep],
install: true
)
@@ -165,7 +213,7 @@ executable('bamleftalign',
include_directories : incdir,
cpp_args : cpp_args,
c_args : c_args,
- dependencies: [zlib_dep, lzma_dep, htslib_dep, thread_dep],
+ dependencies: [zlib_dep, lzma_dep, simde_dep, htslib_dep, tabixpp_dep, fastahack_dep, smithwaterman_dep, vcflib_dep, thread_dep],
install: true
)
--
2.30.0

32
gnu/packages/patches/lksctp-tools-1.0.18-fix-header-file-name.patch
View File

@ -1,32 +0,0 @@
From 378560050a8f93786c590cc99a55461666205b61 Mon Sep 17 00:00:00 2001
From: Xin Long <lucien.xin@gmail.com>
Date: Fri, 24 Aug 2018 01:13:32 +0800
Subject: [PATCH] build: fix netinet/sctp.h not to be installed
After libcnetinet_HEADERS was set to sctp.h.in, netinet/sctp.h can
no longer be installed into ${includedir}.
Since "AC_CONFIG_HEADERS([src/include/netinet/sctp.h])" is already
added into configure.ac, there's no need to generate sctp.h by
automake.
So we simply set libcnetinet_HEADERS back to sctp.h.
Fixes: 9607dd85e70a ("netinet/sctp.h: dynamically build based on system setup")
Signed-off-by: Xin Long <lucien.xin@gmail.com>
Signed-off-by: Marcelo Ricardo Leitner <marcelo.leitner@gmail.com>
---
src/include/netinet/Makefile.am | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/src/include/netinet/Makefile.am b/src/include/netinet/Makefile.am
index ca0aac2..965db8c 100644
--- a/src/include/netinet/Makefile.am
+++ b/src/include/netinet/Makefile.am
@@ -11,5 +11,4 @@ libcnetinetdir = $(includedir)/netinet
# API.
include_HEADERS =
-libcnetinet_HEADERS = sctp.h.in
-BUILT_SOURCES = sctp.h
+libcnetinet_HEADERS = sctp.h

52
gnu/packages/patches/minimap2-aarch64-support.patch
View File

@ -1,52 +0,0 @@
This patch should be removed with the next release. There is WIP upstream
support for proper support of more architectures, including aarch64 and powerpc64le.
diff --git a/Makefile b/Makefile
index ed341f6..94dbd85 100644
--- a/Makefile
+++ b/Makefile
@@ -6,20 +6,18 @@ PROG= minimap2
PROG_EXTRA= sdust minimap2-lite
LIBS= -lm -lz -lpthread
-ifeq ($(arm_neon),) # if arm_neon is not defined
-ifeq ($(sse2only),) # if sse2only is not defined
- OBJS+=ksw2_extz2_sse41.o ksw2_extd2_sse41.o ksw2_exts2_sse41.o ksw2_extz2_sse2.o ksw2_extd2_sse2.o ksw2_exts2_sse2.o ksw2_dispatch.o
-else # if sse2only is defined
- OBJS+=ksw2_extz2_sse.o ksw2_extd2_sse.o ksw2_exts2_sse.o
-endif
-else # if arm_neon is defined
+ifneq ($(arm_neon),) # if arm_neon is defined
OBJS+=ksw2_extz2_neon.o ksw2_extd2_neon.o ksw2_exts2_neon.o
- INCLUDES+=-Isse2neon
-ifeq ($(aarch64),) #if aarch64 is not defined
CFLAGS+=-D_FILE_OFFSET_BITS=64 -mfpu=neon -fsigned-char
-else #if aarch64 is defined
+ INCLUDES+=-Isse2neon
+else ifneq ($(aarch64),) #if aarch64 is defined
+ OBJS+=ksw2_extz2_neon.o ksw2_extd2_neon.o ksw2_exts2_neon.o
CFLAGS+=-D_FILE_OFFSET_BITS=64 -fsigned-char
-endif
+ INCLUDES+=-Isse2neon
+else ifneq ($(sse2only),) # if sse2only is defined
+ OBJS+=ksw2_extz2_sse.o ksw2_extd2_sse.o ksw2_exts2_sse.o
+else # none of the above
+ OBJS+=ksw2_extz2_sse41.o ksw2_extd2_sse41.o ksw2_exts2_sse41.o ksw2_extz2_sse2.o ksw2_extd2_sse2.o ksw2_exts2_sse2.o ksw2_dispatch.o
endif
.PHONY:all extra clean depend
@@ -46,9 +44,12 @@ sdust:sdust.c kalloc.o kalloc.h kdq.h kvec.h kseq.h ketopt.h sdust.h
# SSE-specific targets on x86/x86_64
-ifeq ($(arm_neon),) # if arm_neon is defined, compile this target with the default setting (i.e. no -msse2)
+ifneq ($(arm_neon),) # if arm_neon is defined, compile this target with the default setting (i.e. no -msse2)
+ksw2_ll_sse.o:ksw2_ll_sse.c ksw2.h kalloc.h
+else ifneq ($(aarch64),)
ksw2_ll_sse.o:ksw2_ll_sse.c ksw2.h kalloc.h
- $(CC) -c $(CFLAGS) -msse2 $(CPPFLAGS) $(INCLUDES) $< -o $@
+else
+ $(CC) -c $(CFLAGS) -msse2 $(CPPFLAGS) $(INCLUDES) $< -o $@
endif
ksw2_extz2_sse41.o:ksw2_extz2_sse.c ksw2.h kalloc.h

49
gnu/packages/patches/mosaicatcher-unbundle-htslib.patch 100644
View File

@ -0,0 +1,49 @@
--- a/src/CMakeLists.txt 2021-05-28 13:07:25.655107983 +0200
+++ b/src/CMakeLists.txt 2021-05-28 13:09:55.764025497 +0200
@@ -21,24 +21,6 @@
-### Link HTSlib
-
-ExternalProject_Add(htslib
- PREFIX ${CMAKE_BINARY_DIR}/htslib
- GIT_REPOSITORY "https://github.com/samtools/htslib.git"
- GIT_TAG "1.3.1"
- UPDATE_COMMAND ""
- BUILD_IN_SOURCE 1
- CONFIGURE_COMMAND ""
- BUILD_COMMAND make
- INSTALL_COMMAND make install prefix=${CMAKE_BINARY_DIR}/htslib
- LOG_DOWNLOAD 1
-)
-link_directories (${CMAKE_BINARY_DIR}/htslib/lib)
-include_directories (${CMAKE_BINARY_DIR}/htslib/include)
-
-
-
### Set version
# Get the current working branch
@@ -64,13 +46,6 @@
# 2. Boost version from find_package (Boost_VERSION)
-# 3. Get HTSlib version from git
-execute_process(
- COMMAND git describe --always
- WORKING_DIRECTORY ${PROJECT_BINARY_DIR}/htslib
- OUTPUT_VARIABLE HTSLIB_VERSION
- OUTPUT_STRIP_TRAILING_WHITESPACE
-)
set(HTSLIB_VERSION "1.3.1 ${HTSLIB_VERSION}")
# 4. write version.hpp file
@@ -105,7 +80,6 @@
add_executable (mosaic main.cpp ${HEADER_FILES})
target_link_libraries (mosaic LINK_PUBLIC ${Boost_LIBRARIES})
target_link_libraries (mosaic LINK_PUBLIC hts)
-add_dependencies (mosaic htslib)
### Doxygen API documentation

23
gnu/packages/patches/nsis-source-date-epoch.patch 100644
View File

@ -0,0 +1,23 @@
Honour SOURCE_DATE_EPOCH for VERSION default
Merged upstream as cd3f1024a37a332f1d4fa96a817ca80dfa2a478c, but not yet in a
release. GitHub PR: https://github.com/kichik/nsis/pull/13
Python snippet from: https://reproducible-builds.org/docs/source-date-epoch/#python
diff --git a/SConstruct b/SConstruct
index e8252c9..41786f2 100755
--- a/SConstruct
+++ b/SConstruct
@@ -95,8 +95,8 @@ default_doctype = 'html'
if defenv.WhereIs('hhc', os.environ['PATH']):
default_doctype = 'chm'
-from time import strftime, gmtime
-cvs_version = strftime('%d-%b-%Y.cvs', gmtime())
+import time
+cvs_version = time.strftime('%d-%b-%Y.cvs', time.gmtime(int(os.environ.get('SOURCE_DATE_EPOCH', time.time()))))
opts = Variables()

148
gnu/packages/patches/ppsspp-disable-upgrade-and-gold.patch
View File

@ -1,28 +1,32 @@
From 0c57874ebb5982154da127ae338f9190b1581804 Mon Sep 17 00:00:00 2001
From 942730ce7148cd54a30d4a606ce71a2654c8a2e0 Mon Sep 17 00:00:00 2001
From: Leo Prikler <leo.prikler@student.tugraz.at>
Date: Fri, 26 Jun 2020 18:20:04 +0200
Subject: [PATCH] ppsspp: disable upgrade and gold
Date: Sat, 5 Jun 2021 22:47:00 -0400
Subject: [PATCH] ppsspp: Remove upgrade code and gold support.
Original patch from Leo Prikler.
Rebased on master (commit 69fa20744958aef8da9ca052ba7675fdc1636e46) by
Maxim Cournoyer.
---
Core/Config.cpp | 11 ------
Core/Config.h | 2 --
Qt/QtMain.cpp | 6 ----
SDL/SDLMain.cpp | 6 ----
UI/DevScreens.cpp | 3 --
UI/GameSettingsScreen.cpp | 1 -
UI/GameSettingsScreen.cpp | 2 --
UI/MainScreen.cpp | 70 +------------------------------------
UI/MiscScreens.cpp | 31 ++--------------
UWP/PPSSPP_UWPMain.cpp | 6 ----
Windows/MainWindowMenu.cpp | 2 +-
Windows/main.cpp | 6 ----
android/jni/app-android.cpp | 6 ----
12 files changed, 5 insertions(+), 145 deletions(-)
ios/main.mm | 6 ----
13 files changed, 5 insertions(+), 152 deletions(-)
diff --git a/Core/Config.cpp b/Core/Config.cpp
index 1c53e8e57..2fa74a6b8 100644
index 74be99d75..b14aa22c7 100644
--- a/Core/Config.cpp
+++ b/Core/Config.cpp
@@ -439,7 +439,6 @@ static ConfigSetting generalSettings[] = {
@@ -467,7 +467,6 @@ static ConfigSetting generalSettings[] = {
ConfigSetting("IgnoreBadMemAccess", &g_Config.bIgnoreBadMemAccess, true, true),
ConfigSetting("CurrentDirectory", &g_Config.currentDirectory, ""),
ConfigSetting("ShowDebuggerOnLoad", &g_Config.bShowDebuggerOnLoad, false),
@ -30,7 +34,7 @@ index 1c53e8e57..2fa74a6b8 100644
ConfigSetting("Language", &g_Config.sLanguageIni, &DefaultLangRegion),
ConfigSetting("ForceLagSync2", &g_Config.bForceLagSync, false, true, true),
ConfigSetting("DiscordPresence", &g_Config.bDiscordPresence, true, true, false), // Or maybe it makes sense to have it per-game? Race conditions abound...
@@ -1293,16 +1292,6 @@ void Config::Load(const char *iniFileName, const char *controllerIniFilename) {
@@ -1323,16 +1322,6 @@ void Config::Load(const char *iniFileName, const char *controllerIniFilename) {
upgradeMessage = "";
}
@ -40,7 +44,7 @@ index 1c53e8e57..2fa74a6b8 100644
- // upgrade number in the ini.
- if (iRunCount % 10 == 0 && bCheckForNewVersion) {
- std::shared_ptr<http::Download> dl = g_DownloadManager.StartDownloadWithCallback(
- "http://www.ppsspp.org/version.json", "", &DownloadCompletedCallback);
- "http://www.ppsspp.org/version.json", Path(), &DownloadCompletedCallback);
- dl->SetHidden(true);
- }
-
@ -48,10 +52,10 @@ index 1c53e8e57..2fa74a6b8 100644
bSaveSettings = true;
diff --git a/Core/Config.h b/Core/Config.h
index 13bce8a36..70d6c8aaf 100644
index 79323eefc..d47bec0c7 100644
--- a/Core/Config.h
+++ b/Core/Config.h
@@ -101,7 +101,6 @@ struct Config {
@@ -103,7 +103,6 @@ struct Config {
bool bFastMemory;
int iCpuCore;
@ -59,16 +63,16 @@ index 13bce8a36..70d6c8aaf 100644
bool bForceLagSync;
bool bFuncReplacements;
bool bHideSlowWarnings;
@@ -540,4 +539,3 @@ std::string CreateRandMAC();
@@ -542,4 +541,3 @@ std::string CreateRandMAC();
// TODO: Find a better place for this.
extern http::Downloader g_DownloadManager;
extern Config g_Config;
-
diff --git a/Qt/QtMain.cpp b/Qt/QtMain.cpp
index 5be0cefa0..b11cb1c64 100644
index b642f7442..a880d7c94 100644
--- a/Qt/QtMain.cpp
+++ b/Qt/QtMain.cpp
@@ -218,12 +218,6 @@ bool System_GetPropertyBool(SystemProperty prop) {
@@ -219,12 +219,6 @@ bool System_GetPropertyBool(SystemProperty prop) {
case SYSPROP_HAS_FILE_BROWSER:
case SYSPROP_HAS_FOLDER_BROWSER:
return true;
@ -78,14 +82,14 @@ index 5be0cefa0..b11cb1c64 100644
-#else
- return false;
-#endif
case SYSPROP_CAN_JIT:
return true;
default:
return false;
}
diff --git a/SDL/SDLMain.cpp b/SDL/SDLMain.cpp
index 98b56fe91..6af0fcb1a 100644
index f0f74f979..f963f36e9 100644
--- a/SDL/SDLMain.cpp
+++ b/SDL/SDLMain.cpp
@@ -380,12 +380,6 @@ bool System_GetPropertyBool(SystemProperty prop) {
@@ -381,12 +381,6 @@ bool System_GetPropertyBool(SystemProperty prop) {
switch (prop) {
case SYSPROP_HAS_BACK_BUTTON:
return true;
@ -95,14 +99,14 @@ index 98b56fe91..6af0fcb1a 100644
-#else
- return false;
-#endif
case SYSPROP_CAN_JIT:
return true;
default:
return false;
}
diff --git a/UI/DevScreens.cpp b/UI/DevScreens.cpp
index 8daac5bc8..c0c09ce79 100644
index 29baf2f2e..926692363 100644
--- a/UI/DevScreens.cpp
+++ b/UI/DevScreens.cpp
@@ -605,9 +605,6 @@ void SystemInfoScreen::CreateViews() {
@@ -635,9 +635,6 @@ void SystemInfoScreen::CreateViews() {
#ifdef _M_SSE
buildConfig->Add(new InfoItem("_M_SSE", StringFromFormat("0x%x", _M_SSE)));
#endif
@ -113,35 +117,36 @@ index 8daac5bc8..c0c09ce79 100644
ViewGroup *cpuExtensionsScroll = new ScrollView(ORIENT_VERTICAL, new LinearLayoutParams(FILL_PARENT, FILL_PARENT));
cpuExtensionsScroll->SetTag("DevSystemInfoCPUExt");
diff --git a/UI/GameSettingsScreen.cpp b/UI/GameSettingsScreen.cpp
index 2f1e157ee..38c586b06 100644
index 393e33cd9..d07d00d45 100644
--- a/UI/GameSettingsScreen.cpp
+++ b/UI/GameSettingsScreen.cpp
@@ -914,7 +914,6 @@ void GameSettingsScreen::CreateViews() {
@@ -922,8 +922,6 @@ void GameSettingsScreen::CreateViews() {
}
}
#endif
- systemSettings->Add(new CheckBox(&g_Config.bCheckForNewVersion, sy->T("VersionCheck", "Check for new versions of PPSSPP")));
const std::string bgPng = GetSysDirectory(DIRECTORY_SYSTEM) + "background.png";
const std::string bgJpg = GetSysDirectory(DIRECTORY_SYSTEM) + "background.jpg";
if (File::Exists(bgPng) || File::Exists(bgJpg)) {
-
systemSettings->Add(new Choice(sy->T("Restore Default Settings")))->OnClick.Handle(this, &GameSettingsScreen::OnRestoreDefaultSettings);
systemSettings->Add(new CheckBox(&g_Config.bEnableStateUndo, sy->T("Savestate slot backups")));
static const char *autoLoadSaveStateChoices[] = { "Off", "Oldest Save", "Newest Save", "Slot 1", "Slot 2", "Slot 3", "Slot 4", "Slot 5" };
diff --git a/UI/MainScreen.cpp b/UI/MainScreen.cpp
index ca870ab8f..84cde88ac 100644
index f88509276..51b21b640 100644
--- a/UI/MainScreen.cpp
+++ b/UI/MainScreen.cpp
@@ -1064,11 +1064,7 @@ void MainScreen::CreateViews() {
@@ -1080,11 +1080,7 @@ void MainScreen::CreateViews() {
sprintf(versionString, "%s", PPSSPP_GIT_VERSION);
rightColumnItems->SetSpacing(0.0f);
AnchorLayout *logos = new AnchorLayout(new AnchorLayoutParams(FILL_PARENT, 60.0f, false));
- if (System_GetPropertyBool(SYSPROP_APP_GOLD)) {
- logos->Add(new ImageView(ImageID("I_ICONGOLD"), IS_DEFAULT, new AnchorLayoutParams(64, 64, 0, 0, NONE, NONE, false)));
- logos->Add(new ImageView(ImageID("I_ICONGOLD"), "", IS_DEFAULT, new AnchorLayoutParams(64, 64, 0, 0, NONE, NONE, false)));
- } else {
- logos->Add(new ImageView(ImageID("I_ICON"), IS_DEFAULT, new AnchorLayoutParams(64, 64, 0, 0, NONE, NONE, false)));
- logos->Add(new ImageView(ImageID("I_ICON"), "", IS_DEFAULT, new AnchorLayoutParams(64, 64, 0, 0, NONE, NONE, false)));
- }
+ logos->Add(new ImageView(ImageID("I_ICON"), IS_DEFAULT, new AnchorLayoutParams(64, 64, 0, 0, NONE, NONE, false)));
logos->Add(new ImageView(ImageID("I_LOGO"), IS_DEFAULT, new AnchorLayoutParams(180, 64, 64, -5.0f, NONE, NONE, false)));
+ logos->Add(new ImageView(ImageID("I_ICON"), "", IS_DEFAULT, new AnchorLayoutParams(64, 64, 0, 0, NONE, NONE, false)));
logos->Add(new ImageView(ImageID("I_LOGO"), "PPSSPP", IS_DEFAULT, new AnchorLayoutParams(180, 64, 64, -5.0f, NONE, NONE, false)));
#if !defined(MOBILE_DEVICE)
@@ -1089,11 +1085,6 @@ void MainScreen::CreateViews() {
@@ -1107,11 +1103,6 @@ void MainScreen::CreateViews() {
rightColumnItems->Add(new Choice(mm->T("Game Settings", "Settings")))->OnClick.Handle(this, &MainScreen::OnGameSettings);
rightColumnItems->Add(new Choice(mm->T("Credits")))->OnClick.Handle(this, &MainScreen::OnCredits);
rightColumnItems->Add(new Choice(mm->T("www.ppsspp.org")))->OnClick.Handle(this, &MainScreen::OnPPSSPPOrg);
@ -153,7 +158,7 @@ index ca870ab8f..84cde88ac 100644
#if !PPSSPP_PLATFORM(UWP)
// Having an exit button is against UWP guidelines.
@@ -1118,32 +1109,6 @@ void MainScreen::CreateViews() {
@@ -1136,32 +1127,6 @@ void MainScreen::CreateViews() {
} else if (tabHolder_->GetVisibility() != V_GONE) {
root_->SetDefaultFocusView(tabHolder_);
}
@ -186,7 +191,7 @@ index ca870ab8f..84cde88ac 100644
}
UI::EventReturn MainScreen::OnAllowStorage(UI::EventParams &e) {
@@ -1151,30 +1116,6 @@ UI::EventReturn MainScreen::OnAllowStorage(UI::EventParams &e) {
@@ -1169,30 +1134,6 @@ UI::EventReturn MainScreen::OnAllowStorage(UI::EventParams &e) {
return UI::EVENT_DONE;
}
@ -217,7 +222,7 @@ index ca870ab8f..84cde88ac 100644
void MainScreen::sendMessage(const char *message, const char *value) {
// Always call the base class method first to handle the most common messages.
UIScreenWithBackground::sendMessage(message, value);
@@ -1390,15 +1331,6 @@ UI::EventReturn MainScreen::OnCredits(UI::EventParams &e) {
@@ -1396,15 +1337,6 @@ UI::EventReturn MainScreen::OnCredits(UI::EventParams &e) {
return UI::EVENT_DONE;
}
@ -234,10 +239,10 @@ index ca870ab8f..84cde88ac 100644
LaunchBrowser("https://www.ppsspp.org");
return UI::EVENT_DONE;
diff --git a/UI/MiscScreens.cpp b/UI/MiscScreens.cpp
index a7284654b..2413d6c89 100644
index 901a5fb09..9d067aee6 100644
--- a/UI/MiscScreens.cpp
+++ b/UI/MiscScreens.cpp
@@ -539,11 +539,7 @@ void LogoScreen::render() {
@@ -661,11 +661,7 @@ void LogoScreen::render() {
char temp[256];
// Manually formatting UTF-8 is fun. \xXX doesn't work everywhere.
snprintf(temp, sizeof(temp), "%s Henrik Rydg%c%crd", cr->T("created", "Created by"), 0xC3, 0xA5);
@ -248,9 +253,9 @@ index a7284654b..2413d6c89 100644
- }
+ dc.Draw()->DrawImage(ImageID("I_ICON"), bounds.centerX() - 120, bounds.centerY() - 30, 1.2f, textColor, ALIGN_CENTER);
dc.Draw()->DrawImage(ImageID("I_LOGO"), bounds.centerX() + 40, bounds.centerY() - 30, 1.5f, textColor, ALIGN_CENTER);
//dc.Draw()->DrawTextShadow(UBUNTU48, "PPSSPP", xres / 2, yres / 2 - 30, textColor, ALIGN_CENTER);
//dc.Draw()->DrawTextShadow(UBUNTU48, "PPSSPP", bounds.w / 2, bounds.h / 2 - 30, textColor, ALIGN_CENTER);
dc.SetFontScale(1.0f, 1.0f);
@@ -579,10 +575,6 @@ void CreditsScreen::CreateViews() {
@@ -701,10 +697,6 @@ void CreditsScreen::CreateViews() {
// Really need to redo this whole layout with some linear layouts...
int rightYOffset = 0;
@ -261,14 +266,14 @@ index a7284654b..2413d6c89 100644
root_->Add(new Button(cr->T("PPSSPP Forums"), new AnchorLayoutParams(260, 64, 10, NONE, NONE, 158, false)))->OnClick.Handle(this, &CreditsScreen::OnForums);
root_->Add(new Button(cr->T("Discord"), new AnchorLayoutParams(260, 64, 10, NONE, NONE, 232, false)))->OnClick.Handle(this, &CreditsScreen::OnDiscord);
root_->Add(new Button("www.ppsspp.org", new AnchorLayoutParams(260, 64, 10, NONE, NONE, 10, false)))->OnClick.Handle(this, &CreditsScreen::OnPPSSPPOrg);
@@ -591,20 +583,7 @@ void CreditsScreen::CreateViews() {
@@ -713,20 +705,7 @@ void CreditsScreen::CreateViews() {
#if PPSSPP_PLATFORM(ANDROID) || PPSSPP_PLATFORM(IOS)
root_->Add(new Button(cr->T("Share PPSSPP"), new AnchorLayoutParams(260, 64, NONE, NONE, 10, rightYOffset + 158, false)))->OnClick.Handle(this, &CreditsScreen::OnShare);
#endif
- if (System_GetPropertyBool(SYSPROP_APP_GOLD)) {
- root_->Add(new ImageView(ImageID("I_ICONGOLD"), IS_DEFAULT, new AnchorLayoutParams(100, 64, 10, 10, NONE, NONE, false)));
- root_->Add(new ImageView(ImageID("I_ICONGOLD"), "", IS_DEFAULT, new AnchorLayoutParams(100, 64, 10, 10, NONE, NONE, false)));
- } else {
- root_->Add(new ImageView(ImageID("I_ICON"), IS_DEFAULT, new AnchorLayoutParams(100, 64, 10, 10, NONE, NONE, false)));
- root_->Add(new ImageView(ImageID("I_ICON"), "", IS_DEFAULT, new AnchorLayoutParams(100, 64, 10, 10, NONE, NONE, false)));
- }
-}
-
@ -279,11 +284,11 @@ index a7284654b..2413d6c89 100644
- LaunchBrowser("https://central.ppsspp.org/buygold");
-#endif
- return UI::EVENT_DONE;
+ root_->Add(new ImageView(ImageID("I_ICON"), IS_DEFAULT, new AnchorLayoutParams(100, 64, 10, 10, NONE, NONE, false)));
+ root_->Add(new ImageView(ImageID("I_ICON"), "", IS_DEFAULT, new AnchorLayoutParams(100, 64, 10, 10, NONE, NONE, false)));
}
UI::EventReturn CreditsScreen::OnTwitter(UI::EventParams &e) {
@@ -794,11 +773,7 @@ void CreditsScreen::render() {
@@ -916,11 +895,7 @@ void CreditsScreen::render() {
// TODO: This is kinda ugly, done on every frame...
char temp[256];
@ -297,10 +302,10 @@ index a7284654b..2413d6c89 100644
UIContext &dc = *screenManager()->getUIContext();
diff --git a/UWP/PPSSPP_UWPMain.cpp b/UWP/PPSSPP_UWPMain.cpp
index 0ba7fac4b..d1b687c47 100644
index 29afda806..b7028fc0c 100644
--- a/UWP/PPSSPP_UWPMain.cpp
+++ b/UWP/PPSSPP_UWPMain.cpp
@@ -433,12 +433,6 @@ bool System_GetPropertyBool(SystemProperty prop) {
@@ -426,12 +426,6 @@ bool System_GetPropertyBool(SystemProperty prop) {
return false;
case SYSPROP_HAS_BACK_BUTTON:
return true;
@ -310,14 +315,14 @@ index 0ba7fac4b..d1b687c47 100644
-#else
- return false;
-#endif
case SYSPROP_CAN_JIT:
return true;
default:
return false;
}
diff --git a/Windows/MainWindowMenu.cpp b/Windows/MainWindowMenu.cpp
index 979a60ecb..a57927544 100644
index c0d790e06..e8de4f956 100644
--- a/Windows/MainWindowMenu.cpp
+++ b/Windows/MainWindowMenu.cpp
@@ -1393,7 +1393,7 @@ namespace MainWindow {
@@ -1395,7 +1395,7 @@ namespace MainWindow {
{
W32Util::CenterWindow(hDlg);
HWND versionBox = GetDlgItem(hDlg, IDC_VERSION);
@ -327,10 +332,10 @@ index 979a60ecb..a57927544 100644
SetWindowText(versionBox, ConvertUTF8ToWString(windowText).c_str());
}
diff --git a/Windows/main.cpp b/Windows/main.cpp
index 4d948cfe5..e609cc1e0 100644
index ecfe18fa4..3261151d2 100644
--- a/Windows/main.cpp
+++ b/Windows/main.cpp
@@ -301,12 +301,6 @@ bool System_GetPropertyBool(SystemProperty prop) {
@@ -304,12 +304,6 @@ bool System_GetPropertyBool(SystemProperty prop) {
return true;
case SYSPROP_HAS_BACK_BUTTON:
return true;
@ -340,26 +345,43 @@ index 4d948cfe5..e609cc1e0 100644
-#else
- return false;
-#endif
case SYSPROP_CAN_JIT:
return true;
default:
return false;
}
diff --git a/android/jni/app-android.cpp b/android/jni/app-android.cpp
index 10fdf97e5..736b1fa66 100644
index 2fad16224..8ed6dd9cd 100644
--- a/android/jni/app-android.cpp
+++ b/android/jni/app-android.cpp
@@ -437,12 +437,6 @@ bool System_GetPropertyBool(SystemProperty prop) {
@@ -490,12 +490,6 @@ bool System_GetPropertyBool(SystemProperty prop) {
case SYSPROP_HAS_FOLDER_BROWSER:
// Uses OPEN_DOCUMENT_TREE to let you select a folder.
return androidVersion >= 21;
return androidVersion >= 21; // when ACTION_OPEN_DOCUMENT_TREE was added
- case SYSPROP_APP_GOLD:
-#ifdef GOLD
- return true;
-#else
- return false;
-#endif
default:
return false;
}
case SYSPROP_CAN_JIT:
return true;
case SYSPROP_ANDROID_SCOPED_STORAGE:
diff --git a/ios/main.mm b/ios/main.mm
index e53b7c7ab..fe69647ed 100644
--- a/ios/main.mm
+++ b/ios/main.mm
@@ -148,12 +148,6 @@ bool System_GetPropertyBool(SystemProperty prop) {
switch (prop) {
case SYSPROP_HAS_BACK_BUTTON:
return false;
- case SYSPROP_APP_GOLD:
-#ifdef GOLD
- return true;
-#else
- return false;
-#endif
case SYSPROP_CAN_JIT:
return g_jitAvailable;
--
2.30.1
2.31.1

27
gnu/packages/patches/wgetpaste-update-bpaste.patch
View File

@ -1,27 +0,0 @@
From: Tobias Geerinckx-Rice <me@tobias.gr>
Date: Tue, 01 Sep 2020 04:23:25 +0200
Subject: [PATCH] Update bpaste URL & regular expressions.
diff -Naur wgetpaste-2.30/wgetpaste wgetpaste-2.30a/wgetpaste
--- wgetpaste-2.30/wgetpaste 2020-07-31 23:56:05.000000000 +0200
+++ wgetpaste-2.30a/wgetpaste 2020-09-01 04:22:37.499898403 +0200
@@ -16,7 +16,7 @@
SERVICES="codepad bpaste dpaste gists snippets"
# bpaste
ENGINE_bpaste=pinnwand
-URL_bpaste="https://bpaste.net/"
+URL_bpaste="https://bpa.st/"
DEFAULT_EXPIRATION_bpaste="1week"
DEFAULT_LANGUAGE_bpaste="text"
# codepad
@@ -194,8 +194,8 @@
xml+velocity xml xquery xslt xtend yaml"
EXPIRATIONS_pinnwand="1day 1week 1month never"
POST_pinnwand="submit=Paste! % % lexer expiry % code"
-REGEX_LOC_pinnwand="\(/show/[^ ]*\).*$|https://bpaste.net\1"
-REGEX_RAW_pinnwand='s|^\(https\?://[^/]*/\)show\(/[^ ]*/\?\)$|\1raw\2|'
+REGEX_LOC_pinnwand="\(/[^ ]*\).*$|https://bpa.st\1"
+REGEX_RAW_pinnwand='s|^\(https\?://[^/]*\)\(/[^ ]*/\?\)$|\1/raw\2|'
### errors
die() {

143
gnu/packages/pep.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016, 2020 Hartmut Goebel <h.goebel@crazy-compilers.com>
;;; Copyright © 2016, 2020, 2021 Hartmut Goebel <h.goebel@crazy-compilers.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -20,18 +20,20 @@
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (guix git-download)
#:use-module (guix hg-download)
#:use-module (guix build-system gnu)
#:use-module (guix build-system python)
#:use-module (gnu packages)
#:use-module (gnu packages base)
#:use-module (gnu packages boost)
#:use-module (gnu packages check)
#:use-module (gnu packages documentation)
#:use-module (gnu packages graphviz)
#:use-module (gnu packages java)
#:use-module (gnu packages linux)
#:use-module (gnu packages mail) ; for libetpan
#:use-module (gnu packages nettle)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages python-xyz)
#:use-module (gnu packages sequoia)
#:use-module (gnu packages sqlite)
#:use-module (gnu packages tls)
@ -40,15 +42,16 @@
(define-public yml2
(package
(name "yml2")
(version "2.6.3")
(source (origin
(method hg-fetch)
(uri (hg-reference
(url "https://pep.foundation/dev/repos/yml2")
(changeset version)))
(file-name (string-append name "-" version "-checkout"))
(version "2.7.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://gitea.pep.foundation/fdik/yml2")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "10jjjyq1mz18zkzvxd62aba00h69gd9cglisqcvb81j67ml2v1bx"))))
(base32 "0fm1x1fv4lwcpbn59s55idzf7x173n59xpz8rlrxalmi6gvsjijr"))))
(build-system python-build-system)
(propagated-inputs
`(("python-lxml" ,python-lxml)))
@ -64,9 +67,9 @@ shell provides options to redirect the output into a pipe or a file.")
(define fdik-libetpan
;; pEp Engine requires libetpan with a set of patches that have not been
;; upstreamed yet.
(let ((commit "210ba2b3b310b8b7a6ee4a4e35e50f7fa379643f") ; 2020-06-03
(checksum "00000nij3ray7nssvq0lzb352wmnab8ffzk7dgff2c68mvjbh1l6")
(revision "5"))
(let ((commit "0b80c39dd1504462ba3a39dc53db7c960c3a63f3") ; 2020-11-27
(checksum "0gv3ivaziadybjlf6rfpv1j5z5418243v5cvl4swlxd2njsh7gjk")
(revision "6"))
(package
(inherit libetpan)
(name "fdik-libetpan")
@ -76,7 +79,7 @@ shell provides options to redirect the output into a pipe or a file.")
(inherit (package-source libetpan))
(method git-fetch)
(uri (git-reference
(url "https://github.com/fdik/libetpan")
(url "https://gitea.pep.foundation/pEp.foundation/libetpan")
(commit commit)))
(file-name (string-append name "-" version))
(sha256 (base32 checksum)))))))
@ -84,23 +87,24 @@ shell provides options to redirect the output into a pipe or a file.")
(define-public pep-engine
(package
(name "pep-engine")
(version "2.0.6")
(version "2.1.34")
(source
(origin
(method hg-fetch)
(uri (hg-reference
(url "https://pep.foundation/dev/repos/pEpEngine")
(changeset "ebb62ba262dd"))) ;; r4721
(file-name (string-append name "-" version "-checkout"))
(method git-fetch)
(uri (git-reference
(url "https://gitea.pep.foundation/pEp.foundation/pEpEngine")
(commit (string-append "Release_" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0ljf79j4ng7l8w6pbdcrfzb4yk51zslypvq0n72ib1d7grqvnagi"))))
(base32 "00q96y9j985qfa382acsz02i0zf6ayq2gmg8z70jzl04isg1h3cn"))))
(build-system gnu-build-system)
(arguments
'(#:parallel-build? #f
#:make-flags '("NDEBUG=1") ; release build
#:phases
(modify-phases %standard-phases
(replace 'configure
;; pEpEngie does not use autotools and configure,
;; pEpEngine does not use autotools and configure,
;; but a local.conf. We need to tweak the values there.
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
@ -131,7 +135,7 @@ OPENPGP=SEQUOIA
("libiconv" ,libiconv)
("nettle" ,nettle)
("openssl" ,openssl)
("sequoia" ,sequoia4pEp)
("sequoia" ,sequoia)
("sqlite3" ,sqlite)
("util-linux" ,util-linux "lib"))) ;; uuid.h
(home-page "https://pep.foundation/")
@ -145,20 +149,21 @@ privacy).")
(define-public libpepadapter
(package
(name "libpepadapter")
(version "2.0.2")
(version "2.1.21")
(source
(origin
(method hg-fetch)
(uri (hg-reference
(url "https://pep.foundation/dev/repos/libpEpAdapter")
(changeset "e8fe371c870a"))) ;; r168
(file-name (string-append name "-" version "-checkout"))
(method git-fetch)
(uri (git-reference
(url "https://gitea.pep.foundation/pEp.foundation/libpEpAdapter")
(commit (string-append "Release_" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1mlpavjbnmslvmr5jxcvpjgb2x40nhmxjb10hza3kn4qzj0k1pjz"))))
(base32 "09ljj3x09y99wc47n063hpn62zi8cdvdha82rnaypvirrlga6a5w"))))
(build-system gnu-build-system)
(arguments
'(#:test-target "test"
#:tests? #f ;; building the tests fails
#:make-flags '("NDEBUG=1") ; release build
#:phases
(modify-phases %standard-phases
(replace 'configure
@ -168,7 +173,7 @@ privacy).")
(let ((out (assoc-ref outputs "out"))
(engine (assoc-ref inputs "pep-engine")))
(with-output-to-file "local.conf"
(lambda _ ;()
(lambda _
(format #t "
PREFIX=~a
ENGINE_LIB_PATH=~a/lib
@ -186,16 +191,16 @@ ENGINE_INC_PATH=~a/include
(define-public python-pep-adapter
(package
(name "python-pep-adapter")
(version "2.0.5")
(version "2.1.3")
(source
(origin
(method hg-fetch)
(uri (hg-reference
(url "https://pep.foundation/dev/repos/pEpPythonAdapter")
(changeset "66df0e5b9405"))) ;; r374
(file-name (string-append name "-" version "-checkout"))
(method git-fetch)
(uri (git-reference
(url "https://gitea.pep.foundation/pEp.foundation/pEpPythonAdapter")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "107i1s8jf8gyhpmqcs64q9csxa3fwc8g7s57iyccqb4czw8gph6d"))))
(base32 "0ssz21p1k7xx3snmd4g3ggzq565rlzdmp90l2mph6yfp1y65p39s"))))
(build-system python-build-system)
(arguments
`(;; Adding configure-flags does not work, running `build_ext`
@ -223,12 +228,24 @@ ENGINE_INC_PATH=~a/include
(string-append a "os.getenv('LIBRARY_PATH', '').split(os.pathsep)\n"))
(("^(\\s+SYS_SHARES = )\\['/usr.*" _ a)
(string-append a "['" (assoc-ref %build-inputs "asn1c") "/share']\n")))
#t))
(add-before 'build 'remove-wheel-requirement
;; we dont't build a wheel
(lambda _
(substitute* "setup.cfg"
((" wheel *>= [0-9.]*") ""))
(substitute* "pyproject.toml"
(("\"wheel *>=.*\"") ""))
#t)))))
(native-inputs
`(("python-pytest" ,python-pytest)
("python-pytest-forked" ,python-pytest-forked)))
(inputs
`(("asn1c" ,asn1c)
("boost-python" ,boost-with-python3)
`(("boost-python" ,boost-with-python3)
("libpepadapter" ,libpepadapter)
("pep-engine" ,pep-engine)))
("pep-engine" ,pep-engine)
("python-setuptools-scm" ,python-setuptools-scm/next)
("util-linux" ,util-linux "lib"))) ;; uuid.h
(home-page "https://pep.foundation/")
(synopsis "Python adapter for p≡p (pretty Easy Privacy)")
(description "The p≡p Python adapter is an adaptor interface to the p≡p
@ -238,35 +255,26 @@ ENGINE_INC_PATH=~a/include
(define-public java-pep-adapter
(package
(name "java-pep-adapter")
(version "2.0.5")
(version "2.1.23")
(source
(origin
(method hg-fetch)
(uri (hg-reference
(url "https://pep.foundation/dev/repos/pEpJNIAdapter")
(changeset "534537c9cd50"))) ;; r763
(file-name (string-append name "-" version "-checkout"))
(method git-fetch)
(uri (git-reference
(url "https://gitea.pep.foundation/pEp.foundation/pEpJNIAdapter")
(commit (string-append "Release_" version))))
(file-name (git-file-name name version))
(sha256
(base32 "107ldpssc80bq8kndn2n000000gphj4lqagaiv3fddlfph4vji48"))))
(base32 "1sw3a5ggxcrkghvpp0a6h2lz461x55ldgfw5y4pw7c3gk5wynvjk"))))
(build-system gnu-build-system)
(outputs '("out" "doc"))
(arguments
`(#:test-target "test"
#:make-flags (list "doxy-all")
#:make-flags '("NDEBUG=1" "all" "doc") ; release build
#:phases
(modify-phases %standard-phases
(add-before 'configure 'fix-includes
(lambda _
(substitute* "src/jniutils.hh"
(("#pragma once\n" line)
(string-append line
"#include <mutex>\n"
"#include <cassert>\n"
"#include <cstring>\n")))
#t))
(add-before 'configure 'pin-shared-lib-path
(lambda* (#:key outputs #:allow-other-keys)
(substitute* "src/foundation/pEp/jniadapter/AbstractEngine.java"
(substitute* "src/java/foundation/pEp/jniadapter/AbstractEngine.java"
(("System.loadLibrary\\(\"pEpJNI\"\\);")
(string-append "System.load(\""
(assoc-ref outputs "out")
@ -281,7 +289,7 @@ ENGINE_INC_PATH=~a/include
(libadapter (assoc-ref inputs "libpepadapter"))
(openjdk (assoc-ref inputs "openjdk")))
(with-output-to-file "local.conf"
(lambda _ ;()
(lambda _
(format #t "
PREFIX=~a
ENGINE_LIB_PATH=~a/lib
@ -296,16 +304,18 @@ JAVA_HOME=~a
(substitute* "src/Makefile" ;; suppress some warnings
(("^\\s+OLD_JAVA=") " xxx_OLD_JAVA="))
#t)))
(add-before 'build 'build-codegen
;; run codegen first to allow parallel build of other parts
(lambda _
(invoke "make" "-C" "src" "create-dirs" "codegen")))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(libout (string-append out "/lib/"))
(javaout (string-append out "/share/java/")))
(mkdir-p libout)
(mkdir-p javaout)
(copy-file "src/libpEpJNI.so"
(string-append libout "/libpEpJNI.so"))
(copy-file "src/pEp.jar" (string-append javaout "/pEp.jar"))
(install-file "dist/libpEpJNI.a" libout)
(install-file "dist/libpEpJNI.so" libout)
(install-file "dist/pEp.jar" javaout)
#t)))
(add-after 'install 'install-docs
(lambda* (#:key outputs #:allow-other-keys)
@ -320,13 +330,14 @@ JAVA_HOME=~a
#t))))))
(native-inputs
`(("doxygen" ,doxygen)
("graphviz" ,graphviz)
("openjdk" ,openjdk9 "jdk")
("which" ,which)
("yml2" ,yml2)))
(inputs
`(("libpepadapter" ,libpepadapter)
("pep-engine" ,pep-engine)
("util-linux" ,util-linux))) ;; uuid.h
("util-linux" ,util-linux "lib"))) ;; uuid.h
(home-page "https://pep.foundation/")
(synopsis "Java adapter for p≡p (pretty Easy Privacy)")
(description "The p≡p JNI adapter is a Java adapter interface to the p≡p

156
gnu/packages/perl.scm
View File

@ -9,7 +9,7 @@
;;; Copyright © 2016, 2017, 2018, 2019, 2020, 2021 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 Nikita <nikita@n0.is>
;;; Copyright © 2016 Alex Sassmannshausen <alex@pompo.co>
;;; Copyright © 2016, 2018, 2020 Roel Janssen <roel@gnu.org>
;;; Copyright © 2016, 2018, 2020, 2021 Roel Janssen <roel@gnu.org>
;;; Copyright © 2016 Ben Woodcroft <donttrustben@gmail.com>
;;; Copyright © 2016, 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2017 Raoul J.P. Bonnal <ilpuccio.febo@gmail.com>
@ -666,6 +666,25 @@ presence, and the first one found is executed. With an optional parameter,
all known commands are checked.")
(license (package-license perl))))
(define-public perl-bsd-resource
(package
(name "perl-bsd-resource")
(version "1.2911")
(source
(origin
(method url-fetch)
(uri (string-append
"https://cpan.metacpan.org/authors/id/J/JH/JHI/BSD-Resource-"
version ".tar.gz"))
(sha256
(base32 "0g8c7825ng2m0yz5sy6838rvfdl8j3vm29524wjgf66ccfhgn74x"))))
(build-system perl-build-system)
(home-page "https://metacpan.org/release/BSD-Resource")
(synopsis "BSD process resource limit and priority functions")
(description "This package provides procedures to get and set resource
limits like @code{getrlimit} and @code{setpriority}.")
(license license:artistic2.0)))
(define-public perl-b-hooks-endofscope
(package
(name "perl-b-hooks-endofscope")
@ -1917,6 +1936,32 @@ of the style used by the Git version control system.")
and writing of @code{.ini}-style configuration files.")
(license (package-license perl))))
(define-public perl-const-fast
(package
(name "perl-const-fast")
(version "0.014")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://cpan/authors/id/L/LE/LEONT/"
"Const-Fast-" version ".tar.gz"))
(sha256
(base32
"1nwlldgrx86yn7y6a53cqgvzm2ircsvxg1addahlcy6510x9a1gq"))))
(inputs
`(("perl-module-build-tiny" ,perl-module-build-tiny)
("perl-test-fatal" ,perl-test-fatal)))
;; Needed for tests.
(native-inputs
`(("perl-sub-exporter-progressive" ,perl-sub-exporter-progressive)))
(build-system perl-build-system)
(home-page "https://metacpan.org/release/Const-Fast")
(synopsis "Facility for creating read-only scalars, arrays, and hashes")
(description "This package provides prodecures to create read-only
scalars, arrays, and hashes.")
(license (package-license perl))))
(define-public perl-context-preserve
(package
(name "perl-context-preserve")
@ -2481,6 +2526,27 @@ generating unique ids. These ids are coded with a Base62 system to make them
short and handy (e.g. to use it as part of a URL).")
(license (package-license perl))))
(define-public perl-data-uuid
(package
(name "perl-data-uuid")
(version "1.226")
(source (origin
(method url-fetch)
(uri (string-append
"mirror://cpan/authors/id/R/RJ/RJBS/"
"Data-UUID-" version ".tar.gz"))
(sha256
(base32
"0lv4k4ibxwkw7zz9hw97s34za9nvjxb4kbmgmx5sj4fll3zmfg89"))))
(build-system perl-build-system)
(home-page "https://metacpan.org/release/Data-UUID")
(synopsis "Universally Unique Identifiers generator")
(description "@code{Data::UUID} provides a framework for generating
Universally Unique Identifiers (UUIDs), also known as Globally Unique
Identifiers (GUIDs). A UUID is 128 bits long, and is guaranteed to be
different from all other UUIDs/GUIDs generated until 3400 CE.")
(license (package-license perl))))
(define-public perl-data-dump
(package
(name "perl-data-dump")
@ -4178,6 +4244,27 @@ and alternative installers with the `installler` option. But it's written in
only about 40% as many lines of code and with zero non-core dependencies.")
(license (package-license perl))))
(define-public perl-extutils-manifest
(package
(name "perl-extutils-manifest")
(version "1.73")
(source (origin
(method url-fetch)
(uri (string-append
"https://cpan.metacpan.org/authors/id/E/ET/ETHER/"
"ExtUtils-Manifest-" version ".tar.gz"))
(sha256
(base32
"1y5siyw9sbxq6kdmsjfsx0mrbqb6xr8kmniwli7xc6hbmhyhcp6w"))))
(build-system perl-build-system)
(home-page "https://metacpan.org/release/ExtUtils-Manifest")
(synopsis "Utilities to write and check a MANIFEST file")
(description "This package contains functions to manipulate a MANIFEST
file. The package exports no functions by default. The following are exported
on request: mkmanifest, manifind, manicheck, filecheck, fullcheck, skipcheck,
maniread, maniskip, manicopy, maniadd.")
(license (package-license perl))))
(define-public perl-extutils-installpaths
(package
(name "perl-extutils-installpaths")
@ -5780,6 +5867,52 @@ logging mechanism.")
@code{Log::Any} adapter using @code{Log::Log4perl} for logging.")
(license (package-license perl))))
(define-public perl-log-message
(package
(name "perl-log-message")
(version "0.08")
(source (origin
(method url-fetch)
(uri (string-append
"mirror://cpan/authors/id/B/BI/BINGOS/Log-Message-"
version ".tar.gz"))
(sha256
(base32
"0ipyk7zbvz31kf3mj5ahwi2cbcfy54s8387hx4cd29mg5bb7ssdx"))))
(build-system perl-build-system)
(home-page "https://metacpan.org/release/Log-Message")
(synopsis "Powerful and flexible message logging mechanism")
(description "This package enables you to do generic message logging
throughout programs and projects. Every message will be logged with
stacktraces, timestamps and so on. You can use built-in handlers
immediately, or after the fact when you inspect the error stack. It
is highly configurable and let's you even provide your own handlers
for dealing with messages.")
(license (package-license perl))))
(define-public perl-log-message-simple
(package
(name "perl-log-message-simple")
(version "0.10")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://cpan/authors/id/B/BI/BINGOS/Log-Message-Simple-"
version ".tar.gz"))
(sha256
(base32
"15nxi935nfrf8dkdrgvcrf2qlai4pbz03yj8sja0n9mcq2jd24ma"))))
(build-system perl-build-system)
(inputs
`(("perl-log-message" ,perl-log-message)))
(home-page "https://metacpan.org/release/Log-Message-Simple")
(synopsis "Simplified interface to @code{Log::Message}")
(description "This package provides a simplified frontend to
@code{Log::Message}, offering most common use for logging, and easy access to
the stack (in both raw and pretty-printable form).")
(license (package-license perl))))
(define-public perl-log-log4perl
(package
(name "perl-log-log4perl")
@ -8825,6 +8958,27 @@ collector.")
(description "Set::Infinite is a set theory module for infinite sets.")
(license (package-license perl))))
(define-public perl-set-intervaltree
(package
(name "perl-set-intervaltree")
(version "0.12")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://cpan/authors/id/S/SL/SLOYD/Set-IntervalTree-"
version ".tar.gz"))
(sha256
(base32 "0jf3vdmdgxx6a9xrfwnbbs9g37i1i6qhfg5qwln8x5i280701m3g"))))
(build-system perl-build-system)
(native-inputs
`(("perl-extutils-cppguess" ,perl-extutils-cppguess)))
(home-page "https://metacpan.org/release/Set-IntervalTree")
(synopsis "Perform range-based lookups on sets of ranges")
(description "This package provides an efficient mechanism to look up
ranges in Interval Trees.")
(license (package-license perl))))
(define-public perl-set-intspan
(package
(name "perl-set-intspan")

4
gnu/packages/php.scm
View File

@ -60,7 +60,7 @@
(define-public php
(package
(name "php")
(version "7.4.19")
(version "7.4.20")
(home-page "https://secure.php.net/")
(source (origin
(method url-fetch)
@ -68,7 +68,7 @@
"php-" version ".tar.xz"))
(sha256
(base32
"1ck72j56a4xw2s8hirgblfh74g5nkf4xwllp9mlwn72198n1f5vc"))
"0db3nqfbfqfd8fkvrw1k8l6698qcbzv1v5j8rgr0ny0dg6k6r90z"))
(modules '((guix build utils)))
(snippet
'(with-directory-excursion "ext"

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