me/guix
Archived
1
0
Fork 0
Code Activity

Merge remote-tracking branch 'origin/master' into staging.

Browse source 
With resolved conflicts in:
	gnu/packages/ibus.scm
	gnu/packages/image.scm
	gnu/packages/lisp.scm
	gnu/packages/virtualization.scm
This commit is contained in:
Maxim Cournoyer 2023-03-23 21:45:21 -04:00
commit 839bb4616f
No known key found for this signature in database
GPG key ID: 1260E46482E63562
599 changed files with 326965 additions and 238699 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
.dir-locals.el
View file

@ -43,7 +43,7 @@
;; Hence the following "when", which might otherwise be unnecessary;
;; it prevents causing an error when root-dir-unexpanded is nil.
(when root-dir-unexpanded
(let* ((root-dir (expand-file-name root-dir-unexpanded))
(let* ((root-dir (file-local-name (expand-file-name root-dir-unexpanded)))
;; Workaround for bug https://issues.guix.gnu.org/43818.
(root-dir* (directory-file-name root-dir)))
@ -72,6 +72,9 @@
(eval . (put 'substitute* 'scheme-indent-function 1))
(eval . (put 'match-record 'scheme-indent-function 2))
;; TODO: Contribute these to Emacs' scheme-mode.
(eval . (put 'let-keywords 'scheme-indent-function 3))
;; 'modify-inputs' and its keywords.
(eval . (put 'modify-inputs 'scheme-indent-function 1))
(eval . (put 'replace 'scheme-indent-function 1))
@ -94,8 +97,6 @@
(eval . (put 'origin 'scheme-indent-function 0))
(eval . (put 'build-system 'scheme-indent-function 0))
(eval . (put 'bag 'scheme-indent-function 0))
(eval . (put 'computed-file 'scheme-indent-function 1))
(eval . (put 'gexp->derivation 'scheme-indent-function 1))
(eval . (put 'graft 'scheme-indent-function 0))
(eval . (put 'operating-system 'scheme-indent-function 0))
(eval . (put 'file-system 'scheme-indent-function 0))

1
.patman
View file

@ -8,3 +8,4 @@ add_signoff: False
get_maintainer_script: etc/teams.scm get-maintainer
# TODO: enable check_patch
check_patch: False
ignore_bad_tags: True

8
Makefile.am
View file

@ -111,6 +111,7 @@ MODULES = \
guix/derivations.scm \
guix/grafts.scm \
guix/repl.scm \
guix/rpm.scm \
guix/transformations.scm \
guix/inferior.scm \
guix/describe.scm \
@ -178,6 +179,7 @@ MODULES = \
guix/build-system/ruby.scm \
guix/build-system/scons.scm \
guix/build-system/texlive.scm \
guix/build-system/tree-sitter.scm \
guix/build-system/trivial.scm \
guix/ftp-client.scm \
guix/http-client.scm \
@ -234,6 +236,7 @@ MODULES = \
guix/build/ruby-build-system.scm \
guix/build/scons-build-system.scm \
guix/build/texlive-build-system.scm \
guix/build/tree-sitter-build-system.scm \
guix/build/waf-build-system.scm \
guix/build/haskell-build-system.scm \
guix/build/julia-build-system.scm \
@ -401,6 +404,10 @@ AUX_FILES = \
gnu/packages/aux-files/chromium/master-preferences.json \
gnu/packages/aux-files/emacs/guix-emacs.el \
gnu/packages/aux-files/guix.vim \
gnu/packages/aux-files/linux-libre/6.2-arm.conf \
gnu/packages/aux-files/linux-libre/6.2-arm64.conf \
gnu/packages/aux-files/linux-libre/6.2-i686.conf \
gnu/packages/aux-files/linux-libre/6.2-x86_64.conf \
gnu/packages/aux-files/linux-libre/6.1-arm.conf \
gnu/packages/aux-files/linux-libre/6.1-arm64.conf \
gnu/packages/aux-files/linux-libre/6.1-i686.conf \
@ -533,6 +540,7 @@ SCM_TESTS = \
tests/pypi.scm \
tests/read-print.scm \
tests/records.scm \
tests/rpm.scm \
tests/scripts.scm \
tests/search-paths.scm \
tests/services.scm \

12
doc/contributing.texi
View file

@ -1170,6 +1170,16 @@ Please write commit logs in the ChangeLog format (@pxref{Change Logs,,,
standards, GNU Coding Standards}); you can check the commit history for
examples.
You can help make the review process more efficient, and increase the
chance that your patch will be reviewed quickly, by describing the
context of your patch and the impact you expect it to have. For
example, if your patch is fixing something that is broken, describe the
problem and how your patch fixes it. Tell us how you have tested your
patch. Will users of the code changed by your patch have to adjust
their workflow at all? If so, tell us how. In general, try to imagine
what questions a reviewer will ask, and answer those questions in
advance.
Before submitting a patch that adds or modifies a package definition,
please run through this check list:
@ -1478,7 +1488,7 @@ Due to an apparent bug in @command{git send-email},
@end quotation
You can find out @var{ISSUE_NUMBER} either by searching on the mumi
interface at @url{issues.guix.gnu.org} for the name of your patch or
interface at @url{https://issues.guix.gnu.org} for the name of your patch or
reading the acknowledgement email sent automatically by Debbugs in
reply to incoming bugs and patches, which contains the bug number.

2120
doc/guix.texi
View file

File diff suppressed because it is too large Load diff

25
etc/guix-install.sh
View file

@ -29,6 +29,22 @@
# We require Bash but for portability we'd rather not use /bin/bash or
# /usr/bin/env in the shebang, hence this hack.
# Environment variables
#
# GUIX_BINARY_FILE_NAME
#
# Can be used to override the automatic download mechanism and point
# to a local Guix binary archive filename like
# "/tmp/guix-binary-1.4.0rc2.armhf-linux.tar.xz"
#
# GUIX_ALLOW_OVERWRITE
#
# Instead of aborting to avoid overwriting a previous installations,
# allow copying over /var/guix or /gnu. This can be useful when the
# installation required the user to extract Guix packs under /gnu to
# satisfy its dependencies.
if [ "x$BASH_VERSION" = "x" ]
then
exec bash "$0" "$@"
@ -336,16 +352,15 @@ sys_create_store()
_debug "--- [ ${FUNCNAME[0]} ] ---"
if [[ -e "/var/guix" || -e "/gnu" ]]; then
if [[ -z $GUIX_ALLOW_OVERWRITE && (-e /var/guix || -e /gnu) ]]; then
die "A previous Guix installation was found. Refusing to overwrite."
else
_msg "${WAR}Overwriting existing installation!"
fi
cd "$tmp_path"
tar --extract --file "$pkg" && _msg "${PAS}unpacked archive"
_msg "${INF}Installing /var/guix and /gnu..."
mv "${tmp_path}/var/guix" /var/
mv "${tmp_path}/gnu" /
tar --extract --file "$pkg" -C /
_msg "${INF}Linking the root user's profile"
mkdir -p ~root/.config/guix

61
etc/news.scm
View file

@ -4,12 +4,12 @@
;; 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>
;; Copyright © 2019, 2020, 2021 Julien Lepiller <julien@lepiller.eu>
;; Copyright © 2019, 2020, 2021, 2023 Julien Lepiller <julien@lepiller.eu>
;; Copyright © 2019–2023 Florian Pelz <pelzflorian@pelzflorian.de>
;; Copyright © 2020, 2022 Marius Bakke <marius@gnu.org>
;; Copyright © 2020, 2021 Mathieu Othacehe <m.othacehe@gmail.com>
;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;; Copyright © 2020, 2021, 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;; Copyright © 2020, 2021, 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;; Copyright © 2021 Leo Famulari <leo@famulari.name>
;; Copyright © 2021 Zhu Zihao <all_but_last@163.com>
;; Copyright © 2021 Chris Marusich <cmmarusich@gmail.com>
@ -26,6 +26,63 @@
(channel-news
(version 0)
(entry (commit "0e18c5e5bcb9204c278cfc75493d3b02b746d5c3")
(title
(en "Linux-libre kernel updated to 6.2")
(de "Linux-libre-Kernel wird auf 6.2 aktualisiert")
(fr "Le noyau linux-libre est mis à jour vers la 6.2")
(pt "Kernel linux-libre atualizado para 6.2"))
(body
(en "The default version of the linux-libre kernel has been updated to
the 6.2 release series.")
(de "Der standardmäßig verwendete @code{linux-libre}-Kernel basiert
jetzt auf der 6.2-Versionsreihe.")
(fr "La version par défaut du noyau linux-libre est mise à jour
vers la série des 6.2.")
(pt "A versão padrão do kernel linux-libre foi atualizada para a
série do kernel 6.2.")))
(entry (commit "598f4c509bbfec2b983a8ee246cce0a0fe45ec7f")
(title
(de "Neues Format @samp{rpm} für den Befehl @command{guix pack}")
(en "New @samp{rpm} format for the @command{guix pack} command")
(fr "Nouveau format @samp{rpm} pour la commande @command{guix pack}"))
(body
(de "Sie können jetzt auch RPM-Archive (mit der Dateinamenserweiterung
.rpm) erzeugen mit dem Befehl @command{guix pack --format=rpm}. Damit
haben Sie einen alternativen Distributionsweg für mit Guix erstellte
Software. Hier sehen Sie ein einfaches Beispiel, wie Sie ein
RPM-Archiv für das Paket @code{hello} erzeugen:
@example
guix pack --format=rpm --symlink=/usr/bin/hello=bin/hello hello
@end example
Siehe @command{info \"(guix.de) Aufruf von guix pack\"} für mehr
Informationen.")
(en "RPM archives (with the .rpm file extension) can now be produced
via the @command{guix pack --format=rpm} command, providing an alternative
distribution path for software built with Guix. Here is a simple example that
generates an RPM archive for the @code{hello} package:
@example
guix pack --format=rpm --symlink=/usr/bin/hello=bin/hello hello
@end example
See @command{info \"(guix) Invoking guix pack\"} for more information.")
(fr "Vous pouvez désormais produire une archive RPM (avec l'extension
.rpm) avec la commande @command{guix pack --format=rpm} qui propose
donc une nouvelle manière de distribuer les logiciels construits avec
Guix. Voici un exemple permettant de générer une archive RPM pour le
paquet @code{hello} :
@example
guix pack --format=rpm --symlink=/usr/bin/hello=bin/hello hello
@end example
Consultez @command{info \"(guix.fr) Invoquer guix pack\"} pour plus
d'informations.")))
(entry (commit "137b91f03bbb7f1df71cf10c4f79ae57fbcea400")
(title
(en "New @option{--with-version} package transformation option")

8
etc/snippets/tempel/scheme-mode
View file

@ -56,12 +56,12 @@ scheme-mode
(git-reference...
"(git-reference"
n> "(url \"" p "\")"
n> "(commit \"" p "\"))")
n> "(commit " (p "commit") "))")
(svn-reference...
"(svn-reference"
n> "(url \"" p "\")"
n> "(revision \"" p "\"))")
n> "(revision " (p "revision") "))")
(cvs-reference...
"(cvs-reference"
@ -72,12 +72,12 @@ scheme-mode
(hg-reference...
"(hg-reference"
n> "(url \"" p "\")"
n> "(changeset \"" p "\"))")
n> "(changeset " (p "changeset") "))")
(bzr-reference...
"(bzr-reference"
n> "(url \"" p "\")"
n> "(revision \"" p "\"))")
n> "(revision " (p "revision") "))")
(:phases\ "#:phases (modify-phases %standard-phases"
n> p ")")

9
etc/snippets/yas/scheme-mode/guix-news-entry Normal file
View file

@ -0,0 +1,9 @@
# -*- mode: snippet -*-
# name: guix-news-entry
# key: entry...
# --
(entry (commit "$1")
(title
(en "$2"))
(body
(en "$3")))

31
etc/teams.scm.in
View file

@ -3,7 +3,7 @@
!#
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2022 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2022, 2023 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2022 Mathieu Othacehe <othacehe@gnu.org>
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;;
@ -142,6 +142,19 @@ and the r-build-system."
"guix/scripts/import/cran.scm"
"tests/cran.scm")))
(define-team tex
(team 'tex
#:name "TeX team"
#:description
"TeX, LaTeX, XeLaTeX, LuaTeX, TeXLive, the texlive-build-system, and
the \"texlive\" importer."
#:scope (list "gnu/packages/tex.scm"
"guix/build/texlive-build-system.scm"
"guix/build-system/texlive.scm"
"guix/import/texlive.scm"
"guix/scripts/import/texlive.scm"
"tests/texlive.scm")))
(define-team julia
(team 'julia
#:name "Julia team"
@ -423,6 +436,18 @@ importer."
"Reproducible Builds tooling and issues that affect any guix packages."
#:scope (list "gnu/packages/diffoscope.scm")))
(define-team xfce
(team 'xfce
#:name "Xfce team"
#:description "Xfce desktop environment."
#:scope (list "gnu/packages/xfce.scm")))
(define-team lxqt
(team 'lxqt
#:name "LXQt team"
#:description "LXQt desktop environment."
#:scope (list "gnu/packages/lxqt.scm")))
(define-member (person "Eric Bavier"
"bavier@posteo.net")
@ -490,7 +515,7 @@ importer."
(define-member (person "Ricardo Wurmus"
"rekado@elephly.net")
r core mentors)
r core mentors tex)
(define-member (person "Christopher Baines"
"mail@cbaines.net")
@ -522,7 +547,7 @@ importer."
(define-member (person "宋文武"
"iyzsong@envs.net")
games localization)
games localization lxqt xfce)
(define-member (person "Vagrant Cascadian"
"vagrant@reproducible-builds.org")

1
gnu/build/file-systems.scm
View file

@ -1123,6 +1123,7 @@ an exception in such cases but perform the nearest sane action."
"Return the number suitable for the 'flags' argument of 'mount' that
corresponds to the symbols listed in FLAGS."
(let loop ((flags flags))
;; Note: Keep in sync with ‘invalid-file-system-flags’.
(match flags
(('read-only rest ...)
(logior MS_RDONLY (loop rest)))

17
gnu/home.scm
View file

@ -35,6 +35,7 @@
this-home-environment
home-environment-derivation
home-environment-packages
home-environment-user-services
home-environment-essential-services
home-environment-services
@ -102,7 +103,21 @@
#:target-type home-service-type)))
(service-value home)))
(define* (home-environment-with-provenance he config-file)
(define (home-environment-configuration-file he)
"Return the configuration file of HE, based on its 'location' field, or #f
if it could not be determined."
(let ((file (and=> (home-environment-location he)
location-file)))
(and file
(or (and (string-prefix? "/" file) file)
(search-path %load-path file)))))
(define* (home-environment-with-provenance he
#:optional
(config-file
(home-environment-configuration-file
he)))
"Return a variant of HE that stores its own provenance information,
including CONFIG-FILE, if available. This is achieved by adding an instance
of HOME-PROVENANCE-SERVICE-TYPE to its services."

110
gnu/home/services/desktop.scm
View file

@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2022 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2022 ( <paren@disroot.org>
;;; Copyright © 2023 conses <contact@conses.eu>
;;;
;;; This file is part of GNU Guix.
;;;
@ -22,7 +23,8 @@
#:use-module (gnu home services shepherd)
#:use-module (gnu services configuration)
#:autoload (gnu packages glib) (dbus)
#:autoload (gnu packages xdisorg) (redshift)
#:autoload (gnu packages xdisorg) (redshift unclutter)
#:autoload (gnu packages xorg) (setxkbmap xmodmap)
#:use-module (guix records)
#:use-module (guix gexp)
#:use-module (srfi srfi-1)
@ -32,7 +34,10 @@
home-redshift-service-type
home-dbus-configuration
home-dbus-service-type))
home-dbus-service-type
home-unclutter-configuration
home-unclutter-service-type))
;;;
@ -226,3 +231,104 @@ according to time of day.")))
(default-value (home-dbus-configuration))
(description
"Run the session-specific D-Bus inter-process message bus.")))
;;;
;;; Unclutter.
;;;
(define-configuration/no-serialization home-unclutter-configuration
(unclutter
(file-like unclutter)
"The @code{unclutter} package to use.")
(idle-timeout
(integer 5)
"Timeout in seconds after which to hide the cursor."))
(define (home-unclutter-shepherd-service config)
(list
(shepherd-service
(provision '(unclutter))
(requirement '())
(one-shot? #t)
(start #~(make-forkexec-constructor
(list
#$(file-append
(home-unclutter-configuration-unclutter config)
"/bin/unclutter")
"-idle"
(number->string
#$(home-unclutter-configuration-idle-timeout config)))
#:log-file (string-append
(or (getenv "XDG_LOG_HOME")
(format #f "~a/.local/var/log"
(getenv "HOME")))
"/unclutter.log"))))))
(define home-unclutter-service-type
(service-type
(name 'home-unclutter)
(extensions
(list
(service-extension home-shepherd-service-type
home-unclutter-shepherd-service)))
(default-value (home-unclutter-configuration))
(description "Run the @code{unclutter} daemon, which, on systems using the
Xorg graphical display server, automatically hides the cursor after a
user-defined timeout has expired.")))
;;;
;;; Xmodmap.
;;;
(define-configuration/no-serialization home-xmodmap-configuration
(xmodmap
(file-like xmodmap)
"The @code{xmodmap} package to use.")
(key-map
(list '())
"List of expressions to be read by @code{xmodmap} on service startup."))
(define (serialize-xmodmap-configuration field-name val)
(define serialize-field
(match-lambda
((key . value)
(format #f "~a = ~a" key value))
(e e)))
#~(string-append
#$@(interpose (map serialize-field val) "\n" 'suffix)))
(define (xmodmap-shepherd-service config)
(define config-file
(mixed-text-file
"config"
(serialize-xmodmap-configuration
#f (home-xmodmap-configuration-key-map config))))
(list
(shepherd-service
(provision '(xmodmap))
(start #~(make-system-constructor
(string-join
(list #$(file-append
(home-xmodmap-configuration-xmodmap config)
"/bin/xmodmap")
#$config-file))))
(stop #~(make-system-constructor
#$(file-append setxkbmap "/bin/setxkbmap")))
(documentation "On startup, run @code{xmodmap} and read the expressions in
the configuration file. On stop, reset all the mappings back to the
defaults."))))
(define home-xmodmap-service-type
(service-type
(name 'home-xmodmap)
(extensions
(list
(service-extension home-shepherd-service-type
xmodmap-shepherd-service)))
(default-value (home-xmodmap-configuration))
(description "Run the @code{xmodmap} utility to modify keymaps and pointer
buttons under the Xorg display server via user-defined expressions.")))

68
gnu/home/services/media.scm Normal file
View file

@ -0,0 +1,68 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu home services media)
#:use-module (srfi srfi-26)
#:use-module (gnu home services)
#:use-module (gnu home services shepherd)
#:use-module (gnu packages kodi)
#:use-module (gnu services configuration)
#:use-module (gnu services shepherd)
#:use-module (guix records)
#:use-module (guix gexp)
#:export (home-kodi-configuration
home-kodi-service-type))
;;;
;;; Kodi.
;;;
(define-record-type* <home-kodi-configuration>
home-kodi-configuration make-home-kodi-configuration
home-kodi-configuration?
(kodi home-kodi-kodi ;file-like
(default kodi))
(extra-options home-kodi-extra-options ;list of string
(default '())))
(define (home-kodi-services config)
"Return a <shepherd-service> for kodi with CONFIG."
(match-record config <home-kodi-configuration>
(kodi extra-options)
(let* ((kodi (file-append kodi "/bin/kodi"))
(command #~'(#$kodi "-fs" #$@extra-options))
(log-file #~(string-append %user-log-dir "/kodi.log")))
(list (shepherd-service
(documentation "Run the kodi media center.")
(provision '(kodi))
(modules '((shepherd support))) ;for '%user-log-dir'
(start #~(make-forkexec-constructor #$command
#:log-file #$log-file))
(stop #~(make-kill-destructor)))))))
(define home-kodi-service-type
(service-type
(name 'home-kodi)
(default-value (home-kodi-configuration))
(extensions
(list (service-extension home-shepherd-service-type
home-kodi-services)))
(description
"Install and configure the Kodi media center so that it runs as a Shepherd
service.")))

66
gnu/home/services/messaging.scm Normal file
View file

@ -0,0 +1,66 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu home services messaging)
#:use-module (srfi srfi-26)
#:use-module (gnu home services)
#:use-module (gnu home services shepherd)
#:use-module (gnu packages messaging)
#:use-module (gnu services configuration)
#:use-module (gnu services shepherd)
#:use-module (guix records)
#:use-module (guix gexp)
#:export (home-znc-configuration
home-znc-service-type))
;;;
;;; Znc.
;;;
(define-record-type* <home-znc-configuration>
home-znc-configuration make-home-znc-configuration
home-znc-configuration?
(znc home-znc-znc ;string
(default znc))
(extra-options home-znc-extra-options ;list of string
(default '())))
(define (home-znc-services config)
"Return a <shepherd-service> for znc with CONFIG."
(match-record config <home-znc-configuration>
(znc extra-options)
(let* ((znc (file-append znc "/bin/znc"))
(command #~'(#$znc "--foreground" #$@extra-options))
(log-file #~(string-append %user-log-dir "/znc.log")))
(list (shepherd-service
(documentation "Run the znc IRC bouncer.")
(provision '(znc))
(modules '((shepherd support))) ;for '%user-log-dir'
(start #~(make-forkexec-constructor #$command
#:log-file #$log-file))
(stop #~(make-kill-destructor)))))))
(define home-znc-service-type
(service-type
(name 'home-znc)
(default-value (home-znc-configuration))
(extensions
(list (service-extension home-shepherd-service-type
home-znc-services)))
(description
"Install and configure @command{znc}, an @acronym{IRC, Internet Relay
Chat} bouncer, as a Shepherd service.")))

151
gnu/home/services/sound.scm Normal file
View file

@ -0,0 +1,151 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2023 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu home services sound)
#:use-module (gnu home services)
#:use-module (gnu home services shepherd)
#:use-module (guix records)
#:use-module (guix gexp)
#:use-module (srfi srfi-1)
#:use-module (ice-9 match)
#:export (home-pulseaudio-rtp-sink-service-type
home-pulseaudio-rtp-source-service-type
%pulseaudio-rtp-multicast-address))
;;;
;;; PulseAudio support.
;;;
(define (with-pulseaudio-connection sock exp)
;; Wrap EXP in an expression where SOCK is bound to a socket connected to
;; the user's PulseAudio command-line interface socket.
#~(let* ((#$sock (socket AF_UNIX SOCK_STREAM 0))
(pulse-user-file
(lambda (name)
(string-append "/run/user/" (number->string (getuid))
"/pulse/" name)))
(file (pulse-user-file "cli")))
(let loop ((tries 0))
(catch #t
(lambda ()
(connect #$sock AF_UNIX file)
(let ((result #$exp))
(close-port #$sock)
result))
(lambda (key . args)
(if (and (eq? key 'system-error)
(= ENOENT (system-error-errno (cons key args)))
(< tries 3))
;; The CLI socket doesn't exist yet, so send pulseaudio
;; SIGUSR2 so that it creates it and listens to it.
(let ((pid (call-with-input-file (pulse-user-file "pid")
read)))
(when (and (integer? pid) (> pid 1))
(kill pid SIGUSR2))
((@ (fibers) sleep) 1)
(loop (+ tries 1)))
(begin
(close-port #$sock)
(apply throw key args))))))))
(define %pulseaudio-rtp-multicast-address
;; Default address used by 'module-rtp-sink' and 'module-rtp-recv'. This is
;; a multicast address, for the Session Announcement Protocol (SAP) and the
;; Session Description Protocol (SDP).
"224.0.0.56")
(define (pulseaudio-rtp-sink-shepherd-services destination-ip)
(list (shepherd-service
(provision '(pulseaudio-rtp-sink))
(start
#~(lambda* (#:optional (destination-ip #$destination-ip))
#$(with-pulseaudio-connection
#~sock
#~(begin
(display "\
load-module module-null-sink \
sink_name=rtp sink_properties=\"device.description='RTP network output'\"\n"
sock)
(display (string-append "\
load-module module-rtp-send source=rtp.monitor"
(if destination-ip
(string-append
" destination_ip="
destination-ip)
"")
"\n")
sock)
#t))))
(stop
#~(lambda (_)
#$(with-pulseaudio-connection
#~sock
#~(begin
(display "unload-module module-rtp-send\n"
sock)
(display "unload-module module-null-sink\n"
sock)
#f))))
(auto-start? #f))))
(define home-pulseaudio-rtp-sink-service-type
(service-type
(name 'pulseaudio-rtp-sink)
(extensions
(list (service-extension home-shepherd-service-type
pulseaudio-rtp-sink-shepherd-services)))
(description
"Define a PulseAudio sink to broadcast audio output over RTP, which can
then by played by another PulseAudio instance.")
;; By default, send to the SAP multicast address, 224.0.0.56, which can be
;; network-intensive.
(default-value %pulseaudio-rtp-multicast-address)))
(define (pulseaudio-rtp-source-shepherd-services source-ip)
(list (shepherd-service
(provision '(pulseaudio-rtp-source))
(start
#~(lambda* (#:optional (source-ip #$source-ip))
#$(with-pulseaudio-connection
#~sock
#~(begin
(format sock "\
load-module module-rtp-recv sap_address=~a\n" source-ip)
#t))))
(stop
#~(lambda (_)
#$(with-pulseaudio-connection
#~sock
#~(begin
(display "unload-module module-rtp-recv\n"
sock)
#f))))
(auto-start? #f))))
(define home-pulseaudio-rtp-source-service-type
(service-type
(name 'pulseaudio-rtp-source)
(extensions
(list (service-extension home-shepherd-service-type
pulseaudio-rtp-source-shepherd-services)))
(description
"Define a PulseAudio source to receive audio broadcasted over RTP by
another PulseAudio instance.")
(default-value %pulseaudio-rtp-multicast-address)))

58
gnu/home/services/ssh.scm
View file

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2022 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -25,9 +26,11 @@
#:use-module (gnu services configuration)
#:use-module (guix modules)
#:use-module (gnu home services)
#:use-module (gnu home services shepherd)
#:use-module ((gnu home services utils)
#:select (object->camel-case-string))
#:autoload (gnu packages base) (glibc-utf8-locales)
#:use-module (gnu packages ssh)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-34)
#:use-module (srfi srfi-35)
@ -36,6 +39,7 @@
home-openssh-configuration-authorized-keys
home-openssh-configuration-known-hosts
home-openssh-configuration-hosts
home-ssh-agent-configuration
openssh-host
openssh-host-host-name
@ -52,7 +56,8 @@
openssh-host-accepted-key-types
openssh-host-extra-content
home-openssh-service-type))
home-openssh-service-type
home-ssh-agent-service-type))
(define (serialize-field-name name)
(match name
@ -254,3 +259,54 @@ inserted after each of them."
by providing a @file{~/.ssh/config} file, which is honored by the OpenSSH
client,@command{ssh}, and by other tools such as @command{guix deploy}.")
(default-value (home-openssh-configuration))))
;;;
;;; Ssh-agent.
;;;
(define-record-type* <home-ssh-agent-configuration>
home-ssh-agent-configuration make-home-ssh-agent-configuration
home-ssh-agent-configuration?
(openssh home-ssh-agent-openssh ;file-like
(default openssh))
(socket-directory home-ssh-agent-socket-directory ;string
(default #~(string-append %user-runtime-dir "/ssh-agent")))
(extra-options home-ssh-agent-extra-options ;list of string
(default '())))
(define (home-ssh-agent-services config)
"Return a <shepherd-service> for an ssh-agent with CONFIG."
(match-record config <home-ssh-agent-configuration>
(openssh socket-directory extra-options)
(let* ((ssh-agent (file-append openssh "/bin/ssh-agent"))
(socket-file #~(string-append #$socket-directory "/socket"))
(command #~`(#$ssh-agent
"-D" "-a" ,#$socket-file
#$@extra-options))
(log-file #~(string-append %user-log-dir "/ssh-agent.log")))
(list (shepherd-service
(documentation "Run the ssh-agent.")
(provision '(ssh-agent))
(modules '((shepherd support))) ;for '%user-runtime-dir', etc.
(start #~(lambda _
(unless (file-exists? #$socket-directory)
(mkdir-p #$socket-directory)
(chmod #$socket-directory #o700))
(fork+exec-command #$command #:log-file #$log-file)))
(stop #~(make-kill-destructor)))))))
(define (home-ssh-agent-environment-variables config)
'(("SSH_AUTH_SOCK"
. "${SSH_AUTH_SOCK-${XDG_RUNTIME_DIR-$HOME/.cache}/ssh-agent/socket}")))
(define home-ssh-agent-service-type
(service-type
(name 'home-ssh-agent)
(default-value (home-ssh-agent-configuration))
(extensions
(list (service-extension home-shepherd-service-type
home-ssh-agent-services)
(service-extension home-environment-variables-service-type
home-ssh-agent-environment-variables)))
(description
"Install and configure @command{ssh-agent} as a Shepherd service.")))

68
gnu/local.mk
View file

@ -1,5 +1,5 @@
# GNU Guix --- Functional package management for GNU
# Copyright © 2012-2021, 2021-2022 Ludovic Courtès <ludo@gnu.org>
# Copyright © 2012-2023 Ludovic Courtès <ludo@gnu.org>
# Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020, 2022 Andreas Enge <andreas@enge.fr>
# Copyright © 2016 Mathieu Lirzin <mthl@gnu.org>
# Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020, 2021 Mark H Weaver <mhw@netris.org>
@ -11,7 +11,7 @@
# Copyright © 2016 Ben Woodcroft <donttrustben@gmail.com>
# Copyright © 2016, 2017, 2018, 2019 Alex Vong <alexvong1995@gmail.com>
# Copyright © 2016, 2017, 2018, 2019, 2020, 2021 Efraim Flashner <efraim@flashner.co.il>
# Copyright © 2016, 2017, 2018, 2019, 2020, 2021, 2022 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
# Copyright © 2016, 2017, 2018, 2019, 2020, 2021, 2022, 2023 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
# Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
# Copyright © 2017, 2018 Clément Lassieur <clement@lassieur.org>
# Copyright © 2017, 2020 Mathieu Othacehe <m.othacehe@gmail.com>
@ -38,10 +38,10 @@
# Copyright © 2020 Tanguy Le Carrour <tanguy@bioneland.org>
# Copyright © 2020 Martin Becze <mjbecze@riseup.net>
# Copyright © 2020 Malte Frank Gerdes <mate.f.gerdes@gmail.com>
# Copyright © 2020 Vinicius Monego <monego@posteo.net>
# Copyright © 2020, 2023 Vinicius Monego <monego@posteo.net>
# Copyright © 2021 Björn Höfling <bjoern.hoefling@bjoernhoefling.de>
# Copyright © 2021 Greg Hogan <code@greghogan.com>
# Copyright © 2021, 2022 Philip McGrath <philip@philipmcgrath.com>
# Copyright © 2021, 2022, 2023 Philip McGrath <philip@philipmcgrath.com>
# Copyright © 2021 Arun Isaac <arunisaac@systemreboot.net>
# Copyright © 2021 Sharlatan Hellseher <sharlatanus@gmail.com>
# Copyright © 2021 Dmitry Polyakov <polyakov@liltechdude.xyz>
@ -56,6 +56,7 @@
# Copyright © 2022 Alex Griffin <a@ajgrf.com>
# Copyright © 2022 ( <paren@disroot.org>
# Copyright © 2022 jgart <jgart@dismail.de>
# Copyright © 2023 Zheng Junjie <873216071@qq.com>
#
# This file is part of GNU Guix.
#
@ -91,9 +92,12 @@ GNU_SYSTEM_MODULES = \
%D%/home/services/symlink-manager.scm \
%D%/home/services/fontutils.scm \
%D%/home/services/guix.scm \
%D%/home/services/media.scm \
%D%/home/services/messaging.scm \
%D%/home/services/pm.scm \
%D%/home/services/shells.scm \
%D%/home/services/shepherd.scm \
%D%/home/services/sound.scm \
%D%/home/services/ssh.scm \
%D%/home/services/mcron.scm \
%D%/home/services/utils.scm \
@ -425,6 +429,7 @@ GNU_SYSTEM_MODULES = \
%D%/packages/mingw.scm \
%D%/packages/microcom.scm \
%D%/packages/moe.scm \
%D%/packages/mold.scm \
%D%/packages/motti.scm \
%D%/packages/monitoring.scm \
%D%/packages/moreutils.scm \
@ -606,6 +611,7 @@ GNU_SYSTEM_MODULES = \
%D%/packages/tmux.scm \
%D%/packages/toolkits.scm \
%D%/packages/tor.scm \
%D%/packages/tree-sitter.scm \
%D%/packages/tv.scm \
%D%/packages/uglifyjs.scm \
%D%/packages/uml.scm \
@ -939,7 +945,6 @@ dist_patch_DATA = \
%D%/packages/patches/bsd-games-prevent-name-collisions.patch \
%D%/packages/patches/bsd-games-stdio.h.patch \
%D%/packages/patches/beancount-disable-googleapis-fonts.patch \
%D%/packages/patches/bees-beesd-honor-destdir-on-installation.patch \
%D%/packages/patches/beignet-correct-file-names.patch \
%D%/packages/patches/bidiv-update-fribidi.patch \
%D%/packages/patches/binutils-2.37-file-descriptor-leak.patch \
@ -950,18 +955,20 @@ dist_patch_DATA = \
%D%/packages/patches/binutils-CVE-2021-45078.patch \
%D%/packages/patches/bloomberg-bde-cmake-module-path.patch \
%D%/packages/patches/bloomberg-bde-tools-fix-install-path.patch \
%D%/packages/patches/boolector-find-googletest.patch \
%D%/packages/patches/bpftrace-disable-bfd-disasm.patch \
%D%/packages/patches/breezy-fix-gio.patch \
%D%/packages/patches/byobu-writable-status.patch \
%D%/packages/patches/bubblewrap-fix-locale-in-tests.patch \
%D%/packages/patches/cabal-install-base16-bytestring1.0.patch \
%D%/packages/patches/cabal-install-ghc8.10.patch \
%D%/packages/patches/cairo-CVE-2018-19876.patch \
%D%/packages/patches/cairo-CVE-2020-35492.patch \
%D%/packages/patches/calibre-no-updates-dialog.patch \
%D%/packages/patches/calibre-remove-test-sqlite.patch \
%D%/packages/patches/calibre-remove-test-unrar.patch \
%D%/packages/patches/catdoc-CVE-2017-11110.patch \
%D%/packages/patches/ccextractor-add-missing-header.patch \
%D%/packages/patches/ccextractor-autoconf-tesseract.patch \
%D%/packages/patches/ccextractor-fix-ocr.patch \
%D%/packages/patches/chez-scheme-bin-sh.patch \
%D%/packages/patches/circos-remove-findbin.patch \
%D%/packages/patches/cdparanoia-fpic.patch \
@ -1028,10 +1035,12 @@ dist_patch_DATA = \
%D%/packages/patches/date-output-pkg-config-files.patch \
%D%/packages/patches/datefudge-gettimeofday.patch \
%D%/packages/patches/dbacl-include-locale.h.patch \
%D%/packages/patches/dbacl-icheck-multiple-definitions.patch \
%D%/packages/patches/dbus-helper-search-path.patch \
%D%/packages/patches/dbus-c++-gcc-compat.patch \
%D%/packages/patches/dbus-c++-threading-mutex.patch \
%D%/packages/patches/dbxfs-remove-sentry-sdk.patch \
%D%/packages/patches/ddclient-skip-test.patch \
%D%/packages/patches/debops-constants-for-external-program-names.patch \
%D%/packages/patches/debops-debops-defaults-fall-back-to-less.patch \
%D%/packages/patches/dee-vapi.patch \
@ -1049,12 +1058,12 @@ dist_patch_DATA = \
%D%/packages/patches/dstat-skip-devices-without-io.patch \
%D%/packages/patches/dvd+rw-tools-add-include.patch \
%D%/packages/patches/dynaconf-unvendor-deps.patch \
%D%/packages/patches/efibootmgr-remove-extra-decl.patch \
%D%/packages/patches/efivar-211.patch \
%D%/packages/patches/eigen-fix-strict-aliasing-bug.patch \
%D%/packages/patches/einstein-build.patch \
%D%/packages/patches/elfutils-tests-ptrace.patch \
%D%/packages/patches/elixir-path-length.patch \
%D%/packages/patches/elm-ghc9.2.patch \
%D%/packages/patches/elm-offline-package-registry.patch \
%D%/packages/patches/elm-reactor-static-files.patch \
%D%/packages/patches/elogind-revert-polkit-detection.patch \
@ -1064,10 +1073,10 @@ dist_patch_DATA = \
%D%/packages/patches/emacs-git-email-missing-parens.patch \
%D%/packages/patches/emacs-fix-scheme-indent-function.patch \
%D%/packages/patches/emacs-json-reformat-fix-tests.patch \
%D%/packages/patches/emacs-helpful-fix-docstring-test.patch \
%D%/packages/patches/emacs-highlight-stages-add-gexp.patch \
%D%/packages/patches/emacs-lispy-fix-thread-last-test.patch \
%D%/packages/patches/emacs-native-comp-driver-options.patch \
%D%/packages/patches/emacs-pasp-mode-quote-file-names.patch \
%D%/packages/patches/emacs-polymode-fix-lexical-variable-error.patch \
%D%/packages/patches/emacs-source-date-epoch.patch \
%D%/packages/patches/emacs-telega-path-placeholder.patch \
@ -1079,8 +1088,11 @@ dist_patch_DATA = \
%D%/packages/patches/enjarify-setup-py.patch \
%D%/packages/patches/enlightenment-fix-setuid-path.patch \
%D%/packages/patches/erlang-man-path.patch \
%D%/packages/patches/esmini-no-clutter-log.patch \
%D%/packages/patches/esmini-use-pkgconfig.patch \
%D%/packages/patches/esmtp-add-lesmtp.patch \
%D%/packages/patches/eudev-rules-directory.patch \
%D%/packages/patches/evdi-fix-build-with-linux-6.2.patch \
%D%/packages/patches/exercism-disable-self-update.patch \
%D%/packages/patches/extempore-unbundle-external-dependencies.patch \
%D%/packages/patches/extundelete-e2fsprogs-1.44.patch \
@ -1116,6 +1128,7 @@ dist_patch_DATA = \
%D%/packages/patches/flashrom-fix-building-on-aarch64.patch \
%D%/packages/patches/flatpak-fix-path.patch \
%D%/packages/patches/flatpak-unset-gdk-pixbuf-for-sandbox.patch \
%D%/packages/patches/fluxbox-1.3.7-no-dynamic-cursor.patch \
%D%/packages/patches/fontconfig-cache-ignore-mtime.patch \
%D%/packages/patches/foobillard++-pkg-config.patch \
%D%/packages/patches/foomatic-filters-CVE-2015-8327.patch \
@ -1194,7 +1207,10 @@ dist_patch_DATA = \
%D%/packages/patches/genimage-mke2fs-test.patch \
%D%/packages/patches/geoclue-config.patch \
%D%/packages/patches/ghc-8.0-fall-back-to-madv_dontneed.patch \
%D%/packages/patches/ghc-9.2-glibc-2.33-link-order.patch \
%D%/packages/patches/ghc-testsuite-dlopen-pie.patch \
%D%/packages/patches/ghc-bloomfilter-ghc9.2.patch \
%D%/packages/patches/ghc-bytestring-handle-ghc9.patch \
%D%/packages/patches/ghc-language-haskell-extract-ghc-8.10.patch \
%D%/packages/patches/ghostscript-no-header-id.patch \
%D%/packages/patches/ghostscript-no-header-uuid.patch \
@ -1338,7 +1354,6 @@ dist_patch_DATA = \
%D%/packages/patches/intel-xed-fix-nondeterminism.patch \
%D%/packages/patches/intltool-perl-compatibility.patch \
%D%/packages/patches/iputils-libcap-compat.patch \
%D%/packages/patches/ipxe-reproducible-geniso.patch \
%D%/packages/patches/irrlicht-use-system-libs.patch \
%D%/packages/patches/irrlicht-link-against-needed-libs.patch \
%D%/packages/patches/isl-0.11.1-aarch64-support.patch \
@ -1556,6 +1571,7 @@ dist_patch_DATA = \
%D%/packages/patches/musl-cross-locale.patch \
%D%/packages/patches/mutt-store-references.patch \
%D%/packages/patches/m4-gnulib-libio.patch \
%D%/packages/patches/m17n-lib-1.8.0-use-pkg-config-for-freetype.patch \
%D%/packages/patches/nautilus-extension-search-path.patch \
%D%/packages/patches/ncompress-fix-softlinks.patch \
%D%/packages/patches/ncftp-reproducible.patch \
@ -1570,7 +1586,6 @@ dist_patch_DATA = \
%D%/packages/patches/nix-dont-build-html-doc.diff \
%D%/packages/patches/nfs4-acl-tools-0.3.7-fixpaths.patch \
%D%/packages/patches/ngircd-handle-zombies.patch \
%D%/packages/patches/ngless-unliftio.patch \
%D%/packages/patches/network-manager-plugin-path.patch \
%D%/packages/patches/network-manager-meson.patch \
%D%/packages/patches/nginx-socket-cloexec.patch \
@ -1593,14 +1608,14 @@ dist_patch_DATA = \
%D%/packages/patches/ocaml-4.09-multiple-definitions.patch \
%D%/packages/patches/omake-fix-non-determinism.patch \
%D%/packages/patches/oneko-remove-nonfree-characters.patch \
%D%/packages/patches/onionshare-cli-async-mode.patch \
%D%/packages/patches/onnx-optimizer-system-library.patch \
%D%/packages/patches/onnx-use-system-googletest.patch \
%D%/packages/patches/onnx-shared-libraries.patch \
%D%/packages/patches/onnx-skip-model-downloads.patch \
%D%/packages/patches/openbios-gcc-warnings.patch \
%D%/packages/patches/openbios-aarch64-riscv64-support.patch \
%D%/packages/patches/openboardview-use-system-imgui.patch \
%D%/packages/patches/openbox-python3.patch \
%D%/packages/patches/opencascade-oce-glibc-2.26.patch \
%D%/packages/patches/openfoam-4.1-cleanup.patch \
%D%/packages/patches/openjdk-10-idlj-reproducibility.patch \
%D%/packages/patches/openjdk-15-xcursor-no-dynamic.patch \
@ -1612,6 +1627,7 @@ dist_patch_DATA = \
%D%/packages/patches/opensles-add-license-file.patch \
%D%/packages/patches/openssl-1.1-c-rehash-in.patch \
%D%/packages/patches/openssl-3.0-c-rehash-in.patch \
%D%/packages/patches/opentaxsolver-file-browser-fix.patch \
%D%/packages/patches/open-zwave-hidapi.patch \
%D%/packages/patches/orpheus-cast-errors-and-includes.patch \
%D%/packages/patches/osip-CVE-2017-7853.patch \
@ -1626,6 +1642,7 @@ dist_patch_DATA = \
%D%/packages/patches/pciutils-hurd-configure.patch \
%D%/packages/patches/pciutils-hurd-fix.patch \
%D%/packages/patches/petri-foo-0.1.87-fix-recent-file-not-exist.patch \
%D%/packages/patches/php-fix-streams-copy-length.patch \
%D%/packages/patches/plasma-framework-fix-KF5PlasmaMacros.cmake.patch \
%D%/packages/patches/pocketfft-cpp-prefer-preprocessor-if.patch \
%D%/packages/patches/pokerth-boost.patch \
@ -1667,8 +1684,6 @@ dist_patch_DATA = \
%D%/packages/patches/perl-www-curl-fix-struct-void.patch \
%D%/packages/patches/perl-www-curl-remove-symbol.patch \
%D%/packages/patches/phoronix-test-suite-fsdg.patch \
%D%/packages/patches/php-bug-74093-test.patch \
%D%/packages/patches/php-curl-compat.patch \
%D%/packages/patches/picprog-non-intel-support.patch \
%D%/packages/patches/pidgin-add-search-path.patch \
%D%/packages/patches/pinball-system-ltdl.patch \
@ -1724,6 +1739,8 @@ dist_patch_DATA = \
%D%/packages/patches/python-docopt-pytest6-compat.patch \
%D%/packages/patches/python-execnet-read-only-fix.patch \
%D%/packages/patches/python-fixtures-remove-monkeypatch-test.patch \
%D%/packages/patches/python-hiredis-fix-header.patch \
%D%/packages/patches/python-hiredis-use-system-hiredis.patch \
%D%/packages/patches/python-ipython-documentation-chars.patch \
%D%/packages/patches/python-ipython-documentation-repro.patch \
%D%/packages/patches/python-keras-integration-test.patch \
@ -1731,6 +1748,7 @@ dist_patch_DATA = \
%D%/packages/patches/python-peachpy-determinism.patch \
%D%/packages/patches/python-pep8-stdlib-tokenize-compat.patch \
%D%/packages/patches/python-piexif-fix-tests-with-pillow-7.2.patch \
%D%/packages/patches/python-pillow-CVE-2022-45199.patch \
%D%/packages/patches/python-pyfakefs-remove-bad-test.patch \
%D%/packages/patches/python-pyflakes-test-location.patch \
%D%/packages/patches/python2-pyopenssl-openssl-compat.patch \
@ -1764,7 +1782,6 @@ dist_patch_DATA = \
%D%/packages/patches/qemu-glibc-2.27.patch \
%D%/packages/patches/qemu-glibc-2.30.patch \
%D%/packages/patches/qemu-fix-agent-paths.patch \
%D%/packages/patches/qpdfview-qt515-compat.patch \
%D%/packages/patches/qrcodegen-cpp-make-install.patch \
%D%/packages/patches/qtbase-absolute-runpath.patch \
%D%/packages/patches/qtbase-moc-ignore-gcc-macro.patch \
@ -1775,11 +1792,6 @@ dist_patch_DATA = \
%D%/packages/patches/qtwayland-gcc-11.patch \
%D%/packages/patches/qtwayland-dont-recreate-callbacks.patch \
%D%/packages/patches/qtwayland-cleanup-callbacks.patch \
%D%/packages/patches/qtwebkit-pbutils-include.patch \
%D%/packages/patches/qtwebkit-fix-building-with-bison-3.7.patch \
%D%/packages/patches/qtwebkit-fix-building-with-python-3.9.patch \
%D%/packages/patches/qtwebkit-fix-building-with-icu-68.patch \
%D%/packages/patches/qtwebkit-fix-building-with-glib-2.68.patch \
%D%/packages/patches/ragel-char-signedness.patch \
%D%/packages/patches/randomjungle-disable-static-build.patch \
%D%/packages/patches/range-v3-build-with-gcc10.patch \
@ -1797,17 +1809,13 @@ dist_patch_DATA = \
%D%/packages/patches/ripperx-missing-file.patch \
%D%/packages/patches/rpcbind-CVE-2017-8779.patch \
%D%/packages/patches/rtags-separate-rct.patch \
%D%/packages/patches/racket-backport-8.7-pkg-strip.patch \
%D%/packages/patches/racket-chez-scheme-bin-sh.patch \
%D%/packages/patches/racket-rktio-bin-sh.patch \
%D%/packages/patches/racket-zuo-bin-sh.patch \
%D%/packages/patches/remake-impure-dirs.patch \
%D%/packages/patches/restic-0.9.6-fix-tests-for-go1.15.patch \
%D%/packages/patches/retroarch-LIBRETRO_DIRECTORY.patch \
%D%/packages/patches/r-mixedpower-r2power.patch \
%D%/packages/patches/rnp-add-version.cmake.patch \
%D%/packages/patches/rnp-disable-ruby-rnp-tests.patch \
%D%/packages/patches/rnp-unbundle-googletest.patch \
%D%/packages/patches/rng-tools-revert-build-randstat.patch \
%D%/packages/patches/rocm-comgr-3.1.0-dependencies.patch \
%D%/packages/patches/rocm-opencl-runtime-4.3-noclinfo.patch \
%D%/packages/patches/rocm-opencl-runtime-4.3-noopencl.patch \
@ -1834,11 +1842,13 @@ dist_patch_DATA = \
%D%/packages/patches/sbcl-aserve-fix-rfe12668.patch \
%D%/packages/patches/sbcl-burgled-batteries3-fix-signals.patch \
%D%/packages/patches/sbcl-clml-fix-types.patch \
%D%/packages/patches/sbcl-eazy-gnuplot-skip-path-check.patch \
%D%/packages/patches/sbcl-png-fix-sbcl-compatibility.patch \
%D%/packages/patches/scalapack-gcc-10-compilation.patch \
%D%/packages/patches/scheme48-tests.patch \
%D%/packages/patches/scons-test-environment.patch \
%D%/packages/patches/screen-hurd-path-max.patch \
%D%/packages/patches/scsh-nonstring-search-path.patch \
%D%/packages/patches/sdl-libx11-1.6.patch \
%D%/packages/patches/seed-webkit.patch \
%D%/packages/patches/sendgmail-accept-ignored-gsuite-flag.patch \
@ -1863,7 +1873,6 @@ dist_patch_DATA = \
%D%/packages/patches/spectre-meltdown-checker-externalize-fwdb.patch \
%D%/packages/patches/spectre-meltdown-checker-find-kernel.patch \
%D%/packages/patches/sphinxbase-fix-doxygen.patch \
%D%/packages/patches/spice-vdagent-glib-2.68.patch \
%D%/packages/patches/sssd-system-directories.patch \
%D%/packages/patches/steghide-fixes.patch \
%D%/packages/patches/suitesparse-mongoose-cmake.patch \
@ -1980,7 +1989,6 @@ dist_patch_DATA = \
%D%/packages/patches/vboot-utils-skip-test-workbuf.patch \
%D%/packages/patches/vinagre-newer-freerdp.patch \
%D%/packages/patches/vinagre-newer-rdp-parameters.patch \
%D%/packages/patches/virglrenderer-CVE-2017-6386.patch \
%D%/packages/patches/virtuoso-ose-remove-pre-built-jar-files.patch \
%D%/packages/patches/vsearch-unbundle-cityhash.patch \
%D%/packages/patches/vte-CVE-2012-2738-pt1.patch \
@ -1996,8 +2004,6 @@ dist_patch_DATA = \
%D%/packages/patches/webrtc-audio-processing-big-endian.patch \
%D%/packages/patches/webrtc-for-telegram-desktop-fix-gcc12-cstdint.patch \
%D%/packages/patches/websocketpp-fix-for-cmake-3.15.patch \
%D%/packages/patches/widelands-add-missing-map-include.patch \
%D%/packages/patches/widelands-system-wide_minizip.patch \
%D%/packages/patches/wmctrl-64-fix.patch \
%D%/packages/patches/wmfire-update-for-new-gdk-versions.patch \
%D%/packages/patches/wordnet-CVE-2008-2149.patch \
@ -2009,12 +2015,10 @@ dist_patch_DATA = \
%D%/packages/patches/xf86-video-nouveau-fixup-ABI.patch \
%D%/packages/patches/xf86-video-savage-xorg-compat.patch \
%D%/packages/patches/xf86-video-siliconmotion-fix-ftbfs.patch \
%D%/packages/patches/xf86-video-tga-remove-mibstore.patch \
%D%/packages/patches/xfce4-panel-plugins.patch \
%D%/packages/patches/xfce4-settings-defaults.patch \
%D%/packages/patches/xgboost-use-system-dmlc-core.patch \
%D%/packages/patches/xmonad-dynamic-linking.patch \
%D%/packages/patches/xmonad-next-dynamic-linking.patch \
%D%/packages/patches/xnnpack-system-libraries.patch \
%D%/packages/patches/xplanet-1.3.1-cxx11-eof.patch \
%D%/packages/patches/xplanet-1.3.1-libdisplay_DisplayOutput.cpp.patch \

65
gnu/packages/abiword.scm
View file

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014 Marek Benc <merkur32@gmail.com>
;;; Copyright © 2016, 2018 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017, 2023 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017 Leo Famulari <leo@famulari.name>
;;; Copyright © 2018, 2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com>
@ -25,7 +25,6 @@
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix build-system gnu)
#:use-module (guix build-system glib-or-gtk)
#:use-module (gnu packages)
#:use-module (gnu packages autotools)
@ -41,6 +40,7 @@
#:use-module (gnu packages ots)
#:use-module (gnu packages popt)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages python)
#:use-module (gnu packages readline)
#:use-module (gnu packages wv)
#:use-module (gnu packages xml))
@ -74,7 +74,14 @@
"latex " "loadbindings " "mht " "mif " "mswrite " "opendocument "
"openwriter " "openxml " "opml " "ots " "paint " "passepartout "
"pdb " "pdf " "presentation " "s5 " "sdw " "t602 " "urldict "
"wikipedia " "wml " "xslfo"))
"wikipedia " "wml " "xslfo")
"--enable-introspection"
(string-append "--with-gir-dir="
(assoc-ref %outputs "out")
"/share/gir-1.0")
(string-append "--with-typelib-dir="
(assoc-ref %outputs "out")
"/lib/girepository-1.0"))
;; tests fail with: Gtk-CRITICAL **: gtk_settings_get_for_screen:
;; assertion 'GDK_IS_SCREEN (screen)' failed
;; GLib-GObject-CRITICAL **: g_object_get_qdata:
@ -85,32 +92,34 @@
#:make-flags
(list "gtk_update_icon_cache=true")))
(inputs
`(("boost" ,boost)
("enchant" ,enchant)
("fontconfig" ,fontconfig)
("fribidi" ,fribidi)
("glib" ,glib)
("goffice" ,goffice)
("gtk+" ,gtk+)
("libchamplain" ,libchamplain)
("libglade" ,libglade)
("libgsf" ,libgsf)
("libjpeg" ,libjpeg-turbo)
("libpng" ,libpng)
("librsvg" ,librsvg)
("libxml2" ,libxml2)
("libxslt" ,libxslt)
("ots" ,ots)
("popt" ,popt)
("readline" ,readline)
("telepathy" ,telepathy-glib)
("wv" ,wv)
("zlib" ,zlib)))
(list boost
enchant
fontconfig
fribidi
glib
goffice
gtk+
libchamplain
libglade
libgsf
libjpeg-turbo
libpng
(librsvg-for-system)
libxml2
libxslt
ots
popt
readline
telepathy-glib
wv
zlib))
(native-inputs
`(("intltool" ,intltool)
("glib:bin" ,glib "bin")
("libtool" ,libtool)
("pkg-config" ,pkg-config)))
(list gobject-introspection
intltool
`(,glib "bin")
libtool
pkg-config
python-wrapper))
(home-page "https://www.abisource.com/")
(synopsis "Word processing program")

47
gnu/packages/accessibility.scm
View file

@ -23,6 +23,7 @@
(define-module (gnu packages accessibility)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix gexp)
#:use-module (guix utils)
#:use-module (guix packages)
#:use-module (guix download)
@ -229,7 +230,7 @@ incorporated.")
libnotify))
(native-inputs
(list gettext-minimal intltool pkg-config))
(home-page "http://florence.sourceforge.net/")
(home-page "https://florence.sourceforge.net/")
(synopsis "Extensible, scalable virtual keyboard for X11")
(description
"Florence is an extensible scalable virtual keyboard for X11.
@ -245,11 +246,11 @@ available to help to click.")
(license license:gpl2+)))
(define-public footswitch
(let ((commit "ca43d53fc2002520cc825d119702afc124303e73")
(revision "2"))
(let ((commit "e455d6752221b9e9c3818cc304c873b9c2792490")
(revision "0"))
(package
(name "footswitch")
(version (git-version "0.1" revision commit))
(version (git-version "1.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
@ -258,32 +259,32 @@ available to help to click.")
(file-name (git-file-name name version))
(sha256
(base32
"14pyzc4ws1mj859xs9n4x83wzxxvd3bh5bdxzr6nv267xwx1mq68"))))
"0xkk60sg3szpgbl3z8djlpagglsldv9viqibsih6wcnbhikzlc6j"))))
(build-system gnu-build-system)
(arguments
(list
#:tests? #f ; no tests
#:make-flags #~(list (string-append "CC=" #$(cc-for-target)))
#:phases
#~(modify-phases %standard-phases
(delete 'configure)
;; Install target in the Makefile does not work for Guix.
(replace 'install
(lambda _
(let ((bin (string-append #$output "/bin")))
(install-file "footswitch" bin)
(install-file "scythe" bin)))))))
(native-inputs
(list pkg-config))
(inputs
(list hidapi))
(arguments
`(#:tests? #f ; no tests
#:make-flags (list (string-append "CC=" ,(cc-for-target)))
#:phases (modify-phases %standard-phases
(delete 'configure)
;; Install target in the Makefile does not work for Guix
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let ((bin (string-append (assoc-ref outputs "out")
"/bin")))
(install-file "footswitch" bin)
(install-file "scythe" bin)
#t))))))
(home-page "https://github.com/rgerganov/footswitch")
(synopsis "Command line utility for PCsensor foot switch")
(synopsis "Command line utilities for PCsensor and Scythe foot switches")
(description
"Command line utility for programming foot switches sold by PCsensor.
It works for both single pedal devices and three pedal devices. All supported
devices have vendorId:productId = 0c45:7403 or 0c45:7404.")
(license license:expat))))
"This package provides command line utilities for programming PCsensor
and Scythe foot switches. It works for both single pedal and three pedal
devices.")
(license license:expat))))
(define-public xmagnify
(package

6
gnu/packages/ada.scm
View file

@ -21,16 +21,10 @@
(define-module (gnu packages ada)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix build-system gnu)
#:use-module (guix build-system python)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix git-download)
#:use-module (gnu packages)
#:use-module (gnu packages base)
#:use-module (gnu packages check)
#:use-module (gnu packages compression)
#:use-module (gnu packages python)
#:use-module (gnu packages python-xyz)
#:use-module (ice-9 match))
(define-public ada/ed

122
gnu/packages/admin.scm
View file

@ -53,9 +53,11 @@
;;; Copyright © 2022 Petr Hodina <phodina@protonmail.com>
;;; Copyright © 2022 Andreas Rammhold <andreas@rammhold.de>
;;; Copyright © 2022 ( <paren@disroot.org>
;;; Copyright © 2022 Matthew James Kraai <kraai@ftbfs.org>
;;; Copyright © 2022, 2023 Matthew James Kraai <kraai@ftbfs.org>
;;; Copyright © 2022 jgart <jgart@dismail.de>
;;; Copyright © 2023 Juliana Sims <jtsims@protonmail.com>
;;; Copyright © 2023 Lu Hui <luhux76@gmail.com>
;;; Copyright © 2023 Yovan Naumovski <yovan@gorski.stream>
;;;
;;; This file is part of GNU Guix.
;;;
@ -769,7 +771,7 @@ on memory usage on GNU/Linux systems.")
(define-public htop
(package
(name "htop")
(version "3.2.1")
(version "3.2.2")
(source
(origin
(method git-fetch)
@ -777,7 +779,7 @@ on memory usage on GNU/Linux systems.")
(url "https://github.com/htop-dev/htop")
(commit version)))
(sha256
(base32 "0yfmkw3y4qyd42svhpiijif7krvmnb8z88y6h9g4fwf7sfynq2rk"))
(base32 "0cyaprgnhfrc7rqq053903bjylaplvxkb65b04bsxmiva09lvf9s"))
(file-name (git-file-name name version))))
(build-system gnu-build-system)
(inputs
@ -1162,7 +1164,7 @@ ONC RPC numbers.")
(let ((out (assoc-ref %outputs "out")))
(list (string-append "--mandir=" out "/share/man")
(string-append "--infodir=" out "/share/info")))))
(home-page "http://netcat.sourceforge.net")
(home-page "https://netcat.sourceforge.net")
(synopsis "Read and write data over TCP/IP")
(description
"Netcat is a featured networking utility which reads and writes data
@ -1279,7 +1281,7 @@ IPv6, proxies, and Unix sockets.")
"1gpvd2kjyhs18sh6sga5bk9wj8s78blfd4c0m38r0wl92jx2yv1b"))))))
(inputs
(list ncurses))
(home-page "http://nmon.sourceforge.net/")
(home-page "https://nmon.sourceforge.net/")
(synopsis
"Monitor system performance in a terminal or to a @file{.csv} log file")
(description
@ -1969,7 +1971,7 @@ system administrator.")
(define-public sudo
(package
(name "sudo")
(version "1.9.12p2")
(version "1.9.13p2")
(source (origin
(method url-fetch)
(uri
@ -1979,7 +1981,7 @@ system administrator.")
version ".tar.gz")))
(sha256
(base32
"0fc55axh2hfd8hn66dpmyrrgb0gf0nz71zpaygkrpp8x1ypb385r"))
"0kapjhgyzaqk2nfzzz04ss9x6cy61s79afd3vhgkn0y1wkyh886z"))
(modules '((guix build utils)))
(snippet
'(begin
@ -2222,6 +2224,10 @@ command.")
(name "wpa-supplicant")
(inputs (modify-inputs (package-inputs wpa-supplicant-minimal)
(prepend dbus)))
(source (origin
(inherit (package-source wpa-supplicant-minimal))
(patches (search-patches
"wpa-supplicant-dbus-group-policy.patch"))))
(arguments
(substitute-keyword-arguments (package-arguments wpa-supplicant-minimal)
((#:phases phases)
@ -2767,7 +2773,7 @@ degradation and failure.")
(define-public fdupes
(package
(name "fdupes")
(version "2.1.2")
(version "2.2.1")
(source
(origin
(method url-fetch)
@ -2775,7 +2781,7 @@ degradation and failure.")
"releases/download/v" version "/"
"fdupes-" version ".tar.gz"))
(sha256
(base32 "1g9p50xhi2sp0hqxml4w2k0kq9jv988q2yxm347z5349dlxvap6d"))))
(base32 "13b9qph8nmxwns9n28im3f7bdzhpjas51vckm9b7h5ghlffbfsw4"))))
(build-system gnu-build-system)
(inputs
(list ncurses pcre2))
@ -3308,14 +3314,14 @@ rules is done with the @code{auditctl} utility.")
(define-public nmap
(package
(name "nmap")
(version "7.92")
(version "7.93")
(source (origin
(method url-fetch)
(uri (string-append "https://nmap.org/dist/nmap-" version
".tar.bz2"))
(sha256
(base32
"18bifn67kz2wxkbnfwcrin2xrhc6qf4p2bvxfqb2a2vbi8pryix5"))
"0lb6s4nmmicfnc221mzgx2w51dcd4b2dhx22pabcqnp2jd3zxg2m"))
(modules '((guix build utils)))
(snippet
'(begin
@ -3328,18 +3334,7 @@ rules is done with the @code{auditctl} utility.")
;; Remove pre-compiled binares.
"mswin32"))))))
(build-system gnu-build-system)
(inputs
`(("openssl" ,openssl)
("libpcap" ,libpcap)
("pcre" ,pcre)
("lua" ,lua)
("zlib" ,zlib) ;for NSE compression support
;; For 'ndiff'.
("python" ,python-2)))
;; TODO Add zenmap output.
(outputs '("out" "ndiff"))
(outputs '("out" "ndiff")) ; TODO Add zenmap output
(arguments
`(#:configure-flags '("--without-zenmap")
#:phases
@ -3382,6 +3377,13 @@ rules is done with the @code{auditctl} utility.")
"check-dns")))))
;; Nmap can't cope with out-of-source building.
#:out-of-source? #f))
(inputs
(list libpcap
lua
openssl-3.0
pcre
zlib ; for NSE compression
python-2)) ; for ndiff
(home-page "https://nmap.org/")
(synopsis "Network discovery and security auditing tool")
(description
@ -3390,7 +3392,7 @@ tool. It is also useful for tasks such as network inventory, managing service
upgrade schedules, and monitoring host or service uptime. It also provides an
advanced netcat implementation (ncat), a utility for comparing scan
results (ndiff), and a packet generation and response analysis tool (nping).")
;; See <https://github.com/nmap/nmap/issues/2199#issuecomment-894812634>.
;; See <https://github.com/nmap/nmap/issues/2199#issuecomment-1380592744>.
;; This package uses nmap's bundled versions of libdnet and liblinear, which
;; both use a 3-clause BSD license.
(license (list license:nmap license:bsd-3))))
@ -3740,7 +3742,7 @@ in order to be able to find it.
(define-public xfel
(package
(name "xfel")
(version "1.2.4")
(version "1.2.9")
(source
(origin
(method git-fetch)
@ -3748,7 +3750,7 @@ in order to be able to find it.
(url "https://github.com/xboot/xfel.git")
(commit (string-append "v" version))))
(sha256
(base32 "0r4j63vh6279fj1yh71h08d1av3nc0majlad5yh6admsxiig101m"))
(base32 "0gs37w5zjfmyadm49hdalq6vr6gidc683agz3shncgj93x2hxx02"))
(file-name (git-file-name name version))))
(native-inputs
(list pkg-config))
@ -3766,12 +3768,14 @@ in order to be able to find it.
(("/usr/local") out)
(("/usr") out)
(("/etc/udev/rules.d")
(string-append out "/lib/udev/rules.d"))))))
(string-append out "/lib/udev/rules.d"))
(("udevadm control --reload") ; next version will remove this
"")))))
(delete 'configure))))
(home-page "https://github.com/xboot/xfel")
(synopsis "Remote debugging tool for Allwinner D1 computers")
(description "This package contains a debugging tool for Allwinner D1
devices (connects via USB OTG).")
(synopsis "Remote debugging tool for Allwinner devices")
(description "This package contains a debugging tool for Allwinner devices
(connects via USB OTG).")
(license license:expat)))
(define-public sedsed
@ -3839,17 +3843,16 @@ buffers.")
(define-public igt-gpu-tools
(package
(name "igt-gpu-tools")
;; You should very likely remove the 'fix-meson.build phase when upgrading.
(version "1.26")
(version "1.27.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.freedesktop.org/drm/igt-gpu-tools.git")
(commit (string-append "igt-gpu-tools-" version))))
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0m124pqv7zna25jnvk566c4kk628jr0w8mgnp8mr5xqz9cprgczm"))))
(base32 "0d6jsj77qddccv0vfmqmbw3k2prvxzvmgc8zdi83gdi3wpp5i7zd"))))
(build-system meson-build-system)
(arguments
`(#:tests? #f ; many of the tests try to load kernel modules
@ -3858,13 +3861,7 @@ buffers.")
(add-after 'unpack 'find-rst2man.py
(lambda _
(substitute* "man/meson.build"
(("'rst2man'") "'rst2man.py'"))))
(add-after 'unpack 'fix-meson.build
;; Fix ‘ERROR: Function does not take positional arguments.’
(lambda _
(substitute* "lib/meson.build"
(("f\\.underscorify\\(f\\)")
"f.underscorify()")))))))
(("'rst2man'") "'rst2man.py'")))))))
(inputs
(list cairo
elfutils ; libdw
@ -3922,19 +3919,19 @@ you are running, what theme or icon set you are using, etc.")
(define-public hyfetch
(package
(name "hyfetch")
(version "1.4.4")
(version "1.4.7")
(source
(origin
(method url-fetch)
(uri (pypi-uri "HyFetch" version))
(sha256
(base32 "1k3pcl16y2czkk7wd79yk0w1kqpi4fp8h8szhjs5ywwy20nqmms8"))))
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/hykilpikonna/hyfetch")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1w0wzai73rr7iliii77f15ck5ki03xcvrhgzbp72nn7xcpix9wqd"))))
(build-system python-build-system)
(inputs (list python-hypy-utils python-typing-extensions))
(arguments `(#:phases (modify-phases %standard-phases
(add-before 'build 'set-HOME
(lambda _ ;; Tries to set files in .config
(setenv "HOME" "/tmp"))))))
(inputs (list python-typing-extensions))
(home-page "https://github.com/hykilpikonna/HyFetch")
(synopsis "@code{neofetch} with pride flags <3")
(description "HyFetch is a command-line system information tool fork of
@ -4354,7 +4351,7 @@ Python loading in HPC environments.")
(let ((real-name "inxi"))
(package
(name "inxi-minimal")
(version "3.3.24-1")
(version "3.3.25-1")
(source
(origin
(method git-fetch)
@ -4363,7 +4360,7 @@ Python loading in HPC environments.")
(commit version)))
(file-name (git-file-name real-name version))
(sha256
(base32 "1nai43251r791qvc1c4hhvcaa6hq7zcjlww7k3ip7br6zgxqjaxm"))))
(base32 "0mak2f06xzalccgaij9fsi20600sg05v0pmg0blvy6hvq5kh97k3"))))
(build-system trivial-build-system)
(inputs
(list bash-minimal
@ -4941,14 +4938,14 @@ Netgear devices.")
(define-public atop
(package
(name "atop")
(version "2.7.1")
(version "2.8.1")
(source (origin
(method url-fetch)
(uri (string-append "https://www.atoptool.nl/download/atop-"
version ".tar.gz"))
(sha256
(base32
"0kjwgf94skbrndv1krlmsrq34smzi3iwk73fbsnyw787gvqx4j6a"))))
"07nsw168aw3mhgzkfw2z5pf92f76l1r4b18zjx7l9hvrkfhmh04p"))))
(build-system gnu-build-system)
(arguments
(list
@ -5242,7 +5239,7 @@ it won't take longer to install 15 machines than it would to install just 2.")
(define-public greetd
(package
(name "greetd")
(version "0.8.0")
(version "0.9.0")
(home-page "https://git.sr.ht/~kennylevinsen/greetd")
(source (origin
(method git-fetch)
@ -5251,11 +5248,11 @@ it won't take longer to install 15 machines than it would to install just 2.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0x5c3jkw09kvj2grcxm899y2n6ws8p990cyp9cs0fy6lm4fzlh6v"))))
(base32 "1b79lb0vikh5vwpdlyga6zwzm11gpsd7ghp8zb0q2m6mlqlj5by3"))))
(build-system cargo-build-system)
(arguments
`(#:cargo-inputs
(("rust-nix" ,rust-nix-0.19)
(("rust-nix" ,rust-nix-0.26)
("rust-pam-sys" ,rust-pam-sys-0.5)
("rust-rpassword" ,rust-rpassword-5)
("rust-users" ,rust-users-0.11)
@ -5302,8 +5299,7 @@ it won't take longer to install 15 machines than it would to install just 2.")
(install-file "greetd-ipc.7" man7)
(install-file "agreety.1" man1))))))))
(native-inputs
`(("linux-pam" ,linux-pam)
("scdoc" ,scdoc)))
(list linux-pam scdoc))
(synopsis "Minimal and flexible login manager daemon")
(description
"greetd is a minimal and flexible login manager daemon
@ -5718,7 +5714,7 @@ file or files to several hosts.")
(define-public doctl
(package
(name "doctl")
(version "1.92.0")
(version "1.93.1")
(source (origin
(method git-fetch)
(uri (git-reference
@ -5727,7 +5723,7 @@ file or files to several hosts.")
(file-name (git-file-name name version))
(sha256
(base32
"0n8xajr9s0y7a43is24q0f9nznmr2sjhlhgg9fpyx4s4nr3s5yqw"))))
"18l0avbq1la1wsfwj13kq5prqz6mydhs3ihvf0f3s3vr2y9h71aq"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/digitalocean/doctl/cmd/doctl"

6
gnu/packages/agda.scm
View file

@ -28,7 +28,6 @@
#:use-module (guix build-system emacs)
#:use-module (guix build-system gnu)
#:use-module (guix build-system haskell)
#:use-module (guix build-system trivial)
#:use-module (guix gexp)
#:use-module (guix download)
#:use-module (guix git-download)
@ -42,12 +41,11 @@
(source
(origin
(method url-fetch)
(uri (string-append
"https://hackage.haskell.org/package/Agda/Agda-"
version ".tar.gz"))
(uri (hackage-uri "Agda" version))
(sha256
(base32 "0yjjbhc593ylrm4mq4j01nkdvh7xqsg5in30wxj4y53vf5hkggp5"))))
(build-system haskell-build-system)
(properties '((upstream-name . "Agda")))
(inputs
(list ghc-aeson
ghc-alex

228
gnu/packages/algebra.scm
View file

@ -34,6 +34,7 @@
(define-module (gnu packages algebra)
#:use-module (gnu packages)
#:use-module (gnu packages autotools)
#:use-module (gnu packages bash)
#:use-module (gnu packages bison)
#:use-module (gnu packages boost)
#:use-module (gnu packages check)
@ -58,6 +59,7 @@
#:use-module (gnu packages python)
#:use-module (gnu packages python-xyz)
#:use-module (gnu packages readline)
#:use-module (gnu packages ruby)
#:use-module (gnu packages shells)
#:use-module (gnu packages tex)
#:use-module (gnu packages texinfo)
@ -103,7 +105,7 @@ implement the floating point approach to complex multiplication are
implemented. On the other hand, these comprise asymptotically fast
multiplication routines such as Toom–Cook and the FFT.")
(license license:lgpl3+)
(home-page "http://www.multiprecision.org/mpfrcx/")))
(home-page "https://www.multiprecision.org/mpfrcx/")))
(define-public gf2x
(package
@ -131,7 +133,7 @@ greatest common divisor operations.")
(define-public cm
(package
(name "cm")
(version "0.4.0")
(version "0.4.1")
(source (origin
(method url-fetch)
(uri (string-append
@ -139,7 +141,7 @@ greatest common divisor operations.")
version ".tar.gz"))
(sha256
(base32
"04l3inafql40n0r5rq8rmp21zplgdrzblil2kgkpx5s0jbs9i8rr"))))
"1avaw6a7lyc2833gr9b7zpk4blvrrrkz8r62sv1grh9xc9i4zg07"))))
(build-system gnu-build-system)
(propagated-inputs
(list mpfrcx zlib)) ; Header files included from cm_common.h.
@ -153,7 +155,7 @@ multiplication via floating point approximations. It consists of libraries
that can be called from within a C program and of executable command
line applications.")
(license license:gpl3+)
(home-page "http://www.multiprecision.org/cm/")))
(home-page "https://www.multiprecision.org/cm/")))
(define-public fplll
(package
@ -464,7 +466,7 @@ GCDs, factoring, solving linear systems, and evaluating special
functions. In addition, FLINT provides various low-level routines for
fast arithmetic.")
(license license:lgpl2.1+)
(home-page "http://flintlib.org/")
(home-page "https://flintlib.org/")
(properties
'((release-monitoring-url . "http://flintlib.org/downloads.html")))))
@ -768,7 +770,7 @@ a C program.")
;; different machine.
"ax_cv_c_flags__mtune_native=no")))
(native-inputs (list perl))
(home-page "http://fftw.org")
(home-page "https://fftw.org")
(synopsis "Computing the discrete Fourier transform")
(description
"FFTW is a C subroutine library for computing the discrete Fourier
@ -1257,7 +1259,7 @@ xtensor provides:
(define-public gap
(package
(name "gap")
(version "4.11.1")
(version "4.12.2")
(source
(origin
(method url-fetch)
@ -1267,14 +1269,13 @@ xtensor provides:
version
".tar.gz"))
(sha256
(base32 "01535s81h254zcs84zi95xqmhvvn6fn9qss8761myxc2gpdcadb6"))
(base32 "1a47slldnjq6mib69k3g8lqw6nyxdrwdd3gfjhj252mpbrs0h8v7"))
(modules '((guix build utils) (ice-9 ftw) (srfi srfi-1)))
(snippet
'(begin
;; Delete the external gmp and zlib libraries
;; and a subdirectory not needed for our build.
;; Delete bundled external libraries.
(for-each delete-file-recursively
'("extern" "hpcgap"))
'("extern" "hpcgap/extern"))
;; Delete a failing test.
;; FIXME: This might be fixed in the next release, see
;; https://github.com/gap-system/gap/issues/3292
@ -1288,47 +1289,69 @@ xtensor provides:
(scandir ".")
'("." ".."
;; Necessary packages.
"GAPDoc-"
"primgrp-"
"SmallGrp-" ; artistic2.0
"transgrp" ; artistic2.0 for data,
; gpl2 or gpl3 for code
"gapdoc"
"primgrp"
"smallgrp" ; artistic2.0
"transgrp" ; artistic2.0 for data,
; gpl2 or gpl3 for code
;; Optional packages.
"alnuth-"
"AutoDoc-"
"automata-"
"autpgrp-"
"crime-"
"crisp-" ; bsd-2
"ctbllib" ; gpl3+
"4ti2interface"
"alnuth"
"autodoc"
"automata"
"autpgrp"
"cap"
"crime"
"crisp" ; bsd-2
"ctbllib" ; gpl3+
"datastructures"
"FactInt-"
"examplesforhomalg"
"factint"
"fga"
"format"
"groupoids-"
"gauss"
"gaussforhomalg"
"generalizedmorphismsforcap"
"gradedmodules"
"gradedringforhomalg"
"groupoids"
"guarana"
"idrel-"
"images-" ; mpl2.0
"IntPic-"
"io-" ; gpl3+
"irredsol-" ; bsd-2
"laguna-"
"liering-"
"MapClass-"
"nilmat-"
"NumericalSgps-"
"OpenMath-"
"orb-" ; gpl3+
"polenta-"
"polycyclic-"
"radiroot-"
"repsn-"
"resclasses-"
"homalg"
"homalgtocas"
"idrel"
"images" ; mpl2.0
"intpic"
"io" ; gpl3+
"ioforhomalg"
"irredsol" ; bsd-2
"laguna"
"liering"
"linearalgebraforcap"
"localizeringforhomalg"
"mapclass"
"matricesforhomalg"
"modulepresentationsforcap"
"modules"
"monoidalcategories"
"nconvex"
"nilmat"
"numericalsgps"
"openmath"
"orb" ; gpl3+
"polenta"
"polycyclic"
"radiroot"
"recog" ; gpl3+
"repsn"
"resclasses"
"ringsforhomalg"
"sco"
"simpcomp"
"sophus-"
"tomlib-"
"unipot-"
"utils-"))))))))
"sophus"
"tomlib"
"toolsforhomalg"
"unipot"
"utils"))))))))
(build-system gnu-build-system)
(inputs
(list gmp readline zlib))
@ -1351,41 +1374,10 @@ xtensor provides:
(lambda _
(with-directory-excursion "doc"
(invoke "./make_doc"))))
(replace 'install
(add-after 'install 'install-packages
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin"))
(prog (string-append bin "/gap"))
(prog-real (string-append bin "/.gap-real"))
(share (string-append out "/share/gap")))
;; Install only the gap binary; the gac compiler is left
;; for maybe later. "Wrap" it in a shell script that calls
;; the binary with the correct parameter.
;; The make target install-bin is supposed to do that, but
;; is not currently working.
(mkdir-p bin)
(copy-file "gap" prog-real)
(call-with-output-file prog
(lambda (port)
(format port
"#!~a~%exec ~a -l ~a \"$@\"~%"
(which "bash")
prog-real
share)))
(chmod prog #o755)
;; Install the headers and library, which are needed by Sage.
(invoke "make" "install-headers")
(install-file "gen/config.h"
(string-append out "/include/gap"))
(invoke "make" "install-libgap")
;; Remove information on the build directory from sysinfo.gap.
(substitute* "sysinfo.gap"
(("GAP_BIN_DIR=\".*\"") "GAP_BIN_DIR=\"\"")
(("GAP_LIB_DIR=\".*\"") "GAP_LIB_DIR=\"\"")
(("GAP_CPPFLAGS=\".*\"") "GAP_CPPFLAGS=\"\""))
(invoke "make" "install-gaproot")
;; Copy the directory of compiled packages; the make target
;; install-pkg is currently empty.
(copy-recursively "pkg" (string-append share "/pkg"))))))))
(home-page "https://www.gap-system.org/")
(synopsis
@ -1776,7 +1768,7 @@ no more than about 20 bits long).")
"0n8gj5iylfagdbaqirpykb01a9difsy4zl6qq55f0ghvazxqdvmn"))))
(properties `((upstream-name . "dtt")))
(build-system r-build-system)
(home-page "http://www.r-project.org")
(home-page "https://www.r-project.org")
(synopsis "Discrete Trigonometric Transforms")
(description
"This package provides functions for 1D and 2D Discrete Cosine Transform
@ -1828,3 +1820,81 @@ mathematical floating-point libraries (libm). Amongst other features,
it offers a certified infinity norm, an automatic polynomial
implementer, and a fast Remez algorithm.")
(license license:cecill-c)))
(define-public form
;; using this commit as it removes some invalid/ambiguous license info
(let ((commit "e7c52d3b07abe21f21718f5e70ee138e856f15ac")
(revision "0"))
(package
(name "form")
(version (git-version "4.3.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/vermaseren/form")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"15pjpn5s8d3sva18syhyymh5v1dijchk0xkf6d0m7cl2sj3qxxxq"))))
(build-system gnu-build-system)
(arguments
(list #:configure-flags #~'("--enable-native=no")
#:phases #~(modify-phases %standard-phases
(add-after 'unpack 'patch-src
(lambda _
(substitute* "check/examples.frm"
;; skip test that causes memory leak and fails
(("#pend_if valgrind\\?")
"#pend_if 0"))
(substitute* "sources/extcmd.c"
(("/bin/sh")
(string-append
#$(this-package-input "bash-minimal")
"/bin/sh")))))
(add-after 'build 'build-doxygen
(lambda _
(with-directory-excursion "doc/doxygen"
(invoke "make" "html"))))
(add-after 'install 'install-docs
(lambda _
(let ((doc (string-append
#$output "/share/doc/" #$name "-"
#$version "/html")))
(mkdir-p doc)
(copy-recursively "doc/doxygen/html" doc)))))))
(native-inputs (list autoconf automake doxygen ruby))
(inputs (list bash-minimal))
(home-page "https://www.nikhef.nl/~form/")
(synopsis "Symbolic manipulation system for very big expressions")
(description
"FORM is a symbolic manipulation system. It reads symbolic expressions
from files and executes symbolic/algebraic transformations upon them. The
answers are returned in a textual mathematical representation. The size of
the considered expressions in FORM is only limited by the available disk space
and not by the available RAM.")
;; XXX: Ignore this CVE to work around a name clash with the unrelated
;; "neos/forms" package.
(properties '((lint-hidden-cve . ("CVE-2021-32697"))))
;; x86_64 only due to test failures on other platforms.
;; Developers say other platforms are not "tier 1" supported:
;; https://github.com/vermaseren/form/issues/426
(supported-systems '("x86_64-linux"))
(license license:gpl3+))))
(define-public parform
(package
(inherit form)
(name "parform")
(arguments
(substitute-keyword-arguments (package-arguments form)
((#:configure-flags flags)
#~(cons* "--enable-parform=yes" #$flags))
((#:phases phases)
#~(modify-phases #$phases
(add-before 'check 'mpi-setup
#$%openmpi-setup)))))
(inputs (list bash-minimal openmpi))
(description (string-append (package-description form)
" This package also includes
@code{parform}, a version of FORM parallelized using OpenMPI."))))

17
gnu/packages/android.scm
View file

@ -1195,25 +1195,22 @@ main repository.")
(define-public fdroidcl
(package
(name "fdroidcl")
(version "0.5.0")
(version "0.7.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/mvdan/fdroidcl")
(commit (string-append "v" version))))
(url "https://github.com/mvdan/fdroidcl")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1rxcdyy2j34z0ql9d62w7ivsch9xihjnpb1z9kgy9q46vl8zhhy0"))))
(base32
"1s3fszlyyab9gbdrg52zcbafsb1mgb770skg7b3gj7f3pzfnra5n"))))
(build-system go-build-system)
(arguments
`(#:import-path "mvdan.cc/fdroidcl"
#:tests? #f ; TODO: Inputs missing.
#:tests? #f ;requires internet access
#:install-source? #f))
(inputs
(list go-github-com-kr-pretty))
;(native-inputs
; `(("go-github-com-rogpeppe-go-internal-testscript"
; ,go-github-com-rogpeppe-go-internal-testscript)))
(inputs (list go-github-com-kr-pretty go-github-com-schollz-progressbar-v3))
(synopsis "F-Droid desktop client")
(description
"While the Android client integrates with the system with regular update

4
gnu/packages/antivirus.scm
View file

@ -45,14 +45,14 @@
(define-public clamav
(package
(name "clamav")
(version "0.103.7")
(version "0.103.8")
(source (origin
(method url-fetch)
(uri (string-append "https://www.clamav.net/downloads/production/"
"clamav-" version ".tar.gz"))
(sha256
(base32
"0l3yn4dl4zgpq2qmj29kkd0fksyy1icr0rpp3fyvbcqcc0gw6d0y"))
"0gwcikzfdswrdh5vhh3x4lx8w92476fmb7im7phnv4r7x5pdljbg"))
(modules '((guix build utils)))
(snippet
'(begin

44
gnu/packages/apl.scm
View file

@ -3,6 +3,7 @@
;;; Copyright © 2014, 2015 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2017, 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2022 Paul A. Patience <paul@apatience.com>
;;; Copyright © 2023 B. Wilson <elaexuotee@wilsonb.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -26,6 +27,8 @@
#:use-module (guix gexp)
#:use-module (guix packages)
#:use-module (guix build-system gnu)
#:use-module (guix build-system trivial)
#:use-module (gnu packages fontutils)
#:use-module (gnu packages gettext)
#:use-module (gnu packages maths)
#:use-module (gnu packages pcre)
@ -76,3 +79,44 @@
"GNU APL is a free interpreter for the programming language APL. It is
an implementation of the ISO standard 13751.")
(license license:gpl3+))))
(define-public font-apl2741-unicode
(let ((commit "1e11efae38e5095bfe49a786b111d563e83dad03"))
(package
(name "font-apl2741-unicode")
(version "1668049300")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/abrudz/APL2741.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "0i1yk1x99lr2swlbq9r7dny5w70zwiwi8lpfcw4n7k7pfbw0xh7y"))))
(build-system trivial-build-system)
(native-inputs (list fontforge))
(arguments
`(#:modules ((guix build utils))
#:builder
(begin
(use-modules (guix build utils))
(let* ((source (assoc-ref %build-inputs "source"))
(out (assoc-ref %outputs "out"))
(dest (string-append out "/share/fonts/truetype"))
(fontforge (string-append
(assoc-ref %build-inputs "fontforge")
"/bin/fontforge")))
(mkdir-p dest)
(invoke fontforge "-lang=ff" "-c" "Open($1); Generate($2)"
(string-append source "/APL2741.sfd")
(string-append dest "/APL2741.ttf"))))))
(synopsis "APL2741 Unicode font")
(home-page "https://abrudz.github.io/APL2741/")
(description "APL font based on Adrian Smith's IBM Selectric APL2741
golf-ball font. It supports most special characters used by popular APL
implementations, some additional mathematical and typographical symbols,
single line drawing characters, as well as the full Unicode APL range,
including both uppercase and lowercase underscored alphabets, as-of-yet unused
symbols, and almost all Latin-1 accented letters.")
(license license:unlicense))))

4
gnu/packages/apr.scm
View file

@ -49,7 +49,7 @@
'(#:parallel-build? #f
#:parallel-tests? #f))
(inputs (list perl libltdl))
(home-page "http://apr.apache.org/")
(home-page "https://apr.apache.org/")
(synopsis "The Apache Portable Runtime Library")
(description
"The mission of the Apache Portable Runtime (APR) project is to create and
@ -96,7 +96,7 @@ around or take advantage of platform-specific deficiencies or features.")
;; to run it. See
;; <http://lists.gnu.org/archive/html/guix-devel/2014-03/msg00261.html>.
#:parallel-tests? #f))
(home-page "http://apr.apache.org/")
(home-page "https://apr.apache.org/")
(synopsis "One of the Apache Portable Runtime Library companions")
(description
"APR-util provides a number of helpful abstractions on top of APR.")

14
gnu/packages/aspell.scm
View file

@ -13,6 +13,8 @@
;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
;;; Copyright © 2020 Noah Landis <noahlandis@posteo.net>
;;; Copyright © 2021 Sergiu Ivanov <sivanov@colimite.fr>
;;; Copyright © 2023 Yovan Naumovski <yovan@gorski.stream>
;;; Copyright © 2023 Zheng Junjie <873216071@qq.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -74,7 +76,7 @@
(string-append "\"filter-path" middle
"\"" libdir "\"")))
#t))))))
(inputs (list perl))
(native-inputs (list perl))
(native-search-paths
;; This is a Guix-specific environment variable that takes a single
@ -171,6 +173,14 @@ dictionaries, including personal ones.")
(base32
"1svls9p7rsfi3hs0afh0cssj006qb4v1ik2yzqgj8hm10c6as2sm")))
(define-public aspell-dict-bg
(aspell-dictionary "bg" "Bulgarian"
#:version "4.1-0"
#:prefix "aspell6-"
#:sha256
(base32
"1alacmgpfk0yrgq83y23d16fhav1bxmb98kg8d2a5r9bvh2h0mvl")))
(define-public aspell-dict-bn
(aspell-dictionary "bn" "Bengali"
#:version "0.01.1-1"
@ -301,7 +311,7 @@ dictionaries, including personal ones.")
"aspell6-it-" version ".tar.bz2"))
(hash (content-hash sha256))))
(home-page
"http://linguistico.sourceforge.net/pages/dizionario_italiano.html"))))
"https://linguistico.sourceforge.net/pages/dizionario_italiano.html"))))
(define-public aspell-dict-mi
(aspell-dictionary "mi" "Maori"

4
gnu/packages/assembly.scm
View file

@ -133,14 +133,14 @@ debugging information in STABS, DWARF 2, and CodeView 8 formats.")
(define-public lightning
(package
(name "lightning")
(version "2.2.0")
(version "2.2.1")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnu/lightning/lightning-"
version ".tar.gz"))
(sha256
(base32
"03kwvn00qggys203vpzb2kq2asy0ql7x84ajk05a62yg3kzq8faf"))))
"1aiwx9cl9c7swqcgrsjnvd5laah3iwxzl1van3670iv8sn0icrwq"))))
(build-system gnu-build-system)
(native-inputs (list zlib))
(arguments

301
gnu/packages/astronomy.scm
View file

@ -37,6 +37,7 @@
#:use-module (gnu packages compression)
#:use-module (gnu packages curl)
#:use-module (gnu packages databases)
#:use-module (gnu packages documentation)
#:use-module (gnu packages flex)
#:use-module (gnu packages fontutils)
#:use-module (gnu packages gcc)
@ -44,6 +45,9 @@
#:use-module (gnu packages gl)
#:use-module (gnu packages glib)
#:use-module (gnu packages gnome)
#:use-module (gnu packages gps)
#:use-module (gnu packages graph)
#:use-module (gnu packages graphviz)
#:use-module (gnu packages gtk)
#:use-module (gnu packages image)
#:use-module (gnu packages image-processing)
@ -51,6 +55,7 @@
#:use-module (gnu packages libusb)
#:use-module (gnu packages lua)
#:use-module (gnu packages maths)
#:use-module (gnu packages multiprecision)
#:use-module (gnu packages ncurses)
#:use-module (gnu packages netpbm)
#:use-module (gnu packages perl)
@ -70,6 +75,7 @@
#:use-module (gnu packages sphinx)
#:use-module (gnu packages textutils)
#:use-module (gnu packages time)
#:use-module (gnu packages tls)
#:use-module (gnu packages version-control)
#:use-module (gnu packages video)
#:use-module (gnu packages wxwidgets)
@ -205,6 +211,63 @@ moment, supported SPICE files are:
@end itemize\n")
(license license:cecill)))
(define-public calcmysky
(package
(name "calcmysky")
(version "0.2.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/10110111/CalcMySky")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0bib5shy8wzc7j5ph218dl9hqrqip491mn25gakyghbvaqxgm27d"))))
(build-system cmake-build-system)
(arguments
(list #:configure-flags
#~(list "-DQT_VERSION=6"
"-DCMAKE_CXX_FLAGS=-fPIC")))
(inputs
(list eigen glm qtbase))
(home-page "https://10110111.github.io/CalcMySky/")
(synopsis "Simulator of light scattering by planetary atmospheres")
(description
"CalcMySky is a software package that simulates scattering of light by the
atmosphere to render daytime and twilight skies (without stars). Its primary
purpose is to enable realistic view of the sky in applications such as
planetaria. Secondary objective is to make it possible to explore atmospheric
effects such as glories, fogbows etc., as well as simulate unusual environments
such as on Mars or an exoplanet orbiting a star with a non-solar spectrum of
radiation.
This package consists of three parts:
@itemize
@item @code{calcmysky} utility that does the precomputation of the atmosphere
model to enable rendering.
@item @code{libShowMySky} library that lets the applications render the
atmosphere model.
@item @code{ShowMySky} preview GUI that makes it possible to preview the
rendering of the atmosphere model and examine its properties.
@end itemize")
(license license:gpl3+)))
(define-public calcmysky-qt5
(package/inherit calcmysky
(name "calcmysky-qt5")
(arguments
(list #:configure-flags
#~(list "-DQT_VERSION=5"
"-DCMAKE_CXX_FLAGS=-fPIC")))
(inputs
(modify-inputs (package-inputs calcmysky)
(replace "qtbase" qtbase-5)))
(synopsis "Qt5 build for the CalcMySky library.")))
(define-public aoflagger
(package
(name "aoflagger")
@ -346,7 +409,7 @@ wide set of telescopes.")
python
python-numpy
wcslib))
(home-page "http://casacore.github.io/casacore/")
(home-page "https://casacore.github.io/casacore/")
(synopsis "Suite of C++ libraries for radio astronomy data processing")
(description
"The casacore package contains the core libraries of the old
@ -650,7 +713,7 @@ programs for the manipulation and analysis of astronomical data.")
(inputs
`(("openblas" ,openblas)
("fftw" ,fftwf)))
(home-page "http://www.astromatic.net/software/sextractor")
(home-page "https://www.astromatic.net/software/sextractor")
(synopsis "Extract catalogs of sources from astronomical images")
(description
"SExtractor is a program that builds a catalogue of objects from an
@ -699,7 +762,7 @@ image formats.")
(define-public splash
(package
(name "splash")
(version "3.5.1")
(version "3.7.2")
(source (origin
(method git-fetch)
(uri (git-reference
@ -707,7 +770,7 @@ image formats.")
(commit (string-append "v" version))))
(sha256
(base32
"12s3w96wzd4zpxw4adzhalkr57fgdk7cjp6bj596jnd87pz3rhyd"))
"0nsm6rk0bi99xz7wclk0zy4bpqf0qcsdln5cdjb30lhpf37i2fpa"))
(file-name (git-file-name name version))))
(build-system gnu-build-system)
(arguments
@ -835,45 +898,65 @@ deconvolution). Such post-processing is not performed by Stackistry.")
(define-public stellarium
(package
(name "stellarium")
(version "0.21.1")
(version "1.2")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/Stellarium/stellarium"
"/releases/download/v" version
"/stellarium-" version ".tar.gz"))
(method git-fetch)
(uri (git-reference
(url "https://github.com/Stellarium/stellarium")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "049jlc8vx06pad5h2syrmf7f1l346yr5iraai0wkn8s8pk30j8q7"))))
(base32 "1655lz848k7m4vqs7n3vxjwn5n4pkykwl6x7nbanqcqzlixm5xnk"))))
(build-system cmake-build-system)
;; TODO: Complete documentation build and split into dedicated outputs.
(arguments
(list
;; FIXME: Tests keep failing on 100% when preparing test-suit for INDI.
#:tests? #f
#:test-target "test"
#:configure-flags
#~(list "-DENABLE_GPS=1"
;; TODO: Enable when all of the dependencies are availalbe for Qt6.
"-DENABLE_QT6=0"
"-DENABLE_TESTING=0"
(string-append "-DCMAKE_CXX_FLAGS=-isystem "
#$(this-package-input "qtserialport") "/include/qt5"))
#:phases
#~(modify-phases %standard-phases
(add-before 'check 'set-offscreen-display
(lambda _
(setenv "QT_QPA_PLATFORM" "offscreen")
(setenv "HOME" "/tmp"))))))
(inputs
(list qtbase-5
(list calcmysky-qt5
gpsd
indi
libnova
openssl
qtbase-5
qtcharts
qtlocation
qtmultimedia-5
qtpositioning
qtscript
qtserialport
qttranslations
qtwebengine-5
qxlsx-qt5
zlib))
(native-inputs
`(("gettext" ,gettext-minimal) ; xgettext is used at compile time
("perl" ,perl) ; for pod2man
("qtbase" ,qtbase-5) ; Qt MOC is needed at compile time
("qttools-5" ,qttools-5)))
(arguments
`(#:test-target "test"
#:configure-flags (list "-DENABLE_TESTING=1"
(string-append
"-DCMAKE_CXX_FLAGS=-isystem "
(assoc-ref %build-inputs "qtserialport")
"/include/qt5"))
#:phases (modify-phases %standard-phases
(add-before 'check 'set-offscreen-display
(lambda _
;; Make Qt render "offscreen", required for tests.
(setenv "QT_QPA_PLATFORM" "offscreen")
(setenv "HOME" "/tmp")
#t)))))
(list doxygen
gettext-minimal
graphviz
mesa
perl
python-wrapper
qttools-5))
(home-page "https://stellarium.org/")
(synopsis "3D sky viewer")
(description "Stellarium is a planetarium. It shows a realistic sky in
(description
"Stellarium is a planetarium. It shows a realistic sky in
3D, just like what you see with the naked eye, binoculars, or a telescope. It
can be used to control telescopes over a serial port for tracking celestial
objects.")
@ -1199,6 +1282,37 @@ attempting to maintain ISTP compliance
@end itemize")
(license license:expat)))
(define-public python-czml3
(package
(name "python-czml3")
(version "0.7.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/poliastro/czml3")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0pbwcsmc9nw591rck586ca9hwwhmm54rjjmp8gflhzq8b7f48lkc"))))
(build-system pyproject-build-system)
(propagated-inputs
(list python-attrs
python-dateutil
python-w3lib))
(native-inputs
(list python-astropy
python-pytest
python-pytest-cov
python-pytest-mypy))
(home-page "https://github.com/poliastro/czml3")
(synopsis "Python library to write CZML")
(description
"CZML3 is a Python library to write CZML, a JSON format for describing
a time-dynamic graphical scene, primarily for display in a web browser running
Cesium.")
(license license:expat)))
(define-public python-drms
(package
(name "python-drms")
@ -1340,6 +1454,81 @@ the easy construction of interactive matplotlib widget based animations.")
of astronomical sources.")
(license license:bsd-3)))
(define-public python-poliastro
(package
(name "python-poliastro")
(version "0.17.0")
(source
(origin
;; PyPi tarball lacks tests.
(method git-fetch)
(uri (git-reference
(url "https://github.com/poliastro/poliastro")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1iclyjp0cvm6hp5qf4fzklszxvhj3idkxgb6a9h7xzg9bf5j5gi2"))))
(build-system pyproject-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
;; NOTE: Tests take about 7-10 minutes to pass.
(add-before 'check 'prepare-test-environment
(lambda _
(setenv "HOME" "/tmp")
;; TODO: Review failing tests later when any upstream
;; suggestions are provided:
;; https://github.com/poliastro/poliastro/issues/1618
(substitute* "tests/test_czml.py"
(("def test_czml_add_trajectory") "def __off_test_czml_add_trajectory")
(("def test_czml_custom_packet") "def __off_test_czml_custom_packet")
(("def test_czml_ground_station") "def __off_test_czml_ground_station")
(("def test_czml_groundtrack") "def __off_test_czml_groundtrack")
(("def test_czml_preamble") "def __off_test_czml_preamble"))))
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(invoke "python" "-m" "pytest"
;; Skip tests that need remote data.
"-m" "not remote_data")))))))
(native-inputs
(list python-coverage
python-hypothesis
python-mypy
python-flit-core
python-pytest
python-pytest-cov
python-pytest-doctestplus
python-pytest-mpl
python-pytest-mypy))
(propagated-inputs
(list python-astropy
python-astroquery
python-czml3
python-jplephem
python-matplotlib
python-numba
python-numpy
python-pandas
python-plotly
python-pyerfa
python-scipy))
(home-page "https://www.poliastro.space/")
(synopsis "Astrodynamics in Python")
(description
"POLIASTRO is a Python library for interactive Astrodynamics and Orbital
Mechanics, with a focus on ease of use, speed, and quick visualization. It
provides a simple and intuitive API, and handles physical quantities with
units.
Some features include orbit propagation, solution of the Lambert's problem,
conversion between position and velocity vectors and classical orbital
elements and orbit plotting, among others. It focuses on interplanetary
applications, but can also be used to analyze artificial satellites in
Low-Earth Orbit (LEO).")
(license license:expat)))
(define-public python-poppy
(package
(name "python-poppy")
@ -1655,6 +1844,54 @@ positions of the sun: dawn, sunrise, solar noon, sunset, dusk, solar
elevation, solar azimuth, rahukaalam, and the phases of the moon.")
(license license:asl2.0)))
(define-public python-spherical-geometry
(package
(name "python-spherical-geometry")
(version "1.2.22")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/spacetelescope/spherical_geometry")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0kzcncqir4v7nhk9lxj9gxr32p3krkaqa58y2i4kksgxxy24qw4z"))))
(build-system python-build-system)
(arguments
(list
;; NOTE: (Sharlatan-20220523T231348+0100): Tests depends on old Python2
;; libarry `sphere'
#:tests? #f
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'preparations
(lambda _
;; Fixing: setuptools-scm was unable to detect version for ...
(substitute* "setup.py"
(("use_scm_version=True")
(format #f "version=~s" #$version))
(("setup_requires=\\['setuptools_scm'\\],.*")
""))
;; Use our own libraries in place of bundles.
(setenv "USE_SYSTEM_QD" "1"))))))
(native-inputs
(list python-pytest
python-setuptools-scm))
(inputs
(list qd))
(propagated-inputs
(list python-astropy
python-numpy))
(home-page "https://github.com/spacetelescope/tweakwcs")
(synopsis "Python astronimical package for handling spherical polygons")
(description
"The @code{spherical_geometry} library is a Python package for handling
spherical polygons that represent arbitrary regions of the sky.")
;; LICENSE.rst Association of Universities for Research in Astronomy (AURA)
;; QD_LIBRARY_LICENSE.rst for bandeled QD source
(license license:bsd-3)))
(define-public libnova
(package
(name "libnova")
@ -1683,7 +1920,7 @@ elevation, solar azimuth, rahukaalam, and the phases of the moon.")
(synopsis "Celestial mechanics, astrometry and astrodynamics library")
(description "Libnova is a general purpose, double precision, Celestial
Mechanics, Astrometry and Astrodynamics library.")
(home-page "http://libnova.sourceforge.net/")
(home-page "https://libnova.sourceforge.net/")
(license (list license:lgpl2.0+
license:gpl2+)))) ; examples/transforms.c & lntest/*.c
@ -1889,7 +2126,7 @@ on FITS files:
(string-append "CPPFLAGS=-I" netpbm "/include/netpbm")
;; no nasa jpl cspice support
"--without-cspice" )))))
(home-page "http://xplanet.sourceforge.net/")
(home-page "https://xplanet.sourceforge.net/")
(synopsis "Planetary body renderer")
(description
"Xplanet renders an image of a planet into an X window or file.

166
gnu/packages/audio.scm
View file

@ -502,7 +502,7 @@ by MusicIP.")
(description "LibTiMidity is a MIDI to WAVE converter library that uses
Gravis Ultrasound-compatible patch files to generate digital audio data from
General MIDI files.")
(home-page "http://libtimidity.sourceforge.net/")
(home-page "https://libtimidity.sourceforge.net/")
(license
;; This project is dual-licensed.
;; Either of the following licenses can be exercised.
@ -573,7 +573,7 @@ implementation of Adaptive Multi Rate Narrowband and Wideband
qtbase-5))
(native-inputs
(list pkg-config qttools-5))
(home-page "http://alsamodular.sourceforge.net/")
(home-page "https://alsamodular.sourceforge.net/")
(synopsis "Realtime modular synthesizer and effect processor")
(description
"AlsaModularSynth is a digital implementation of a classical analog
@ -856,7 +856,7 @@ engineers, musicians, soundtrack editors and composers.")
(define-public audacity
(package
(name "audacity")
(version "3.2.3")
(version "3.2.4")
(source
(origin
(method git-fetch)
@ -865,7 +865,7 @@ engineers, musicians, soundtrack editors and composers.")
(commit (string-append "Audacity-" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0wg75fblxlnrn5kqvg0w1fi2pwdkn1nd6vgya3sad84l3ki7wpyh"))
(base32 "06kfxbfvvhbhwfzkvar6hir351606g29ij8b4hksxpzq338shgc3"))
(patches (search-patches "audacity-ffmpeg-fallback.patch"))
(modules '((guix build utils)))
(snippet
@ -990,6 +990,117 @@ and editing digital audio. It features digital effects and spectrum analysis
tools.")
(license license:gpl2+)))
(define-public tenacity
(package
(name "tenacity")
(version "1.3-beta2")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://codeberg.org/tenacityteam/tenacity")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0pd2vxzqzq7ikz7l2a1h9qwq08276xicvphrpn47gvmwaslah1gn"))))
(build-system cmake-build-system)
(arguments
(list
#:imported-modules `((guix build glib-or-gtk-build-system)
,@%cmake-build-system-modules)
#:modules
'((guix build utils)
(guix build cmake-build-system)
((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:))
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'use-upstream-headers
(lambda* (#:key inputs #:allow-other-keys)
(substitute* '("libraries/lib-files/FileNames.cpp")
(("\"/usr/include/linux/magic.h\"") "<linux/magic.h>"))))
(add-after 'unpack
'i-spy-with-my-little-eye-something-in-the-wrong-folder
(lambda _
(symlink (string-append (getcwd) "/images")
"src/images")))
(add-after 'unpack 'fix-cmake-rpath
(lambda* (#:key outputs #:allow-other-keys)
(substitute* "CMakeLists.txt"
(("\\$ORIGIN/\\.\\./\\$\\{_PKGLIB\\}")
(string-append (assoc-ref outputs "out") "/lib/tenacity"))
(("CMAKE_BUILD_WITH_INSTALL_RPATH [A-Z]*")
"CMAKE_BUILD_WITH_INSTALL_RPATH TRUE")
(("CMAKE_INSTALL_RPATH_USE_LINK_PATH [A-Z]*")
"CMAKE_INSTALL_RPATH_USE_LINK_PATH TRUE"))
(substitute* "src/CMakeLists.txt"
;; Despite the name, this script breaks rpath. Don't run it.
(("install.*linux/fix_rpath\\.cmake.*")
"")
(("-Wl,--disable-new-dtags") "-Wl,--enable-new-dtags"))))
(replace 'configure
(lambda args
(define %configure (assoc-ref %standard-phases 'configure))
(with-exception-handler
(lambda (error)
(unless (invoke-error? error)
(raise error))
;; Have you tried turning it off and on again?
(apply invoke (invoke-error-program error)
(invoke-error-arguments error)))
(lambda ()
(apply %configure args))
#:unwind? #t)))
(add-after 'wrap-program 'glib-or-gtk-wrap
(assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))
;; Test suite? Which test suite?
#:tests? #f))
(inputs
(list wxwidgets
gtk+
alsa-lib
jack-1
expat
lame
flac
ffmpeg
libid3tag
libjpeg-turbo
;;("libsbsms" ,libsbsms) ;bundled version is modified
libsndfile
mpg123
soundtouch
soxr ;replaces libsamplerate
sqlite
twolame
vamp
libvorbis
lv2
lilv ;for lv2
suil ;for lv2
portaudio
portmidi
wavpack))
(native-inputs
(list gettext-minimal ;for msgfmt
libtool
pkg-config
python
which))
(native-search-paths
(list (search-path-specification
(variable "TENACITY_MODULES_PATH")
(files '("lib/tenacity/modules")))
(search-path-specification
(variable "TENACITY_PATH")
(files '("share/tenacity")))))
(home-page "https://tenacityaudio.org/")
(synopsis "Software for recording and editing sounds")
(description
"Tenacity is a multi-track audio editor designed for recording, playing
and editing digital audio. It features digital effects and spectrum analysis
tools.")
(license license:gpl2+)))
(define-public audiofile
(package
(name "audiofile")
@ -1132,7 +1243,7 @@ formant warp.")
(list gtkmm-2 jack-2 lvtk))
(native-inputs
(list pkg-config))
(home-page "http://ll-plugins.nongnu.org/azr3/")
(home-page "https://ll-plugins.nongnu.org/azr3/")
(synopsis "Tonewheel organ synthesizer")
(description
"AZR-3 is a port of the free VST plugin AZR-3. It is a tonewheel organ
@ -1488,7 +1599,7 @@ formats used to store information about DJ record libraries.")
bison
sed
grep))
(home-page "http://taopm.sourceforge.net/")
(home-page "https://taopm.sourceforge.net/")
(synopsis "Sound Synthesis with Physical Models")
(description "Tao is a software package for sound synthesis using physical
models. It provides a virtual acoustic material constructed from masses and
@ -2158,7 +2269,7 @@ also play midifiles using a Soundfont.")
#t))))
(native-inputs
(list tar bzip2))
(home-page "http://freepats.zenvoid.org")
(home-page "https://freepats.zenvoid.org")
(synopsis "GUS compatible patches for MIDI players")
(description
"FreePats is a project to create a free and open set of GUS compatible
@ -2312,7 +2423,7 @@ auto-wah.")
libsndfile
libsamplerate
zlib))
(home-page "http://rakarrack.sourceforge.net/")
(home-page "https://rakarrack.sourceforge.net/")
(synopsis "Audio effects processor")
(description
"Rakarrack is a richly featured multi-effects processor emulating a
@ -2576,13 +2687,12 @@ audio signal streaming.")
(list lv2
lilv
suil
gtk
gtkmm
gtk+
qtbase-5
jack-1))
(native-inputs
(list pkg-config))
(home-page "https://drobilla.net/software/jalv/")
(home-page "https://drobilla.net/software/jalv.html")
(synopsis "Simple LV2 host for JACK")
(description
"Jalv is a simple but fully featured LV2 host for JACK. It runs LV2
@ -2698,7 +2808,7 @@ with applications that support them (e.g. PulseAudio).")
`(;; liblo test FAILED
;; liblo server error 19 in setsockopt(IP_ADD_MEMBERSHIP): No such device
#:tests? #f))
(home-page "http://liblo.sourceforge.net")
(home-page "https://liblo.sourceforge.net")
(synopsis "Implementation of the Open Sound Control protocol")
(description
"liblo is a lightweight library that provides an easy to use
@ -3468,7 +3578,7 @@ using Guix System.")
(list pkg-config))
(inputs
(list libogg libtheora libvorbis speex))
(home-page "http://idjc.sourceforge.net/")
(home-page "https://idjc.sourceforge.net/")
(synopsis "Broadcast streaming library with IDJC extensions")
(description "This package provides libshout plus IDJC extensions.")
;; GNU Library (not Lesser) General Public License.
@ -3704,7 +3814,7 @@ for loudness normalisation.")
freepats))
(native-inputs
(list pkg-config))
(home-page "http://timidity.sourceforge.net/")
(home-page "https://timidity.sourceforge.net/")
(synopsis "Software synthesizer for playing MIDI files")
(description
"TiMidity++ is a software synthesizer. It can play MIDI files by
@ -3789,7 +3899,7 @@ analysis plugins or audio feature extraction plugins.")
"/ar-lib"))
"ar-lib")
#t)))))
(home-page "http://sbsms.sourceforge.net/")
(home-page "https://sbsms.sourceforge.net/")
(synopsis "Library for time stretching and pitch scaling of audio")
(description
"SBSMS (Subband Sinusoidal Modeling Synthesis) is software for time
@ -3867,7 +3977,7 @@ encode and decode wavpack files.")
(base32
"1pnri98a603xk47smnxr551svbmgbzcw018mq1k6srbrq6kaaz25"))))
(build-system gnu-build-system)
(home-page "http://modplug-xmms.sourceforge.net/")
(home-page "https://modplug-xmms.sourceforge.net/")
(synopsis "Mod file playing library")
(description
"Libmodplug renders mod music files as raw audio data, for playing or
@ -3888,7 +3998,7 @@ surround and reverb.")
(base32
"1kycz4jsyvmf7ny9227b497wc7y5ligydi6fvvldmkf8hk63ad9m"))))
(build-system gnu-build-system)
(home-page "http://xmp.sourceforge.net/")
(home-page "https://xmp.sourceforge.net/")
(synopsis "Module player library")
(description
"Libxmp is a library that renders module files to PCM data. It supports
@ -3912,7 +4022,7 @@ Scream Tracker 3 (S3M), Fast Tracker II (XM), and Impulse Tracker (IT).")
(list pkg-config))
(inputs
(list libxmp pulseaudio))
(home-page "http://xmp.sourceforge.net/")
(home-page "https://xmp.sourceforge.net/")
(synopsis "Extended module player")
(description
"Xmp is a portable module player that plays over 90 mainstream and
@ -3976,7 +4086,7 @@ control functionality, or just for playing around with the sound effects.")
libpng
libvorbis
pulseaudio))
(home-page "http://sox.sourceforge.net")
(home-page "https://sox.sourceforge.net")
(synopsis "Sound processing utility")
(description
"SoX (Sound eXchange) is a command line utility that can convert
@ -4091,7 +4201,7 @@ interface.")
(define-public qsynth
(package
(name "qsynth")
(version "0.5.7")
(version "0.9.9")
(source
(origin
(method url-fetch)
@ -4101,14 +4211,14 @@ interface.")
(string-append "mirror://sourceforge/qsynth/qsynth (attic)"
"/qsynth-" version ".tar.gz")))
(sha256
(base32 "18im4w8agj60nkppwbkxqnhpp13z5li3w30kklv4lgs20rvgbvl6"))))
(build-system gnu-build-system)
(base32 "1cjg25nva5ivahr0qqlvf6ybnpcx9jgrxbp4vgwkk64b4k9wnd4n"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f)) ; no "check" phase
(native-inputs
(list qttools-5 pkg-config))
(list qttools pkg-config))
(inputs
(list fluidsynth qtbase-5 qtx11extras))
(list fluidsynth qtbase qtsvg qtwayland))
(home-page "https://qsynth.sourceforge.io")
(synopsis "Graphical user interface for FluidSynth")
(description
@ -4473,7 +4583,7 @@ with support for HD extensions.")
'(modify-phases %standard-phases
(delete 'configure))))
(inputs (list fftw))
(home-page "http://drc-fir.sourceforge.net/")
(home-page "https://drc-fir.sourceforge.net/")
(synopsis "Digital room correction")
(description
"DRC is a program used to generate correction filters for acoustic
@ -4599,7 +4709,7 @@ code, used in @code{libtoxcore}.")
(synopsis "GSM 06.10 lossy speech compression library")
(description "This C library provides an encoder and a decoder for the GSM
06.10 RPE-LTP lossy speech compression algorithm.")
(home-page "http://quut.com/gsm/")
(home-page "https://quut.com/gsm/")
(license (license:non-copyleft "file://COPYRIGHT"))))
(define-public python-pyalsaaudio
@ -5118,7 +5228,7 @@ developing fully accurate DirectX Audio runtime libraries.")
(list alsa-lib gtk+-2 libsndfile portaudio))
(native-inputs
(list pkg-config))
(home-page "http://gnaural.sourceforge.net/")
(home-page "https://gnaural.sourceforge.net/")
(synopsis "Binaural beat synthesizer")
(description "Gnaural is a programmable auditory binaural beat synthesizer
intended to be used for brainwave entrainment. Gnaural supports creation of
@ -6108,7 +6218,7 @@ managed by PipeWire.")
(build-system gnu-build-system)
(native-inputs (list pkg-config))
(inputs (list faad2 glib libmad libvorbis))
(home-page "http://streamripper.sourceforge.net")
(home-page "https://streamripper.sourceforge.net")
(synopsis "Record audio streams to your hard drive")
(description "Streamripper records shoutcast-compatible
streams. For shoutcast style streams it finds the “meta data” or track

2
gnu/packages/authentication.scm
View file

@ -161,7 +161,7 @@ YubiKey into your existing user authentication infrastructure.")
(list pkg-config))
(inputs
(list linux-pam))
(home-page "http://pamtester.sourceforge.net/")
(home-page "https://pamtester.sourceforge.net/")
(synopsis "Utility for testing pluggable authentication modules (PAM) facility")
(description
"Pamtester is a tiny utility program to test the pluggable authentication

7
gnu/packages/aux-files/emacs/guix-emacs.el
View file

@ -76,6 +76,13 @@ The files in the list do not have extensions (.el, .elc)."
(when (file-directory-p pkg-dir)
(package-load-descriptor pkg-dir)))))))))))
;; If emacs built with tree-sitter, read the value of the environment variable
;; to make tree-sitter grammars available in emacs out-of-the-box.
(with-eval-after-load 'treesit
(when-let ((grammar-path (getenv "TREE_SITTER_GRAMMAR_PATH")))
(mapcar (lambda (x) (add-to-list 'treesit-extra-load-path x))
(split-string grammar-path ":"))))
(provide 'guix-emacs)
;;; guix-emacs.el ends here

2
gnu/packages/aux-files/linux-libre/4.14-i686.conf
View file

@ -1645,7 +1645,7 @@ CONFIG_NET_FLOW_LIMIT=y
#
CONFIG_NET_PKTGEN=m
CONFIG_NET_TCPPROBE=m
# CONFIG_NET_DROP_MONITOR is not set
CONFIG_NET_DROP_MONITOR=m
CONFIG_HAMRADIO=y
#

2
gnu/packages/aux-files/linux-libre/4.14-x86_64.conf
View file

@ -1639,7 +1639,7 @@ CONFIG_NET_FLOW_LIMIT=y
#
CONFIG_NET_PKTGEN=m
CONFIG_NET_TCPPROBE=m
# CONFIG_NET_DROP_MONITOR is not set
CONFIG_NET_DROP_MONITOR=m
CONFIG_HAMRADIO=y
#

2
gnu/packages/aux-files/linux-libre/4.19-i686.conf
View file

@ -1747,7 +1747,7 @@ CONFIG_NET_FLOW_LIMIT=y
# Network testing
#
CONFIG_NET_PKTGEN=m
# CONFIG_NET_DROP_MONITOR is not set
CONFIG_NET_DROP_MONITOR=m
CONFIG_HAMRADIO=y
#

2
gnu/packages/aux-files/linux-libre/4.19-x86_64.conf
View file

@ -1753,7 +1753,7 @@ CONFIG_NET_FLOW_LIMIT=y
# Network testing
#
CONFIG_NET_PKTGEN=m
# CONFIG_NET_DROP_MONITOR is not set
CONFIG_NET_DROP_MONITOR=m
CONFIG_HAMRADIO=y
#

2
gnu/packages/aux-files/linux-libre/5.10-arm.conf
View file

@ -1745,7 +1745,7 @@ CONFIG_NET_FLOW_LIMIT=y
# Network testing
#
CONFIG_NET_PKTGEN=m
CONFIG_NET_DROP_MONITOR=y
CONFIG_NET_DROP_MONITOR=m
# end of Network testing
# end of Networking options

2
gnu/packages/aux-files/linux-libre/5.10-arm64.conf
View file

@ -1758,7 +1758,7 @@ CONFIG_NET_FLOW_LIMIT=y
# Network testing
#
CONFIG_NET_PKTGEN=m
CONFIG_NET_DROP_MONITOR=y
CONFIG_NET_DROP_MONITOR=m
# end of Network testing
# end of Networking options

2
gnu/packages/aux-files/linux-libre/5.10-i686.conf
View file

@ -1756,7 +1756,7 @@ CONFIG_NET_FLOW_LIMIT=y
# Network testing
#
CONFIG_NET_PKTGEN=m
# CONFIG_NET_DROP_MONITOR is not set
CONFIG_NET_DROP_MONITOR=m
# end of Network testing
# end of Networking options

2
gnu/packages/aux-files/linux-libre/5.10-x86_64.conf
View file

@ -1784,7 +1784,7 @@ CONFIG_NET_FLOW_LIMIT=y
# Network testing
#
CONFIG_NET_PKTGEN=m
# CONFIG_NET_DROP_MONITOR is not set
CONFIG_NET_DROP_MONITOR=m
# end of Network testing
# end of Networking options

4
gnu/packages/aux-files/linux-libre/5.15-arm.conf
View file

@ -101,7 +101,7 @@ CONFIG_HAVE_EBPF_JIT=y
CONFIG_BPF_SYSCALL=y
CONFIG_BPF_JIT=y
# CONFIG_BPF_JIT_ALWAYS_ON is not set
# CONFIG_BPF_UNPRIV_DEFAULT_OFF is not set
CONFIG_BPF_UNPRIV_DEFAULT_OFF=y
# CONFIG_BPF_PRELOAD is not set
CONFIG_BPF_LSM=y
# end of BPF subsystem
@ -1736,7 +1736,7 @@ CONFIG_NET_FLOW_LIMIT=y
# Network testing
#
CONFIG_NET_PKTGEN=m
CONFIG_NET_DROP_MONITOR=y
CONFIG_NET_DROP_MONITOR=m
# end of Network testing
# end of Networking options

4
gnu/packages/aux-files/linux-libre/5.15-arm64.conf
View file

@ -96,7 +96,7 @@ CONFIG_BPF_SYSCALL=y
CONFIG_BPF_JIT=y
# CONFIG_BPF_JIT_ALWAYS_ON is not set
CONFIG_BPF_JIT_DEFAULT_ON=y
# CONFIG_BPF_UNPRIV_DEFAULT_OFF is not set
CONFIG_BPF_UNPRIV_DEFAULT_OFF=y
# CONFIG_BPF_PRELOAD is not set
CONFIG_BPF_LSM=y
# end of BPF subsystem
@ -1756,7 +1756,7 @@ CONFIG_NET_FLOW_LIMIT=y
# Network testing
#
CONFIG_NET_PKTGEN=m
CONFIG_NET_DROP_MONITOR=y
CONFIG_NET_DROP_MONITOR=m
# end of Network testing
# end of Networking options

4
gnu/packages/aux-files/linux-libre/5.15-i686.conf
View file

@ -108,7 +108,7 @@ CONFIG_HAVE_EBPF_JIT=y
#
CONFIG_BPF_SYSCALL=y
# CONFIG_BPF_JIT is not set
# CONFIG_BPF_UNPRIV_DEFAULT_OFF is not set
CONFIG_BPF_UNPRIV_DEFAULT_OFF=y
# CONFIG_BPF_PRELOAD is not set
# end of BPF subsystem
@ -1765,7 +1765,7 @@ CONFIG_NET_FLOW_LIMIT=y
# Network testing
#
CONFIG_NET_PKTGEN=m
# CONFIG_NET_DROP_MONITOR is not set
CONFIG_NET_DROP_MONITOR=m
# end of Network testing
# end of Networking options

4
gnu/packages/aux-files/linux-libre/5.15-x86_64.conf
View file

@ -112,7 +112,7 @@ CONFIG_ARCH_WANT_DEFAULT_BPF_JIT=y
#
CONFIG_BPF_SYSCALL=y
# CONFIG_BPF_JIT is not set
# CONFIG_BPF_UNPRIV_DEFAULT_OFF is not set
CONFIG_BPF_UNPRIV_DEFAULT_OFF=y
# CONFIG_BPF_PRELOAD is not set
# end of BPF subsystem
@ -1802,7 +1802,7 @@ CONFIG_NET_FLOW_LIMIT=y
# Network testing
#
CONFIG_NET_PKTGEN=m
# CONFIG_NET_DROP_MONITOR is not set
CONFIG_NET_DROP_MONITOR=m
# end of Network testing
# end of Networking options

2
gnu/packages/aux-files/linux-libre/5.4-arm.conf
View file

@ -1713,7 +1713,7 @@ CONFIG_NET_FLOW_LIMIT=y
# Network testing
#
CONFIG_NET_PKTGEN=m
CONFIG_NET_DROP_MONITOR=y
CONFIG_NET_DROP_MONITOR=m
# end of Network testing
# end of Networking options

2
gnu/packages/aux-files/linux-libre/5.4-arm64.conf
View file

@ -1690,7 +1690,7 @@ CONFIG_NET_FLOW_LIMIT=y
# Network testing
#
CONFIG_NET_PKTGEN=m
CONFIG_NET_DROP_MONITOR=y
CONFIG_NET_DROP_MONITOR=m
# end of Network testing
# end of Networking options

2
gnu/packages/aux-files/linux-libre/5.4-i686.conf
View file

@ -1723,7 +1723,7 @@ CONFIG_NET_FLOW_LIMIT=y
# Network testing
#
CONFIG_NET_PKTGEN=m
# CONFIG_NET_DROP_MONITOR is not set
CONFIG_NET_DROP_MONITOR=m
# end of Network testing
# end of Networking options

2
gnu/packages/aux-files/linux-libre/5.4-x86_64.conf
View file

@ -1736,7 +1736,7 @@ CONFIG_NET_FLOW_LIMIT=y
# Network testing
#
CONFIG_NET_PKTGEN=m
# CONFIG_NET_DROP_MONITOR is not set
CONFIG_NET_DROP_MONITOR=m
# end of Network testing
# end of Networking options

4
gnu/packages/aux-files/linux-libre/6.1-arm.conf
View file

@ -103,7 +103,7 @@ CONFIG_HAVE_EBPF_JIT=y
CONFIG_BPF_SYSCALL=y
CONFIG_BPF_JIT=y
# CONFIG_BPF_JIT_ALWAYS_ON is not set
# CONFIG_BPF_UNPRIV_DEFAULT_OFF is not set
CONFIG_BPF_UNPRIV_DEFAULT_OFF=y
# CONFIG_BPF_PRELOAD is not set
CONFIG_BPF_LSM=y
# end of BPF subsystem
@ -1757,7 +1757,7 @@ CONFIG_NET_FLOW_LIMIT=y
# Network testing
#
CONFIG_NET_PKTGEN=m
CONFIG_NET_DROP_MONITOR=y
CONFIG_NET_DROP_MONITOR=m
# end of Network testing
# end of Networking options

4
gnu/packages/aux-files/linux-libre/6.1-arm64.conf
View file

@ -112,7 +112,7 @@ CONFIG_BPF_SYSCALL=y
CONFIG_BPF_JIT=y
# CONFIG_BPF_JIT_ALWAYS_ON is not set
CONFIG_BPF_JIT_DEFAULT_ON=y
# CONFIG_BPF_UNPRIV_DEFAULT_OFF is not set
CONFIG_BPF_UNPRIV_DEFAULT_OFF=y
# CONFIG_BPF_PRELOAD is not set
CONFIG_BPF_LSM=y
# end of BPF subsystem
@ -1772,7 +1772,7 @@ CONFIG_NET_FLOW_LIMIT=y
# Network testing
#
CONFIG_NET_PKTGEN=m
CONFIG_NET_DROP_MONITOR=y
CONFIG_NET_DROP_MONITOR=m
# end of Network testing
# end of Networking options

4
gnu/packages/aux-files/linux-libre/6.1-i686.conf
View file

@ -111,7 +111,7 @@ CONFIG_HAVE_EBPF_JIT=y
#
CONFIG_BPF_SYSCALL=y
# CONFIG_BPF_JIT is not set
# CONFIG_BPF_UNPRIV_DEFAULT_OFF is not set
CONFIG_BPF_UNPRIV_DEFAULT_OFF=y
# CONFIG_BPF_PRELOAD is not set
# end of BPF subsystem
@ -1810,7 +1810,7 @@ CONFIG_NET_FLOW_LIMIT=y
# Network testing
#
CONFIG_NET_PKTGEN=m
# CONFIG_NET_DROP_MONITOR is not set
CONFIG_NET_DROP_MONITOR=m
# end of Network testing
# end of Networking options

4
gnu/packages/aux-files/linux-libre/6.1-x86_64.conf
View file

@ -116,7 +116,7 @@ CONFIG_ARCH_WANT_DEFAULT_BPF_JIT=y
#
CONFIG_BPF_SYSCALL=y
# CONFIG_BPF_JIT is not set
# CONFIG_BPF_UNPRIV_DEFAULT_OFF is not set
CONFIG_BPF_UNPRIV_DEFAULT_OFF=y
# CONFIG_BPF_PRELOAD is not set
# end of BPF subsystem
@ -1871,7 +1871,7 @@ CONFIG_NET_FLOW_LIMIT=y
# Network testing
#
CONFIG_NET_PKTGEN=m
# CONFIG_NET_DROP_MONITOR is not set
CONFIG_NET_DROP_MONITOR=m
# end of Network testing
# end of Networking options

10724
gnu/packages/aux-files/linux-libre/6.2-arm.conf Normal file
View file

File diff suppressed because it is too large Load diff

11276
gnu/packages/aux-files/linux-libre/6.2-arm64.conf Normal file
View file

File diff suppressed because it is too large Load diff

11602
gnu/packages/aux-files/linux-libre/6.2-i686.conf Normal file
View file

File diff suppressed because it is too large Load diff

11764
gnu/packages/aux-files/linux-libre/6.2-x86_64.conf Normal file
View file

File diff suppressed because it is too large Load diff

48
gnu/packages/backup.scm
View file

@ -50,7 +50,6 @@
#:use-module (guix build-system cmake)
#:use-module (guix build-system gnu)
#:use-module (guix build-system go)
#:use-module (guix build-system perl)
#:use-module (guix build-system python)
#:use-module (guix build-system qt)
#:use-module (gnu packages)
@ -564,6 +563,13 @@ rsnapshot uses hard links to deduplicate identical files.")
(modules '((guix build utils)))
(snippet
'(begin
;; Gnulib's <stdio.h> refers to 'gets' for the purposes of
;; warning against its use, but 'gets' is no longer declared
;; in glibc's <stdio.h>. Remove that warning.
(substitute* "lib/stdio.in.h"
(("_GL_WARN_ON_USE \\(gets,.*")
"\n/* 'gets' is gone, rejoice! */\n"))
;; Include all the libtirpc headers necessary to get the
;; definitions of 'u_int', etc.
(substitute* '("src/block-server.c"
@ -572,8 +578,7 @@ rsnapshot uses hard links to deduplicate identical files.")
(("#include <rpc/(.*)\\.h>" _ header)
(string-append "#include <rpc/types.h>\n"
"#include <rpc/rpc.h>\n"
"#include <rpc/" header ".h>\n")))
#t))))
"#include <rpc/" header ".h>\n")))))))
(build-system gnu-build-system)
(arguments
'(;; Link against libtirpc.
@ -598,12 +603,16 @@ rsnapshot uses hard links to deduplicate identical files.")
(string-append (getenv "CPATH")
":" tirpc))
(setenv "CPATH" tirpc)))))
(add-before 'check 'skip-test
(add-before 'check 'adjust-test
(lambda _
;; XXX: This test fails (1) because current GnuTLS no
;; longer supports OpenPGP authentication, and (2) for
;; some obscure reason. Better skip it.
(setenv "XFAIL_TESTS" "utils/block-server"))))))
;; This test uses a weird construct to spawn
;; 'chop-block-server' in the background. Replace it
;; with something that actually works.
(substitute* "tests/utils/block-server"
(("chop_fail_if ! chop-block-server")
"chop-block-server")
(("'&'")
"&")))))))
(native-inputs
(list guile-2.0 gperf-3.0 ;see <https://bugs.gnu.org/32382>
pkg-config rpcsvc-proto)) ;for 'rpcgen'
@ -1212,14 +1221,14 @@ backup.")
(define-public disarchive
(package
(name "disarchive")
(version "0.4.0")
(version "0.5.0")
(source (origin
(method url-fetch)
(uri (string-append "https://files.ngyro.com/disarchive/"
"disarchive-" version ".tar.gz"))
(sha256
(base32
"1pql8cspsxyx8cpw3xyhirnisv6rb4vj5mxr1d7w9la72q740n8s"))))
"16sjplkn9nr7zhfrqll7l1m2b2j4hg8k29p6bqjap9fkj6zpn2q2"))))
(build-system gnu-build-system)
(native-inputs
(list autoconf
@ -1246,13 +1255,13 @@ compression parameters used by Gzip.")
(define-public borgmatic
(package
(name "borgmatic")
(version "1.5.22")
(version "1.7.9")
(source
(origin
(method url-fetch)
(uri (pypi-uri "borgmatic" version))
(sha256
(base32 "0pvqlj17vp81i7saxqh5hsaxqz29ldrjd7bcssh4g1h0ikmnaf2r"))))
(base32 "1scfh90qgv8xhafnnpl3pa9d8m4rg9xgvf21yybvmsnm5v1k2x5z"))))
(build-system python-build-system)
(arguments
(list #:phases
@ -1261,10 +1270,15 @@ compression parameters used by Gzip.")
(lambda* (#:key inputs #:allow-other-keys)
;; Set absolute store path to borg.
(substitute* "borgmatic/commands/borgmatic.py"
(("location\\.get\\('local_path', 'borg'\\)")
(string-append "location.get('local_path', '"
(("\\.get\\('local_path', 'borg'\\)")
(string-append ".get('local_path', '"
(search-input-file inputs "bin/borg")
"')")))))
"')")))
(substitute* "tests/unit/commands/test_borgmatic.py"
(("(module.get_local_path.+ == )'borg'" all start)
(string-append start "'"
(search-input-file inputs "bin/borg")
"'")))))
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
@ -1334,7 +1348,7 @@ borgmatic is powered by borg.")
python-paramiko
python-peewee
python-psutil
python-pyqt-without-qtwebkit
python-pyqt
python-secretstorage
;; This is included so that the qt-wrap phase picks it up.
qtsvg-5))
@ -1361,7 +1375,7 @@ archives.")
(native-inputs (list intltool pkg-config))
(inputs (list gtk+))
(propagated-inputs (list rsync))
(home-page "http://www.opbyte.it/grsync/")
(home-page "https://www.opbyte.it/grsync/")
(synopsis "GTK frontend for rsync")
(description
"Grsync is a simple graphical interface using GTK for the @command{rsync}

1
gnu/packages/barrier.scm
View file

@ -18,7 +18,6 @@
(define-module (gnu packages barrier)
#:use-module (guix build-system cmake)
#:use-module (guix build-system gnu)
#:use-module (guix utils)
#:use-module (guix git-download)
#:use-module (guix download)

5
gnu/packages/base.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012-2022 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2012-2023 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014, 2019 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2012 Nikita Karetnikov <nikita@karetnikov.org>
;;; Copyright © 2014, 2015, 2016, 2018 Mark H Weaver <mhw@netris.org>
@ -648,8 +648,7 @@ included.")
(substitute* "gold/Makefile.in"
((" testsuite") " ")))))
'())))))
(native-inputs
`(("bc" ,bc)))))
(native-inputs (list bc))))
(define* (make-ld-wrapper name #:key
(target (const #f))

12
gnu/packages/bdw-gc.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013, 2014, 2016, 2017, 2020, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2012, 2013, 2014, 2016, 2017, 2020, 2021, 2023 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2016, 2018 Leo Famulari <leo@famulari.name>
;;; Copyright © 2017 Rene Saavedra <rennes@openmailbox.org>
@ -36,8 +36,11 @@
(version "8.0.4")
(source (origin
(method url-fetch)
(uri (string-append "https://github.com/ivmai/bdwgc/releases"
"/download/v" version "/gc-" version ".tar.gz"))
(uri (list (string-append "https://github.com/ivmai/bdwgc/releases"
"/download/v" version
"/gc-" version ".tar.gz")
(string-append "https://www.hboehm.info/gc/gc_source"
"/gc-" version ".tar.gz")))
(sha256
(base32
"1798rp3mcfkgs38ynkbg2p47bq59pisrc6mn0l20pb5iczf0ssj3"))))
@ -69,6 +72,9 @@
`(("libatomic-ops" ,libatomic-ops))
'()))
(outputs '("out" "debug"))
(properties
'((release-monitoring-url . "https://www.hboehm.info/gc/gc_source/")
(upstream-name . "gc")))
(synopsis "The Boehm-Demers-Weiser conservative garbage collector
for C and C++")
(description

819
gnu/packages/bioconductor.scm
View file

File diff suppressed because it is too large Load diff

1134
gnu/packages/bioinformatics.scm
View file

File diff suppressed because it is too large Load diff

10
gnu/packages/bittorrent.scm
View file

@ -385,7 +385,7 @@ and will take advantage of multiple processor cores where possible.")
(define-public libtorrent-rasterbar
(package
(name "libtorrent-rasterbar")
(version "1.2.15")
(version "1.2.18")
(source
(origin
(method url-fetch)
@ -394,7 +394,7 @@ and will take advantage of multiple processor cores where possible.")
"releases/download/v" version "/"
"libtorrent-rasterbar-" version ".tar.gz"))
(sha256
(base32 "0jr1c876mvwbbbnav8ldcdm1l6z3g404jc5wp8z902jcd0w8dbf8"))))
(base32 "0wpsaqadcicxl4lf1nc1i93c4yzjv8hpzhhrw1hdkrp4gn0vdwpy"))))
(build-system cmake-build-system)
(arguments
`(#:configure-flags '("-Dpython-bindings=ON"
@ -416,7 +416,7 @@ and will take advantage of multiple processor cores where possible.")
;; expiry date. To ensure succesful builds in the future,
;; fake the time to be roughly that of the release.
(setenv "FAKETIME_ONLY_CMDS" "test_ssl")
(invoke "faketime" "2021-12-12"
(invoke "faketime" "2022-10-24"
"ctest"
"--exclude-regex" (string-join disabled-tests "|")
"-j" (if parallel-tests?
@ -440,7 +440,7 @@ desktops.")
(define-public qbittorrent
(package
(name "qbittorrent")
(version "4.4.1")
(version "4.5.2")
(source
(origin
(method git-fetch)
@ -449,7 +449,7 @@ desktops.")
(commit (string-append "release-" version))))
(file-name (git-file-name name version))
(sha256
(base32 "00whc4p209g2krsggxyq4sna01djbk1rbzkyjbq4qczvya01xn0w"))))
(base32 "07s0ypkd1zzkw9qhfwxxx7s6zizjz0448al17xmc1b48phn46hjk"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags

72
gnu/packages/bootloaders.scm
View file

@ -6,7 +6,7 @@
;;; Copyright © 2016-2018, 2021-2023 Marius Bakke <marius@gnu.org>
;;; Copyright © 2016, 2017 Danny Milosavljevic <dannym@scratchpost.org>
;;; Copyright © 2016, 2017 David Craven <david@craven.ch>
;;; Copyright © 2017, 2018, 2020, 2021, 2022 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017, 2018, 2020-2023 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018–2022 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 nee <nee@cock.li>
;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com>
@ -305,6 +305,10 @@ menu to select one of the installed operating systems.")
(inputs
(modify-inputs (package-inputs grub)
(prepend efibootmgr mtools)))
(native-inputs
;; The tests are skipped in this package so we remove some test dependencies.
(modify-inputs (package-native-inputs grub)
(delete "parted" "qemu" "xorriso")))
(arguments
`(;; TODO: Tests need a UEFI firmware for qemu. There is one at
;; https://github.com/tianocore/edk2/tree/master/OvmfPkg .
@ -1102,6 +1106,22 @@ partition."))
(modify-inputs (package-native-inputs base)
(append arm-trusted-firmware-rk3399))))))
(define-public u-boot-qemu-arm
(make-u-boot-package "qemu_arm" "arm-linux-gnueabihf"
;; Disable features that require OpenSSL due
;; to GPL/Openssl license incompatibilities.
;; See https://bugs.gnu.org/34717 for
;; details.
#:configs '("# CONFIG_FIT_SIGNATURE is not set")))
(define-public u-boot-qemu-arm64
(make-u-boot-package "qemu_arm64" "aarch64-linux-gnu"
;; Disable features that require OpenSSL due
;; to GPL/Openssl license incompatibilities.
;; See https://bugs.gnu.org/34717 for
;; details.
#:configs '("# CONFIG_FIT_SIGNATURE is not set")))
(define-public u-boot-qemu-riscv64
(make-u-boot-package "qemu-riscv64" "riscv64-linux-gnu"))
@ -1177,7 +1197,7 @@ Documentation} for more information (for example by running @samp{info
#~(modify-phases #$phases
(add-after 'unpack 'set-environment
(lambda* (#:key native-inputs inputs #:allow-other-keys)
(setenv "BL31 "(search-input-file inputs "bl31.elf"))))))))
(setenv "BL31" (search-input-file inputs "bl31.elf"))))))))
(inputs
(modify-inputs (package-inputs base)
(append arm-trusted-firmware-rk3328))))))
@ -1501,7 +1521,7 @@ To flash this bootloader, write it to an SD card, then using the U-Boot serial
console:
@example
mmc dev 0
load mmc 0:1 ${loadaddr} /u-boot.imx
load mmc 0:1 ${loadaddr} /boot/u-boot.imx
sf probe
sf erase 0 0x80000
sf write ${loadaddr} 0x400 $filesize
@ -1690,20 +1710,21 @@ order to add a suitable bootloader menu entry.")
;;
;; TODO: Bump this timestamp at each modifications of the package (not only
;; for updates) by running: date +%s.
(let ((timestamp "1671715380"))
(let ((timestamp "1678285400")
(commit "9e1f7a3659071004f4b8c76f2593da6287f0d575")
(revision "1"))
(package
(name "ipxe")
(version "1.21.1")
(version (git-version "1.21.1" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/ipxe/ipxe")
(commit (string-append "v" version))))
(commit commit)))
(file-name (git-file-name name version))
(patches (search-patches "ipxe-reproducible-geniso.patch"))
(sha256
(base32
"1pkf1n1c0rdlzfls8fvjvi1sd9xjd9ijqlyz3wigr70ijcv6x8i9"))))
"1fp4bgwzy923m11dkkhk9dik7al7shzmmpqhp339z786z8bjzmkb"))))
(build-system gnu-build-system)
(arguments
(list
@ -1737,15 +1758,6 @@ order to add a suitable bootloader menu entry.")
(list "ECHO_E_BIN_ECHO=echo"
"ECHO_E_BIN_ECHO_E=echo -e"
;; cdrtools' mkisofs will silently ignore a missing isolinux.bin!
;; Luckily xorriso is more strict.
#$@(if (or (target-x86-64?) (target-x86?))
'((string-append "ISOLINUX_BIN=" syslinux
"/share/syslinux/isolinux.bin")
(string-append "SYSLINUX_MBR_DISK_PATH=" syslinux
"/share/syslinux/isohdpfx.bin"))
'())
;; Build reproducibly.
(string-append "BUILD_ID_CMD=echo -n " (build-id #$output))
(string-append "BUILD_TIMESTAMP=" #$timestamp)
@ -1772,6 +1784,24 @@ order to add a suitable bootloader menu entry.")
(string-append "#define " option))
(("^#undef.*(DOWNLOAD_PROTO_NFS.*)" _ option)
(string-append "#define " option)))))
;; It is not entirely clear why these fail to compile.
(add-after 'enter-source-directory 'skip-i386-tap-linux
(lambda _
(substitute* "Makefile"
(("bin-i386-linux/tap.linux") "")
(("bin-i386-linux/tests.linux") ""))))
#$@(if (target-x86?)
#~((add-after 'enter-source-directory 'set-syslinux-path
;; cdrtools' mkisofs will silently ignore a missing isolinux.bin!
;; Luckily xorriso is more strict.
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "util/genfsimg"
(("\t/usr/lib/syslinux " all)
(string-append
"\t" #$(this-package-native-input "syslinux")
"/share/syslinux \\\n"
all))))))
#~())
(delete 'configure) ; no configure script
(replace 'install
(lambda _
@ -1797,10 +1827,10 @@ order to add a suitable bootloader menu entry.")
(lambda _ (chdir ".."))))
#:tests? #f)) ; no test suite
(native-inputs
(append (if (or (target-x86-64?) (target-x86?))
;; Syslinux only supports i686 and x86_64.
(list syslinux)
'())
(append (if (target-x86?)
;; Syslinux only supports i686 and x86_64.
(list syslinux)
'())
(list perl xorriso)))
(home-page "https://ipxe.org")
(synopsis "PXE-compliant network boot firmware")

1
gnu/packages/bootstrap.scm
View file

@ -30,7 +30,6 @@
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix build-system)
#:use-module (guix build-system gnu)
#:use-module (guix build-system trivial)
#:use-module ((guix store)
#:select (%store-monad interned-file text-file store-lift))

8
gnu/packages/bqn.scm
View file

@ -23,7 +23,6 @@
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix git-download)
#:use-module (guix build-system copy)
#:use-module (guix build-system gnu)
#:use-module (guix utils)
#:use-module (gnu packages)
@ -194,11 +193,14 @@ by APL.")
(let* ((bin (string-append (assoc-ref outputs "out")
"/bin"))
(lib (string-append (assoc-ref outputs "lib")
"/lib")))
"/lib"))
(include (string-append (assoc-ref outputs "lib")
"/include")))
(mkdir-p bin)
(rename-file "BQN" "bqn")
(install-file "bqn" bin)
(install-file "libcbqn.so" lib))))))))
(install-file "libcbqn.so" lib)
(install-file "include/bqnffi.h" include))))))))
(native-inputs (list dbqn
bqn-sources
libffi))

