me
/
guix
Archived
1
0
Fork 0
Code

Merge branch 'master' into emacs-team

master
Liliana Marie Prikler 2024-03-27 05:22:31 +01:00
parent a9e65e0341 929ddec8f4
commit 4c70f5242b
No known key found for this signature in database
GPG Key ID: 442A84B8C70E2F87
156 changed files with 54487 additions and 2777 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Makefile.am
View File

@ -426,6 +426,10 @@ AUX_FILES = \
gnu/packages/aux-files/emacs/guix-emacs.el \
gnu/packages/aux-files/findclass.php \
gnu/packages/aux-files/guix.vim \
gnu/packages/aux-files/linux-libre/6.8-arm.conf \
gnu/packages/aux-files/linux-libre/6.8-arm64.conf \
gnu/packages/aux-files/linux-libre/6.8-i686.conf \
gnu/packages/aux-files/linux-libre/6.8-x86_64.conf \
gnu/packages/aux-files/linux-libre/6.7-arm.conf \
gnu/packages/aux-files/linux-libre/6.7-arm64.conf \
gnu/packages/aux-files/linux-libre/6.7-i686.conf \

24
doc/build.scm
View File

@ -365,7 +365,7 @@ actual file name."
#:languages
languages))
(syntax-css-url
"/static/base/css/code.css"))
"/themes/initial/css/code.css"))
"Return a derivation called NAME that processes all the HTML files in INPUT
to (1) add them a link to SYNTAX-CSS-URL, and (2) highlight the syntax of all
its <pre class=\"lisp\"> blocks (as produced by 'makeinfo --html')."
@ -624,7 +624,7 @@ its <pre class=\"lisp\"> blocks (as produced by 'makeinfo --html')."
#:key
(languages %languages)
(manual %manual)
(manual-css-url "/static/base/css/manual.css"))
(manual-css-url "/themes/initial/css/manual.css"))
"Process all the HTML files in INPUT; add them MANUAL-CSS-URL as a <style>
link, and add a menu to choose among LANGUAGES. Use the Guix PO files found
in SOURCE."
@ -741,7 +741,7 @@ in SOURCE."
(list (menu-dropdown
#:label
`(img (@ (alt "Language")
(src "/static/base/img/language-picker.svg")))
(src "/themes/initial/img/language-picker.svg")))
#:items
(language-menu-items file)))
#:split-node? split-node?)
@ -1141,16 +1141,16 @@ must be the Guix top-level source directory, from which PO files are taken."
;; Menu prefetch.
(link (@ (rel "prefetch") (href ,(guix-url "menu/index.html"))))
;; Base CSS.
(link (@ (rel "stylesheet") (href ,(guix-url "static/base/css/elements.css"))))
(link (@ (rel "stylesheet") (href ,(guix-url "static/base/css/common.css"))))
(link (@ (rel "stylesheet") (href ,(guix-url "static/base/css/messages.css"))))
(link (@ (rel "stylesheet") (href ,(guix-url "static/base/css/navbar.css"))))
(link (@ (rel "stylesheet") (href ,(guix-url "static/base/css/breadcrumbs.css"))))
(link (@ (rel "stylesheet") (href ,(guix-url "static/base/css/buttons.css"))))
(link (@ (rel "stylesheet") (href ,(guix-url "static/base/css/footer.css"))))
(link (@ (rel "stylesheet") (href ,(guix-url "themes/initial/css/elements.css"))))
(link (@ (rel "stylesheet") (href ,(guix-url "themes/initial/css/common.css"))))
(link (@ (rel "stylesheet") (href ,(guix-url "themes/initial/css/messages.css"))))
(link (@ (rel "stylesheet") (href ,(guix-url "themes/initial/css/navbar.css"))))
(link (@ (rel "stylesheet") (href ,(guix-url "themes/initial/css/breadcrumbs.css"))))
(link (@ (rel "stylesheet") (href ,(guix-url "themes/initial/css/buttons.css"))))
(link (@ (rel "stylesheet") (href ,(guix-url "themes/initial/css/footer.css"))))
(link (@ (rel "stylesheet") (href ,(guix-url "static/base/css/page.css"))))
(link (@ (rel "stylesheet") (href ,(guix-url "static/base/css/post.css")))))
(link (@ (rel "stylesheet") (href ,(guix-url "themes/initial/css/page.css"))))
(link (@ (rel "stylesheet") (href ,(guix-url "themes/initial/css/post.css")))))
(body
(header (@ (class "navbar"))
(h1 (a (@ (class "branding")

254
doc/contributing.texi
View File

@ -23,7 +23,8 @@ choice.
* Building from Git:: The latest and greatest.
* Running Guix Before It Is Installed:: Hacker tricks.
* The Perfect Setup:: The right tools.
* Alternative Setups:: Other posible tools that do the job.
* Alternative Setups:: Other possible tools that do the job.
* Source Tree Structure:: Source code guided tour.
* Packaging Guidelines:: Growing the distribution.
* Coding Style:: Hygiene of the contributor.
* Submitting Patches:: Share your work.
@ -546,6 +547,257 @@ In NeoVim you can even make a similar setup to Geiser using
process and inject your code there live (sadly it's not packaged in Guix yet).
@node Source Tree Structure
@section Source Tree Structure
@cindex structure, of the source tree
If you're willing to contribute to Guix beyond packages, or if you'd
like to learn how it all fits together, this section provides a guided
tour in the code base that you may find useful.
Overall, the Guix source tree contains almost exclusively Guile
@dfn{modules}, each of which can be seen as an independent library
(@pxref{Modules,,, guile, GNU Guile Reference Manual}).
The following table gives an overview of the main directories and what
they contain. Remember that in Guile, each module name is derived from
its file name---e.g., the module in file @file{guix/packages.scm} is
called @code{(guix packages)}.
@table @file
@item guix
This is the location of core Guix mechanisms. To illustrate what is
meant by ``core'', here are a few examples, starting from low-level
tools and going towards higher-level tools:
@table @code
@item (guix store)
Connecting to and interacting with the build daemon (@pxref{The Store}).
@item (guix derivations)
Creating derivations (@pxref{Derivations}).
@item (guix gexps)
Writing G-expressions (@pxref{G-Expressions}).
@item (guix packages)
Defining packages and origins (@pxref{package Reference}).
@item (guix download)
@itemx (guix git-download)
The @code{url-fetch} and @code{git-fetch} origin download methods
(@pxref{origin Reference}).
@item (guix swh)
Fetching source code from the
@uref{https://archive.softwareheritage.org,Software Heritage archive}.
@item (guix search-paths)
Implementing search paths (@pxref{Search Paths}).
@item (guix build-system)
The build system interface (@pxref{Build Systems}).
@item (guix profiles)
Implementing profiles.
@end table
@cindex build system, directory structure
@item guix/build-system
This directory contains specific build system implementations
(@pxref{Build Systems}), such as:
@table @code
@item (guix build-system gnu)
the GNU build system;
@item (guix build-system cmake)
the CMake build system;
@item (guix build-system pyproject)
The Python ``pyproject'' build system.
@end table
@item guix/build
This contains code generally used on the ``build side''
(@pxref{G-Expressions, strata of code}). This includes code used to
build packages or other operating system components, as well as
utilities:
@table @code
@item (guix build utils)
Utilities for package definitions and more (@pxref{Build Utilities}).
@item (guix build gnu-build-system)
@itemx (guix build cmake-build-system)
@itemx (guix build pyproject-build-system)
Implementation of build systems, and in particular definition of their
build phases (@pxref{Build Phases}).
@item (guix build syscalls)
Interface to the C library and to Linux system calls.
@end table
@cindex command-line tools, as Guile modules
@cindex command modules
@item guix/scripts
This contains modules corresponding to @command{guix} sub-commands. For
example, the @code{(guix scripts shell)} module exports the
@code{guix-shell} procedure, which directly corresponds to the
@command{guix shell} command (@pxref{Invoking guix shell}).
@cindex importer modules
@item guix/import
This contains supporting code for the importers and updaters
(@pxref{Invoking guix import}, and @pxref{Invoking guix refresh}). For
example, @code{(guix import pypi)} defines the interface to PyPI, which
is used by the @code{guix import pypi} command.
@end table
The directories we have seen so far all live under @file{guix/}. The
other important place is the @file{gnu/} directory, which contains
primarily package definitions as well as libraries and tools for Guix
System (@pxref{System Configuration}) and Guix Home (@pxref{Home
Configuration}), all of which build upon functionality provided by
@code{(guix @dots{})} modules@footnote{For this reason, @code{(guix
@dots{})} modules must generally not depend on @code{(gnu @dots{})}
modules, with notable exceptions: @code{(guix build-system @dots{})}
modules may look up packages at run time---e.g., @code{(guix
build-system cmake)} needs to access the @code{cmake} variable at run
time---, @code{(guix scripts @dots{})} often rely on @code{(gnu @dots{})}
modules, and the same goes for some of the @code{(guix import @dots{})}
modules.}.
@table @file
@cindex package modules
@item gnu/packages
This is by far the most crowded directory of the source tree: it
contains @dfn{package modules} that export package definitions
(@pxref{Package Modules}). A few examples:
@table @code
@item (gnu packages base)
Module providing ``base'' packages: @code{glibc}, @code{coreutils},
@code{grep}, etc.
@item (gnu packages guile)
Guile and core Guile packages.
@item (gnu packages linux)
The Linux-libre kernel and related packages.
@item (gnu packages python)
Python and core Python packages.
@item (gnu packages python-xyz)
Miscellaneous Python packages (we were not very creative).
@end table
In any case, you can jump to a package definition using @command{guix
edit} (@pxref{Invoking guix edit}) and view its location with
@command{guix show} (@pxref{Invoking guix package}).
@findex search-patches
@item gnu/packages/patches
This directory contains patches applied against packages and obtained
using the @code{search-patches} procedure.
@item gnu/services
This contains service definitions, primarily for Guix System
(@pxref{Services}) but some of them are adapted and reused for Guix Home
as we will see below. Examples:
@table @code
@item (gnu services)
The service framework itself, which defines the service and service type
data types (@pxref{Service Composition}).
@item (gnu services base)
``Base'' services (@pxref{Base Services}).
@item (gnu services desktop)
``Desktop'' services (@pxref{Desktop Services}).
@item (gnu services shepherd)
Support for Shepherd services (@pxref{Shepherd Services}).
@end table
You can jump to a service definition using @command{guix system edit}
and view its location with @command{guix system search} (@pxref{Invoking
guix system}).
@item gnu/system
These are core Guix System modules, such as:
@table @code
@item (gnu system)
Defines @code{operating-system} (@pxref{operating-system Reference}).
@item (gnu system file-systems)
Defines @code{file-system} (@pxref{File Systems}).
@item (gnu system mapped-devices)
Defines @code{mapped-device} (@pxref{Mapped Devices}).
@end table
@item gnu/build
These are modules that are either used on the ``build side'' when
building operating systems or packages, or at run time by operating
systems.
@table @code
@item (gnu build accounts)
Creating @file{/etc/passwd}, @file{/etc/shadow}, etc. (@pxref{User
Accounts}).
@item (gnu build activation)
Activating an operating system at boot time or reconfiguration time.
@item (gnu build file-systems)
Searching, checking, and mounting file systems.
@item (gnu build linux-boot)
@itemx (gnu build hurd-boot)
Booting GNU/Linux and GNU/Hurd operating systems.
@item (gnu build linux-initrd)
Creating a Linux initial RAM disk (@pxref{Initial RAM Disk}).
@end table
@item gnu/home
This contains all things Guix Home (@pxref{Home Configuration});
examples:
@table @code
@item (gnu home services)
Core services such as @code{home-files-service-type}.
@item (gnu home services ssh)
SSH-related services (@pxref{Secure Shell}).
@end table
@item gnu/installer
This contains the text-mode graphical system installer (@pxref{Guided
Graphical Installation}).
@item gnu/machine
These are the @dfn{machine abstractions} used by @command{guix deploy}
(@pxref{Invoking guix deploy}).
@item gnu/tests
This contains system tests---tests that spawn virtual machines to check
that system services work as expected (@pxref{Running the Test Suite}).
@end table
Last, there's also a few directories that contain files that are
@emph{not} Guile modules:
@table @file
@item nix
This is the C++ implementation of @command{guix-daemon}, inherited from
Nix (@pxref{Invoking guix-daemon}).
@item tests
These are unit tests, each file corresponding more or less to one
module, in particular @code{(guix @dots{})} modules (@pxref{Running the
Test Suite}).
@item doc
This is the documentation in the form of Texinfo files: this manual and
the Cookbook. @xref{Writing a Texinfo File,,, texinfo, GNU Texinfo},
for information on Texinfo markup language.
@item po
This is the location of translations of Guix itself, of package synopses
and descriptions, of the manual, and of the cookbook. Note that
@file{.po} files that live here are pulled directly from Weblate
(@pxref{Translating Guix}).
@item etc
Miscellaneous files: shell completions, support for systemd and other
init systems, Git hooks, etc.
@end table
With all this, a fair chunk of your operating system is at your
fingertips! Beyond @command{grep} and @command{git grep}, @pxref{The
Perfect Setup} on how to navigate code from your editor, and
@pxref{Using Guix Interactively} for information on how to use Scheme
modules interactively. Enjoy!
@node Packaging Guidelines
@section Packaging Guidelines

17
doc/guix-cookbook.texi
View File

@ -22,7 +22,7 @@ Copyright @copyright{} 2020 André Batista@*
Copyright @copyright{} 2020 Christine Lemmer-Webber@*
Copyright @copyright{} 2021 Joshua Branson@*
Copyright @copyright{} 2022, 2023 Maxim Cournoyer@*
Copyright @copyright{} 2023 Ludovic Courtès@*
Copyright @copyright{} 2023-2024 Ludovic Courtès@*
Copyright @copyright{} 2023 Thomas Ieong
Permission is granted to copy, distribute and/or modify this document
@ -5299,14 +5299,17 @@ export LC_ALL
For convenience, @code{guix package} automatically generates
@file{~/.guix-profile/etc/profile}, which defines all the environment
variables necessary to use the packages---@code{PATH},
@code{C_INCLUDE_PATH}, @code{PYTHONPATH}, etc. Thus it's a good idea to
source it from @code{/etc/profile}:
@code{C_INCLUDE_PATH}, @code{PYTHONPATH}, etc. Likewise, @command{guix
pull} does that under @file{~/.config/guix/current}. Thus it's a good
idea to source both from @code{/etc/profile}:
@example
GUIX_PROFILE="$HOME/.guix-profile"
if [ -f "$GUIX_PROFILE/etc/profile" ]; then
. "$GUIX_PROFILE/etc/profile"
fi
for GUIX_PROFILE in "$HOME/.config/guix/current" "$HOME/.guix-profile"
do
if [ -f "$GUIX_PROFILE/etc/profile" ]; then
. "$GUIX_PROFILE/etc/profile"
fi
done
@end example
Last but not least, Guix provides command-line completion notably for

82
doc/guix.texi
View File

@ -2728,20 +2728,20 @@ the Cryptsetup/LUKS utilities to do that (see @inlinefmtifelse{html,
@code{man cryptsetup}} for more information).
@quotation Warning
Note that GRUB can unlock LUKS2 devices since version 2.06, but only
supports the PBKDF2 key derivation function, which is not the default
for @command{cryptsetup luksFormat}. You can check which key derivation
function is being used by a device by running @command{cryptsetup
luksDump @var{device}}, and looking for the PBKDF field of your
keyslots.
While efforts are in progress to extend support to LUKS2, please note
that Guix only supports devices of type LUKS1 at the moment. You can
verify that your existing LUKS device is of the right type by running
@command{cryptsetup luksDump @var{device}}. Alternatively, you can
create a new LUKS1 device with @command{cryptsetup luksFormat --type
luks1 @var{device}}.
@end quotation
Assuming you want to store the root partition on @file{/dev/sda2}, the
command sequence to format it as a LUKS2 partition would be along these
command sequence to format it as a LUKS1 partition would be along these
lines:
@example
cryptsetup luksFormat --type luks2 --pbkdf pbkdf2 /dev/sda2
cryptsetup luksFormat --type luks1 /dev/sda2
cryptsetup open /dev/sda2 my-partition
mkfs.ext4 -L my-root /dev/mapper/my-partition
@end example
@ -3445,7 +3445,7 @@ Install the package @var{exp} evaluates to.
@var{exp} must be a Scheme expression that evaluates to a
@code{<package>} object. This option is notably useful to disambiguate
between same-named variants of a package, with expressions such as
@code{(@@ (gnu packages base) guile-final)}.
@code{(@@ (gnu packages commencement) guile-final)}.
Note that this option installs the first output of the specified
package, which may be insufficient when needing a specific output of a
@ -4727,7 +4727,9 @@ the user's @file{~/.config/guix/channels.scm} file, unless @option{-q}
is passed;
@item
the system-wide @file{/etc/guix/channels.scm} file, unless @option{-q}
is passed;
is passed (on Guix System, this file can be declared in the operating
system configuration, @pxref{guix-configuration-channels,
@code{channels} field of @code{guix-configuration}});
@item
the built-in default channels specified in the @code{%default-channels}
variable.
@ -5497,16 +5499,16 @@ $ wget -O - \
@cindex configuration file for channels
@cindex @command{guix pull}, configuration file
@cindex configuration of @command{guix pull}
Guix and its package collection are updated by running @command{guix pull}
(@pxref{Invoking guix pull}). By default @command{guix pull} downloads and
deploys Guix itself from the official GNU@tie{}Guix repository. This can be
customized by defining @dfn{channels} in the
@file{~/.config/guix/channels.scm} file. A channel specifies a URL and branch
of a Git repository to be deployed, and @command{guix pull} can be instructed
to pull from one or more channels. In other words, channels can be used
to @emph{customize} and to @emph{extend} Guix, as we will see below.
Guix is able to take into account security concerns and deal with authenticated
updates.
Guix and its package collection are updated by running @command{guix
pull}. By default @command{guix pull} downloads and deploys Guix itself
from the official GNU@tie{}Guix repository. This can be customized by
providing a file specifying the set of @dfn{channels} to pull from
(@pxref{Invoking guix pull}). A channel
specifies the URL and branch of a Git repository to be deployed, and
@command{guix pull} can be instructed to pull from one or more channels.
In other words, channels can be used to @emph{customize} and to
@emph{extend} Guix, as we will see below. Guix is able to take into
account security concerns and deal with authenticated updates.
@menu
* Specifying Additional Channels:: Extending the package collection.
@ -7632,6 +7634,9 @@ contain OpenPGP public keys in @file{.key} files, either in binary form
or ``ASCII-armored''. By default the keyring is loaded from the branch
named @code{keyring}.
@item --end=@var{commit}
Authenticate revisions up to @var{commit}.
@item --stats
Display commit signing statistics upon completion.
@ -7677,7 +7682,8 @@ assembly is to C programs. The term ``derivation'' comes from the fact
that build results @emph{derive} from them.
This chapter describes all these APIs in turn, starting from high-level
package definitions.
package definitions. @xref{Source Tree Structure}, for a more general
overview of the source code.
@menu
* Package Modules:: Packages from the programmer's viewpoint.
@ -19802,6 +19808,20 @@ few seconds when enough entropy is available and is only done once; you
might want to turn it off for instance in a virtual machine that does
not need it and where the extra boot time is a problem.
@anchor{guix-configuration-channels}
@item @code{channels} (default: @code{%default-channels})
List of channels to be specified in @file{/etc/guix/channels.scm}, which
is what @command{guix pull} uses by default (@pxref{Invoking guix
pull}).
@quotation Note
When reconfiguring a system, the existing @file{/etc/guix/channels.scm}
file is backed up as @file{/etc/guix/channels.scm.bak} if it was
determined to be a manually modified file. This is to facilitate
migration from earlier versions, which allowed for in-place
modifications to @file{/etc/guix/channels.scm}.
@end quotation
@item @code{max-silent-time} (default: @code{3600})
@itemx @code{timeout} (default: @code{(* 3600 24)})
The number of seconds of silence and the number of seconds of activity,
@ -21081,7 +21101,7 @@ the @code{loopback} Shepherd service.
@defvar %qemu-static-networking
This is the @code{static-networking} record representing network setup
when using QEMU's user-mode network stack on @code{eth0} (@pxref{Using
the user mode network stack,,, QEMU, QEMU Documentation}).
the user mode network stack,,, qemu, QEMU Documentation}).
@end defvar
@cindex DHCP, networking service
@ -22716,9 +22736,9 @@ Logging level.
This service type adds a list of known Facebook hosts to the
@file{/etc/hosts} file.
(@pxref{Host Names,,, libc, The GNU C Library Reference Manual})
Each line contains a entry that maps a known server name of the Facebook
on-line service---e.g., @code{www.facebook.com}---to the local
host---@code{127.0.0.1} or its IPv6 equivalent, @code{::1}.
Each line contains an entry that maps a known server name of the Facebook
on-line service---e.g., @code{www.facebook.com}---to unroutable IPv4 and
IPv6 addresses.
This mechanism can prevent programs running locally, such as Web
browsers, from accessing Facebook.
@ -28551,6 +28571,12 @@ Set of mechanisms that will never be offered. See
Defaults to @samp{'("DIGEST-MD5")}.
@end deftypevr
@deftypevr {@code{prosody-configuration} parameter} string-list insecure-sasl-mechanisms
Set of mechanisms that will not be offered on unencrypted connections.
See @url{https://prosody.im/doc/modules/mod_saslauth}.
Defaults to @samp{'("PLAIN" "LOGIN")}.
@end deftypevr
@deftypevr {@code{prosody-configuration} parameter} boolean s2s-require-encryption?
Whether to force all server-to-server connections to be encrypted or not.
See @url{https://prosody.im/doc/modules/mod_tls}.
@ -28630,7 +28656,7 @@ See @url{https://prosody.im/doc/configure#virtual_host_settings}.
Available @code{virtualhost-configuration} fields are:
all these @code{prosody-configuration} fields: @code{admins}, @code{use-libevent?}, @code{modules-enabled}, @code{modules-disabled}, @code{groups-file}, @code{allow-registration?}, @code{ssl}, @code{c2s-require-encryption?}, @code{disable-sasl-mechanisms}, @code{s2s-require-encryption?}, @code{s2s-secure-auth?}, @code{s2s-insecure-domains}, @code{s2s-secure-domains}, @code{authentication}, @code{log}, @code{http-max-content-size}, @code{http-external-url}, @code{raw-content}, plus:
all these @code{prosody-configuration} fields: @code{admins}, @code{use-libevent?}, @code{modules-enabled}, @code{modules-disabled}, @code{groups-file}, @code{allow-registration?}, @code{ssl}, @code{c2s-require-encryption?}, @code{disable-sasl-mechanisms}, @code{insecure-sasl-mechanisms}, @code{s2s-require-encryption?}, @code{s2s-secure-auth?}, @code{s2s-insecure-domains}, @code{s2s-secure-domains}, @code{authentication}, @code{log}, @code{http-max-content-size}, @code{http-external-url}, @code{raw-content}, plus:
@deftypevr {@code{virtualhost-configuration} parameter} string domain
Domain you wish Prosody to serve.
@end deftypevr
@ -28652,7 +28678,7 @@ Defaults to @samp{'()}.
Available @code{int-component-configuration} fields are:
all these @code{prosody-configuration} fields: @code{admins}, @code{use-libevent?}, @code{modules-enabled}, @code{modules-disabled}, @code{groups-file}, @code{allow-registration?}, @code{ssl}, @code{c2s-require-encryption?}, @code{disable-sasl-mechanisms}, @code{s2s-require-encryption?}, @code{s2s-secure-auth?}, @code{s2s-insecure-domains}, @code{s2s-secure-domains}, @code{authentication}, @code{log}, @code{http-max-content-size}, @code{http-external-url}, @code{raw-content}, plus:
all these @code{prosody-configuration} fields: @code{admins}, @code{use-libevent?}, @code{modules-enabled}, @code{modules-disabled}, @code{groups-file}, @code{allow-registration?}, @code{ssl}, @code{c2s-require-encryption?}, @code{disable-sasl-mechanisms}, @code{insecure-sasl-mechanisms}, @code{s2s-require-encryption?}, @code{s2s-secure-auth?}, @code{s2s-insecure-domains}, @code{s2s-secure-domains}, @code{authentication}, @code{log}, @code{http-max-content-size}, @code{http-external-url}, @code{raw-content}, plus:
@deftypevr {@code{int-component-configuration} parameter} string hostname
Hostname of the component.
@end deftypevr
@ -28705,7 +28731,7 @@ Defaults to @samp{'()}.
Available @code{ext-component-configuration} fields are:
all these @code{prosody-configuration} fields: @code{admins}, @code{use-libevent?}, @code{modules-enabled}, @code{modules-disabled}, @code{groups-file}, @code{allow-registration?}, @code{ssl}, @code{c2s-require-encryption?}, @code{disable-sasl-mechanisms}, @code{s2s-require-encryption?}, @code{s2s-secure-auth?}, @code{s2s-insecure-domains}, @code{s2s-secure-domains}, @code{authentication}, @code{log}, @code{http-max-content-size}, @code{http-external-url}, @code{raw-content}, plus:
all these @code{prosody-configuration} fields: @code{admins}, @code{use-libevent?}, @code{modules-enabled}, @code{modules-disabled}, @code{groups-file}, @code{allow-registration?}, @code{ssl}, @code{c2s-require-encryption?}, @code{disable-sasl-mechanisms}, @code{insecure-sasl-mechanisms}, @code{s2s-require-encryption?}, @code{s2s-secure-auth?}, @code{s2s-insecure-domains}, @code{s2s-secure-domains}, @code{authentication}, @code{log}, @code{http-max-content-size}, @code{http-external-url}, @code{raw-content}, plus:
@deftypevr {@code{ext-component-configuration} parameter} string component-secret
Password which the component will use to log in.
@end deftypevr

4
etc/guix-daemon.service.in
View File

@ -9,8 +9,8 @@ Description=Build daemon for GNU Guix
ExecStart=@localstatedir@/guix/profiles/per-user/root/current-guix/bin/guix-daemon \
--build-users-group=guixbuild --discover=no
Environment='GUIX_LOCPATH=@localstatedir@/guix/profiles/per-user/root/guix-profile/lib/locale' LC_ALL=en_US.utf8
StandardOutput=syslog
StandardError=syslog
StandardOutput=journal
StandardError=journal
# Work around a nasty systemd ‘feature’ that kills the entire process tree
# (including the daemon!) if any child, such as cc1plus, runs out of memory.

4
etc/guix-publish.service.in
View File

@ -11,8 +11,8 @@ After=guix-daemon.service
[Service]
ExecStart=@localstatedir@/guix/profiles/per-user/root/current-guix/bin/guix publish --user=nobody --port=8181
Environment='GUIX_LOCPATH=@localstatedir@/guix/profiles/per-user/root/guix-profile/lib/locale' LC_ALL=en_US.utf8
StandardOutput=syslog
StandardError=syslog
StandardOutput=journal
StandardError=journal
# Despite the name, this is rate-limited: a broken daemon will eventually fail.
Restart=always

71
etc/news.scm
View File

@ -1,6 +1,6 @@
;; GNU Guix news, for use by 'guix pull'.
;;
;; Copyright © 2019-2023 Ludovic Courtès <ludo@gnu.org>
;; Copyright © 2019-2024 Ludovic Courtès <ludo@gnu.org>
;; Copyright © 2019–2021 Tobias Geerinckx-Rice <me@tobias.gr>
;; Copyright © 2019, 2020 Miguel Ángel Arruga Vivas <rosen644835@gmail.com>
;; Copyright © 2019, 2020 Konrad Hinsen <konrad.hinsen@fastmail.net>
@ -28,6 +28,75 @@
(channel-news
(version 0)
(entry (commit "ff1251de0bc327ec478fc66a562430fbf35aef42")
(title
(en "Daemon vulnerability allowing store corruption has been fixed")
(de "Schwachstelle im Daemon behoben, durch die der Store verfälscht werden konnte")
(fr "Une faille du démon permettant de corrompre le dépôt a été corrigée"))
(body
(en "A vulnerability in the build daemon, @command{guix-daemon}, was
identified and fixed. The vulnerability would allow unprivileged users to
corrupt the result of @dfn{fixed-output derivations} such as source code
tarballs and Git checkouts, which in turn could lead to local privilege
escalation.
This bug is fixed and Guix System users are advised to upgrade their system,
with a command along the lines of:
@example
sudo guix system reconfigure /run/current-system/configuration.scm
sudo herd restart guix-daemon
@end example
If you are using Guix on another distro, run @command{info \"(guix) Upgrading
Guix\"} or visit
@uref{https://guix.gnu.org/manual/devel/en/html_node/Upgrading-Guix.html} to
learn how to upgrade Guix.
See @uref{https://issues.guix.gnu.org/69728} for more information on this
issue.")
(de "Eine Sicherheitslücke im Erstellungs-Daemon,
@command{guix-daemon}, wurde gefunden und geschlossen. Sie hatte es
unprivilegierten Nutzern ermöglicht, das Ergebnis einer @dfn{Ableitung mit
fester Ausgabe}, wie Quellcode-Tarballs und Git-Checkouts, zu manipulieren.
So war eine lokale Rechteausweitung möglich.
Der Fehler ist behoben und wir raten Nutzern von Guix System, ihr System zu
aktualisieren mit einem Befehl wie:
@example
sudo guix system reconfigure /run/current-system/configuration.scm
sudo herd restart guix-daemon
@end example
Wenn Sie Guix auf einer anderen Distribution verwenden, erfahren Sie mit dem
Befehl @command{info \"(guix.de) Aktualisieren von Guix\"} oder auf
@uref{https://guix.gnu.org/manual/devel/de/html_node/Aktualisieren-von-Guix.html},
wie Sie Guix aktualisieren.
Siehe @uref{https://issues.guix.gnu.org/69728} für mehr Informationen zu dem
Fehler.")
(fr "Une faille de sécurité du démon de compilation,
@command{guix-daemon}, a été identifiée et corrigée. La faille permettait à
un·e utilisateur·rice sans privilège de corrompre le résultat d'une
@dfn{dérivation à sortie fixe} telle qu'une archive ou un @i{checkout} Git, ce
qui peut ensuite permettre une élévation locale de privilèges.
Ce problème est corrigé et les utilisateur·rices de Guix System sont invité·es
à mettre à jour leur système avec une commande telle que :
@example
sudo guix system reconfigure /run/current-system/configuration.scm
sudo herd restart guix-daemon
@end example
Pour voir comment mettre à jour Guix sur une autre distribution, lancer
@command{info \"(guix.fr) Mettre à niveau Guix\"} ou visiter
@uref{https://guix.gnu.org/manual/devel/fr/html_node/Mettre-a-niveau-Guix.html}.
Voir @uref{https://issues.guix.gnu.org/69728} pour plus d'informations sur
cette anomalie.")))
(entry (commit "10a193596368443f441077525ebbddf787d91e4b")
(title
(en "Linux-libre 4.14 removed due to end of upstream support")

4
etc/teams.scm
View File

@ -587,6 +587,10 @@ GLib/GIO, GTK, GStreamer and Webkit."
"andreas@enge.fr")
lxqt science tex)
(define-member (person "Tanguy Le Carrour"
"tanguy@bioneland.org")
python home)
(define-member (person "Tobias Geerinckx-Rice"
"me@tobias.gr")
core kernel mentors)

4
etc/teams/qt/common.scm
View File

@ -16,10 +16,6 @@
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
;;; This file returns a manifest of packages related to linux-libre.
;;; Simplistically, it selects packages whose names begin with "linux-libre".
;;; It is used to assist continuous integration of the kernel packages.
(use-modules (guix packages)
(guix profiles)
(guix utils)

4
etc/teams/qt/qt-manifest.scm
View File

@ -16,10 +16,6 @@
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
;;; This file returns a manifest of packages related to linux-libre.
;;; Simplistically, it selects packages whose names begin with "linux-libre".
;;; It is used to assist continuous integration of the kernel packages.
(load "common.scm")
;;; Commentary:

4
etc/teams/qt/qt5-manifest.scm
View File

@ -16,10 +16,6 @@
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
;;; This file returns a manifest of packages related to linux-libre.
;;; Simplistically, it selects packages whose names begin with "linux-libre".
;;; It is used to assist continuous integration of the kernel packages.
(load "common.scm")
;;; Commentary:

24
etc/time-travel-manifest.scm
View File

@ -66,21 +66,19 @@
(define %release-commits
;; Release commits: the list of version/commit pairs.
;;
;; Note: To merely compute the derivation of these revisions, we need to be
;; able to build their dependencies. Some of them no longer build from
;; source due to time traps like <https://issues.guix.gnu.org/58650>; those
;; need to be built beforehand in a virtual build machine running "in the
;; past".
'(("1.4.0" . "8e2f32cee982d42a79e53fc1e9aa7b8ff0514714")
("1.3.0" . "a0178d34f582b50e9bdbb0403943129ae5b560ff")
;; FIXME: To merely compute the derivation of these revisions, we need to
;; be able to build their dependencies. However, pre-built binaries are
;; currently missing and some of these no longer build from source due to
;; time bombs like <https://issues.guix.gnu.org/58650>. Thus, comment
;; them output until we have substitutes for these old things.
;; ("1.2.0" . "a099685659b4bfa6b3218f84953cbb7ff9e88063")
;; ("1.1.0" . "d62c9b2671be55ae0305bebfda17b595f33797f2")
;; ("1.0.1" . "d68de958b60426798ed62797ff7c96c327a672ac")
;; ("1.0.0" . "6298c3ffd9654d3231a6f25390b056483e8f407c")
;; ("0.16.0" . "4a0b87f0ec5b6c2dcf82b372dd20ca7ea6acdd9c")
))
("1.2.0" . "a099685659b4bfa6b3218f84953cbb7ff9e88063")
("1.1.0" . "d62c9b2671be55ae0305bebfda17b595f33797f2")
("1.0.1" . "d68de958b60426798ed62797ff7c96c327a672ac")
("1.0.0" . "6298c3ffd9654d3231a6f25390b056483e8f407c")
("0.16.0" . "4a0b87f0ec5b6c2dcf82b372dd20ca7ea6acdd9c")))
(manifest
(map (match-lambda

5
gnu/home.scm
View File

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2021 Andrew Tropin <andrew@trop.in>
;;; Copyright © 2022 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2022, 2024 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -67,7 +67,8 @@
this-home-environment)))
(services home-environment-user-services
(default '()))
(default '())
(sanitize validate-service-list))
(location home-environment-location ; <location>
(default (and=> (current-source-location)

14
gnu/home/services/shepherd.scm
View File

@ -77,7 +77,19 @@ as shepherd package."
(use-modules (srfi srfi-34)
(system repl error-handling))
(register-services (map load '#$files))
(define (make-user-module)
;; Copied from (shepherd support), where it's private.
(let ((m (make-fresh-user-module)))
(module-use! m (resolve-interface '(shepherd service)))
m))
(register-services
(map (lambda (file)
(save-module-excursion
(lambda ()
(set-current-module (make-user-module))
(load file))))
'#$files))
#$@(if daemonize?
`((action 'root 'daemonize))

9
gnu/local.mk
View File

@ -425,6 +425,7 @@ GNU_SYSTEM_MODULES = \
%D%/packages/lisp-check.scm \
%D%/packages/lisp-xyz.scm \
%D%/packages/llvm.scm \
%D%/packages/llvm-meta.scm \
%D%/packages/lout.scm \
%D%/packages/logging.scm \
%D%/packages/logo.scm \
@ -487,6 +488,7 @@ GNU_SYSTEM_MODULES = \
%D%/packages/ntp.scm \
%D%/packages/nutrition.scm \
%D%/packages/nvi.scm \
%D%/packages/nx.scm \
%D%/packages/ocaml.scm \
%D%/packages/ocr.scm \
%D%/packages/openkinect.scm \
@ -1040,6 +1042,7 @@ dist_patch_DATA = \
%D%/packages/patches/clang-15.0-libc-search-path.patch \
%D%/packages/patches/clang-16.0-libc-search-path.patch \
%D%/packages/patches/clang-17.0-libc-search-path.patch \
%D%/packages/patches/clang-17.0-link-dsymutil-latomic.patch \
%D%/packages/patches/clang-runtime-asan-build-fixes.patch \
%D%/packages/patches/clang-runtime-esan-build-fixes.patch \
%D%/packages/patches/clang-runtime-9-libsanitizer-mode-field.patch \
@ -1514,6 +1517,7 @@ dist_patch_DATA = \
%D%/packages/patches/julia-SOURCE_DATE_EPOCH-mtime.patch \
%D%/packages/patches/julia-Use-MPFR-4.2.patch \
%D%/packages/patches/libcss-check-format.patch \
%D%/packages/patches/libextractor-tidy-support.patch \
%D%/packages/patches/libftdi-fix-paths-when-FTDIPP-set.patch \
%D%/packages/patches/libgeotiff-fix-tests-with-proj-9.1.1.patch \
%D%/packages/patches/libgeotiff-fix-tests-with-proj-9.3.0.patch \
@ -1798,6 +1802,7 @@ dist_patch_DATA = \
%D%/packages/patches/prusa-slicer-fix-tests.patch \
%D%/packages/patches/prusa-slicer-with-cereal-1.3.1.patch \
%D%/packages/patches/pthreadpool-system-libraries.patch \
%D%/packages/patches/python-3.12-fix-tests.patch \
%D%/packages/patches/python-accupy-use-matplotx.patch \
%D%/packages/patches/python-accupy-fix-use-of-perfplot.patch \
%D%/packages/patches/python-chai-drop-python2.patch \
@ -1805,7 +1810,6 @@ dist_patch_DATA = \
%D%/packages/patches/python-feedparser-missing-import.patch \
%D%/packages/patches/python-louvain-fix-test.patch \
%D%/packages/patches/python-random2-getrandbits-test.patch \
%D%/packages/patches/python-poppler-qt5-fix-build.patch \
%D%/packages/patches/python-pyreadstat-link-libiconv.patch \
%D%/packages/patches/python-pyls-black-41.patch \
%D%/packages/patches/python-pypdf-annotate-tests-appropriately.patch \
@ -1944,7 +1948,7 @@ dist_patch_DATA = \
%D%/packages/patches/python-werkzeug-tests.patch \
%D%/packages/patches/python-zeep-Fix-pytest_httpx-test-cases.patch \
%D%/packages/patches/qemu-build-info-manual.patch \
%D%/packages/patches/qemu-disable-some-qtests-tests.patch \
%D%/packages/patches/qemu-disable-bios-tables-test.patch \
%D%/packages/patches/qemu-glibc-2.27.patch \
%D%/packages/patches/qemu-glibc-2.30.patch \
%D%/packages/patches/qemu-fix-agent-paths.patch \
@ -1998,6 +2002,7 @@ dist_patch_DATA = \
%D%/packages/patches/ruby-latex-decode-fix-test.patch \
%D%/packages/patches/ruby-mustache-1.1.1-fix-race-condition-tests.patch \
%D%/packages/patches/ruby-nokogiri.patch \
%D%/packages/patches/ruby-x25519-automatic-fallback-non-x86_64.patch \
%D%/packages/patches/rustc-1.54.0-src.patch \
%D%/packages/patches/rust-1.64-fix-riscv64-bootstrap.patch \
%D%/packages/patches/rust-1.70-fix-rustix-build.patch \

126
gnu/packages/admin.scm
View File

@ -5516,71 +5516,73 @@ This allows greetd-pam-mount to auto-(un)mount @env{XDG_RUNTIME_DIR} without
interfering with any pam-mount configuration.")))
(define-public wlgreet
(package
(name "wlgreet")
(version "0.4.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://git.sr.ht/~kennylevinsen/wlgreet")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1k0jmgh0rjbnb49gkvs0a4d7z9xb6pad8v5w5f7my4s0rfpk7wd9"))))
(build-system cargo-build-system)
(arguments
(list #:cargo-inputs
`(("rust-chrono" ,rust-chrono-0.4)
("rust-getopts" ,rust-getopts-0.2)
("rust-greetd-ipc" ,rust-greetd-ipc-0.9)
("rust-lazy-static" ,rust-lazy-static-1)
("rust-memmap2" ,rust-memmap2-0.3)
("rust-nix" ,rust-nix-0.25)
("rust-os-pipe" ,rust-os-pipe-1)
("rust-rusttype" ,rust-rusttype-0.9)
("rust-serde" ,rust-serde-1)
("rust-smithay-client-toolkit"
,rust-smithay-client-toolkit-0.15)
("rust-toml" ,rust-toml-0.5)
("rust-wayland-client" ,rust-wayland-client-0.29)
("rust-wayland-protocols" ,rust-wayland-protocols-0.29))
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'remove-bundled-fonts
(lambda _
(delete-file-recursively "fonts")))
(add-after 'remove-bundled-fonts 'fix-font-references
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "src/draw.rs"
(("\\.\\./fonts/dejavu/DejaVuSansMono\\.ttf" _)
(search-input-file
inputs
"share/fonts/truetype/DejaVuSansMono.ttf"))
(("\\.\\./fonts/Roboto-Regular\\.ttf" _)
(search-input-file
inputs
"share/fonts/truetype/Roboto-Regular.ttf")))))
(add-after 'configure 'fix-library-references
(lambda* (#:key inputs vendor-dir #:allow-other-keys)
(substitute* (find-files vendor-dir "\\.rs$")
(("lib(wayland-.*|xkbcommon)\\.so" so-file)
(search-input-file
inputs
(string-append "lib/" so-file)))))))))
(inputs
(list font-dejavu
font-google-roboto
libxkbcommon
wayland))
(home-page "https://git.sr.ht/~kennylevinsen/wlgreet")
(synopsis "Bare-bones Wayland-based greeter for @command{greetd}")
(description
"@command{wlgreet} provides a @command{greetd} greeter
(let ((commit "7e79d6004fc5e765a5c3ece6d377f8c5999d9dfa")
(revision "1"))
(package
(name "wlgreet")
(version (git-version "0.4.1" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://git.sr.ht/~kennylevinsen/wlgreet")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"039a05v6c2i3al86k4fncqr3z47dnrz7y8wmhx6wvm08zx8s89ww"))))
(build-system cargo-build-system)
(arguments
(list #:cargo-inputs
`(("rust-chrono" ,rust-chrono-0.4)
("rust-getopts" ,rust-getopts-0.2)
("rust-greetd-ipc" ,rust-greetd-ipc-0.9)
("rust-lazy-static" ,rust-lazy-static-1)
("rust-memmap2" ,rust-memmap2-0.3)
("rust-nix" ,rust-nix-0.25)
("rust-os-pipe" ,rust-os-pipe-1)
("rust-rusttype" ,rust-rusttype-0.9)
("rust-serde" ,rust-serde-1)
("rust-smithay-client-toolkit"
,rust-smithay-client-toolkit-0.15)
("rust-toml" ,rust-toml-0.5)
("rust-wayland-client" ,rust-wayland-client-0.29)
("rust-wayland-protocols" ,rust-wayland-protocols-0.29))
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'remove-bundled-fonts
(lambda _
(delete-file-recursively "fonts")))
(add-after 'remove-bundled-fonts 'fix-font-references
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "src/draw.rs"
(("\\.\\./fonts/dejavu/DejaVuSansMono\\.ttf" _)
(search-input-file
inputs
"share/fonts/truetype/DejaVuSansMono.ttf"))
(("\\.\\./fonts/Roboto-Regular\\.ttf" _)
(search-input-file
inputs
"share/fonts/truetype/Roboto-Regular.ttf")))))
(add-after 'configure 'fix-library-references
(lambda* (#:key inputs vendor-dir #:allow-other-keys)
(substitute* (find-files vendor-dir "\\.rs$")
(("lib(wayland-.*|xkbcommon)\\.so" so-file)
(search-input-file
inputs
(string-append "lib/" so-file)))))))))
(inputs
(list font-dejavu
font-google-roboto
libxkbcommon
wayland))
(home-page "https://git.sr.ht/~kennylevinsen/wlgreet")
(synopsis "Bare-bones Wayland-based greeter for @command{greetd}")
(description
"@command{wlgreet} provides a @command{greetd} greeter
that runs on a Wayland compositor such as @command{sway}. It
is implemented with pure Wayland APIs, so it does not depend
on a GUI toolkit.")
(license license:gpl3)))
(license license:gpl3))))
(define-public libseat
(package

6
gnu/packages/algebra.scm
View File

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2022, 2023, 2024 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2013, 2015, 2017, 2018, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016-2023 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2016-2024 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2014, 2018 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2016, 2018, 2019, 2021, 2023 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017, 2020-2022 Efraim Flashner <efraim@flashner.co.il>
@ -357,7 +357,7 @@ precision.")
(define-public giac
(package
(name "giac")
(version "1.9.0-45")
(version "1.9.0-93")
(source
(origin
(method url-fetch)
@ -369,7 +369,7 @@ precision.")
"~parisse/debian/dists/stable/main/source/"
"giac_" version ".tar.gz"))
(sha256
(base32 "0yxsl1vvwcbpwcmzp9v9rfm9djmapab0nhb3gs7zmjv5yvzbgj4d"))))
(base32 "11acbgd264vi9r3gzx8js8x2piavhybr97iyrh027qvxlbsdsgqm"))))
(build-system gnu-build-system)
(arguments
(list

2
gnu/packages/arcan.scm
View File

@ -171,7 +171,7 @@ engine with a Lua scripting interface.")
(inputs
(modify-inputs (package-inputs arcan)
(delete "libdrm")
(prepend sdl)))
(prepend glu libglvnd mesa sdl)))
(arguments
`(,@(ensure-keyword-arguments
(package-arguments arcan)

50
gnu/packages/audio.scm
View File

@ -31,7 +31,7 @@
;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
;;; Copyright © 2020, 2021 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2020 Jonathan Frederickson <jonathan@terracrypt.net>
;;; Copyright © 2020 Giacomo Leidi <goodoldpaul@autistici.org>
;;; Copyright © 2020, 2024 Giacomo Leidi <goodoldpaul@autistici.org>
;;; Copyright © 2020, 2021, 2023 Vinicius Monego <monego@posteo.net>
;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de>
;;; Copyright © 2021 jgart <jgart@dismail.de>
@ -261,6 +261,41 @@ softsynth library that can be used with other applications.")
;; Player.
license:gpl3+))))
(define-public alsa-midi-latency-test
(let ((version "0.0.5")
(revision "0")
(commit "07e43f8a1e6fd6d3bd97a00f2ee5afb74cb66f95"))
(package
(name "alsa-midi-latency-test")
(version (git-version version revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/koppi/alsa-midi-latency-test")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "0b3xd4z7zx6mmh6q2q7wnyd0hzikny2cikwzhaab3q86b551vb9n"))))
(build-system gnu-build-system)
(arguments
(list
#:tests? #f ;there are no tests
#:phases #~(modify-phases %standard-phases
(replace 'bootstrap
(lambda _
(invoke "sh" "./autogen.sh"))))))
(native-inputs (list automake autoconf libtool))
(inputs (list alsa-lib))
(synopsis "Measure the roundtrip time of MIDI messages")
(description
"@code{alsa-midi-latency-test} measures the roundtrip time of a MIDI
message in the alsa subsystem of the Linux kernel using a high precision timer.
It calculates the worst case roundtrip time of all sent MIDI messages and
displays a histogram of the roundtrip time jitter.")
(home-page "https://github.com/koppi/alsa-midi-latency-test")
(license license:gpl2+))))
(define-public webrtc-audio-processing
(package
(name "webrtc-audio-processing")
@ -1562,7 +1597,7 @@ emulation (valve, tape), bit fiddling (decimator, pointer-cast), etc.")
(define-public libdjinterop
(package
(name "libdjinterop")
(version "0.16.0")
(version "0.20.2")
(source
(origin
(method git-fetch)
@ -1571,15 +1606,8 @@ emulation (valve, tape), bit fiddling (decimator, pointer-cast), etc.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "16nrqpr90vb9ggmp9j73m0hspd7pmfdhh0g6iyp8vd7kx7g17qnk"))))
(build-system meson-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
;; crate_test writes a database file to the source tree.
(add-after 'unpack 'make-git-checkout-writable
(lambda _
(for-each make-file-writable (find-files ".")))))))
(base32 "0gbaji3d105vwshjfmnbxqrs42jjjxp41jqj5srncrfv3xmzsfkr"))))
(build-system cmake-build-system)
(native-inputs
(list boost pkg-config))
(inputs

11773
gnu/packages/aux-files/linux-libre/6.8-arm.conf 100644
View File

File diff suppressed because it is too large Load Diff

11827
gnu/packages/aux-files/linux-libre/6.8-arm64.conf 100644
View File

File diff suppressed because it is too large Load Diff

11899
gnu/packages/aux-files/linux-libre/6.8-i686.conf 100644
View File

File diff suppressed because it is too large Load Diff

12107
gnu/packages/aux-files/linux-libre/6.8-x86_64.conf 100644
View File

File diff suppressed because it is too large Load Diff

46
gnu/packages/bioconductor.scm
View File

@ -4076,13 +4076,13 @@ model as latent variables.")
(define-public r-asics
(package
(name "r-asics")
(version "2.18.0")
(version "2.18.1")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "ASICS" version))
(sha256
(base32
"10wlmnlpn6ji256fp81rhsm2rsbsqsbvbjqqpw9vib11cwpam9wd"))))
"0sii6sg20l6mfm8cj8zas2dm3wq6fwcwanav6fl7wkv8msk02sxb"))))
(properties `((upstream-name . "ASICS")))
(build-system r-build-system)
(propagated-inputs
@ -4838,13 +4838,13 @@ enrichment in single cell data.")
(define-public r-coregx
(package
(name "r-coregx")
(version "2.6.0")
(version "2.6.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "CoreGx" version))
(sha256
(base32 "0ffbi5afw759mi5r657h67hdh9yr5jrzvl3aigp960jzb5542105"))))
(base32 "16i8xq98vg8xgscwj0w9bsq68vjmhsvwwdw66kcphvf3jjfmn1rv"))))
(properties `((upstream-name . "CoreGx")))
(build-system r-build-system)
(propagated-inputs
@ -6900,13 +6900,13 @@ objects.")
(define-public r-biostrings
(package
(name "r-biostrings")
(version "2.70.2")
(version "2.70.3")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "Biostrings" version))
(sha256
(base32
"0lmaknlw3mk946h26davr9cz5xpzjp0c8qjxbr7drj8b2cjfm66a"))))
"1704fn4dlswy5silmw2ri4yjbibqv249cnrb5mdgiwjh7l51w725"))))
(properties
`((upstream-name . "Biostrings")))
(build-system r-build-system)
@ -7332,14 +7332,14 @@ distribution.")
(define-public r-deseq2
(package
(name "r-deseq2")
(version "1.42.0")
(version "1.42.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "DESeq2" version))
(sha256
(base32
"1mz7v0vcl741zjvj63mk48hhbq6sk2fl2dwn9y1a6hr8fb79vy1a"))))
"1s104b9k45b7kjrk56yw2yi4gi716nkcwnpqj4vj9w17xsb5m6zp"))))
(properties `((upstream-name . "DESeq2")))
(build-system r-build-system)
(propagated-inputs
@ -7882,13 +7882,13 @@ genomic intervals. In addition, it can use BAM or BigWig files as input.")
(define-public r-genomeinfodb
(package
(name "r-genomeinfodb")
(version "1.38.6")
(version "1.38.8")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "GenomeInfoDb" version))
(sha256
(base32
"0z8wkv5jhx8wr6idnakm26lhhk4ssj6ivbb7hfbzhkajcbnnf7mq"))))
"126qq2549h3dpjiq36709pym5bfwk6jqbz5q2sb5hl8lwm1apv8w"))))
(properties
`((upstream-name . "GenomeInfoDb")))
(build-system r-build-system)
@ -7973,13 +7973,13 @@ Commons RESTful service.")
(define-public r-genomicfeatures
(package
(name "r-genomicfeatures")
(version "1.54.3")
(version "1.54.4")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "GenomicFeatures" version))
(sha256
(base32
"1b78fss1nfyph6b7pv3ss6iv6r2qgrmx4klxvq8waz2nxvikxdl5"))))
"0g2fv4r82ql7p2allapmgs2bj4ad70c8030vzkml7ghrxsgrryp3"))))
(properties
`((upstream-name . "GenomicFeatures")))
(build-system r-build-system)
@ -7993,8 +7993,9 @@ Commons RESTful service.")
r-dbi
r-genomeinfodb
r-genomicranges
r-httr
r-iranges
r-rcurl
r-rjson
r-rsqlite
r-rtracklayer
r-s4vectors
@ -8220,13 +8221,13 @@ Enrichment Analysis} (GSEA).")
(define-public r-gsva
(package
(name "r-gsva")
(version "1.50.0")
(version "1.50.1")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "GSVA" version))
(sha256
(base32
"01w5j7fmi3hsfd282kcn4v41mi58z2yfhapff2zgf9swdfps4m6z"))))
"0ld0bbl6ar3yhi6ncg9d8q60hg4m4v5kphl044fw63l19ixln7cf"))))
(properties `((upstream-name . "GSVA")))
(build-system r-build-system)
(propagated-inputs (list r-biobase
@ -11724,24 +11725,24 @@ Biology at
(define-public r-stringdb
(package
(name "r-stringdb")
(version "2.14.0")
(version "2.14.3")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "STRINGdb" version))
(sha256
(base32 "1ffn73sx0qbzbh8cjil9r159g0fjnvi6y8rlbg6nf7p3zx3aya54"))))
(base32 "06bckzczg2rspazcbpp3v265c1dkr9l1vpdhkc7gdn2dk960jlkh"))))
(properties `((upstream-name . "STRINGdb")))
(build-system r-build-system)
(propagated-inputs
(list r-gplots
r-hash
r-httr
r-igraph
r-plotrix
r-plyr
r-png
r-rcolorbrewer
r-rcurl
r-sqldf))
(home-page "https://git.bioconductor.org/packages/STRINGdb")
(synopsis "Search tool for the retrieval of interacting proteins database")
@ -12261,16 +12262,17 @@ describing each of the graphs.")
(define-public r-zlibbioc
(package
(name "r-zlibbioc")
(version "1.48.0")
(version "1.48.2")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "zlibbioc" version))
(sha256
(base32
"043xwgw3yclxnxlfl7fdwf7qf7fajzvqdv34qxnngxj9wpgha3gv"))))
"078v1iywzc0ng27r0wjchvkh4znzydq1swlalqb95xkmn72vrq8d"))))
(properties
`((upstream-name . "zlibbioc")))
(build-system r-build-system)
(native-inputs (list r-knitr))
(home-page "https://bioconductor.org/packages/zlibbioc")
(synopsis "Provider for zlib-1.2.5 to R packages")
(description "This package uses the source code of zlib-1.2.5 to create
@ -15912,14 +15914,14 @@ attempts to assess their statistical significance.")
(define-public r-clusterprofiler
(package
(name "r-clusterprofiler")
(version "4.10.0")
(version "4.10.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "clusterProfiler" version))
(sha256
(base32
"1vlrybyczfci5qnw50k0y2j2853r2p1ff5bpj35rdca4ja0iqh2q"))))
"1jwi9029dy7ga4hv75grib7wdaghslwh4qk5awhgw3192a0qcixf"))))
(properties
`((upstream-name . "clusterProfiler")))
(build-system r-build-system)

179
gnu/packages/bioinformatics.scm
View File

@ -9308,6 +9308,69 @@ viewer.")
(delete 'patch-tests)
(delete 'configure))))))))
(define-public morpheus
(package
(name "morpheus")
(version "2.3.6")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.com/morpheus.lab/morpheus")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1jyzbkz8d39kjicrk3ihcx7yvq5wsynvnlcw922bqqsw8nwnn12c"))
(modules '((guix build utils)))
(snippet
'(begin
(delete-file-recursively "3rdparty/eigen")
(substitute* '("morpheus/core/cpm_shape_tracker.cpp"
"morpheus/core/membranemapper.h"
"morpheus/testing/components/motility/directed_motion_test.cpp"
"morpheus/testing/components/interaction/generator_cell_sorting.cpp"
"morpheus/testing/components/interaction/test_cell_sorting.cpp"
"morpheus/testing/core/cpm/generator_csm_plane.cpp"
"morpheus/testing/test_operators.h")
(("#include \"eigen/") "#include \"eigen3/"))))))
;; This is for a different Morpheus.
(properties '((lint-hidden-cve "CVE-2022-31261")))
(build-system cmake-build-system)
(arguments
(list
#:configure-flags
'(list "-DMORPHEUS_GUI=OFF"
"-DBUILD_TESTING=ON"
"-DDOWNLOAD_XTENSOR=OFF")
#:phases
'(modify-phases %standard-phases
(add-after 'unpack 'disable-gtest-download
(lambda _
(substitute* "3rdparty/CMakeLists.txt"
(("add_subdirectory\\(GTest\\)") ""))))
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(invoke "ctest" "--output-junit" "test_results.xml")))))))
(inputs (list boost
eigen
file
gnuplot
libtiff
libxslt
xsimd
xtensor
xtl
zlib))
(native-inputs
(list doxygen googletest xxd))
(home-page "https://gitlab.com/morpheus.lab/morpheus")
(synopsis "Multicellular simulation")
(description
"Morpheus is a modeling and simulation environment for the study of
multi-scale and multicellular systems.")
(license license:bsd-3)))
(define-public mosaik
(let ((commit "5c25216d3522d6a33e53875cd76a6d65001e4e67"))
(package
@ -11612,30 +11675,6 @@ clustering analysis, differential analysis, motif inference and exploration of
single cell ATAC-seq sequencing data.")
(license license:gpl3)))
(define-public r-tictoc
(package
(name "r-tictoc")
(version "1.2")
(source (origin
(method url-fetch)
(uri (cran-uri "tictoc" version))
(sha256
(base32
"037jbwb58mj5asf3kr6hpf3fy9c6fkinnd8hbpfb141a2jsa8pph"))))
(properties `((upstream-name . "tictoc")))
(build-system r-build-system)
(home-page "https://github.com/jabiru/tictoc")
(synopsis
"Time R scripts and implementations of stack and list structures")
(description
"The tictoc package provides the timing functions @code{tic} and
@code{toc} that can be nested. It provides an alternative to
@code{system.time()} with a different syntax similar to that in another
well-known software package. @code{tic} and @code{toc} are easy to use, and
are especially useful when timing several sections in more than a few lines of
code.")
(license license:asl2.0)))
(define-public r-tsis
(let ((commit "24460298fbe1d26e4da390f6e4f3d4d9d62334dc")
(revision "1"))
@ -12351,6 +12390,59 @@ Needleman-Wunsch).")
;; Dual licensed; also includes public domain source.
(license (list license:gpl3 license:bsd-2))))
(define-public pairadise
(package
(name "pairadise")
(version "1.0.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/Xinglab/PAIRADISE")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0ycwcqabm4zdng0a7j593g35d5yzvvwm7dyi3b8s19zdi4rjzrwd"))))
(build-system pyproject-build-system)
(arguments
(list
#:phases
'(modify-phases %standard-phases
(add-after 'unpack 'chdir
(lambda _ (chdir "pairadise")))
(add-before 'build '2to3
(lambda _ (invoke "2to3" "--write" "--nobackups" "."))))))
(inputs (list star))
(propagated-inputs (list python-pysam))
(home-page "https://github.com/Xinglab/PAIRADISE")
(synopsis "Paired replicate analysis of allelic differential splicing events")
(description
"PAIRADISE is a method for detecting @dfn{allele-specific alternative
splicing} (ASAS) from RNA-seq data. Unlike conventional approaches that
detect ASAS events one sample at a time, PAIRADISE aggregates ASAS signals
across multiple individuals in a population. By treating the two alleles of
an individual as paired, and multiple individuals sharing a heterozygous SNP
as replicates, PAIRADISE formulates ASAS detection as a statistical problem
for identifying differential alternative splicing from RNA-seq data with
paired replicates.")
(license license:gpl3+)))
(define-public r-pairadise
(package
(inherit pairadise)
(name "r-pairadise")
(build-system r-build-system)
(arguments
(list
#:phases
'(modify-phases %standard-phases
(add-after 'unpack 'chdir
(lambda _ (chdir "pairadise/src/pairadise_model"))))))
(inputs '())
(propagated-inputs (list r-doparallel r-foreach r-iterators r-nloptr))
(license license:expat)))
(define-public pardre
(package
(name "pardre")
@ -16417,45 +16509,6 @@ sequencing data in microbiome studies with the Dirichlet-tree Multinomial
Mixtures.")
(license license:cc0))))
(define-public r-dyngen
(package
(name "r-dyngen")
(version "1.0.5")
(source
(origin
(method url-fetch)
(uri (cran-uri "dyngen" version))
(sha256
(base32
"095jqn1rd83qm3ayca9hmv6bhlaa2c338020l46vniq8n38kbnra"))))
(properties `((upstream-name . "dyngen")))
(build-system r-build-system)
(propagated-inputs
(list r-assertthat
r-dplyr
r-dynutils
r-ggplot2
r-ggraph
r-ggrepel
r-gillespiessa2
r-igraph
r-lmds
r-matrix
r-patchwork
r-pbapply
r-purrr
r-rlang
r-tibble
r-tidygraph
r-tidyr
r-viridis))
(home-page "https://github.com/dynverse/dyngen")
(synopsis "Multi-Modal simulator for single-cell omics analyses")
(description
"This package provides a multi-modal simulation engine for studying
dynamic cellular processes at single-cell resolution.")
(license license:expat)))
;; Needed for r-liana
(define-public r-omnipathr/devel
(let ((commit "679bb79e319af246a16968d27d64d8d6937a331a")

4
gnu/packages/c.scm
View File

@ -326,7 +326,7 @@ compiler while still keeping it small, simple, fast and understandable.")
(define-public qbe
(package
(name "qbe")
(version "1.1")
(version "1.2")
(source (origin
(method git-fetch)
(uri (git-reference
@ -335,7 +335,7 @@ compiler while still keeping it small, simple, fast and understandable.")
(file-name (git-file-name name version))
(sha256
(base32
"07nl1kdgpz7hwfkng0yy4xihk0fmv1a2hq9bxzgvhy3vk9r7fmn8"))))
"1sxz5dn788n5c4v6mxa2kg3hf0a4qryg8wp0w3wx0qkzj6flj2sj"))))
(build-system gnu-build-system)
(arguments
(list #:make-flags

4
gnu/packages/calendar.scm
View File

@ -177,13 +177,13 @@ data units.")
(define-public khal
(package
(name "khal")
(version "0.11.2")
(version "0.11.3")
(source (origin
(method url-fetch)
(uri (pypi-uri "khal" version))
(sha256
(base32
"1flrz01nsmvphiv673b8ia279qcp3gj6a1rsjlsj4gp5f69xif4g"))))
"0pijq7crjpak1rq3hzx68fz34n7ikkcz3xsk9r3brny17z2brk58"))))
(build-system python-build-system)
(arguments
`(#:tests? #f ; The test suite is unreliable. See <https://bugs.gnu.org/44197>

1
gnu/packages/check.scm
View File

@ -250,6 +250,7 @@ source code editors and IDEs.")
(inherit check)
(version "0.14.0")
(source (origin
(inherit (package-source check))
(method url-fetch)
(uri (string-append "https://github.com/libcheck/check/releases"
"/download/" version "/check-" version ".tar.gz"))

8
gnu/packages/code.scm
View File

@ -183,14 +183,14 @@ highlighting your own code that seemed comprehensible when you wrote it.")
(define-public global ; a global variable
(package
(name "global")
(version "6.6.10")
(version "6.6.12")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnu/global/global-"
version ".tar.gz"))
(sha256
(base32
"1s6c9nzpp4jfq14l3mk9fnyipizljkka8hdr1wwh2g798nlydl9d"))))
"00ari03n0wdzz1ib73p64h8g1p0a9js61fxl92jyq50fhh35najl"))))
(build-system gnu-build-system)
(arguments
(list #:configure-flags
@ -436,7 +436,7 @@ features that are not supported by the standard @code{stdio} implementation.")
(define-public universal-ctags
(package
(name "universal-ctags")
(version "6.1.20240218.0")
(version "6.1.20240317.0")
(source
(origin
(method git-fetch)
@ -446,7 +446,7 @@ features that are not supported by the standard @code{stdio} implementation.")
(file-name (git-file-name name version))
(sha256
(base32
"09cjlj7mq3s98x9zsg4slq86h1myixjxxqfnc0kglf2hnr9nrkf5"))
"1bs48bickx04rdr2g60pppyb5r0rjhyslwr1gr05qdv0bsmwf61x"))
(modules '((guix build utils)))
(snippet
'(begin

98
gnu/packages/containers.scm
View File

@ -6,6 +6,7 @@
;;; Copyright © 2023 Zongyuan Li <zongyuan.li@c0x0o.me>
;;; Copyright © 2023 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2024 Tomas Volf <~@wolfsden.cz>
;;; Copyright © 2024 Foundation Devices, Inc. <hello@foundation.xyz>
;;;
;;; This file is part of GNU Guix.
;;;
@ -43,6 +44,7 @@
#:use-module (gnu packages glib)
#:use-module (gnu packages gnupg)
#:use-module (gnu packages golang)
#:use-module (gnu packages guile)
#:use-module (gnu packages linux)
#:use-module (gnu packages python)
#:use-module (gnu packages networking)
@ -149,7 +151,7 @@ runtime (like runc or crun) for a single container.")
(define-public distrobox
(package
(name "distrobox")
(version "1.5.0.2")
(version "1.7.0")
(source
(origin
(method git-fetch)
@ -157,23 +159,51 @@ runtime (like runc or crun) for a single container.")
(url "https://github.com/89luca89/distrobox")
(commit version)))
(sha256
(base32 "0h6rpgbcmg33vriyzh9nkdxj8yhfn0y35i1wh1zmb7zss3ik9kxj"))
(base32 "1g14q1sm3026h9n85v1gc3m2v9sgrac2mr9yrkh98qg5yahzmpc3"))
(file-name (git-file-name name version))))
(build-system copy-build-system)
(inputs
(list podman wget))
(arguments
(list #:phases
#~(modify-phases %standard-phases
(add-before 'install 'refer-to-inputs
(lambda* (#:key inputs #:allow-other-keys)
(substitute* (find-files "." "^distrobox[^.]*[^1]$")
(("podman") (search-input-file inputs "/bin/podman"))
(("wget") (search-input-file inputs "/bin/wget"))
(("command -v") "test -x"))))
;; Use WRAP-SCRIPT to wrap all of the scripts of distrobox,
;; excluding the host side ones.
(add-after 'install 'wrap-scripts
(lambda _
(let ((path (search-path-as-list
(list "bin")
(list #$(this-package-input "podman")
#$(this-package-input "wget")))))
(for-each (lambda (script)
(wrap-script
(string-append #$output "/bin/distrobox-"
script)
`("PATH" ":" prefix ,path)))
'("assemble"
"create"
"enter"
"ephemeral"
"generate-entry"
"list"
"rm"
"stop"
"upgrade")))))
;; These scripts are used in the container side and the
;; /gnu/store path is not shared with the containers.
(add-after 'patch-shebangs 'unpatch-shebangs
(lambda _
(for-each (lambda (script)
(substitute*
(string-append #$output "/bin/distrobox-"
script)
(("#!.*/bin/sh") "#!/bin/sh\n")))
'("export" "host-exec" "init"))))
(replace 'install
(lambda _
(invoke "./install" "--prefix" #$output))))))
(inputs
(list guile-3.0 ; for wrap-script
podman
wget))
(home-page "https://distrobox.privatedns.org/")
(synopsis "Create and start containers highly integrated with the hosts")
(description
@ -291,7 +321,7 @@ Layer-4 sockets.")
(define-public cni-plugins
(package
(name "cni-plugins")
(version "1.0.1")
(version "1.4.1")
(source
(origin
(method git-fetch)
@ -299,7 +329,7 @@ Layer-4 sockets.")
(url "https://github.com/containernetworking/plugins")
(commit (string-append "v" version))))
(sha256
(base32 "1j91in0mg4nblpdccyq63ncbnn2pc2zzjp1fh3jy0bsndllgv0nc"))
(base32 "0l6f4z762n8blak41wcxdmdhm92gqw2qcxcqd3s4wiql3d7273kj"))
(file-name (git-file-name name version))))
(build-system go-build-system)
(arguments
@ -336,6 +366,50 @@ Layer-4 sockets.")
configure network interfaces in Linux containers.")
(license license:asl2.0)))
(define-public gvisor-tap-vsock
(package
(name "gvisor-tap-vsock")
(version "0.7.3")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/containers/gvisor-tap-vsock")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1q1zism0c63k2aq6yhkjqc3b2zsm4lwn0bk39p2kl79h798wfyp4"))))
(build-system gnu-build-system)
(arguments
(list
#:make-flags `(list ,(string-append "GIT_VERSION=v" version))
#:test-target "test"
#:phases
#~(modify-phases %standard-phases
(delete 'configure)
(add-before 'build 'setenv
(lambda _
;; For golang toolchain.
(setenv "HOME" "/tmp")))
(add-before 'check 'prune-tests
(lambda _
;; Requires internet connection to fetch QEMU image.
(invoke "rm" "-r" "test")))
(replace 'install
(lambda _
(install-file "bin/gvproxy" (string-append #$output "/bin")))))))
(native-inputs (list go-1.20))
(home-page "https://github.com/containers/gvisor-tap-vsock")
(synopsis "Network stack for virtualization based on gVisor")
(description "This package provides a replacement for @code{libslirp} and
@code{VPNKit}, written in pure Go. It is based on the network stack of gVisor
and brings a configurable DNS server and dynamic port forwarding.
It can be used with QEMU, Hyperkit, Hyper-V and User-Mode Linux.
The binary is called @command{gvproxy}.")
(license license:asl2.0)))
;; For podman to work, the user needs to run
;; `sudo mount -t cgroup2 none /sys/fs/cgroup`

11
gnu/packages/cpp.scm
View File

@ -30,7 +30,7 @@
;;; Copyright © 2022 Attila Lendvai <attila@lendvai.name>
;;; Copyright © 2022 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2022, 2023, 2024 David Elsing <david.elsing@posteo.net>
;;; Copyright © 2022, 2023 Zheng Junjie <873216071@qq.com>
;;; Copyright © 2022-2024 Zheng Junjie <873216071@qq.com>
;;; Copyright © 2022, 2023, 2024 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2022 Antero Mejr <antero@mailbox.org>
;;; Copyright © 2023 Sughosha <Sughosha@proton.me>
@ -907,9 +907,12 @@ lock-free fixed size queue written in C++11.")
(file-name (git-file-name name version))))
(build-system gnu-build-system)
(arguments
;; The tests are flaky when run in parallel. For more info:
;; https://bugs.gnu.org/46562
'(#:parallel-tests? #f))
;; The tests are flaky when run in parallel. For more info:
;; https://bugs.gnu.org/46562
`(#:parallel-tests? #f
,@(if (target-riscv64?)
`(#:make-flags (list "LDFLAGS=-latomic"))
'())))
(native-inputs
(list autoconf automake libtool
;; For tests.

279
gnu/packages/cran.scm
View File

@ -1344,13 +1344,13 @@ compositional data.")
(define-public r-gwasexacthw
(package
(name "r-gwasexacthw")
(version "1.01")
(version "1.2")
(source (origin
(method url-fetch)
(uri (cran-uri "GWASExactHW" version))
(sha256
(base32
"19qmk8h7kxmn9kzw0x4xns5p3qqz27xkqq4q6zmh4jzizd0fsl78"))))
"1xzcvmbh27ibd7g9zlqyp215q4yfkhdypcvm5gjkvw1qhd3pl4yk"))))
(properties `((upstream-name . "GWASExactHW")))
(build-system r-build-system)
(home-page "https://cran.r-project.org/package=GWASExactHW")
@ -2318,13 +2318,13 @@ known as Dynamic Linear Models.")
(define-public r-zcompositions
(package
(name "r-zcompositions")
(version "1.5.0-1")
(version "1.5.0-3")
(source (origin
(method url-fetch)
(uri (cran-uri "zCompositions" version))
(sha256
(base32
"0sx6i03iyg4jxmjiyzkssz3i6c8nv29wwhbl7yd0wxapwpakmlj8"))))
"1gbwx3vgx5viqnn5jsszild6ikyc2pmf1hdjc9475caf9xx9l589"))))
(properties `((upstream-name . "zCompositions")))
(build-system r-build-system)
(propagated-inputs
@ -3841,6 +3841,30 @@ algorithm described in MetaCell analysis of single-cell RNA-seq
data using K-nn graph partitions.")
(license license:gpl2)))
(define-public r-tictoc
(package
(name "r-tictoc")
(version "1.2.1")
(source (origin
(method url-fetch)
(uri (cran-uri "tictoc" version))
(sha256
(base32
"0cw8r1gn4p2v1l3d80brk9sfr9nyckyyym5nr9xq3d74l74vgkcg"))))
(properties `((upstream-name . "tictoc")))
(build-system r-build-system)
(home-page "https://github.com/jabiru/tictoc")
(synopsis
"Time R scripts and implementations of stack and list structures")
(description
"The tictoc package provides the timing functions @code{tic} and
@code{toc} that can be nested. It provides an alternative to
@code{system.time()} with a different syntax similar to that in another
well-known software package. @code{tic} and @code{toc} are easy to use, and
are especially useful when timing several sections in more than a few lines of
code.")
(license license:asl2.0)))
(define-public r-tidyft
(package
(name "r-tidyft")
@ -4998,14 +5022,14 @@ weights.")
(define-public r-sass
(package
(name "r-sass")
(version "0.4.8")
(version "0.4.9")
(source
(origin
(method url-fetch)
(uri (cran-uri "sass" version))
(sha256
(base32
"0364ndnmlqrga3k4c1hfy1894k5wpm9srf9201g9zb92rlq2kfj2"))))
"1lnl2xssz33vg7p6a8ij55hg6j1p1d3y2mq22pvf0r3rmnd08cz1"))))
(properties `((upstream-name . "sass")))
(build-system r-build-system)
(propagated-inputs
@ -6515,13 +6539,13 @@ processes. Most of its code is based on the @code{psutil} Python package.")
(define-public r-pkgbuild
(package
(name "r-pkgbuild")
(version "1.4.3")
(version "1.4.4")
(source
(origin
(method url-fetch)
(uri (cran-uri "pkgbuild" version))
(sha256
(base32 "0rci20gj2x0bgjy51jp8i4gld6arsigj7lhdkpwvdyhadjsyv0qm"))))
(base32 "1a72s2gg7ddjj94naiii44f3vyhky05gaa6xvdf72m1nshy88wjr"))))
(build-system r-build-system)
(propagated-inputs
(list r-callr r-cli r-desc r-processx r-r6))
@ -8945,14 +8969,14 @@ problems as well as resampling based estimators of prediction error.")
(define-public r-psych
(package
(name "r-psych")
(version "2.4.1")
(version "2.4.3")
(source
(origin
(method url-fetch)
(uri (cran-uri "psych" version))
(sha256
(base32
"08ip2m91c6hinva18zv575cn6w14pnjc503m1gisrg65c3z3f69b"))))
"0ic479y314knn20m1cjlp15lji7f70xrg95ln570pgkhrk5853bi"))))
(build-system r-build-system)
(propagated-inputs
(list r-lattice r-mnormt r-nlme))
@ -9132,13 +9156,13 @@ from the data points.")
(define-public r-coro
(package
(name "r-coro")
(version "1.0.3")
(version "1.0.4")
(source
(origin
(method url-fetch)
(uri (cran-uri "coro" version))
(sha256
(base32 "0wvxdpdh3xrskz5s5wfkva856x849knx1jigbf0ff6s6n6qjjxsf"))))
(base32 "0r6cb2gr29vxjlbfzqxdgbccp57l6raxncljisl1vyj6xi2by8cg"))))
(properties `((upstream-name . "coro")))
(build-system r-build-system)
(propagated-inputs (list r-rlang))
@ -10277,13 +10301,13 @@ constants, and control debugging of packages via environment variables.")
(define-public r-processx
(package
(name "r-processx")
(version "3.8.3")
(version "3.8.4")
(source
(origin
(method url-fetch)
(uri (cran-uri "processx" version))
(sha256
(base32 "0cfq6pq8rg0vhjfgvf48hfvngbn1g6hv28b6pgxh55xqh8acbn0s"))))
(base32 "02z7n59pglz6jw1vyyl0mkc7mz2c7y8yzsnhq5yz62digwnnf9v6"))))
(build-system r-build-system)
(propagated-inputs
(list r-ps r-r6))
@ -10712,14 +10736,14 @@ vectors.")
(define-public r-tinytex
(package
(name "r-tinytex")
(version "0.49")
(version "0.50")
(source
(origin
(method url-fetch)
(uri (cran-uri "tinytex" version))
(sha256
(base32
"0i9icscy5n6p6w3f4v2z3cznywrrv2l6xyyhb0k1fpa4cpn6j4cl"))))
"11k0pl073b4k4wmpxkw4a071jbpvhr1g3cwm9v99rw3gh6p6x15l"))))
(build-system r-build-system)
(propagated-inputs
(list r-xfun))
@ -10797,13 +10821,13 @@ implementation of an approximate nearest neighbor search using hierarchical
(define-public r-nestedcv
(package
(name "r-nestedcv")
(version "0.7.4")
(version "0.7.8")
(source
(origin
(method url-fetch)
(uri (cran-uri "nestedcv" version))
(sha256
(base32 "0ymy1dbkcpiyq44zpvpkz1m5ivnchip07q6agh6ij50imddxb48s"))))
(base32 "1pdky7kzqs1rhl0f4hba3sggifplfgbp339imxym4dvvdb81b589"))))
(properties `((upstream-name . "nestedcv")))
(build-system r-build-system)
(propagated-inputs (list r-caret
@ -10812,13 +10836,13 @@ implementation of an approximate nearest neighbor search using hierarchical
r-foreach
r-ggplot2
r-glmnet
r-magrittr
r-matrixstats
r-matrixtests
r-proc
r-rfast
r-rhpcblasctl
r-rlang))
r-rlang
r-rocr))
(native-inputs (list r-knitr))
(home-page "https://github.com/myles-lewis/nestedcv")
(synopsis "Nested cross-validation with glmnet and caret")
@ -12593,6 +12617,45 @@ contain lags, diffs and missing values.")
;; Any GPL version.
(license license:gpl2+)))
(define-public r-dyngen
(package
(name "r-dyngen")
(version "1.0.5")
(source
(origin
(method url-fetch)
(uri (cran-uri "dyngen" version))
(sha256
(base32
"095jqn1rd83qm3ayca9hmv6bhlaa2c338020l46vniq8n38kbnra"))))
(properties `((upstream-name . "dyngen")))
(build-system r-build-system)
(propagated-inputs
(list r-assertthat
r-dplyr
r-dynutils
r-ggplot2
r-ggraph
r-ggrepel
r-gillespiessa2
r-igraph
r-lmds
r-matrix
r-patchwork
r-pbapply
r-purrr
r-rlang
r-tibble
r-tidygraph
r-tidyr
r-viridis))
(home-page "https://github.com/dynverse/dyngen")
(synopsis "Multi-Modal simulator for single-cell omics analyses")
(description
"This package provides a multi-modal simulation engine for studying
dynamic cellular processes at single-cell resolution.")
(license license:expat)))
(define-public r-dynutils
(package
(name "r-dynutils")
@ -13709,14 +13772,14 @@ Sequence logos can easily be combined with other ggplot2 plots.")
(define-public r-ggsci
(package
(name "r-ggsci")
(version "3.0.1")
(version "3.0.2")
(source
(origin
(method url-fetch)
(uri (cran-uri "ggsci" version))
(sha256
(base32
"030rkjx64mlhy19d74p3blsi92nyjq9vbn33323dvm1rihb8avgi"))))
"0qasxv3aliqqmfi3nk3140lrbcrw4lbfw5hm65hfkgf5a3bkca67"))))
(build-system r-build-system)
(propagated-inputs
(list r-ggplot2 r-scales))
@ -14486,14 +14549,14 @@ Decomposition in R (Beaton et al 2014) <doi:10.1016/j.csda.2013.11.006>.")
(define-public r-insight
(package
(name "r-insight")
(version "0.19.8")
(version "0.19.9")
(source
(origin
(method url-fetch)
(uri (cran-uri "insight" version))
(sha256
(base32
"1f76fqrcv54l01z2nb46ysh3f41j06nqpn4ffn2gmjfggmj4xvwq"))))
"0q6wd28bnav9vwzprwvm9fhpmhqvq85iyg4h503lavcvi5g39a9x"))))
(build-system r-build-system)
(native-inputs
(list r-knitr))
@ -14572,13 +14635,13 @@ tidyverse workflow.")
(define-public r-nodbi
(package
(name "r-nodbi")
(version "0.10.3")
(version "0.10.4")
(source (origin
(method url-fetch)
(uri (cran-uri "nodbi" version))
(sha256
(base32
"17ghgp6sabj4dlmx3cdn9rrhci7050a73cd17fymjksgvy1jbwf6"))))
"0q4nsxic1jlraipdc6zi711c3316n9wgq1cgbywhjlxb52qhkmd7"))))
(properties `((upstream-name . "nodbi")))
(build-system r-build-system)
(propagated-inputs
@ -14652,14 +14715,14 @@ functions.")
(define-public r-flextable
(package
(name "r-flextable")
(version "0.9.4")
(version "0.9.5")
(source
(origin
(method url-fetch)
(uri (cran-uri "flextable" version))
(sha256
(base32
"1dlsag1y3s7d5lp1dh2kxf1qax4r9xvxycpmxl64gkr50dk13bam"))))
"14mq27k7998405qwpdpxa1csbf5pdgzj9s892xm95bd4chnshdvw"))))
(build-system r-build-system)
(propagated-inputs
(list r-data-table
@ -14730,13 +14793,13 @@ contains or can be specified by the user.")
(define-public r-wrs2
(package
(name "r-wrs2")
(version "1.1-5")
(version "1.1-6")
(source (origin
(method url-fetch)
(uri (cran-uri "WRS2" version))
(sha256
(base32
"028xs424m879siaf3rrhzl1dacp9j7wcl5fpikyx2n0cc7anq4vq"))))
"1wsnsl4gy1hbgxfzzhfybak0jqmxq9fsh3scqyxydd7ia9r2n52k"))))
(properties `((upstream-name . "WRS2")))
(build-system r-build-system)
(propagated-inputs (list r-mass r-plyr r-reshape))
@ -16525,14 +16588,14 @@ console, resulting in an interactive editing environment.")
(define-public r-survey
(package
(name "r-survey")
(version "4.2-1")
(version "4.4-1")
(source
(origin
(method url-fetch)
(uri (cran-uri "survey" version))
(sha256
(base32
"0l7iml53k2blmcgvbvplln08fn2s6da856m5izcvw87v6bhn2g6c"))))
"1649srmdr8i9j8grqikkm8nbfav31s7iygx6pv96jvr3wh80yh46"))))
(build-system r-build-system)
(propagated-inputs
(list r-lattice
@ -16540,7 +16603,10 @@ console, resulting in an interactive editing environment.")
r-minqa
r-mitools
r-numderiv
r-rcpp
r-rcpparmadillo
r-survival))
(native-inputs (list r-r-rsp))
(home-page "https://r-survey.r-forge.r-project.org/survey/")
(synopsis "Analysis of complex survey samples")
(description
@ -16607,13 +16673,13 @@ handle data from simple random samples as well as complex surveys.")
(define-public r-tarchetypes
(package
(name "r-tarchetypes")
(version "0.7.12")
(version "0.8.0")
(source (origin
(method url-fetch)
(uri (cran-uri "tarchetypes" version))
(sha256
(base32
"0l5kk7a3p0pbqh9rrjz43aa4dgcfffcb3wwsl60bm9v48lzv7frv"))))
"18vn2mx5nqlib0by5v7493g8gsbzcdbg0dn92cpbf713r69v1lbk"))))
(properties `((upstream-name . "tarchetypes")))
(build-system r-build-system)
(propagated-inputs (list r-digest
@ -16641,13 +16707,13 @@ were influenced by the drake R package by Will Landau (2018)
(define-public r-targets
(package
(name "r-targets")
(version "1.5.1")
(version "1.6.0")
(source (origin
(method url-fetch)
(uri (cran-uri "targets" version))
(sha256
(base32
"1g21cp0p5jdghr61w9q3y73jm2k248z4apn7rlxqm6m18i4x7zsb"))))
"1ddpbhvdydxm62k6ay7hpqjh8kh2isjpcdh3gygzcdrghx6d7x65"))))
(properties `((upstream-name . "targets")))
(build-system r-build-system)
(propagated-inputs (list r-base64url
@ -17065,13 +17131,13 @@ Hothorn, Westfall, 2010, CRC Press).")
(define-public r-multcompview
(package
(name "r-multcompview")
(version "0.1-9")
(version "0.1-10")
(source
(origin
(method url-fetch)
(uri (cran-uri "multcompView" version))
(sha256
(base32 "15vki166n2k4ng72hy62c2mzz18s10h6l6w839qplg0zsplr6f8z"))))
(base32 "12mdk12xciq1d3zn94rixahhcah2qq41lvb5n4kzgjaq4yr4kwiq"))))
(properties `((upstream-name . "multcompView")))
(build-system r-build-system)
(home-page "https://cran.r-project.org/package=multcompView")
@ -17780,14 +17846,14 @@ more information about packages, and where they were installed from.")
(define-public r-remotes
(package
(name "r-remotes")
(version "2.4.2.1")
(version "2.5.0")
(source
(origin
(method url-fetch)
(uri (cran-uri "remotes" version))
(sha256
(base32
"1790q52z4fy4zb1hnpn066q9fph53syl7gaxlbgbqq1dcndcma3v"))))
"0345s9q0fyv0wrxkklcy97h7bi85jfb3vwkh80px926d4qa3yrjd"))))
(build-system r-build-system)
(native-inputs
(list r-knitr))
@ -18529,14 +18595,14 @@ Bioconductor packages.")
(define-public r-rgl
(package
(name "r-rgl")
(version "1.2.8")
(version "1.3.1")
(source
(origin
(method url-fetch)
(uri (cran-uri "rgl" version))
(sha256
(base32
"1x0p2yldg2mjf64xd5dd0bidzgy7b39w7zn18ghan2rdf0wffdg5"))
"0jbda1b4lrkcpdld369687pm7isy69l5sx1wg2yrpvvzvmcppslz"))
(snippet
'(delete-file "inst/htmlwidgets/lib/CanvasMatrix/CanvasMatrix.min.js"))))
;; For OpenGL and X11 support
@ -18561,10 +18627,10 @@ Bioconductor packages.")
r-rmarkdown)) ;for vignettes
(inputs
(list freetype
libpng
glu
libpng
libx11
pandoc
zlib
zlib))
(propagated-inputs
(list r-base64enc
@ -18978,13 +19044,13 @@ Tabelow (2007) <DOI:10.18637/jss.v019.i01>.")
(define-public r-admisc
(package
(name "r-admisc")
(version "0.34")
(version "0.35")
(source
(origin
(method url-fetch)
(uri (cran-uri "admisc" version))
(sha256
(base32 "1psvi8hb7j65abw8g4ya9r43r5kd9mcv478pg2d09za0cig8gkzx"))))
(base32 "0gzdb9dm34qfkjqgfrd3wm96dzhcps4xayyrhp80mzgh14zmnjyg"))))
(properties `((upstream-name . "admisc")))
(build-system r-build-system)
(home-page "https://github.com/dusadrian/admisc")
@ -19198,14 +19264,14 @@ Processing.")
(define-public r-tm
(package
(name "r-tm")
(version "0.7-11")
(version "0.7-12")
(source
(origin
(method url-fetch)
(uri (cran-uri "tm" version))
(sha256
(base32
"0hp7xamjmifd56qwsin5m0xng592wwxsbfxdz37n4k6zjf28paws"))))
"1z0zpz6jgzg34cz07cdpya2zwwsvywrd8xgwahhlz15vnaij7j3y"))))
(properties `((upstream-name . "tm")))
(build-system r-build-system)
(propagated-inputs
@ -19327,14 +19393,14 @@ over-plotting in scatter plots with text.")
(define-public r-colorramps
(package
(name "r-colorramps")
(version "2.3.2")
(version "2.3.4")
(source
(origin
(method url-fetch)
(uri (cran-uri "colorRamps" version))
(sha256
(base32
"0cq8l6ybhff2q2dj2i73b4cnw6v2c6ql24jbrkh0xrpc9wjsarxj"))))
"1y4gn6v8wmwq3wcfgdnx1ah2qa53gayvbfa62kp286ga4c8k3prw"))))
(properties `((upstream-name . "colorRamps")))
(build-system r-build-system)
(home-page "https://cran.r-project.org/web/packages/colorRamps")
@ -19931,14 +19997,14 @@ and compatibility with @code{ape} objects.")
(define-public r-rnifti
(package
(name "r-rnifti")
(version "1.6.0")
(version "1.6.1")
(source
(origin
(method url-fetch)
(uri (cran-uri "RNifti" version))
(sha256
(base32
"0spsdkqvlkk7xn6wz6778gc6cc7dnfcwpz91q8wdzxgcbgxdy0yv"))))
"0wn06fnq5c7f0vwakryb75vzkjh03dqz2z57lgmn68hwgssnpalc"))))
(properties `((upstream-name . "RNifti")))
(build-system r-build-system)
(inputs (list zlib))
@ -20429,14 +20495,14 @@ preparing, executing, and processing HTTP requests.")
(define-public r-bigrquery
(package
(name "r-bigrquery")
(version "1.5.0")
(version "1.5.1")
(source
(origin
(method url-fetch)
(uri (cran-uri "bigrquery" version))
(sha256
(base32
"1s2vvygv4d8mdd67r6j2s9d1xg009lpxysfarmrnqh0s2s1rglkz"))))
"0wkm9xka83skq1cnv830q4jnqvwm8rlmns2mj8n692h2y5qxlmna"))))
(build-system r-build-system)
(propagated-inputs
(list r-bit64
@ -21642,14 +21708,14 @@ subsetting.")
(define-public r-globals
(package
(name "r-globals")
(version "0.16.2")
(version "0.16.3")
(source
(origin
(method url-fetch)
(uri (cran-uri "globals" version))
(sha256
(base32
"02kpdlrx1bannaixz03c0f7bii9g36iy2nw779mfgi56byljcb38"))))
"0nwcl40sbmmf812di9c3lryls9wn2k2dyjvpkp9832wd4jafsg6p"))))
(build-system r-build-system)
(propagated-inputs
(list r-codetools))
@ -22208,14 +22274,14 @@ numbers (e.g. concentrations).")
(define-public r-cobs
(package
(name "r-cobs")
(version "1.3-7")
(version "1.3-8")
(source
(origin
(method url-fetch)
(uri (cran-uri "cobs" version))
(sha256
(base32
"0gz6i8scvfkmg0z7rcqc422dm360xv5ygcxnj6yyvpcpdv7sdp9k"))))
"08cqpiylbfy5j5xxajpngqaycmmciwhyf3sk3972x2l6rg3lj81c"))))
(build-system r-build-system)
(propagated-inputs
(list r-quantreg r-sparsem))
@ -22798,14 +22864,14 @@ network.")
(define-public r-gmodels
(package
(name "r-gmodels")
(version "2.18.1.1")
(version "2.19.1")
(source
(origin
(method url-fetch)
(uri (cran-uri "gmodels" version))
(sha256
(base32
"158y7yh4maawn9vki8cq4sil48xib2bbpl6qgj5gvlkw3c14hzfs"))))
"13c8x7iwyz36qir3ikbvjb5dl6gdh4fh82qdxcpcdinwfhrbhmxv"))))
(build-system r-build-system)
(propagated-inputs
(list r-gdata r-mass))
@ -23727,13 +23793,13 @@ lspec, polyclass, and polymars.")
(define-public r-rms
(package
(name "r-rms")
(version "6.7-1")
(version "6.8-0")
(source
(origin
(method url-fetch)
(uri (cran-uri "rms" version))
(sha256
(base32 "199xb98zxsbd8wa9g33bgrvbcpq79glnfmq060ic8f9vjw96r0qz"))))
(base32 "1cd6m6i2ild2f2x9rkyd2aqb33q3xy0596bs3dnvr2mnh5fcar5d"))))
(build-system r-build-system)
(propagated-inputs
(list r-cluster
@ -24829,14 +24895,14 @@ databases, including ENA, PDB or ChEMBL are also accessible.")
(define-public r-ggraph
(package
(name "r-ggraph")
(version "2.2.0")
(version "2.2.1")
(source
(origin
(method url-fetch)
(uri (cran-uri "ggraph" version))
(sha256
(base32
"0zs02xyzvimk8hj1z465zxp1hlca3gfirdcwb3gqriwsmnfhg661"))))
"1w9snb43wpa2rv16fx5vmh7nqpgkr05iz6flnmlfx3xd0ylzh1a4"))))
(build-system r-build-system)
(propagated-inputs
(list r-cli
@ -25631,14 +25697,14 @@ colored by the number of neighboring points. This is useful to visualize the
(define-public r-arrow
(package
(name "r-arrow")
(version "14.0.2.1")
(version "15.0.1")
(source
(origin
(method url-fetch)
(uri (cran-uri "arrow" version))
(sha256
(base32
"1l1ninmq6mbqm7cckcy0qw4f20fkrixrykcqkh24bszg514r9af5"))))
"070pp0p5h1ij7pg34l5grrx4vwfihagnvnk4kj7l3w0gh8y88ibz"))))
(properties `((upstream-name . "arrow")))
(build-system r-build-system)
(inputs
@ -27262,14 +27328,14 @@ both R code and compiled C/C++/FORTRAN code.")
(define-public r-systemfonts
(package
(name "r-systemfonts")
(version "1.0.5")
(version "1.0.6")
(source
(origin
(method url-fetch)
(uri (cran-uri "systemfonts" version))
(sha256
(base32
"08sqw5izpwhawcjkcyscvslz914skwfi0s68rdwrqwwkh8fzn3w4"))))
"1mqxb2njfnk5rfwkqc940xbpwd3dh25zac4sapv5mjyddrxnwn6i"))))
(properties `((upstream-name . "systemfonts")))
(build-system r-build-system)
(propagated-inputs
@ -27291,14 +27357,14 @@ be used further by e.g. graphic devices.")
(define-public r-graphlayouts
(package
(name "r-graphlayouts")
(version "1.1.0")
(version "1.1.1")
(source
(origin
(method url-fetch)
(uri (cran-uri "graphlayouts" version))
(sha256
(base32
"14ib4yjcxb6zgci5h89p9swqabab57bzywwp96d3nhn620chap22"))))
"009q5y46lbizdabbb6a61xlfa3g5lf3nd9w42709lcxi0ad4bhkv"))))
(properties `((upstream-name . "graphlayouts")))
(build-system r-build-system)
(propagated-inputs
@ -27443,14 +27509,14 @@ in pipelines.")
(define-public r-parameters
(package
(name "r-parameters")
(version "0.21.5")
(version "0.21.6")
(source
(origin
(method url-fetch)
(uri (cran-uri "parameters" version))
(sha256
(base32
"0yxljycspmljj5s4i5knwyhxp29s616f7kg3xcwn0ip15kfg260v"))))
"004ld3m9qdq3bwl8qmp3h700kzqlgbmgz739d7fpiqgrs0s2gv83"))))
(properties `((upstream-name . "parameters")))
(build-system r-build-system)
(propagated-inputs
@ -28550,21 +28616,18 @@ and mixture of Gaussian models.")
(define-public r-accsda
(package
(name "r-accsda")
(version "1.1.2")
(version "1.1.3")
(source
(origin
(method url-fetch)
(uri (cran-uri "accSDA" version))
(sha256
(base32
"0jf4x5j9y7a3mvf2ghjp6bxdq1s5jh2sx3x3ar6f3lyzzvrnls4v"))))
"1s0c4wy4bzrc2fkka7kl519z1yckp6s4ggzy1ik992ygyprdcs1q"))))
(properties `((upstream-name . "accSDA")))
(build-system r-build-system)
(propagated-inputs
(list r-ggplot2
r-ggthemes
r-gridextra
r-mass))
(list r-ggplot2 r-gridextra r-mass))
(home-page "https://github.com/gumeo/accSDA/wiki")
(synopsis "Accelerated sparse discriminant analysis")
(description
@ -28790,14 +28853,14 @@ discussed in Reisen et al. (2017) @url{doi:10.1016/j.jspi.2017.02.008}.")
(define-public r-gamlss-data
(package
(name "r-gamlss-data")
(version "6.0-2")
(version "6.0-6")
(source
(origin
(method url-fetch)
(uri (cran-uri "gamlss.data" version))
(sha256
(base32
"07mpdl4h9rwmnpl9jmsn6ig8ji11an6pyjfsvg62h2alapwbdcyv"))))
"08mb154mz1kk19zb414i5mg1q1yv7nylwpc5kzsb602mv4cxpq5s"))))
(properties `((upstream-name . "gamlss.data")))
(build-system r-build-system)
(home-page "http://www.gamlss.org/")
@ -29856,14 +29919,14 @@ variable observed over time.")
(define-public r-fda
(package
(name "r-fda")
(version "6.1.7")
(version "6.1.8")
(source
(origin
(method url-fetch)
(uri (cran-uri "fda" version))
(sha256
(base32
"00hiz15v31zs5l0bqdkim1fpfd3bjvssv77iczq0si724s4fqxiq"))))
"01y488zviaj9z8h88vnia9wg4as62jx73la1qji1ljbr5258b3gg"))))
(properties `((upstream-name . "fda")))
(build-system r-build-system)
(propagated-inputs
@ -31470,7 +31533,7 @@ pages.")
"These utilities facilitate the programmatic manipulations of formulas,
expressions, calls, assignments and other R language objects. These objects
all share the same structure: a left-hand side, operator and right-hand side.
This packages provides methods for accessing and modifying this structures as
This package provides methods for accessing and modifying this structures as
well as extracting and replacing names and symbols from these objects.")
(license license:gpl2)))
@ -32360,14 +32423,14 @@ Latent regression models and plausible value imputation are also supported.")
(define-public r-erm
(package
(name "r-erm")
(version "1.0-5")
(version "1.0-6")
(source
(origin
(method url-fetch)
(uri (cran-uri "eRm" version))
(sha256
(base32
"0bkivhiy02pibdcvb9z0i0yvc3wz3v33n6slhkkik61gcw1idmf0"))))
"059xny2jl81is1qyxgpbf4qi5zqpvdc64322kjz1i011kq9apwmw"))))
(properties `((upstream-name . "eRm")))
(build-system r-build-system)
(propagated-inputs
@ -32714,14 +32777,14 @@ techniques to average Bayesian predictive distributions.")
(define-public r-rstan
(package
(name "r-rstan")
(version "2.32.5")
(version "2.32.6")
(source
(origin
(method url-fetch)
(uri (cran-uri "rstan" version))
(sha256
(base32
"0m655pf0lrhqh2mzylximd2vch9wy252k4zwyfqn1sfwmx642dva"))))
"0w0si8sd26c4nivqh85y0imil14sp4vy97yikmrv1lxvj40x141k"))))
(properties
'((upstream-name . "rstan")
(updater-extra-native-inputs . ("tzdata-for-tests"))))
@ -32750,6 +32813,7 @@ techniques to average Bayesian predictive distributions.")
r-rcppeigen
r-rcppparallel
r-stanheaders))
(inputs (list pandoc))
(home-page "https://discourse.mc-stan.org/")
(synopsis "R interface to Stan")
(description
@ -35663,14 +35727,14 @@ model.")
(define-public r-igraph
(package
(name "r-igraph")
(version "2.0.2")
(version "2.0.3")
(source
(origin
(method url-fetch)
(uri (cran-uri "igraph" version))
(sha256
(base32
"0kfc9blyy54cz0m4mdzzwgvn0rkil49kdk438411mx62g2vxby9l"))))
"0xlg5lxzr8dc260fii43chsspqvb962i1yrcars988b78lnig2lf"))))
(properties
`((upstream-name . "igraph")
(updater-extra-native-inputs . ("which"))))
@ -35678,7 +35742,7 @@ model.")
(native-inputs
(list gfortran pkg-config r-knitr which))
(inputs
(list glpk gmp libxml2 zlib))
(list glpk libxml2 zlib))
(propagated-inputs
(list r-cli
r-cpp11
@ -36892,13 +36956,13 @@ other R users.")
(define-public r-seurat
(package
(name "r-seurat")
(version "5.0.2")
(version "5.0.3")
(source (origin
(method url-fetch)
(uri (cran-uri "Seurat" version))
(sha256
(base32
"1d49a9mhip81lvnkr8i4dznkmzyskdzrpi485w7yw2sr0qbyzg5c"))))
"08r5l6sk8i134izd29ydfm7hva7a9b3lfglmgngc9w73qs9dzwz4"))))
(properties `((upstream-name . "Seurat")))
(build-system r-build-system)
(propagated-inputs
@ -37668,13 +37732,13 @@ computational operations, add-on packages provide additional functionality.")
(define-public r-mlr3learners
(package
(name "r-mlr3learners")
(version "0.5.8")
(version "0.6.0")
(source (origin
(method url-fetch)
(uri (cran-uri "mlr3learners" version))
(sha256
(base32
"0q44qmd9zfc68jl2zz684rx9744g83vd7z40dck8cdvnnrxcff5g"))))
"06gz6h19cnb62js1b35nddy453dyj64mr788p8ww56kgfk6yzxr8"))))
(build-system r-build-system)
(propagated-inputs
(list r-checkmate
@ -38019,14 +38083,14 @@ the font tool-set provided by the @code{systemfonts} package.")
(define-public r-ragg
(package
(name "r-ragg")
(version "1.2.7")
(version "1.3.0")
(source
(origin
(method url-fetch)
(uri (cran-uri "ragg" version))
(sha256
(base32
"17qc53scxf02f8hlpyirsjdav4wjh3mk6q04npf82y0j5mk1hynp"))))
"1chlas4i6p8gigx02x1y7nanmz9jbv1h4fa145zk223bbg9j931j"))))
(properties `((upstream-name . "ragg")))
(build-system r-build-system)
(inputs
@ -39592,28 +39656,19 @@ package.")
(define-public r-qs
(package
(name "r-qs")
(version "0.25.7")
(version "0.26.1")
(source
(origin
(method url-fetch)
(uri (cran-uri "qs" version))
(sha256
(base32
"0a0jay9p2k0ahf08s94dr1w66qhbgzs87vkaanwkd4j6lvijncz7"))))
"0qmgnc4igy8mjzarm30cgi4z75hh8f01kvcs6n6s63cy4qk30vs6"))))
(properties `((upstream-name . "qs")))
(build-system r-build-system)
(arguments
(list
#:phases
'(modify-phases %standard-phases
;; Our zstd is at 1.5.0, but this package bundles 1.5.2.
(add-after 'unpack 'use-older-zstd
(lambda _
(substitute* "configure"
(("100502") "100500")))))))
(inputs (list lz4 (list zstd "lib")))
(propagated-inputs
(list r-rapiserialize r-rcpp r-stringfish))
(list r-bh r-rapiserialize r-rcpp r-stringfish))
(native-inputs
(list pkg-config r-knitr))
(home-page "https://github.com/traversc/qs")
@ -40039,14 +40094,14 @@ fully reproducible.")
(define-public r-paws-common
(package
(name "r-paws-common")
(version "0.7.0")
(version "0.7.1")
(source
(origin
(method url-fetch)
(uri (cran-uri "paws.common" version))
(sha256
(base32
"05rld34brjc32p9f9cbqyyh208rh9idnyih33cpw7bz7bfyicnqm"))))
"1mjbyykav3f5yv59hnaihqsqhinvrlhphp93ks9xp756w6abciqf"))))
(properties `((upstream-name . "paws.common")))
(build-system r-build-system)
(propagated-inputs
@ -41082,13 +41137,13 @@ Monte Carlo approach implemented in JAGS.")
(define-public r-logger
(package
(name "r-logger")
(version "0.2.2")
(version "0.3.0")
(source
(origin
(method url-fetch)
(uri (cran-uri "logger" version))
(sha256
(base32 "08kym5i5fvbf5xhh9qdszp4jdgyc7j7zpnwzy68wabqz73aff6sg"))))
(base32 "0ivhrmq408pb7gx7yhmrn6mjkx15dvkb4bpk4z5y642l3j2vv9vd"))))
(properties `((upstream-name . "logger")))
(build-system r-build-system)
(native-inputs (list r-knitr))

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

@ -9664,6 +9664,7 @@ capabilities.")
(description "This package provides spec generation for clap-rs/clap.")
(license license:expat)))
;; TODO: Remove this package in favor of rust-cargo in rust-apps.scm.
(define-public rust-cargo-0.76
(package
(name "rust-cargo")

15
gnu/packages/databases.scm
View File

@ -160,7 +160,6 @@
#:use-module (gnu packages sphinx)
#:use-module (gnu packages ssh)
#:use-module (gnu packages sqlite)
#:use-module (gnu packages syncthing) ;for go-github-com-lib-pq
#:use-module (gnu packages tcl)
#:use-module (gnu packages terminals)
#:use-module (gnu packages texinfo)
@ -4514,7 +4513,7 @@ the SQL language using a syntax that reflects the resulting query.")
(define-public apache-arrow
(package
(name "apache-arrow")
(version "14.0.2")
(version "15.0.1")
(source
(origin
(method git-fetch)
@ -4524,7 +4523,7 @@ the SQL language using a syntax that reflects the resulting query.")
(file-name (git-file-name name version))
(sha256
(base32
"1idw58vs8r6g6xy2qkhccgc79hwx4r5rr4bhd6ilxx56fwq9hkn2"))))
"0zrcwsq9c976xncc1kg6lw24s5r3ag8vfzhmcnkvi5z2c9x4lvvc"))))
(build-system cmake-build-system)
(arguments
(list
@ -5353,11 +5352,10 @@ compatible with SQLite using a graphical user interface.")
(package
(name "sqls")
(version "0.2.18")
(home-page "https://github.com/lighttiger2505/sqls")
(source (origin
(method git-fetch)
(uri (git-reference
(url home-page)
(url "https://github.com/sqls-server/sqls")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
@ -5365,19 +5363,22 @@ compatible with SQLite using a graphical user interface.")
"13837v27avdp2nls3vyy7ml12nj7rxragchwf92adn10ffp4aj6c"))))
(build-system go-build-system)
(arguments
'(#:import-path "github.com/lighttiger2505/sqls"))
(list
#:install-source? #f
#:import-path "github.com/lighttiger2505/sqls"))
(inputs (list go-github-com-go-sql-driver-mysql
go-github-com-lib-pq
go-github-com-mattn-go-runewidth
go-github-com-mattn-go-sqlite3
go-github-com-olekukonko-tablewriter
go-github-com-pkg-errors
go-github-com-sourcegraph-jsonrpc2
go-golang-org-x-crypto
go-github-com-mattn-go-runewidth
go-golang-org-x-xerrors
go-gopkg-in-yaml-v2))
(native-inputs (list go-github-com-google-go-cmp-cmp
go-github-com-k0kubun-pp))
(home-page "https://github.com/sqls-server/sqls")
(synopsis "SQL language server written in Go")
(description
"This package implements the @acronym{LSP, Language Server Protocol} for SQL.")

5
gnu/packages/diffoscope.scm
View File

@ -74,7 +74,7 @@
(define-public diffoscope
(package
(name "diffoscope")
(version "258")
(version "260")
(source
(origin
(method git-fetch)
@ -83,7 +83,7 @@
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "1wppshi18lyrgxxi8j06ij0qi31zdgqwjj6bycsyvipkc1cj6xhp"))))
(base32 "1yp32g2769mn91k6wx6fs7lhcfi1cdy54apkgfaf7ib6l0ji5hwv"))))
(build-system python-build-system)
(arguments
(list
@ -198,6 +198,7 @@
odt2txt
openssh
openssl
p7zip
pgpdump
poppler
python-jsbeautifier

8
gnu/packages/dns.scm
View File

@ -1273,7 +1273,7 @@ nameservers other than libc.")
(define-public smartdns
(package
(name "smartdns")
(version "43")
(version "45")
(source (origin
(method git-fetch)
(uri (git-reference
@ -1285,7 +1285,7 @@ nameservers other than libc.")
((".*SYSTEMDSYSTEMUNITDIR.*") "")))
(sha256
(base32
"0s789l6i4yirmarg80mknc1pp65rz01ky9f7gidgclkfcwzz41l3"))))
"1f0j6d8vz1x2f4nr2w3q7azkjh8hlkj81v61a8sw1kq5160qhlb9"))))
(build-system gnu-build-system)
(arguments
(list #:test-target "test"
@ -1293,7 +1293,7 @@ nameservers other than libc.")
#~(list (string-append "CC=" #$(cc-for-target))
(string-append "DESTDIR=" #$output)
"PREFIX=''"
(string-append "VER=" #$version))
(string-append "VER=" #$(package-version this-package)))
#:phases
#~(modify-phases %standard-phases
(delete 'configure)
@ -1321,7 +1321,7 @@ nameservers other than libc.")
(lambda _
(chdir "../../source"))))))
(inputs (list openssl))
(native-inputs (list googletest `(,isc-bind "utils")))
(native-inputs (list googletest `(,isc-bind "utils") which))
(home-page "https://github.com/pymumu/smartdns")
(synopsis "Local DNS server")
(description

45
gnu/packages/documentation.scm
View File

@ -30,7 +30,7 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages documentation)
#:use-module (guix licenses)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix gexp)
@ -104,7 +104,7 @@
(description "LaTeX2HTML is a utility that converts LaTeX documents to web
pages in HTML.")
(home-page "https://www.latex2html.org/")
(license gpl2+)))
(license license:gpl2+)))
(define-public asciidoc
(package
@ -175,7 +175,7 @@ EPUB, man page.
AsciiDoc is highly configurable: both the AsciiDoc source file syntax and
the backend output markups (which can be almost any type of SGML/XML
markup) can be customized and extended by the user.")
(license gpl2+)))
(license license:gpl2+)))
(define-deprecated asciidoc-py3 asciidoc)
@ -241,7 +241,34 @@ documentation from annotated C++ sources, but it also supports other popular
programming languages such as C, Objective-C, C#, PHP, Java, Python,
IDL (Corba, Microsoft, and UNO/OpenOffice flavors), Fortran, VHDL, Tcl,
and to some extent D.")
(license gpl3+)))
(license license:gpl3+)))
(define-public halibut
(package
(name "halibut")
(version "1.3")
(source (origin
(method url-fetch)
(uri (string-append
"https://www.chiark.greenend.org.uk/~sgtatham/halibut/halibut-"
version "/halibut-" version ".tar.gz"))
(sha256
(base32
"0ciikn878vivs4ayvwvr63nnhpcg12m8023xv514zxqpdxlzg85a"))))
(build-system cmake-build-system)
(arguments
'(#:tests? #f)) ;No tests.
(native-inputs (list pkg-config perl))
(home-page "https://www.chiark.greenend.org.uk/~sgtatham/halibut/")
(synopsis "Documentation production system for software manuals")
(description
"Halibut is a text formatting system designed primarily for writing software
documentation. It accepts a single source format and outputs any combination of
plain text, HTML, Unix man or info pages, PostScript or PDF. It has extensive
support for indexing and cross-referencing, and generates hyperlinks within output
documents wherever possible. It supports Unicode, with the ability to fall back to
an alternative representation if Unicode output is not available.")
(license license:expat)))
(define-public doc++
(package
@ -266,7 +293,7 @@ and to some extent D.")
generate both TeX output for high-quality hardcopies or HTML output for online
browsing. The documentation is extracted directly from the C/C++/IDL source
or Java class files.")
(license gpl2+)))
(license license:gpl2+)))
(define-public pod2pdf
(package
@ -292,7 +319,7 @@ or Java class files.")
Documentation} format to PDF files. It also supports some extensions to the POD
format, and supports the file types JPG, GIF, TIFF, PNG, and PNM for embedded
objects.")
(license artistic2.0)))
(license license:artistic2.0)))
(define-public python-docrepr
(package
@ -344,7 +371,7 @@ objects.")
(description "Docrepr renders Python docstrings to HTML with Sphinx. It
can generate rich and plain representations of docstrings, alongside
additional metadata about the object to which the docstring belongs.")
(license bsd-3)))
(license license:bsd-3)))
(define-public scrollkeeper
(package
@ -377,7 +404,7 @@ documentation metadata as specified by the Open Source Metadata Framework and
provides a simple API to allow help browsers to find, sort, and search the
document catalog. It will also be able to communicate with catalog servers on
the Net to search for documents which are not on the local system.")
(license lgpl2.1+)))
(license license:lgpl2.1+)))
(define-public zeal
(let ((commit "1cfa7c637f745be9d98777f06b4f8dec90892bf2")
@ -425,4 +452,4 @@ the Net to search for documents which are not on the local system.")
(synopsis "Offline documentation browser inspired by Dash")
(description "Zeal is a simple offline documentation browser
inspired by Dash.")
(license gpl3+))))
(license license:gpl3+))))

4
gnu/packages/education.scm
View File

@ -566,7 +566,7 @@ a pen-tablet display and a beamer.")
(define-public fet
(package
(name "fet")
(version "6.15.0")
(version "6.18.1")
(source
(origin
(method url-fetch)
@ -575,7 +575,7 @@ a pen-tablet display and a beamer.")
(list (string-append directory base)
(string-append directory "old/" base))))
(sha256
(base32 "0mmk9f0b23lmmk40mv25wf9vgb7wdgfn5zsa1qrkvkh7dh1hjpax"))))
(base32 "0yf94z4yybaw53jf0hzi1p53rwa91wl3g6pai7gsr4palssyfxw2"))))
(build-system gnu-build-system)
(arguments
(list

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

File diff suppressed because it is too large Load Diff

17
gnu/packages/emulators.scm
View File

@ -6,7 +6,7 @@
;;; Copyright © 2015, 2018, 2023 David Thompson <dthompson2@worcester.edu>
;;; Copyright © 2016 Manolis Fragkiskos Ragkousis <manolis837@gmail.com>
;;; Copyright © 2016, 2017, 2018, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017-2023 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2017-2024 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2017, 2020, 2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2018, 2019 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2019 Pierre Neidhardt <mail@ambrevar.xyz>
@ -410,7 +410,7 @@ older games.")
;; This is not a patch staging area for DOSBox, but an unaffiliated fork.
(package
(name "dosbox-staging")
(version "0.80.1")
(version "0.81.0")
(source
(origin
(method git-fetch)
@ -419,7 +419,7 @@ older games.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1iqqrw95lpgjbmi777jdl5z1nizxgfy8xwpmy1fasjlb2yh2kp93"))))
(base32 "1fkshxaq12pd72v8m2f3a6d6jk9gh39hn0846gfkfinvw7yykzrl"))))
(build-system meson-build-system)
(arguments
(list #:configure-flags
@ -736,7 +736,7 @@ The following systems are supported:
(define-public mgba
(package
(name "mgba")
(version "0.10.2")
(version "0.10.3")
(source
(origin
(method git-fetch)
@ -746,7 +746,7 @@ The following systems are supported:
(file-name (git-file-name name version))
(sha256
(base32
"1wwpjcblp2c1svab4z1if5xb7707wsy6zw590lwdz9za35i0h37q"))
"1h4wsx76kylsn4f4418swbp6zjp1x94dfn751iks1i6i529pfay1"))
(modules '((guix build utils)))
(snippet
;; Make sure we don't use the bundled software.
@ -760,7 +760,8 @@ The following systems are supported:
(arguments
`(#:tests? #f ;no "test" target
#:configure-flags
(list "-DUSE_LZMA=OFF" ;do not use bundled LZMA
(list "-DBUILD_LTO=OFF" ;FIXME: <https://github.com/mgba-emu/mgba/issues/3115>
"-DUSE_LZMA=OFF" ;do not use bundled LZMA
"-DUSE_LIBZIP=OFF"))) ;use "zlib" instead
(native-inputs (list pkg-config qttools-5))
(inputs
@ -1574,14 +1575,14 @@ that compiles to WebAssembly.")
(define-public scummvm
(package
(name "scummvm")
(version "2.7.0")
(version "2.8.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://downloads.scummvm.org/frs/scummvm/" version
"/scummvm-" version ".tar.xz"))
(sha256
(base32 "14wrrzai25mh8qra3lsfibx8z6f96cqbnmsfh9kyhkvpc7yiyjs4"))))
(base32 "1dr70z1dkfw2gp43jq0qp7g73glr36a7qdcv1jvp1m927nhz95vy"))))
(build-system gnu-build-system)
(arguments
(list

26
gnu/packages/enchant.scm
View File

@ -43,31 +43,23 @@
(define-public nuspell
(package
(name "nuspell")
(version "3.1.2")
(version "5.1.4")
(source
(origin
(method git-fetch)
(uri
(git-reference
(url "https://github.com/nuspell/nuspell")
(commit
(string-append "v" version))))
(file-name
(git-file-name name version))
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0wbb6dwmzlsyy224y0liis0azgzwbjdvcyzc31pw1aw6vbp36na6"))))
(base32 "05j1hmczy6v9dyxp77vxhgyl7y5hff3v45vlp86gyh7m9lgqpmra"))))
(build-system cmake-build-system)
(native-inputs
(list catch2
git-minimal
perl
;;FIX-ME: Building with ronn fails.
;;("ronn" ,ronn)
pkg-config))
(inputs
(list boost))
(propagated-inputs
(list icu4c))
(native-inputs (list catch2-3 pkg-config))
(propagated-inputs (list icu4c))
(native-search-paths (list (search-path-specification
(variable "DICPATH")
(files '("share/hunspell")))))
(synopsis "Fast and safe spellchecking C++ library")
(description "Nuspell is a fast and safe spelling checker software
program. It is designed for languages with rich morphology and complex word

11
gnu/packages/engineering.scm
View File

@ -4302,7 +4302,7 @@ form, numpad.
(define-public rizin
(package
(name "rizin")
(version "0.6.2")
(version "0.7.2")
(source (origin
(method url-fetch)
(uri (string-append
@ -4310,7 +4310,7 @@ form, numpad.
version "/rizin-src-v" version ".tar.xz"))
(sha256
(base32
"0szq3wr7i7gwm8llgbhssjb63q70rjqqdlj6078vs110waih16p2"))))
"0ajqng66b01phs0hjygg9phyc8p3fs0a1isbc0zmxdz2bas3zzzw"))))
(build-system meson-build-system)
(arguments
(list
@ -4322,11 +4322,13 @@ form, numpad.
"-Duse_sys_libzip=enabled"
"-Duse_sys_zlib=enabled"
"-Duse_sys_lz4=enabled"
"-Duse_sys_libzstd=enabled"
"-Duse_sys_xxhash=enabled"
"-Duse_sys_openssl=enabled"
"-Duse_sys_tree_sitter=enabled"
"-Duse_sys_lzma=enabled"
"-Duse_sys_libmspack=enabled"
"-Duse_sys_pcre2=enabled"
"-Duse_zlib=true"
"-Duse_lzma=true"
"-Dinstall_sigdb=false"
@ -4342,8 +4344,7 @@ form, numpad.
(("subdir\\('integration'\\)") ""))
;;; Skip failing tests.
(substitute* "test/unit/meson.build"
(("'bin_mach0',\n") "")
(("'hash',\n") "")))))))
(("'bin_mach0',\n") "")))))))
(native-inputs (list pkg-config))
(inputs
(list capstone
@ -4352,9 +4353,11 @@ form, numpad.
libzip
lz4
openssl
pcre2
tree-sitter
xxhash
zlib
(list zstd "lib")
libmspack))
(home-page "https://rizin.re")
(synopsis "Disassemble, debug, analyze, and manipulate binary files")

130
gnu/packages/finance.scm
View File

@ -31,12 +31,14 @@
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2022 Philip McGrath <philip@philipmcgrath.com>
;;; Copyright © 2022 Collin J. Doering <collin@rekahsoft.ca>
;;; Copyright © 2023 dan <i@dan.games>
;;; Copyright © 2022 Justin Veilleux <terramorpha@cock.li>
;;; Copyright © 2023 Frank Pursel <frank.pursel@gmail.com>
;;; Copyright © 2023 Skylar Hill <stellarskylark@posteo.net>
;;; Copyright © 2023 Foundation Devices, Inc. <hello@foundationdevices.com>
;;; Copyright © 2023 Attila Lendvai <attila@lendvai.name>
;;; Copyright © 2024 Saku Laesvuori <saku@laesvuori.fi>
;;; Copyright © 2024 Sharlatan Hellseher <sharlatanus@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -608,7 +610,7 @@ other machines/servers. Electrum does not download the Bitcoin blockchain.")
(define-public electron-cash
(package
(name "electron-cash")
(version "4.3.1")
(version "4.4.0")
(source
(origin
(method git-fetch)
@ -617,7 +619,7 @@ other machines/servers. Electrum does not download the Bitcoin blockchain.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0slx7hmlw2gpcqg951vwvnyl7j52pfzqyaldphghhfxbfzjs7v64"))))
(base32 "1hfkp24m1yipadanjf5wm6clmyllkcbh7fbw8whnrvxa2v7sa4l8"))))
(build-system python-build-system)
(arguments
(list
@ -684,7 +686,7 @@ blockchain.")
;; the system's dynamically linked library.
(package
(name "monero")
(version "0.18.3.1")
(version "0.18.3.2")
(source
(origin
(method git-fetch)
@ -702,7 +704,7 @@ blockchain.")
delete-file-recursively
'("external/miniupnp" "external/rapidjson"))))
(sha256
(base32 "1k6mrgsvmqsfk95w8kjmp9v2fghjmmpj40667zndrw9jx1h85mwx"))))
(base32 "0ri3ss5vgsjk5pzmaaw8yi7sg4lasx58d8kz3m6z5vg7p69gdzxv"))))
(build-system cmake-build-system)
(native-inputs
(list doxygen
@ -789,7 +791,7 @@ the Monero command line client and daemon.")
(define-public monero-gui
(package
(name "monero-gui")
(version "0.18.3.1")
(version "0.18.3.2")
(source
(origin
(method git-fetch)
@ -805,7 +807,7 @@ the Monero command line client and daemon.")
;; See the 'extract-monero-sources' phase.
(delete-file-recursively "monero")))
(sha256
(base32 "1fjx8gdzc1pmfsi14r09gfmkglvh560pnxk70p0k82a4gbs1vyz2"))))
(base32 "0jic43b7jzc1i7x2mqqpbbb2992687nm12kk642yr10dm4maklzb"))))
(build-system qt-build-system)
(native-inputs
`(,@(package-native-inputs monero)
@ -1750,7 +1752,7 @@ following three utilities are included with the library:
(define-public bitcoin-unlimited
(package
(name "bitcoin-unlimited")
(version "2.0.0.0")
(version "2.0.0.1")
(source
(origin
(method git-fetch)
@ -1759,7 +1761,7 @@ following three utilities are included with the library:
(commit (string-append "BCHunlimited" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0s4iyjfhjx21xa3z7433m4skfr115565k0ckza87ha2d4nl8kz5h"))))
(base32 "1kkmg0gp86qz3ya8y5a00yic1mals138b9fv2cjlm7683sfjjljx"))))
(build-system gnu-build-system)
(native-inputs
(list autoconf
@ -1969,35 +1971,54 @@ that allows you to run services and through them access the Bitcoin Cash network
(version "2.3.6")
(source
(origin
(method url-fetch)
(uri (pypi-uri "beancount" version))
(method git-fetch) ; no test data files in PyPI archive
(uri (git-reference
(url "https://github.com/beancount/beancount")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0nj7sdh7wxc0hv8wxwqhw9v1zgx1sn4w92368ci2wzdmssz967w0"))
(patches (search-patches "beancount-disable-googleapis-fonts.patch"))))
(build-system python-build-system)
(base32 "1slxsjw29cyr2kbirdpijhpqspk55k38rpmk3zc02pr1wll62qsv"))
(patches (search-patches "beancount-disable-googleapis-fonts.patch"))
(modules '((guix build utils)))
(snippet
#~(begin
;; Remove broken experiments.
(delete-file-recursively "experiments")
;; Remove bundled packages.
(delete-file-recursively "third_party")))))
(build-system pyproject-build-system)
(arguments
`(#:tests? #f ; Says test is missing, not sure why
#:phases
(modify-phases %standard-phases
;; Not importing the googleapis package for now
(add-after 'unpack 'ignore-googleapis
(lambda _
(substitute* "setup.py"
(("'google-api-python-client',") ""))
#t))
;; No module named 'google_auth_oauthlib'
(delete 'sanity-check))))
(inputs
(list
#:test-flags
#~(list "-k" (string-append
;; ModuleNotFoundError: No module named 'pytest'
"not test_parse_stdin"
;; AssertionError: 5 not greater than 20
" and not test_setup"))
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'relax-requirements
(lambda _
(substitute* "setup.py"
;; Use compatible fork, and do not fail during sanity check.
(("\"pdfminer2\",") ""))))
(add-before 'check 'build-extensions
(lambda _
(invoke "python" "setup.py" "build_ext" "--inplace"))))))
(propagated-inputs
(list python-beautifulsoup4
python-bottle
python-chardet
python-dateutil
python-google-api-client
python-google-auth-oauthlib
python-lxml
python-magic
python-oauth2client
python-ply
python-requests))
(native-inputs
(list python-pytest))
(list gnupg python-pdfminer-six python-pytest))
(home-page "https://beancount.github.io/")
(synopsis "Command-line double-entry accounting tool")
(description
@ -2006,6 +2027,55 @@ define financial transaction records in a text file, read them in memory,
generate a variety of reports from them, and provides a web interface.")
(license license:gpl2)))
(define-public fava
(package
(name "fava")
;; XXX: A newer version requires Flask > 2.2, which is not available in
;; Guix yet.
(version "1.24.4")
(source
(origin
(method url-fetch)
(uri (pypi-uri "fava" version))
(sha256
(base32 "1iwha9vx223iiyjqbixpz1lp8q766ikhi7xcap3pscjhldxlym4j"))))
(build-system pyproject-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'relax-requirements
(lambda _
(substitute* "setup.cfg"
((">=8,<10") ">8"))))
;; Tests write to $HOME.
;; FileNotFoundError: [Errno 2] No such file or directory
(add-before 'check 'set-home
(lambda _
(setenv "HOME" "/tmp"))))))
(propagated-inputs
(list beancount
python-babel
python-cheroot
python-click
python-flask
python-flask-babel
python-jinja2
python-markdown2
python-ply
python-simplejson
python-werkzeug))
(native-inputs
(list python-pytest
python-chardet
python-dateutil
python-setuptools-scm))
(home-page "https://beancount.github.io/fava/")
(synopsis "Web interface for the accounting tool Beancount")
(description "Fava is a web interface for the double-entry bookkeeping
software Beancount with a focus on features and usability.")
(license license:expat)))
(define-public emacs-beancount
;; Note that upstream has not made any release since this project moved
;; into its own repository (it was originally part of beancount itself)
@ -2359,11 +2429,11 @@ pool.")
(define-public opentaxsolver
;; The OTS version is formatted like tax-year_version. So, at time of
;; writing, the version is 2022_20.00. Each part of this is used in
;; writing, the version is 2023_21.03. Each part of this is used in
;; different places in the source uri, so it's convenient to have them
;; separately like this.
(let ((tax-year "2022")
(ots-version "20.00"))
(let ((tax-year "2023")
(ots-version "21.03"))
(package
(name "opentaxsolver")
(version (string-append tax-year "_" ots-version))
@ -2375,7 +2445,7 @@ pool.")
"_linux/OpenTaxSolver" version "_linux64.tgz"))
(sha256
(base32
"06k0a72bmwdmr71dvrp8b4vl8vilnggsh92hrp7wjdgcjj9m074w"))
"1i543bvclnyiwnyjlskhr2bxlsigggvwdhg2519rf12lsghgfszq"))
(patches (search-patches "opentaxsolver-file-browser-fix.patch"))))
(build-system glib-or-gtk-build-system)
(arguments

96
gnu/packages/fonts.scm
View File

@ -1081,7 +1081,7 @@ utilities to ease adding new glyphs to the font.")
(define-public font-google-noto
(package
(name "font-google-noto")
(version "23.11.1")
(version "24.2.1")
(source
(origin
(method git-fetch)
@ -1090,8 +1090,53 @@ utilities to ease adding new glyphs to the font.")
(commit (string-append "noto-monthly-release-" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0vvxhky35l4i0ha60yw0gj26f3v33hpf2zax17yyj16mww4cn4d8"))))
(base32 "087jg8ahpq35xwyrmvm9ivxl0wjic2j4r28bbrwqmgdva9brms40"))))
(build-system font-build-system)
(arguments
(list
#:modules
'((guix build font-build-system)
(guix build utils)
(ice-9 ftw))
#:phases
#~(modify-phases %standard-phases
(replace 'install
(lambda _
(define* (install source #:optional (output #$output))
(let ((%install (assoc-ref %standard-phases 'install)))
(with-directory-excursion source
(%install #:outputs `(("out" . ,output))))))
(define (scan-directory name)
(scandir name (lambda (file)
(not (member file '("." ".." "LICENSE"))))))
(define (install-font-variant variant)
"Given font variant VARIANT, install one of its formats,
variable TTF or OTF or TTF."
(with-directory-excursion variant
(let ((formats (scan-directory ".")))
(cond
((member "variable-ttf" formats)
(install "variable-ttf"))
((member "otf" formats)
(install "otf"))
((member "ttf" formats)
(install "ttf"))))))
(define (install-font font)
"Given FONT, install one of its variants, either full or
unhinted, and install its hinted variant into 'ttf' output. According to the
source, unhinted and hinted variants are always available."
(with-directory-excursion font
(if (member "full" (scan-directory "."))
(install-font-variant "full")
(install-font-variant "unhinted"))
(install "hinted" #$output:ttf)))
(with-directory-excursion "fonts"
(for-each install-font (scan-directory "."))))))))
(outputs '("out" "ttf"))
(home-page "https://www.google.com/get/noto/")
(synopsis "Fonts to cover all languages")
(description "Google Noto Fonts is a family of fonts designed to support
@ -1102,7 +1147,7 @@ display all Unicode symbols.")
(define-public font-google-noto-emoji
(package
(name "font-google-noto-emoji")
(version "2.038")
(version "2.042")
(source
(origin
(method git-fetch)
@ -1112,7 +1157,7 @@ display all Unicode symbols.")
(file-name (git-file-name name version))
(sha256
(base32
"1rgmcc6nqq805iqr8kvxxlk5cf50q714xaxk3ld6rjrd69kb8ix9"))))
"17i7awyqz9jv0j2blcf0smmpas375c3pdhjv1zqzl861g8qm1lm2"))))
(build-system font-build-system)
(arguments
(list
@ -1122,11 +1167,10 @@ display all Unicode symbols.")
(lambda _
;; Note this ensures the correct license file is installed.
(chdir "fonts")))
(add-after 'enter-font-directory 'remove-unsupported
(lambda* _
(delete-file "NotoColorEmoji_WindowsCompatible.ttf")
(delete-file "Noto-COLRv1-noflags.ttf")
(delete-file "Noto-COLRv1.ttf"))))))
(replace 'install
(lambda _
(let ((dir (string-append #$output "/share/fonts/truetype")))
(install-file "NotoColorEmoji.ttf" dir)))))))
(home-page "https://fonts.google.com/noto/specimen/Noto+Color+Emoji")
(synopsis "Font for rendering color emoji characters")
(description
@ -1143,11 +1187,23 @@ family.")
(method url-fetch)
(uri (string-append
"https://github.com/googlefonts/noto-cjk/releases/download/Sans"
version "/03_NotoSansCJK-OTC.zip"))
version "/01_NotoSansCJK-OTF-VF.zip"))
(file-name (string-append name "-" version ".zip"))
(sha256
(base32 "1v9yda7r98g4a3pk0y3cjbgc1i2lv4ax0f0v6aqasfzz4ldlx3sj"))))
(base32 "1ka37kqyd0sfqwk485nv6ihrdjl5xycr38m4jq40r2lzmpmkmqym"))))
(build-system font-build-system)
(arguments
(list #:phases
#~(modify-phases %standard-phases
(replace 'install
(lambda _
(chdir "..") ;For license.
(let ((install (assoc-ref %standard-phases 'install)))
(with-directory-excursion "Variable/OTC"
(install #:outputs `(("out" . ,#$output))))
(with-directory-excursion "Variable/OTF"
(install #:outputs `(("out" . ,#$output:otf))))))))))
(outputs '("out" "otf"))
(home-page "https://www.google.com/get/noto/")
(synopsis "Fonts to cover all languages")
(description "Google Noto Fonts is a family of fonts designed to support
@ -1159,17 +1215,29 @@ CJK fonts.")
(define-public font-google-noto-serif-cjk
(package
(name "font-google-noto-serif-cjk")
(version "2.001")
(version "2.002")
(source
(origin
(method url-fetch)
(uri (string-append
"https://github.com/googlefonts/noto-cjk/releases/download/Serif"
version "/04_NotoSerifCJKOTC.zip"))
version "/02_NotoSerifCJK-OTF-VF.zip"))
(file-name (string-append name "-" version ".zip"))
(sha256
(base32 "1l6r3sz2s0vcyfx6ria7wqcq45zp40gxgg97lh8hpmajhzw301ig"))))
(base32 "007jk7rmfapq5zq4ji9d1l5gpp34p98l9ylhiw33q42d66v2g717"))))
(build-system font-build-system)
(arguments
(list #:phases
#~(modify-phases %standard-phases
(replace 'install
(lambda _
(chdir "..") ;For license.
(let ((install (assoc-ref %standard-phases 'install)))
(with-directory-excursion "Variable/OTC"
(install #:outputs `(("out" . ,#$output))))
(with-directory-excursion "Variable/OTF"
(install #:outputs `(("out" . ,#$output:otf))))))))))
(outputs '("out" "otf"))
(home-page "https://www.google.com/get/noto/")
(synopsis "Fonts to cover all languages")
(description "Google Noto Fonts is a family of fonts designed to support

6
gnu/packages/fontutils.scm
View File

@ -11,7 +11,7 @@
;;; Copyright © 2018, 2019, 2020, 2021, 2023 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2019, 2020, 2022 Marius Bakke <marius@gnu.org>
;;; Copyright © 2020 Roel Janssen <roel@gnu.org>
;;; Copyright © 2020, 2021 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2020, 2021, 2024 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2021, 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2021 Sarah Morgensen <iskarian@mgsn.dev>
;;; Copyright © 2022 Felipe Balbi <balbi@kernel.org>
@ -2049,7 +2049,7 @@ Unicode Charts. It was developed for use with DejaVu Fonts project.")
(define-public libraqm
(package
(name "libraqm")
(version "0.8.0")
(version "0.10.1")
(source
(origin
(method git-fetch)
@ -2058,7 +2058,7 @@ Unicode Charts. It was developed for use with DejaVu Fonts project.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0qrdw67n14n0km2f8l0gk8scgj3ybz662s9x8jwj3rrj33nl2d1a"))))
(base32 "1bzdrvacgj9629r4mgmag9sm5ay5914fbs8pnxf8xphvrbnbxm8z"))))
(build-system meson-build-system)
(native-inputs
(list gtk-doc/stable pkg-config python-wrapper))

25
gnu/packages/freedesktop.scm
View File

@ -33,6 +33,7 @@
;;; Copyright © 2022 Petr Hodina <phodina@protonmail.com>
;;; Copyright © 2022 muradm <mail@muradm.net>
;;; Copyright © 2023 Alex Devaure <ajadevaure@gmail.com>
;;; Copyright © 2024 Zheng Junjie <873216071@qq.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -1463,7 +1464,10 @@ XEv.")
(base32 "0bpix92vzip9vlhzihj3k8h9flrlna231x3y8ah7p4965l177yjd"))))
(build-system meson-build-system)
(native-inputs
(list pkg-config wayland libxkbcommon))
(list pkg-config
;; for wayland-scanner
wayland))
(inputs (list wayland libxkbcommon))
(synopsis "Xdotool type for Wayland")
(description "Wtype lets you simulate keyboard input and mouse activity,
move and resize windows, etc.")
@ -1474,7 +1478,7 @@ move and resize windows, etc.")
(define-public exempi
(package
(name "exempi")
(version "2.5.2")
(version "2.6.5")
(source (origin
(method url-fetch)
(uri (string-append
@ -1482,7 +1486,7 @@ move and resize windows, etc.")
name "-" version ".tar.bz2"))
(sha256
(base32
"1mdfxb36p8251n5m7l55gx3fcqpk46yz9v568xfr8igxmqa47xaj"))))
"1zhzwkfna14sy78llhfc94cy5hv3076j5v3p1zmvawzz5gaa7yg9"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags (list (string-append "--with-boost="
@ -1496,8 +1500,7 @@ move and resize windows, etc.")
;; <https://gitlab.freedesktop.org/libopenraw/exempi/-/issues/17>.
;; Simply delete the static library instead to save ~4.3 MiB.
(delete-file (string-append (assoc-ref outputs "out")
"/lib/libexempi.a"))
#t)))))
"/lib/libexempi.a")))))))
(native-inputs
(list boost)) ; tests
(inputs
@ -2427,14 +2430,14 @@ their MIME type.
(define-public uchardet
(package
(name "uchardet")
(version "0.0.7")
(version "0.0.8")
(source
(origin
(method url-fetch)
(uri (string-append "https://www.freedesktop.org/software/"
name "/releases/" name "-" version ".tar.xz"))
(sha256
(base32 "1ca51sryhryqz82v4d0graaiqqq5w2f33a9gj83b910xmq499irz"))))
(base32 "1w659aiphbnczpry771diakrzg9a8aqpn2abcxx1870aq37n0yp9"))))
(build-system cmake-build-system)
(home-page "https://www.freedesktop.org/wiki/Software/uchardet/")
(synopsis "Encoding detector library")
@ -2757,7 +2760,7 @@ compatible with the well-known scripts of the same name.")
(define-public libportal
(package
(name "libportal")
(version "0.6")
(version "0.7.1")
(source (origin
(method git-fetch)
(uri (git-reference
@ -2766,7 +2769,7 @@ compatible with the well-known scripts of the same name.")
(file-name (git-file-name name version))
(sha256
(base32
"1q1kqq72cs7f5b17gzw7218mxs65hijzkll27mh51s02fpiw8c60"))))
"0ypl9ds5g5jzyirjg4ic0r7lzv39w67yrh8njz1cw566g4j1kfny"))))
(build-system meson-build-system)
(arguments
(list
@ -2965,7 +2968,7 @@ for xdg-desktop-portal that is using Qt/KF5.")
(define-public xdg-desktop-portal-wlr
(package
(name "xdg-desktop-portal-wlr")
(version "0.7.0")
(version "0.7.1")
(source (origin
(method git-fetch)
(uri (git-reference
@ -2974,7 +2977,7 @@ for xdg-desktop-portal that is using Qt/KF5.")
(file-name (git-file-name name version))
(sha256
(base32
"1b3hpp3ybjgnnmnwsyb5bsnvz9q5nr3zz0j1alh02g24f68lf00k"))
"1mbq3czka9swwmfaasnaj89y2m254p3qa522ayclh688jdwh70hq"))
(patches (search-patches "xdg-desktop-portal-wlr-harcoded-length.patch"))))
(build-system meson-build-system)
(arguments

4
gnu/packages/freeipmi.scm
View File

@ -28,14 +28,14 @@
(define-public freeipmi
(package
(name "freeipmi")
(version "1.6.11")
(version "1.6.14")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnu/freeipmi/freeipmi-"
version ".tar.gz"))
(sha256
(base32
"15x861i8r1gk44924d2pszlb8mapgkr18m3991vla4601y8xdyv5"))))
"1dgd2izbp6mqk7l0bgw9fkpvl4mjz672p8baz3ac9k5pfrfaqg8s"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags '("--disable-static"

67
gnu/packages/games.scm
View File

@ -938,6 +938,41 @@ original rogue game found on 4.2BSD.")
(home-page "https://github.com/Davidslv/rogue")
(license license:bsd-3)))
(define-public sgt-puzzles
(let ((commit "80aac3104096aee4057b675c53ece8e60793aa90")
(revision "0"))
(package
(name "sgt-puzzles")
(version (git-version "20240302" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://git.tartarus.org/simon/puzzles.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "0z4clv0xi98q28riz323ppn165cm62gj1c6h3xdd2sym4v8gy65z"))))
(build-system cmake-build-system)
(arguments
(list
#:tests? #f ;No tests.
#:configure-flags #~(list "-DNAME_PREFIX=sgt-")
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'set-xdg-open-path
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "gtk.c"
(("(#define HELP_BROWSER_PATH).+" all define)
(format #f "~a ~s~%" define
(search-input-file inputs "/bin/xdg-open")))))))))
(inputs (list gtk+ xdg-utils))
(native-inputs (list pkg-config perl imagemagick halibut))
(home-page "https://www.chiark.greenend.org.uk/~sgtatham/puzzles/")
(synopsis "Simon Tatham's portable puzzle collection")
(description "Simon Tatham's Portable Puzzle Collection contains a number of
popular puzzle games for one player.")
(license license:expat))))
(define-public bzflag
(package
@ -2130,14 +2165,14 @@ It is similar to standard chess but this variant is far more complicated.")
(define-public ltris
(package
(name "ltris")
(version "1.2.6")
(version "1.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/lgames/ltris/"
"ltris-" version ".tar.gz"))
(sha256
(base32 "1xj65kn815x2hq1ynzjyc90dj178xwa2xvx7jx99qf60ahaf4g62"))))
(base32 "144zvnnky79z5ychyyb2wsp7h2pcbl50fbzd9w9dvxkw6adz4yip"))))
(build-system gnu-build-system)
(arguments
'(#:phases
@ -4676,7 +4711,7 @@ on the screen and keyboard to display letters.")
(define-public manaplus
(package
(name "manaplus")
(version "1.9.3.23")
(version "2.1.3.17")
(source (origin
(method url-fetch)
(uri (string-append
@ -4684,18 +4719,15 @@ on the screen and keyboard to display letters.")
version "/manaplus-" version ".tar.xz"))
(sha256
(base32
"1ky182p4svwdqm6cf7jbns85hidkhkhq4s17cs2p381f0klapfjz"))))
"0ggswsa3xq7lss3j4k7fyzn56sw7hlrwk744i3d9w0n4932nmlg8"))))
(build-system gnu-build-system)
(arguments
'(#:configure-flags
(list (string-append "CPPFLAGS=-I"
(assoc-ref %build-inputs "sdl-union")
"/include/SDL"))))
(list #:configure-flags #~'("--with-sdl2")))
(native-inputs
(list pkg-config))
(inputs
(list glu curl libxml2 mesa
(sdl-union)))
sdl2 sdl2-image sdl2-mixer sdl2-net sdl2-ttf))
(home-page "https://manaplus.org")
(synopsis "Client for 'The Mana World' and similar games")
(description
@ -7426,7 +7458,7 @@ at their peak of economic growth and military prowess.
(define-public open-adventure
(package
(name "open-adventure")
(version "1.16")
(version "1.18")
(source
(origin
(method git-fetch)
@ -7435,7 +7467,7 @@ at their peak of economic growth and military prowess.
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0spciwqcyldalzdd813zwigbldcnyaxi7kfslq1yp0fg4c4a10aa"))))
(base32 "1zl72lsp443aryzmwzh5w4j439jgf5njvh9xig6vjvmzhfcjkk9q"))))
(build-system gnu-build-system)
(arguments
(list
@ -7464,10 +7496,13 @@ at their peak of economic growth and military prowess.
(install-file "advent.6" man)))))))
(native-inputs
(list asciidoc
cppcheck
libedit
pkg-config
python-pylint
python-pyyaml
python-wrapper))
python-wrapper
ruby-asciidoctor))
(home-page "https://gitlab.com/esr/open-adventure")
(synopsis "Colossal Cave Adventure")
(description
@ -8452,7 +8487,7 @@ ncurses for text display.")
(define-public naev
(package
(name "naev")
(version "0.10.4")
(version "0.11.4")
(source
(origin
(method git-fetch)
@ -8462,7 +8497,7 @@ ncurses for text display.")
(recursive? #t))) ; for game data
(file-name (git-file-name name version))
(sha256
(base32 "0lg8cmzdzzpmqgmh9a1v190vv4d15hwa0inyzdwsq5x8lyc13hyr"))))
(base32 "1gd7jgb996fgnlrlqkfyx416g1kd458vik3nviazwwj83ksafaqb"))))
(build-system meson-build-system)
(arguments
;; XXX: Do not add debugging symbols, which cause the build to fail.
@ -11379,7 +11414,7 @@ play; it will look for them at @file{~/.local/share/fheroes2} folder.")
(define-public vcmi
(package
(name "vcmi")
(version "1.4.2")
(version "1.4.5")
(source (origin
(method git-fetch)
(uri (git-reference
@ -11388,7 +11423,7 @@ play; it will look for them at @file{~/.local/share/fheroes2} folder.")
(file-name (git-file-name name version))
(sha256
(base32
"039d9dvb2i4y1fj6q5py34r17fwb5jqxkjcg7j57asjk4w9b7i8b"))
"1z4vy3drj6dra8rb243pyryr61jnlw3l7yxsxwl9rddv8cdk69lz"))
(patches (search-patches "vcmi-disable-privacy-breach.patch"))))
(build-system cmake-build-system)
(arguments

43
gnu/packages/gimp.scm
View File

@ -283,6 +283,49 @@ buffers.")
;; application and GUI binary gegl is licensed under GPL.
(license (list license:lgpl3+ license:gpl3+))))
;; gnome-photos does not build against gegl 0.4.46 or newer yet.
;; See also <https://gitlab.gnome.org/GNOME/gnome-photos/-/issues/214>.
(define-public babl-0.1.96
(package
(inherit babl)
(version "0.1.96")
(source
(origin
(method url-fetch)
(uri (list (string-append "https://download.gimp.org/pub/babl/"
(version-major+minor version)
"/babl-" version ".tar.xz")
(string-append "https://ftp.gtk.org/pub/babl/"
(version-major+minor version)
"/babl-" version ".tar.xz")
(string-append "ftp://ftp.gtk.org/pub/babl/"
(version-major+minor version)
"/babl-" version ".tar.xz")))
(sha256
(base32 "1xj5hlmm834lb84rpjlfxbqnm5piswgzhjas4h8z90x9b7j3yrrk"))))))
(define-public gegl-0.4.44
(package
(inherit gegl)
(version "0.4.44")
(source
(origin
(method url-fetch)
(uri (list (string-append "https://download.gimp.org/pub/gegl/"
(string-take version 3)
"/gegl-" version ".tar.xz")
(string-append "https://ftp.gtk.org/pub/gegl/"
(version-major+minor version)
"/gegl-" version ".tar.xz")
(string-append "ftp://ftp.gtk.org/pub/gegl/"
(version-major+minor version)
"/gegl-" version ".tar.xz")))
(sha256
(base32 "09k1sn4h0bakgmq2hgd1iamprngpr81ky3fd9446lh2ycd0xnk0a"))))
(propagated-inputs
(modify-inputs (package-propagated-inputs gegl)
(replace "babl" babl-0.1.96)))))
(define-public gimp
(package
(name "gimp")

2
gnu/packages/gnome.scm
View File

@ -857,7 +857,7 @@ tomorrow, the rest of the week and for special occasions.")
(inputs
(list babl
cairo
gegl
gegl-0.4.44
geocode-glib
gexiv2
gfbgraph

150
gnu/packages/gnunet.scm
View File

@ -13,7 +13,7 @@
;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de>
;;; Copyright © 2022 Maxime Devos <maximedevos@telenet.be>
;;; Copyright © 2023 Adam Faiz <adam.faiz@disroot.org>
;;; Copyright © 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2023, 2024 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -32,6 +32,7 @@
(define-module (gnu packages gnunet)
#:use-module (gnu packages)
#:use-module (gnu packages apparmor)
#:use-module (gnu packages base)
#:use-module (gnu packages file)
#:use-module (gnu packages aidc)
@ -65,6 +66,7 @@
#:use-module (gnu packages python)
#:use-module (gnu packages sphinx)
#:use-module (gnu packages sqlite)
#:use-module (gnu packages texinfo)
#:use-module (gnu packages text-editors)
#:use-module (gnu packages tls)
#:use-module (gnu packages upnp)
@ -83,86 +85,80 @@
(define-public libextractor
(package
(name "libextractor")
(version "1.11")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnu/libextractor/libextractor-"
version ".tar.gz"))
(sha256
(base32
"13xxv11mif3m0mpk7i43mljhhaqrj52kznm1qi3qb8s6hymk7xhn"))))
(build-system gnu-build-system)
;; WARNING: Checks require /dev/shm to be in the build chroot, especially
;; not to be a symbolic link to /run/shm.
;; FIXME:
;; The following dependencies are all optional, but should be
;; available for maximum coverage:
;; * librpm (rpm) ; investigate failure
;; * libtidy-html (tidy-html) ; investigate failure
(inputs
`(("exiv2" ,exiv2)
("bzip2" ,bzip2)
("flac" ,flac)
("ffmpeg" ,ffmpeg-4)
("file" ,file) ;libmagic, for the MIME plug-in
("glib" ,glib)
("giflib" ,giflib)
("gstreamer" ,gstreamer)
("gst-plugins-base" ,gst-plugins-base)
("gtk+" ,gtk+)
("libarchive" ,libarchive)
("libgsf" ,libgsf)
("libjpeg" ,libjpeg-turbo)
("libltdl" ,libltdl)
("libmpeg2" ,libmpeg2)
("libmp4v2" ,libmp4v2)
("libsmf" ,libsmf)
("libogg" ,libogg)
("libtiff" ,libtiff)
("libvorbis" ,libvorbis)
("zlib" ,zlib)))
(native-inputs
(list pkg-config))
(outputs '("out"
"static")) ; 420 KiB .a files
(arguments
`(#:configure-flags
(list (string-append "--with-ltdl="
(assoc-ref %build-inputs "libltdl")))
#:parallel-tests? #f
#:phases
(modify-phases %standard-phases
(add-after 'configure 'fix-exiv2-tests
;; exiv2>=0.27.3 rounds geolocation
;; https://github.com/Exiv2/exiv2/pull/1107/commits/db1be4ae8e1077949fcb6a960e93069d6a41b395#diff-f3f55183ccbe956c720c86e61f708d9f
(lambda _
(substitute* "src/plugins/test_exiv2.c"
(("17.585\\\\\" ") "18\\\"")
(("21.713\\\\\" ") "22\\\""))
#t))
(add-after 'install 'move-static-libraries
(lambda* (#:key outputs #:allow-other-keys)
;; Move static libraries to the "static" output.
(let* ((out (assoc-ref outputs "out"))
(lib (string-append out "/lib"))
(static (assoc-ref outputs "static"))
(slib (string-append static "/lib")))
(mkdir-p slib)
(for-each (lambda (file)
(install-file file slib)
(delete-file file))
(find-files lib "\\.a$"))
#t))))))
(synopsis "Library to extract meta-data from media files")
(description
"GNU libextractor is a library for extracting metadata from files. It
(name "libextractor")
(version "1.13")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnu/libextractor/libextractor-"
version ".tar.gz"))
(sha256
(base32
"0mgprmwdhdwq9xhfxfhcncd304425nvcc4zi8ci5f0nja4n333xv"))
(patches
(search-patches "libextractor-tidy-support.patch"))))
(build-system gnu-build-system)
(outputs '("out"
"static")) ; 420 KiB .a files
(arguments
(list #:configure-flags
#~(list (string-append "--with-ltdl="
#$(this-package-input "libltdl")))
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'force-reconfigure
(lambda _
(delete-file "configure")))
(add-after 'install 'move-static-libraries
(lambda* (#:key outputs #:allow-other-keys)
;; Move static libraries to the "static" output.
(let* ((out #$output)
(lib (string-append out "/lib"))
(slib (string-append #$output:static "/lib")))
(mkdir-p slib)
(for-each (lambda (file)
(install-file file slib)
(delete-file file))
(find-files lib "\\.a$"))))))))
(native-inputs
(list autoconf-2.71
automake
gettext-minimal
libtool
pkg-config
texinfo))
(inputs
(list bzip2
exiv2
file ;libmagic, for the MIME plug-in
flac
gdk-pixbuf
giflib
glib
gst-plugins-base
gstreamer
libapparmor
libarchive
libgsf
libjpeg-turbo
libltdl
libmp4v2
libmpeg2
libogg
libsmf
libtiff
libvorbis
rpm
tidy-html
zlib))
(synopsis "Library to extract meta-data from media files")
(description
"GNU libextractor is a library for extracting metadata from files. It
supports a very large number of file formats, including audio files, document
files, and archive files. Each file format is implemented as a plugin, so
new formats can be added easily. The package also contains a command-line
tool to extract metadata from a file and print the results.")
(license license:gpl3+)
(home-page "https://www.gnu.org/software/libextractor/")))
(license license:gpl3+)
(home-page "https://www.gnu.org/software/libextractor/")))
(define-public libmicrohttpd
(package

18
gnu/packages/gnuzilla.scm
View File

@ -3,7 +3,7 @@
;;; Copyright © 2013-2022 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014-2024 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2015 Sou Bunnbu <iyzsong@gmail.com>
;;; Copyright © 2016, 2017, 2018, 2019, 2021 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016-2019, 2021, 2024 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>
;;; Copyright © 2017, 2023 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2017, 2018 Nikita <nikita@n0.is>
@ -522,9 +522,9 @@ variable defined below. It requires guile-json to be installed."
;; XXXX: Workaround 'snippet' limitations.
(define computed-origin-method (@@ (guix packages) computed-origin-method))
(define %icecat-base-version "115.8.0")
(define %icecat-base-version "115.9.1")
(define %icecat-version (string-append %icecat-base-version "-guix0-preview1"))
(define %icecat-build-id "20240220000000") ;must be of the form YYYYMMDDhhmmss
(define %icecat-build-id "20240323000000") ;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'
@ -544,12 +544,12 @@ variable defined below. It requires guile-json to be installed."
"firefox-" upstream-firefox-version ".source.tar.xz"))
(sha256
(base32
"1slmp2v1q3my81z8kiym9rpxw5d9n4sn07v7hv99517w7vr8d05g"))))
"0agr8s42lpbq5gixsgj5kpcvimbnyx6msr4il4rvmf7gpw47hr93"))))
;; The upstream-icecat-base-version may be older than the
;; %icecat-base-version.
(upstream-icecat-base-version "115.8.0")
(gnuzilla-commit "7e2ff1ad7e03d2bfe0b2daf3f25961b06cab8848")
(upstream-icecat-base-version "115.9.1")
(gnuzilla-commit "a59b8a2c2e4c8b8de47b3ae4d10032154a47a01e")
(gnuzilla-source
(origin
(method git-fetch)
@ -561,7 +561,7 @@ variable defined below. It requires guile-json to be installed."
(string-take gnuzilla-commit 8)))
(sha256
(base32
"1lv3vfqv0zb634gnvzb37fs04rb1jlrd2n1k51yjsvdznpqfpi1y"))))
"0l07x59c0bmj72n0pdhb4mlphw9nmd88i9jg39xvxcw0cv7bw6qm"))))
;; 'search-patch' returns either a valid file name or #f, so wrap it
;; in 'assume-valid-file-name' to avoid 'local-file' warnings.
@ -763,7 +763,7 @@ variable defined below. It requires guile-json to be installed."
;; ,(search-patch "icecat-use-system-media-libs.patch"))
rust
`(,rust "cargo")
rust-cbindgen-0.24
rust-cbindgen
llvm-15
clang-15
perl
@ -1850,7 +1850,7 @@ ca495991b7852b855"))
pkg-config
python-wrapper
rust
rust-cbindgen-0.23
rust-cbindgen
which
yasm))
(home-page "https://www.thunderbird.net")

64
gnu/packages/golang-check.scm
View File

@ -404,6 +404,31 @@ signalling failures, it offers ways to express expectations and get nice failure
messages automatically.")
(license license:asl2.0))))
(define-public go-github-com-jbenet-go-cienv
(package
(name "go-github-com-jbenet-go-cienv")
(version "0.1.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/jbenet/go-cienv")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1qyfjvr8n5chpb5zi6r9cf0danrwds3k5lbf7vp7ygcl6wnm0vmv"))))
(build-system go-build-system)
(arguments
(list
#:import-path "github.com/jbenet/go-cienv"))
(home-page "https://github.com/jbenet/go-cienv")
(synopsis "CI system environment variables")
(description
"Package @code{cienv} implements some helper functions to use during tests.
Many times certain facilities are not available, or tests must run
differently.")
(license license:expat)))
(define-public go-github-com-onsi-ginkgo
(package
(name "go-github-com-onsi-ginkgo")
@ -779,6 +804,45 @@ custom assertions to be used alongside native Go testing.")
advanced Go linter.")
(license license:expat)))
(define-public go-pgregory-net-rapid
(package
(name "go-pgregory-net-rapid")
(version "1.1.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/flyingmutant/rapid")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1alyhcbdq6113sfymx7xxmxpcbgvkaipsn15cgjrcqrx8ks1hm5i"))))
(build-system go-build-system)
(arguments
(list
#:go go-1.18
#:import-path "pgregory.net/rapid"))
(home-page "https://pgregory.net/rapid/")
(synopsis "Go property-based testing library")
(description
"@code{Rapid} is a Go library for property-based testing.
Rapid checks that properties you define hold for a large number of automatically
generated test cases. If a failure is found, rapid automatically minimizes the
failing test case before presenting it.
Features:
@itemize
@item imperative Go API with type-safe data generation using generics
@item data generation biased to explore \"small\" values and edge cases more
thoroughly
@item fully automatic minimization of failing test cases
@item persistence and automatic re-running of minimized failing test cases
@item support for state machine (\"stateful\" or \"model-based\") testing
@item no dependencies outside the Go standard library
@end itemize")
(license license:mpl2.0)))
;;;
;;; Executables:
;;;

45
gnu/packages/golang-compression.scm
View File

@ -140,6 +140,33 @@ library included in the stdlib, and supports GIF, TIFF and PDF.")
(description "@code{compress} provides various compression algorithms.")
(license license:bsd-3)))
(define-public go-github-com-klauspost-pgzip
(package
(name "go-github-com-klauspost-pgzip")
(version "1.2.6")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/klauspost/pgzip")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1j29wr6nd9ncdbkjphyziv0h8p5s2mj222cgcfqxmzjnfn7623d8"))))
(build-system go-build-system)
(arguments
(list
#:import-path "github.com/klauspost/pgzip"))
(propagated-inputs (list go-github-com-klauspost-compress))
(home-page "https://github.com/klauspost/pgzip")
(synopsis "Parallel (de)compression of gzip files in Go")
(description
"This package implements parallel gzip compression and decompression in
Golang and is fully compatible with @code{compress/gzip} from the standard
library. This is beneficial for large amounts of data, say more than 1MB at a
time, as otherwise the internal gzip library will likely be faster.")
(license (list license:bsd-3 license:expat))))
(define-public go-github-com-nwaples-rardecode-v2
(package
(name "go-github-com-nwaples-rardecode-v2")
@ -166,23 +193,27 @@ library included in the stdlib, and supports GIF, TIFF and PDF.")
(define-public go-github-com-ulikunitz-xz
(package
(name "go-github-com-ulikunitz-xz")
(version "0.5.8")
(version "0.5.11")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/ulikunitz/xz.git")
(url "https://github.com/ulikunitz/xz")
(commit (string-append "v" version))))
(file-name (string-append name "-" version "-checkout"))
(file-name (git-file-name name version))
(sha256
(base32 "1xnsymi5fmmm734bi4c6z57p5cvnyxlpi29yxs4v21w5k763aypd"))))
(base32 "1hbs3x7s7d5ch6ipaqi265w0fwpijs0j19xdbhbjjsyr4khxbqd0"))))
(build-system go-build-system)
(arguments
`(#:import-path "github.com/ulikunitz/xz"))
(list
#:import-path "github.com/ulikunitz/xz"))
(home-page "https://github.com/ulikunitz/xz")
(synopsis "Read and write xz compressed streams in Go")
(description "This package provides a library to read and write xz
compressed streams in Go.")
(description
"This package provides a support of reading and writing of xz
compressed streams. It includes also a gxz command for compressing and
decompressing data. The package is completely written in Go and doesn't have
any dependency on any C code.")
(license license:bsd-3)))
;;;

26
gnu/packages/golang-crypto.scm
View File

@ -47,7 +47,8 @@
#:use-module (gnu packages golang)
#:use-module (gnu packages golang-build)
#:use-module (gnu packages golang-check)
#:use-module (gnu packages golang-compression))
#:use-module (gnu packages golang-compression)
#:use-module (gnu packages golang-web))
;;; Commentary:
;;;
@ -261,6 +262,29 @@ been designed so it can be used as a standalone package for any projects
needing to use secp256k1 elliptic curve cryptography.")
(license license:isc))))
(define-public go-github-com-bwesterb-go-ristretto
(package
(name "go-github-com-bwesterb-go-ristretto")
(version "1.2.3")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/bwesterb/go-ristretto")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0h508v790wk6g8jq0gh18296xl87vmgc4fhwnac7mk6i5g3mz6v4"))))
(build-system go-build-system)
(arguments
(list #:unpack-path "github.com/bwesterb/go-ristretto"
#:import-path "github.com/bwesterb/go-ristretto/edwards25519"))
(home-page "https://github.com/bwesterb/go-ristretto")
(synopsis "Operations on the Ristretto prime-order group")
(description "This is a pure Go implementation of the group operations on
the Ristretto prime-order group built from Edwards25519.")
(license license:expat)))
(define-public go-github-com-cespare-xxhash
(package
(name "go-github-com-cespare-xxhash")

232
gnu/packages/golang-web.scm
View File

@ -1,4 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2018 Pierre-Antoine Rouby <pierre-antoine.rouby@inria.fr>
;;; Copyright © 2020 Jack Hill <jackhill@jackhill.us>
;;; Copyright © 2020 Joseph LaFreniere <joseph@lafreniere.xyz>
@ -98,6 +99,45 @@
API service accounts for Go.")
(license license:asl2.0)))
(define-public go-github-com-alexliesenfeld-health
(package
(name "go-github-com-alexliesenfeld-health")
(version "0.8.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/alexliesenfeld/health")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1fchlvxwidsscskwq07vhxfwcn5wbigbizi51619l8gg09mr158q"))))
(build-system go-build-system)
(arguments
(list
#:import-path "github.com/alexliesenfeld/health"
#:phases #~(modify-phases %standard-phases
;; Examples requires additional dependencies and comes with
;; their own go.mod, consider to pack it as separate
;; package if required.
(add-after 'unpack 'remove-examples
(lambda* (#:key import-path #:allow-other-keys)
(delete-file-recursively
(string-append "src/" import-path "/examples")))))))
(native-inputs (list go-github-com-stretchr-testify))
(home-page "https://github.com/alexliesenfeld/health")
(synopsis "Simple and flexible health check library for Go")
(description
"This library provides a @code{http.Handler} that acts as a health
endpoint. It can be used by cloud infrastructure or other services to
determine the availability of an application.
Rather than simply returning a response with HTTP status code 200, this
library allows building health checks that test the availability of all
required dependencies. The HTTP response contains the aggregated health
result and details about the health status of each component.")
(license license:expat)))
(define-public go-github-com-andybalholm-cascadia
(package
(name "go-github-com-andybalholm-cascadia")
@ -964,6 +1004,35 @@ compliant cache for HTTP responses. It is only suitable for use as a
shared proxy).")
(license license:expat))))
(define-public go-github-com-hashicorp-go-cleanhttp
(package
(name "go-github-com-hashicorp-go-cleanhttp")
(version "0.5.2")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/hashicorp/go-cleanhttp")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1i5xslizzwd966w81bz6dxjwzgml4q9bwqa186bsxd1vi8lqxl9p"))))
(build-system go-build-system)
(arguments
(list
#:import-path "github.com/hashicorp/go-cleanhttp"))
(home-page "https://github.com/hashicorp/go-cleanhttp")
(synopsis "Functions for accessing clean Go @code{http.Client} values")
(description
"The Go standard library contains a default @code{http.Client} and it is
a common idiom to tweak it as necessary. Unfortunately, this is a shared
value, and it is not uncommon for libraries to assume that they are free to
modify it at will. This package provides some simple functions to get a
\"clean\" @code{http.Client}, namely one that uses the same default values as
the Go standard library, but returns a client that does not share any state
with other clients.")
(license license:mpl2.0)))
(define-public go-github-com-hjson-hjson-go
(package
(name "go-github-com-hjson-hjson-go")
@ -1166,6 +1235,94 @@ router.")
(description "@code{bluemonday} is a HTML sanitizer implemented in Go.")
(license license:bsd-3)))
(define-public go-github-com-multiformats-go-multiaddr
;; This commit is from <2018-10-01> and associated with GX package manager,
;; since that time the project has changed versing stile and GX is dropped.
;; Current versioned tag is v0.12.2 <2024-01-26>.
(let ((commit "fe1c46f8be5af4aff4db286e08839295bd922efb")
(revision "0"))
(package
(name "go-github-com-multiformats-go-multiaddr")
(version (git-version "1.3.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/multiformats/go-multiaddr")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "0p5f8h098a4yjjmzsgqs7vhx1iqifb8izwg3559cr4h7clkpzznh"))))
(build-system go-build-system)
(arguments
(list
#:import-path "github.com/multiformats/go-multiaddr"))
(native-inputs
(list go-github-com-gxed-hashland-keccakpg
go-github-com-minio-blake2b-simd
go-github-com-minio-sha256-simd
go-github-com-mr-tron-base58
go-github-com-multiformats-go-multihash
go-github-com-spaolacci-murmur3
go-golang-org-x-crypto))
(home-page "https://github.com/multiformats/go-multiaddr")
(synopsis "Composable and future-proof network addresses")
(description
"Multiaddr is a standard way to represent addresses that does the
following:
@itemize
@item Support any standard network protocols.
@item Self-describe (include protocols).
@item Have a binary packed format.
@item Have a nice string representation.
@item Encapsulate well.
@end itemize\n")
(license license:expat))))
(define-public go-github-com-multiformats-go-multiaddr-net
;; This commit is from <2018-10-01> and associated with GX package manager,
;; since that time the project has changed versing stile and GX is dropped.
;; The latest versioned tag is v0.1.5 <2020-04-30>. The project is archved
;; on <2021-10-05>.
(let ((commit "1cb9a0e8a6de3c8a10f6cee60d01d793603c4f7e")
(revision "0"))
(package
(name "go-github-com-multiformats-go-multiaddr-net")
(version (git-version "1.6.3" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/multiformats/go-multiaddr-net")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "1ypgi47xdz3bh8lh7f8cmk7w3ql9g4izx5l3kzdg9gda1xn5zxq3"))))
(build-system go-build-system)
(arguments
(list
;; TODO: Tests fail because they try to access the network.
#:tests? #f
#:import-path "github.com/multiformats/go-multiaddr-net"))
(native-inputs
(list go-github-com-gxed-hashland-keccakpg
go-github-com-minio-blake2b-simd
go-github-com-minio-sha256-simd
go-github-com-mr-tron-base58
go-github-com-multiformats-go-multiaddr
go-github-com-multiformats-go-multihash
go-github-com-spaolacci-murmur3
go-golang-org-x-crypto))
(home-page "https://github.com/multiformats/go-multiaddr-net")
(synopsis "Multiaddress net tools")
(description
"This package provides Multiaddr specific versions of common functions
in stdlib's @command{net} package. This means wrappers of standard net
symbols like @command{net.Dial} and @command{net.Listen}, as well as
conversion to and from @command{net.Addr}.")
(license license:expat))))
(define-public go-github-com-nwidger-jsoncolor
(package
(name "go-github-com-nwidger-jsoncolor")
@ -1293,6 +1450,81 @@ Caching.")
to jQuery to the Go language.")
(license license:bsd-3)))
(define-public go-github-com-quic-go-qpack
(package
(name "go-github-com-quic-go-qpack")
(version "0.4.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/quic-go/qpack")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "00mjz445hhx4yar5l8p21bpp4d06jyg2ajw0ax7bh64d37l4kx39"))))
(build-system go-build-system)
(arguments
(list
;; Tests require ginkgo v2.
#:tests? #f
#:go go-1.20
#:import-path "github.com/quic-go/qpack"))
(propagated-inputs
(list go-github-com-onsi-ginkgo
go-github-com-onsi-gomega
go-golang-org-x-net))
(home-page "https://github.com/quic-go/qpack")
(synopsis "Minimal QPACK (RFC 9204) implementation for Go")
(description
"A minimal QPACK (RFC 9204) implementation in Go. It is minimal in the sense
that it doesn't use the dynamic table at all, but just the static table and (Huffman
encoded) string literals. Wherever possible, it reuses code from the
@url{https://github.com/golang/net/tree/master/http2/hpack, HPACK implementation in
the Go standard library}.")
(license license:expat)))
(define-public go-github-com-quic-go-quic-go
(package
(name "go-github-com-quic-go-quic-go")
(version "0.39.3")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/quic-go/quic-go")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0acabl3cz48nxpggc5s7fwxpmr5amyi09jygn5m5xxkkbhqs2cxq"))))
(build-system go-build-system)
(arguments
(list
;; XXX More packages required...
#:tests? #f
#:go go-1.20
#:import-path "github.com/quic-go/quic-go"))
(propagated-inputs
(list go-github-com-cheekybits-genny
go-github-com-golang-protobuf-proto
go-github-com-marten-seemann-chacha20
go-github-com-quic-go-qpack
go-github-com-quic-go-qtls-go1-20
go-golang-org-x-crypto
go-golang-org-x-exp
go-golang-org-x-net
go-golang-org-x-sync
go-golang-org-x-sys))
(home-page "https://github.com/quic-go/quic-go")
(synopsis "QUIC in Go")
(description
"This package provides a Go language implementation of the QUIC network
protocol.")
(license license:expat)))
(define-public go-github-com-lucas-clemente-quic-go
(deprecated-package "go-github-com-lucas-clemente-quic-go" go-github-com-quic-go-quic-go))
(define-public go-github-com-sourcegraph-jsonrpc2
(package
(name "go-github-com-sourcegraph-jsonrpc2")

324
gnu/packages/golang-xyz.scm
View File

@ -4,6 +4,7 @@
;;; Copyright © 2018 Pierre-Antoine Rouby <pierre-antoine.rouby@inria.fr>
;;; Copyright © 2019 Brian Leung <bkleung89@gmail.com>
;;; Copyright © 2019 Leo Famulari <leo@famulari.name>
;;; Copyright © 2019 Vagrant Cascadian <vagrant@debian.org>
;;; Copyright © 2019, 2020, 2021 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2020 Joseph LaFreniere <joseph@lafreniere.xyz>
;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com>
@ -237,6 +238,31 @@ interface around the standard library's @code{time} package so that the applicat
can use the realtime clock while tests can use the mock clock.")
(license license:expat)))
(define-public go-github-com-beorn7-perks-quantile
(package
(name "go-github-com-beorn7-perks-quantile")
(version "1.0.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/beorn7/perks")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "17n4yygjxa6p499dj3yaqzfww2g7528165cl13haj97hlx94dgl7"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/beorn7/perks/quantile"
#:unpack-path "github.com/beorn7/perks"))
(home-page "https://github.com/beorn7/perks")
(synopsis "Compute approximate quantiles over an unbounded data stream")
(description
"Perks contains the Go package @code{quantile} that computes
approximate quantiles over an unbounded data stream within low memory and CPU
bounds.")
(license license:expat)))
(define-public go-github-com-bitly-go-hostpool
(package
(name "go-github-com-bitly-go-hostpool")
@ -285,28 +311,51 @@ information and periodically output metrics")
(license license:expat)))
(define-public go-github-com-blang-semver
(let ((commit "60ec3488bfea7cca02b021d106d9911120d25fe9")
(revision "0"))
(package
(name "go-github-com-blang-semver")
(version (git-version "0.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/blang/semver")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "19pli07y5592g4dyjyj0jq5rn548vc3fz0qg3624vm1j5828p1c2"))))
(build-system go-build-system)
(arguments
'(#:import-path "github.com/blang/semver"))
(home-page "https://github.com/blang/semver")
(synopsis "Semantic versioning library written in Go")
(description
"Semver is a library for Semantic versioning written in Go.")
(license license:expat))))
(package
(name "go-github-com-blang-semver")
(version "3.8.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/blang/semver")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "16s66zbfkn35msmxpkiwf5dv91kzw7yzxzkcv8ma44j7lbgzx5qk"))))
(build-system go-build-system)
(arguments
'(#:import-path "github.com/blang/semver"))
(home-page "https://github.com/blang/semver")
(synopsis "Semantic versioning library written in Go")
(description
"Semver is a library for Semantic versioning written in Go.")
(license license:expat)))
(define-public go-github-com-blang-semver-v4
(package
(inherit go-github-com-blang-semver)
(name "go-github-com-blang-semver-v4")
(version "4.0.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/blang/semver")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "14h9ys4n4kx9cbj42lkdf4i5k3nkll6sd62jcvl7cs565v6fiknz"))))
(arguments
(list
#:import-path "github.com/blang/semver/v4"
#:unpack-path "github.com/blang/semver"
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'remove-examples
(lambda* (#:key import-path #:allow-other-keys)
(delete-file-recursively
(string-append "src/" import-path "/examples")))))))))
(define-public go-github-com-bmizerany-perks-quantile
(package
@ -853,6 +902,40 @@ expressing configuration which is easy for both humans and machines to read.")
(home-page "https://github.com/hashicorp/hcl")
(license license:mpl2.0)))
(define-public go-github-com-hashicorp-go-hclog
(package
(name "go-github-com-hashicorp-go-hclog")
(version "1.6.2")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/hashicorp/go-hclog")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1lvr4ga95a0xb62vgq1hy558x3r65hn2d0h7bf0a88lsfsrcik0n"))))
(build-system go-build-system)
(arguments
(list
#:import-path "github.com/hashicorp/go-hclog"))
(propagated-inputs
(list go-github-com-fatih-color
go-github-com-mattn-go-isatty
go-golang-org-x-tools))
(native-inputs
(list go-github-com-stretchr-testify))
(home-page "https://github.com/hashicorp/go-hclog")
(synopsis "Key/value logging interface for Go")
(description
"This package provides a simple key/value logging interface for Golang
for use in development and production environments. Unlike the standard
library @code{log} package, this package provides logging levels that provide
decreased output based upon the desired amount of output. It also comes with
a command-line program @code{hclogvet} that can be used to check that the logging level
methods on @code{hclog.Logger} are used correctly.")
(license license:expat)))
(define-public go-github-com-hashicorp-go-multierror
(package
(name "go-github-com-hashicorp-go-multierror")
@ -987,6 +1070,83 @@ increment versions.")
@end itemize")
(license license:bsd-3)))
(define-public go-github-com-jbenet-go-random
(package
(name "go-github-com-jbenet-go-random")
(version "0.0.0-20190219211222-123a90aedc0c")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/jbenet/go-random")
(commit (go-version->git-ref version))))
(file-name (git-file-name name version))
(sha256
(base32 "0kgx19m8p76rmin8s8y6j1padciv1dx37qzy7jkh9bw49ai3haw3"))))
(build-system go-build-system)
(arguments
(list
#:import-path "github.com/jbenet/go-random"))
(propagated-inputs
(list go-github-com-dustin-go-humanize))
(home-page "https://github.com/jbenet/go-random")
(synopsis "Go library and a program that outputs randomness")
(description
"This is a Unix utility that outputs randomness. It is a thin
wrapper around @code{crypto/rand}.")
(license license:expat)))
(define-public go-github-com-jbenet-go-temp-err-catcher
(package
(name "go-github-com-jbenet-go-temp-err-catcher")
(version "0.1.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/jbenet/go-temp-err-catcher")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0n482jhh6jwq43jj21xkq8grqzx78hjh7f44p0q3n01zp1dsh97r"))))
(build-system go-build-system)
(arguments
(list
#:import-path "github.com/jbenet/go-temp-err-catcher"))
(home-page "https://github.com/jbenet/go-temp-err-catcher")
(synopsis "Error handling helper library")
(description "Package @code{temperrcatcher} provides a @code{TempErrCatcher}
object, which implements simple error-retrying functionality.")
(license license:expat)))
(define-public go-github-com-jbenet-goprocess
(package
(name "go-github-com-jbenet-goprocess")
(version "0.1.4")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/jbenet/goprocess")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1z4a5skx9kh2c727pc6zz0vhf9v8acd320s7z0f1kwy3y1nbdhjk"))))
(build-system go-build-system)
(arguments
(list
#:import-path "github.com/jbenet/goprocess"))
(native-inputs
(list go-github-com-jbenet-go-cienv))
(home-page "https://github.com/jbenet/goprocess")
(synopsis "Manage process life cycles in Go")
(description
"@code{goprocess} introduces a way to manage process lifecycles in
Go. It is much like @code{go.net/context} (it actually uses a Context), but it is
more like a Context-WaitGroup hybrid. @code{goprocess} is about being able to start
and stop units of work, which may receive @code{Close} signals from many clients.")
(license license:expat)))
(define-public go-github-com-jinzhu-copier
(package
(name "go-github-com-jinzhu-copier")
@ -1010,6 +1170,31 @@ increment versions.")
struct to another.")
(license license:expat)))
(define-public go-github-com-josharian-intern
(package
(name "go-github-com-josharian-intern")
(version "1.0.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/josharian/intern")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1za48ppvwd5vg8vv25ldmwz1biwpb3p6qhf8vazhsfdg9m07951c"))))
(build-system go-build-system)
(arguments
(list
#:import-path "github.com/josharian/intern"))
(home-page "https://github.com/josharian/intern")
(synopsis "String interning for Go")
(description
"This library defines functions to perform string interning in Go,
storing only one copy of each unique string in memory. All functions may be
called concurrently with themselves and each other.")
(license license:expat)))
(define-public go-github-com-k0kubun-pp
(package
(name "go-github-com-k0kubun-pp")
@ -1037,6 +1222,33 @@ struct to another.")
customized globally.")
(license license:expat)))
(define-public go-github-com-lib-pq
(package
(name "go-github-com-lib-pq")
(version "1.2.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/lib/pq")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "08j1smm6rassdssdks4yh9aspa1dv1g5nvwimmknspvhx8a7waqz"))))
(build-system go-build-system)
(arguments
(list
#:import-path "github.com/lib/pq"
;; The tests seem to fail without access to the network or a running
;; Postgres instance.
#:tests? #f))
(home-page "https://github.com/lib/pq")
(synopsis "Golang Postgres driver for Go's database/sql")
(description
"This package provides a pure Go Postgres driver for Go's
database/sql package.")
(license license:expat)))
(define-public go-github-com-matryer-try
(package
(name "go-github-com-matryer-try")
@ -1182,6 +1394,30 @@ command line flags, config files, and default struct values.")
@url{https://github.com/judwhite/go-svc/raw/master/svc/svc_windows_test.go,here}.")
(license license:expat))))
(define-public go-github-com-multiformats-go-varint
(package
(name "go-github-com-multiformats-go-varint")
(version "0.0.7")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/multiformats/go-varint")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0l4s0z3rc3d350zp6qximl1jjhic6l8w74wkmx244jgfzsxd93af"))))
(build-system go-build-system)
(arguments
(list
#:import-path "github.com/multiformats/go-varint"))
(home-page "https://github.com/multiformats/go-varint")
(synopsis "Varint helpers that enforce minimal encoding")
(description
"This package provides a functionality for encoding and decoding unsigned
varints.")
(license license:expat)))
(define-public go-github-com-nats-io-nats-go
(package
(name "go-github-com-nats-io-nats-go")
@ -1685,6 +1921,34 @@ query information regarding the number of CPUs available to the system.")
weighted moving averages}.")
(license license:expat)))
(define-public go-github-com-whyrusleeping-go-sysinfo
(package
(name "go-github-com-whyrusleeping-go-sysinfo")
(version "0.0.0-20190219211824-4a357d4b90b1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/whyrusleeping/go-sysinfo")
(commit (go-version->git-ref version))))
(file-name (git-file-name name version))
(sha256
(base32 "0s6yjp9incc579wbbga33vq0hcanv8j2xh9l90ya0r4fihz39jiq"))))
(build-system go-build-system)
(arguments
(list
#:import-path "github.com/whyrusleeping/go-sysinfo"))
(propagated-inputs
(list go-github-com-dustin-go-humanize))
(home-page "https://github.com/whyrusleeping/go-sysinfo")
(synopsis "Package to extract system information")
;; There is not much information provided by the project, see
;; <https://github.com/whyrusleeping/go-sysinfo/issues>.
(description
"This package provides a basic system stats like @code{DiskUsage} and
@code{MemoryInfo}.")
(license license:expat)))
(define-public go-go-uber-org-automaxprocs
(package
(name "go-go-uber-org-automaxprocs")
@ -1756,6 +2020,22 @@ Go.")
;;; Executables:
;;;
(define-public go-hclogvet
(package
(inherit go-github-com-hashicorp-go-hclog)
(name "go-hclogvet")
(arguments
(list
#:import-path "github.com/hashicorp/go-hclog/hclogvet"
#:unpack-path "github.com/hashicorp/go-hclog"
#:install-source? #f))
(propagated-inputs
(list go-golang-org-x-tools))
(description
"@code{hclogvet} is a @code{go vet} tool for checking that the
Trace/Debug/Info/Warn/Error methods on @code{hclog.Logger} are used
correctly.")))
(define-public go-numcpus
(package
(inherit go-github-com-tklauser-numcpus)

176
gnu/packages/golang.scm
View File

@ -5176,86 +5176,6 @@ maps, slices, or pointers, and copy their data as well instead of just their
references.")
(license license:expat)))
(define-public go-github-com-multiformats-go-multiaddr
(let ((commit "fe1c46f8be5af4aff4db286e08839295bd922efb")
(revision "0"))
(package
(name "go-github-com-multiformats-go-multiaddr")
(version (git-version "1.3.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/multiformats/go-multiaddr")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0p5f8h098a4yjjmzsgqs7vhx1iqifb8izwg3559cr4h7clkpzznh"))))
(build-system go-build-system)
(arguments
'(#:import-path
"github.com/multiformats/go-multiaddr"))
(native-inputs
(list go-github-com-multiformats-go-multihash
go-github-com-gxed-hashland-keccakpg
go-github-com-minio-blake2b-simd
go-github-com-minio-sha256-simd
go-github-com-mr-tron-base58
go-github-com-spaolacci-murmur3
go-golang-org-x-crypto))
(home-page "https://github.com/multiformats/go-multiaddr")
(synopsis "Composable and future-proof network addresses")
(description "Multiaddr is a standard way to represent addresses that
does the following:
@itemize
@item Support any standard network protocols.
@item Self-describe (include protocols).
@item Have a binary packed format.
@item Have a nice string representation.
@item Encapsulate well.
@end itemize\n")
(license license:expat))))
(define-public go-github-com-multiformats-go-multiaddr-net
(let ((commit "1cb9a0e8a6de3c8a10f6cee60d01d793603c4f7e")
(revision "0"))
(package
(name "go-github-com-multiformats-go-multiaddr-net")
(version (git-version "1.6.3" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/multiformats/go-multiaddr-net")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1ypgi47xdz3bh8lh7f8cmk7w3ql9g4izx5l3kzdg9gda1xn5zxq3"))))
(build-system go-build-system)
(arguments
(quote (#:import-path "github.com/multiformats/go-multiaddr-net"
;; TODO: Tests fail because they try to access the network.
#:tests? #f)))
(native-inputs
(list go-github-com-multiformats-go-multiaddr
go-github-com-multiformats-go-multihash
go-github-com-gxed-hashland-keccakpg
go-github-com-minio-blake2b-simd
go-github-com-minio-sha256-simd
go-github-com-mr-tron-base58
go-github-com-spaolacci-murmur3
go-golang-org-x-crypto))
(home-page "https://github.com/multiformats/go-multiaddr-net")
(synopsis "Multiaddress net tools")
(description "This package provides Multiaddr specific versions of
common functions in stdlib's @command{net} package. This means wrappers of
standard net symbols like @command{net.Dial} and @command{net.Listen}, as well
as conversion to and from @command{net.Addr}.")
(license license:expat))))
(define-public go-github-com-whyrusleeping-tar-utils
(let ((commit "8c6c8ba81d5c71fd69c0f48dbde4b2fb422b6dfc")
(revision "0"))
@ -6051,79 +5971,6 @@ implementation of generics.")
(home-page "https://github.com/cheekybits/genny/")
(license license:expat)))
(define-public go-github-com-quic-go-qpack
(package
(name "go-github-com-quic-go-qpack")
(version "0.4.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/quic-go/qpack")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "00mjz445hhx4yar5l8p21bpp4d06jyg2ajw0ax7bh64d37l4kx39"))))
(build-system go-build-system)
(arguments
(list
#:import-path "github.com/quic-go/qpack"
;; Tests require ginkgo v2.
#:tests? #f
#:go go-1.20))
(propagated-inputs (list go-github-com-onsi-gomega
go-github-com-onsi-ginkgo
go-golang-org-x-net))
(synopsis "Minimal QPACK (RFC 9204) implementation for Go")
(description
"A minimal QPACK (RFC 9204) implementation in Go. It is minimal in the sense
that it doesn't use the dynamic table at all, but just the static table and (Huffman
encoded) string literals. Wherever possible, it reuses code from the
@url{https://github.com/golang/net/tree/master/http2/hpack, HPACK implementation in
the Go standard library}.")
(home-page "https://github.com/quic-go/qpack")
(license license:expat)))
(define-public go-github-com-quic-go-quic-go
(package
(name "go-github-com-quic-go-quic-go")
(version "0.39.3")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/quic-go/quic-go")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0acabl3cz48nxpggc5s7fwxpmr5amyi09jygn5m5xxkkbhqs2cxq"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/quic-go/quic-go"
;; XXX More packages required...
#:tests? #f
#:go go-1.20))
(propagated-inputs
(list go-github-com-quic-go-qtls-go1-20
go-github-com-quic-go-qpack
go-golang-org-x-crypto
go-github-com-cheekybits-genny
go-github-com-marten-seemann-chacha20
go-github-com-golang-protobuf-proto
go-golang-org-x-crypto
go-golang-org-x-exp
go-golang-org-x-net
go-golang-org-x-sys
go-golang-org-x-sync))
(synopsis "QUIC in Go")
(description "This package provides a Go language implementation of the QUIC
network protocol.")
(home-page "https://github.com/quic-go/quic-go")
(license license:expat)))
(define-public go-github-com-lucas-clemente-quic-go
(deprecated-package "go-github-com-lucas-clemente-quic-go" go-github-com-quic-go-quic-go))
(define-public go-github-com-lunixbochs-vtclean
(package
(name "go-github-com-lunixbochs-vtclean")
@ -8519,29 +8366,6 @@ configuration languages, but other uses may be possible too.")
(description "This package implements a low-level key/value store in Go.")
(license license:expat)))
(define-public go-github-com-bwesterb-go-ristretto
(package
(name "go-github-com-bwesterb-go-ristretto")
(version "1.2.3")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/bwesterb/go-ristretto")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0h508v790wk6g8jq0gh18296xl87vmgc4fhwnac7mk6i5g3mz6v4"))))
(build-system go-build-system)
(arguments
'(#:unpack-path "github.com/bwesterb/go-ristretto"
#:import-path "github.com/bwesterb/go-ristretto/edwards25519"))
(home-page "https://github.com/bwesterb/go-ristretto")
(synopsis "operations on the Ristretto prime-order group")
(description "This is a pure Go implementation of the group operations on
the Ristretto prime-order group built from Edwards25519.")
(license license:expat)))
(define-public go-github-com-rogpeppe-go-internal
(package
(name "go-github-com-rogpeppe-go-internal")

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

@ -47,6 +47,7 @@
;;; Copyright © 2022 Evgeny Pisemsky <evgeny@pisemsky.com>
;;; Copyright © 2022 jgart <jgart@dismail.de>
;;; Copyright © 2023 Andrew Tropin <andrew@trop.in>
;;; Copyright © 2024 Ilya Chernyshov <ichernyshovvv@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -1088,7 +1089,7 @@ It has a nice, simple s-expression based syntax.")
(define-public guile-scheme-json-rpc
(package
(name "guile-scheme-json-rpc")
(version "0.4.0")
(version "0.4.5a")
(source (origin
(method git-fetch)
(uri (git-reference
@ -1097,14 +1098,15 @@ It has a nice, simple s-expression based syntax.")
(file-name (git-file-name name version))
(sha256
(base32
"0jsampz2ahs18z6yh9b5l3lkj8ycnavs0vg9sjngdj3w3zvrdcvm"))))
"0356hm6phcfgvwvx3ys6b927v40jzb7qrfgvql7g78na24zp2cmi"))))
(build-system gnu-build-system)
(arguments
`(#:phases (modify-phases %standard-phases
(add-after 'unpack 'change-to-guile-dir
(lambda _
(chdir "guile"))))))
(inputs (list guile-3.0 guile-srfi-145 guile-srfi-180))
(inputs (list guile-3.0))
(propagated-inputs (list guile-srfi-145 guile-srfi-180))
(native-inputs (list pkg-config))
(synopsis "Library providing JSON-RPC capability for Guile Scheme")
(description
@ -1117,7 +1119,7 @@ for calling methods on remote servers by exchanging JSON objects.")
(define-public guile-ares-rs
(package
(name "guile-ares-rs")
(version "0.9.1")
(version "0.9.3")
(source
(origin
(method git-fetch)
@ -1127,7 +1129,7 @@ for calling methods on remote servers by exchanging JSON objects.")
(file-name (git-file-name name version))
(sha256
(base32
"173jg8z0cwq5r67lzxsmyir5f6cxd9i5gzb3qryq71cqq4h1c77n"))))
"021lg06c5lrp2j1qv8hl4jh4yq07k158h824kjv6b87bxqk7vq54"))))
(build-system guile-build-system)
(arguments
(list
@ -1324,8 +1326,8 @@ works with Guile 1.4.x to 2.0.x.")
(license license:gpl3+)))
(define-public guile-prometheus
(let ((commit "4aaf902eb45b3a4c1003f854bda56c516fdf4f5b")
(revision "6"))
(let ((commit "e63335e64a1f63967b94ba6dd97889f9f565ca48")
(revision "7"))
(package
(name "guile-prometheus")
(version (git-version "0" revision commit))
@ -1336,7 +1338,7 @@ works with Guile 1.4.x to 2.0.x.")
(commit commit)))
(sha256
(base32
"03sr7wgksi9ys6jyzsnwanl2qqa8csi8jzcgrc3wfzp17vcc16yi"))
"0f8rykqx3mdbi7mgvvanx65i9gn5wmb768vlzrbg002v38284bf2"))
(file-name (string-append name "-" version "-checkout"))))
(build-system gnu-build-system)
(native-inputs

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

@ -832,14 +832,14 @@ due to its architecture which automatically parallelises the image workflows.")
(define-public gmic
(package
(name "gmic")
(version "3.3.3")
(version "3.3.5")
(source
(origin
(method url-fetch)
(uri (string-append "https://gmic.eu/files/source/gmic_"
version ".tar.gz"))
(sha256
(base32 "0pb474cdlxcp3m7gkxrfpnblag6r3wny7vih44gdyy2q8zb3ffch"))))
(base32 "06vcwn8c8zhr1j0jy79an1f6vvjh47ipm19a20g3qsnxv7h5c905"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f ;there are no tests
@ -865,7 +865,6 @@ due to its architecture which automatically parallelises the image workflows.")
libpng
libtiff
libx11
;;opencv ;OpenCV is currently broken in the CI
openexr
zlib))
(home-page "https://gmic.eu/")

26
gnu/packages/ipfs.scm
View File

@ -241,10 +241,13 @@ written in Go.")
(snippet '(for-each delete-file-recursively
;; TODO: unbundle the rest as well
'("vendor/github.com/alecthomas"
;; "vendor/github.com/blang"
"vendor/github.com/benbjohnson/clock"
"vendor/github.com/beorn7/perks"
"vendor/github.com/blang"
"vendor/github.com/cespare"
;; TODO: Go files not found
;; "vendor/github.com/cheggaaa"
;; TODO: kubo depends on v1.0.29 which is way too
;; hard to back port.
; "vendor/github.com/cheggaaa/pb"
"vendor/github.com/davecgh"
"vendor/github.com/dustin"
"vendor/github.com/flynn"
@ -261,8 +264,6 @@ written in Go.")
;; "vendor/github.com/ipld"
"vendor/github.com/jackpal"
"vendor/github.com/klauspost"
;; TODO: Go files not found
;; "vendor/github.com/lucas-clemente"
"vendor/github.com/mattn"
"vendor/github.com/mgutz"
"vendor/github.com/minio"
@ -306,20 +307,19 @@ written in Go.")
#~(string-append #$output "/bin/ipfs"))
"commands" "completion" "bash")))))))))
(inputs (list go-github-com-alecthomas-units
;; TODO: needs to be updated first
;; go-github-com-blang-semver
go-github-com-benbjohnson-clock
go-github-com-blang-semver-v4
go-github-com-cespare-xxhash
go-github-com-cheekybits-genny
go-github-com-cheggaaa-pb-v3
go-github-com-davecgh-go-spew
go-github-com-dustin-go-humanize
go-github-com-flynn-noise
go-github-com-francoispqt-gojay
go-github-com-fsnotify-fsnotify
go-github-com-gogo-protobuf
go-github-com-google-uuid
go-github-com-golang-groupcache-lru
go-github-com-golang-snappy
go-github-com-google-uuid
go-github-com-gorilla-mux
go-github-com-gorilla-websocket
go-github-com-jackpal-go-nat-pmp
@ -344,12 +344,11 @@ written in Go.")
go-github-com-spaolacci-murmur3
go-github-com-stretchr-testify
go-github-com-syndtr-goleveldb
go-gopkg-in-yaml-v2
go-gopkg-in-yaml-v3
go-go-uber-org-atomic
go-go-uber-org-multierr
go-go-uber-org-zap
go-golang-org-x-crypto
go-golang-org-x-exp
go-golang-org-x-lint
go-golang-org-x-mod
go-golang-org-x-net
@ -357,10 +356,11 @@ written in Go.")
go-golang-org-x-sync
go-golang-org-x-sys
go-golang-org-x-term
go-golang-org-x-text
go-golang-org-x-tools
go-golang-org-x-xerrors
go-golang-org-x-exp
go-golang-org-x-text
go-gopkg-in-yaml-v2
go-gopkg-in-yaml-v3
go-lukechampine-com-blake3))
(native-inputs
(append (if (%current-target-system)

32
gnu/packages/java.scm
View File

@ -1217,7 +1217,7 @@ new Date();"))
(define-public openjdk11
(package
(name "openjdk")
(version "11.0.17")
(version "11.0.22")
(source (origin
(method url-fetch)
(uri (string-append "https://openjdk-sources.osci.io/openjdk11/openjdk-"
@ -1225,7 +1225,7 @@ new Date();"))
(file-name (string-append name "-" version ".tar.xz"))
(sha256
(base32
"1prvqy0ysz0999wrhsrbz6vrknpqfihl9l74l16ph93g89dqi5ia"))
"18ca4syp9xlrqjgyjkb1sp9835riy6aym5xs81r8byrz6jlb2473"))
(modules '((guix build utils)))
(snippet
'(for-each delete-file (find-files "." "\\.(bin|exe|jar)$")))
@ -1534,7 +1534,7 @@ new Date();"))
(define-public openjdk12
(make-openjdk
openjdk11 "12.33" "0mbhdrk12b6878kby0flnbak7444dlpm0ihlmf92vk59y1c02bc2"
openjdk11 "12.33" "0pi2gwib3j2imi4l623iaywrmvfh9rqzh82lj2gxqbrmg55swvjf"
(source
(origin
(method url-fetch)
@ -1542,7 +1542,7 @@ new Date();"))
(file-name (string-append name "-" version ".tar.bz2"))
(sha256
(base32
"0mbhdrk12b6878kby0flnbak7444dlpm0ihlmf92vk59y1c02bc2"))
"0pi2gwib3j2imi4l623iaywrmvfh9rqzh82lj2gxqbrmg55swvjf"))
(modules '((guix build utils)))
(snippet
'(for-each delete-file (find-files "." "\\.(bin|exe|jar)$")))
@ -1573,8 +1573,8 @@ blacklisted.certs.pem"
"#! java BlacklistedCertsConverter SHA-256\n"))))))))))
(define-public openjdk13
(make-openjdk openjdk12 "13.0.13"
"0pxf4dlig61k0pg7amg4mi919hzam7nzwckry01avgq1wj8ambji"
(make-openjdk openjdk12 "13.0.14"
"1v92i5rhahqkjw8mz09c9qasnxqc67ygy0y266kdmm534z0da755"
(source (origin
(inherit (package-source base))
(patches '())))))
@ -1596,8 +1596,8 @@ blacklisted.certs.pem"
(define-public openjdk15
(make-openjdk
openjdk14 "15.0.9"
"1k3x06fv89l84ysjsyw8s89q8blghq85m6xjzv373x6297ln8n7a"
openjdk14 "15.0.10"
"0hdllv348bws6m992bh73jik18x0sv0k2m9l817b3zb7q802sp7x"
(source (origin
(inherit (package-source base))
(modules '())
@ -1623,8 +1623,8 @@ blacklisted.certs.pem"
(define-public openjdk17
(make-openjdk
openjdk16 "17.0.5"
"1asnysg6kxdkrmb88y6qihdr12ljsyxv0mg6hlcs7cwxgsdlqkfs"
openjdk16 "17.0.10"
"1bq1rqnipz6wdr05s20gm8nlpb3328ljxckzvc5ag0gf7fzlhn5f"
(source (origin
(inherit (package-source base))
(patches (search-patches "openjdk-15-xcursor-no-dynamic.patch"))))
@ -1639,8 +1639,8 @@ blacklisted.certs.pem"
(("^#!.*") "#! java BlockedCertsConverter SHA-256\n"))))))))))
(define-public openjdk18
(make-openjdk openjdk17 "18.0.2"
"1yimfdkwpinhg5cf1mcrzk9xvjwnray3cx762kypb9jcwbranjwx"))
(make-openjdk openjdk17 "18.0.2.1"
"0zxanjzz4p3psqahlidh55vx1ldanq70c2ygk3gcfn9a94vnr9rg"))
(define-public openjdk19
(make-openjdk openjdk18 "19.0.2"
@ -1660,12 +1660,12 @@ blacklisted.certs.pem"
(setenv "SOURCE_DATE_EPOCH" "1234567890")))))))))
(define-public openjdk20
(make-openjdk openjdk19 "20"
"0pk5lpwijfv9qv7vwpsq2xfklbnqdfs6xbdhc5aamrpar4xi4ykx"))
(make-openjdk openjdk19 "20.0.2"
"1af1v2c3d8x4c6shzl6cv9qwq7a4hn5map5pjh9vjcky0hkzd489"))
(define-public openjdk21
(make-openjdk openjdk20 "21"
"06wjfwrkqykjdkis2s1nh91cy8vwincnmc699cxvyk3fc12jf3vw"
(make-openjdk openjdk20 "21.0.2"
"0d1g3wnzr5whjpq8gvxq0h7kd7lxd3xgc6bh3kg8vzz096asn0kj"
(source (origin
(inherit (package-source base))
(patches (search-patches "openjdk-21-fix-rpath.patch"

20
gnu/packages/javascript.scm
View File

@ -7,6 +7,7 @@
;;; Copyright © 2021 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2022 Frank Pursel <frank.pursel@gmail.com>
;;; Copyright © 2023 Zheng Junjie <873216071@qq.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -835,15 +836,16 @@ roots, or wrestle with obscure build systems.")
"06pywwpmfwjz225h59wf90q96a2fd66qfcw5xa6m6y9k9k7glnx4"))))
(build-system gnu-build-system)
(arguments
`(#:make-flags
(list "prefix="
(string-append "DESTDIR=" %output))
#:phases
(modify-phases %standard-phases
(delete 'configure)
(replace 'check
(lambda _
(invoke "make" "microbench"))))))
(list #:make-flags
#~(list "prefix="
(string-append "DESTDIR=" #$output)
#$@(if (target-riscv64?) '("LDFLAGS=-latomic") '()))
#:phases #~(modify-phases %standard-phases
(delete 'configure)
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(invoke "make" "microbench")))))))
(home-page "https://bellard.org/quickjs/")
(synopsis "Small embeddable Javascript engine")
(description "QuickJS supports the ES2020 specification including modules,

121
gnu/packages/linux.scm
View File

@ -497,73 +497,91 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
;; The current "mainline" kernel.
(define-public linux-libre-6.7-version "6.7.6")
(define-public linux-libre-6.8-version "6.8.1")
(define-public linux-libre-6.8-gnu-revision "gnu")
(define deblob-scripts-6.8
(linux-libre-deblob-scripts
linux-libre-6.8-version
linux-libre-6.8-gnu-revision
(base32 "1kqwcm8baq3zx1z8jrgnvm9yps3y9jbf4pv1pbqqprpdscgl9089")
(base32 "04xk6myysrfrhfpq6zah8wk2ska7idmr968nh6pcd0ixbhas2k92")))
(define-public linux-libre-6.8-pristine-source
(let ((version linux-libre-6.8-version)
(hash (base32 "0s7zgk9m545v8y7qjhv7cprrh58j46gpmb8iynyhy2hlwcv8j34d")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-6.8)))
;; The current "stable" kernels. That is, the most recently released major
;; versions that are still supported upstream.
(define-public linux-libre-6.7-version "6.7.10")
(define-public linux-libre-6.7-gnu-revision "gnu")
(define deblob-scripts-6.7
(linux-libre-deblob-scripts
linux-libre-6.7-version
linux-libre-6.7-gnu-revision
(base32 "1ddngihfmwffgvxxv8xsppi76r6grvdxr6zzfzvgl9qw07a6c9fd")
(base32 "1vb2pd0wdfl9p5qi8hj1i5xg1p4pyrp01iqhap9xbb2yai4l80j5")))
(base32 "1lhsy2qnmz47r8m926k1kng912m64j7pnpcvd1ddgdqpq5byp88j")))
(define-public linux-libre-6.7-pristine-source
(let ((version linux-libre-6.7-version)
(hash (base32 "1lrp7pwnxnqyy8c2l4n4nz997039gbnssrfm8ss8kl3h2c7fr2g4")))
(hash (base32 "00vw90mypcliq0d72jdh1ql2dfmm7gpswln2qycxdz7rfsrrzfd9")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-6.7)))
;; The current "stable" kernels. That is, the most recently released major
;; versions that are still supported upstream.
;; 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-6.6-version "6.6.18")
(define-public linux-libre-6.6-version "6.6.22")
(define-public linux-libre-6.6-gnu-revision "gnu")
(define deblob-scripts-6.6
(linux-libre-deblob-scripts
linux-libre-6.6-version
linux-libre-6.6-gnu-revision
(base32 "1qm8f3fq4yx59f7b6yky5ryyf229ypxnry922sr8cy0s7mp62cmv")
(base32 "0kavbby960k7wg355p3hjb9v1c4gnk8dv3lkfhpz44ayhv7kihg5")))
(base32 "014w19b9igdy3rpwrqn21why151zlc9hdx2b1qvdkjsbz6smx3lp")))
(define-public linux-libre-6.6-pristine-source
(let ((version linux-libre-6.6-version)
(hash (base32 "07cv97l5jiakmmv35n0ganvqfr0590b02f3qb617qkx1zg2xhhsf")))
(hash (base32 "1x52c6ywmspp3naishzsknhy7i0b7mv9baxx25a0y987cjsygqr3")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-6.6)))
;; 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-6.1-version "6.1.79")
(define-public linux-libre-6.1-version "6.1.82")
(define-public linux-libre-6.1-gnu-revision "gnu")
(define deblob-scripts-6.1
(linux-libre-deblob-scripts
linux-libre-6.1-version
linux-libre-6.1-gnu-revision
(base32 "1sf80f2i4vf888xjcn84ymn4w5ynn30ib9033zwmv7f09yvfhapy")
(base32 "0vghx43lf7madaihsm279qnw8fsmgwq6p7r39r2m645mvap8mjxw")))
(base32 "08y5smwgbl2l74dlk850pbvn8d1y14cqvll2gbx80vmvfwlzp8c3")))
(define-public linux-libre-6.1-pristine-source
(let ((version linux-libre-6.1-version)
(hash (base32 "16xkd0hcslqlcf55d4ivzhf1fkhfs5yy0m9arbax8pmm5yi9r97s")))
(hash (base32 "01pcrcjp5mifjjmfz7j1jb8nhq8nkxspavxmv1l7d1qnskcx4l6i")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-6.1)))
(define-public linux-libre-5.15-version "5.15.149")
(define-public linux-libre-5.15-version "5.15.152")
(define-public linux-libre-5.15-gnu-revision "gnu")
(define deblob-scripts-5.15
(linux-libre-deblob-scripts
linux-libre-5.15-version
linux-libre-5.15-gnu-revision
(base32 "18ac30kxg2mf2f6gk3p935hzhz2qs110jy4xwk21kblnnkskbxj8")
(base32 "14pw0yl0yxdgcdp01rpi91ylil9irwzxfq04kfvn3gg2abaq37bn")))
(base32 "1a4la9nfdl5qiyfbzhgbqhl638wy1crkgpfnfaj0qf3hg4jsg0g4")))
(define-public linux-libre-5.15-pristine-source
(let ((version linux-libre-5.15-version)
(hash (base32 "1c01fnaghj55mkgsgddznq1zq4mswsa05rz00kmh1d3y6sd8115x")))
(hash (base32 "0zm4wkryj4mim4fr7pf5g9rlzh31yb1c40lkp85lvcm5yhjm507h")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-5.15)))
(define-public linux-libre-5.10-version "5.10.210")
(define-public linux-libre-5.10-version "5.10.213")
(define-public linux-libre-5.10-gnu-revision "gnu1")
(define deblob-scripts-5.10
(linux-libre-deblob-scripts
@ -573,12 +591,12 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "12csh2zyjrqzgqcv799gv8h4xaw1irxh2zqddn4jqp5p7psx4j5k")))
(define-public linux-libre-5.10-pristine-source
(let ((version linux-libre-5.10-version)
(hash (base32 "0vggj3a71awc1w803cdzrnkn88rxr7l1xh9mmdcw9hzxj1d3r9jf")))
(hash (base32 "105df7w6m5a3fngi6ajqs5qblaq4lbxsgcppllrk7v1r68i31kw4")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-5.10)))
(define-public linux-libre-5.4-version "5.4.269")
(define-public linux-libre-5.4-version "5.4.272")
(define-public linux-libre-5.4-gnu-revision "gnu1")
(define deblob-scripts-5.4
(linux-libre-deblob-scripts
@ -588,12 +606,12 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "0x0xg0fcykpd117x3q0gim8jilhx922ashhckjvafxv2gk2zzjhj")))
(define-public linux-libre-5.4-pristine-source
(let ((version linux-libre-5.4-version)
(hash (base32 "1kqqm4hpif3jy2ycnb0dfjgzyn18vqhm1i5q7d7rkisks33bwm7z")))
(hash (base32 "0rp3waqrm489crcrms2ls7fxcw5jdkjhazvx82z68gj0kaaxb69m")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-5.4)))
(define-public linux-libre-4.19-version "4.19.307")
(define-public linux-libre-4.19-version "4.19.310")
(define-public linux-libre-4.19-gnu-revision "gnu1")
(define deblob-scripts-4.19
(linux-libre-deblob-scripts
@ -603,7 +621,7 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "0fgkp3v7qgqpn7l1987xcwwlrmwsbscqnxfv06p8nkavrhymrv3c")))
(define-public linux-libre-4.19-pristine-source
(let ((version linux-libre-4.19-version)
(hash (base32 "0lp3fc7sqy48vpcl2g0n1bz7i1hp9k0nlz3i1xfh9l056ihzzvl3")))
(hash (base32 "0sfy2g9jzxd8ia0idll72l7npi2kssdkz29h8jjxhilgmg299v4m")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-4.19)))
@ -636,6 +654,11 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(patches (append (origin-patches source)
patches))))
(define-public linux-libre-6.8-source
(source-with-patches linux-libre-6.8-pristine-source
(list %boot-logo-patch
%linux-libre-arm-export-__sync_icache_dcache-patch)))
(define-public linux-libre-6.7-source
(source-with-patches linux-libre-6.7-pristine-source
(list %boot-logo-patch
@ -756,6 +779,11 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(description "Headers of the Linux-Libre kernel.")
(license license:gpl2)))
(define-public linux-libre-headers-6.8
(make-linux-libre-headers* linux-libre-6.8-version
linux-libre-6.8-gnu-revision
linux-libre-6.8-source))
(define-public linux-libre-headers-6.7
(make-linux-libre-headers* linux-libre-6.7-version
linux-libre-6.7-gnu-revision
@ -1100,20 +1128,6 @@ Linux kernel. It has been modified to remove all non-free binary blobs.")
;;; Generic kernel packages.
;;;
(define-public linux-libre-6.6
(make-linux-libre* linux-libre-6.6-version
linux-libre-6.6-gnu-revision
linux-libre-6.6-source
'("x86_64-linux" "i686-linux" "armhf-linux"
"aarch64-linux" "powerpc64le-linux" "riscv64-linux")
#:configuration-file kernel-config))
(define-public linux-libre-version linux-libre-6.6-version)
(define-public linux-libre-gnu-revision linux-libre-6.6-gnu-revision)
(define-public linux-libre-pristine-source linux-libre-6.6-pristine-source)
(define-public linux-libre-source linux-libre-6.6-source)
(define-public linux-libre linux-libre-6.6)
(define-public linux-libre-6.7
(make-linux-libre* linux-libre-6.7-version
linux-libre-6.7-gnu-revision
@ -1122,6 +1136,28 @@ Linux kernel. It has been modified to remove all non-free binary blobs.")
"aarch64-linux" "powerpc64le-linux" "riscv64-linux")
#:configuration-file kernel-config))
(define-public linux-libre-version linux-libre-6.7-version)
(define-public linux-libre-gnu-revision linux-libre-6.7-gnu-revision)
(define-public linux-libre-pristine-source linux-libre-6.7-pristine-source)
(define-public linux-libre-source linux-libre-6.7-source)
(define-public linux-libre linux-libre-6.7)
(define-public linux-libre-6.8
(make-linux-libre* linux-libre-6.8-version
linux-libre-6.8-gnu-revision
linux-libre-6.8-source
'("x86_64-linux" "i686-linux" "armhf-linux"
"aarch64-linux" "powerpc64le-linux" "riscv64-linux")
#:configuration-file kernel-config))
(define-public linux-libre-6.6
(make-linux-libre* linux-libre-6.6-version
linux-libre-6.6-gnu-revision
linux-libre-6.6-source
'("x86_64-linux" "i686-linux" "armhf-linux"
"aarch64-linux" "powerpc64le-linux" "riscv64-linux")
#:configuration-file kernel-config))
(define-public linux-libre-6.1
(make-linux-libre* linux-libre-6.1-version
linux-libre-6.1-gnu-revision
@ -2005,17 +2041,6 @@ GnuPG-based password manager like @code{pass}.")
(package
(inherit linux-libre)
(name "linux-libre-documentation")
(source
(origin
(inherit linux-libre-source)
(patches
(list
(origin
(method url-fetch)
(uri "https://git.kernel.org/pub/scm/linux/kernel/git/torvalds/linux.git/patch/Documentation/sphinx/kernel_feat.py?id=c23de7ceae59e4ca5894c3ecf4f785c50c0fa428")
(sha256
(base32
"0inw2pl7nh82sw8bhvvzqa61552bisl78yc1nyl2x6dmpyppzrld")))))))
(arguments
(list
#:tests? #f

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

@ -251,6 +251,39 @@ accessors, hash-tables, sets, uiop:run-program, arrays and a few others.")
;; TODO: Tests fail on call to coreutils echo for ecl.
`(#:tests? #f))))
(define-public sbcl-st-json
(let ((commit "4a0025bcc5b6921454822f1b9f38f697b4eeaf43")
(revision "0"))
(package
(name "sbcl-st-json")
(version (git-version "0.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/marijnh/ST-JSON")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "06qrhr5iw73k96lai2x9w52l6gnmlxy7fsr0r35gz6nz1f71x7gx"))))
(build-system asdf-build-system/sbcl)
(home-page "https://marijnhaverbeke.nl/st-json/")
(synopsis "JSON for Common Lisp")
(description
"ST-JSON (@code{ST} because it originated at Streamtech) is a Common Lisp
library for encoding and decoding JSON values (as specified on json.org).
This library does mostly the same thing as CL-JSON, but is simpler and more
precise about types (distinguishing boolean false, the empty array, and the
empty object).")
(license license:zlib))))
(define-public cl-st-json
(sbcl-package->cl-source-package sbcl-st-json))
(define-public ecl-st-json
(sbcl-package->ecl-package sbcl-st-json))
(define-public sbcl-stdutils
(let ((commit "4a4e5a4036b815318282da5dee2a22825369137b")
(revision "0"))
@ -825,21 +858,21 @@ instead of symbols.")
(sbcl-package->ecl-package sbcl-list-named-class))
(define-public sbcl-golden-utils
(let ((commit "fe1898f9abbd302b0359f017637c063173cf73e1")
(revision "3"))
(let ((commit "e43914ad2bdb0c8e1b1f10ef591aafc3c55b89e7")
(revision "4"))
(package
(name "sbcl-golden-utils")
(version (git-version "0.0.0" revision commit))
(home-page "https://github.com/mfiano/mfiano-utils")
(home-page "https://github.com/lisp-mirror/golden-utils")
(source
(origin
(method git-fetch)
(uri (git-reference
(url home-page)
(commit commit)))
(file-name (git-file-name "golden-utils" version))
(file-name (git-file-name "cl-golden-utils" version))
(sha256
(base32 "1ljc8yj32lmd1d60446rzl9m0r1ar15gdzacsf6blw1kny8xlrsr"))))
(base32 "09vq29wjr3x7h3fshwxg8h1psy4p73yl61cjljarpqjhsgz7lmbp"))))
(build-system asdf-build-system/sbcl)
(inputs
(list sbcl-alexandria))
@ -1692,6 +1725,42 @@ expression library for Common Lisp. It is a non-recursive, backtracing VM.")
(define-public cl-re
(sbcl-package->cl-source-package sbcl-re))
(define-public sbcl-boost-json
(let ((commit "eca166f5ff1f10bad14e00b9fd5bf9fcf3691a47")
(revision "0"))
(package
(name "sbcl-boost-json")
(version (git-version "1.1" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/cl-boost/json")
(commit commit)))
(file-name (git-file-name "cl-boost-json" version))
(sha256
(base32 "12k0470899qsll2qixksxf2vrhjmskk3nzp1di9k04n1b29nrakd"))))
(build-system asdf-build-system/sbcl)
(arguments
'(#:phases
(modify-phases %standard-phases
;; See <https://github.com/cl-boost/json/pull/2>.
(add-after 'unpack 'fix-decode-symbol
(lambda _
(substitute* '("decode.lisp" "encode.lisp")
(("formfeed") "page")))))))
(home-page "https://github.com/cl-boost/json")
(synopsis "JSON encoding and decoding for Common Lisp")
(description
"BOOST-JSON is a simple JSON parsing library for Common Lisp.")
(license license:asl2.0))))
(define-public cl-boost-json
(sbcl-package->cl-source-package sbcl-boost-json))
(define-public ecl-boost-json
(sbcl-package->ecl-package sbcl-boost-json))
(define-public sbcl-boost-parse
(let ((commit "c8f7e536b950752f3e35003e7ee0446e0fd51b50")
(revision "0"))
@ -2922,6 +2991,57 @@ management.")
(define-public ecl-eager-future2
(sbcl-package->ecl-package sbcl-eager-future2))
(define-public sbcl-easy-routes
(let ((commit "7832f8bf3d07825b5eb967a2ef04da7c40c18248")
(revision "0"))
(package
(name "sbcl-easy-routes")
(version (git-version "0.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/mmontone/easy-routes")
(commit commit)))
(file-name (git-file-name "cl-easy-routes" version))
(sha256
(base32 "1banw54kz2llzb9h5sm47ckfc9l348m7qncm0npsy0w837rxkyzx"))))
(build-system asdf-build-system/sbcl)
(arguments
'(#:asd-systems '("easy-routes"
"easy-routes+djula"
"easy-routes+errors")))
(native-inputs
(list sbcl-stefil))
(inputs
(list sbcl-djula
sbcl-hunchentoot
sbcl-hunchentoot-errors
sbcl-routes))
(home-page "https://github.com/mmontone/easy-routes/")
(synopsis "Routes handling utility on top of Hunchentoot")
(description
"EASY-ROUTES is yet another routes handling system on top of
Hunchentoot. It's just glue code for Restas routing subsystem (CL-ROUTES).
It supports:
@itemize
@item dispatch based on HTTP method
@item arguments extraction from the url path
@item decorators
@item URL generation from route names
@end itemize
This package provides EASY-ROUTES, EASY-ROUTES+DJULA and EASY-ROUTES+ERRORS
systems.")
(license license:expat))))
(define-public cl-easy-routes
(sbcl-package->cl-source-package sbcl-easy-routes))
(define-public ecl-easy-routes
(sbcl-package->ecl-package sbcl-easy-routes))
(define-public sbcl-jpl-util
(let ((commit "0311ed374e19a49d43318064d729fe3abd9a3b62"))
(package
@ -3687,48 +3807,47 @@ writing code that contains string literals that contain code themselves.")
(sbcl-package->ecl-package sbcl-pythonic-string-reader))
(define-public sbcl-slime-swank
(let ((commit "735258a26bb97e85d25f39e4bef83c1f80c12f5d")
(revision "1"))
(package
(name "sbcl-slime-swank")
(version (git-version "2.28" revision commit))
(source
(origin
(file-name (git-file-name "cl-slime-swank" version))
(method git-fetch)
(uri (git-reference
(url "https://github.com/slime/slime/")
(commit commit)))
(sha256
(base32 "0prskgzfqjmn8sc7p9nklnd0n1plwcvh40slgh23km31raplmzk7"))
(modules '((guix build utils)))
(snippet
;; The doc folder drags `gawk' into the closure. Doc is already
;; provided by emacs-slime.
`(begin
(delete-file-recursively "doc")
#t))))
(build-system asdf-build-system/sbcl)
(arguments
'(#:asd-systems '("swank" "swank/exts")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'set-fasl-directory
(lambda* (#:key outputs #:allow-other-keys)
(substitute* "swank-loader.lisp"
(("\\(probe-file fasl\\)" all)
;; Do not try to delete Guix store files.
(string-append
all "\n"
" (not (equal (subseq (pathname-directory fasl) 1 3)"
" '(\"gnu\" \"store\"))) ; XXX: GUIX PATCH"))))))))
(home-page "https://github.com/slime/slime")
(synopsis "Common Lisp Swank server")
(description
"This is only useful if you want to start a Swank server in a Lisp
;; Update together with emacs-slime.
(package
(name "sbcl-slime-swank")
(version "2.29.1")
(source
(origin
(file-name (git-file-name "cl-slime-swank" version))
(method git-fetch)
(uri (git-reference
(url "https://github.com/slime/slime/")
(commit (string-append "v" version))))
(sha256
(base32 "1fcasqsdfwsphkfx1vd3r5mr89vgvzb9g2dbw82mc9lijg1mr1ki"))
(modules '((guix build utils)))
(snippet
;; The doc folder drags `gawk' into the closure. Doc is already
;; provided by emacs-slime.
`(begin
(delete-file-recursively "doc")
#t))))
(build-system asdf-build-system/sbcl)
(arguments
'(#:asd-systems '("swank" "swank/exts")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'set-fasl-directory
(lambda* (#:key outputs #:allow-other-keys)
(substitute* "swank-loader.lisp"
(("\\(probe-file fasl\\)" all)
;; Do not try to delete Guix store files.
(string-append
all "\n"
" (not (equal (subseq (pathname-directory fasl) 1 3)"
" '(\"gnu\" \"store\"))) ; XXX: GUIX PATCH"))))))))
(home-page "https://github.com/slime/slime")
(synopsis "Common Lisp Swank server")
(description
"This is only useful if you want to start a Swank server in a Lisp
processes that doesn't run under Emacs. Lisp processes created by
@command{M-x slime} automatically start the server.")
(license (list license:gpl2+ license:public-domain)))))
(license (list license:gpl2+ license:public-domain))))
(define-public cl-slime-swank
(sbcl-package->cl-source-package sbcl-slime-swank))
@ -4279,6 +4398,36 @@ utilities that make it even easier to manipulate text in Common Lisp. It has
(define-public ecl-cl-string-match
(sbcl-package->ecl-package sbcl-cl-string-match))
(define-public sbcl-cl-punch
(package
(name "sbcl-cl-punch")
(version "0.2")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/windymelt/cl-punch")
(commit (string-append "v" version))))
(file-name (git-file-name "cl-punch" version))
(sha256
(base32 "1vmbaz9y9lq4wvi8mfbyif8vc9yfk2i0qd3ysbzl152wx32dbzs3"))))
(build-system asdf-build-system/sbcl)
(native-inputs
(list sbcl-prove))
(inputs
(list sbcl-cl-syntax))
(home-page "https://github.com/windymelt/cl-punch")
(synopsis "Anonymous lambda literal in Common Lisp, respecting Scala")
(description
"CL-PUNCH is a Scala-like anonymous lambda literal.")
(license license:expat )))
(define-public cl-punch
(sbcl-package->cl-source-package sbcl-cl-punch))
(define-public ecl-cl-punch
(sbcl-package->ecl-package sbcl-cl-punch))
(define-public sbcl-puri
(let ((commit "4bbab89d9ccbb26346899d1f496c97604fec567b")
(revision "2"))
@ -4879,6 +5028,47 @@ similar to that provided by @command{yason} or @command{st-json}.")
(define-public ecl-cl-json
(sbcl-package->ecl-package sbcl-cl-json))
(define-public sbcl-cl-json-pointer
(let ((commit "f6760e2a02972783f96b92a15f801e14a6828e0c")
(revision "0"))
(package
(name "sbcl-cl-json-pointer")
(version (git-version "0.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/y2q-actionman/cl-json-pointer")
(commit commit)))
(file-name (git-file-name "cl-json-pointer" version))
(sha256
(base32 "0b7a755wc2ghsd1pv7d32877b21h4nssp41xs017anbmj55czb2h"))))
(build-system asdf-build-system/sbcl)
(arguments
;; FIXME: Component "cl-json-pointer/test" not found.
`(#:tests? #f
#:asd-systems '("cl-json-pointer" "cl-json-pointer/synonyms")))
(inputs
(list sbcl-alexandria
sbcl-boost-json
sbcl-cl-json
sbcl-closer-mop
sbcl-st-json))
(home-page "https://github.com/y2q-actionman/cl-json-pointer")
(synopsis "JSON Pointer processor for Common Lisp")
(description "
This package provides a JSON
Pointer (@url{https://tools.ietf.org/html/rfc6901,RFC6901}) implementation for
Common Lisp. This libary aims to be independent from any JSON libraries (as much
as possible).")
(license license:expat))))
(define-public cl-json-pointer
(sbcl-package->cl-source-package sbcl-cl-json-pointer))
(define-public ecl-cl-json-poiniter
(sbcl-package->ecl-package sbcl-cl-json-pointer))
(define-public sbcl-unix-opts
(let ((commit "0e61f34b2ecf62288437810d4abb31e572048b04")
(revision "1"))
@ -6326,6 +6516,40 @@ connections (keep-alive), and SSL.")
;; Tests fail on ECL with 'Socket error in "socket": EINVAL'.
'(#:tests? #f))))
(define-public sbcl-hunchentoot-errors
(let ((commit "69eb3bcea59ed1ccf3dd1960e6d48fb21f1dadab")
(revision "0"))
(package
(name "sbcl-hunchentoot-errors")
(version (git-version "0.0.1" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/mmontone/hunchentoot-errors")
(commit commit)))
(file-name (git-file-name "cl-hunchentoot-errors" version))
(sha256
(base32 "0fab7s8qhhs713cw014qqvzm5z61wmxm2fcbkarhg41cz3li9k1j"))))
(build-system asdf-build-system/sbcl)
(inputs
(list sbcl-cl-mimeparse
sbcl-hunchentoot
sbcl-parse-number
sbcl-string-case))
(home-page "https://github.com/mmontone/hunchentoot-errors/")
(synopsis "Hunchentoot error pages and logs with request and session information")
(description
"This package provides a functionality augmenting Hunchentoot error
pages and logs with request and session information.")
(license license:expat))))
(define-public cl-hunchentoot-errors
(sbcl-package->cl-source-package sbcl-hunchentoot-errors))
(define-public ecl-hunchentoot-errors
(sbcl-package->ecl-package sbcl-hunchentoot-errors))
(define-public sbcl-lunamech-matrix-api
(let ((commit "aa54a820149584c237b03d500ad83397fe25dc92")
(revision "0"))
@ -6910,6 +7134,96 @@ multipart/form-data.")
(define-public ecl-http-body
(sbcl-package->ecl-package sbcl-http-body))
(define-public sbcl-ciel
(let ((commit "6cc1cef5e37e9f495c8163271a5de48de99f348a")
(revision "0"))
(package
(name "sbcl-ciel")
(version (git-version "0.1.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/ciel-lang/CIEL")
(commit commit)))
(file-name (git-file-name "ciel" version))
(sha256
(base32 "1bwafbbsppxqvijf43dii55mpzrklh6faj2m5dhajg2f2m8qckgi"))))
(build-system asdf-build-system/sbcl)
(native-inputs
(list sbcl-fiveam))
(inputs
(list sbcl-access
sbcl-alexandria
sbcl-arrow-macros
sbcl-bordeaux-threads
sbcl-cl-ansi-text
sbcl-cl-ansi-text
sbcl-cl-cron
sbcl-cl-csv
sbcl-cl-json-pointer
sbcl-cl-ppcre
sbcl-cl-punch
sbcl-cl-reexport
sbcl-cl-str
sbcl-clesh
sbcl-clingon
sbcl-closer-mop
sbcl-cmd
sbcl-dbi
sbcl-defstar
sbcl-deploy
sbcl-dexador
sbcl-dissect
sbcl-easy-routes
sbcl-file-notify
sbcl-fn
sbcl-for
sbcl-fset
sbcl-generic-cl
sbcl-hunchentoot
sbcl-local-time
sbcl-log4cl
sbcl-lparallel
sbcl-lquery
sbcl-metabang-bind
sbcl-modf
sbcl-named-readtables
sbcl-nodgui
sbcl-parse-float
sbcl-parse-number
sbcl-printv
sbcl-pythonic-string-reader
sbcl-quicksearch
sbcl-quri
sbcl-repl-utilities
sbcl-serapeum
sbcl-shasht
sbcl-shlex
sbcl-spinneret
sbcl-sxql
sbcl-trivia
sbcl-trivial-arguments
sbcl-trivial-do
sbcl-trivial-monitored-thread
sbcl-trivial-package-local-nicknames
sbcl-trivial-types
sbcl-vgplot
sbcl-which))
(home-page "http://ciel-lang.org/")
(synopsis "CIEL Is an Extended Lisp")
(description
"CIEL is a ready-to-use collection of libraries providing: a binary, to
run CIEL scripts; a simple full-featured REPL for the terminal; a Lisp library
and a core image .")
(license license:expat))))
(define-public cl-ciel
(sbcl-package->cl-source-package sbcl-ciel))
(define-public ecl-ciel
(sbcl-package->ecl-package sbcl-ciel))
(define-public sbcl-circular-streams
(let ((commit "e770bade1919c5e8533dd2078c93c3d3bbeb38df")
(revision "1"))
@ -7367,21 +7681,21 @@ audio library for Common Lisp.")
(sha256
(base32 "0sfmvqmsg9z13x0v77448rpdqgyprdq739nsbrjw9a28hv9jmkg9"))))
(build-system asdf-build-system/sbcl)
(inputs
`(("alexandria" ,sbcl-alexandria)
("bordeaux-threads" ,sbcl-bordeaux-threads)
("cl-fastcgi" ,sbcl-cl-fastcgi)
("flexi-streams" ,sbcl-flexi-streams)
("hunchentoot" ,sbcl-hunchentoot)
("lack" ,sbcl-lack)
("split-sequence" ,sbcl-split-sequence)
("usocket" ,sbcl-usocket)
("quri" ,sbcl-quri)))
(arguments
'(#:asd-systems '("clack"
"clack-handler-fcgi"
"clack-socket"
"clack-handler-hunchentoot")))
(inputs
(list sbcl-alexandria
sbcl-bordeaux-threads
sbcl-cl-fastcgi
sbcl-flexi-streams
sbcl-hunchentoot
sbcl-lack
sbcl-quri
sbcl-split-sequence
sbcl-usocket))
(home-page "https://github.com/fukamachi/clack")
(synopsis "Web Application Environment for Common Lisp")
(description
@ -7565,6 +7879,40 @@ by either a symbol or a keyword.")
(define-public cl-verbose
(sbcl-package->cl-source-package sbcl-verbose))
(define-public sbcl-vgplot
(let ((commit "76329928a3709387c0779175af56ec49d16bcd35")
(revision "0"))
(package
(name "sbcl-vgplot")
(version (git-version "0.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/volkers/vgplot")
(commit commit)))
(file-name (git-file-name "vgplot" version))
(sha256
(base32 "1vc5fd787xa8831wjbmwrpg17f9isi5k8dmb85fsysz47plbvi1y"))))
(build-system asdf-build-system/sbcl)
(native-inputs
(list sbcl-lisp-unit))
(inputs
(list sbcl-cl-fad sbcl-cl-ppcre sbcl-ltk))
(home-page "https://github.com/volkers/vgplot")
(synopsis "Common lisp library interfacing to the gnuplot utility")
(description
"This package provides an interface to the @code{gnuplot} plotting
utility. The intention of the API is to resemble to some of the plot commands
of octave or matlab.")
(license license:gpl3+))))
(define-public cl-vgplot
(sbcl-package->cl-source-package sbcl-vgplot))
(define-public ecl-vgplot
(sbcl-package->ecl-package sbcl-vgplot))
(define-public sbcl-find-port
(let ((commit "811727f88d7f000623bf92fdb0e64678a7112a28")
(revision "2"))
@ -8092,6 +8440,38 @@ UTF-8 has is that it doesn't depend on any other libraries.")
(define-public ecl-trivial-utf-8
(sbcl-package->ecl-package sbcl-trivial-utf-8))
(define-public sbcl-trivial-utilities
(let ((commit "279ff255562628196942632c543d91c357067221")
(revision "0"))
(package
(name "sbcl-trivial-utilities")
(version (git-version "0.4.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.com/ediethelm/trivial-utilities")
(commit commit)))
(file-name (git-file-name "trivial-utilities" version))
(sha256
(base32 "0k1xmn5f5dik7scadw0vyy67mik4ypnfqbhlv2vsg9afxzbpx2dz"))))
(build-system asdf-build-system/sbcl)
(inputs
(list sbcl-alexandria sbcl-iterate sbcl-closer-mop))
(home-page "https://gitlab.com/ediethelm/trivial-utilities")
(synopsis "Collection of useful types, functions and macros for Common Lisp")
(description
"This package provides a collection of types, functions and macros. Some
of the functionality is implemented from Graham's On Lisp and Seibel's Practical
Common Lisp.")
(license license:expat))))
(define-public cl-trivial-utilities
(sbcl-package->cl-source-package sbcl-trivial-utilities))
(define-public ecl-trivial-utilities
(sbcl-package->ecl-package sbcl-trivial-utilities))
(define-public sbcl-idna
(package
(name "sbcl-idna")
@ -10190,6 +10570,38 @@ supplement, not a competitor, to Alexandria.")
(define-public ecl-rutils
(sbcl-package->ecl-package sbcl-rutils))
(define-public sbcl-arrow-macros
;; The latest upstream version tag is dated (pushed in 2020), use the latest
;; commit instead.
(let ((commit "16bdfd31298182099c7d70df4598104e5a38b05e")
(revision "0"))
(package
(name "sbcl-arrow-macros")
(version (git-version "0.2.7" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/hipeta/arrow-macros")
(commit commit)))
(file-name (git-file-name "arrow-macros" version))
(sha256
(base32 "0q4vpysk4h9ghs5zmnzzilky9jyz7i8n0x0p98nq528crbrkh6c4"))))
(build-system asdf-build-system/sbcl)
(native-inputs (list sbcl-fiveam))
(home-page "https://github.com/hipeta/arrow-macros/")
(synopsis "Clojure-like arrow macros in Common Lisp")
(description
"Arrow-macros provides clojure-like arrow macros (ex. ->, ->>) and diamond wands
in swiss-arrows.")
(license license:expat))))
(define-public cl-arrow-macros
(sbcl-package->cl-source-package sbcl-arrow-macros))
(define-public ecl-arrow-macros
(sbcl-package->ecl-package sbcl-arrow-macros))
(define-public sbcl-arrows
(let ((commit "df7cf0067e0132d9697ac8b1a4f1b9c88d4f5382")
(revision "0"))
@ -12426,11 +12838,11 @@ Scalable Vector Graphics files.")
(sbcl-package->cl-source-package sbcl-cl-svg))
(define-public sbcl-nodgui
(let ((commit "6baccf45371afd4dcc8cd3f38332b300614783b6")
(let ((commit "35fd379e11162995ed48c2f8ebe6a5bf0a6f48cb")
(revision "1"))
(package
(name "sbcl-nodgui")
(version (git-version "0.4.8.6" revision commit))
(version (git-version "0.6.0.2" revision commit))
(source
(origin
(method git-fetch)
@ -12439,7 +12851,7 @@ Scalable Vector Graphics files.")
(commit commit)))
(file-name (git-file-name "cl-nodgui" version))
(sha256
(base32 "0fjz8362qmvkbzj9ylyllkdxg7vvj38l3y5qn4xi2gim92x4lx67"))))
(base32 "01l1hyzf8ryc35ydrjhqjn4az8asdwn46knl5gx8v02z2jcv7j24"))))
(build-system asdf-build-system/sbcl)
(inputs
(list sbcl-alexandria
@ -12451,8 +12863,11 @@ Scalable Vector Graphics files.")
sbcl-esrap
sbcl-jpeg-turbo
sbcl-named-readtables
sbcl-cl-opengl
sbcl-parse-number
sbcl-pngload
sbcl-sdl2
sbcl-zpng
tk
tklib))
(arguments
@ -16653,7 +17068,7 @@ and comparison operations when used heavily in numeric code.")
(define-public sbcl-cl-form-types
(package
(name "sbcl-cl-form-types")
(version "0.3.1")
(version "0.3.2")
(source
(origin
(method git-fetch)
@ -16663,7 +17078,7 @@ and comparison operations when used heavily in numeric code.")
(file-name (git-file-name name version))
(sha256
(base32
"17kdjqmm2ib347b8lqm3k4kca2j53kr0azb6h7m0v5i157ibndsw"))))
"0k4j657vfh4zblp9a7d3z15r82yyz4fzqh8vfn2s7ljsj1dmhp2n"))))
(build-system asdf-build-system/sbcl)
(inputs
(list sbcl-agutil
@ -16691,7 +17106,15 @@ Macros and symbol-macros are fully expanded and all special forms, except
(sbcl-package->cl-source-package sbcl-cl-form-types))
(define-public ecl-cl-form-types
(sbcl-package->ecl-package sbcl-cl-form-types))
(let ((pkg (sbcl-package->ecl-package sbcl-cl-form-types)))
(package
(inherit pkg)
(arguments
;; FIXME: Syntax error in declaration (TYPE T (FORM &KEY STRICT
;; EXPAND-COMPILER-MACROS (TEST (QUOTE FORM-TYPE=))))
;; An error occurred during initialization: COMPILE-FILE-ERROR while...
;; See <https://github.com/alex-gutev/cl-form-types/issues/22>.
'(#:tests? #f)))))
(define-public sbcl-generic-cl
(package
@ -16708,21 +17131,21 @@ Macros and symbol-macros are fully expanded and all special forms, except
(base32
"1c40vqb49g0adfv17jxgk0ds1n6a2dph30cibq01sicmqdgrrbi8"))))
(build-system asdf-build-system/sbcl)
(inputs
`(("agutil" ,sbcl-agutil)
("alexandria" ,sbcl-alexandria)
("anaphora" ,sbcl-anaphora)
("arrows" ,sbcl-arrows)
("cl-custom-hash-table" ,sbcl-custom-hash-table)
("cl-form-types" ,sbcl-cl-form-types)
("static-dispatch" ,sbcl-static-dispatch)
("trivia" ,sbcl-trivia)))
(native-inputs
(list sbcl-prove))
(arguments
;; Tests fail because SBCL head size is not high enough.
;; https://github.com/alex-gutev/generic-cl/issues/6
`(#:tests? #f))
(inputs
(list sbcl-agutil
sbcl-alexandria
sbcl-anaphora
sbcl-arrows
sbcl-cl-form-types
sbcl-custom-hash-table
sbcl-static-dispatch
sbcl-trivia))
(native-inputs
(list sbcl-prove))
(home-page "https://alex-gutev.github.io/generic-cl/")
(synopsis "Generic function interface to standard Common Lisp functions")
(description "@code{generic-cl} provides a generic function wrapper over
@ -16786,12 +17209,9 @@ predictable cross-platform behavior and some utilities useful for versioning.")
(base32 "07pfkibaridihg8lbq2czwa4iqifqk24n6rx7bfnv7i49p1ppja1"))))
(build-system asdf-build-system/sbcl)
(native-inputs
`(("cl-mpg123" ,sbcl-cl-mpg123)
("cl-out123" ,sbcl-cl-out123)))
(list sbcl-cl-mpg123 sbcl-cl-out123))
(inputs
`(("cffi" ,sbcl-cffi)
("documentation-utils" ,sbcl-documentation-utils)
("trivial-features" ,sbcl-trivial-features)))
(list sbcl-cffi sbcl-documentation-utils sbcl-trivial-features))
(home-page "https://shinmera.github.io/deploy/")
(synopsis "Deployment tools for standalone Common Lisp application")
(description
@ -19105,37 +19525,39 @@ protocol for Mastodon.")
(sbcl-package->cl-source-package sbcl-tooter))
(define-public sbcl-croatoan
(package
(name "sbcl-croatoan")
(version "0.2")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/McParen/croatoan")
(commit (string-append "v" version))))
(file-name (git-file-name "cl-croatoan" version))
(sha256
(base32 "0x2rlckyn8kn5mqy0fib8piggz694g3naarz2dvha1hsy4jhb1wg"))))
(build-system asdf-build-system/sbcl)
(arguments
'(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-paths
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "ncurses/ncurses.lisp"
(("libncursesw.so")
(search-input-file inputs "/lib/libncursesw.so"))))))))
(inputs
(list ncurses
sbcl-cffi
sbcl-trivial-gray-streams
sbcl-bordeaux-threads))
(synopsis "Common Lisp bindings for the ncurses terminal library")
(description "Croatoan provides high-level Common Lisp CLOS bindings for
(let ((commit "282145ff9e9005fddc4241bc6827b3ab09c5bd25")
(revision "1"))
(package
(name "sbcl-croatoan")
(version (git-version "2.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/McParen/croatoan")
(commit commit)))
(file-name (git-file-name "cl-croatoan" version))
(sha256
(base32 "021h2f2yj4j9gynr3k7qi36x94jm5b95p3vaddbaih96wyzgbmq5"))))
(build-system asdf-build-system/sbcl)
(arguments
'(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-paths
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "ncurses/ncurses.lisp"
(("libncursesw.so")
(search-input-file inputs "/lib/libncursesw.so"))))))))
(inputs
(list ncurses
sbcl-cffi
sbcl-trivial-gray-streams
sbcl-bordeaux-threads))
(synopsis "Common Lisp bindings for the ncurses terminal library")
(description "Croatoan provides high-level Common Lisp CLOS bindings for
the ncurses terminal library.")
(home-page "https://github.com/McParen/croatoan")
(license license:expat)))
(home-page "https://github.com/McParen/croatoan")
(license license:expat))))
(define-public ecl-croatoan
(sbcl-package->ecl-package sbcl-croatoan))
@ -20289,6 +20711,41 @@ encodings.")
(define-public cl-mime
(sbcl-package->cl-source-package sbcl-cl-mime))
(define-public sbcl-cl-mimeparse
(let ((commit "93cbdf6f6fe8a2eb5f652f8adec453eb98ea0547")
(revision "0"))
(package
(name "sbcl-cl-mimeparse")
(version (git-version "0.0.1" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/mmontone/cl-mimeparse")
(commit commit)))
(file-name (git-file-name "cl-mimeparse" version))
(sha256
(base32 "0gdkpi3620va0a3q56svcn1q9f5w0pqfhx30lnldg8fjnrdfiwkk"))))
(build-system asdf-build-system/sbcl)
(arguments
'(#:asd-test-systems '("cl-mimeparse-tests")))
(native-inputs
(list sbcl-rt))
(inputs
(list sbcl-cl-ppcre sbcl-parse-number))
(home-page "https://github.com/mmontone/cl-mimeparse/")
(synopsis "Common Lisp library for parsing MIME types")
(description
"This package provides a library for parsing MIME types, in the spirit
of http://code.google.com/p/mimeparse/, with a Common Lisp flavor.")
(license license:expat))))
(define-public cl-mimeparse
(sbcl-package->cl-source-package sbcl-cl-mimeparse))
(define-public ecl-cl-mimeparse
(sbcl-package->ecl-package sbcl-cl-mimeparse))
(define-public sbcl-cl-mixed
(let ((commit "4aaff134d3902d93a2a8605c10de4bcfc62d7afa")
(revision "0"))
@ -21245,6 +21702,39 @@ implementation, for example drawing calls of GUI applications.")
(define-public cl-trivial-main-thread
(sbcl-package->cl-source-package sbcl-trivial-main-thread))
(define-public sbcl-trivial-monitored-thread
(let ((commit "b0bab23f9a9bd06f0f33809635c7ba4e6a3d5a21")
(revision "0"))
(package
(name "sbcl-trivial-monitored-thread")
(version (git-version "0.3.11" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.com/ediethelm/trivial-monitored-thread")
(commit commit)))
(file-name (git-file-name "trivial-monitored-thread" version))
(sha256
(base32 "1ipnp2l944hc587bifxsnmiymw468imar0v8bqvgxv8pc5sym4ib"))))
(build-system asdf-build-system/sbcl)
(native-inputs
(list sbcl-fiveam))
(inputs
(list sbcl-iterate sbcl-log4cl sbcl-trivial-utilities))
(home-page "https://gitlab.com/ediethelm/trivial-monitored-thread")
(synopsis "Thread monitoring library for Common Lisp")
(description
"Trivial Monitored Thread offers a very simple (aka trivial) way of
spawning threads and being informed when one any of them crash and die.")
(license license:expat))))
(define-public cl-trivial-monitored-thread
(sbcl-package->cl-source-package sbcl-trivial-monitored-thread))
(define-public ecl-trivial-monitored-thread
(sbcl-package->ecl-package sbcl-trivial-monitored-thread))
(define-public sbcl-moira
(let ((commit "21f1cfd5942fcaea2ed2e4f6055b2a5a39ac4c6e")
(revision "0"))
@ -21506,24 +21996,23 @@ Common Lisp.")
;; clack-test and dexador.
`(#:tests? #f))
(native-inputs
`(("clack" ,sbcl-clack)
("rove" ,sbcl-rove)))
(list sbcl-clack sbcl-rove))
(inputs
`(("alexandria" ,sbcl-alexandria)
("bordeaux-threads" ,sbcl-bordeaux-threads)
("cffi" ,sbcl-cffi)
("cl-speedy-queue" ,sbcl-cl-speedy-queue) ;; Required for ecl build
("clack-socket" ,sbcl-clack)
("fast-http" ,sbcl-fast-http)
("fast-io" ,sbcl-fast-io)
("lev" ,sbcl-lev)
("quri" ,sbcl-quri)
("rove" ,sbcl-rove)
("smart-buffer" ,sbcl-smart-buffer)
("static-vectors" ,sbcl-static-vectors)
("swap-bytes" ,sbcl-swap-bytes)
("trivial-utf-8" ,sbcl-trivial-utf-8)
("vom" ,sbcl-vom)))
(list sbcl-alexandria
sbcl-bordeaux-threads
sbcl-cffi
sbcl-cl-speedy-queue ;; Required for ecl build
sbcl-clack
sbcl-fast-http
sbcl-fast-io
sbcl-lev
sbcl-quri
sbcl-rove
sbcl-smart-buffer
sbcl-static-vectors
sbcl-swap-bytes
sbcl-trivial-utf-8
sbcl-vom))
(home-page "https://github.com/fukamachi/woo")
(synopsis "Non-blocking HTTP server based on libev")
(description
@ -22084,8 +22573,8 @@ application development library.")
(sbcl-package->cl-source-package sbcl-cl-glfw3))
(define-public sbcl-cl-gltf
(let ((commit "dab186ebf9169926ccfcdec121a157162ad6ed83")
(revision "0"))
(let ((commit "7a3af05a7f491d8973b217f096806ef12a97474b")
(revision "1"))
(package
(name "sbcl-cl-gltf")
(version (git-version "2.0.0" revision commit))
@ -22097,7 +22586,7 @@ application development library.")
(commit commit)))
(file-name (git-file-name "cl-gltf" version))
(sha256
(base32 "0ijy0paph7w037a2k14pv8j44mnj4gwhddhxzyqsz3qwl6fpb7yb"))))
(base32 "1d64fg2l2c0wns3wpp1xypd8687gnp3k70fv9fb48m1kpzg4kvrh"))))
(build-system asdf-build-system/sbcl)
(arguments
;; No tests provided.
@ -22124,6 +22613,8 @@ application development library.")
;; initialization: COMPILE-FILE-ERROR while compiling #<cl-source-file
;; "trivial-extensible-sequences" "fallback">.
;;
;; See <https://github.com/Shirakumo/cl-gltf/issues/3>
;;
;; (define-public ecl-cl-gltf
;; (sbcl-package->ecl-package sbcl-cl-gltf))

4
gnu/packages/lisp.scm
View File

@ -1003,7 +1003,7 @@ the HTML documentation of TXR.")
(define-public txr
(package
(name "txr")
(version "293")
(version "294")
(source
(origin
(method git-fetch)
@ -1012,7 +1012,7 @@ the HTML documentation of TXR.")
(commit (string-append "txr-" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1b3vhlnw4ymznnlh9d71qhkcdc1p69a53hilckc3rql9y4jsik57"))))
(base32 "0cd0ah6lzwszn4jjxrbwknhscdm6rgsprpiybzlikcckgcylpkdn"))))
(build-system gnu-build-system)
(arguments
(list #:configure-flags

83
gnu/packages/llvm-meta.scm 100644
View File

@ -0,0 +1,83 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2024 Efraim Flashner <efraim@flashner.co.il>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages llvm-meta)
#:use-module (guix utils)
#:export (clang-compiler-cpu-architectures))
(define (clang-compiler-cpu-architectures version)
"Return package properties for Clang VERSION."
`((compiler-cpu-architectures
;; These lists were obtained by running:
;;
;; guix shell clang -- llc -march=x86-64 -mattr=help
;;
;; and then filtering against clang/test/Misc/target-invalid-cpu-note.c
("powerpc64le"
,@(if (version>=? version "11.0")
'("power8" "power9" "power10" "powerpc64le")))
("x86_64"
,@(cond
((version>=? version "17.0")
'("nocona" "core2" "penryn" "bonnell" "atom" "silvermont" "slm"
"goldmont" "goldmont-plus" "tremont" "nehalem" "corei7" "westmere"
"sandybridge" "corei7-avx" "ivybridge" "core-avx-i" "haswell"
"core-avx2" "broadwell" "skylake" "skylake-avx512" "skx"
"cascadelake" "cooperlake" "cannonlake" "icelake-client"
"rocketlake" "icelake-server" "tigerlake" "sapphirerapids"
"alderlake" "raptorlake" "meteorlake" "sierraforest" "grandridge"
"graniterapids" "graniterapids-d" "emeraldrapids" "knl" "knm" "k8"
"athlon64" "athlon-fx" "opteron" "k8-sse3" "athlon64-sse3"
"opteron-sse3" "amdfam10" "barcelona" "btver1" "btver2" "bdver1"
"bdver2" "bdver3" "bdver4" "znver1" "znver2" "znver3" "znver4"
"x86-64" "x86-64-v2" "x86-64-v3" "x86-64-v4"))
((version>=? version "16.0")
'("nocona" "core2" "penryn" "bonnell" "atom" "silvermont" "slm"
"goldmont" "goldmont-plus" "tremont" "nehalem" "corei7" "westmere"
"sandybridge" "corei7-avx" "ivybridge" "core-avx-i" "haswell"
"core-avx2" "broadwell" "skylake" "skylake-avx512" "skx"
"cascadelake" "cooperlake" "cannonlake" "icelake-client"
"rocketlake" "icelake-server" "tigerlake" "sapphirerapids"
"alderlake" "raptorlake" "meteorlake" "sierraforest" "grandridge"
"graniterapids" "emeraldrapids" "knl" "knm" "k8" "athlon64"
"athlon-fx" "opteron" "k8-sse3" "athlon64-sse3" "opteron-sse3"
"amdfam10" "barcelona" "btver1" "btver2" "bdver1" "bdver2"
"bdver3" "bdver4" "znver1" "znver2" "znver3" "znver4" "x86-64"
"x86-64-v2" "x86-64-v3" "x86-64-v4"))
((version>=? version "13.0")
'("nocona" "core2" "penryn" "bonnell" "atom" "silvermont" "slm"
"goldmont" "goldmont-plus" "tremont" "nehalem" "corei7" "westmere"
"sandybridge" "corei7-avx" "ivybridge" "core-avx-i" "haswell"
"core-avx2" "broadwell" "skylake" "skylake-avx512" "skx"
"cascadelake" "cooperlake" "cannonlake" "icelake-client"
"rocketlake" "icelake-server" "tigerlake" "sapphirerapids"
"alderlake" "knl" "knm" "k8" "athlon64" "athlon-fx" "opteron"
"k8-sse3" "athlon64-sse3" "opteron-sse3" "amdfam10" "barcelona"
"btver1" "btver2" "bdver1" "bdver2" "bdver3" "bdver4" "znver1"
"znver2" "znver3" "x86-64" "x86-64-v2" "x86-64-v3" "x86-64-v4"))
((version>=? version "9.0")
'("atom" "silvermont" "slm" "goldmont" "goldmont-plus" "tremont"
"nehalem" "corei7" "westmere" "sandybridge" "corei7-avx"
"ivybridge" "core-avx-i" "haswell" "core-avx2" "broadwell"
"skylake" "skylake-avx512" "skx" "cascadelake" "cooperlake"
"cannonlake" "icelake-client" "icelake-server" "knl" "knm" "k8"
"athlon64" "athlon-fx" "opteron" "k8-sse3" "athlon64-sse3"
"opteron-sse3" "amdfam10" "barcelona" "btver1" "btver2" "bdver1"
"bdver2" "bdver3" "bdver4" "znver1" "znver2" "x86-64"))
(else '()))))))

77
gnu/packages/llvm.scm
View File

@ -7,7 +7,7 @@
;;; Copyright © 2017 Roel Janssen <roel@gnu.org>
;;; Copyright © 2018–2022 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2021-2024 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018, 2021-2023 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>
@ -65,6 +65,7 @@
#:use-module (gnu packages compression)
#:use-module (gnu packages libedit)
#:use-module (gnu packages libffi)
#:use-module (gnu packages llvm-meta)
#:use-module (gnu packages lua)
#:use-module (gnu packages mpi)
#:use-module (gnu packages ncurses)
@ -79,8 +80,7 @@
#:use-module (srfi srfi-1)
#:use-module (ice-9 match)
#:export (make-lld-wrapper
system->llvm-target
clang-properties))
system->llvm-target))
(define* (system->llvm-target #:optional
(system (or (and=> (%current-target-system)
@ -481,73 +481,7 @@ code analysis tools.")
(define (clang-properties version)
"Return package properties for Clang VERSION."
`((compiler-cpu-architectures
("powerpc64le"
;; This list was obtained from clang/test/Misc/target-invalid-cpu-note.c
;; and then trimmed down.
,@(if (version>=? version "11.0")
'("power8" "power9" "power10" "powerpc64le")))
("x86_64"
;; This list was obtained from clang/test/Misc/target-invalid-cpu-note.c
,@(cond
((version>=? version "17.0")
'("nocona" "core2" "penryn" "bonnell" "atom" "silvermont" "slm"
"goldmont" "goldmont-plus" "tremont" "nehalem" "corei7" "westmere"
"sandybridge" "corei7-avx" "ivybridge" "core-avx-i" "haswell"
"core-avx2" "broadwell" "skylake" "skylake-avx512" "skx"
"cascadelake" "cooperlake" "cannonlake" "icelake-client"
"rocketlake" "icelake-server" "tigerlake" "sapphirerapids"
"alderlake" "raptorlake" "meteorlake" "sierraforest" "grandridge"
"graniterapids" "graniterapids-d" "emeraldrapids" "knl" "knm" "k8"
"athlon64" "athlon-fx" "opteron" "k8-sse3" "athlon64-sse3"
"opteron-sse3" "amdfam10" "barcelona" "btver1" "btver2" "bdver1"
"bdver2" "bdver3" "bdver4" "znver1" "znver2" "znver3" "znver4"
"x86-64" "x86-64-v2" "x86-64-v3" "x86-64-v4"))
((version>=? version "16.0")
'("nocona" "core2" "penryn" "bonnell" "atom" "silvermont" "slm"
"goldmont" "goldmont-plus" "tremont" "nehalem" "corei7" "westmere"
"sandybridge" "corei7-avx" "ivybridge" "core-avx-i" "haswell"
"core-avx2" "broadwell" "skylake" "skylake-avx512" "skx"
"cascadelake" "cooperlake" "cannonlake" "icelake-client"
"rocketlake" "icelake-server" "tigerlake" "sapphirerapids"
"alderlake" "raptorlake" "meteorlake" "sierraforest" "grandridge"
"graniterapids" "emeraldrapids" "knl" "knm" "k8" "athlon64"
"athlon-fx" "opteron" "k8-sse3" "athlon64-sse3" "opteron-sse3"
"amdfam10" "barcelona" "btver1" "btver2" "bdver1" "bdver2"
"bdver3" "bdver4" "znver1" "znver2" "znver3" "znver4" "x86-64"
"x86-64-v2" "x86-64-v3" "x86-64-v4"))
((version>=? version "15.0")
'("nocona" "core2" "penryn" "bonnell" "atom" "silvermont" "slm"
"goldmont" "goldmont-plus" "tremont" "nehalem" "corei7" "westmere"
"sandybridge" "corei7-avx" "ivybridge" "core-avx-i" "haswell"
"core-avx2" "broadwell" "skylake" "skylake-avx512" "skx"
"cascadelake" "cooperlake" "cannonlake" "icelake-client"
"rocketlake" "icelake-server" "tigerlake" "sapphirerapids"
"alderlake" "knl" "knm" "k8" "athlon64" "athlon-fx" "opteron"
"k8-sse3" "athlon64-sse3" "opteron-sse3" "amdfam10" "barcelona"
"btver1" "btver2" "bdver1" "bdver2" "bdver3" "bdver4" "znver1"
"znver2" "znver3" "x86-64" "x86-64-v2" "x86-64-v3" "x86-64-v4"))
((version>=? version "13.0")
'("nocona" "core2" "penryn" "bonnell" "atom" "silvermont" "slm"
"goldmont" "goldmont-plus" "tremont" "nehalem" "corei7" "westmere"
"sandybridge" "corei7-avx" "ivybridge" "core-avx-i" "haswell"
"core-avx2" "broadwell" "skylake" "skylake-avx512" "skx"
"cascadelake" "cooperlake" "cannonlake" "icelake-client"
"rocketlake" "icelake-server" "tigerlake" "sapphirerapids"
"alderlake" "knl" "knm" "k8" "athlon64" "athlon-fx" "opteron"
"k8-sse3" "athlon64-sse3" "opteron-sse3" "amdfam10" "barcelona"
"btver1" "btver2" "bdver1" "bdver2" "bdver3" "bdver4" "znver1"
"znver2" "znver3" "x86-64" "x86-64-v2" "x86-64-v3" "x86-64-v4"))
((version>=? version "9.0")
'("atom" "silvermont" "slm" "goldmont" "goldmont-plus" "tremont"
"nehalem" "corei7" "westmere" "sandybridge" "corei7-avx"
"ivybridge" "core-avx-i" "haswell" "core-avx2" "broadwell"
"skylake" "skylake-avx512" "skx" "cascadelake" "cooperlake"
"cannonlake" "icelake-client" "icelake-server" "knl" "knm" "k8"
"athlon64" "athlon-fx" "opteron" "k8-sse3" "athlon64-sse3"
"opteron-sse3" "amdfam10" "barcelona" "btver1" "btver2" "bdver1"
"bdver2" "bdver3" "bdver4" "znver1" "znver2" "x86-64"))
(else '()))))))
`((clang-compiler-cpu-architectures version)))
(define-public (make-clang-toolchain clang libomp)
(package
@ -616,7 +550,8 @@ output), and Binutils.")
'(("14.0.6" . ("clang-14.0-libc-search-path.patch"))
("15.0.7" . ("clang-15.0-libc-search-path.patch"))
("16.0.6" . ("clang-16.0-libc-search-path.patch"))
("17.0.6" . ("clang-17.0-libc-search-path.patch"))))
("17.0.6" . ("clang-17.0-libc-search-path.patch"
"clang-17.0-link-dsymutil-latomic.patch"))))
(define (llvm-monorepo version)
(origin

11
gnu/packages/logging.scm
View File

@ -26,6 +26,7 @@
(define-module (gnu packages logging)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix gexp)
#:use-module (guix packages)
#:use-module (guix utils)
#:use-module (guix download)
@ -227,10 +228,12 @@ output in multiple windows in a terminal.")
;; TODO run benchmark. Currently not possible, as adding
;; (gnu packages benchmark) forms a dependency cycle
(arguments
'(#:configure-flags
(list "-DSPDLOG_BUILD_BENCH=OFF"
"-DSPDLOG_BUILD_SHARED=ON"
"-DSPDLOG_BUILD_TESTS=ON")))
(list #:configure-flags
#~(list "-DSPDLOG_BUILD_BENCH=OFF"
"-DSPDLOG_BUILD_SHARED=ON"
#$@(if (%current-target-system)
'()
'("-DSPDLOG_BUILD_TESTS=ON")))))
(native-inputs (list catch2-3))
(home-page "https://github.com/gabime/spdlog")
(synopsis "Fast C++ logging library")

59
gnu/packages/machine-learning.scm
View File

@ -2331,13 +2331,13 @@ discrete, and conditional dimensions.")
(define-public python-deepxde
(package
(name "python-deepxde")
(version "1.10.1")
(version "1.11.0")
(source (origin
(method url-fetch)
(uri (pypi-uri "DeepXDE" version))
(sha256
(base32
"1lgn4sa9bnmhsccddb9vjz7nsvdnccxqkvv7xssxmfb413dpg1mz"))))
"0qx6iq8n2j8ab80bs2n85v8g6xi2bnq83vfiaj7a4nsmf62rhkzg"))))
(build-system pyproject-build-system)
(arguments
(list #:tests? #f ; there are no tests
@ -4246,6 +4246,61 @@ PyTorch when needed.
Note: currently this package does not provide GPU support.")
(license license:bsd-3)))
(define-public python-pytorch2
(package
(inherit python-pytorch)
(name "python-pytorch")
(version "2.2.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/pytorch/pytorch")
(commit (string-append "v" version))
(recursive? #t)))
(file-name (git-file-name name version))
(sha256
(base32
"0hdr0d6n072qd0nq2dkxhc9pva6vggj9hpzc0glpc60vfgk0cgzb"))
(patches (search-patches "python-pytorch2-system-libraries.patch"
"python-pytorch-runpath.patch"))
(modules '((guix build utils)))
(snippet
'(begin
;; XXX: Let's be clear: this package is a bundling fest. We
;; delete as much as we can, but there's still a lot left.
(for-each (lambda (directory)
(delete-file-recursively
(string-append "third_party/" directory)))
'("benchmark" "cpuinfo" "eigen"
;; FIXME: QNNPACK (of which XNNPACK is a fork)
;; needs these.
;; "FP16" "FXdiv" "gemmlowp" "psimd"
"gloo" "googletest" "ios-cmake" "NNPACK"
"onnx" "protobuf" "pthreadpool"
"pybind11" "python-peachpy"
"tbb" "XNNPACK" "zstd"))
(substitute* "caffe2/CMakeLists.txt"
(("target_link_libraries\\(\\$\\{test_name\\}_\\$\\{CPU_CAPABILITY\\} c10 sleef gtest_main\\)")
"target_link_libraries(${test_name}_${CPU_CAPABILITY} c10 sleef gtest gtest_main)"))
(substitute* "functorch/CMakeLists.txt"
(("\\$\\{_rpath_portable_origin\\}/../torch/lib")
"$ORIGIN/../torch/lib"))))))
(inputs
(modify-inputs (package-inputs python-pytorch)
(replace "xnnpack" xnnpack-for-torch2)))
(propagated-inputs
(modify-inputs (package-propagated-inputs python-pytorch)
(append python-filelock
python-fsspec
python-jinja2
python-networkx
python-opt-einsum
python-sympy)
(replace "onnx" onnx-for-torch2)
(replace "onnx-optimizer" onnx-optimizer-for-torch2)))))
(define-public python-pytorch-for-r-torch
(package
(inherit python-pytorch)

154
gnu/packages/magic-wormhole.scm
View File

@ -1,5 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2019 Leo Famulari <leo@famulari.name>
;;; Copyright © 2024 normally_js <normally_js@posteo.net>
;;; Copyright © 2024 Sharlatan Hellseher <sharlatanus@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -17,12 +19,13 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages magic-wormhole)
#:use-module (guix packages)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix build-system pyproject)
#:use-module ((guix build-system python) #:select (pypi-uri))
#:use-module (guix download)
#:use-module (guix licenses)
#:use-module (guix build-system python)
#:use-module (guix gexp)
#:use-module (guix packages)
#:use-module (gnu packages check)
#:use-module (gnu packages python-check)
#:use-module (gnu packages python-crypto)
#:use-module (gnu packages python-web)
#:use-module (gnu packages python-xyz))
@ -32,24 +35,15 @@
(name "magic-wormhole-mailbox-server")
(version "0.4.1")
(source
(origin
(method url-fetch)
(uri (pypi-uri "magic-wormhole-mailbox-server" version))
(sha256
(base32
"1yw8i8jv5iv1kkz1aqimskw7fpichjn6ww0fq0czbalwj290bw8s"))))
(build-system python-build-system)
(arguments
'(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-tests
(lambda _
;; This test requires network access.
(substitute* "src/wormhole_mailbox_server/test/test_web.py"
(("test_log_http") "disabled_test_log_http"))
#t)))))
(origin
(method url-fetch)
(uri (pypi-uri "magic-wormhole-mailbox-server" version))
(sha256
(base32
"1yw8i8jv5iv1kkz1aqimskw7fpichjn6ww0fq0czbalwj290bw8s"))))
(build-system pyproject-build-system)
(native-inputs
(list python-mock))
(list python-mock python-pytest))
(propagated-inputs
(list python-attrs
python-autobahn
@ -58,79 +52,77 @@
python-six
python-treq
python-twisted))
(home-page "https://github.com/warner/magic-wormhole-mailbox-server")
(home-page "https://github.com/magic-wormhole/magic-wormhole-mailbox-server")
(synopsis "Magic-Wormhole central mailbox server")
(description "This package provides the main server that Magic-Wormhole
clients connect to. The server performs store-and-forward delivery for small
(description
"This package provides the main server that Magic-Wormhole clients
connect to. The server performs store-and-forward delivery for small
key-exchange and control messages. Bulk data is sent over a direct TCP
connection, or through a transit-relay.")
(license expat)))
(license license:expat)))
(define-public magic-wormhole-transit-relay
(package
(name "magic-wormhole-transit-relay")
(version "0.2.1")
(source
(origin
(method url-fetch)
(uri (pypi-uri "magic-wormhole-transit-relay" version))
(sha256
(base32
"0ppsx2s1ysikns1h053x67z2zmficbn3y3kf52bzzslhd2s02j6b"))))
(build-system python-build-system)
(origin
(method url-fetch)
(uri (pypi-uri "magic-wormhole-transit-relay" version))
(sha256
(base32
"0ppsx2s1ysikns1h053x67z2zmficbn3y3kf52bzzslhd2s02j6b"))))
(build-system pyproject-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'install 'install-docs
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(docs (string-append out "/share/doc/magic-wormhole-transit-relay")))
(for-each (lambda (file)
(install-file file docs))
(find-files "docs/"))
#t))))))
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'install 'install-docs
(lambda _
(let* ((out #$output)
(docs (string-append out "/share/doc/magic-wormhole-transit-relay")))
(for-each (lambda (file)
(install-file file docs))
(find-files "docs/"))))))))
(native-inputs
(list python-mock python-pyflakes python-tox))
(list python-mock python-pytest))
(propagated-inputs
(list python-twisted))
(home-page
"https://github.com/warner/magic-wormhole-transit-relay")
(home-page "https://github.com/magic-wormhole/magic-wormhole-transit-relay")
(synopsis "Magic-Wormhole relay server")
(description "This package provides the Magic-Wormhole Transit Relay
server, which helps clients establish bulk-data transit connections even when
both are behind NAT boxes. Each side makes a TCP connection to this server and
(description
"This package provides the Magic-Wormhole Transit Relay server, which
helps clients establish bulk-data transit connections even when both are
behind NAT boxes. Each side makes a TCP connection to this server and
presents a handshake. Two connections with identical handshakes are glued
together, allowing them to pretend they have a direct connection.")
(license expat)))
(license license:expat)))
(define-public magic-wormhole
(package
(name "magic-wormhole")
(version "0.12.0")
(version "0.13.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "magic-wormhole" version))
(sha256
(base32
"0q41j99718y7m95zg1vaybnsp31lp6lhyqkbv4yqz5ys6jixh3qv"))))
(build-system python-build-system)
(origin
(method url-fetch)
(uri (pypi-uri "magic-wormhole" version))
(sha256
(base32
"05hm5pnrxli69a28h3pbgx6s6pwy8279l506kha7y3i7hs1dcfxc"))))
(build-system pyproject-build-system)
(arguments
'(#:phases
(modify-phases %standard-phases
;; XXX I can't figure out how to build the docs properly.
;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=34515#101
(add-after 'install 'install-docs
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(man (string-append out "/share/man/man1")))
(install-file "docs/wormhole.1" man))
#t)))))
(list
#:phases
#~(modify-phases %standard-phases
;; XXX I can't figure out how to build the docs properly.
;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=34515#101
(add-after 'install 'install-docs
(lambda _
(install-file "docs/wormhole.1"
(string-append #$output "/share/man/man1")))))))
(native-inputs
(list python-mock
;; XXX These are required for the test suite but end up being referenced
;; by the built package.
;; https://bugs.gnu.org/25235
python-pytest
magic-wormhole-mailbox-server
magic-wormhole-transit-relay))
(propagated-inputs
@ -138,22 +130,24 @@ together, allowing them to pretend they have a direct connection.")
python-click
python-hkdf
python-humanize
python-noiseprotocol
python-pynacl
python-spake2
python-tqdm
python-twisted
python-txtorcon))
(home-page "https://github.com/warner/magic-wormhole")
(home-page "https://github.com/magic-wormhole/magic-wormhole")
(synopsis "Securely transfer data between computers")
(description "Magic-Wormhole is a library and a command-line tool named
wormhole, which makes it possible to securely transfer arbitrary-sized files and
(description
"Magic-Wormhole is a library and a command-line tool named wormhole,
which makes it possible to securely transfer arbitrary-sized files and
directories (or short pieces of text) from one computer to another. The two
endpoints are identified by using identical \"wormhole codes\": in general, the
sending machine generates and displays the code, which must then be typed into
the receiving machine.
endpoints are identified by using identical \"wormhole codes\": in general,
the sending machine generates and displays the code, which must then be typed
into the receiving machine.
The codes are short and human-pronounceable, using a phonetically-distinct
wordlist. The receiving side offers tab-completion on the codewords, so usually
only a few characters must be typed. Wormhole codes are single-use and do not
need to be memorized.")
(license expat)))
wordlist. The receiving side offers tab-completion on the codewords, so
usually only a few characters must be typed. Wormhole codes are single-use
and do not need to be memorized.")
(license license:expat)))

17
gnu/packages/mail.scm
View File

@ -54,6 +54,7 @@
;;; Copyright © 2023 Timo Wilken <guix@twilken.net>
;;; Copyright © 2023 Arjan Adriaanse <arjan@adriaan.se>
;;; Copyright © 2023 Wilko Meyer <w@wmeyer.eu>
;;; Copyright © 2024 Benjamin Slade <slade@lambda-y.net>
;;;
;;; This file is part of GNU Guix.
;;;
@ -1214,14 +1215,14 @@ security functionality including PGP, S/MIME, SSH, and SSL.")
(define-public mu
(package
(name "mu")
(version "1.10.8")
(version "1.12.2")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/djcb/mu/releases/download/v"
version "/mu-" version ".tar.xz"))
(sha256
(base32 "129m6rz8vbd7370c3h3ma66bxqdkm6wsdix5qkmv1vm7sanxh4bb"))))
(base32 "065nqrsz5bpvhniaacfq67fh78m5pm96svingdviw2hj1y21s6kv"))))
(build-system meson-build-system)
(native-inputs
(list pkg-config
@ -1229,7 +1230,7 @@ security functionality including PGP, S/MIME, SSH, and SSL.")
gnupg ; for tests
texinfo))
(inputs
(list glib gmime guile-3.0 xapian))
(list glib gmime guile-3.0 xapian readline python))
(arguments
(list
#:modules '((guix build meson-build-system)
@ -1244,13 +1245,13 @@ security functionality including PGP, S/MIME, SSH, and SSL.")
(add-after 'unpack 'patch-bin-references
(lambda _
(substitute* '("guile/tests/test-mu-guile.cc"
"mu/tests/test-mu-cmd.cc"
"mu/tests/test-mu-cmd-cfind.cc"
"mu/tests/test-mu-query.cc")
(("/bin/sh") (which "sh")))
(substitute* '("lib/tests/bench-indexer.cc"
"lib/utils/mu-test-utils.cc")
(("/bin/rm") (which "rm")))))
(("/bin/rm") (which "rm")))
(substitute* '("lib/mu-maildir.cc")
(("/bin/mv") (which "mv")))))
(add-after 'install 'fix-ffi
(lambda _
(substitute* (find-files #$output "mu.scm")
@ -2642,13 +2643,13 @@ maintained.")
(define-public khard
(package
(name "khard")
(version "0.18.0")
(version "0.19.1")
(source (origin
(method url-fetch)
(uri (pypi-uri name version))
(sha256
(base32
"05860fdayqap128l7i6bcmi9kdyi2gx02g2pmh88d56xgysd927y"))))
"1464j728hjjpzlc89v4rbml3p4b38zp1igjd9yq3xnn3lc6hmwsr"))))
(build-system python-build-system)
(arguments
`(#:phases

47
gnu/packages/man.scm
View File

@ -10,7 +10,7 @@
;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
;;; Copyright © 2021 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2021 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2022, 2024 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2022 Imran Iqbal <imran@imraniqbal.org>
;;;
;;; This file is part of GNU Guix.
@ -219,6 +219,51 @@ accessed using the man command. It uses a Berkeley DB database in place of
the traditional flat-text whatis databases.")
(license license:gpl2+)))
(define-public man2html
(package
(name "man2html")
(version "1.6g-16")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://salsa.debian.org/debian/man2html")
(commit (string-append "debian/" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1cxm8b2x4cjmyidi4gfz9q29zrhaxhbnsiqcmlnyr1bdhjsmk786"))))
(build-system gnu-build-system)
(arguments
(list
#:tests? #f ;no test suite
;; The source include a man page viewer as well as the man2html
;; converter. We're only interested in the converter, so we specify the
;; explicit 'manhtml' target.
#:make-flags #~(list (string-append "bindir=" #$output "/bin")
"manhtml")
#:phases #~(modify-phases %standard-phases
(replace 'configure
(lambda _
(setenv "CC" #$(cc-for-target))
(invoke "./configure"
(string-append "-prefix=" #$output))))
(add-before 'install 'chdir
(lambda _
(chdir "man2html")))
(replace 'install
;; This is needed because the 'manhtml' top level target
;; doesn't exist in man2html/Makefile.
(lambda* (#:key make-flags #:allow-other-keys
#:rest args)
(apply (assoc-ref %standard-phases 'install)
`(,@args #:make-flags
,(delete "manhtml" make-flags))))))))
(home-page "https://salsa.debian.org/debian/man2html")
(synopsis "Man pages to HTML format converter")
(description "@command{man2html} is a command-line tool for converting man
pages into HTML format.")
(license license:gpl2+)))
(define-public mandoc
(package
(name "mandoc")

19
gnu/packages/mastodon.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2019-2023 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2019-2024 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2021 Taiju HIGASHI <higashi@taiju.info>
;;;
@ -24,6 +24,7 @@
#:use-module (guix gexp)
#:use-module (guix git-download)
#:use-module (guix build-system meson)
#:use-module (guix build-system pyproject)
#:use-module (guix build-system python)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (gnu packages)
@ -37,6 +38,7 @@
#:use-module (gnu packages gtk)
#:use-module (gnu packages image)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages python-build)
#:use-module (gnu packages python-check)
#:use-module (gnu packages python-crypto)
#:use-module (gnu packages python-web)
@ -47,14 +49,14 @@
(define-public toot
(package
(name "toot")
(version "0.38.1")
(version "0.42.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "toot" version))
(sha256
(base32 "1cn646jzys9vjaw20sxmgzc7zq5a5ma8vabvrw9zpa0yl9wm97my"))))
(build-system python-build-system)
(base32 "1vw3j504dxmq22s40kysps3d09hl7l48cwznwrfr9zqif67i4v3g"))))
(build-system pyproject-build-system)
(arguments
'(#:phases
(modify-phases %standard-phases
@ -64,12 +66,17 @@
(add-installed-pythonpath inputs outputs)
(invoke "py.test")))))))
(native-inputs
(list python-psycopg2 python-pytest))
(list python-psycopg2-binary
python-pytest
python-pyyaml
python-typing-extensions))
(inputs
(list python-beautifulsoup4
python-tomlkit
python-click
python-requests
python-tomlkit
python-urwid
python-urwidgets
python-wcwidth))
(home-page "https://github.com/ihabunek/toot/")
(synopsis "Mastodon CLI client")

36
gnu/packages/maths.scm
View File

@ -3515,7 +3515,8 @@ September 2004}")
data structures and routines for the scalable (parallel) solution of
scientific applications modeled by partial differential equations.")
(license (license:non-copyleft
"https://www.mcs.anl.gov/petsc/documentation/copyright.html"))))
"https://www.mcs.anl.gov/petsc/documentation/copyright.html"))
(properties '((tunable? . #t)))))
(define-public petsc-complex
(package
@ -7135,16 +7136,21 @@ set.")
(lambda _
(invoke "make" "-C" "docs")))
(replace 'check
(lambda _
(setenv "LD_LIBRARY_PATH" (string-append (getcwd) "/hypre/lib"))
(setenv "PATH" (string-append "." ":" (getenv "PATH")))
(invoke "make" "check" "CHECKRUN=")
(for-each (lambda (filename)
(let ((size (stat:size (stat filename))))
(when (positive? size)
(error (format #f "~a size ~d; error indication~%"
filename size)))))
(find-files "test" ".*\\.err$"))))
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(setenv "LD_LIBRARY_PATH"
(string-append (getcwd) "/hypre/lib"))
(setenv "PATH"
(string-append "." ":"
(getenv "PATH")))
(invoke "make" "check" "CHECKRUN=")
(for-each (lambda (filename)
(let ((size (stat:size (stat filename))))
(when (positive? size)
(error (format #f
"~a size ~d; error indication~%"
filename size)))))
(find-files "test" ".*\\.err$")))))
(add-after 'install 'install-docs
(lambda* (#:key outputs #:allow-other-keys)
;; Custom install because docs/Makefile doesn't honor ${docdir}.
@ -8069,7 +8075,7 @@ easily be incorporated into existing simulation codes.")
".tgz"))
(sha256
(base32
"1a9wbgdqyy1whhfc0yl0yqkax3amnqa6iihhq48d063gc0jwfd9a"))
"0gzxgd2ybnh49h57rh47vrqnsyk11jn206j5kf9y7p5vksc79ffz"))
(patches (search-patches "combinatorial-blas-awpm.patch"
"combinatorial-blas-io-fix.patch"))))
(build-system cmake-build-system)
@ -8088,6 +8094,12 @@ easily be incorporated into existing simulation codes.")
#:parallel-tests? #f ;tests use 'mpiexec -n4'
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-tests
(lambda _
;; Skip failing tests (SIGFPE and SIGSEGV).
(substitute* "ReleaseTests/CMakeLists.txt"
(("^.*SpAsgnTest.*$") "")
(("^.*IndexingTest.*$") ""))))
(add-before 'check 'mpi-setup
,%openmpi-setup)
(add-before 'check 'test-setup

178
gnu/packages/music.scm
View File

@ -10,7 +10,7 @@
;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>
;;; Copyright © 2017 nikita <nikita@n0.is>
;;; Copyright © 2017 Rodger Fox <thylakoid@openmailbox.org>
;;; Copyright © 2017–2023 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2017–2024 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2017, 2018, 2019, 2021 Pierre Langlois <pierre.langlois@gmx.com>
;;; Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2017–2022 Tobias Geerinckx-Rice <me@tobias.gr>
@ -54,6 +54,7 @@
;;; Copyright © 2023 Antero Mejr <antero@mailbox.org>
;;; Copyright © 2023, 2024 Sharlatan Hellseher <sharlatanus@gmail.com>
;;; Copyright © 2023 Yovan Naumovski <yovan@gorski.stream>
;;; Copyright © 2023 Zheng Junjie <873216071@qq.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -867,7 +868,7 @@ settings (aliasing, linear interpolation and cubic interpolation).")
(define-public hydrogen
(package
(name "hydrogen")
(version "1.2.0")
(version "1.2.3")
(source
(origin
(method git-fetch)
@ -876,7 +877,7 @@ settings (aliasing, linear interpolation and cubic interpolation).")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0v4ir1my8zndw5rvz6jr42ysprwycgxrlsc53070y3620n699nha"))))
(base32 "0qb16yn3igs95silvngwy5mjwlzsyz5axwbd3lz6pjhwbf81rn7d"))))
(build-system cmake-build-system)
(arguments
`(#:test-target "tests"
@ -1508,7 +1509,7 @@ and auto-mapping slices to MIDI note numbers.")
(define-public lilypond
(package
(name "lilypond")
(version "2.24.1")
(version "2.24.3")
(source
(origin
(method url-fetch)
@ -1516,7 +1517,7 @@ and auto-mapping slices to MIDI note numbers.")
"v" (version-major+minor version) "/"
"lilypond-" version ".tar.gz"))
(sha256
(base32 "028m31fjcfgsq3f8ahz4hp2r36shsvkq1fjjibqdcp2aas3r1ifm"))))
(base32 "1gj4xjc9842wnqvqj08lkykpz2r72mqqw3x1fk6s9xbsxxv5y06z"))))
(build-system gnu-build-system)
(arguments
(list #:tests? #f ;out-test/collated-files.html fails
@ -3040,38 +3041,63 @@ main purpose is to liberate raw audio rendering from audio and MIDI drivers.")
using a system-independent interface.")
(license license:expat)))
(define-public python-pyportmidi
(define-public portmidi-2
(package
(name "python-pyportmidi")
(version (package-version portmidi))
(source (package-source portmidi))
(build-system python-build-system)
(name "portmidi")
(version "2.0.4")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/PortMidi/portmidi")
(commit "b808babecdc5d05205467dab5c1006c5ac0fdfd4")))
(sha256
(base32 "05a3dfpgbpcg08p8a3acjrrd1qy5hvvray2kz2asygy1vf3mx85s"))
(file-name (git-file-name name version))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f ; no tests included
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'enter-dir
(lambda _ (chdir "pm_python") #t))
(add-after 'enter-dir 'fix-setup.py
(lambda _
(substitute* "setup.py"
;; Use Python 3 syntax
(("print (\".*\")" _ text)
(string-append "print(" text ")\n"))
;; TODO.txt and CHANGES.txt don't exist
(("CHANGES =.*") "CHANGES = \"\"\n")
(("TODO =.*") "TODO = \"\"\n"))
#t)))))
(inputs
(list portmidi alsa-lib))
(native-inputs
(list python-cython unzip))
(home-page "https://portmedia.sourceforge.net/portmidi/")
(synopsis "Python bindings to PortMidi")
`(#:tests? #f ;Tests are interactive and can be found in the
#:configure-flags ;pm_tests/ directory of the build tree.
(list "-DBUILD_PORTMIDI_TESTS=On")
#:phases (modify-phases %standard-phases
(add-after 'unpack 'fix-version
(lambda _
(substitute* "CMakeLists.txt"
(("2.0.3")
(version))))))))
(inputs (list alsa-lib))
(native-inputs (list unzip))
(home-page "https://github.com/PortMidi/")
(synopsis "Library for MIDI I/O")
(description
"This package provides Python bindings to the PortMidi library.")
"PortMidi is a library supporting real-time input and output of MIDI data
using a system-independent interface.")
(license license:expat)))
(define-public python-pyportmidi
(let ((commit "d9e5ee00b208b09618fa0d4a5bbce3c9c077b386")
(revision "0"))
(package
(name "python-pyportmidi")
(version (git-version "0.0.7" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/PortMidi/pm_python")
(commit commit)))
(sha256
(base32 "1jvp9na8d1hw46w9ybhkimbavfb3ysw7hp30cbk6dj40k5y5vgvz"))
(file-name (git-file-name name version))))
(build-system python-build-system)
(inputs (list portmidi-2 alsa-lib))
(native-inputs (list python-cython))
(home-page "https://github.com/PortMidi")
(synopsis "Python bindings to PortMidi")
(description
"This package provides Python bindings to the PortMidi library.")
(license license:expat))))
(define-public frescobaldi
(package
(name "frescobaldi")
@ -3080,32 +3106,39 @@ using a system-independent interface.")
(origin
(method url-fetch)
(uri (string-append
"https://github.com/wbsoft/frescobaldi/releases/download/v"
"https://github.com/frescobaldi/frescobaldi/releases/download/v"
version "/frescobaldi-" version ".tar.gz"))
(sha256
(base32 "1n60gfnf6x0l1bac088g9adzx0lskbl9knd4y1ynr3y0zcs0kfcz"))))
(build-system python-build-system)
(arguments
(list
#:tests? #f ;no tests included
#:phases
#~(modify-phases %standard-phases
(add-before 'build 'generate-translations
(lambda _
(invoke "make" "-C" "i18n")))
(add-before 'build 'generate-metadata
(lambda _
(invoke "make" "-C" "linux"))))))
(inputs
(list lilypond
poppler
portmidi
python-ly
python-poppler-qt5
python-pyportmidi
python-pyqt
python-sip
qpageview))
#:tests? #f ;no tests included
#:phases #~(modify-phases %standard-phases
(add-before 'build 'generate-translations
(lambda _
(invoke "make" "-C" "i18n")))
(add-before 'build 'generate-metadata
(lambda _
(invoke "make" "-C" "linux")))
(add-after 'install 'wrap-executable
(lambda _
;; Ensure that icons are found at runtime.
(wrap-program (string-append #$output
"/bin/frescobaldi")
`("QT_PLUGIN_PATH" prefix
,(list (getenv "QT_PLUGIN_PATH")))))))))
(inputs (list bash-minimal
lilypond
poppler
portmidi-2
python-ly
python-poppler-qt5
python-pyportmidi
python-pyqt
python-sip
qpageview
qtsvg-5))
(home-page "https://www.frescobaldi.org/")
(synopsis "LilyPond sheet music text editor")
(description
@ -5015,7 +5048,7 @@ includes LV2 plugins and a JACK standalone client.")
(define-public musescore
(package
(name "musescore")
(version "4.1.1")
(version "4.2.1")
(source
(origin
(method git-fetch)
@ -5024,7 +5057,7 @@ includes LV2 plugins and a JACK standalone client.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "12h26k9qnsq027gdpch579nchwrqva1ymwm2fj5xmlh0aayrwy4d"))
(base32 "0rc5ma1k0cjllfl86apbyj61sh0691lsmqnvqicyn0zi53z8w9v0"))
(modules '((guix build utils)))
(snippet
'(begin
@ -5157,7 +5190,7 @@ studio.")
(define-public gsequencer
(package
(name "gsequencer")
(version "6.1.3")
(version "6.5.2")
(source
(origin
(method git-fetch)
@ -5166,7 +5199,7 @@ studio.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "1h5zw9047qmhhc6n4ny11id1h1p8322wadl7p8j65bwrz8kbfx99"))))
(base32 "16rkwb60v7igixligkcm86l8l8vab1bhmwg8m7ihb051ryqixa3i"))))
(build-system glib-or-gtk-build-system)
(arguments
`(#:phases
@ -5252,7 +5285,7 @@ specification and header.")
(define-public rosegarden
(package
(name "rosegarden")
(version "23.06")
(version "23.12")
(source
(origin
(method url-fetch)
@ -5260,7 +5293,7 @@ specification and header.")
(version-major+minor version) "/"
"rosegarden-" version ".tar.xz"))
(sha256
(base32 "1k3j5p6lx3w6pbsh95xiyfj8g8ysmvd18v0wmx7kdb3vyj5mfd0z"))))
(base32 "0clkzrs931dypvqcn5hzx2v3bq9gc439g71phahgwkh4c1jfcmrz"))))
(build-system cmake-build-system)
(arguments
(list
@ -7214,22 +7247,27 @@ It is provided as an LV2 plugin and as a standalone Jack application.")
(uri (git-reference
(url "https://github.com/jackaudio/a2jmidid")
(commit version)))
(modules '((guix build utils)))
(snippet
;; Fix build for for riscv64-linux, same as:
;; https://github.com/jackaudio/a2jmidid/pull/18
'(substitute* "sigsegv.c"
(("!defined[(]__aarch64__[)]")
"!defined(__arch64__) && !defined(__riscv)")))
(sha256
(base32 "1x6rcl3f4nklnx4p5jln9a7fpj9y7agjxs9rw7cccmwnski7pnsq"))
(file-name (git-file-name name version))))
(arguments
`(#:tests? #f ; No tests.
#:phases
(modify-phases %standard-phases
(add-after 'install 'wrap-programs
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin/")))
(substitute* (string-append bin "a2j")
(("a2j_control") (string-append bin "a2j_control")))
(wrap-program (string-append bin "a2j_control")
`("PYTHONPATH" prefix (,(getenv "GUIX_PYTHONPATH"))))
#t))))))
(list #:tests? #f ; No tests.
#:phases
#~(modify-phases %standard-phases
(add-after 'install 'wrap-programs
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((bin (string-append #$output "/bin/")))
(substitute* (string-append bin "a2j")
(("a2j_control") (string-append bin "a2j_control")))
(wrap-program (string-append bin "a2j_control")
`("PYTHONPATH" prefix (,(getenv "GUIX_PYTHONPATH"))))))))))
(build-system meson-build-system)
(inputs
(list alsa-lib

246
gnu/packages/nx.scm 100644
View File

@ -0,0 +1,246 @@
;;; This file is part of GNU Guix.
;;; Copyright © 2024 Nicolas Debonnaire <nicolas.debonnaire@gmail.com>
;;; Copyright © 2024 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages nx)
#:use-module (guix build-system gnu)
#:use-module (guix download)
#:use-module (guix gexp)
#:use-module (guix git-download)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (gnu packages autotools)
#:use-module (gnu packages base)
#:use-module (gnu packages bash)
#:use-module (gnu packages commencement)
#:use-module (gnu packages cups)
#:use-module (gnu packages glib)
#:use-module (gnu packages gtk)
#:use-module (gnu packages image)
#:use-module (gnu packages man)
#:use-module (gnu packages onc-rpc)
#:use-module (gnu packages openldap)
#:use-module (gnu packages patchutils)
#:use-module (gnu packages perl)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages pulseaudio)
#:use-module (gnu packages python)
#:use-module (gnu packages qt)
#:use-module (gnu packages ssh)
#:use-module (gnu packages xdisorg)
#:use-module (gnu packages xml)
#:use-module (gnu packages xorg))
(define-public nx-libs
(package
(name "nx-libs")
(version "3.5.99.27")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/ArcticaProject/nx-libs")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0ykbza39ksycpyydaiwwbp7hkmdk96v7b36pn989k39lhfwnn8kz"))))
(build-system gnu-build-system)
(arguments
(list
#:tests? #f ;no test suite
;; The build randomly fails when run in parallel (see:
;; https://github.com/ArcticaProject/nx-libs/issues/1072).
#:parallel-build? #f
#:make-flags #~(let ((sh (search-input-file %build-inputs "bin/sh")))
(list (string-append "PREFIX=" #$output)
(string-append "ETCDIR_NX=" #$output "/etc")
(string-append "LOCAL_LDFLAGS=-Wl,"
"-rpath=" #$output "/lib,"
"-rpath=" #$output "/lib/nx/X11")
(string-append "IMAKE_DEFINES=-DUseTIRPC=1"
" -DBourneShell=" sh
" -DProjectRoot=" #$output
" -DDefaultUserPath="
#$output "/bin")
(string-append "CONFIG_SHELL=" sh)
(string-append "SHELL=" sh)
;; Autoreconf being run by Make, the generated
;; configure script shebangs thus haven't been
;; patched; workaround this by running explicitly
;; via the shell.
(string-append "CONFIGURE=" sh " ./configure "
"--prefix=" #$output)
"VERBOSE=1"))
#:phases #~(modify-phases %standard-phases
(delete 'configure)
(add-before 'build 'adjust-Makefile
(lambda _
;; It's best to source a script via its absolute path,
;; otherwise it's looked from PATH and fails for POSIX
;; shells, such as our Bash-provided 'sh' (see:
;; https://github.com/ArcticaProject/nx-libs/issues/1071).
(substitute* "Makefile"
(("\\. replace.sh")
". ./replace.sh"))))
(add-after 'install 'wrap-nxdialog
(lambda* (#:key inputs #:allow-other-keys)
(wrap-program (string-append #$output "/bin/nxdialog")
`("GUIX_PYTHONPATH" =
(,(getenv "GUIX_PYTHONPATH")))
;; Ensure GObject Introspection typelibs are found.
`("GI_TYPELIB_PATH" ":" =
(,(getenv "GI_TYPELIB_PATH")))))))))
(native-inputs
(list autoconf
automake
bash-minimal ;for wrap-program
font-util
gccmakedep
imake
libtool
perl
pkg-config
quilt
which))
(inputs
(list gtk+
libjpeg-turbo
libtirpc
libxcomposite
libxdamage
libxext
libxfont
libxinerama
libxml2
libxpm
libxrandr
libxtst
pixman
python-pygobject
python-wrapper
xkbcomp))
(propagated-inputs
(list libpng)) ;in Requires of nxcomp.pc
(synopsis "NX X11 protocol compression libraries")
(description "NX is a software suite which implements very efficient
compression of the X11 protocol. This increases performance when using X
applications over a network, especially a slow one. This package provides the
following libraries:
@table @code
@item NX_X11
NX's modified X Window System (X11) library
@item Xcomp
NX differential compression library for X11
@item Xcompshad
Session shadowing library
@end table
The following commands are also provided:
@table @command
@item nxagent
Agent providing NX transport of X sessions
@item nxproxy
The NX proxy (client) binary
@item nxdialog
Helper script
@end table")
(home-page "https://github.com/ArcticaProject/nx-libs")
(license license:gpl2)))
(define-public x2goclient
(package
(name "x2goclient")
(version "4.1.2.3")
(source
(origin
(method url-fetch)
(uri (string-append
"https://code.x2go.org/releases/source/x2goclient/x2goclient-"
version ".tar.gz"))
(sha256
(base32 "0g6aba8kpsixq4486a8mga945lp31y0mzwa2krs5qqiiip3v72xb"))))
(build-system gnu-build-system)
(arguments
(list
#:tests? #f ;no test suite
#:make-flags
#~(list (string-append "SHELL="
(search-input-file %build-inputs "bin/bash"))
"QT_VERSION=5"
"INSTALL_DIR=install -d -m 755"
"INSTALL_FILE=install -m 644"
"INSTALL_PROGRAM=install -m 755"
(string-append "PREFIX=" #$output)
(string-append "ETCDIR=" #$output "/etc"))
#:phases
#~(modify-phases %standard-phases
(delete 'configure)
(add-before 'build 'patch-paths
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "src/onmainwindow.cpp"
(("/usr/sbin/sshd")
(search-input-file inputs "sbin/sshd"))))))))
(native-inputs
(list man2html
pkg-config
qtbase-5
qttools-5))
(inputs
(list cups
libssh
libxpm
nx-libs
openldap
openssh
pulseaudio
qtbase-5
qtx11extras
qtsvg-5))
(synopsis "Remote desktop and application solution")
(description
"X2Go enables you to access a graphical desktop of a computer via
SSH (Secure Shell). This package provides the X2Go Client, which can connect
to the X2Go Server. Basic features of X2Go include:
@itemize
@item
Graphical remote desktop that works well over both low bandwidth and high
bandwidth connections
@item
The ability to disconnect and reconnect to a session, even from another
client
@item
Support for sound
@item
Support for as many simultaneous users as the computer's resources will
allow
@item
Traffic is securely tunneled over SSH
@item
File sharing from client to server
@item
Printer sharing from client to server
@item
Easily select from multiple desktop environments (e.g., MATE, GNOME, KDE)
@item
Remote support possible via desktop sharing
@item
The ability to access single applications by specifying the name of the
desired executable in the client configuration or selecting one of the
pre-defined common applications.
@end itemize")
(home-page "https://wiki.x2go.org/doku.php")
(license license:gpl2)))

6
gnu/packages/ocr.scm
View File

@ -4,7 +4,7 @@
;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Alex Vong <alexvong1995@gmail.com>
;;; Copyright © 2021, 2024 Andy Tai <atai@atai.org>
;;; Copyright © 2021, 2022 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2021, 2022, 2024 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;;
;;; This file is part of GNU Guix.
@ -210,7 +210,7 @@ default. To add support for more languages, the
(define-public gimagereader
(package
(name "gimagereader")
(version "3.4.1")
(version "3.4.2")
(source
(origin
(method url-fetch)
@ -219,7 +219,7 @@ default. To add support for more languages, the
"/download/v" version "/"
"gimagereader-" version ".tar.xz"))
(sha256
(base32 "1972bvnk2bkgbh70vy2prcmdzf4wlna862p2vja9yjxi2c0scmwc"))))
(base32 "0r52j5q2d0mvzw6qkds6vrapcqhdgyj2jvp7bh8w9zw6gpjsyk0q"))))
(build-system cmake-build-system)
(arguments
(list

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

@ -176,8 +176,8 @@
;; Note: the 'update-guix-package.scm' script expects this definition to
;; start precisely like this.
(let ((version "1.4.0")
(commit "aeb494322ca9dec4a4d66a7d063239c8536bd538")
(revision 16))
(commit "4c94b9e983bc51d9504655f1e7727c4f6d14b6b7")
(revision 18))
(package
(name "guix")
@ -193,7 +193,7 @@
(commit commit)))
(sha256
(base32
"1xl769lkpvkjpvq4vwkxm4dp77sr9finvr6izvf4kvyi6s3hbsys"))
"19lqlfafs5mrnciw4jz4iccx5zzhj4pyb20bz6cdqcqbf9nmkfp1"))
(file-name (string-append "guix-" version "-checkout"))))
(build-system gnu-build-system)
(arguments
@ -991,8 +991,8 @@ transactions from C or Python.")
(license license:gpl2+)))
(define-public bffe
(let ((commit "006b96a9ff41f5d8e639f93f81eeab87d204bd89")
(revision "4"))
(let ((commit "bdfaab91e82d7d43c35405da3b18c46cde8096de")
(revision "5"))
(package
(name "bffe")
(version (git-version "0" revision commit))
@ -1003,7 +1003,7 @@ transactions from C or Python.")
(commit commit)))
(sha256
(base32
"1ai3dzwp5ddn5i7xzvg0qcj0nbip03jx0d3vhvxqr1vnlr71rzvh"))
"0qwnd49apwdx8wrfms2spii1kdg5ashf4591kyfyr89070jjmpa7"))
(file-name (string-append name "-" version "-checkout"))))
(build-system gnu-build-system)
(native-inputs
@ -1530,8 +1530,8 @@ environments.")
"0k9zkdyyzir3fvlbcfcqy17k28b51i20rpbjwlx2i1mwd2pw9cxc")))))))
(define-public guix-build-coordinator
(let ((commit "1c80525d21f183ed2556def6fcd021f6ea9a88a4")
(revision "98"))
(let ((commit "14e18eed98d1836662d8787d08f7a37cf8c2f69d")
(revision "100"))
(package
(name "guix-build-coordinator")
(version (git-version "0" revision commit))
@ -1542,7 +1542,7 @@ environments.")
(commit commit)))
(sha256
(base32
"0krw4v04ynp8v12zgc87cx6d3rldr13b48kix9rzq4z17x7f39yc"))
"1vv1l6y80ymqi7qz70bfq4is4y1xh21jm4d4gapn63931ac4fiij"))
(file-name (string-append name "-" version "-checkout"))))
(build-system gnu-build-system)
(arguments
@ -1779,8 +1779,8 @@ in an isolated environment, in separate namespaces.")
(license license:gpl3+)))
(define-public nar-herder
(let ((commit "5ccd6cbbdf5fc41e43a491d3414c1663e1fba64d")
(revision "23"))
(let ((commit "ccef906e8ee1f370850734f1e66fcc164ffd5dd7")
(revision "24"))
(package
(name "nar-herder")
(version (git-version "0" revision commit))
@ -1791,7 +1791,7 @@ in an isolated environment, in separate namespaces.")
(commit commit)))
(sha256
(base32
"1lid5k4wgghl9lzhazx1c473qv18yxp0xxrvj04b33pdvxnaawl8"))
"1aw7maa1a5f1mjb9akf6c4wg40p0cz85lpxi3pv4wdq2k3zvbgky"))
(file-name (string-append name "-" version "-checkout"))))
(build-system gnu-build-system)
(arguments

12
gnu/packages/password-utils.scm
View File

@ -12,7 +12,7 @@
;;; Copyright © 2017–2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017 Jelle Licht <jlicht@fsfe.org>
;;; Copyright © 2017, 2019 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2017, 2020-2022 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2017, 2020-2022, 2024 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2017 Manolis Fragkiskos Ragkousis <manolis837@gmail.com>
;;; Copyright © 2017 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2018, 2022 Marius Bakke <marius@gnu.org>
@ -149,7 +149,7 @@ human.")
(define-public keepassxc
(package
(name "keepassxc")
(version "2.7.6")
(version "2.7.7")
(source
(origin
(method url-fetch)
@ -157,7 +157,7 @@ human.")
"/releases/download/" version "/keepassxc-"
version "-src.tar.xz"))
(sha256
(base32 "0w6nh2lnzfqcxasfsppmh4q309p1flzgfiv25hahzsd8kx879055"))))
(base32 "0rzfh8xdsd1r0xb7yb0h2zyzwhbsp7si8c0haaqgzcz4k2p4bz2q"))))
(build-system qt-build-system)
(arguments
(list
@ -425,7 +425,7 @@ applications, there is xclip integration." )
(define-public ssh-to-age
(package
(name "ssh-to-age")
(version "1.1.2")
(version "1.1.7")
(source
(origin
(method git-fetch)
@ -434,7 +434,7 @@ applications, there is xclip integration." )
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "09rhga9iqmyyq8pkprydy8y15qhzqvbpgzvs681rcyllf8szrj73"))))
(base32 "134gpbalyll238wvj9ci0rascgm4csayz863ci99cy5qq8266wrl"))))
(build-system go-build-system)
(arguments
'(#:import-path "github.com/Mic92/ssh-to-age/cmd/ssh-to-age"
@ -443,7 +443,7 @@ applications, there is xclip integration." )
go-filippo-io-edwards25519
go-filippo-io-age))
(home-page "https://github.com/Mic92/ssh-to-age")
(synopsis "Convert SSH @code{ed25519} keys to @code{age} keys.")
(synopsis "Convert SSH @code{ed25519} keys to @code{age} keys")
(description "This package provides a simple command-line tool to
convert SSH @code{ed25519} keys to @code{age} keys.")
(license license:expat)))

14
gnu/packages/patches/clang-17.0-link-dsymutil-latomic.patch 100644
View File

@ -0,0 +1,14 @@
This was mistakenly added to llvm-17 while a patch was being rebased.
---
diff --git a/llvm/tools/dsymutil/CMakeLists.txt b/llvm/tools/dsymutil/CMakeLists.txt
index 3cb88a50ce25..8699d0bb1d6b 100644
--- a/llvm/tools/dsymutil/CMakeLists.txt
+++ b/llvm/tools/dsymutil/CMakeLists.txt
@@ -42,4 +42,4 @@ if(APPLE)
target_link_libraries(dsymutil PRIVATE "-framework CoreFoundation")
endif(APPLE)
-# target_link_libraries(dsymutil PRIVATE ${LLVM_ATOMIC_LIB})
+target_link_libraries(dsymutil PRIVATE ${LLVM_ATOMIC_LIB})

81
gnu/packages/patches/libextractor-tidy-support.patch 100644
View File

@ -0,0 +1,81 @@
Upstream status: submitted to bug-libextractor@gnu.org.
From 1fc6daaeaf829fb941a176831c011888a73c43b9 Mon Sep 17 00:00:00 2001
From: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Date: Mon, 11 Mar 2024 09:36:26 -0400
Subject: [PATCH] html_extractor: Add support for modern tidy-html.
* configure.ac: Use PKG_PROG_PKG_CONFIG to initialize pkg-config detection.
<tidy>: Check for library via pkg-config.
* src/plugins/html_extractor.c: Standardize tidy include file names.
---
configure.ac | 28 +++++++++-------------------
src/plugins/html_extractor.c | 4 ++--
2 files changed, 11 insertions(+), 21 deletions(-)
diff --git a/configure.ac b/configure.ac
index d17ff39..e89d70c 100644
--- a/configure.ac
+++ b/configure.ac
@@ -176,6 +176,8 @@ AS_CASE(["$target_os"],
AM_ICONV
+PKG_PROG_PKG_CONFIG()
+
# We define the paths here, because MinGW/GCC expands paths
# passed through the command line ("-DLOCALEDIR=..."). This would
# lead to hard-coded paths ("C:\mingw\mingw\bin...") that do
@@ -424,25 +426,13 @@ AC_CHECK_LIB(magic, magic_open,
AM_CONDITIONAL(HAVE_MAGIC, false))],
AM_CONDITIONAL(HAVE_MAGIC, false))
-AC_MSG_CHECKING(for tidyNodeGetValue -ltidy)
-AC_LANG_PUSH(C++)
-SAVED_LIBS=$LIBS
-LIBS="$LIBS -ltidy"
-AC_LINK_IFELSE(
- [AC_LANG_PROGRAM([[#include <tidy/tidy.h>]],
- [[ Bool b = tidyNodeGetValue (NULL, NULL, NULL); ]])],
- [AC_MSG_RESULT(yes)
- AM_CONDITIONAL(HAVE_TIDY, true)
- AC_DEFINE(HAVE_TIDY,1,[Have tidyNodeGetValue in libtidy])],
- [AC_MSG_RESULT(no)
- AM_CONDITIONAL(HAVE_TIDY, false)])
-LIBS=$SAVED_LIBS
-AC_LANG_POP(C++)
-
-# restore LIBS
-LIBS=$LIBSOLD
-
-
+dnl tidyNodeGetValue was already available in 5.0.0, released in 2015.
+PKG_CHECK_MODULES([TIDY], [tidy >= 5.0.0],
+ [AC_DEFINE(HAVE_TIDY, 1, [Have tidy])
+ AM_CONDITIONAL(HAVE_TIDY, true)],
+ [AM_CONDITIONAL(HAVE_TIDY, false)])
+CFLAGS="$CFLAGS $TIDY_CFLAGS"
+LIBS="$LIBS $TIDY_LIBS"
# should 'make check' run tests?
AC_MSG_CHECKING(whether to run tests)
diff --git a/src/plugins/html_extractor.c b/src/plugins/html_extractor.c
index 5ebf97b..88100d3 100644
--- a/src/plugins/html_extractor.c
+++ b/src/plugins/html_extractor.c
@@ -26,8 +26,8 @@
#include "platform.h"
#include "extractor.h"
#include <magic.h>
-#include <tidy/tidy.h>
-#include <tidy/tidybuffio.h>
+#include <tidy.h>
+#include <tidybuffio.h>
/**
* Mapping of HTML META names to LE types.
base-commit: a75f40b64b5868967c95ea214e8eaac4f7088b23
--
2.41.0

334
gnu/packages/patches/python-3.12-fix-tests.patch 100644
View File

@ -0,0 +1,334 @@
From f0698133e7d6c353a3e6ae0fc62e57ba558a9bc0 Mon Sep 17 00:00:00 2001
From: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Date: Wed, 28 Oct 2020 22:55:05 -0400
Subject: [PATCH] Skip problematic Python 3 tests in Guix.
A subset of the hunks in this patch is tracked upstream at
https://bugs.python.org/issue38845, which was contributed by Tanguy Le
Carrour <tanguy@bioneland.org>.
diff --git a/Lib/test/_test_multiprocessing.py b/Lib/test/_test_multiprocessing.py
index e42c7ab4bd..8087c84dab 100644
--- a/Lib/test/_test_multiprocessing.py
+++ b/Lib/test/_test_multiprocessing.py
@@ -1695,6 +1695,7 @@ def _test_wait_result(cls, c, pid):
if pid is not None:
os.kill(pid, signal.SIGINT)
+ @unittest.skipIf(True, "This fails for unknown reasons on Guix")
def test_wait_result(self):
if isinstance(self, ProcessesMixin) and sys.platform != 'win32':
pid = os.getpid()
@@ -4150,6 +4151,7 @@ def test_shared_memory_across_processes(self):
sms.close()
@unittest.skipIf(os.name != "posix", "not feasible in non-posix platforms")
+ @unittest.skipUnless(sys.stdin.isatty(), "KeyboardInterrupts require a TTY device")
def test_shared_memory_SharedMemoryServer_ignores_sigint(self):
# bpo-36368: protect SharedMemoryManager server process from
# KeyboardInterrupt signals.
diff --git a/Lib/test/test_asyncio/test_base_events.py b/Lib/test/test_asyncio/test_base_events.py
index 85c8152d49..e35cfffe84 100644
--- a/Lib/test/test_asyncio/test_base_events.py
+++ b/Lib/test/test_asyncio/test_base_events.py
@@ -1377,6 +1377,8 @@ def test_create_connection_no_inet_pton(self, m_socket):
self._test_create_connection_ip_addr(m_socket, False)
@patch_socket
+ @unittest.skipUnless(support.is_resource_enabled('network'),
+ 'network is not enabled')
def test_create_connection_service_name(self, m_socket):
m_socket.getaddrinfo = socket.getaddrinfo
sock = m_socket.socket.return_value
diff --git a/Lib/test/test_ctypes/test_find.py b/Lib/test/test_ctypes/test_find.py
index a41e94971d..1291af3057 100644
--- a/Lib/test/test_ctypes/test_find.py
+++ b/Lib/test/test_ctypes/test_find.py
@@ -117,6 +117,7 @@ def test_find_library_with_gcc(self):
with unittest.mock.patch("ctypes.util._findSoname_ldconfig", lambda *args: None):
self.assertNotEqual(find_library('c'), None)
+ @unittest.skipIf(True, 'Fails on Guix.')
def test_find_library_with_ld(self):
with unittest.mock.patch("ctypes.util._findSoname_ldconfig", lambda *args: None), \
unittest.mock.patch("ctypes.util._findLib_gcc", lambda *args: None):
diff --git a/Lib/test/test_generators.py b/Lib/test/test_generators.py
index 1ee9958445..ab6b41befe 100644
--- a/Lib/test/test_generators.py
+++ b/Lib/test/test_generators.py
@@ -34,6 +34,7 @@ def generator2(self):
else:
return "FAILED"
+ @unittest.skipIf(True, 'Keyboard interrupts do not work in the Guix build environment')
def test_raise_and_yield_from(self):
gen = self.generator1()
gen.send(None)
diff --git a/Lib/test/test_pathlib.py b/Lib/test/test_pathlib.py
index ec105ae1a0..ae4c5b672e 100644
--- a/Lib/test/test_pathlib.py
+++ b/Lib/test/test_pathlib.py
@@ -3069,6 +3069,7 @@ def test_rglob(self):
'pwd module does not expose getpwall()')
@unittest.skipIf(sys.platform == "vxworks",
"no home directory on VxWorks")
+ @unittest.skipIf(True, "Guix builder home is '/' which causes trouble for these tests")
def test_expanduser(self):
P = self.cls
import_helper.import_module('pwd')
diff --git a/Lib/test/test_pdb.py b/Lib/test/test_pdb.py
index 51b844262e..004d3133cf 100644
--- a/Lib/test/test_pdb.py
+++ b/Lib/test/test_pdb.py
@@ -1580,6 +1580,7 @@ def test_pdb_next_command_subiterator():
(Pdb) continue
"""
+@unittest.skipIf(True, 'Fails on Guix… but skipIf not taken into account?!')
def test_pdb_issue_20766():
"""Test for reference leaks when the SIGINT handler is set.
@@ -1598,11 +1599,11 @@ def test_pdb_issue_20766():
> <doctest test.test_pdb.test_pdb_issue_20766[0]>(6)test_function()
-> print('pdb %d: %s' % (i, sess._previous_sigint_handler))
(Pdb) continue
- pdb 1: <built-in function default_int_handler>
+ pdb 1: 1
> <doctest test.test_pdb.test_pdb_issue_20766[0]>(6)test_function()
-> print('pdb %d: %s' % (i, sess._previous_sigint_handler))
(Pdb) continue
- pdb 2: <built-in function default_int_handler>
+ pdb 2: 1
"""
def test_pdb_issue_43318():
diff --git a/Lib/test/test_regrtest.py b/Lib/test/test_regrtest.py
index 2ab6f6a986..8cf6b4d1c8 100644
--- a/Lib/test/test_regrtest.py
+++ b/Lib/test/test_regrtest.py
@@ -1049,6 +1049,7 @@ def test_fromfile(self):
output = self.run_tests('--fromfile', filename)
self.check_executed_tests(output, tests, stats=stats)
+ @unittest.skipIf(True, 'Keyboard interrupts do not work in the Guix build environment.')
def test_interrupted(self):
code = TEST_INTERRUPTED
test = self.create_test('sigint', code=code)
@@ -1066,6 +1067,7 @@ def test_slowest(self):
% (self.TESTNAME_REGEX, len(tests)))
self.check_line(output, regex)
+ @unittest.skipIf(True, 'Keyboard interrupts do not work in the Guix build environment.')
def test_slowest_interrupted(self):
# Issue #25373: test --slowest with an interrupted test
code = TEST_INTERRUPTED
diff --git a/Lib/test/test_resource.py b/Lib/test/test_resource.py
index 317e7ca8f8..7f272daf24 100644
--- a/Lib/test/test_resource.py
+++ b/Lib/test/test_resource.py
@@ -151,6 +151,7 @@ def test_freebsd_contants(self):
@unittest.skipUnless(hasattr(resource, 'prlimit'), 'no prlimit')
@support.requires_linux_version(2, 6, 36)
+ @unittest.skipIf(True, "Bug: the PermissionError is not raised")
def test_prlimit(self):
self.assertRaises(TypeError, resource.prlimit)
self.assertRaises(ProcessLookupError, resource.prlimit,
diff --git a/Lib/test/test_shutil.py b/Lib/test/test_shutil.py
index bf60f37934..5e3a96380a 100644
--- a/Lib/test/test_shutil.py
+++ b/Lib/test/test_shutil.py
@@ -1743,6 +1743,7 @@ def test_make_archive(self):
base_name = os.path.join(tmpdir, 'archive')
self.assertRaises(ValueError, make_archive, base_name, 'xxx')
+ @unittest.skipIf(True, "The Guix build container has no root user")
@support.requires_zlib()
def test_make_archive_owner_group(self):
# testing make_archive with owner and group, with various combinations
@@ -1771,6 +1772,7 @@ def test_make_archive_owner_group(self):
self.assertTrue(os.path.isfile(res))
+ @unittest.skipIf(True, "The Guix build container has no root user")
@support.requires_zlib()
@unittest.skipUnless(UID_GID_SUPPORT, "Requires grp and pwd support")
def test_tarfile_root_owner(self):
diff --git a/Lib/test/test_signal.py b/Lib/test/test_signal.py
index 637a0ca3b3..2fb804e340 100644
--- a/Lib/test/test_signal.py
+++ b/Lib/test/test_signal.py
@@ -160,6 +160,7 @@ def test_valid_signals(self):
self.assertLess(signum, signal.NSIG)
@unittest.skipUnless(sys.executable, "sys.executable required.")
+ @unittest.skipUnless(sys.stdin.isatty(), "KeyboardInterrupts require a TTY device")
@support.requires_subprocess()
def test_keyboard_interrupt_exit_code(self):
"""KeyboardInterrupt triggers exit via SIGINT."""
@@ -211,6 +212,7 @@ def test_issue9324(self):
signal.signal(7, handler)
@unittest.skipUnless(sys.executable, "sys.executable required.")
+ @unittest.skipUnless(sys.stdin.isatty(), "KeyboardInterrupts require a TTY device")
@support.requires_subprocess()
def test_keyboard_interrupt_exit_code(self):
"""KeyboardInterrupt triggers an exit using STATUS_CONTROL_C_EXIT."""
@@ -1407,6 +1409,7 @@ def cycle_handlers():
class RaiseSignalTest(unittest.TestCase):
+ @unittest.skipUnless(sys.stdin.isatty(), "KeyboardInterrupts require a TTY device")
def test_sigint(self):
with self.assertRaises(KeyboardInterrupt):
signal.raise_signal(signal.SIGINT)
@@ -1452,6 +1455,7 @@ def __del__(self):
class PidfdSignalTest(unittest.TestCase):
+ @unittest.skipUnless(sys.stdin.isatty(), "KeyboardInterrupts require a TTY device")
@unittest.skipUnless(
hasattr(signal, "pidfd_send_signal"),
"pidfd support not built in",
diff --git a/Lib/test/test_socket.py b/Lib/test/test_socket.py
index 4eb5af99d6..9c7b8f6dbc 100644
--- a/Lib/test/test_socket.py
+++ b/Lib/test/test_socket.py
@@ -1016,6 +1016,8 @@ def testHostnameRes(self):
if not fqhn in all_host_names:
self.fail("Error testing host resolution mechanisms. (fqdn: %s, all: %s)" % (fqhn, repr(all_host_names)))
+ @unittest.skipUnless(support.is_resource_enabled('network'),
+ 'network is not enabled')
def test_host_resolution(self):
for addr in [socket_helper.HOSTv4, '10.0.0.1', '255.255.255.255']:
self.assertEqual(socket.gethostbyname(addr), addr)
@@ -1161,6 +1163,8 @@ def testNtoHErrors(self):
self.assertRaises(OverflowError, socket.ntohl, k)
self.assertRaises(OverflowError, socket.htonl, k)
+ @unittest.skipUnless(os.path.exists("/etc/services"),
+ "getservbyname uses /etc/services, which is not in the chroot")
def testGetServBy(self):
eq = self.assertEqual
# Find one service that exists, then check all the related interfaces.
@@ -1521,6 +1525,8 @@ def test_sio_loopback_fast_path(self):
raise
self.assertRaises(TypeError, s.ioctl, socket.SIO_LOOPBACK_FAST_PATH, None)
+ @unittest.skipUnless(os.path.exists("/etc/gai.conf"),
+ "getaddrinfo() will fail")
def testGetaddrinfo(self):
try:
socket.getaddrinfo('localhost', 80)
@@ -1653,6 +1659,8 @@ def test_getnameinfo(self):
# only IP addresses are allowed
self.assertRaises(OSError, socket.getnameinfo, ('mail.python.org',0), 0)
+ @unittest.skipUnless(os.path.exists("/etc/gai.conf"),
+ "getaddrinfo() will fail")
@unittest.skipUnless(support.is_resource_enabled('network'),
'network is not enabled')
def test_idna(self):
diff --git a/Lib/test/test_spwd.py b/Lib/test/test_spwd.py
index 50766c2548..0c7eb7a83a 100644
--- a/Lib/test/test_spwd.py
+++ b/Lib/test/test_spwd.py
@@ -9,8 +9,7 @@
spwd = import_helper.import_module('spwd')
-@unittest.skipUnless(hasattr(os, 'geteuid') and os.geteuid() == 0,
- 'root privileges required')
+@unittest.skipUnless(os.path.exists("/etc/shadow"), 'spwd tests require /etc/shadow')
class TestSpwdRoot(unittest.TestCase):
def test_getspall(self):
@@ -60,8 +59,7 @@ def test_getspnam(self):
self.assertRaises(TypeError, spwd.getspnam, bytes_name)
-@unittest.skipUnless(hasattr(os, 'geteuid') and os.geteuid() != 0,
- 'non-root user required')
+@unittest.skipUnless(os.path.exists("/etc/shadow"), 'spwd tests require /etc/shadow')
class TestSpwdNonRoot(unittest.TestCase):
def test_getspnam_exception(self):
diff --git a/Lib/test/test_tarfile.py b/Lib/test/test_tarfile.py
index 71489ea493..33351919fe 100644
--- a/Lib/test/test_tarfile.py
+++ b/Lib/test/test_tarfile.py
@@ -2911,9 +2911,12 @@ def root_is_uid_gid_0():
import pwd, grp
except ImportError:
return False
- if pwd.getpwuid(0)[0] != 'root':
- return False
- if grp.getgrgid(0)[0] != 'root':
+ try:
+ if pwd.getpwuid(0)[0] != 'root':
+ return False
+ if grp.getgrgid(0)[0] != 'root':
+ return False
+ except KeyError:
return False
return True
diff --git a/Lib/test/test_threading.py b/Lib/test/test_threading.py
index 00d9e591c7..2515603715 100644
--- a/Lib/test/test_threading.py
+++ b/Lib/test/test_threading.py
@@ -1962,6 +1962,7 @@ def check_interrupt_main_noerror(self, signum):
# Restore original handler
signal.signal(signum, handler)
+ @unittest.skipIf(True, 'Keyboard interrupts do not work in the Guix build container.')
def test_interrupt_main_subthread(self):
# Calling start_new_thread with a function that executes interrupt_main
# should raise KeyboardInterrupt upon completion.
@@ -1973,6 +1974,8 @@ def call_interrupt():
t.join()
t.join()
+
+ @unittest.skipIf(True, 'Keyboard interrupts do not work in the Guix build container.')
def test_interrupt_main_mainthread(self):
# Make sure that if interrupt_main is called in main thread that
# KeyboardInterrupt is raised instantly.
diff --git a/Lib/test/test_tools/test_freeze.py b/Lib/test/test_tools/test_freeze.py
index 0e7ed67de7..6539a2983b 100644
--- a/Lib/test/test_tools/test_freeze.py
+++ b/Lib/test/test_tools/test_freeze.py
@@ -23,6 +23,7 @@
'test is too slow with PGO')
class TestFreeze(unittest.TestCase):
+ @unittest.skipIf(True, 'Fails on Guix.')
@support.requires_resource('cpu') # Building Python is slow
def test_freeze_simple_script(self):
script = textwrap.dedent("""
diff --git a/Lib/test/test_unicodedata.py b/Lib/test/test_unicodedata.py
index 515c3840cb..a96dfad0fe 100644
--- a/Lib/test/test_unicodedata.py
+++ b/Lib/test/test_unicodedata.py
@@ -342,6 +342,7 @@ def test_linebreak_7643(self):
self.assertEqual(len(lines), 1,
r"\u%.4x should not be a linebreak" % i)
+@requires_resource('network')
class NormalizationTest(unittest.TestCase):
@staticmethod
def check_version(testfile):
diff --git a/Tools/scripts/run_tests.py b/Tools/scripts/run_tests.py
index 445a34ae3e..8f750537c3 100644
--- a/Tools/scripts/run_tests.py
+++ b/Tools/scripts/run_tests.py
@@ -69,7 +69,7 @@ def main(regrtest_args):
else:
args.extend(['-j', '0']) # Use all CPU cores
if not any(is_resource_use_flag(arg) for arg in regrtest_args):
- args.extend(['-u', 'all,-largefile,-audio,-gui'])
+ args.extend(['-u', 'all,-largefile,-audio,-gui,-network'])
if cross_compile and hostrunner:
# If HOSTRUNNER is set and -p/--python option is not given, then

116
gnu/packages/patches/python-poppler-qt5-fix-build.patch
View File

@ -1,116 +0,0 @@
Patch taken from the upstream repository
https://github.com/frescobaldi/python-poppler-qt5/issues/43
From 92e5962ec3751ab051d0b655fd61afc7a1cf709e Mon Sep 17 00:00:00 2001
From: Ben Greiner <code@bnavigator.de>
Date: Thu, 4 Mar 2021 17:02:51 +0100
Subject: [PATCH] map type QVector< QPair<TYPE, TYPE> > for
FormFieldChoice::choicesWithExportValues() (#45)
---
types.sip | 93 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 93 insertions(+)
diff --git a/types.sip b/types.sip
index 239b8c9..81cb283 100644
--- a/types.sip
+++ b/types.sip
@@ -331,5 +331,98 @@ template <TYPE>
};
+/**
+ * Convert QVector< QPair<TYPE, TYPE> >
+ * from and to a Python list of a 2-item tuple
+ */
+
+template<TYPE>
+%MappedType QVector< QPair<TYPE, TYPE> >
+{
+%TypeHeaderCode
+#include <qvector.h>
+#include <qpair.h>
+%End
+
+%ConvertFromTypeCode
+ // Create the list.
+ PyObject *l;
+
+ if ((l = PyList_New(sipCpp->size())) == NULL)
+ return NULL;
+
+ // Set the list elements.
+ for (int i = 0; i < sipCpp->size(); ++i)
+ {
+ QPair<TYPE, TYPE>* p = new QPair<TYPE, TYPE>(sipCpp->at(i));
+ PyObject *ptuple = PyTuple_New(2);
+ PyObject *pfirst;
+ PyObject *psecond;
+
+ TYPE *sfirst = new TYPE(p->first);
+ if ((pfirst = sipConvertFromType(sfirst, sipType_TYPE, sipTransferObj)) == NULL)
+ {
+ Py_DECREF(l);
+ Py_DECREF(ptuple);
+ return NULL;
+ }
+ PyTuple_SET_ITEM(ptuple, 0, pfirst);
+
+ TYPE *ssecond = new TYPE(p->second);
+ if ((psecond = sipConvertFromType(ssecond, sipType_TYPE, sipTransferObj)) == NULL)
+ {
+ Py_DECREF(l);
+ Py_DECREF(ptuple);
+ Py_DECREF(pfirst);
+ return NULL;
+ }
+ PyTuple_SET_ITEM(ptuple, 1, psecond);
+
+ PyList_SET_ITEM(l, i, ptuple);
+ }
+
+ return l;
+%End
+
+%ConvertToTypeCode
+ const sipTypeDef* qpair_type = sipFindType("QPair<TYPE, TYPE>");
+
+ // Check the type if that is all that is required.
+ if (sipIsErr == NULL)
+ {
+ if (!PySequence_Check(sipPy))
+ return 0;
+
+ for (int i = 0; i < PySequence_Size(sipPy); ++i)
+ if (!sipCanConvertToType(PySequence_ITEM(sipPy, i), qpair_type, SIP_NOT_NONE))
+ return 0;
+
+ return 1;
+ }
+
+
+ QVector< QPair<TYPE, TYPE> > *qv = new QVector< QPair<TYPE, TYPE> >;
+
+ for (int i = 0; i < PySequence_Size(sipPy); ++i)
+ {
+ int state;
+ QPair<TYPE, TYPE> * p = reinterpret_cast< QPair<TYPE, TYPE> * >(sipConvertToType(PySequence_ITEM(sipPy, i), qpair_type, sipTransferObj, SIP_NOT_NONE, &state, sipIsErr));
+
+ if (*sipIsErr)
+ {
+ sipReleaseType(p, qpair_type, state);
+ delete qv;
+ return 0;
+ }
+ qv->append(*p);
+ sipReleaseType(p, qpair_type, state);
+ }
+
+ *sipCppPtr = qv;
+ return sipGetState(sipTransferObj);
+%End
+
+};
+
/* kate: indent-width 4; space-indent on; hl c++; indent-mode cstyle; */

37
gnu/packages/patches/qemu-build-info-manual.patch
View File

@ -13,50 +13,33 @@ readers.
Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
diff --git a/docs/meson.build b/docs/meson.build
index 9040f860ae..2ae7886fcb 100644
--- a/docs/meson.build
+++ b/docs/meson.build
@@ -92,4 +92,25 @@ if build_docs
@@ -98,4 +98,26 @@ if build_docs
alias_target('sphinxdocs', sphinxdocs)
alias_target('html', sphinxdocs)
alias_target('man', sphinxmans)
+
+ # Generate a Texinfo version of the QEMU manual.
+ # Add a target to build and install a Texinfo version of the QEMU
+ # manual, if 'makeinfo' is available.
+ makeinfo = find_program(['texi2any', 'makeinfo'])
+ if makeinfo.found()
+ sphinxtexi = custom_target(
+ 'QEMU manual generated texinfo source',
+ output: ['QEMU.texi', 'sphinxtexi.stamp'],
+ 'qemu.texi',
+ output: ['qemu.texi', 'sphinxtexi.stamp'],
+ depfile: 'sphinxtexi.d',
+ command: [SPHINX_ARGS, '-Ddepfile=@DEPFILE@',
+ '-Ddepfile_stamp=@OUTPUT1@', '-b', 'texinfo',
+ meson.current_source_dir(), meson.current_build_dir()])
+ '-d', private_dir, input_dir, meson.current_build_dir()])
+ sphinxinfo = custom_target(
+ 'QEMU info manual',
+ 'qemu.info',
+ input: sphinxtexi,
+ output: 'QEMU.info',
+ output: 'qemu.info',
+ install: true,
+ install_dir: get_option('infodir'),
+ command: [makeinfo, '--no-split', '@INPUT0@', '--output=@OUTPUT@'])
+ command: [makeinfo, '--no-split', '--output=@OUTPUT@', '@INPUT0@'])
+ alias_target('texi', sphinxtexi)
+ alias_target('info', sphinxinfo)
+ endif
endif
diff --git a/meson.build b/meson.build
--- a/meson.build
+++ b/meson.build
@@ -37,6 +37,7 @@ endif
qemu_confdir = get_option('sysconfdir') / get_option('qemu_suffix')
qemu_datadir = get_option('datadir') / get_option('qemu_suffix')
qemu_docdir = get_option('docdir') / get_option('qemu_suffix')
+qemu_infodir = get_option('infodir') / get_option('qemu_suffix')
qemu_moddir = get_option('libdir') / get_option('qemu_suffix')
qemu_desktopdir = get_option('datadir') / 'applications'
@@ -3698,6 +3699,7 @@ else
summary_info += {'local state directory': 'queried at runtime'}
endif
summary_info += {'Doc directory': get_option('prefix') / get_option('docdir')}
+summary_info += {'Info directory': get_option('prefix') / get_option('infodir')}
summary_info += {'Build directory': meson.current_build_dir()}
summary_info += {'Source path': meson.current_source_dir()}
summary_info += {'GIT submodules': config_host['GIT_SUBMODULES']}

36
gnu/packages/patches/qemu-disable-some-qtests-tests.patch → gnu/packages/patches/qemu-disable-bios-tables-test.patch
View File

@ -1,20 +1,18 @@
Disable the qtest-aarch64/migration-test, which sometimes fail
non-deterministically (see:
https://gitlab.com/qemu-project/qemu/-/issues/1230).
The bios-tables-test may fail; disable it (see: https://gitlab.com/qemu-project/qemu/-/issues/1098)
Also disable the bios-tables-test, which may fail on older machines (see:
https://gitlab.com/qemu-project/qemu/-/issues/1098).
--- qemu-8.1.0/tests/qtest/meson.build.old 2023-08-30 11:48:27.871146249 -0400
+++ qemu-8.1.0/tests/qtest/meson.build 2023-08-30 13:53:25.994084948 -0400
@@ -1,6 +1,5 @@
diff --git a/tests/qtest/meson.build b/tests/qtest/meson.build
index f096cf3ecd..82f6e1ffeb 100644
--- a/tests/qtest/meson.build
+++ b/tests/qtest/meson.build
@@ -1,7 +1,6 @@
slow_qtests = {
'ahci-test' : 60,
'aspeed_smc-test': 360,
- 'bios-tables-test' : 120,
'boot-serial-test' : 60,
'migration-test' : 150,
'npcm7xx_pwm-test': 150,
@@ -81,9 +80,6 @@
@@ -82,9 +81,6 @@ qtests_i386 = \
config_all_devices.has_key('CONFIG_Q35') and \
config_all_devices.has_key('CONFIG_VIRTIO_PCI') and \
slirp.found() ? ['virtio-net-failover'] : []) + \
@ -24,27 +22,17 @@ https://gitlab.com/qemu-project/qemu/-/issues/1098).
qtests_pci + \
qtests_cxl + \
['fdc-test',
@@ -212,7 +208,6 @@
@@ -213,7 +209,6 @@ qtests_arm = \
# TODO: once aarch64 TCG is fixed on ARM 32 bit host, make bios-tables-test unconditional
qtests_aarch64 = \
- (cpu != 'arm' and unpack_edk2_blobs ? ['bios-tables-test'] : []) + \
(config_all.has_key('CONFIG_TCG') and config_all_devices.has_key('CONFIG_TPM_TIS_SYSBUS') ? \
['tpm-tis-device-test', 'tpm-tis-device-swtpm-test'] : []) + \
(config_all_devices.has_key('CONFIG_XLNX_ZYNQMP_ARM') ? ['xlnx-can-test', 'fuzz-xlnx-dp-test'] : []) + \
@@ -222,8 +217,7 @@
config_all_devices.has_key('CONFIG_TPM_TIS_I2C') ? ['tpm-tis-i2c-test'] : []) + \
['arm-cpu-features',
'numa-test',
- 'boot-serial-test',
- 'migration-test']
+ 'boot-serial-test']
qtests_s390x = \
qtests_filter + \
@@ -301,7 +295,6 @@
@@ -304,7 +299,6 @@ if gnutls.found()
endif
qtests = {
- 'bios-tables-test': [io, 'boot-sector.c', 'acpi-utils.c', 'tpm-emu.c'],
'cdrom-test': files('boot-sector.c'),

45
gnu/packages/patches/ruby-x25519-automatic-fallback-non-x86_64.patch 100644
View File

@ -0,0 +1,45 @@
from https://patch-diff.githubusercontent.com/raw/RubyCrypto/x25519/pull/36.patch
From 5886507e08488c0ed116b1979a073b78b9495683 Mon Sep 17 00:00:00 2001
From: Eric Long <i@hack3r.moe>
Date: Sat, 15 Apr 2023 02:58:26 +0800
Subject: [PATCH] Add automatic fallback for non-x86_64 targets
---
Rakefile | 2 +-
ext/x25519_precomputed/extconf.rb | 6 +++---
2 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/Rakefile b/Rakefile
index 535697c..6e4f4d3 100644
--- a/Rakefile
+++ b/Rakefile
@@ -7,7 +7,7 @@ CLEAN.include("**/*.o", "**/*.so", "**/*.bundle", "pkg", "tmp")
require "rake/extensiontask"
%w[precomputed ref10].each do |provider|
- next if provider == "precomputed" && RUBY_PLATFORM =~ /arm64-darwin/
+ next if provider == "precomputed" && RUBY_PLATFORM !~ /x86_64|x64/
Rake::ExtensionTask.new("x25519_#{provider}") do |ext|
ext.ext_dir = "ext/x25519_#{provider}"
diff --git a/ext/x25519_precomputed/extconf.rb b/ext/x25519_precomputed/extconf.rb
index 7f2ba4d..b049f98 100644
--- a/ext/x25519_precomputed/extconf.rb
+++ b/ext/x25519_precomputed/extconf.rb
@@ -4,12 +4,12 @@
require "mkmf"
-if RUBY_PLATFORM =~ /arm64-darwin|aarch64-linux/
- File.write("Makefile", "install clean: ;")
-else
+if RUBY_PLATFORM =~ /x86_64|x64/
$CFLAGS << " -Wall -O3 -pedantic -std=c99 -mbmi -mbmi2 -march=haswell"
create_makefile "x25519_precomputed"
+else
+ File.write("Makefile", "install clean: ;")
end
# rubocop:enable Style/GlobalVars

82
gnu/packages/pdf.scm
View File

@ -17,7 +17,7 @@
;;; Copyright © 2019 Alex Griffin <a@ajgrf.com>
;;; Copyright © 2019 Ben Sturmfels <ben@sturm.com.au>
;;; Copyright © 2019,2020 Hartmut Goebel <h.goebel@crazy-compilers.com>
;;; Copyright © 2020-2023 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2020-2024 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2020, 2022 Michael Rohleder <mike@rohleder.de>
;;; Copyright © 2020, 2024 Timotej Lazar <timotej.lazar@araneo.si>
;;; Copyright © 2020, 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
@ -26,6 +26,7 @@
;;; Copyright © 2022 Petr Hodina <phodina@protonmail.com>
;;; Copyright © 2023 Felix Gruber <felgru@posteo.net>
;;; Copyright © 2024 dan <i@dan.games>
;;; Copyright © 2023 Benjamin Slade <slade@lambda-y.net>
;;;
;;; This file is part of GNU Guix.
;;;
@ -56,6 +57,7 @@
#:use-module (guix build-system python)
#:use-module (guix build-system qt)
#:use-module (gnu packages)
#:use-module (gnu packages aidc)
#:use-module (gnu packages audio)
#:use-module (gnu packages autotools)
#:use-module (gnu packages backup)
@ -432,40 +434,25 @@ When present, Poppler is able to correctly render CJK and Cyrillic text.")
(define-public python-poppler-qt5
(package
(name "python-poppler-qt5")
(version "21.1.0")
(version "21.3.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "python-poppler-qt5" version))
(sha256
(base32
"0b82gm4i75q5v19kfbq0h4y0b2vcwr2213zkhxh6l0h45kdndmxd"))
(patches (search-patches "python-poppler-qt5-fix-build.patch"))))
(build-system python-build-system)
(origin
(method url-fetch)
(uri (pypi-uri "python-poppler-qt5" version))
(sha256
(base32 "1q3gvmsmsq3llf9mcbhlkryrgprqrw2z7wmnvagy180f3y2fhxxl"))))
(build-system pyproject-build-system)
(arguments
`(;; There are no tests. The check phase just causes a rebuild.
#:tests? #f
#:phases
(modify-phases %standard-phases
(replace 'build
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "setup.py"
;; This check always fails, so disable it.
(("if not check_qtxml\\(\\)")
"if True"))
;; We need to pass an extra flag here. This cannot be in
;; configure-flags because it should not be passed for the
;; installation phase.
((@@ (guix build python-build-system) call-setuppy)
"build_ext" (list (string-append "--pyqt-sip-dir="
(assoc-ref inputs "python-pyqt")
"/share/sip")) #t))))))
(native-inputs
(list pkg-config))
(inputs
(list python-sip-4 python-pyqt poppler-qt5 qtbase-5))
(home-page "https://pypi.org/project/python-poppler-qt5/")
(synopsis "Python bindings for Poppler-Qt5")
`(;; The sipbuild.api backend builder expects a Python dictionary as per
;; https://peps.python.org/pep-0517/#config-settings, but we
;; give it lists and it fails. The next line is a workaround.
#:configure-flags '#nil
#:tests? #f))
(native-inputs (list pkg-config))
(inputs (list python-sip python-pyqt-builder python-pyqt poppler-qt5
qtbase-5))
(home-page "https://github.com/frescobaldi/python-poppler-qt5")
(synopsis "Python binding to Poppler-Qt5")
(description
"This package provides Python bindings for the Qt5 interface of the
Poppler PDF rendering library.")
@ -843,14 +830,14 @@ and based on PDF specification 1.7.")
(define-public mupdf
(package
(name "mupdf")
(version "1.23.10")
(version "1.23.11")
(source
(origin
(method url-fetch)
(uri (string-append "https://mupdf.com/downloads/archive/"
"mupdf-" version "-source.tar.lz"))
(sha256
(base32 "0p0smyfcziqrnp391l0pmpjca07075km0xlw20kd3hqa919lhq0i"))
(base32 "1kv44zqijkvljc9fcqmgb8zqkj7hmasga70fsz98aimmrfc2rmyv"))
(modules '((guix build utils)
(ice-9 ftw)
(srfi srfi-1)))
@ -1050,7 +1037,7 @@ using a stylus.")
(define-public xournalpp
(package
(name "xournalpp")
(version "1.2.2")
(version "1.2.3")
(source
(origin
(method git-fetch)
@ -1059,7 +1046,7 @@ using a stylus.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1svmdj43z1shm3wnkrdrq1h6rba843mp4x4d8jmxsx7kwiiz9l78"))))
(base32 "1rj9kz21r59cswfpczp5dcmvchbbmybv661iyycaiii2z5gh0h7i"))))
(build-system cmake-build-system)
(arguments
(list
@ -1223,13 +1210,13 @@ the PDF pages.")
(define-public img2pdf
(package
(name "img2pdf")
(version "0.4.4")
(version "0.5.1")
(source
(origin
(method url-fetch)
(uri (pypi-uri "img2pdf" version))
(sha256
(base32 "0g3rpq68y5phnlgxrqn39k10j9nmgksg6m5ic8wgs8v5cjlrij4f"))))
(base32 "158bgnk2jhjnpyld4z3jq8v2j8837vh4j0672g8mnjrg4i3px13k"))))
(build-system python-build-system)
(propagated-inputs
(list python-pikepdf python-pillow
@ -1527,7 +1514,7 @@ multiple files.")
(define-public pdfpc
(package
(name "pdfpc")
(version "4.5.0")
(version "4.6.0")
(source
(origin
(method git-fetch)
@ -1536,22 +1523,13 @@ multiple files.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0bmy51w6ypz927hxwp5g7wapqvzqmsi3w32rch6i3f94kg1152ck"))))
(base32 "0kj84sf5hgr2v2ra6dxmxqcr173h17cpnhg9lcq36shdbdnncwg4"))))
(build-system cmake-build-system)
(arguments
'(#:tests? #f ; no test target
#:phases
(modify-phases %standard-phases
;; This is really a bug in Vala.
;; https://github.com/pdfpc/pdfpc/issues/594
(add-after 'unpack 'fix-vala-API-conflict
(lambda _
(substitute* "src/classes/action/movie.vala"
(("info.from_caps\\(caps\\)")
"Gst.Video.info_from_caps(out info, caps)")))))))
(arguments '(#:tests? #f)) ; no test target
(inputs
`(("cairo" ,cairo)
("discount" ,discount) ; libmarkdown
("qrencode" ,qrencode)
("gtk+" ,gtk+)
("gstreamer" ,gstreamer)
("gst-plugins-base" ,gst-plugins-base)

6
gnu/packages/plotutils.scm
View File

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2016-2023 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2016-2024 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2023 gemmaro <gemmaro.dev@gmail.com>
@ -276,14 +276,14 @@ colors, styles, options and details.")
(define-public asymptote
(package
(name "asymptote")
(version "2.86")
(version "2.88")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/asymptote/"
version "/asymptote-" version ".src.tgz"))
(sha256
(base32 "07y9yg7kdkgmz024qzny8xhjw3c367kxfpwzv19cxcy7qcgsvsy4"))
(base32 "1fzm58md2kc32sj19bksnd8yzkg47z5pblkxp28r7vm67xs1mrqd"))
(modules '((guix build utils)))
(snippet
;; Remove bundled RapidJSON.

45
gnu/packages/prolog.scm
View File

@ -171,3 +171,48 @@ compiler with a rich set of built-in predicates. It offers a fast, robust and
small environment which enables substantial applications to be developed with
it.")
(license license:bsd-2)))
(define-public logtalk
(package
(name "logtalk")
(version "3.75.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://logtalk.org/files/logtalk-"
version ".tar.bz2"))
(sha256 (base32 "0w35br03l307wk2fwh67rybqjgvjlwpy9j5r4c3pkrywd7lhrc54"))))
(build-system gnu-build-system)
(arguments
(list #:tests? #f ;no tests
#:phases
#~(modify-phases %standard-phases
(delete 'configure) ;no configure script and Makefile
(delete 'build)
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(mkdir #$output)
(invoke "./scripts/install.sh" "-p" #$output))))))
(native-search-paths
(list (search-path-specification
(variable "LOGTALKHOME")
(separator #f) ;single valued
(files '("share/logtalk")))))
(home-page "https://logtalk.org/")
(synopsis "Object-oriented logic programming language")
(description "Logtalk is a declarative object-oriented logic programming language
that extends and leverages the Prolog language with a feature set suitable for
programming in the large. As a multi-paradigm language, Logtalk includes support for
both prototypes and classes, protocols (interfaces), categories (components and
hot-patching), event-driven programming, coinduction, lambda expressions, and
high-level multi-threading programming.")
;; Most are under Apache License 2.0, some contributed libraries and ports are
;; under other licenses.
(license (list license:asl2.0
license:artistic2.0
license:bsd-2
license:bsd-3
license:cc0
license:expat
license:gpl2+
license:osl2.1))))

272
gnu/packages/python-web.scm
View File

@ -44,7 +44,7 @@
;;; Copyright © 2021 Greg Hogan <code@greghogan.com>
;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be>
;;; Copyright © 2021 Pradana Aumars <paumars@courrier.dev>
;;; Copyright © 2021, 2022 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2021, 2022, 2024 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2021, 2022 jgart <jgart@dismail.de>
;;; Copyright © 2021 Alice Brenon <alice.brenon@ens-lyon.fr>
;;; Copyright © 2022 John Kehayias <john.kehayias@protonmail.com>
@ -58,9 +58,12 @@
;;; Copyright © 2022 msimonin <matthieu.simonin@inria.fr>
;;; Copyright © 2022 Michael Rohleder <mike@rohleder.de>
;;; Copyright © 2022 Baptiste Strazzulla <bstrazzull@hotmail.fr>
;;; Copyright © 2023 dan <i@dan.games>
;;; Copyright © 2023 John Kehayias <john.kehayias@protonmail.com>
;;; Copyright © 2023 Ivan Vilata-i-Balaguer <ivan@selidor.net>
;;; Copyright © 2024 Troy Figiel <troy@troyfigiel.com>
;;; Copyright © 2024 Sharlatan Hellseher <sharlatanus@gmail.com>
;;; Copyright © 2024 normally_js <normally_js@posteo.net>
;;;
;;; This file is part of GNU Guix.
;;;
@ -78,15 +81,15 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages python-web)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix git-download)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix build-system copy)
#:use-module (guix build-system pyproject)
#:use-module (guix build-system python)
#:use-module (guix download)
#:use-module (guix gexp)
#:use-module (guix git-download)
#:use-module (guix packages)
#:use-module (guix utils)
#:use-module (gnu packages)
#:use-module (gnu packages admin)
#:use-module (gnu packages base)
#:use-module (gnu packages bash)
@ -106,8 +109,8 @@
#:use-module (gnu packages node)
#:use-module (gnu packages openstack)
#:use-module (gnu packages pcre)
#:use-module (gnu packages protobuf)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages protobuf)
#:use-module (gnu packages python)
#:use-module (gnu packages python-build)
#:use-module (gnu packages python-check)
@ -121,12 +124,12 @@
#:use-module (gnu packages serialization)
#:use-module (gnu packages sphinx)
#:use-module (gnu packages texinfo)
#:use-module (gnu packages tls)
#:use-module (gnu packages time)
#:use-module (gnu packages tls)
#:use-module (gnu packages version-control)
#:use-module (gnu packages web)
#:use-module (gnu packages xml)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (gnu packages)
#:use-module (srfi srfi-1))
(define-public python-huggingface-hub
@ -1278,6 +1281,62 @@ over a different origin than that of the web application.")
other HTTP libraries.")
(license license:expat)))
(define-public python-cheroot
(package
(name "python-cheroot")
(version "10.0.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "cheroot" version))
(sha256
(base32
"1w0ind0dza9j1py56y23344piqkpyfmcm060qfrnk6gggy3s3i2r"))))
(build-system pyproject-build-system)
(arguments
(list
#:test-flags
#~(list "--cov=cheroot"
;; Tests are flaky in parallel invocation.
;; "--numprocesses=auto"
"--doctest-modules"
"--showlocals"
;; Disable test requiring networking.
"-k" "not test_tls_client_auth")
#:phases
#~(modify-phases %standard-phases
(replace 'check
(lambda* (#:key tests? test-flags #:allow-other-keys)
(when tests?
(with-directory-excursion "/tmp"
(apply invoke "pytest" "-v"
(append test-flags (list #$output))))))))))
(propagated-inputs
(list python-jaraco-functools
python-more-itertools
python-six))
(native-inputs
(list python-cryptography
python-jaraco-text
python-portend
python-pyopenssl
python-pypytools
python-pytest
python-pytest-cov
python-pytest-mock
python-pytest-xdist
python-requests
python-requests-toolbelt
python-requests-unixsocket
python-setuptools-scm
python-setuptools-scm-git-archive
python-trustme))
(home-page "https://cheroot.cherrypy.dev")
(synopsis "Highly-optimized, pure-python HTTP server")
(description
"Cheroot is a high-performance, pure-Python HTTP server.")
(license license:bsd-3)))
(define-public httpie
(package
(name "httpie")
@ -1917,21 +1976,47 @@ Amazon S3 compatible object storage server.")
(uri (pypi-uri "pycurl" version))
(sha256
(base32 "1ji46b924caa4saxvjxs9h673yy0kif297nxpnjn84r7w05mjc2p"))))
(build-system python-build-system)
(build-system pyproject-build-system)
(arguments
;; The tests attempt to access external web servers, so we cannot run
;; them. Furthermore, they are skipped altogether when using Python 2.
'(#:tests? #f
'(#:test-flags
(list "-n" "auto"
"-k" (string-append
;; Disable hanginging tests
"not test_multi_socket_select"
;; E assert None is not None
;; E+ where None =
;; <tests.multi_callback_test.MultiCallbackTest
;; testMethod=test_easy_pause_unpause>.socket_result
" and not test_easy_pause_unpause"
" and not test_multi_socket_action"
;; E pycurl.error: (1, '')
" and not test_http_version_3"
;; OSError: tests/fake-curl/libcurl/with_gnutls.so: cannot
;; open shared object file: No such file or directory
" and not test_libcurl_ssl_gnutls"
;; OSError: tests/fake-curl/libcurl/with_nss.so: cannot
;; open shared object file: No such file or directory
" and not test_libcurl_ssl_nss"
;; OSError: tests/fake-curl/libcurl/with_openssl.so: cannot
;; open shared object file: No such file or directory
" and not test_libcurl_ssl_openssl"
;; pycurl.error: (56, 'Recv failure: Connection reset by
;; peer')
" and not test_post_with_read_callback"))
#:phases (modify-phases %standard-phases
(add-before 'build 'configure-tls-backend
(lambda _
;; XXX: PycURL fails to automatically determine which TLS
;; backend to use when cURL is built with --disable-static.
;; See setup.py and <https://github.com/pycurl/pycurl/pull/147>.
(setenv "PYCURL_SSL_LIBRARY" "gnutls")
#t)))))
(add-before 'build 'configure-tls-backend
(lambda _
;; XXX: PycURL fails to automatically determine which
;; TLS backend to use when cURL is built with
;; --disable-static. See setup.py and
;; <https://github.com/pycurl/pycurl/pull/147>.
(setenv "PYCURL_SSL_LIBRARY" "gnutls"))))))
(native-inputs
(list python-nose python-bottle))
(list python-bottle
python-flaky
python-nose
python-pytest
python-pytest-xdist))
(inputs
(list curl gnutls))
(home-page "http://pycurl.io/")
@ -2722,6 +2807,123 @@ object to help create WSGI responses.")
files. These locks can also be used to mediate access to other files.")
(license license:zpl2.1)))
(define-public python-zconfig
(package
(name "python-zconfig")
(version "4.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "ZConfig" version))
(sha256
(base32 "0mh13p38vq7ip4zkvaplzr8w0mqrmmqiyb5y663d165slvxl5mpq"))))
(build-system python-build-system)
(arguments
'(#:phases (modify-phases %standard-phases
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(if tests?
(begin
;; This test assumes we still have setup.py in the
;; directory from which we import zconfig, which
;; does not work after installing the package.
(delete-file-recursively
"src/ZConfig/tests/test_readme.py")
(invoke "zope-testrunner" "-vv" "--test-path=src"
"--all"))
(format #t "test suite not run~%")))))))
(native-inputs (list python-docutils python-manuel python-zope-exceptions
python-zope-testrunner))
(home-page "https://github.com/zopefoundation/ZConfig/")
(synopsis "Structured configuration library intended for general use")
(description
"@code{zconfig} is a configuration library intended for general
use. It supports a hierarchical schema-driven configuration model that allows
a schema to specify data conversion routines written in Python. Its model is
very different from the model supported by the @code{configparser} module
found in Python's standard library, and is more suitable to
configuration-intensive applications.")
(license license:zpl2.1)))
(define-public python-zodb
(package
(name "python-zodb")
(version "5.8.1")
(source
(origin
(method url-fetch)
(uri (pypi-uri "ZODB" version))
(sha256
(base32 "1pv4w8mnx6j4xvkcjbkh99pv8ljby7g9f7zjq7zhdmk06sykmiy6"))))
(build-system pyproject-build-system)
(arguments
'(#:phases (modify-phases %standard-phases
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(if tests?
(begin
;; This test does not work after installing the
;; package, since it expects the ZODB source code
;; to reside in the src/ directory.
(delete-file-recursively
"src/ZODB/tests/testdocumentation.py")
(invoke "zope-testrunner" "-vv" "--test-path=src"
"--all"))
(format #t "test suite not run~%")))))))
(propagated-inputs (list python-btrees
python-persistent
python-zconfig
python-six
python-transaction
python-zc-lockfile
python-zodbpickle
python-zope-interface))
(native-inputs (list python-manuel python-zope-testing
python-zope-testrunner))
(home-page "http://zodb-docs.readthedocs.io")
(synopsis "Object-oriented database for Python")
(description
"@code{ZODB} provides an object-oriented and @acronym{ACID,
Atomicity Consistency Isolation Durability} compliant database for Python with
a high degree of transparency. @code{ZODB} is an object-oriented database,
not an object-relational mapping. This comes with several advantaged:
@itemize
@item no separate language for database operations
@item very little impact on your code to make objects persistent
@item no database mapper that partially hides the database.
@item almost no seam between code and database.
@end itemize")
(license license:zpl2.1)))
(define-public python-zodbpickle
(package
(name "python-zodbpickle")
(version "3.2")
(source
(origin
(method url-fetch)
(uri (pypi-uri "zodbpickle" version))
(sha256
(base32 "035bjrksl4h92mvjkx6id4gjcpc1k4mbci8ryjl6l9mki7ihx77b"))))
(build-system pyproject-build-system)
(arguments
'(#:phases (modify-phases %standard-phases
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(if tests?
(invoke "zope-testrunner" "-vv" "--test-path=src"
"--all")
(format #t "test suite not run~%")))))))
(native-inputs (list python-zope-testrunner))
(home-page "https://github.com/zopefoundation/zodbpickle")
(synopsis "Uniform pickling interface for @code{zodb}")
(description
"This package is a fork of the @code{pickle} module (and the
supporting C extension) from both Python 3.2 and Python 3.3. The fork adds
support for the @code{noload} operations used by @code{zodb}.")
(license (list license:psfl license:zpl2.1))))
(define-public python-zope-event
(package
(name "python-zope-event")
@ -3221,6 +3423,24 @@ verification of the SSL peer.")
(home-page "https://github.com/cedadev/ndg_httpsclient/")
(license license:bsd-3)))
(define-public python-noiseprotocol
(package
(name "python-noiseprotocol")
(version "0.3.1")
(source
(origin
(method url-fetch)
(uri (pypi-uri "noiseprotocol" version))
(sha256
(base32 "0ifnj0mpbqsfqba9n12vf5yzxj4qf2gxql3ry43qyshgnrqsi4mh"))))
(build-system pyproject-build-system)
(propagated-inputs (list python-cryptography))
(home-page "https://github.com/plizonczyk/noiseprotocol")
(synopsis "Implementation of Noise Protocol Framework")
(description
"This package provides an implementation of Noise Protocol Framework.")
(license license:expat)))
(define-public python-websocket-client
(package
(name "python-websocket-client")
@ -8277,13 +8497,13 @@ regular expressions.")
(define-public python-scrapy
(package
(name "python-scrapy")
(version "2.11.0")
(version "2.11.1")
(source
(origin
(method url-fetch)
(uri (pypi-uri "Scrapy" version))
(sha256
(base32 "199nbc7vipdsvxmfxc0lrzbprgl3hr2xgqhvss1083iz1k7fvg9w"))))
(base32 "1giyyzwcybmh0yf3aq44hhmf9m4k40rva418pxljpr93fjf06fkk"))))
(build-system pyproject-build-system)
(arguments
(list #:test-flags
@ -8319,7 +8539,8 @@ regular expressions.")
python-w3lib
python-zope-interface))
(native-inputs
(list python-pytest
(list python-pexpect
python-pytest
python-pytest-xdist
python-pyftpdlib
python-sybil
@ -8409,7 +8630,7 @@ compatibility with Microformats1 (mf1).")
(define-public python-extruct
(package
(name "python-extruct")
(version "0.13.0")
(version "0.16.0")
(source (origin
(method git-fetch) ;for tests
(uri (git-reference
@ -8418,7 +8639,7 @@ compatibility with Microformats1 (mf1).")
(file-name (git-file-name name version))
(sha256
(base32
"075zldf3dqcc429z1vk2ngbmv034bnlyk6arh3rh30jbsvz9pzl5"))))
"1s05sz6nghrap1gjkg3vsqz6djld6lczd6w3r1542ir8n7binl7a"))))
(build-system python-build-system)
(arguments
(list
@ -8436,7 +8657,6 @@ compatibility with Microformats1 (mf1).")
python-mf2py
python-pyrdfa3
python-rdflib
python-rdflib-jsonld
python-w3lib))
(home-page "https://github.com/scrapinghub/extruct")
(synopsis "Extract embedded metadata from HTML markup")

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

@ -49,7 +49,7 @@
;;; Copyright © 2018 Mathieu Lirzin <mthl@gnu.org>
;;; Copyright © 2018 Adam Massmann <massmannak@gmail.com>
;;; Copyright © 2016, 2018 Tomáš Čech <sleep_walker@gnu.org>
;;; Copyright © 2018-2023 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2018-2024 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2018, 2019, 2021, 2023 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2018, 2019, 2020, 2021, 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
@ -108,7 +108,7 @@
;;; Copyright © 2021 Simon Streit <simon@netpanic.org>
;;; Copyright © 2021, 2022, 2023 Daniel Meißner <daniel.meissner-i4k@ruhr-uni-bochum.de>
;;; Copyright © 2021, 2022 Pradana Aumars <paumars@courrier.dev>
;;; Copyright © 2021, 2022, 2023 Felix Gruber <felgru@posteo.net>
;;; Copyright © 2021–2024 Felix Gruber <felgru@posteo.net>
;;; Copyright © 2021 Sébastien Lerique <sl@eauchat.org>
;;; Copyright © 2021 Raphaël Mélotte <raphael.melotte@mind.be>
;;; Copyright © 2021 ZmnSCPxj <ZmnSCPxj@protonmail.com>
@ -136,6 +136,7 @@
;;; Copyright © 2023 Amade Nemes <nemesamade@gmail.com>
;;; Copyright © 2023 Bruno Victal <mirai@makinata.eu>
;;; Copyright © 2023 Kaelyn Takata <kaelyn.alexi@protonmail.com>
;;; Copyright © 2023 dan <i@dan.games>
;;; Copyright © 2023 Dominik Delgado Steuter <d@delgado.nrw>
;;; Copyright © 2023 Ivan Vilata-i-Balaguer <ivan@selidor.net>
;;; Copyright © 2023 Ontje Lünsdorf <ontje.luensdorf@dlr.de>
@ -148,6 +149,7 @@
;;; Copyright © 2023, 2024 Troy Figiel <troy@troyfigiel.com>
;;; Copyright © 2024 Timothee Mathieu <timothee.mathieu@inria.fr>
;;; Copyright © 2024 Ian Eure <ian@retrospec.tv>
;;; Copyright © 2024 Adriel Dumas--Jondeau <leirda@disroot.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -6055,6 +6057,54 @@ adds a 'now' tag providing a convenient access to the arrow.now() API from
templates. A format string can be provided to control the output.")
(license license:expat)))
(define-public python-pypugjs
(package
(name "python-pypugjs")
(version "5.9.12")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/kakulukia/pypugjs")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0zj7a560h973cl7brfw1nmyhgm8rp8j80wnih0shvhmw4ql23lpa"))))
(build-system pyproject-build-system)
(arguments
(list
#:phases #~(modify-phases %standard-phases
;; Our pyramid is outdated and pyramid-mako is not packaged.
(add-after 'unpack 'disable-pyramid
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "setup.py"
(("'pyramid")
"#'pyramid"))))
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(invoke "python" "-m" "pytest" "-v"
"pypugjs/testsuite/")))))))
(native-inputs (list python-coverage
python-django
python-jinja2
python-flake8
python-flask
python-mako
python-nose
python-poetry-core
python-pytest
python-tornado-6
python-wheel))
(propagated-inputs (list python-charset-normalizer python-six))
(home-page "https://github.com/kakulukia/pypugjs")
(synopsis "Convert Pug source files into different template languages")
(description
"PyPugJS is a high-performance port of PugJS for Python, that converts
any @file{.pug} source into different template languages: Django, Jinja2,
Mako, and Tornado.")
(license license:expat))) ;; MIT
(define-public python-pysdl2
(package
(name "python-pysdl2")
@ -6170,26 +6220,20 @@ bookmarks using a declarative input in the form of a markdown file.")
(define-public python-joblib
(package
(name "python-joblib")
(version "1.1.1")
(version "1.3.2")
(source (origin
(method url-fetch)
(uri (pypi-uri "joblib" version))
(sha256
(base32
"0019p280s2k941mihl67l7y6amwx86639xp3zvpsg1lmyish67rh"))))
(build-system python-build-system)
"1cbjjzsh9hzaqr2cqja95673p7j88b8bd02hjpkq8xz147k6by4j"))))
(build-system pyproject-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(setenv "JOBLIB_MULTIPROCESSING" "0")
(invoke "pytest" "-v" "joblib"
;; We disable this test to avoid having to depend on ipython/jupyter
"-k" "not test_parallel_call_cached_function_defined_in_jupyter")))))))
(native-inputs
(list python-pytest))
(list
#:test-flags ; disabled to avoid having to depend on ipython/jupyter
#~(list "-k" "not test_parallel_call_cached_function_defined_in_jupyter")))
(native-inputs (list python-pytest))
(propagated-inputs (list python-psutil))
(home-page "https://joblib.readthedocs.io/")
(synopsis "Using Python functions as pipeline jobs")
(description
@ -6376,6 +6420,46 @@ accessible for novices, as well as a scripting interface offering the full
flexibility and power of the Python language.")
(license license:gpl3+)))
(define-public kalamine
(package
(name "kalamine")
(version "0.36")
(source
(origin
(method url-fetch)
(uri (pypi-uri "kalamine" version))
(sha256
(base32 "1xxncavq5a0dydhzpfjdxmqsddl77275d9k9giw1032bdyb9d5is"))))
(build-system pyproject-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(add-before 'check 'make-test-layouts
(lambda _
(apply invoke
(cons* "python" "-m" "kalamine.cli" "build"
(find-files "layouts" "\\.toml")))
(invoke "python" "-m" "kalamine.cli" "new" "test.toml"))))))
(propagated-inputs
(list python-click
python-livereload
python-lxml
python-progress
python-pyyaml
python-tomli))
;; TODO: Add python-pytest-ruff to native-inputs once it has been
;; packaged.
(native-inputs
(list python-hatchling python-mypy python-pytest))
(home-page "https://github.com/OneDeadKey/kalamine")
(synopsis "Keyboard layout maker")
(description
"Kalamine provides a CLI to create advanced keyboard layout from a
textual portable description. It also supports layout emulation via web
browser.")
(license license:expat)))
(define-public python-dm-tree
(package
(name "python-dm-tree")
@ -11391,6 +11475,27 @@ removal, line continuation, indentation, comment processing, identifier
processing, values parsing, case insensitive comparison, and more.")
(license license:expat)))
(define-public python-pypytools
(package
(name "python-pypytools")
(version "0.6.2")
(source
(origin
(method url-fetch)
(uri (pypi-uri "pypytools" version))
(sha256
(base32 "0ag5xyzagprji0m2pkqsfy8539s003mn41pl6plbmh6iwi9w0h51"))))
(build-system python-build-system)
(arguments (list #:tests? #f)) ; no tests
(propagated-inputs (list python-py))
(home-page "https://github.com/antocuni/pypytools/")
(synopsis
"Tools to use PyPy-specific features, with CPython fallbacks")
(description
"This package provides a collection of useful tools to use PyPy-specific
features, with CPython fallbacks.")
(license license:x11)))
(define-public python-simplegeneric
(package
(name "python-simplegeneric")
@ -12261,6 +12366,24 @@ features useful for text console applications.")
supports @code{readline} shortcuts.")
(license license:expat)))
(define-public python-urwidgets
(package
(name "python-urwidgets")
(version "0.2.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "urwidgets" version))
(sha256
(base32 "123n9qfg6qwwh1911y71c3msxi89n8cjj15wh2snqmwdkyfwy6nl"))))
(build-system pyproject-build-system)
(propagated-inputs (list python-urwid))
(home-page "https://github.com/AnonymouX47/urwidgets")
(synopsis "Collection of widgets for urwid")
(description
"This package provides a collection of widgets for urwid.")
(license license:expat)))
(define-public python-textdistance
(package
(name "python-textdistance")
@ -12758,19 +12881,18 @@ approach.")
(build-system python-build-system)
(arguments
;; TODO: Package missing test dependencies.
'(#:tests? #f
#:phases
(modify-phases %standard-phases
;; For cluster execution Snakemake will call Python. Since there is
;; no suitable PYTHONPATH set, cluster execution will fail. We fix
;; this by calling the snakemake wrapper instead.
(add-after 'unpack 'call-wrapper-not-wrapped-snakemake
(lambda* (#:key outputs #:allow-other-keys)
(substitute* "snakemake/executors/__init__.py"
(("\\{sys.executable\\} -m snakemake")
(string-append (assoc-ref outputs "out")
"/bin/snakemake")))
#t)))))
(list
#:tests? #f
#:phases
#~(modify-phases %standard-phases
;; For cluster execution Snakemake will call Python. Since there is
;; no suitable PYTHONPATH set, cluster execution will fail. We fix
;; this by calling the snakemake wrapper instead.
(add-after 'unpack 'call-wrapper-not-wrapped-snakemake
(lambda _
(substitute* "snakemake/executors/__init__.py"
(("\\{sys.executable\\} -m snakemake")
(string-append #$output "/bin/snakemake"))))))))
(propagated-inputs
(list python-appdirs
python-configargparse
@ -12901,7 +13023,22 @@ Python style, together with a fast and comfortable execution environment.")
"")
(("\"-m snakemake\"")
(string-append "\"" #$output
"/bin/snakemake" "\"")))))
"/bin/snakemake" "\""))
;; The snakemake command produced by format_job_exec contains
;; references to /gnu/store. Prior to patching above that's
;; just a reference to Python; after patching it's a reference
;; to the snakemake executable.
;;
;; In Tibanna execution mode Snakemake arranges for a certain
;; Docker image to be deployed to AWS. It then passes its own
;; command line to Tibanna. This is misguided because it only
;; ever works if the local Snakemake command was run inside
;; the same Docker image. In the case of using Guix this is
;; never correct, so we need to replace the store reference.
(("tibanna_args.command = command")
(string-append
"tibanna_args.command = command.replace('"
#$output "/bin/snakemake', 'python3 -m snakemake')")))))
(add-after 'unpack 'patch-version
(lambda _
(substitute* "setup.py"
@ -14204,6 +14341,41 @@ extensions, and several HTML output formats. A command line wrapper
markdown_py is also provided to convert Markdown files to HTML.")
(license license:bsd-3)))
(define-public python-markdown2
(package
(name "python-markdown2")
(version "2.4.13")
(source
(origin
(method git-fetch) ; no tests data in PyPi package
(uri (git-reference
(url "https://github.com/trentm/python-markdown2")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0m1wy8i4xmna5b97dvks8cfjmc1wid8pxmd2h82869d0ajva3r6a"))))
(build-system pyproject-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(replace 'check
(lambda* (#:key tests? test-flags #:allow-other-keys)
(when tests?
(with-directory-excursion "test"
(invoke "python" "testall.py"))))))))
(native-inputs
(list python-pygments))
(home-page "https://github.com/trentm/python-markdown2")
(synopsis "Fast and complete Python implementation of Markdown")
(description
"This package provides a fast and complete Python implementation of
Markdown. It was written to closely match the behaviour of the original
Perl-implemented Markdown.pl. It also comes with a number of
extensions (called @code{extras}) for things like syntax coloring, tables,
header-ids.")
(license license:expat)))
(define-public python-mdx-include
(package
(name "python-mdx-include")
@ -17249,16 +17421,18 @@ consistent API regardless of how the configuration was created.")
(define-public python-configargparse
(package
(name "python-configargparse")
(version "1.5.3")
(version "1.7")
(source (origin
(method url-fetch)
(uri (pypi-uri "ConfigArgParse" version))
(sha256
(base32
"17vky4ihicbf7nggg30xs7h3g5rxzwgch8vilnnrvdaacszkq2qv"))))
"1l866g1dcf2ljf8fl7ggpxk1rggry0lya4d5b264gradi1qp81p7"))))
(build-system pyproject-build-system)
(native-inputs
(list python-mock python-pytest))
(propagated-inputs
(list python-pyyaml))
(synopsis "Replacement for argparse")
(description "A drop-in replacement for argparse that allows options to also
be set via config files and/or environment variables.")
@ -23984,8 +24158,18 @@ manipulation, or @code{stdout}.")
(base32
"1vi2fj31vygfcqrkimdmk52q2ldw08g9fn4v4zlgdfgcjlhqyhxn"))))
(build-system python-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'fix-rdflib-6-compatibility
(lambda _
;; See https://github.com/trungdong/prov/issues/151
(substitute* "src/prov/tests/test_rdf.py"
(("\\.serialize\\(format=\"nt\"\\)")
".serialize(format=\"nt\", encoding=\"utf-8\")")))))))
(propagated-inputs
(list python-dateutil python-lxml python-networkx python-rdflib-5))
(list python-dateutil python-lxml python-networkx python-rdflib))
(native-inputs
(list graphviz python-pydot))
(home-page "https://github.com/trungdong/prov")
@ -30443,7 +30627,7 @@ accessor layer.")
(define-public pyzo
(package
(name "pyzo")
(version "4.13.3")
(version "4.15.0")
(source
(origin
(method git-fetch)
@ -30453,7 +30637,7 @@ accessor layer.")
(file-name (git-file-name name version))
(sha256
(base32
"1m0mrp20wjvy804214f4zzlbaqrakam0g3qr562yn2mjcgfba554"))))
"0m2sp65q21hhlfkvyby4sjc8cmwv3l0avw42xsna8za8ax9xadxr"))))
(build-system python-build-system)
(arguments
`(#:phases
@ -33360,17 +33544,24 @@ and powerful way to handle real-world data, featuring:
(define-public python-box
(package
(name "python-box")
(version "5.3.0")
(version "7.1.1")
(source
;; The PyPI tarball does not contain all test files.
(origin
(method url-fetch)
(uri (pypi-uri "python-box" version))
(method git-fetch)
(uri
(git-reference
(url "https://github.com/cdgriffith/Box")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"0jhrdif57khx2hsw1q6a9x42knwcvq8ijgqyq1jmll6y6ifyzm2f"))))
(build-system python-build-system)
"1v8s6wji17fh87nvamzysvxi8f51h6szh6h6dxvids56gg5zc553"))))
(build-system pyproject-build-system)
(propagated-inputs
(list python-msgpack python-ruamel.yaml python-toml))
(list python-msgpack python-ruamel.yaml python-tomli python-tomli-w))
(native-inputs
(list python-cython python-pytest python-wheel))
(home-page "https://github.com/cdgriffith/Box")
(synopsis "Advanced Python dictionaries with dot notation access")
(description

392
gnu/packages/python.scm
View File

@ -55,7 +55,7 @@
;;; Copyright © 2018, 2019, 2020, 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2018 Luther Thompson <lutheroto@gmail.com>
;;; Copyright © 2018 Vagrant Cascadian <vagrant@debian.org>
;;; Copyright © 2019 Tanguy Le Carrour <tanguy@bioneland.org>
;;; Copyright © 2019, 2024 Tanguy Le Carrour <tanguy@bioneland.org>
;;; Copyright © 2020, 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2020, 2021 Greg Hogan <code@greghogan.com>
;;; Copyright © 2022 Philip McGrath <philip@philipmcgrath.com>
@ -596,6 +596,396 @@ data types.")
(variable "PYTHONTZPATH")
(files (list "share/zoneinfo")))))))
(define-public python-3.12
(package
(name "python-next")
(version "3.12.2")
(source
(origin
(method url-fetch)
(uri (string-append "https://www.python.org/ftp/python/" version
"/Python-" version ".tar.xz"))
(sha256
(base32 "0w6qyfhc912xxav9x9pifwca40b4l49vy52wai9j0gc1mhni2a5y"))
(patches (search-patches "python-3-deterministic-build-info.patch"
"python-3.12-fix-tests.patch"
"python-3-hurd-configure.patch"))
(modules '((guix build utils)))
(snippet '(begin
;; Delete the bundled copy of libexpat.
(delete-file-recursively "Modules/expat")
(substitute* "Modules/Setup"
;; Link Expat instead of embedding the bundled one.
(("^#pyexpat.*")
"pyexpat pyexpat.c -lexpat\n"))
;; Delete windows binaries
(for-each delete-file
(find-files "Lib/distutils/command" "\\.exe$"))))))
(outputs '("out" "tk" ;tkinter; adds 50 MiB to the closure
"idle")) ;programming environment; weighs 5MB
(build-system gnu-build-system)
(arguments
`(#:test-target "test"
#:configure-flags (list "--enable-shared" ;allow embedding
"--with-system-expat" ;for XML support
"--with-system-ffi" ;build ctypes
"--with-ensurepip=install" ;install pip and setuptools
"--with-computed-gotos" ;main interpreter loop optimization
"--enable-unicode=ucs4"
"--without-static-libpython"
;; FIXME: These flags makes Python significantly faster,
;; but leads to non-reproducible binaries.
;; "--with-lto" ;increase size by 20MB, but 15% speedup
;; "--enable-optimizations"
;; Prevent the installed _sysconfigdata.py from retaining
;; a reference to coreutils.
"INSTALL=install -c"
"MKDIR_P=mkdir -p"
;; Disable runtime check failing if cross-compiling, see:
;; https://lists.yoctoproject.org/pipermail/poky/2013-June/008997.html
,@(if (%current-target-system)
'("ac_cv_buggy_getaddrinfo=no"
"ac_cv_file__dev_ptmx=no"
"ac_cv_file__dev_ptc=no")
'())
;; -fno-semantic-interposition reinstates some
;; optimizations by gcc leading to around 15% speedup.
;; This is the default starting from python 3.10.
"CFLAGS=-fno-semantic-interposition"
(string-append "LDFLAGS=-Wl,-rpath="
(assoc-ref %outputs "out")
"/lib"
" -fno-semantic-interposition"))
;; With no -j argument tests use all available cpus, so provide one.
#:make-flags (list (string-append (format #f "TESTOPTS=-j~d"
(parallel-job-count))
;; those tests fail on low-memory systems
" --exclude"
" test_mmap"
" test_socket"
" test_threading"
" test_asyncio"
" test_shutdown"
,@(if (system-hurd?)
'(" test_posix" ;multiple errors
" test_time"
" test_pty"
" test_shutil"
" test_tempfile" ;chflags: invalid argument:
;; tbv14c9t/dir0/dir0/dir0/test0.txt
" test_os" ;stty: 'standard input':
;; Inappropriate ioctl for device
" test_openpty" ;No such file or directory
" test_selectors" ;assertEqual(NUM_FDS // 2, len(fds))
;; 32752 != 4
" test_compileall" ;multiple errors
" test_poll" ;list index out of range
" test_subprocess" ;runs over 10min
" test_asyncore" ;multiple errors
" test_threadsignals"
" test_eintr" ;Process return code is -14
" test_io" ;multiple errors
" test_logging"
" test_signal"
" test_flags" ;ERROR
" test_bidirectional_pty"
" test_create_unix_connection"
" test_unix_sock_client_ops"
" test_open_unix_connection"
" test_open_unix_connection_error"
" test_read_pty_output"
" test_write_pty"
" test_concurrent_futures" ;freeze
" test_venv" ;freeze
" test_multiprocessing_forkserver" ;runs over 10min
" test_multiprocessing_spawn" ;runs over 10min
" test_builtin"
" test_capi"
" test_dbm_ndbm"
" test_exceptions"
" test_faulthandler"
" test_getopt"
" test_importlib"
" test_json"
" test_multiprocessing_fork"
" test_multiprocessing_main_handling"
" test_pdb "
" test_regrtest"
" test_sqlite")
'())))
#:modules ((ice-9 ftw)
(ice-9 match)
(guix build utils)
(guix build gnu-build-system))
#:phases (modify-phases %standard-phases
,@(if (system-hurd?)
`((add-after 'unpack
'disable-multi-processing
(lambda _
(substitute* "Makefile.pre.in"
(("-j0")
"-j1")))))
'())
(add-before 'configure 'patch-lib-shells
(lambda _
;; This variable is used in setup.py to enable cross compilation
;; specific switches. As it is not set properly by configure
;; script, set it manually.
,@(if (%current-target-system)
'((setenv "_PYTHON_HOST_PLATFORM" ""))
'())
;; Filter for existing files, since some may not exist in all
;; versions of python that are built with this recipe.
(substitute* (filter file-exists?
'("Lib/subprocess.py"
"Lib/popen2.py"
"Lib/distutils/tests/test_spawn.py"
"Lib/test/support/__init__.py"
"Lib/test/test_subprocess.py"))
(("/bin/sh")
(which "sh")))))
(add-before 'configure 'do-not-record-configure-flags
(lambda* (#:key configure-flags #:allow-other-keys)
;; Remove configure flags from the installed '_sysconfigdata.py'
;; and 'Makefile' so we don't end up keeping references to the
;; build tools.
;;
;; Preserve at least '--with-system-ffi' since otherwise the
;; thing tries to build libffi, fails, and we end up with a
;; Python that lacks ctypes.
(substitute* "configure"
(("^CONFIG_ARGS=.*$")
(format #f "CONFIG_ARGS='~a'\n"
(if (member "--with-system-ffi"
configure-flags)
"--with-system-ffi" ""))))))
(add-before 'check 'pre-check
(lambda _
;; 'Lib/test/test_site.py' needs a valid $HOME
(setenv "HOME"
(getcwd))))
(add-after 'unpack 'set-source-file-times-to-1980
;; XXX One of the tests uses a ZIP library to pack up some of the
;; source tree, and fails with "ZIP does not support timestamps
;; before 1980". Work around this by setting the file times in the
;; source tree to sometime in early 1980.
(lambda _
(let ((circa-1980 (* 10 366 24 60 60)))
(ftw "."
(lambda (file stat flag)
(utime file circa-1980 circa-1980) #t)))))
(add-after 'unpack 'remove-windows-binaries
(lambda _
;; Delete .exe from embedded .whl (zip) files
(for-each (lambda (whl)
(let ((dir "whl-content")
(circa-1980 (* 10 366 24 60 60)))
(mkdir-p dir)
(with-directory-excursion dir
(let ((whl (string-append "../" whl)))
(invoke "unzip" whl)
(for-each delete-file
(find-files "." "\\.exe$"))
(delete-file whl)
;; Reset timestamps to prevent them from ending
;; up in the Zip archive.
(ftw "."
(lambda (file stat flag)
(utime file circa-1980
circa-1980) #t))
(apply invoke "zip" "-X" whl
(find-files "."
#:directories? #t))))
(delete-file-recursively dir)))
(find-files "Lib/ensurepip" "\\.whl$"))))
(add-after 'install 'remove-tests
;; Remove 25 MiB of unneeded unit tests. Keep test_support.*
;; because these files are used by some libraries out there.
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(match (scandir (string-append out "/lib")
(lambda (name)
(string-prefix? "python" name)))
((pythonX.Y)
(let ((testdir (string-append out "/lib/" pythonX.Y
"/test")))
(with-directory-excursion testdir
(for-each delete-file-recursively
(scandir testdir
(match-lambda
((or "." "..")
#f)
("support" #f)
(file (not (string-prefix?
"test_support."
file))))))
(call-with-output-file "__init__.py"
(const #t))))
(let ((libdir (string-append out "/lib/" pythonX.Y)))
(for-each (lambda (directory)
(let ((dir (string-append libdir "/"
directory)))
(when (file-exists? dir)
(delete-file-recursively dir))))
'("email/test" "ctypes/test"
"unittest/test"
"tkinter/test"
"sqlite3/test"
"bsddb/test"
"lib-tk/test"
"json/tests"
"distutils/tests"))))))))
(add-after 'remove-tests 'move-tk-inter
(lambda* (#:key outputs inputs #:allow-other-keys)
;; When Tkinter support is built move it to a separate output so
;; that the main output doesn't contain a reference to Tcl/Tk.
(let ((out (assoc-ref outputs "out"))
(tk (assoc-ref outputs "tk")))
(when tk
(match (find-files out "tkinter.*\\.so")
((tkinter.so)
;; The .so is in OUT/lib/pythonX.Y/lib-dynload, but we
;; want it under TK/lib/pythonX.Y/site-packages.
(let* ((len (string-length out))
(target (string-append tk "/"
(string-drop (dirname
(dirname
tkinter.so))
len)
"/site-packages")))
(install-file tkinter.so target)
(delete-file tkinter.so))))
;; Remove explicit store path references.
(let ((tcl (assoc-ref inputs "tcl"))
(tk (assoc-ref inputs "tk")))
(substitute* (find-files (string-append out "/lib")
"^(_sysconfigdata_.*\\.py|Makefile)$")
(((string-append "-L" tk "/lib"))
"")
(((string-append "-L" tcl "/lib"))
"")))))))
(add-after 'move-tk-inter 'move-idle
(lambda* (#:key outputs #:allow-other-keys)
;; when idle is built, move it to a separate output to save some
;; space (5MB)
(let ((out (assoc-ref outputs "out"))
(idle (assoc-ref outputs "idle")))
(when idle
(for-each (lambda (file)
(let ((target (string-append idle
"/bin/"
(basename
file))))
(install-file file
(dirname target))
(delete-file file)))
(find-files (string-append out "/bin")
"^idle"))
(match (find-files out "^idlelib$"
#:directories? #t)
((idlelib)
(let* ((len (string-length out))
(target (string-append idle "/"
(string-drop
idlelib len)
"/site-packages")))
(mkdir-p (dirname target))
(rename-file idlelib target))))))))
(add-after 'move-idle 'rebuild-bytecode
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
;; Disable hash randomization to ensure the generated .pycs
;; are reproducible.
(setenv "PYTHONHASHSEED" "0")
(for-each (lambda (output)
;; XXX: Delete existing pycs generated by the build
;; system beforehand because the -f argument does
;; not necessarily overwrite all files, leading to
;; indeterministic results.
(for-each (lambda (pyc)
(delete-file pyc))
(find-files output "\\.pyc$"))
(apply invoke
`(,,(if (%current-target-system)
"python3"
'(string-append out
"/bin/python3")) "-m"
"compileall"
"-o"
"0"
"-o"
"1"
"-o"
"2"
"-f" ;force rebuild
"--invalidation-mode=unchecked-hash"
;; Don't build lib2to3, because it's
;; Python 2 code.
"-x"
"lib2to3/.*"
,output)))
(map cdr outputs)))))
(add-before 'check 'set-TZDIR
(lambda* (#:key inputs native-inputs #:allow-other-keys)
;; test_email requires the Olson time zone database.
(setenv "TZDIR"
(string-append (assoc-ref (or native-inputs
inputs) "tzdata")
"/share/zoneinfo"))))
(add-after 'install 'install-sitecustomize.py
,(customize-site version)))))
(inputs (list bzip2
expat
gdbm
libffi ;for ctypes
sqlite ;for sqlite extension
openssl
readline
zlib
tcl
tk)) ;for tkinter
(native-inputs `(("tzdata" ,tzdata-for-tests)
("unzip" ,unzip)
("zip" ,(@ (gnu packages compression) zip))
("pkg-config" ,pkg-config)
("sitecustomize.py" ,(local-file (search-auxiliary-file
"python/sitecustomize.py")))
;; When cross-compiling, a native version of Python itself is needed.
,@(if (%current-target-system)
`(("python" ,this-package)
("which" ,which))
'())))
(native-search-paths
(list (guix-pythonpath-search-path version)
;; Used to locate tzdata by the zoneinfo module introduced in
;; Python 3.9.
(search-path-specification
(variable "PYTHONTZPATH")
(files (list "share/zoneinfo")))))
(home-page "https://www.python.org")
(synopsis "High-level, dynamically-typed programming language")
(description
"Python is a remarkably powerful dynamic programming language that
is used in a wide variety of application domains. Some of its key
distinguishing features include: clear, readable syntax; strong
introspection capabilities; intuitive object orientation; natural
expression of procedural code; full modularity, supporting hierarchical
packages; exception-based error handling; and very high level dynamic
data types.")
(properties '((cpe-name . "python")))
(license license:psfl)))
;; Next 3.x version.
(define-public python-next python-3.12)
;; Current 3.x version.
(define-public python-3 python-3.10)

60
gnu/packages/qt.scm
View File

@ -218,14 +218,14 @@ of C++20 coroutines in connection with certain asynchronous Qt actions.")
(define-public qt5ct
(package
(name "qt5ct")
(version "1.5")
(version "1.8")
(source
(origin
(method url-fetch)
(uri
(string-append "mirror://sourceforge/qt5ct/qt5ct-" version ".tar.bz2"))
(sha256
(base32 "14742vs32m98nbfb5mad0i8ciff5f45gfcb5v03p4hh2dvhhqgfn"))))
(base32 "1s88v3x5vxrz981jiqb9cnwak0shz6kgjbkp511i592y85a41dr3"))))
(build-system qt-build-system)
(arguments
(list
@ -2171,7 +2171,18 @@ plugin for Adobe After Effects.")
"1bkx2sc5hyldarc7w76ymv7dlcna3ib9r2kp67jdqcf856bnrx36"))))
(arguments
(substitute-keyword-arguments (package-arguments qtsvg-5)
((#:tests? _ #f) #f))) ; TODO: Enable the tests
((#:tests? _ #f) #f) ; TODO: Enable the tests
((#:phases phases '%standard-phases)
#~(modify-phases #$phases
(add-after 'unpack 'patch-qmake
(lambda* (#:key inputs #:allow-other-keys)
;; Adjust the default location of the 'qmake' command known to
;; the 'lprodump' command, which would otherwise look for it
;; in its own bindir.
(substitute* "src/linguist/lprodump/main.cpp"
(("app.applicationDirPath\\() \\+ QLatin1String\\(\"/qmake\")")
(format #f "QLatin1String(~s)"
(search-input-file inputs "bin/qmake"))))))))))
(native-inputs (list perl qtdeclarative-5 vulkan-headers))
(inputs (list mesa qtbase-5))
(synopsis "Qt Tools and Designer modules")
@ -2349,7 +2360,7 @@ control equipment. The module provides both QML and C++ interfaces. The
primary target audience are embedded devices with fullscreen user interfaces,
and mobile applications targeting TV-like form factors.")))
(define-public qtscxml
(define-public qtscxml-5
(package
(inherit qtsvg-5)
(name "qtscxml")
@ -2377,6 +2388,45 @@ machines (loading the SCXML file and instantiating states and transitions) and
generating a C++ file that has a class implementing the state machine. It
also contains functionality to support data models and executable content.")))
(define-public qtscxml
(package
(name "qtscxml")
(version "6.5.2")
(source (origin
(method url-fetch)
(uri (qt-url name version))
(sha256
(base32
"1jxx9p7zi40r990ky991xd43mv6i8hdpnj2fhl7sf4q9fpng4c58"))
(modules '((guix build utils)))
(snippet
'(begin
(delete-file-recursively "tests/3rdparty")))))
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(delete 'check) ;move after the install phase
(add-after 'install 'check
(assoc-ref %standard-phases 'check))
(add-before 'check 'check-setup
(lambda _
(setenv "ARGS" "-E tst_scion")
(setenv "QT_QPA_PLATFORM" "offscreen")
(setenv "QML2_IMPORT_PATH"
(string-append #$output "/lib/qt6/qml:"
(getenv "QML2_IMPORT_PATH"))))))))
(build-system cmake-build-system)
(inputs (list qtbase qtdeclarative libxkbcommon))
(synopsis "Qt SCXML module")
(description "The Qt SCXML module provides functionality to create state
machines from SCXML files. This includes both dynamically creating state
machines (loading the SCXML file and instantiating states and transitions) and
generating a C++ file that has a class implementing the state machine. It
also contains functionality to support data models and executable content.")
(home-page (package-home-page qtbase))
(license (package-license qtbase))))
(define-public qtpositioning
(package
(name "qtpositioning")
@ -4486,7 +4536,7 @@ color-related widgets.")
qtquickcontrols-5
qtquickcontrols2-5
qtscript
qtscxml
qtscxml-5
qtsensors
qtspeech
qtsvg-5

6
gnu/packages/raspberry-pi.scm
View File

@ -85,7 +85,7 @@ used in the Raspberry Pi")
(supported-systems '("armhf-linux" "aarch64-linux"))
(license license:gpl3)))
(define raspi-gpio
(define-public raspi-gpio
(let ((commit "6d0769ac04760b6e9f33b4aa1f11c682237bf368")
(revision "1"))
(package
@ -466,7 +466,7 @@ secondary LCD display connected to the Raspberry Pi board.")
(define-public rpi-imager
(package
(name "rpi-imager")
(version "1.7.5")
(version "1.8.5")
(source (origin
(method git-fetch)
(uri (git-reference
@ -489,7 +489,7 @@ secondary LCD display connected to the Raspberry Pi board.")
(cut member <> keep)))))))
(sha256
(base32
"0c5qsqh7drvf76hc75m2cp7bf44w7gwbmhgaqjrl5qwb6pbqf7y8"))))
"1jr4w9h0bvqpy4r1g22n7b07zpplmc318v4lcfvh70c0rhl2vfi6"))))
(build-system qt-build-system)
(arguments
(list

39
gnu/packages/rdf.scm
View File

@ -367,45 +367,6 @@ powerful language for representing information.")
(license (license:non-copyleft "file://LICENSE"
"See LICENSE in the distribution."))))
(define-public python-rdflib-5
(package
(inherit python-rdflib)
(version "5.0.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "rdflib" version))
(sha256
(base32
"0mdi7xh4zcr3ngqwlgqdqf0i5bxghwfddyxdng1zwpiqkpa9s53q"))))
;; XXX: Lazily disable tests because they require a lot of work
;; and this package is only transitional.
(arguments '(#:tests? #f))))
;; Note: This package is only needed for rdflib < 6.0; supersede when
;; the above are removed.
(define-public python-rdflib-jsonld
(package
(name "python-rdflib-jsonld")
(version "0.6.2")
(source
(origin
(method url-fetch)
(uri (pypi-uri "rdflib-jsonld" version))
(sha256
(base32
"0qrshlqzv5g5bign7kjja3xf7hyk7xgayr3yd0qlqda1kl0x6z0h"))))
(build-system python-build-system)
(native-inputs
(list python-nose))
(propagated-inputs
(list python-rdflib))
(home-page "https://github.com/RDFLib/rdflib-jsonld")
(synopsis "rdflib extension adding JSON-LD parser and serializer")
(description "This package provides an rdflib extension adding JSON-LD
parser and serializer.")
(license license:bsd-3)))
(define-public python-cfgraph
(package
(name "python-cfgraph")

18
gnu/packages/ruby.scm
View File

@ -7,7 +7,7 @@
;;; Copyright © 2015, 2016, 2017 Ben Woodcroft <donttrustben@gmail.com>
;;; Copyright © 2017 Nikita <nikita@n0.is>
;;; Copyright © 2017, 2019-2022 Marius Bakke <marius@gnu.org>
;;; Copyright © 2017-2023 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017-2024 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017, 2018, 2020, 2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2017, 2018, 2019 Christopher Baines <mail@cbaines.net>
@ -34,7 +34,7 @@
;;; Copyright © 2023 Yovan Naumovski <yovan@gorski.stream>
;;; Copyright © 2023 gemmaro <gemmaro.dev@gmail.com>
;;; Copyright © 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2023 Zheng Junjie <873216071@qq.com>
;;; Copyright © 2023, 2024 Zheng Junjie <873216071@qq.com>
;;; Copyright © 2023, 2024 Hartmut Goebel <h.goebel@crazy-compilers.com>
;;;
;;; This file is part of GNU Guix.
@ -3258,7 +3258,10 @@ error streams.")
(file-name (git-file-name name version))
(sha256
(base32
"1g0311ly32f6hfn4q5fvkbjbl2bhv1l9fx6s0kglxfsrwq51926y"))))
"1g0311ly32f6hfn4q5fvkbjbl2bhv1l9fx6s0kglxfsrwq51926y"))
(patches
(search-patches
"ruby-x25519-automatic-fallback-non-x86_64.patch"))))
(build-system ruby-build-system)
(arguments
(list #:test-target "spec"
@ -9846,13 +9849,13 @@ navigation capabilities to @code{pry}, using @code{byebug}.")
(define-public ruby-stackprof
(package
(name "ruby-stackprof")
(version "0.2.25")
(version "0.2.26")
(source
(origin
(method url-fetch)
(uri (rubygems-uri "stackprof" version))
(sha256
(base32 "0bhdgfb0pmw9mav1kw9fn0ka012sa0i3h5ppvqssw5xq48nhxnr8"))))
(base32 "1gdqqwnampxmc54nf6zfy9apkmkpdavzipvfssmjlhnrrjy8qh7f"))))
(build-system ruby-build-system)
(arguments
(list
@ -9872,7 +9875,10 @@ navigation capabilities to @code{pry}, using @code{byebug}.")
(("def test_(cputime)" _ name)
(string-append "def skip_" name))
;; This test often fails
(("def test_gc") "def skip_test_gc"))))
(("def test_gc") "def skip_test_gc")
;; This test is known to fail on 32-bit systems.
;; /gnu/store/w8y8wm82by1cnp33n5vy976wbrns9jys-stackprof-0.2.26.gem
(("def test_raw") "def skip_test_raw"))))
(add-before 'check 'build-tests
(lambda _
(invoke "rake" "compile")))

203
gnu/packages/rust-apps.scm
View File

@ -84,6 +84,7 @@
#:use-module (gnu packages jemalloc)
#:use-module (gnu packages kde)
#:use-module (gnu packages linux)
#:use-module (gnu packages llvm)
#:use-module (gnu packages networking)
#:use-module (gnu packages shells)
#:use-module (gnu packages ssh)
@ -1782,39 +1783,8 @@ by modifying your @file{Cargo.toml} file from the command line.")
rebase.")
(license license:gpl3+)))
(define-public rust-cbindgen
(package
(name "rust-cbindgen")
(version "0.13.2")
(source
(origin
(method url-fetch)
(uri (crate-uri "cbindgen" version))
(file-name (string-append name "-" version ".tar.xz"))
(sha256
(base32
"0673pq96hs7waavkv58v2pakpxpsfyjvbraa5kyl2b44phgdzcid"))))
(build-system cargo-build-system)
(arguments
`(#:cargo-inputs
(("clap" ,rust-clap-2)
("log" ,rust-log-0.4)
("proc-macro2" ,rust-proc-macro2-1)
("quote" ,rust-quote-1)
("serde" ,rust-serde-1)
("serde-json" ,rust-serde-json-1)
("syn" ,rust-syn-1)
("tempfile" ,rust-tempfile-3)
("toml" ,rust-toml-0.5))))
(home-page "https://github.com/eqrion/cbindgen/")
(synopsis "Tool for generating C bindings to Rust code")
(description
"This package provides a tool for generating C/C++ bindings to Rust code.")
(license license:mpl2.0)))
(define-public rust-cbindgen-0.26
(package
(inherit rust-cbindgen)
(name "rust-cbindgen")
(version "0.26.0")
(source
@ -1824,6 +1794,7 @@ rebase.")
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "0jdbxmn5h5nlr4bifx85gny309djv5djs9q78fa1d7sj0wdw2sys"))))
(build-system cargo-build-system)
(arguments
`(#:cargo-inputs (("rust-clap" ,rust-clap-3)
("rust-heck" ,rust-heck-0.4)
@ -1837,7 +1808,12 @@ rebase.")
("rust-tempfile" ,rust-tempfile-3)
("rust-toml" ,rust-toml-0.5))
#:cargo-development-inputs (("rust-serial-test" ,rust-serial-test-0.5))))
(native-inputs (list python-cython))))
(native-inputs (list python-cython))
(home-page "https://github.com/eqrion/cbindgen/")
(synopsis "Tool for generating C bindings to Rust code")
(description
"This package provides a tool for generating C/C++ bindings to Rust code.")
(license license:mpl2.0)))
(define-public rust-cbindgen-0.24
(package
@ -1865,6 +1841,69 @@ rebase.")
(base32
"006rn3fn4njayjxr2vd24g1awssr9i3894nbmfzkybx07j728vav"))))))
(define-public rust-cbindgen rust-cbindgen-0.26)
(define-public rust-bindgen-cli
(package
(name "rust-bindgen-cli")
(version "0.69.4")
(source
(origin
(method url-fetch)
(uri (crate-uri "bindgen-cli" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "00dfny07m4xfnqbfn7yr7cqwilj6935lbyg5d39yxjfj8jglfcax"))))
(build-system cargo-build-system)
(arguments
`(#:install-source? #f
#:cargo-inputs (("rust-bindgen" ,rust-bindgen-0.69)
("rust-clap" ,rust-clap-4)
("rust-clap-complete" ,rust-clap-complete-4)
("rust-env-logger" ,rust-env-logger-0.10)
("rust-log" ,rust-log-0.4)
("rust-shlex" ,rust-shlex-1))
#:phases
(modify-phases %standard-phases
(replace 'install
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((bin (string-append (assoc-ref outputs "out") "/bin"))
(bindgen (string-append bin "/bindgen"))
(llvm-dir (string-append
(assoc-ref inputs "clang") "/lib")))
(install-file "target/release/bindgen" bin)
(wrap-program bindgen
`("LIBCLANG_PATH" = (,llvm-dir))))))
(add-after 'install 'install-completions
(lambda* (#:key native-inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(share (string-append out "/share"))
(bindgen (string-append out "/bin/bindgen")))
(mkdir-p (string-append share "/bash-completion/completions"))
(with-output-to-file
(string-append share "/bash-completion/completions/bindgen")
(lambda _ (invoke bindgen "--generate-shell-completions" "bash")))
(mkdir-p (string-append share "/fish/vendor_completions.d"))
(with-output-to-file
(string-append share "/fish/vendor_completions.d/bindgen.fish")
(lambda _ (invoke bindgen "--generate-shell-completions" "fish")))
(mkdir-p (string-append share "/zsh/site-functions"))
(with-output-to-file
(string-append share "/zsh/site-functions/_bindgen")
(lambda _ (invoke bindgen "--generate-shell-completions" "zsh")))
(mkdir-p (string-append share "/elvish/lib"))
(with-output-to-file
(string-append share "/elvish/lib/bindgen")
(lambda _
(invoke bindgen "--generate-shell-completions" "elvish")))))))))
(inputs (list bash-minimal clang))
(home-page "https://rust-lang.github.io/rust-bindgen/")
(synopsis "Generate Rust FFI bindings to C and C++ libraries")
(description "This package can be used to automatically generate Rust FFI
bindings to C and C++ libraries. This package provides the @command{bindgen}
command.")
(license license:bsd-3)))
(define-public sniffglue
(package
(name "sniffglue")
@ -2361,7 +2400,105 @@ work. This allows the client to be used in a much simpler way, with the
background agent taking care of maintaining the necessary state.")
(license license:expat)))
;;; Note: keep in sync with our current Rust/Cargo version.
;; Note: Keep rust-cargo and rust-cargo-c in sync with our current
;; rust:cargo version.
(define-public rust-cargo
(package
(name "rust-cargo")
(version "0.76.0")
(source
(origin
(method url-fetch)
(uri (crate-uri "cargo" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "14yjyvj9bl6mlzx6bbi3igflgdrx1hil9ifnf1dl9xnm4mb2gjw6"))))
(build-system cargo-build-system)
(arguments
`(#:tests? #f ; unresolved import `cargo_test_support`
#:cargo-inputs
(("rust-anstream" ,rust-anstream-0.6)
("rust-anstyle" ,rust-anstyle-1)
("rust-anyhow" ,rust-anyhow-1)
("rust-base64" ,rust-base64-0.21)
("rust-bytesize" ,rust-bytesize-1)
("rust-cargo-credential" ,rust-cargo-credential-0.4)
("rust-cargo-credential-libsecret" ,rust-cargo-credential-libsecret-0.4)
("rust-cargo-credential-macos-keychain" ,rust-cargo-credential-macos-keychain-0.4)
("rust-cargo-credential-wincred" ,rust-cargo-credential-wincred-0.4)
("rust-cargo-platform" ,rust-cargo-platform-0.1)
("rust-cargo-util" ,rust-cargo-util-0.2)
("rust-clap" ,rust-clap-4)
("rust-color-print" ,rust-color-print-0.3)
("rust-crates-io" ,rust-crates-io-0.39)
("rust-curl" ,rust-curl-0.4)
("rust-curl-sys" ,rust-curl-sys-0.4)
("rust-filetime" ,rust-filetime-0.2)
("rust-flate2" ,rust-flate2-1)
("rust-flate2" ,rust-flate2-1)
("rust-git2" ,rust-git2-0.18)
("rust-git2-curl" ,rust-git2-curl-0.19)
("rust-gix" ,rust-gix-0.55)
("rust-gix-features" ,rust-gix-features-0.35)
("rust-glob" ,rust-glob-0.3)
("rust-hex" ,rust-hex-0.4)
("rust-hmac" ,rust-hmac-0.12)
("rust-home" ,rust-home-0.5)
("rust-http-auth" ,rust-http-auth-0.1)
("rust-humantime" ,rust-humantime-2)
("rust-ignore" ,rust-ignore-0.4)
("rust-im-rc" ,rust-im-rc-15)
("rust-indexmap" ,rust-indexmap-2)
("rust-itertools" ,rust-itertools-0.11)
("rust-jobserver" ,rust-jobserver-0.1)
("rust-lazycell" ,rust-lazycell-1)
("rust-libc" ,rust-libc-0.2)
("rust-libgit2-sys" ,rust-libgit2-sys-0.16)
("rust-memchr" ,rust-memchr-2)
("rust-opener" ,rust-opener-0.6)
("rust-openssl" ,rust-openssl-0.10)
("rust-os-info" ,rust-os-info-3)
("rust-pasetors" ,rust-pasetors-0.6)
("rust-pathdiff" ,rust-pathdiff-0.2)
("rust-pulldown-cmark" ,rust-pulldown-cmark-0.9)
("rust-rand" ,rust-rand-0.8)
("rust-rustfix" ,rust-rustfix-0.6)
("rust-semver" ,rust-semver-1)
("rust-serde" ,rust-serde-1)
("rust-serde-untagged" ,rust-serde-untagged-0.1)
("rust-serde-value" ,rust-serde-value-0.7)
("rust-serde-ignored" ,rust-serde-ignored-0.1)
("rust-serde-json" ,rust-serde-json-1)
("rust-sha1" ,rust-sha1-0.10)
("rust-shell-escape" ,rust-shell-escape-0.1)
("rust-supports-hyperlinks" ,rust-supports-hyperlinks-2)
("rust-syn" ,rust-syn-2)
("rust-tar" ,rust-tar-0.4)
("rust-tar" ,rust-tar-0.4)
("rust-tempfile" ,rust-tempfile-3)
("rust-time" ,rust-time-0.3)
("rust-toml" ,rust-toml-0.8)
("rust-toml-edit" ,rust-toml-edit-0.20)
("rust-tracing" ,rust-tracing-0.1)
("rust-tracing-subscriber" ,rust-tracing-subscriber-0.3)
("rust-unicase" ,rust-unicase-2)
("rust-unicode-width" ,rust-unicode-width-0.1)
("rust-unicode-xid" ,rust-unicode-xid-0.2)
("rust-url" ,rust-url-2)
("rust-walkdir" ,rust-walkdir-2)
("rust-windows-sys" ,rust-windows-sys-0.48))
#:cargo-development-inputs (("rust-same-file" ,rust-same-file-1)
("rust-snapbox" ,rust-snapbox-0.4))))
(native-inputs
(list pkg-config))
(inputs
(list curl libssh2 libgit2-1.7 openssl zlib))
(home-page "https://crates.io")
(synopsis "Package manager for Rust")
(description "Cargo, a package manager for Rust. This package provides
the library crate of Cargo.")
(license (list license:expat license:asl2.0))))
(define-public rust-cargo-c
(package
(name "rust-cargo-c")

9
gnu/packages/rust.scm
View File

@ -49,6 +49,7 @@
#:use-module (gnu packages libffi)
#:use-module (gnu packages linux)
#:use-module (gnu packages llvm)
#:use-module (gnu packages llvm-meta)
#:use-module (gnu packages mingw)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages python)
@ -905,7 +906,7 @@ safety and thread safety guarantees.")
(("features = \\[\"fs\"" all)
(string-append all ", \"use-libc\""))))))))))
(define rust-1.74
(define-public rust-1.74
(let ((base-rust (rust-bootstrapped-package rust-1.73 "1.74.1"
"07930r17dkj3dnsrmilywb6p9i2g2jx56ndfpa2wh8crzhi3xnv7")))
(package
@ -937,7 +938,7 @@ safety and thread safety guarantees.")
(delete 'revert-riscv-pause-instruction))))
(package-arguments base-rust))))))
(define rust-1.75
(define-public rust-1.75
(let ((base-rust (rust-bootstrapped-package rust-1.74 "1.75.0"
"1260mf3066ki6y55pvr35lnf54am6z96a3ap3hniwd4xpi2rywsv")))
(package
@ -964,7 +965,9 @@ safety and thread safety guarantees.")
(let ((base-rust rust-1.75))
(package
(inherit base-rust)
(properties (alist-delete 'hidden? (package-properties base-rust)))
(properties (append
(alist-delete 'hidden? (package-properties base-rust))
(clang-compiler-cpu-architectures "15")))
(outputs (cons* "rust-src" "tools" (package-outputs base-rust)))
(source
(origin

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