28
gnu/packages/build-tools.scm
View file

@ -661,7 +661,7 @@ software.")
sqlite))
(native-inputs
(list pkg-config))
(home-page "http://gittup.org/tup/")
(home-page "https://gittup.org/tup/")
(synopsis "Fast build system that's hard to get wrong")
(description "Tup is a generic build system based on a directed acyclic
graphs of commands to be executed. Tup instruments your build to detect the
@ -973,16 +973,29 @@ Makefiles, JSON Compilation Database, and experimentally Ninja.")
("NormalizationTest.txt" . "uninorm")
("auxiliary/GraphemeBreakTest.txt" . "unigbrk")
("auxiliary/WordBreakTest.txt" . "uniwbrk")))
(delete-file "gen-uni-tables")))))))
(inputs ;; Shebangs for some auxiliary build files.
(list python perl clisp))
(delete-file "gen-uni-tables"))))
(add-after 'install 'restore-shebangs
(lambda _
(substitute* (find-files
(string-append #$output "/src/gnulib")
(lambda (fname stat)
(and (not (string-suffix? "/lib/javaversion.class" fname))
(not (string-suffix? ".mo" fname)))))
(("^#! ?(.*)/bin/sh" _ prefix)
"#!/bin/sh")
(("^#! ?(.*)/bin/python3" _ prefix)
"#!/usr/bin/env python3")
(("^#! ?(.*)/bin/([a-zA-Z0-9-]+)" _ prefix program)
(string-append "#!/usr/bin/" program))))))))
(inputs
(list bash-minimal)) ;shebang for gnulib-tool
(native-inputs
(list
python perl clisp
bash-minimal python perl clisp
;; Unicode data:
ucd-next
;; Programs for the tests:
cppi indent git autoconf))
cppi indent git-minimal/pinned autoconf))
(home-page "https://www.gnu.org/software/gnulib/")
(synopsis "Source files to share among distributions")
(description
@ -997,7 +1010,8 @@ maintenance-related files, for convenience.")
(native-search-paths
(list (search-path-specification
(variable "GNULIB_SRCDIR")
(files (list "src/gnulib")))))
(files (list "src/gnulib"))
(separator #f))))
(license (list license:lgpl2.0+ license:gpl3+))))
(define-public gnulib

5
gnu/packages/c.scm
View file

@ -44,7 +44,6 @@
#:use-module (guix build-system copy)
#:use-module (guix build-system gnu)
#:use-module (guix build-system python)
#:use-module (guix build-system trivial)
#:use-module (guix store)
#:use-module (gnu packages)
#:use-module (gnu packages bash)
@ -255,7 +254,7 @@ compiler while still keeping it small, simple, fast and understandable.")
(define-public qbe
(package
(name "qbe")
(version "1.0")
(version "1.1")
(source (origin
(method git-fetch)
(uri (git-reference
@ -264,7 +263,7 @@ compiler while still keeping it small, simple, fast and understandable.")
(file-name (git-file-name name version))
(sha256
(base32
"0qx4a3fjjrp2m4dsn19rpbjf89k9w7w7l09s96jx8vv15vzsdgis"))))
"07nl1kdgpz7hwfkng0yy4xihk0fmv1a2hq9bxzgvhy3vk9r7fmn8"))))
(build-system gnu-build-system)
(arguments
(list #:make-flags

8
gnu/packages/cdrom.scm
View file

@ -87,7 +87,7 @@
"0fr21a7vprdyy1bq6s99m0x420c9jm5fipsd63pqv8qyfkhhxkim"))))
(build-system gnu-build-system)
(arguments '(#:tests? #f)) ; tests rely on access to external servers
(home-page "http://libcddb.sourceforge.net/")
(home-page "https://libcddb.sourceforge.net/")
(synopsis "C library to access data on a CDDB server")
(description
"Libcddb is a C library to access data on a CDDB server (freedb.org). It
@ -282,7 +282,7 @@ reconstruction capability.")
(list autoconf automake pkg-config))
(inputs
(list ao lame libmad libvorbis))
(home-page "http://cdrdao.sourceforge.net")
(home-page "https://cdrdao.sourceforge.net")
(synopsis "Read and write CDs in disk-at-once mode")
(description "cdrdao records audio or data CDs in disk-at-once (DAO) mode,
based on a textual description of the contents. This mode writes the complete
@ -351,7 +351,7 @@ CD's, DVD's or Blue Ray discs. The most important components are
@command{cdrecord}, a burning program, @command{cdda2wav}, a CD audio ripper
which uses libparanoia, and @command{mkisofs}, which can create various disc
images.")
(home-page "http://cdrtools.sourceforge.net/private/cdrecord.html")
(home-page "https://cdrtools.sourceforge.net/private/cdrecord.html")
;; mkisofs is GPL, the other programs are CDDL.
(license (list cddl1.0 gpl2))))
@ -574,7 +574,7 @@ the data.")
(package
(name "cd-discid")
(version "1.4")
(home-page "http://linukz.org/cd-discid.shtml")
(home-page "https://linukz.org/cd-discid.shtml")
(source (origin
(method url-fetch)
(uri (string-append "http://linukz.org/download/cd-discid-"

141
gnu/packages/check.scm
View file

@ -41,6 +41,8 @@
;;; Copyright © 2022 David Elsing <david.elsing@posteo.net>
;;; Copyright © 2022 Sharlatan Hellseher <sharlatanus@gmail.com>
;;; Copyright © 2022 jgart <jgart@dismail.de>
;;; Copyright © 2023 Luis Felipe López Acevedo <luis.felipe.la@protonmail.com>
;;; Copyright © 2023 Timo Wilken <guix@twilken.net>
;;;
;;; This file is part of GNU Guix.
;;;
@ -70,6 +72,8 @@
#:use-module (gnu packages gnome)
#:use-module (gnu packages golang)
#:use-module (gnu packages gtk)
#:use-module (gnu packages guile)
#:use-module (gnu packages guile-xyz)
#:use-module (gnu packages perl)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages python)
@ -78,6 +82,7 @@
#:use-module (gnu packages python-web)
#:use-module (gnu packages python-xyz)
#:use-module (gnu packages python-science)
#:use-module (gnu packages texinfo)
#:use-module (gnu packages time)
#:use-module (gnu packages xml)
#:use-module (guix utils)
@ -90,6 +95,7 @@
#:use-module (guix build-system glib-or-gtk)
#:use-module (guix build-system gnu)
#:use-module (guix build-system go)
#:use-module (guix build-system guile)
#:use-module (guix build-system meson)
#:use-module (guix build-system pyproject)
#:use-module (guix build-system python)
@ -350,7 +356,7 @@ testing of Unix command lines.")
(lambda _ (invoke "autoreconf" "-vfi"))))))
(native-inputs
(list automake autoconf libtool))
(home-page "http://cunit.sourceforge.net/")
(home-page "https://cunit.sourceforge.net/")
(synopsis "Automated testing framework for C")
(description
"CUnit is a lightweight system for writing, administering, and running
@ -1023,6 +1029,58 @@ C++ but is used in C and C++ projects and frequently used in embedded systems
but it works for any C/C++ project.")
(license license:bsd-3)))
(define-public actionlint
(package
(name "actionlint")
(version "1.6.23")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/rhysd/actionlint")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"07is4920a40zrl7mfldg0az2pisi7f6dv4vh3ijn3nzb4i7fqbni"))))
(build-system go-build-system)
(arguments
'(#:import-path "github.com/rhysd/actionlint/cmd/actionlint"
#:unpack-path "github.com/rhysd/actionlint"
#:install-source? #f))
(inputs (list go-github-com-fatih-color
go-github-com-mattn-go-colorable
go-github-com-mattn-go-runewidth
go-github-com-robfig-cron-1.2
go-golang.org-x-sync-errgroup
go-golang.org-x-sync-semaphore
go-gopkg-in-yaml-v3))
(native-inputs (list go-github-com-google-go-cmp-cmp))
(home-page "https://rhysd.github.io/actionlint/")
(synopsis "Static checker for GitHub Actions workflow files")
(description
"actionlint is a static checker for GitHub Actions
workflow files. Features include:
@itemize
@item Syntax check for workflow files to check unexpected or missing
keys following workflow syntax
@item Strong type check for @code{$@{@{ @}@}} expressions to catch
several semantic errors like access to not existing property, type
mismatches, ...
@item Actions usage check to check that inputs at @code{with:} and
outputs in @code{steps.@{id@}.outputs} are correct
@item Reusable workflow check to check inputs/outputs/secrets of
reusable workflows and workflow calls
@item shellcheck and pyflakes integrations for scripts at @code{run:}
@item Security checks; script injection by untrusted inputs,
hard-coded credentials
@item Other several useful checks; glob syntax validation,
dependencies check for @code{needs:}, runner label validation, cron
syntax validation, ...
@end itemize
")
(license license:expat)))
(define-public python-parameterized
(package
(name "python-parameterized")
@ -1114,7 +1172,7 @@ available via the @code{unittest.mock} module.")
(add-after 'unpack 'invoke-2to3
(lambda _
(invoke "2to3" "-w" "."))))))
(home-page "http://readthedocs.org/docs/nose/")
(home-page "https://readthedocs.org/docs/nose/")
(synopsis "Python testing library")
(description
"Nose extends the unittest library to make testing easier.")
@ -3096,7 +3154,7 @@ retried.")
(lambda* (#:key inputs outputs #:allow-other-keys)
(add-installed-pythonpath inputs outputs)
(invoke "pytest" "-vv"))))))
(home-page "http://hamcrest.org/")
(home-page "https://hamcrest.org/")
(synopsis "Hamcrest matchers for Python")
(description "PyHamcrest is a framework for writing matcher objects,
allowing you to declaratively define \"match\" rules.")
@ -3461,7 +3519,6 @@ directories and files.")
python-numpy
python-pandas
python-pillow
python-pre-commit
python-restructuredtext-lint
python-tox
python-setuptools-scm
@ -3473,3 +3530,79 @@ directories and files.")
tables by saving expected data in a data directory (courtesy of pytest-datadir)
that can be used to verify that future runs produce the same data.")
(license license:expat)))
(define-public guile-proba
(package
(name "guile-proba")
(version "0.3.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://codeberg.org/luis-felipe/guile-proba")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "1mjnrbb6gv5f95i1ihn75yh7ya445pcnj13cy34x2v58h9n2r80s"))))
(build-system guile-build-system)
(inputs (list bash-minimal guile-3.0))
(native-inputs (list texinfo))
(propagated-inputs (list guile-config guile-lib))
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'set-paths 'add-output-to-guile-load-paths
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(guile-version (target-guile-effective-version))
(scm-path (string-append out
"/share/guile/site/"
guile-version))
(go-path (string-append out
"/lib/guile/"
guile-version
"/site-ccache")))
(setenv "GUILE_LOAD_PATH"
(string-append scm-path ":"
(getenv "GUILE_LOAD_PATH")))
(setenv "GUILE_LOAD_COMPILED_PATH"
(string-append
go-path ":"
(getenv "GUILE_LOAD_COMPILED_PATH"))))))
(add-after 'build 'build-manual
(lambda _
(invoke "makeinfo" "manual/main.texi")))
(add-after 'build 'check
(lambda _
(invoke "guile" "proba.scm" "run" "tests")))
(add-after 'install 'install-wrapped-script
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin-dir (string-append out "/bin"))
(script (string-append bin-dir "/proba")))
(mkdir-p bin-dir)
(copy-file "proba.scm" script)
(chmod script #o555)
(wrap-program script
`("GUILE_LOAD_PATH" = (,(getenv "GUILE_LOAD_PATH")))
`("GUILE_LOAD_COMPILED_PATH" =
(,(getenv "GUILE_LOAD_COMPILED_PATH")))))))
(add-after 'install 'install-manual
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(info-dir (string-append out "/share/info")))
(mkdir-p info-dir)
(install-file "guile-proba" info-dir)))))
#:scheme-file-regexp
#~(begin
(use-modules (ice-9 regex))
(lambda (file stat) (string-match "/proba/.*\\.scm$" file)))))
(home-page "https://luis-felipe.gitlab.io/guile-proba/")
(synopsis "Testing tools for GNU Guile projects with SRFI 64 test suites")
(description
"This software is a set of testing tools for GNU Guile projects
with SRFI 64-based test suites. It comes with a command-line interface
to run test collections, and a library that includes a test runner and
helpers for writing tests.")
(license license:public-domain)))

3
gnu/packages/chemistry.scm
View file

@ -67,7 +67,6 @@
#:use-module (gnu packages web)
#:use-module (gnu packages xml)
#:use-module (guix build-system cmake)
#:use-module (guix build-system copy)
#:use-module (guix build-system gnu)
#:use-module (guix build-system python))
@ -425,7 +424,7 @@ stored with user-specified precision.")
perl
tinyxml2
tng))
(home-page "http://www.gromacs.org/")
(home-page "https://www.gromacs.org/")
(synopsis "Molecular dynamics software package")
(description "GROMACS is a versatile package to perform molecular dynamics,
i.e. simulate the Newtonian equations of motion for systems with hundreds to

13
gnu/packages/chez.scm
View file

@ -4,7 +4,7 @@
;;; Copyright © 2017, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Brett Gilio <brettg@gnu.org>
;;; Copyright © 2020 Brendan Tildesley <mail@brendan.scot>
;;; Copyright © 2021, 2022 Philip McGrath <philip@philipmcgrath.com>
;;; Copyright © 2021, 2022, 2023 Philip McGrath <philip@philipmcgrath.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -251,10 +251,9 @@ provided and is #f."
(if (target-64bit? system)
"64"
"32")
;; missing (guix utils) predicate target-little-endian?
(if (target-ppc32? system)
"b"
"l")))
(if (target-little-endian? system)
"l"
"b")))
(define* (racket-cs-native-supported-system? #:optional
(system
@ -467,7 +466,7 @@ and 32-bit PowerPC architectures.")
(package
(inherit chez-scheme)
(name "chez-scheme-for-racket")
(version "9.5.9.8")
(version "9.9.9-pre-release.14")
;; The version should match `scheme-version`.
;; See racket/src/ChezScheme/s/cmacros.ss c. line 360.
;; It will always be different than the upstream version!
@ -1239,7 +1238,7 @@ syntax, with various aliases for commonly used patterns.")
(replace 'install
(lambda* (#:key (make-flags '()) #:allow-other-keys)
(apply invoke "make" "chez-install" make-flags))))))
(home-page "http://synthcode.com/scheme/fmt")
(home-page "https://synthcode.com/scheme/fmt")
(synopsis "Combinator formatting library for Chez Scheme")
(description "This package provides a library of procedures for
formatting Scheme objects to text in various ways, and for easily

20
gnu/packages/code.scm
View file

@ -2,7 +2,7 @@
;;; Copyright © 2013, 2015, 2018, 2020, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2013, 2015 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2015, 2018 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2016, 2017, 2019, 2020, 2021, 2022 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2017, 2019-2023 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2018 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2017 Andy Wingo <wingo@igalia.com>
@ -323,7 +323,7 @@ COCOMO model or user-provided parameters.")
(define-public cloc
(package
(name "cloc")
(version "1.94")
(version "1.96.1")
(source
(origin
(method git-fetch)
@ -332,7 +332,7 @@ COCOMO model or user-provided parameters.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "082kkzr168lkv35hvijq95b817lyj2azcwld47xpws9h35556jlv"))))
(base32 "0j7qwc5n1y05jl3rq83mf1d0pavkz9z0waqi8dxblkgw4pwwnjyv"))))
(build-system gnu-build-system)
(inputs
(list coreutils
@ -430,7 +430,7 @@ features that are not supported by the standard @code{stdio} implementation.")
(define-public universal-ctags
(package
(name "universal-ctags")
(version "6.0.20230122.0")
(version "6.0.20230212.0")
(source
(origin
(method git-fetch)
@ -440,7 +440,7 @@ features that are not supported by the standard @code{stdio} implementation.")
(file-name (git-file-name name version))
(sha256
(base32
"121d1dyc3wd4bzv4wky3x66j1va3d6ywbw71abp3l88fv7sc0f73"))
"0616y8sqbydh4baixs1fndknjvhfpf57p7a0yr1l5n732lknk2pm"))
(modules '((guix build utils)))
(snippet
'(begin
@ -475,7 +475,7 @@ features that are not supported by the standard @code{stdio} implementation.")
(substitute* "Tmain/utils.sh"
(("/bin/echo") (which "echo"))))))))
(native-inputs
(list autoconf automake packcc perl pkg-config))
(list autoconf automake packcc perl pkg-config python-docutils))
(inputs
(list jansson libseccomp libxml2 libyaml pcre2))
(home-page "https://ctags.io/")
@ -580,7 +580,7 @@ stack traces.")
`("PERL5LIB" ":" prefix (,(getenv "PERL5LIB")))))
#t)))))
(inputs (list perl perl-io-compress perl-json))
(home-page "http://ltp.sourceforge.net/coverage/lcov.php")
(home-page "https://ltp.sourceforge.net/coverage/lcov.php")
(synopsis "Code coverage tool that enhances GNU gcov")
(description "LCOV is an extension of @command{gcov}, a tool part of the
GNU@tie{}Binutils, which provides information about what parts of a program
@ -809,7 +809,7 @@ independent targets.")
(install-file l etcdir))
(find-files "etc" "\\.cfg$")))
#t)))))
(home-page "http://uncrustify.sourceforge.net/")
(home-page "https://uncrustify.sourceforge.net/")
(synopsis "Code formatter for C and other related languages")
(description
"Beautify source code in many languages of the C family (C, C++, C#,
@ -875,7 +875,7 @@ Objective@tie{}C, D, Java, Pawn, and Vala). Features:
(make-so-link sofile "(\\.[0-9]){2}$")) ;; link .so.3
(find-files libdir "lib.*\\.so\\..*")))
#t)))))
(home-page "http://astyle.sourceforge.net/")
(home-page "https://astyle.sourceforge.net/")
(synopsis "Source code indenter, formatter, and beautifier")
(description
"Artistic Style is a source code indenter, formatter, and beautifier for
@ -1076,7 +1076,7 @@ Readline library.")
;; on SysV curses.
(list (string-append "--with-ncurses="
(assoc-ref %build-inputs "ncurses")))))
(home-page "http://cscope.sourceforge.net")
(home-page "https://cscope.sourceforge.net")
(synopsis "Tool for browsing source code")
(description
"Cscope is a text screen based source browsing tool. Although it is

1
gnu/packages/commencement.scm
View file

@ -3034,6 +3034,7 @@ memoized as a function of '%current-system'."
("flex" ,flex-boot0)))
(inputs `(("flex" ,flex-boot0)))
(arguments
;; TODO: On next rebuild cycle, reuse phases from 'mig'.
`(#:configure-flags
`(,(string-append "LDFLAGS=-Wl,-rpath="
(assoc-ref %build-inputs "flex") "/lib/")))))))

27
gnu/packages/compression.scm
View file

@ -1400,7 +1400,7 @@ for most inputs, but the resulting compressed files are anywhere from 20% to
((target-x86-32?)
(list nasm))
(else '())))
(home-page "http://p7zip.sourceforge.net/")
(home-page "https://p7zip.sourceforge.net/")
(synopsis "Command-line file archiver with high compression ratio")
(description "p7zip is a command-line port of 7-Zip, a file archiver that
handles the 7z format which features very high compression ratios.")
@ -2577,7 +2577,7 @@ file compression algorithm.")
(define-public xarchiver
(package
(name "xarchiver")
(version "0.5.4.17")
(version "0.5.4.20")
(source
(origin
(method git-fetch)
@ -2586,7 +2586,7 @@ file compression algorithm.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "00adrjpxqlaccrwjf65w3vhxfswdj0as8aj263c6f9b85llypc5v"))))
(base32 "1bgc8r2ii96ghslfscpjhswjgscvw65h2rjr0zvfqn8saqh1ydrv"))))
(build-system glib-or-gtk-build-system)
(native-inputs
(list gettext-minimal intltool libxslt pkg-config))
@ -2807,6 +2807,27 @@ serializations such as ASN.1 and MessagePack.")
(license license:expat)
(home-page "https://github.com/PJK/libcbor")))
(define-public lzfse
(package
(name "lzfse")
(version "1.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/lzfse/lzfse")
(commit (string-append "lzfse-" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1mfh6y6vpvxsdwmqmfbkqkwvxc0pz2dqqc72c6fk9sbsrxxaghd5"))))
(build-system cmake-build-system)
(home-page "https://github.com/lzfse/lzfse")
(synopsis "LZFSE compression library and command line tool")
(description "LZFSE is a Lempel-Ziv style data compression algorithm using
Finite State Entropy coding. It targets similar compression rates at higher
compression and decompression speed compared to Deflate using Zlib.")
(license license:bsd-3)))
(define-public fcrackzip
(package
(name "fcrackzip")

8
gnu/packages/containers.scm
View file

@ -176,7 +176,7 @@ runtime (like runc or crun) for a single container.")
#~(modify-phases %standard-phases
(add-before 'install 'refer-to-inputs
(lambda* (#:key inputs #:allow-other-keys)
(substitute* (find-files "." "^distrobox.*")
(substitute* (find-files "." "^distrobox.*[^1]$")
(("podman") (search-input-file inputs "/bin/podman"))
(("wget") (search-input-file inputs "/bin/wget"))
(("command -v") "test -x"))))
@ -311,7 +311,7 @@ configure network interfaces in Linux containers.")
(define-public podman
(package
(name "podman")
(version "4.3.1")
(version "4.4.1")
(source
(origin
(method git-fetch)
@ -323,7 +323,7 @@ configure network interfaces in Linux containers.")
(snippet '(substitute* "Makefile"
((".*hack/btrfs.*") "")))
(sha256
(base32 "05hv4xdf06n728lmsx793zygypc9i404bgcgpy0fyrg8c2s11q2h"))
(base32 "0qbr6rbyig3c2hvdvmd94jjkg820hpdz6j7dgyv62dl6wfwvj5jj"))
(file-name (git-file-name name version))))
(build-system gnu-build-system)
@ -385,7 +385,7 @@ configure network interfaces in Linux containers.")
(native-inputs
(list bats
git
go
go-1.19
; strace ; XXX debug
pkg-config
python))

1
gnu/packages/coq.scm
View file

@ -42,7 +42,6 @@
#:use-module (gnu packages texinfo)
#:use-module (guix build-system dune)
#:use-module (guix build-system gnu)
#:use-module (guix build-system ocaml)
#:use-module (guix download)
#:use-module (guix gexp)
#:use-module (guix git-download)

21
gnu/packages/cpp.scm
View file

@ -1428,6 +1428,27 @@ queues header library based on circular buffer with @code{std::atomic}.")
conversions to and from strings, iteration and related functionality.")
(license license:expat)))
(define-public mcpp
(package
(name "mcpp")
(version "2.7.2")
(source (origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/mcpp/mcpp/"
"V." version "/mcpp-" version ".tar.gz"))
(sha256
(base32
"0r48rfghjm90pkdyr4khxg783g9v98rdx2n69xn8f6c5i0hl96rv"))))
(build-system gnu-build-system)
(arguments
(list #:configure-flags #~(list "--enable-mcpplib" "--disable-static")))
(home-page "https://mcpp.sourceforge.net/")
(synopsis "C/C++ preprocessor")
(description
"@code{mcpp} is Matsui's CPP implementation precisely conformed to
standards.")
(license license:bsd-2)))
(define-public cli11
(package
(name "cli11")

2768
gnu/packages/cran.scm
View file

File diff suppressed because it is too large Load diff

431
gnu/packages/crates-io.scm
View file

@ -21,7 +21,7 @@
;;; Copyright © 2021 Vinicius Monego <monego@posteo.net>
;;; Copyright © 2021 muradm <mail@muradm.net>
;;; Copyright © 2021, 2022 Petr Hodina <phodina@protonmail.com>
;;; Copyright © 2021, 2022 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2021-2023 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2021 Jacob Hrbek <kreyren@rixotstudio.cz>
;;; Copyright © 2021, 2022 Nicolas Graves <ngraves@ngraves.fr>
;;; Copyright © 2022 Aleksandr Vityazev <avityazev@posteo.org>
@ -5114,6 +5114,53 @@ they're not available.")
("rust-termion" ,rust-termion-1)
("rust-winapi" ,rust-winapi-0.3))))))
(define-public rust-autocompress-0.2
(package
(name "rust-autocompress")
(version "0.2.2")
(source (origin
(method url-fetch)
(uri (crate-uri "autocompress" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32
"16pjdfr5b2ixs2xk3h6mvxprxr84rpaips624d6vbap5vsdkvzx4"))))
(build-system cargo-build-system)
(arguments
(list
#:tests? #false ;The crate does not include test files
#:phases
'(modify-phases %standard-phases
(add-before 'patch-cargo-checksums 'do-not-build-xz
(lambda _
;; Detection of liblzma (in rust-lzma-sys, pulled in by
;; rust-hts-sys) doesn't seem to work, or perhaps it really does
;; request a static build somewhere.
(substitute* "guix-vendor/rust-lzma-sys-0.1.17.tar.xz/build.rs"
(("if .want_static && .msvc && pkg_config::probe_library\\(\"liblzma\"\\).is_ok\\(\\)") "")))))
#:cargo-inputs
`(("rust-brotli" ,rust-brotli-3)
("rust-bzip2" ,rust-bzip2-0.4)
("rust-crossbeam-channel" ,rust-crossbeam-channel-0.5)
("rust-flate2" ,rust-flate2-1)
("rust-log" ,rust-log-0.4)
("rust-lz4" ,rust-lz4-1)
("rust-snap" ,rust-snap-1)
("rust-xz2" ,rust-xz2-0.1)
("rust-zstd" ,rust-zstd-0.9))
#:cargo-development-inputs
`(("rust-clap" ,rust-clap-2)
("rust-pretty-env-logger" ,rust-pretty-env-logger-0.4)
("rust-rand" ,rust-rand-0.8)
("rust-temp-testdir" ,rust-temp-testdir-0.2))))
(inputs (list xz))
(home-page "https://github.com/informationsea/autocompress-rs")
(synopsis "Select decoder from magic bytes or encoder from file extension")
(description
"This crate lets you automatically select a suitable decoder from magic
bytes or encoder from file extension.")
(license license:asl2.0)))
(define-public rust-autocfg-1
(package
(name "rust-autocfg")
@ -6754,6 +6801,59 @@ provides implementations of many algorithms and data structures that are
useful for bioinformatics, but also in other fields.")
(license license:expat)))
(define-public rust-bio-0.41
(package
(inherit rust-bio-0.39)
(name "rust-bio")
(version "0.41.0")
(source (origin
(method url-fetch)
(uri (crate-uri "bio" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32
"11kmdd5rslnqjndldh7c2lzxsyapwz7fqm2yrkn3his460z44saa"))))
(build-system cargo-build-system)
(arguments
`(#:cargo-inputs
(("rust-anyhow" ,rust-anyhow-1)
("rust-approx" ,rust-approx-0.5)
("rust-bio-types" ,rust-bio-types-0.12)
("rust-bit-set" ,rust-bit-set-0.5)
("rust-bv" ,rust-bv-0.11)
("rust-bytecount" ,rust-bytecount-0.6)
("rust-csv" ,rust-csv-1)
("rust-custom-derive" ,rust-custom-derive-0.1)
("rust-enum-map" ,rust-enum-map-0.6)
("rust-fxhash" ,rust-fxhash-0.2)
("rust-getset" ,rust-getset-0.1)
("rust-itertools" ,rust-itertools-0.10)
("rust-itertools-num" ,rust-itertools-num-0.1)
("rust-lazy-static" ,rust-lazy-static-1)
("rust-multimap" ,rust-multimap-0.8)
("rust-ndarray" ,rust-ndarray-0.15)
("rust-newtype-derive" ,rust-newtype-derive-0.1)
("rust-num-integer" ,rust-num-integer-0.1)
("rust-num-traits" ,rust-num-traits-0.2)
("rust-ordered-float" ,rust-ordered-float-1)
("rust-pest" ,rust-pest-2)
("rust-pest-derive" ,rust-pest-derive-2)
("rust-petgraph" ,rust-petgraph-0.6)
("rust-rand" ,rust-rand-0.8)
("rust-regex" ,rust-regex-1)
("rust-serde" ,rust-serde-1)
("rust-serde-derive" ,rust-serde-derive-1)
("rust-statrs" ,rust-statrs-0.15)
("rust-strum" ,rust-strum-0.21)
("rust-strum-macros" ,rust-strum-macros-0.21)
("rust-thiserror" ,rust-thiserror-1)
("rust-triple-accel" ,rust-triple-accel-0.4)
("rust-vec-map" ,rust-vec-map-0.8))
#:cargo-development-inputs
(("rust-proptest" ,rust-proptest-1)
("rust-rand" ,rust-rand-0.8)
("rust-tempfile" ,rust-tempfile-3))))))
(define-public rust-bit-field-0.10
(package
(name "rust-bit-field")
@ -18027,6 +18127,26 @@ from macros.")
@code{Cargo.toml}.")
(license (list license:expat license:asl2.0))))
(define-public rust-downcast-0.11
(package
(name "rust-downcast")
(version "0.11.0")
(source (origin
(method url-fetch)
(uri (crate-uri "downcast" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32
"1wa78ahlc57wmqyq2ncr80l7plrkgz57xsg7kfzgpcnqac8gld8l"))))
(build-system cargo-build-system)
(home-page "https://github.com/fkoep/downcast-rs")
(synopsis
"Trait for downcasting trait objects back to their original types")
(description
"This package provides a trait, and utilities, for downcasting trait
objects back to their original types. The same as the rust-downcast-rs crate.")
(license license:expat)))
(define-public rust-downcast-rs-1
(package
(name "rust-downcast-rs")
@ -26319,6 +26439,30 @@ Hash-based Message Authentication Code algorithm} for SHA1.")
"This package provides a library for HTML entity encoding and decoding.")
(license (list license:asl2.0 license:expat license:mpl2.0))))
(define-public rust-html-escape-0.2
(package
(name "rust-html-escape")
(version "0.2.12")
(source (origin
(method url-fetch)
(uri (crate-uri "html-escape" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32
"01f2v3c6j2rk5h2lhdbh62j07cm1fvzqw4vplj2sms83jpx5qc8m"))))
(build-system cargo-build-system)
(arguments
`(#:cargo-inputs
(("rust-utf8-width" ,rust-utf8-width-0.1))
#:cargo-development-inputs
(("rust-bencher" ,rust-bencher-0.1))))
(home-page "https://magiclen.org/html-escape")
(synopsis "Library for encoding and escaping special characters in HTML")
(description
"This package provides a library for encoding and escaping special
characters in HTML, decoding and unescaping HTML entities as well.")
(license license:expat)))
(define-public rust-hts-sys-2
(package
(name "rust-hts-sys")
@ -34044,6 +34188,92 @@ IOCP and Async I/O abstractions.")
#:cargo-development-inputs
(("rust-rand" ,rust-rand-0.3))))))
(define-public rust-mockall-0.11
(package
(name "rust-mockall")
(version "0.11.1")
(source (origin
(method url-fetch)
(uri (crate-uri "mockall" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32
"0k3g3xxf195vsnzmwza047dv89zlg6h5yj5774wjlndgpdvf8han"))))
(build-system cargo-build-system)
(arguments
`(#:tests? #f ; Not all files included.
#:cargo-inputs
(("rust-cfg-if" ,rust-cfg-if-1)
("rust-downcast" ,rust-downcast-0.11)
("rust-fragile" ,rust-fragile-1)
("rust-lazy-static" ,rust-lazy-static-1)
("rust-mockall-derive" ,rust-mockall-derive-0.11)
("rust-predicates" ,rust-predicates-2)
("rust-predicates-tree" ,rust-predicates-tree-1))
#:cargo-development-inputs
(("rust-async-trait" ,rust-async-trait-0.1)
("rust-futures" ,rust-futures-0.3)
("rust-mockall-double" ,rust-mockall-double-0.3)
("rust-serde" ,rust-serde-1)
("rust-serde-derive" ,rust-serde-derive-1)
("rust-serde-json" ,rust-serde-json-1)
("rust-tracing" ,rust-tracing-0.1))))
(home-page "https://github.com/asomers/mockall")
(synopsis "Mock object library for Rust")
(description
"Mockall is a rich mocking library with a terse and ergonomic interface.")
(license (list license:expat license:asl2.0))))
(define-public rust-mockall-derive-0.11
(package
(name "rust-mockall-derive")
(version "0.11.1")
(source (origin
(method url-fetch)
(uri (crate-uri "mockall-derive" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32
"1ixhmsrg5ky4b2jlvbxhlpr3mbv7frd6wr8msm005vijb5rmcb96"))))
(build-system cargo-build-system)
(arguments
`(#:cargo-inputs
(("rust-cfg-if" ,rust-cfg-if-1)
("rust-proc-macro2" ,rust-proc-macro2-1)
("rust-quote" ,rust-quote-1)
("rust-syn" ,rust-syn-1))
#:cargo-development-inputs
(("rust-pretty-assertions" ,rust-pretty-assertions-0.7))))
(home-page "https://github.com/asomers/mockall")
(synopsis "Procedural macros for the Mockall crate")
(description
"This package procides procedural macros for the Mockall crate.")
(license (list license:expat license:asl2.0))))
(define-public rust-mockall-double-0.3
(package
(name "rust-mockall-double")
(version "0.3.0")
(source (origin
(method url-fetch)
(uri (crate-uri "mockall-double" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32
"1xk6hjr7m73zly4hg3zmma437vqvrwnjxy2wfxy1hxbk52xwfwdf"))))
(build-system cargo-build-system)
(arguments
`(#:cargo-inputs (("rust-cfg-if" ,rust-cfg-if-1)
("rust-proc-macro2" ,rust-proc-macro2-1)
("rust-quote" ,rust-quote-1)
("rust-syn" ,rust-syn-1))))
(home-page "https://github.com/asomers/mockall")
(synopsis "Double test adapter that works well with Mockall")
(description
"This crate makes it even easier to use mocking by providing a way to
select the mock struct at compile time. Used with the Mockall crate.")
(license (list license:expat license:asl2.0))))
(define-public rust-model-0.1
(package
(name "rust-model")
@ -35641,7 +35871,7 @@ structures.")
("rust-time" ,rust-time-0.1)
("rust-typemap" ,rust-typemap-0.3)
("rust-url" ,rust-url-1))))
(home-page "http://nickel-org.github.io/")
(home-page "https://nickel-org.github.io/")
(synopsis "Web application framework for Rust")
(description
"@code{nickel.rs} is a simple and lightweight foundation for web
@ -35739,8 +35969,36 @@ nitrokey crate and others using it.")
nitrokey-test crate.")
(license license:gpl3+)))
(define-public rust-nix-0.26
(package
(name "rust-nix")
(version "0.26.1")
(source
(origin
(method url-fetch)
(uri (crate-uri "nix" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "155610n6bp37sqg7p0qihzi0jnvqkpqc40nyik89frbc6lfqv9a6"))))
(build-system cargo-build-system)
(arguments
(list #:skip-build? #t
#:cargo-inputs
`(("rust-bitflags" ,rust-bitflags-1)
("rust-cfg-if" ,rust-cfg-if-1)
("rust-libc" ,rust-libc-0.2)
("rust-memoffset" ,rust-memoffset-0.7))))
(home-page "https://github.com/nix-rust/nix")
(synopsis "Rust friendly bindings to *nix APIs")
(description
"Nix seeks to provide friendly bindings to various *nix platform APIs.
The goal is to not provide a 100% unified interface, but to unify what can be
while still providing platform specific APIs.")
(license license:expat)))
(define-public rust-nix-0.24
(package
(inherit rust-nix-0.26)
(name "rust-nix")
(version "0.24.2")
(source
@ -35750,21 +36008,13 @@ nitrokey-test crate.")
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "1z35n1bhzslr7zawy2c0fl90jjy9l5b3lnsidls3908vfk0xnp0r"))))
(build-system cargo-build-system)
(arguments
(list #:skip-build? #t
#:cargo-inputs
`(("rust-bitflags" ,rust-bitflags-1)
("rust-cfg-if" ,rust-cfg-if-1)
("rust-libc" ,rust-libc-0.2)
("rust-memoffset" ,rust-memoffset-0.6))))
(home-page "https://github.com/nix-rust/nix")
(synopsis "Rust friendly bindings to *nix APIs")
(description
"Nix seeks to provide friendly bindings to various *nix platform APIs.
The goal is to not provide a 100% unified interface, but to unify what can be
while still providing platform specific APIs.")
(license license:expat)))
("rust-memoffset" ,rust-memoffset-0.6))))))
(define-public rust-nix-0.23
(package
@ -43520,6 +43770,80 @@ language.")
language.")
(license license:asl2.0)))
;; It's recommended that rust-protobuf, rust-protobuf-codegen
;; and rust-probuf-codegen-pure be the same version
(define-public rust-protobuf-2
(package
(name "rust-protobuf")
(version "2.14.0")
(source (origin
(method url-fetch)
(uri (crate-uri "protobuf" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32
"11bl8hf522s9mbkckivnn9n8s3ss4g41w6jmfdsswmr5adqd71lf"))))
(build-system cargo-build-system)
(arguments
`(#:tests? #f ; missing files in the release tarball.
#:cargo-inputs
(("rust-bytes" ,rust-bytes-0.5)
("rust-serde" ,rust-serde-1)
("rust-serde-derive" ,rust-serde-derive-1))))
(home-page "https://github.com/stepancheg/rust-protobuf/")
(synopsis "Rust implementation of Google protocol buffers")
(description
"This package provides a library to read and write protocol buffer's data.")
(license license:expat)))
;; It's recommended that rust-protobuf, rust-protobuf-codegen
;; and rust-probuf-codegen-pure be the same version
(define-public rust-protobuf-codegen-2
(package
(name "rust-protobuf-codegen")
(version "2.14.0")
(source (origin
(method url-fetch)
(uri (crate-uri "protobuf-codegen" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32
"031bx325lsgcx7wc76vc2cqph6q0b34jgc8nz0g2rkwcfnx3n4fy"))))
(build-system cargo-build-system)
(arguments
`(#:cargo-inputs (("rust-protobuf" ,rust-protobuf-2))))
(home-page "https://github.com/stepancheg/rust-protobuf/")
(synopsis "Code generator for rust-protobuf")
(description
"This package provides a code generator for rust-protobuf. It includes a
library to invoke programmatically (e.g. from @code{build.rs}) and
@code{protoc-gen-rust} binary.")
(license license:expat)))
;; It's recommended that rust-protobuf, rust-protobuf-codegen
;; and rust-probuf-codegen-pure be the same version
(define-public rust-protobuf-codegen-pure-2
(package
(name "rust-protobuf-codegen-pure")
(version "2.14.0")
(source (origin
(method url-fetch)
(uri (crate-uri "protobuf-codegen-pure" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32
"0h34gfqlb7bqmgqv1mfgy5wk35z5r2h5ki3p3pdcmw1vqzmly6id"))))
(build-system cargo-build-system)
(arguments
`(#:cargo-inputs
(("rust-protobuf" ,rust-protobuf-2)
("rust-protobuf-codegen" ,rust-protobuf-codegen-2))))
(home-page "https://github.com/stepancheg/rust-protobuf/")
(synopsis "Pure-rust codegen for protobuf using protobuf-parser")
(description "This package provides a pure-rust codegen for protobuf
using protobuf-parser.")
(license license:expat)))
(define-public rust-psl-2
(package
(name "rust-psl")
@ -54504,6 +54828,28 @@ Unicode strings.")
I/O programming.")
(license license:expat)))
(define-public rust-smallbitvec-2
(package
(name "rust-smallbitvec")
(version "2.5.1")
(source (origin
(method url-fetch)
(uri (crate-uri "smallbitvec" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32
"0plrbldsjpwip3afbzd8fgrnvdhizcg5z4ncfqs4q6x4qjflzkkm"))))
(build-system cargo-build-system)
(arguments
`(#:cargo-development-inputs
(("rust-bit-vec" ,rust-bit-vec-0.4)
("rust-rand" ,rust-rand-0.4))))
(home-page "https://github.com/servo/smallbitvec")
(synopsis "Bit vector optimized for size and inline storage")
(description "This package provides a bit vector optimized for size and
inline storage.")
(license (list license:expat license:asl2.0))))
(define-public rust-smallvec-1
(package
(name "rust-smallvec")
@ -56711,7 +57057,7 @@ and Jaro-Winkler.")
(define-public rust-structopt-0.3
(package
(name "rust-structopt")
(version "0.3.21")
(version "0.3.26")
(source
(origin
(method url-fetch)
@ -56720,14 +57066,27 @@ and Jaro-Winkler.")
(string-append name "-" version ".tar.gz"))
(sha256
(base32
"136j0lvjmpv5syi751vxg8vb30gfyv4k81x8d18kxrj6xvbsqxsj"))))
"043sg3qxllann6q9i71d05qp3q13scmcvhxhd950ka2v8ij5qsqc"))))
(build-system cargo-build-system)
(arguments
`(#:skip-build? #t
#:cargo-inputs
(("rust-structopt-derive" ,rust-structopt-derive-0.4)
("rust-lazy-static" ,rust-lazy-static-1)
("rust-clap" ,rust-clap-2))))
("rust-paw" ,rust-paw-1)
("rust-clap" ,rust-clap-2))
#:cargo-development-inputs
(("rust-strum" ,rust-strum-0.21)
("rust-trybuild" ,rust-trybuild-1)
("rust-rustversion" ,rust-rustversion-1))
#:phases
(modify-phases %standard-phases
(add-before 'build 'fixup-cargo-toml
(lambda _
(substitute* "Cargo.toml"
;; feature does not exist
(("lints.*") "")
(("2.33") ,(package-version rust-clap-2))))))))
(home-page "https://github.com/TeXitoi/structopt")
(synopsis "Parse command line argument by defining a struct")
(description
@ -56762,7 +57121,7 @@ struct.")
(define-public rust-structopt-derive-0.4
(package
(name "rust-structopt-derive")
(version "0.4.14")
(version "0.4.18")
(source
(origin
(method url-fetch)
@ -56771,7 +57130,7 @@ struct.")
(string-append name "-" version ".tar.gz"))
(sha256
(base32
"143gjwvz3s86hwp070km83y25n8kqp5f01kb1dr19f4ilkywvaav"))))
"1q5gcigmvw0cinjxzpyrkflliq5r1ivljmrvfrl3phcwgwraxdfw"))))
(build-system cargo-build-system)
(arguments
`(#:skip-build? #t
@ -58988,6 +59347,28 @@ loading and layout routines of XeTeX as a crate, currently providing only
a C API.")
(license license:expat)))
(define-public rust-temp-testdir-0.2
(package
(name "rust-temp-testdir")
(version "0.2.3")
(source (origin
(method url-fetch)
(uri (crate-uri "temp_testdir" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32
"1z5yv6d9944md5zg6g0sbahv7xjga2k232x40x4l20kq8af1w7wj"))))
(build-system cargo-build-system)
#;
(arguments
`(#:skip-build? #t))
(home-page "https://github.com/la10736/temp_testdir")
(synopsis "Use a temp directory")
(description
"This is a little crate to use a temp directory in crate. You can chose
whether to delete it after use or not for debugging purposes.")
(license (list license:expat license:asl2.0))))
(define-public rust-tempdir-0.3
(package
(name "rust-tempdir")
@ -60028,7 +60409,7 @@ fixed set of worker threads.")
("rust-log" ,rust-log-0.4)
("rust-ordered-float" ,rust-ordered-float-1)
("rust-threadpool" ,rust-threadpool-1))))
(home-page "http://thrift.apache.org")
(home-page "https://thrift.apache.org")
(synopsis "Rust bindings for the Apache Thrift RPC system")
(description
"This crate provides Rust bindings for the Apache Thrift RPC system.")
@ -63181,7 +63562,7 @@ etc. distance calculations and string search.")
("rust-trust-dns-rustls" ,rust-trust-dns-rustls-0.20)
("rust-webpki" ,rust-webpki-0.21)
("rust-webpki-roots" ,rust-webpki-roots-0.21))))
(home-page "http://www.trust-dns.org/index.html")
(home-page "https://www.trust-dns.org/index.html")
(synopsis "DNS over HTTPS extension for the Trust-DNS client")
(description
"Trust-DNS is a safe and secure DNS library. This is an extension for
@ -63315,7 +63696,7 @@ the Trust-DNS client to use DNS over HTTPS.")
("rust-tokio" ,rust-tokio-1)
("rust-tokio-native-tls" ,rust-tokio-native-tls-0.3)
("rust-trust-dns-proto" ,rust-trust-dns-proto-0.20))))
(home-page "http://www.trust-dns.org/index.html")
(home-page "https://www.trust-dns.org/index.html")
(synopsis "native-tls extension for the Trust-DNS client")
(description "Trust-DNS is a safe and secure DNS library. This is an
extension for the Trust-DNS client to use native-tls for TLS.")
@ -63413,7 +63794,7 @@ extension for the Trust-DNS client to use native-tls for TLS.")
("rust-tokio" ,rust-tokio-1)
("rust-tokio-openssl" ,rust-tokio-openssl-0.6)
("rust-trust-dns-proto" ,rust-trust-dns-proto-0.20))))
(home-page "http://www.trust-dns.org/index.html")
(home-page "https://www.trust-dns.org/index.html")
(synopsis "tokio-openssl extension for the Trust-DNS client")
(description "Trust-DNS is a safe and secure DNS library. This is an
extension for the Trust-DNS client to use tokio-openssl for TLS.")
@ -63531,7 +63912,7 @@ extension for the Trust-DNS client to use tokio-openssl for TLS.")
("rust-tokio" ,rust-tokio-1)
("rust-url" ,rust-url-2)
("rust-wasm-bindgen" ,rust-wasm-bindgen-0.2))))
(home-page "http://www.trust-dns.org/index.html")
(home-page "https://www.trust-dns.org/index.html")
(synopsis "Safe and secure DNS library")
(description
"Trust-DNS is a safe and secure DNS library. This is the foundational
@ -63691,7 +64072,7 @@ DNS protocol library for all Trust-DNS projects.")
("rust-trust-dns-proto" ,rust-trust-dns-proto-0.20)
("rust-trust-dns-rustls" ,rust-trust-dns-rustls-0.20)
("rust-webpki-roots" ,rust-webpki-roots-0.21))))
(home-page "http://www.trust-dns.org/index.html")
(home-page "https://www.trust-dns.org/index.html")
(synopsis "Safe and secure DNS library")
(description
"Trust-DNS is a safe and secure DNS library. This Resolver library uses
@ -63840,7 +64221,7 @@ other queries.")
("rust-tokio-rustls" ,rust-tokio-rustls-0.22)
("rust-trust-dns-proto" ,rust-trust-dns-proto-0.20)
("rust-webpki" ,rust-webpki-0.21))))
(home-page "http://www.trust-dns.org/index.html")
(home-page "https://www.trust-dns.org/index.html")
(synopsis "rustls extension for the Trust-DNS client")
(description
"Trust-DNS is a safe and secure DNS library. This is an extension for
@ -64611,7 +64992,7 @@ panic-free alternative to @code{core::fmt}.")
(("rust-criterion" ,rust-criterion-0.3)
("rust-num-bigint" ,rust-num-bigint-0.4)
("rust-rug" ,rust-rug-1))))
(home-page "http://parity.io")
(home-page "https://parity.io")
(synopsis "Large, fixed-size integer arithmetic in Rust")
(description "This package is a Rust library for large, fixed-size integer
arithmetic.")
@ -68766,7 +69147,7 @@ Read/Write streams as well as low-level in-memory encoding and decoding.")
(("rust-linked-hash-map" ,rust-linked-hash-map-0.5))
#:cargo-development-inputs
(("rust-quickcheck" ,rust-quickcheck-0.9))))
(home-page "http://chyh1990.github.io/yaml-rust/")
(home-page "https://chyh1990.github.io/yaml-rust/")
(synopsis "YAML 1.2 parser for Rust")
(description "This package is a YAML 1.2 parser for Rust.")
(license (list license:expat license:asl2.0))))

53
gnu/packages/cross-base.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2013-2018, 2020, 2023 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014, 2015, 2018 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2016, 2019 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2016 Manolis Fragkiskos Ragkousis <manolis837@gmail.com>
@ -38,7 +38,7 @@
#:use-module (guix i18n)
#:use-module (guix utils)
#:use-module (guix build-system gnu)
#:use-module (guix build-system trivial)
#:use-module (guix gexp)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-26)
#:use-module (ice-9 match)
@ -399,39 +399,40 @@ target that libc."
("cross-binutils" ,xbinutils)
,@(package-native-inputs linux-headers)))))
(define xgnumach-headers-name
(string-append (package-name gnumach-headers) "-cross-" target))
(define xgnumach-headers
(package
(inherit gnumach-headers)
(name (string-append (package-name gnumach-headers)
"-cross-" target))
(native-inputs `(("cross-gcc" ,xgcc)
("cross-binutils" ,xbinutils)
,@(package-native-inputs gnumach-headers)))))
(name xgnumach-headers-name)
(native-inputs
(modify-inputs (package-native-inputs gnumach-headers)
(prepend xgcc xbinutils)))))
(define xmig
(package
(inherit mig)
(name (string-append "mig-cross"))
(arguments
`(#:modules ((guix build gnu-build-system)
(guix build utils)
(srfi srfi-26))
#:phases (modify-phases %standard-phases
(add-before 'configure 'set-cross-headers-path
(lambda* (#:key inputs #:allow-other-keys)
(let* ((mach (assoc-ref inputs "cross-gnumach-headers"))
(cpath (string-append mach "/include")))
(for-each (cut setenv <> cpath)
',%gcc-cross-include-paths)
#t))))
#:configure-flags (list ,(string-append "--target=" target))
#:tests? #f))
(propagated-inputs `(("cross-gnumach-headers" ,xgnumach-headers)))
(native-inputs `(("cross-gcc" ,xgcc)
("cross-binutils" ,xbinutils)
,@(package-native-inputs mig)))))
(substitute-keyword-arguments (package-arguments mig)
((#:configure-flags flags #~'())
#~(list #$(string-append "--target=" target)))
((#:tests? _ #f)
#f)
((#:phases phases #~%standard-phases)
#~(modify-phases #$phases
(add-before 'configure 'set-cross-headers-path
(lambda* (#:key inputs #:allow-other-keys)
(let* ((mach #+(this-package-input xgnumach-headers-name))
(cpath (string-append mach "/include")))
(for-each (lambda (variable)
(setenv variable cpath))
'#$%gcc-cross-include-paths))))))))
(propagated-inputs (list xgnumach-headers))
(native-inputs
(modify-inputs (package-native-inputs mig)
(prepend xgcc xbinutils)))))
(define xhurd-headers
(package

4
gnu/packages/crypto.scm
View file

@ -149,7 +149,7 @@
(description "The libdecaf library is an implementation of elliptic curve
cryptography using the Montgomery and Edwards curves Curve25519, Ed25519,
Ed448-Goldilocks and Curve448, using the Decaf encoding.")
(home-page "http://ed448goldilocks.sourceforge.net/")
(home-page "https://ed448goldilocks.sourceforge.net/")
(license (list license:expat ;library
license:bsd-2)))) ;python bindings
@ -1013,7 +1013,7 @@ using ctypes is included, and several other language bindings are available.")
(base32
"0kx4a5mhmp73ljknl2lcccmw9z3f5y8lqw0ghaymzvln1984g75i"))))
(build-system gnu-build-system)
(home-page "http://ccrypt.sourceforge.net")
(home-page "https://ccrypt.sourceforge.net")
(synopsis "Command-line utility for encrypting and decrypting files and streams")
(description "@command{ccrypt} is a utility for encrypting and decrypting
files and streams. It was designed as a replacement for the standard unix

36
gnu/packages/cups.scm
View file

@ -7,7 +7,7 @@
;;; Copyright © 2017 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2017–2022 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2020 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2021, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -696,6 +696,30 @@ should only be used as part of the Guix cups-pk-helper service.")
(native-inputs
(list perl pkg-config))))
;;; TODO: Integrate in base hplip package on core-updates.
(define-public hplip-next
(package
(inherit hplip)
(name "hplip")
(version "3.22.10")
(source (origin
(inherit (package-source hplip))
(uri (string-append "mirror://sourceforge/hplip/hplip/" version
"/hplip-" version ".tar.gz"))
(sha256
(base32
"09366v0x10l35bkda6s5ysh64qdf24givn2gxlyidr2kdcpkyg2k"))))
(arguments
(substitute-keyword-arguments (package-arguments hplip)
((#:phases phases)
#~(modify-phases #$phases
(add-after 'unpack 'fix-more-hard-coded-file-names
(lambda* (#:key outputs #:allow-other-keys)
(substitute* (find-files "." "\\.py$")
(("/etc/hp/hplip.conf")
(string-append (assoc-ref outputs "out")
"/etc/hp/hplip.conf")))))))))))
(define-public hplip-minimal
(package/inherit hplip
(name "hplip-minimal")
@ -871,7 +895,7 @@ HP@tie{}LaserJet, and possibly other printers. See @file{README} for details.")
(define-public epson-inkjet-printer-escpr
(package
(name "epson-inkjet-printer-escpr")
(version "1.7.22")
(version "1.7.24")
;; XXX: This currently works. But it will break as soon as a newer
;; version is available since the URLs for older versions are not
;; preserved. An alternative source will be added as soon as
@ -879,11 +903,11 @@ HP@tie{}LaserJet, and possibly other printers. See @file{README} for details.")
(source
(origin
(method url-fetch)
(uri (string-append "https://download3.ebz.epson.net/dsc/f/03/00/13/96/"
"55/c6fced63098ae1ba104f11f572794fd558ffca29/"
"epson-inkjet-printer-escpr-1.7.22-1lsb3.2.tar.gz"))
(uri (string-append "https://download3.ebz.epson.net/dsc/f/03/00/14/31/"
"90/d2f5b28fcfaa0a1d1753eac5703aa5d88004ce06/"
"epson-inkjet-printer-escpr-1.7.24-1lsb3.2.tar.gz"))
(sha256
(base32 "0b359krhhjjw5hc4b0gqdqwrm6dzc263mdccfzgnyyq7znkyybqb"))))
(base32 "0bwff3p6d0xgghf3bicylbxkv9vxz3gjjbr0iafyxz23kalzz9qj"))))
(build-system gnu-build-system)
(arguments
(list #:modules

8
gnu/packages/curl.scm
View file

@ -5,7 +5,7 @@
;;; Copyright © 2015, 2020, 2021, 2022 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016, 2017, 2019 Leo Famulari <leo@famulari.name>
;;; Copyright © 2017, 2019, 2020, 2022 Marius Bakke <marius@gnu.org>
;;; Copyright © 2017 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017, 2023 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Roel Janssen <roel@gnu.org>
;;; Copyright © 2019, 2021 Ricardo Wurmus <rekado@elephly.net>
@ -333,7 +333,7 @@ FILE and LDAP; in particular it supports HTTPS certificates, HTTP POST, HTTP
PUT, FTP uploading, kerberos, HTTP form based upload, proxies, cookies,
user+password authentication, file transfer resume, http proxy tunneling and
more!")
(home-page "http://www.curlpp.org")
(home-page "https://www.curlpp.org")
(license license:expat)))
(define-public h2c
@ -366,7 +366,7 @@ curl to obtain exactly that HTTP request.")
(define-public coeurl
(package
(name "coeurl")
(version "0.2.1")
(version "0.3.0")
(source
(origin
(method git-fetch)
@ -375,7 +375,7 @@ curl to obtain exactly that HTTP request.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0qbbrfs35zl0wl6x6jn4p9ncxgdm70a883cflvikkykx9n5k2lpq"))))
(base32 "1b435c2szwibm4i4r7mh22klyv9ncdkwkiy95p4xjfalsx4ripxh"))))
(build-system meson-build-system)
(native-inputs
(list doctest pkg-config))

267
gnu/packages/databases.scm
View file

@ -28,7 +28,7 @@
;;; Copyright © 2017, 2018 Ben Woodcroft <donttrustben@gmail.com>
;;; Copyright © 2017 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2017, 2018, 2019 Pierre Langlois <pierre.langlois@gmx.com>
;;; Copyright © 2015, 2017, 2018, 2019, 2021, 2022 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015, 2017, 2018, 2019, 2021, 2022, 2023 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017 Kristofer Buffington <kristoferbuffington@gmail.com>
;;; Copyright © 2018 Amirouche Boubekki <amirouche@hypermove.net>
;;; Copyright © 2018 Joshua Sierles, Nextjournal <joshua@nextjournal.com>
@ -179,8 +179,6 @@
#:use-module (guix build-system qt)
#:use-module (guix build-system ruby)
#:use-module (guix build-system cmake)
#:use-module (guix build-system scons)
#:use-module (guix build-system trivial)
#:use-module (guix utils)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-26)
@ -597,7 +595,7 @@ the API, and provides features such as:
(list memcached python-pytest))
(inputs
(list libmemcached zlib cyrus-sasl))
(home-page "http://sendapatch.se/projects/pylibmc/")
(home-page "https://sendapatch.se/projects/pylibmc/")
(synopsis "Python client for memcached")
(description
"@code{pylibmc} is a client in Python for memcached. It is a wrapper
@ -2298,7 +2296,7 @@ data sources. Data sources include SQL Servers and any software with an ODBC
Driver.")
(license license:lgpl2.1+)
;; COPYING contains copy of lgpl2.1 - but copyright notices just say "LGPL"
(home-page "http://www.unixodbc.org")))
(home-page "https://www.unixodbc.org")))
(define-public nanodbc
(package
@ -2396,57 +2394,63 @@ similar to BerkeleyDB, LevelDB, etc.")
(define-public redis
(package
(name "redis")
(version "6.2.6")
(version "7.0.9")
(source (origin
(method url-fetch)
(uri (string-append "http://download.redis.io/releases/redis-"
version".tar.gz"))
(sha256
(base32
"1ariw5x33hmmm3d5al0j3307l5kf3vhmn78wpyaz67hia1x8nasv"))
"0rczzcy2mwy6hjdgg10l9lr4vavh8jrs7zlb0ba534bwlk13awgp"))
(modules '((guix build utils)))
(snippet
;; Delete bundled jemalloc, as the package will use the libc one
'(begin (delete-file-recursively "deps/jemalloc")))))
(build-system gnu-build-system)
(native-inputs
(list procps ; for tests
tcl)) ; for tests
(arguments
'(#:phases
(modify-phases %standard-phases
(delete 'configure)
(add-after 'unpack 'use-correct-tclsh
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "runtest"
(("^TCLSH=.*")
(string-append "TCLSH="
(assoc-ref inputs "tcl")
"/bin/tclsh")))))
(add-after 'unpack 'adjust-tests
(lambda _
;; Disable failing tests
(substitute* "tests/test_helper.tcl"
(("integration/failover") "")
(("integration/replication-4") "")
(("integration/replication-psync") "")
(("integration/replication[^-]") "")))))
#:make-flags `("CC=gcc"
"MALLOC=libc"
"LDFLAGS=-ldl"
,(string-append "PREFIX="
(assoc-ref %outputs "out")))))
(list
#:make-flags #~(list #$(string-append "CC=" (cc-for-target))
"MALLOC=libc"
"LDFLAGS=-ldl"
(string-append "PREFIX=" #$output))
#:phases
#~(modify-phases %standard-phases
(delete 'configure)
(add-after 'unpack 'patch-paths
(lambda _
(substitute* "runtest"
(("^TCLSH=.*")
(string-append "TCLSH=" (which "tclsh"))))
(substitute* "tests/support/server.tcl"
(("/usr/bin/env")
(which "env")))))
(add-after 'unpack 'adjust-tests
(lambda _
;; Disable failing tests
(substitute* "tests/test_helper.tcl"
;; The AOF tests cause the test suite to hang waiting for a
;; "background AOF rewrite to finish", perhaps because dead
;; processes persist as zombies in the build environment.
(("unit/aofrw") "")
(("integration/aof(-multi-part)?") "")
(("integration/failover") "")
(("integration/replication-4") "")
(("integration/replication-psync") "")
(("integration/replication[^-]") "")))))))
(native-inputs (list pkg-config procps tcl which))
(synopsis "Key-value cache and store")
(description "Redis is an advanced key-value cache and store. Redis
supports many data structures including strings, hashes, lists, sets, sorted
sets, bitmaps and hyperloglogs.")
(home-page "https://redis.io/")
;; These two CVEs have long been fixed.
(properties `((lint-hidden-cve . ("CVE-2022-3647" "CVE-2022-33105"))))
(license license:bsd-3)))
(define-public hiredis
(package
(name "hiredis")
(version "1.0.2")
(version "1.1.0")
(source
(origin
(method git-fetch)
@ -2455,7 +2459,7 @@ sets, bitmaps and hyperloglogs.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0a55zk3qrw9yl27i87h3brg2hskmmzbfda77dhq9a4if7y70xnfb"))))
(base32 "1zld30j3kpzqr9w3vkpd6mm3f1b1yk3dlgp9lp6gpsybjjfr2i6h"))))
(build-system cmake-build-system)
(native-inputs
;; needed for testing
@ -2622,7 +2626,7 @@ organized in hash table, B+ tree, or fixed-length array.")
#t)))))
(inputs
(list lz4 zlib snappy))
(home-page "http://source.wiredtiger.com/")
(home-page "https://source.wiredtiger.com/")
(synopsis "NoSQL data engine")
(description
"WiredTiger is an extensible platform for data management. It supports
@ -2815,7 +2819,7 @@ semantics.")
"Libpqxx is a C++ library to enable user programs to communicate with the
PostgreSQL database back-end. The database back-end can be local or it may be
on another machine, accessed via TCP/IP.")
(home-page "http://pqxx.org/")
(home-page "https://pqxx.org/")
(license license:bsd-3)))
(define-public go-go-etcd-io-bbolt
@ -3144,7 +3148,7 @@ for ODBC.")
pkg-config
txt2man
which))
(home-page "http://mdbtools.sourceforge.net/")
(home-page "https://mdbtools.sourceforge.net/")
(synopsis "Read Microsoft Access databases")
(description "MDB Tools is a set of tools and applications to read the
proprietary MDB file format used in Microsoft's Access database package. This
@ -3227,14 +3231,14 @@ Memory-Mapped Database} (LMDB), a high-performance key-value store.")
(define-public virtuoso-ose
(package
(name "virtuoso-ose")
(version "7.2.7")
(version "7.2.9")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/virtuoso/virtuoso/" version "/"
"virtuoso-opensource-" version ".tar.gz"))
(sha256
(base32 "1853ln0smiilf3pni70gq6nmi9ps039cy44g6b5i9d2z1n9hnj02"))
(base32 "145s4lqixdxa3j0lp9lgzbb664zzy1imw04hmgia5y5679i8r0xy"))
(patches (search-patches "virtuoso-ose-remove-pre-built-jar-files.patch"))
(modules '((guix build utils)))
;; This snippet removes pre-built Java archives.
@ -3307,8 +3311,8 @@ Memory-Mapped Database} (LMDB), a high-performance key-value store.")
(native-inputs
(list autoconf automake bison flex gperf libtool))
(inputs
(list openssl net-tools readline zlib))
(home-page "http://vos.openlinksw.com/owiki/wiki/VOS/")
(list openssl net-tools readline which zlib))
(home-page "https://vos.openlinksw.com/owiki/wiki/VOS/")
(synopsis "Multi-model database system")
(description "Virtuoso is a scalable cross-platform server that combines
relational, graph, and document data management with web application server
@ -3852,77 +3856,60 @@ for Python. The design goals are:
(define-public python-hiredis
(package
(name "python-hiredis")
(version "0.2.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "hiredis" version))
(sha256
(base32
"1dfm2k9l9zar9nw9fwmm74zrgraxdxs04vx9li56fjcf289qx5fa"))))
(build-system python-build-system)
(version "2.2.2")
(source (origin
(method git-fetch) ;for tests
(uri (git-reference
(url "https://github.com/redis/hiredis-py")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"066rm5m7aa8skm0a57cf45153bwmbl9yyi4s60an14hb25n947gi"))
(patches
(search-patches "python-hiredis-fix-header.patch"
"python-hiredis-use-system-hiredis.patch"))))
(build-system pyproject-build-system)
(arguments
;; no tests
`(#:tests? #f))
(list #:phases #~(modify-phases %standard-phases
(add-before 'check 'delete-extraneous-__init__.py
(lambda _
;; The fix was forwarded upstream, see:
;; https://github.com/redis/hiredis-py/pull/160.
(delete-file "tests/__init__.py"))))))
(native-inputs (list python-pytest))
(inputs (list hiredis))
(home-page "https://github.com/redis/hiredis-py")
(synopsis "Python extension that wraps protocol parsing code in hiredis")
(description "Python-hiredis is a python extension that wraps protocol
parsing code in hiredis. It primarily speeds up parsing of multi bulk replies.")
(license license:bsd-3)))
(define-public python-aioredis
(package
(name "python-aioredis")
(version "2.0.1")
(source
(origin
(method url-fetch)
(uri (pypi-uri "aioredis" version))
(sha256
(base32 "13nrkk45az6qdiwfpbw80ls6bfip0i27qlkh9gsp2b9zk6pim9ga"))))
(build-system python-build-system)
(arguments
(list #:phases #~(modify-phases %standard-phases
(add-before 'check 'start-redis
(lambda _
(invoke "redis-server" "--daemonize" "yes")))
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(invoke "pytest" "-vv")))))))
(native-inputs
(list python-pytest
python-pytest-asyncio
python-uvloop
redis))
(propagated-inputs
(list python-async-timeout
python-hiredis
python-typing-extensions))
(home-page "https://github.com/aio-libs/aioredis-py")
(synopsis "Redis support for Python's @code{asyncio} module")
(description "This package provides Redis support for the Python
@code{asyncio} (PEP 3156) module.")
(license license:expat)))
(define-public python-fakeredis
(package
(name "python-fakeredis")
(version "1.7.1")
(source
(origin
(method url-fetch)
(uri (pypi-uri "fakeredis" version))
(sha256
(base32
"1v68my2v7fg44zwky3k5d52nn1bi0szpgdslghrpa2ifnjhlnb3w"))))
(build-system python-build-system)
(version "2.10.1")
(source (origin
(method git-fetch) ;for tests
(uri (git-reference
(url "https://github.com/cunla/fakeredis-py")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1imsi9dswvkda894sm53lfzdsna0qlrgxszczlq2sam68zn4hfz6"))))
(build-system pyproject-build-system)
(arguments
;; no tests
`(#:tests? #f))
(propagated-inputs
(list python-aioredis python-packaging python-redis python-sortedcontainers))
(home-page "https://github.com/jamesls/fakeredis")
(list #:phases #~(modify-phases %standard-phases
(add-after 'unpack 'relax-requirements
(lambda _
(substitute* "pyproject.toml"
(("sortedcontainers = \"\\^2\\.4\"")
"sortedcontainers = \"^2.1\"")))))))
(native-inputs (list python-poetry-core python-pytest
python-pytest-asyncio python-pytest-mock))
(propagated-inputs (list python-redis python-sortedcontainers))
(home-page "https://github.com/cunla/fakeredis-py")
(synopsis "Fake implementation of redis API for testing purposes")
(description
"Fakeredis is a pure-Python implementation of the redis-py Python client
@ -3937,25 +3924,63 @@ reasonable substitute.")
(define-public python-redis
(package
(name "python-redis")
(version "3.5.3")
(source
(origin
(method url-fetch)
(uri (pypi-uri "redis" version))
(sha256
(base32 "18h5b87g15x3j6pb1h2q27ri37p2qpvc9n2wgn5yl3b6m3y0qzhf"))))
(build-system python-build-system)
;; Tests require a running Redis server.
(arguments '(#:tests? #f))
;; As long as we are not running test, we do not need this input :-)
;;(native-inputs
;; `(("python-pytest" ,python-pytest)))
(home-page "https://github.com/andymccurdy/redis-py")
(version "4.5.2")
(source (origin
;; The PyPI archive lacks some test resources such as the TLS
;; certificates under docker/stunnel/keys.
(method git-fetch)
(uri (git-reference
(url "https://github.com/redis/redis-py")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0cz3gji3rb1h5dczyl11hm42wgsbz5v896cgbi14dij160b7m35i"))))
(build-system pyproject-build-system)
(arguments
(list
#:test-flags
#~(list "-m"
;; These tests are disabled in the official CI run (see:
;; https://raw.githubusercontent.com/redis/redis-py/master/
;; .github/workflows/install_and_test.sh).
(string-append "not onlycluster "
"and not redismod "
"and not ssl")
"-k" (string-append
;; The autoclaim test fails with "AssertionError: assert
;; [b'0-0', [], []] == [b'0-0', []]".
"not test_xautoclaim "
;; These tests cause the following error: "Error 111
;; connecting to localhost:6380. Connection refused."
;; (see: https://github.com/redis/redis-py/issues/2109).
"and not test_sync "
"and not test_psync"))
#:phases
#~(modify-phases %standard-phases
;; Tests require a running Redis server.
(add-before 'check 'start-redis
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(invoke "redis-server" "--daemonize" "yes"
"--enable-debug-command" "yes"
"--enable-module-command" "local")))))))
(native-inputs
(list python-pytest
python-pytest-asyncio
python-pytest-timeout
redis))
(propagated-inputs
(list python-async-timeout))
(home-page "https://github.com/redis/redis-py")
(synopsis "Redis Python client")
(description
"This package provides a Python interface to the Redis key-value store.")
(license license:expat)))
(define-public python-aioredis
(deprecated-package "python-aioredis" python-redis))
(define-public python-rq
(package
(name "python-rq")
@ -4117,7 +4142,7 @@ the SQL language using a syntax that reflects the resulting query.")
(define-public apache-arrow
(package
(name "apache-arrow")
(version "10.0.1")
(version "11.0.0")
(source
(origin
(method git-fetch)
@ -4127,7 +4152,7 @@ the SQL language using a syntax that reflects the resulting query.")
(file-name (git-file-name name version))
(sha256
(base32
"0skw6x888i804pg35xaxqwkkb36z9hj966zs3ckhkbp4mcll9q9v"))))
"06d3jjxagj5f14j9c48rh63x7pr9f96v69anjnpc6lakr0gkpi1d"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f
@ -4637,7 +4662,7 @@ SQLAlchemy.")
similar to the DBI/DBD layer in Perl. Writing one generic set of code,
programmers can leverage the power of multiple databases and multiple
simultaneous database connections by using this framework.")
(home-page "http://libdbi.sourceforge.net/")
(home-page "https://libdbi.sourceforge.net/")
(license license:lgpl2.1+)))
(define-public libdbi-drivers
@ -4708,7 +4733,7 @@ The drivers officially supported by @code{libdbi} are:
@item PostgreSQL,
@item SQLite.
@end itemize")
(home-page "http://libdbi-drivers.sourceforge.net/")
(home-page "https://libdbi-drivers.sourceforge.net/")
(license license:lgpl2.1+)))
(define-public soci
@ -4743,7 +4768,7 @@ The drivers officially supported by @code{libdbi} are:
(description
"SOCI is an abstraction layer for several database backends, including
PostreSQL, SQLite, ODBC and MySQL.")
(home-page "http://soci.sourceforge.net/")
(home-page "https://soci.sourceforge.net/")
(license license:boost1.0)))
(define-public freetds

51
gnu/packages/datastructures.scm
View file

@ -5,6 +5,7 @@
;;; Copyright © 2019, 2020, 2022 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2020 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2020, 2022 Marius Bakke <marius@gnu.org>
;;; Copyright © 2023 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;;
;;; This file is part of GNU Guix.
;;;
@ -35,6 +36,56 @@
#:use-module (guix build-system gnu)
#:use-module (guix build-system meson))
(define-public coucal
(let ((commit "73ada075553b7607d083037a87cb9c73b3683bfc")
(revision "1"))
(package
(name "coucal")
(version (git-version "0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/xroche/coucal")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"01996vda3wj5ywpwg9yhysaq6cyi44xnkyhihbwwi43hrj1ic2vm"))))
(build-system gnu-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'do-not-run-tests-early
(lambda _
(substitute* "Makefile"
(("(all: ).*" _ lead) (string-append lead "gcc")))))
(add-after 'unpack 'remove-Werror
;; Prevent "this statement may fall through
;; [-Wimplicit-fallthrough=]" errors from "murmurhash3.h" file.
(lambda _
(substitute* "Makefile"
(("-Werror ") ""))))
(delete 'configure) ;no configure script
(replace 'install ;no install target
(lambda _
(let ((doc (string-append #$output
"/share/doc/" #$name "-" #$version)))
(install-file "README.md" doc))
(for-each (lambda (f) (install-file f #$output))
(find-files "." "(coucal|murmurhash)"))))
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(invoke "make" "tests" "runtests")))))))
(home-page "https://github.com/xroche/coucal")
(synopsis "Cuckoo-hashing-based hashtable with stash area C library")
(description "Coucal is an implementation of the Cuckoo hashing
algorithm with a stash area using by default the MurmurHash hash function.")
;; Library is released under Expat terms, but the source includes
;; "murmurhash3.h", which is placed in the public domain.
(license (list license:expat license:public-domain)))))
(define-public gdsl
(package
(name "gdsl")

6
gnu/packages/dav.scm
View file

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015, 2016, 2017 Leo Famulari <leo@famulari.name>
;;; Copyright © 2018, 2019, 2022 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018, 2019, 2022, 2023 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2020 Vinicius Monego <monego@posteo.net>
;;; Copyright © 2021 Tanguy Le Carrour <tanguy@bioneland.org>
@ -122,13 +122,13 @@ efficient syncing
(define-public vdirsyncer
(package
(name "vdirsyncer")
(version "0.19.0")
(version "0.19.1")
(source (origin
(method url-fetch)
(uri (pypi-uri name version))
(sha256
(base32
"0995bavlv8s9j0127ncq3yzy5p72lam9qgpswyjfanc6l01q87lf"))))
"1bh3kz0d8g07xnlkb5l2fj6fdakqps1wviab6zv139x5b9rcfxma"))))
(build-system python-build-system)
(arguments
`(#:tests? #f ; The test suite is very flakey.

22
gnu/packages/debian.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018, 2020, 2021, 2022 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018, 2020-2023 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2020 Marius Bakke <marius@gnu.org>
;;;
@ -89,7 +89,7 @@ contains the archive keys used for that.")
(define-public debian-ports-archive-keyring
(package
(name "debian-ports-archive-keyring")
(version "2022.02.15")
(version "2023.02.01")
(source
(origin
(method url-fetch)
@ -98,7 +98,7 @@ contains the archive keys used for that.")
"/debian-ports-archive-keyring_" version ".tar.xz"))
(sha256
(base32
"096m45l7g8vbk67gwc6bmkzpx8mhn6xfglgrzlg9xkgcs5gxqyc0"))))
"1xq7i6plgfbf4drqdmmk1yija48x11jmhnk2av3cajn2cdhkw73s"))))
(build-system gnu-build-system)
(arguments
'(#:tests? #f ; No test suite.
@ -127,8 +127,7 @@ contains the archive keys used for that.")
(string-append "trusted.gpg/" (basename key ".key") ".gpg")
(lambda _
(apply invoke "gpg" (append gpg-options (list key))))))
(find-files "active-keys"))
#t)))
(find-files "active-keys")))))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
@ -138,8 +137,7 @@ contains the archive keys used for that.")
(install-file "debian-ports-archive-keyring-removed.gpg" key)
(for-each (lambda (file)
(install-file file apt))
(find-files "trusted.gpg" "\\.gpg$")))
#t)))))
(find-files "trusted.gpg" "\\.gpg$"))))))))
(native-inputs
(list gnupg))
(home-page "https://tracker.debian.org/pkg/debian-ports-archive-keyring")
@ -194,7 +192,7 @@ contains the archive keys used for that.")
(define-public debootstrap
(package
(name "debootstrap")
(version "1.0.126")
(version "1.0.128")
(source
(origin
(method git-fetch)
@ -203,7 +201,7 @@ contains the archive keys used for that.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0hfx6k86kby4xf0xqskpllq00g159j4khh66hfi6dhcdb91dgyd7"))))
(base32 "0hc7xc6qvnmjlpf3j6bm25kf0j1ifvv5j7a0iljfmbag4idxc9jv"))))
(build-system gnu-build-system)
(arguments
(list
@ -328,7 +326,7 @@ debian/copyright for more information.")))))
#:phases (modify-phases %standard-phases (delete 'configure))))
(inputs
(list wget perl))
(home-page "http://apt-mirror.github.io/")
(home-page "https://apt-mirror.github.io/")
(synopsis "Script for mirroring a Debian repository")
(description
"apt-mirror is a small tool that provides the ability to selectively
@ -339,7 +337,7 @@ distributions such as Debian and Trisquel.")
(define-public dpkg
(package
(name "dpkg")
(version "1.21.12")
(version "1.21.21")
(source
(origin
(method git-fetch)
@ -348,7 +346,7 @@ distributions such as Debian and Trisquel.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "08a72lhkgz4iiimdkqlmf58m31zrwqcs0741nbxxq1x3s9phc25m"))))
(base32 "0vgc5irrjyyb5y5hza2hbq3dgfylrxvfdzysw8zzlhgf4bhm69zq"))))
(build-system gnu-build-system)
(arguments
`(#:phases

35
gnu/packages/debug.scm
View file

@ -11,6 +11,7 @@
;;; Copyright © 2021 Foo Chuan Wei <chuanwei.foo@hotmail.com>
;;; Copyright © 2022 Michael Rohleder <mike@rohleder.de>
;;; Copyright © 2022 Matthew James Kraai <kraai@ftbfs.org>
;;; Copyright © 2023 Andy Tai <atai@atai.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -53,6 +54,7 @@
#:use-module (gnu packages gtk)
#:use-module (gnu packages golang)
#:use-module (gnu packages image)
#:use-module (gnu packages lesstif)
#:use-module (gnu packages libusb)
#:use-module (gnu packages linux)
#:use-module (gnu packages llvm)
@ -70,6 +72,7 @@
#:use-module (gnu packages texinfo)
#:use-module (gnu packages virtualization)
#:use-module (gnu packages xdisorg)
#:use-module (gnu packages xorg)
#:use-module (ice-9 match)
#:use-module (srfi srfi-1))
@ -617,7 +620,7 @@ the position of the variable and allows you to modify its value.")
(inputs
(modify-inputs (package-inputs gnu-make)
(prepend readline)))
(home-page "http://bashdb.sourceforge.net/remake/")
(home-page "https://bashdb.sourceforge.net/remake/")
(description "Remake is an enhanced version of GNU Make that adds improved
error reporting, better tracing, profiling, and a debugger.")
(license license:gpl3+)))
@ -860,6 +863,36 @@ engineering.")
;; Note: Some icons in src/resources are creative commons 3.0 and/or 4.0.
(license license:gpl3+)))
(define-public ddd
(package
(name "ddd")
(version "3.3.12")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnu/ddd/ddd-" version ".tar.gz"))
(sha256
(base32
"0p5nx387857w3v2jbgvps2p6mlm0chajcdw5sfrddcglsxkwvmis"))))
(build-system gnu-build-system)
(arguments
(list #:tests? #f ;tests require manual intervention
;; Avoid "friend declaration specifies default arguments and isn’t
;; a definition" errors.
#:configure-flags #~(list "CXXFLAGS=-fpermissive")))
(native-inputs
(list pkg-config))
(inputs
(list motif ncurses gdb))
(synopsis "Graphical front-end for GDB and other debuggers")
(description "GNU DDD, the Data Display Debugger, is a graphical front-end
for command-line debuggers. Many back-end debuggers are supported, notably
the GNU debugger, GDB. In addition to usual debugging features such as
viewing the source files, DDD has additional graphical, interactive features
to aid in debugging.")
(home-page "https://www.gnu.org/software/ddd/")
(license license:gpl3+)))
(define-public delve
(package
(name "delve")

168
gnu/packages/dhall.scm
View file

@ -30,108 +30,76 @@
(define-public dhall
(package
(name "dhall")
(version "1.39.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://hackage.haskell.org/package/dhall/dhall-"
version ".tar.gz"))
(sha256
(base32 "1by2d84fbckspczddl4npfsf89q6nprmbg0i5g8yr1psp0fpl4ab"))))
(version "1.41.2")
(source (origin
(method url-fetch)
(uri (hackage-uri "dhall" version))
(sha256
(base32
"14m5rrvkid76qnvg0l14xw1mnqclhip3gjrz20g1lp4fd5p056ka"))))
(build-system haskell-build-system)
(inputs
(list ghc-aeson
ghc-aeson-pretty
ghc-ansi-terminal
ghc-atomic-write-0.2.0.7
ghc-case-insensitive
ghc-cborg
ghc-cborg-json
ghc-contravariant
ghc-data-fix
ghc-diff
ghc-dotgen
ghc-either
ghc-exceptions
ghc-half
ghc-hashable
ghc-lens-family-core
ghc-megaparsec
ghc-memory
ghc-mmorph
ghc-network-uri
ghc-optparse-applicative
ghc-parsers
ghc-parser-combinators
ghc-prettyprinter
ghc-prettyprinter-ansi-terminal
ghc-pretty-simple
ghc-profunctors
ghc-pretty-simple
ghc-repline
ghc-serialise
ghc-scientific
ghc-text-manipulate
ghc-th-lift-instances
ghc-transformers-compat
ghc-unordered-containers
ghc-uri-encode
ghc-vector
ghc-cryptonite
ghc-http-types
ghc-http-client
ghc-http-client-tls))
(native-inputs
(list ghc-foldl
ghc-generic-random-1.3.0.1
ghc-quickcheck
ghc-quickcheck-instances
ghc-semigroups
ghc-special-values
ghc-spoon
ghc-tasty
ghc-tasty-expected-failure
ghc-tasty-hunit
ghc-tasty-quickcheck
ghc-tasty-silver
ghc-turtle
ghc-mockery
ghc-doctest))
(properties '((upstream-name . "dhall")))
(inputs (list ghc-aeson
ghc-aeson-pretty
ghc-ansi-terminal
ghc-atomic-write
ghc-base16-bytestring
ghc-case-insensitive
ghc-cborg
ghc-cborg-json
ghc-contravariant
ghc-data-fix
ghc-diff
ghc-dotgen
ghc-either
ghc-half
ghc-hashable
ghc-indexed-traversable
ghc-lens-family-core
ghc-megaparsec
ghc-mmorph
ghc-network-uri
ghc-optparse-applicative
ghc-parsers
ghc-parser-combinators
ghc-prettyprinter
ghc-prettyprinter-ansi-terminal
ghc-pretty-simple
ghc-profunctors
ghc-repline
ghc-serialise
ghc-scientific
ghc-text-manipulate
ghc-text-short
ghc-th-lift-instances
ghc-unordered-containers
ghc-uri-encode
ghc-vector
ghc-cryptohash-sha256
ghc-http-types
ghc-http-client
ghc-http-client-tls))
(native-inputs (list ghc-foldl
ghc-generic-random
ghc-quickcheck
ghc-quickcheck-instances
ghc-special-values
ghc-spoon
ghc-system-filepath
ghc-tasty
ghc-tasty-expected-failure
ghc-tasty-hunit
ghc-tasty-quickcheck
ghc-tasty-silver
ghc-temporary
ghc-turtle
ghc-mockery
ghc-doctest))
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'remove-network-tests
(lambda _
(with-directory-excursion "dhall-lang/tests"
(for-each
delete-file
'("import/success/customHeadersA.dhall"
"import/success/noHeaderForwardingA.dhall"
"import/success/unit/RemoteAsTextA.dhall"
"import/success/unit/SimpleRemoteA.dhall"
"import/success/unit/asLocation/RemoteChain1A.dhall"
"import/success/unit/asLocation/RemoteChain2A.dhall"
"import/success/unit/asLocation/RemoteChain3A.dhall"
"import/success/unit/asLocation/RemoteChainEnvA.dhall"
"import/success/unit/asLocation/RemoteChainMissingA.dhall"
"type-inference/success/CacheImportsA.dhall"
"type-inference/success/CacheImportsCanonicalizeA.dhall")))
(substitute* "src/Dhall/Tutorial.hs"
(((string-append
"-- >>> input auto "
"\"https://raw.githubusercontent.com/dhall-lang"
"/dhall-haskell/18e4e9a18dc53271146df3ccf5b4177c3552236b/"
"examples/True\" :: IO Bool"))
"")
(((string-append
"-- >>> input auto "
"\"False == "
"https://raw.githubusercontent.com/dhall-lang"
"/dhall-haskell/18e4e9a18dc53271146df3ccf5b4177c3552236b/"
"examples/True\" :: IO Bool"))
""))
#t)))))
(home-page "https://dhall-lang.org/")
`(#:tests? #f ; Tries to access httpbin.org
#:cabal-revision ("4"
"0innb3cn98ynb8bd83jdyrm64ij7wcvajg5qcwzdwbyzpr62anfx")))
(home-page "http://hackage.haskell.org/package/dhall")
(synopsis "Configuration language guaranteed to terminate")
(description
"Dhall is an explicitly typed configuration language that is not Turing

6
gnu/packages/dictionaries.scm
View file

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014, 2015, 2016, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016, 2017, 2018, 2020-2022 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2017, 2018, 2020-2023 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 Sou Bunnbu <iyzsong@gmail.com>
;;; Copyright © 2017, 2018, 2019, 2021 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
@ -239,7 +239,7 @@ and a Python library.")
(define-public translate-shell
(package
(name "translate-shell")
(version "0.9.7")
(version "0.9.7.1")
(source
(origin
(method git-fetch)
@ -248,7 +248,7 @@ and a Python library.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "03p00v8g0y2xs3sza2r2kmhwiajaz9viab6xk9snw7chzw2cddiq"))))
(base32 "0jfrypcz963pfvwwaz2i0xvwp2909ldzp15v68mgd2mbqkqw9d90"))))
(build-system gnu-build-system)
(arguments
`(#:phases

12
gnu/packages/diffoscope.scm
View file

@ -75,7 +75,7 @@
(define-public diffoscope
(package
(name "diffoscope")
(version "233")
(version "239")
(source
(origin
(method git-fetch)
@ -84,7 +84,7 @@
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "1m6fc7k8cd7ahra05vqccw1fdbjj6d20vr3q8v67ynnyih5nmbnb"))))
(base32 "1awxazbrqqzqr5x50kam50ibmnjvidynkzp2158rdx5gy5lmnwcy"))))
(build-system python-build-system)
(arguments
`(#:phases (modify-phases %standard-phases
@ -244,7 +244,7 @@ install.")
(define-public reprotest
(package
(name "reprotest")
(version "0.7.22")
(version "0.7.23")
(source
(origin
(method git-fetch)
@ -253,7 +253,7 @@ install.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0qpjg37x2ha7lb113fb5cic5if3zv30zqijsmkq91ld909x30ggd"))))
(base32 "0hkzh4i3c5hrbvdkhbmwm5vmb4msnlm5rvhjin6h2ni40kix69g0"))))
(inputs
(list python-debian python-distro python-libarchive-c python-rstr))
(native-inputs
@ -277,9 +277,7 @@ install.")
(add-after 'unpack 'adjust-locales
(lambda _
(substitute* "reprotest/build.py"
(("'C.UTF-8'") "'en_US.UTF-8'")
(("'ru_RU.CP1251'") "'ru_RU.KOI8-R'")
(("'kk_KZ.RK1048'") "'kk_KZ'"))
(("'C.UTF-8'") "'en_US.UTF-8'"))
(substitute* "reprotest/lib/adt_testbed.py"
(("export LANG=C.UTF-8") "export LANG=en_US.UTF-8"))
#t))

10
gnu/packages/disk.scm
View file

@ -527,7 +527,7 @@ and a @command{fsck.vfat} compatibility symlink for use in an initrd.")
(sha256
(base32 "1gmdxr36allrgap2j4dv238d8awkj327ww0jjwpjwrpbvfpyzjf4"))))
(build-system gnu-build-system)
(home-page "http://sg.danny.cz/sg/sdparm.html")
(home-page "https://sg.danny.cz/sg/sdparm.html")
(synopsis "Provide access to SCSI device parameters")
(description
"Sdparm reads and modifies SCSI device parameters. These devices can be
@ -562,7 +562,7 @@ and unloading removable media and some other housekeeping functions.")
(string-append "manprefix=")
(string-append "DESTDIR="
(assoc-ref %outputs "out")))))
(home-page "http://idle3-tools.sourceforge.net")
(home-page "https://idle3-tools.sourceforge.net")
(synopsis "Change or disable Western Digital hard drives' Idle3 timer")
(description
"Idle3-tools provides a utility to get, set, or disable the Idle3 timer
@ -575,14 +575,14 @@ and can dramatically shorten the lifespan of the drive if left unchecked.")
(define-public gparted
(package
(name "gparted")
(version "1.4.0")
(version "1.5.0")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/gparted/gparted/gparted-"
version "/gparted-" version ".tar.gz"))
(sha256
(base32 "1gl7g1lg72s63a9xlc4kcc6ksq6r7h8k9a6456xbxzak5rwklag5"))))
(base32 "1pm8jah6lakv83zm3isx4bgmi5xdwaqkjxmiv7qky224m4kfm59w"))))
(build-system glib-or-gtk-build-system)
(arguments
;; Tests require access to files outside the build container, such
@ -1448,7 +1448,7 @@ reliably with @code{bmaptool} than with traditional tools, like @code{dd} or
(list autoconf automake libtool pkg-config))
(inputs
(list cairo pango tokyocabinet ncurses))
(home-page "http://duc.zevv.nl")
(home-page "https://duc.zevv.nl")
(synopsis "Library and suite of tools for inspecting disk usage")
(description "Duc maintains a database of accumulated sizes of
directories of the file system, and allows you to query this database with

8
gnu/packages/django.scm
View file

@ -460,7 +460,7 @@ useful tools for testing Django applications and projects.")
python-setuptools-scm
python-pysolr
python-whoosh))
(home-page "http://haystacksearch.org/")
(home-page "https://haystacksearch.org/")
(synopsis "Pluggable search for Django")
(description "Haystack provides modular search for Django. It features a
unified, familiar API that allows you to plug in different search backends
@ -870,13 +870,13 @@ support, and optional data-URI image and font embedding.")
(define-public python-django-rq
(package
(name "python-django-rq")
(version "2.3.2")
(version "2.7.0")
(source (origin
(method url-fetch)
(uri (pypi-uri "django-rq" version))
(sha256
(base32
"0lksnjn3q3f7y72bj2yr8870w28a5b6x0vjnd9nhpq2ah6xfz6pf"))))
"0aw0fi0lg80qgdp9fhjbnlhvfh2p09rgy1nj6hxpyhi37kihni2h"))))
(build-system python-build-system)
(arguments
`(#:phases
@ -884,7 +884,7 @@ support, and optional data-URI image and font embedding.")
(replace 'check
(lambda _
(invoke "redis-server" "--daemonize" "yes")
(invoke "django-admin.py" "test" "django_rq"
(invoke "django-admin" "test" "django_rq"
"--settings=django_rq.tests.settings"
"--pythonpath=."))))))
(native-inputs

4
gnu/packages/djvu.scm
View file

@ -85,7 +85,7 @@
(substitute* "desktopfiles/Makefile.am"
(("gzip") "gzip -n"))
#t)))))
(home-page "http://djvu.sourceforge.net/")
(home-page "https://djvu.sourceforge.net/")
(synopsis "Implementation of DjVu, the document format")
(description "DjVuLibre is an implementation of DjVu,
including viewers, browser plugins, decoders, simple encoders, and
@ -124,7 +124,7 @@ utilities.")
(for-each make-file-writable
(find-files "."))
#t)))))
(home-page "http://djvu.sourceforge.net/djview4.html")
(home-page "https://djvu.sourceforge.net/djview4.html")
(synopsis "Viewer for the DjVu image format")
(description "DjView is a standalone viewer for DjVu files.

140
gnu/packages/dns.scm
View file

@ -19,6 +19,8 @@
;;; Copyright © 2020 Brice Waegeneire <brice@waegenei.re>
;;; Copyright © 2020 Simon South <simon@simonsouth.net>
;;; Copyright © 2021 Zheng Junjie <873216071@qq.com>
;;; Copyright © 2023 Bruno Victal <mirai@makinata.eu>
;;; Copyright © 2023 Hilton Chain <hako@ultrarare.space>
;;;
;;; This file is part of GNU Guix.
;;;
@ -64,6 +66,7 @@
#:use-module (gnu packages nettle)
#:use-module (gnu packages networking)
#:use-module (gnu packages perl)
#:use-module (gnu packages perl-check)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages protobuf)
#:use-module (gnu packages python)
@ -81,6 +84,7 @@
#:use-module (guix gexp)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module ((guix search-paths) #:select ($SSL_CERT_DIR $SSL_CERT_FILE))
#:use-module (guix download)
#:use-module (guix git-download)
#:use-module (guix utils)
@ -290,7 +294,7 @@ prompt the user with the option to go with insecure DNS only.")
(define-public dnsmasq
(package
(name "dnsmasq")
(version "2.88")
(version "2.89")
(source (origin
(method url-fetch)
(uri (string-append
@ -298,7 +302,7 @@ prompt the user with the option to go with insecure DNS only.")
version ".tar.xz"))
(sha256
(base32
"1cy1zci6vyhzczy6ncc5m9d7zsnnzs9mmwd6pr9w0h03l7nlsm13"))))
"02dnxfnman38armn3sw56w80f9wb2vgm3qgm15crs2yg8q1j7g82"))))
(build-system gnu-build-system)
(native-inputs
(list pkg-config))
@ -312,7 +316,7 @@ prompt the user with the option to go with insecure DNS only.")
(string-append "PKG_CONFIG=" ,(pkg-config-for-target))
"COPTS=\"-DHAVE_DBUS\"")
#:tests? #f)) ; no ‘check’ target
(home-page "http://www.thekelleys.org.uk/dnsmasq/doc.html")
(home-page "https://www.thekelleys.org.uk/dnsmasq/doc.html")
(synopsis "Small caching DNS proxy and DHCP/TFTP server")
(description
"Dnsmasq is a light-weight DNS forwarder and DHCP server. It is designed
@ -333,14 +337,14 @@ and BOOTP/TFTP for network booting of diskless machines.")
;; When updating, check whether isc-dhcp's bundled copy should be as well.
;; The BIND release notes are available here:
;; https://www.isc.org/bind/
(version "9.16.37")
(version "9.16.38")
(source
(origin
(method url-fetch)
(uri (string-append "https://ftp.isc.org/isc/bind9/" version
"/bind-" version ".tar.xz"))
(sha256
(base32 "1az2y8zdpn6vfmx4xqnsh5znagcrsvkqa1hz3h8izzm24ban2ihf"))
(base32 "03y52iyc2g63lkk9x2vaizpr0jv27g1z6mcxnjw8m8l4kaflrx4d"))
(patches
(search-patches "bind-re-add-attr-constructor-priority.patch"))))
(build-system gnu-build-system)
@ -871,7 +875,7 @@ Extensions} (DNSSEC).")
(define-public knot
(package
(name "knot")
(version "3.2.4")
(version "3.2.5")
(source
(origin
(method git-fetch)
@ -880,7 +884,7 @@ Extensions} (DNSSEC).")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0b6fnrdy5zqn3mnn5cl92j0m7k9l6hh4gnr92qpirqf54bl2lfm2"))
(base32 "0xhr6i5qq0yhxqj50hsm51lb1v5lj4vfkzdcsvh7lw8wg6j1d03b"))
(modules '((guix build utils)))
(snippet
'(begin
@ -1098,7 +1102,7 @@ LuaJIT, both a resolver library and a daemon.")
(define-public ddclient
(package
(name "ddclient")
(version "3.9.1")
(version "3.10.0")
(source
(origin
(method git-fetch)
@ -1107,62 +1111,46 @@ LuaJIT, both a resolver library and a daemon.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0hf377g4j9r9sac75xp17nk2h58mazswz4vkg4g2gl2yyhvzq91w"))))
(build-system trivial-build-system) ; no Makefile.PL
(base32 "0l87d72apwrg6ipc9gix5gv64d4hr1ykxmss8x4r8d8mgj6j8rf1"))
(modules '((guix build utils)))
(snippet
;; XXX: erroneous version value, this is fixed in master
#~(begin
(substitute* "configure.ac"
(("3.10.0_2") #$version))))
(patches (search-patches "ddclient-skip-test.patch"))))
(build-system gnu-build-system)
(native-inputs
(list bash perl))
(list autoconf automake libtool
perl-test-warnings perl-test-mockmodule))
(inputs
(list inetutils ; logger
net-tools
perl-data-validate-ip
bash-minimal ;for 'wrap-program'
perl
perl-digest-sha1
perl-io-socket-ssl))
perl-io-socket-ssl
perl-io-socket-inet6 ;; XXX: this is likely to be removed in a future ddclient release
;; https://github.com/ddclient/ddclient/issues/461
perl-json))
(arguments
`(#:modules ((guix build utils))
#:builder
(begin
(use-modules (guix build utils)
(ice-9 match)
(srfi srfi-26))
(setenv "PATH" (string-append
(assoc-ref %build-inputs "bash") "/bin" ":"
(assoc-ref %build-inputs "perl") "/bin"))
;; Copy the (read-only) source into the (writable) build directory.
(copy-recursively (assoc-ref %build-inputs "source") ".")
;; Install.
(let* ((out (assoc-ref %outputs "out"))
(bin (string-append out "/bin")))
(let ((file "ddclient"))
(substitute* file
(("/usr/bin/perl") (which "perl"))
;; Strictly use ‘/etc/ddclient/ddclient.conf’.
(("\\$\\{program\\}\\.conf") "/etc/ddclient/ddclient.conf")
(("\\$etc\\$program.conf") "/etc/ddclient/ddclient.conf")
;; Strictly use ‘/var/cache/ddclient/ddclient.cache’
(("\\$cachedir\\$program\\.cache")
"/var/cache/ddclient/ddclient.cache"))
(install-file file bin)
(wrap-program (string-append bin "/" file)
`("PATH" ":" =
("$PATH"
,@(map (lambda (input)
(match input
((name . store)
(string-append store "/bin"))))
%build-inputs)))
`("PERL5LIB" ":" =
,(delete
""
(map (match-lambda
(((? (cut string-prefix? "perl-" <>) name) . dir)
(string-append dir "/lib/perl5/site_perl"))
(_ ""))
%build-inputs)))))
(for-each (cut install-file <> (string-append out
"/share/ddclient"))
(find-files "." "sample.*$"))))))
(list
#:configure-flags #~(list "--localstatedir=/var")
#:phases
#~(modify-phases %standard-phases
(replace 'install
(lambda _
;; XXX: Do not create /var
(invoke "make" "localstatedir=/tmp/discard" "install")))
(add-after 'wrap 'wrap-ddclient
(lambda* (#:key inputs #:allow-other-keys)
(wrap-program (string-append #$output "/bin/ddclient")
`("PERL5LIB" ":" prefix ,(string-split (getenv "PERL5LIB") #\:))
`("PATH" prefix ,(map (lambda (x)
(string-append (assoc-ref inputs x) "/bin"))
'("inetutils" "net-tools")))))))))
(native-search-paths
(list $SSL_CERT_DIR $SSL_CERT_FILE))
(home-page "https://ddclient.net/")
(synopsis "Address updating utility for dynamic DNS services")
(description "This package provides a client to update dynamic IP
@ -1389,3 +1377,39 @@ interface. It then calls all the helper scripts it knows about so it can
configure the real @file{/etc/resolv.conf} and optionally any local
nameservers other than libc.")
(license license:bsd-2)))
(define-public smartdns
(package
(name "smartdns")
(version "40")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/pymumu/smartdns")
(commit (string-append "Release" version))))
(file-name (git-file-name name version))
(modules '((guix build utils)))
(snippet '(substitute* "Makefile"
((".*SYSTEMDSYSTEMUNITDIR.*") "")))
(sha256
(base32
"0ibbj96s40xgk6q7dsgpx65rjkknl1pn7nca5fcbbhcm2m80nzjj"))))
(build-system gnu-build-system)
(arguments
(list #:tests? #f ;no tests
#:make-flags
#~(list (string-append "CC=" #$(cc-for-target))
(string-append "DESTDIR=" #$output)
"PREFIX=''")
#:phases
#~(modify-phases %standard-phases
(delete 'configure))))
(inputs (list openssl))
(home-page "https://github.com/pymumu/smartdns")
(synopsis "Local DNS server")
(description
"SmartDNS is a DNS server that accepts DNS query requests from local
clients, obtains DNS query results from multiple upstream DNS servers, and
returns the fastest access results to clients.")
(license license:gpl3+)))

4
gnu/packages/docbook.scm
View file

@ -632,7 +632,7 @@ the in DocBook SGML DTDs.")
"/bin"))
'("libxslt" "texlive"
"imagemagick" "inkscape"))))))))))
(home-page "http://dblatex.sourceforge.net")
(home-page "https://dblatex.sourceforge.net")
(synopsis "DocBook to LaTeX Publishing")
(description
"DocBook to LaTeX Publishing transforms your SGML/XML DocBook documents
@ -818,7 +818,7 @@ Detect the differences in markup between two SGML files.
(map (lambda (prog)
(symlink prog (string-append out "/bin/db2x_" prog)))
'("docbook2man" "docbook2texi"))))))))
(home-page "http://docbook2x.sourceforge.net")
(home-page "https://docbook2x.sourceforge.net")
(synopsis "Convert DocBook to man page and Texinfo format")
(description
"docbook2X is a software package that converts DocBook documents into the

82
gnu/packages/docker.scm
View file

@ -724,3 +724,85 @@ containers. It manages a single child process and ensures that any zombie
processes produced from it are reaped and that signals are properly forwarded.
Tini is integrated with Docker.")
(license license:expat)))
(define-public docker-registry
(package
(name "docker-registry")
(version "2.8.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/docker/distribution")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1w8zr97p2c62gm1lrdwqa704ivjsy25ylznrddbbpv63idwdbi9k"))))
(build-system go-build-system)
(arguments
(list
#:import-path "github.com/docker/distribution"
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'chdir-to-src
(lambda _ (chdir "src/github.com/docker/distribution")))
(add-after 'chdir-to-src 'fix-versioning
(lambda _
;; The Makefile use git to compute the version and the
;; revision. This requires the .git directory that we don't have
;; anymore in the unpacked source.
(substitute* "Makefile"
(("^VERSION=\\$\\(.*\\)")
(string-append "VERSION=v" #$version))
;; The revision originally used the git hash with .m appended
;; if there was any local modifications.
(("^REVISION=\\$\\(.*\\)") "REVISION=0"))))
(replace 'build
(lambda _
(invoke "make" "binaries")))
(replace 'install
(lambda _
(let ((bin (string-append #$output "/bin")))
(mkdir-p bin)
(for-each
(lambda (file)
(install-file (string-append "bin/" file) bin))
'("digest"
"registry"
"registry-api-descriptor-template")))
(let ((doc (string-append
#$output "/share/doc/" #$name "-" #$version)))
(mkdir-p doc)
(for-each
(lambda (file)
(install-file file doc))
'("BUILDING.md"
"CONTRIBUTING.md"
"LICENSE"
"MAINTAINERS"
"README.md"
"ROADMAP.md"))
(copy-recursively "docs/" (string-append doc "/docs")))
(let ((examples
(string-append
#$output "/share/doc/" #$name "-" #$version
"/registry-example-configs")))
(mkdir-p examples)
(for-each
(lambda (file)
(install-file (string-append "cmd/registry/" file) examples))
'("config-cache.yml"
"config-example.yml"
"config-dev.yml")))))
(delete 'install-license-files))))
(home-page "https://github.com/docker/distribution")
(synopsis "Docker registry server and associated tools")
(description "The Docker registry server enable you to host your own
docker registry. With it, there is also two other utilities:
@itemize
@item The digest utility is a tool that generates checksums compatibles with
various docker manifest files.
@item The registry-api-descriptor-template is a tool for generating API
specifications from the docs/spec/api.md.tmpl file.
@end itemize")
(license license:asl2.0)))

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