amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge branch 'master' into mesa-updates

Browse source 
Change-Id: I46ca25bea98d25150877421c6d5161752afabb25
This commit is contained in:
John Kehayias 2024-01-04 00:03:40 -05:00
commit ef4e4c9a2c
No known key found for this signature in database
GPG key ID: 499097AE5EA815D9
71 changed files with 40670 additions and 35858 deletions
Download patch file Download diff file Expand all files Collapse all files

2
doc/contributing.texi
View file

@ -457,7 +457,7 @@ configuration file:
(group-n 3 (one-or-more digit)) (group-n 3 (one-or-more digit))
line-end)) line-end))
;; Reduce the number of prompts with 'M-x debbugs-gnu'. ;; Change the default when run as 'M-x debbugs-gnu'.
(setq debbugs-gnu-default-packages '("guix" "guix-patches")) (setq debbugs-gnu-default-packages '("guix" "guix-patches"))
;; Show feature requests. ;; Show feature requests.

236
doc/guix-cookbook.texi
View file

@ -77,6 +77,7 @@ manual}).
* Packaging:: Packaging tutorials * Packaging:: Packaging tutorials
* System Configuration:: Customizing the GNU System * System Configuration:: Customizing the GNU System
* Containers:: Isolated environments and nested systems * Containers:: Isolated environments and nested systems
* Virtual Machines:: Virtual machines usage and configuration
* Advanced package management:: Power to the users! * Advanced package management:: Power to the users!
* Software Development:: Environments, continuous integration, etc. * Software Development:: Environments, continuous integration, etc.
* Environment management:: Control environment * Environment management:: Control environment
@ -155,6 +156,11 @@ Guix System Containers
* A Database Container:: * A Database Container::
* Container Networking:: * Container Networking::
Virtual Machines
* Network bridge for QEMU::
* Routed network for libvirt::
Advanced package management Advanced package management
* Guix Profiles in Practice:: Strategies for multiple profiles and manifests. * Guix Profiles in Practice:: Strategies for multiple profiles and manifests.
@ -3702,6 +3708,236 @@ sudo ip netns del $ns
sudo ip link del $host sudo ip link del $host
@end example @end example
@c *********************************************************************
@node Virtual Machines
@chapter Virtual Machines
Guix can produce disk images (@pxref{Invoking guix system,,, guix, GNU
Guix Reference Manual}) that can be used with virtual machines solutions
such as virt-manager, GNOME Boxes or the more bare QEMU, among others.
This chapter aims to provide hands-on, practical examples that relates
to the usage and configuration of virtual machines on a Guix System.
@menu
* Network bridge for QEMU::
* Routed network for libvirt::
@end menu
@node Network bridge for QEMU
@section Network bridge for QEMU
@cindex Network bridge interface
@cindex networking, bridge
@cindex qemu, network bridge
By default, QEMU uses a so-called ``user mode'' host network back-end,
which is convenient as it does not require any configuration.
Unfortunately, it is also quite limited. In this mode, the guest
@abbr{VM, virtual machine} can access the network the same way the host
would, but it cannot be reached from the host. Additionally, since the
QEMU user networking mode relies on ICMP, ICMP-based networking tools
such as @command{ping} do @emph{not} work in this mode. Thus, it is
often desirable to configure a network bridge, which enables the guest
to fully participate in the network. This is necessary, for example,
when the guest is to be used as a server.
@subsection Creating a network bridge interface
There are many ways to create a network bridge. The following command
shows how to use NetworkManager and its @command{nmcli} command line
interface (CLI) tool, which should already be available if your
operating system declaration is based on one of the desktop templates:
@example sh
# nmcli con add type bridge con-name br0 ifname br0
@end example
To have this bridge be part of your network, you must associate your
network bridge with the Ethernet interface used to connect with the
network. Assuming your interface is named @samp{enp2s0}, the following
command can be used to do so:
@example sh
# nmcli con add type bridge-slave ifname enp2s0 master br0
@end example
@quotation Important
Only Ethernet interfaces can be added to a bridge. For wireless
interfaces, consider the routed network approach detailed in
@xref{Routed network for libvirt}.
@end quotation
By default, the network bridge will allow your guests to obtain their IP
address via DHCP, if available on your local network. For simplicity,
this is what we will use here. To easily find the guests, they can be
configured to advertise their host names via mDNS.
@subsection Configuring the QEMU bridge helper script
QEMU comes with a helper program to conveniently make use of a network
bridge interface as an unprivileged user @pxref{Network options,,, QEMU,
QEMU Documentation}. The binary must be made setuid root for proper
operation; this can be achieved by adding it to the
@code{setuid-programs} field of your (host) @code{operating-system}
definition, as shown below:
@example lisp
(setuid-programs
(cons (file-append qemu "/libexec/qemu-bridge-helper")
%setuid-programs))
@end example
The file @file{/etc/qemu/bridge.conf} must also be made to allow the
bridge interface, as the default is to deny all. Add the following to
your list of services to do so:
@example lisp
(extra-special-file "/etc/qemu/host.conf" "allow br0\n")
@end example
@subsection Invoking QEMU with the right command line options
When invoking QEMU, the following options should be provided so that the
network bridge is used, after having selected a unique MAC address for
the guest.
@quotation Important
By default, a single MAC address is used for all guests, unless
provided. Failing to provided different MAC addresses to each virtual
machine making use of the bridge would cause networking issues.
@end quotation
@example sh
$ qemu-system-x86_64 [...] \
-device virtio-net-pci,netdev=user0,mac=XX:XX:XX:XX:XX:XX \
-netdev bridge,id=user0,br=br0 \
[...]
@end example
To generate MAC addresses that have the QEMU registered prefix, the
following snippet can be employed:
@example sh
mac_address="52:54:00:$(dd if=/dev/urandom bs=512 count=1 2>/dev/null \
| md5sum \
| sed -E 's/^(..)(..)(..).*$/\1:\2:\3/')"
echo $mac_address
@end example
@subsection Networking issues caused by Docker
If you use Docker on your machine, you may experience connectivity
issues when attempting to use a network bridge, which are caused by
Docker also relying on network bridges and configuring its own routing
rules. The solution is add the following @code{iptables} snippet to
your @code{operating-system} declaration:
@example lisp
(service iptables-service-type
(iptables-configuration
(ipv4-rules (plain-file "iptables.rules" "\
*filter
:INPUT ACCEPT [0:0]
:FORWARD DROP [0:0]
:OUTPUT ACCEPT [0:0]
-A FORWARD -i br0 -o br0 -j ACCEPT
COMMIT
"))
@end example
@node Routed network for libvirt
@section Routed network for libvirt
@cindex Virtual network bridge interface
@cindex networking, virtual bridge
@cindex libvirt, virtual network bridge
If the machine hosting your virtual machines is connected wirelessly to
the network, you won't be able to use a true network bridge as explained
in the preceding section (@pxref{Network bridge for QEMU}). In this
case, the next best option is to use a @emph{virtual} bridge with static
routing and to configure a libvirt-powered virtual machine to use it
(via the @command{virt-manager} GUI for example). This is similar to
the default mode of operation of QEMU/libvirt, except that instead of
using @abbr{NAT, Network Address Translation}, it relies on static
routes to join the @abbr{VM, virtual machine} IP address to the
@abbr{LAN, local area network}. This provides two-way connectivity to
and from the virtual machine, which is needed for exposing services
hosted on the virtual machine.
@subsection Creating a virtual network bridge
A virtual network bridge consists of a few components/configurations,
such as a @abbr{TUN, network tunnel} interface, DHCP server (dnsmasq)
and firewall rules (iptables). The @command{virsh} command, provided by
the @code{libvirt} package, makes it very easy to create a virtual
bridge. You first need to choose a network subnet for your virtual
bridge; if your home LAN is in the @samp{192.168.1.0/24} network, you
could opt to use e.g.@: @samp{192.168.2.0/24}. Define an XML file,
e.g.@: @file{/tmp/virbr0.xml}, containing the following:
@example
<network>
<name>virbr0</name>
<bridge name="virbr0" />
<forward mode="route"/>
<ip address="192.168.2.0" netmask="255.255.255.0">
<dhcp>
<range start="192.168.2.1" end="192.168.2.254"/>
</dhcp>
</ip>
</network>
@end example
Then create and configure the interface using the @command{virsh}
command, as root:
@example
virsh net-define /tmp/virbr0.xml
virsh net-autostart virbr0
virsh net-start virbr0
@end example
The @samp{virbr0} interface should now be visible e.g.@: via the
@samp{ip address} command. It will be automatically started every time
your libvirt virtual machine is started.
@subsection Configuring the static routes for your virtual bridge
If you configured your virtual machine to use your newly created
@samp{virbr0} virtual bridge interface, it should already receive an IP
via DHCP such as @samp{192.168.2.15} and be reachable from the server
hosting it, e.g.@: via @samp{ping 192.168.2.15}. There's one last
configuration needed so that the VM can reach the external network:
adding static routes to the network's router.
In this example, the LAN network is @samp{192.168.1.0/24} and the router
configuration web page may be accessible via e.g.@: the
@url{http://192.168.1.1} page. On a router running the
@url{https://librecmc.org/, libreCMC} firmware, you would navigate to
the @clicksequence{Network @click{} Static Routes} page
(@url{https://192.168.1.1/cgi-bin/luci/admin/network/routes}), and you
would add a new entry to the @samp{Static IPv4 Routes} with the
following information:
@table @samp
@item Interface
lan
@item Target
192.168.2.0
@item IPv4-Netmask
255.255.255.0
@item IPv4-Gateway
@var{server-ip}
@item Route type
unicast
@end table
where @var{server-ip} is the IP address of the machine hosting the VMs,
which should be static.
After saving/applying this new static route, external connectivity
should work from within your VM; you can e.g.@: run @samp{ping gnu.org}
to verify that it functions correctly.
@c ********************************************************************* @c *********************************************************************
@node Advanced package management @node Advanced package management

18
doc/guix.texi
View file

@ -35174,17 +35174,24 @@ services.
@subsubheading Libvirt daemon @subsubheading Libvirt daemon
@code{libvirtd} is the server side daemon component of the libvirt @code{libvirtd} is the server side daemon component of the libvirt
virtualization management system. This daemon runs on host servers virtualization management system. This daemon runs on host servers and
and performs required management tasks for virtualized guests. performs required management tasks for virtualized guests. To connect
to the libvirt daemon as an unprivileged user, it must be added to the
@samp{libvirt} group, as shown in the example below.
@defvar libvirt-service-type @defvar libvirt-service-type
This is the type of the @uref{https://libvirt.org, libvirt daemon}. This is the type of the @uref{https://libvirt.org, libvirt daemon}.
Its value must be a @code{libvirt-configuration}. Its value must be a @code{libvirt-configuration}.
@lisp @lisp
(users (cons (user-account
(name "user")
(group "users")
(supplementary-groups '("libvirt"
"audio" "video" "wheel")))
%base-user-accounts))
(service libvirt-service-type (service libvirt-service-type
(libvirt-configuration (libvirt-configuration
(unix-sock-group "libvirt")
(tls-port "16555"))) (tls-port "16555")))
@end lisp @end lisp
@end defvar @end defvar
@ -35266,7 +35273,7 @@ UNIX domain socket group ownership. This can be used to allow a
'trusted' set of users access to management capabilities without 'trusted' set of users access to management capabilities without
becoming root. becoming root.
Defaults to @samp{"root"}. Defaults to @samp{"libvirt"}.
@end deftypevr @end deftypevr
@ -39704,6 +39711,9 @@ This must be a list of strings where each string has the form
"TMPDIR=/tmp/dockerd") "TMPDIR=/tmp/dockerd")
@end lisp @end lisp
@item @code{config-file} (type: maybe-file-like)
JSON configuration file pass to @command{dockerd}.
@end table @end table
@end deftp @end deftp

6
gnu/local.mk
View file

@ -306,6 +306,7 @@ GNU_SYSTEM_MODULES = \
%D%/packages/gobby.scm \ %D%/packages/gobby.scm \
%D%/packages/golang.scm \ %D%/packages/golang.scm \
%D%/packages/golang-check.scm \ %D%/packages/golang-check.scm \
%D%/packages/golang-web.scm \
%D%/packages/gperf.scm \ %D%/packages/gperf.scm \
%D%/packages/gpodder.scm \ %D%/packages/gpodder.scm \
%D%/packages/gps.scm \ %D%/packages/gps.scm \
@ -1114,7 +1115,6 @@ dist_patch_DATA = \
%D%/packages/patches/emacs-git-email-missing-parens.patch \ %D%/packages/patches/emacs-git-email-missing-parens.patch \
%D%/packages/patches/emacs-fix-scheme-indent-function.patch \ %D%/packages/patches/emacs-fix-scheme-indent-function.patch \
%D%/packages/patches/emacs-json-reformat-fix-tests.patch \ %D%/packages/patches/emacs-json-reformat-fix-tests.patch \
%D%/packages/patches/emacs-haskell-mode-no-redefine-builtin.patch \
%D%/packages/patches/emacs-helpful-fix-tests.patch \ %D%/packages/patches/emacs-helpful-fix-tests.patch \
%D%/packages/patches/emacs-highlight-stages-add-gexp.patch \ %D%/packages/patches/emacs-highlight-stages-add-gexp.patch \
%D%/packages/patches/emacs-lispy-fix-thread-last-test.patch \ %D%/packages/patches/emacs-lispy-fix-thread-last-test.patch \
@ -1720,6 +1720,7 @@ dist_patch_DATA = \
%D%/packages/patches/online-judge-tools.patch \ %D%/packages/patches/online-judge-tools.patch \
%D%/packages/patches/onnx-optimizer-system-library.patch \ %D%/packages/patches/onnx-optimizer-system-library.patch \
%D%/packages/patches/onnx-use-system-googletest.patch \ %D%/packages/patches/onnx-use-system-googletest.patch \
%D%/packages/patches/onnx-1.13.1-use-system-googletest.patch \
%D%/packages/patches/onnx-shared-libraries.patch \ %D%/packages/patches/onnx-shared-libraries.patch \
%D%/packages/patches/onnx-skip-model-downloads.patch \ %D%/packages/patches/onnx-skip-model-downloads.patch \
%D%/packages/patches/openbios-aarch64-riscv64-support.patch \ %D%/packages/patches/openbios-aarch64-riscv64-support.patch \
@ -1776,6 +1777,7 @@ dist_patch_DATA = \
%D%/packages/patches/python-random2-getrandbits-test.patch \ %D%/packages/patches/python-random2-getrandbits-test.patch \
%D%/packages/patches/python-poppler-qt5-fix-build.patch \ %D%/packages/patches/python-poppler-qt5-fix-build.patch \
%D%/packages/patches/python-pypdf-annotate-tests-appropriately.patch \ %D%/packages/patches/python-pypdf-annotate-tests-appropriately.patch \
%D%/packages/patches/python-pytorch2-system-libraries.patch \
%D%/packages/patches/python-sip-include-dirs.patch \ %D%/packages/patches/python-sip-include-dirs.patch \
%D%/packages/patches/python-sgmllib3k-assertions.patch \ %D%/packages/patches/python-sgmllib3k-assertions.patch \
%D%/packages/patches/python-sphinx-prompt-docutils-0.19.patch \ %D%/packages/patches/python-sphinx-prompt-docutils-0.19.patch \
@ -2059,6 +2061,7 @@ dist_patch_DATA = \
%D%/packages/patches/tofi-32bit-compat.patch \ %D%/packages/patches/tofi-32bit-compat.patch \
%D%/packages/patches/tpetra-remove-duplicate-using.patch \ %D%/packages/patches/tpetra-remove-duplicate-using.patch \
%D%/packages/patches/transcode-ffmpeg.patch \ %D%/packages/patches/transcode-ffmpeg.patch \
%D%/packages/patches/transmission-4.0.5-fix-build.patch \
%D%/packages/patches/trytond-add-egg-modules-to-path.patch \ %D%/packages/patches/trytond-add-egg-modules-to-path.patch \
%D%/packages/patches/trytond-add-guix_trytond_path.patch \ %D%/packages/patches/trytond-add-guix_trytond_path.patch \
%D%/packages/patches/ttf2eot-cstddef.patch \ %D%/packages/patches/ttf2eot-cstddef.patch \
@ -2160,6 +2163,7 @@ dist_patch_DATA = \
%D%/packages/patches/xgboost-use-system-dmlc-core.patch \ %D%/packages/patches/xgboost-use-system-dmlc-core.patch \
%D%/packages/patches/xmonad-dynamic-linking.patch \ %D%/packages/patches/xmonad-dynamic-linking.patch \
%D%/packages/patches/xnnpack-system-libraries.patch \ %D%/packages/patches/xnnpack-system-libraries.patch \
%D%/packages/patches/xnnpack-for-torch2-system-libraries.patch \
%D%/packages/patches/xplanet-1.3.1-cxx11-eof.patch \ %D%/packages/patches/xplanet-1.3.1-cxx11-eof.patch \
%D%/packages/patches/xplanet-1.3.1-libdisplay_DisplayOutput.cpp.patch \ %D%/packages/patches/xplanet-1.3.1-libdisplay_DisplayOutput.cpp.patch \
%D%/packages/patches/xplanet-1.3.1-libimage_gif.c.patch \ %D%/packages/patches/xplanet-1.3.1-libimage_gif.c.patch \

1
gnu/packages/backup.scm
View file

@ -71,6 +71,7 @@
#:use-module (gnu packages glib) #:use-module (gnu packages glib)
#:use-module (gnu packages gnupg) #:use-module (gnu packages gnupg)
#:use-module (gnu packages golang) #:use-module (gnu packages golang)
#:use-module (gnu packages golang-web)
#:use-module (gnu packages gperf) #:use-module (gnu packages gperf)
#:use-module (gnu packages gtk) #:use-module (gnu packages gtk)
#:use-module (gnu packages guile) #:use-module (gnu packages guile)

136
gnu/packages/bioconductor.scm
View file

@ -7462,6 +7462,37 @@ chromosome region or transcript models of lincRNA genes.")
;; No version specified ;; No version specified
(license license:lgpl3+))) (license license:lgpl3+)))
(define-public r-epidish
(package
(name "r-epidish")
(version "2.18.0")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "EpiDISH" version))
(sha256
(base32 "170ym3y6gd1kxghz2g5ynvgi1wrxx87b568cjcvzidpqkrkg87s6"))))
(properties `((upstream-name . "EpiDISH")))
(build-system r-build-system)
(propagated-inputs (list r-e1071
r-locfdr
r-mass
r-matrix
r-matrixstats
r-quadprog
r-stringr))
(native-inputs (list r-knitr))
(home-page "https://github.com/sjczheng/EpiDISH")
(synopsis "Epigenetic dissection of intra-sample-heterogeneity")
(description
"@code{EpiDISH} is a R package to infer the proportions of a priori known
cell-types present in a sample representing a mixture of such cell-types.
Right now, the package can be used on DNAm data of whole blood, generic
epithelial tissue and breast tissue. Besides, the package provides a function
that allows the identification of differentially methylated cell-types and
their directionality of change in Epigenome-Wide Association Studies.")
(license license:gpl2)))
(define-public r-fastseg (define-public r-fastseg
(package (package
(name "r-fastseg") (name "r-fastseg")
@ -7611,13 +7642,13 @@ genomic intervals. In addition, it can use BAM or BigWig files as input.")
(define-public r-genomeinfodb (define-public r-genomeinfodb
(package (package
(name "r-genomeinfodb") (name "r-genomeinfodb")
(version "1.38.2") (version "1.38.5")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (bioconductor-uri "GenomeInfoDb" version)) (uri (bioconductor-uri "GenomeInfoDb" version))
(sha256 (sha256
(base32 (base32
"07xncxak8yjy04m7zh779jfjbsdmdbk8a5xs4rbajx4zp3hm4wb7")))) "17w5zrvpk2x0sc55xfkbn9krphg4aszmvwmj1qfsf1bdrazfpwic"))))
(properties (properties
`((upstream-name . "GenomeInfoDb"))) `((upstream-name . "GenomeInfoDb")))
(build-system r-build-system) (build-system r-build-system)
@ -10314,6 +10345,49 @@ includes methods formerly found in the scran package, and the new fast and
comprehensive scDblFinder method.") comprehensive scDblFinder method.")
(license license:gpl3))) (license license:gpl3)))
;; This is a CRAN package, but it depends on packages from Bioconductor.
(define-public r-scgate
(package
(name "r-scgate")
(version "1.6.0")
(source
(origin
(method url-fetch)
(uri (cran-uri "scGate" version))
(sha256
(base32 "0h12d36zjc6fvxbhkxrzbpvw49z9fgyn1jc941q70ajw1yqi2hhh"))))
(properties `((upstream-name . "scGate")))
(build-system r-build-system)
(propagated-inputs
(list r-biocparallel
r-dplyr
r-ggplot2
r-ggridges
r-patchwork
r-reshape2
r-seurat
r-ucell))
(native-inputs (list r-knitr))
(home-page "https://github.com/carmonalab/scGate")
(synopsis
"Marker-based cell type purification for single-cell sequencing data")
(description
"This package provides a method to purify a cell type or cell population
of interest from heterogeneous datasets. scGate package automatizes
marker-based purification of specific cell populations, without requiring
training data or reference gene expression profiles. scGate takes as input a
gene expression matrix stored in a Seurat object and a @acronym{GM, gating
model}, consisting of a set of marker genes that define the cell population of
interest. It evaluates the strength of signature marker expression in each
cell using the rank-based method UCell, and then performs @acronym{kNN,
k-nearest neighbor} smoothing by calculating the mean UCell score across
neighboring cells. kNN-smoothing aims at compensating for the large degree of
sparsity in scRNAseq data. Finally, a universal threshold over kNN-smoothed
signature scores is applied in binary decision trees generated from the
user-provided gating model, to annotate cells as either “pure” or “impure”,
with respect to the cell population of interest.")
(license license:gpl3)))
;; This is a CRAN package, but it depends on packages from Bioconductor. ;; This is a CRAN package, but it depends on packages from Bioconductor.
(define-public r-scistreer (define-public r-scistreer
(package (package
@ -10793,6 +10867,44 @@ identifier translation via the GDC API.")
"This package implements widgets to provide user interfaces.") "This package implements widgets to provide user interfaces.")
(license license:artistic2.0))) (license license:artistic2.0)))
(define-public r-toast
(package
(name "r-toast")
(version "1.16.0")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "TOAST" version))
(sha256
(base32 "00wpgs2zdrgrh9xmp6m5h9xgv85mhdi36qvwg9gwbz9i7cfabmy1"))))
(properties `((upstream-name . "TOAST")))
(build-system r-build-system)
(propagated-inputs (list r-corpcor
r-doparallel
r-epidish
r-ggally
r-ggplot2
r-limma
r-nnls
r-quadprog
r-summarizedexperiment
r-tidyr))
(native-inputs (list r-knitr))
(home-page "https://bioconductor.org/packages/TOAST")
(synopsis "Tools for the analysis of heterogeneous tissues")
(description
"This package is devoted to analyzing high-throughput data (e.g. gene
expression microarray, DNA methylation microarray, RNA-seq) from complex
tissues. Current functionalities include
@enumerate
@item detect cell-type specific or cross-cell type differential signals
@item tree-based differential analysis
@item improve variable selection in reference-free deconvolution
@item partial reference-free deconvolution with prior knowledge.
@end enumerate")
(license license:gpl2)))
;; TODO: check javascript ;; TODO: check javascript
(define-public r-trackviewer (define-public r-trackviewer
(package (package
@ -13085,14 +13197,14 @@ samples.")
(define-public r-biocneighbors (define-public r-biocneighbors
(package (package
(name "r-biocneighbors") (name "r-biocneighbors")
(version "1.20.0") (version "1.20.1")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (bioconductor-uri "BiocNeighbors" version)) (uri (bioconductor-uri "BiocNeighbors" version))
(sha256 (sha256
(base32 (base32
"0a5wg099fgwjbzd6r3mr4l02rcmjqlkdcz1w97qzwx1mir41fmas")))) "0w7hd6w0lmj1jaaq9zd5gwnnpkzcr0byqm5q584wjg4xgvsb981j"))))
(properties `((upstream-name . "BiocNeighbors"))) (properties `((upstream-name . "BiocNeighbors")))
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
@ -13242,14 +13354,14 @@ data.")
(define-public r-metapod (define-public r-metapod
(package (package
(name "r-metapod") (name "r-metapod")
(version "1.10.0") (version "1.10.1")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (bioconductor-uri "metapod" version)) (uri (bioconductor-uri "metapod" version))
(sha256 (sha256
(base32 (base32
"1nhxwj6gwc3hqji7icp1q6n0hj1gnvv1y5zhd2myhm7kj3sic2qc")))) "05cy3xvj78n2p9l2pxfys7aczr51gm2ywprn4qmzr7ppb6rq5f66"))))
(properties `((upstream-name . "metapod"))) (properties `((upstream-name . "metapod")))
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
@ -13728,14 +13840,14 @@ multiplication and calculation of row/column sums or means.")
(define-public r-batchelor (define-public r-batchelor
(package (package
(name "r-batchelor") (name "r-batchelor")
(version "1.18.0") (version "1.18.1")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (bioconductor-uri "batchelor" version)) (uri (bioconductor-uri "batchelor" version))
(sha256 (sha256
(base32 (base32
"1d5zik3bhz26ky2kpxd9kdzs9ff696qqys5gl8qwmmp8qym520l2")))) "1z4ddkdd3mzqg0c6l94qmrdwrm7427k5xiwzgkzx43gh1j4911d5"))))
(properties `((upstream-name . "batchelor"))) (properties `((upstream-name . "batchelor")))
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
@ -15821,14 +15933,14 @@ type and symbol colors.")
(define-public r-genomicscores (define-public r-genomicscores
(package (package
(name "r-genomicscores") (name "r-genomicscores")
(version "2.14.2") (version "2.14.3")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (bioconductor-uri "GenomicScores" version)) (uri (bioconductor-uri "GenomicScores" version))
(sha256 (sha256
(base32 (base32
"1wjq6lb2x7vazlr838hlh1ar5pis2bgzya9lm8ki30d1m0hpk66k")))) "0rhyfbm5whz4jygar9cqcrfy92h1lyam5wd8d9svhh80f15v53m9"))))
(properties `((upstream-name . "GenomicScores"))) (properties `((upstream-name . "GenomicScores")))
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
@ -21332,13 +21444,13 @@ variable and significantly correlated genes.")
(define-public r-sparsearray (define-public r-sparsearray
(package (package
(name "r-sparsearray") (name "r-sparsearray")
(version "1.2.2") (version "1.2.3")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (bioconductor-uri "SparseArray" version)) (uri (bioconductor-uri "SparseArray" version))
(sha256 (sha256
(base32 "1kjs3v2ycpcc0plr88af1661ngmclmalkiy6am7i4m75cpa3889p")))) (base32 "19cy1nmmi65fxh012ymgp1kg112yl1m0khcs4y034p5iwlfv7fp6"))))
(properties `((upstream-name . "SparseArray"))) (properties `((upstream-name . "SparseArray")))
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (list r-biocgenerics (propagated-inputs (list r-biocgenerics

232
gnu/packages/bioinformatics.scm
View file

@ -617,6 +617,50 @@ Compared to cellSNP, this package is more efficient with higher speed and less
memory usage.") memory usage.")
(license license:asl2.0)))) (license license:asl2.0))))
(define-public cpat
(package
(name "cpat")
(version "3.0.4")
(source (origin
(method url-fetch)
(uri (pypi-uri "CPAT" version))
(sha256
(base32
"0dfrwwbhv1n4nh2a903d1qfb30fgxgya89sa70aci3wzf8h2z0vd"))
(modules '((guix build utils)))
(snippet
'(for-each delete-file-recursively
(list ".eggs"
"lib/__pycache__/"
"lib/cpmodule/__pycache__/")))))
(build-system pyproject-build-system)
(arguments
(list
#:phases
'(modify-phases %standard-phases
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(with-directory-excursion "test"
;; There is no test4.fa
(substitute* "test.sh"
((".*-g test4.fa.*") ""))
(invoke "bash" "test.sh"))))))))
(propagated-inputs
(list python-numpy python-pysam))
(inputs
(list r-minimal))
(home-page "https://wlcb.oit.uci.edu/cpat/")
(synopsis "Alignment-free distinction between coding and noncoding RNA")
(description
"CPAT is a method to distinguish coding and noncoding RNA by using a
logistic regression model based on four pure sequence-based, linguistic
features: ORF size, ORF coverage, Ficket TESTCODE, and Hexamer usage bias.
Linguistic features based method does not require other genomes or protein
databases to perform alignment and is more robust. Because it is
alignment-free, it runs much faster and also easier to use.")
(license license:gpl2+)))
(define-public pbcopper (define-public pbcopper
(package (package
(name "pbcopper") (name "pbcopper")
@ -1070,6 +1114,42 @@ of single-cell data using Seurat, RcppML nmf, SingleCellExperiments and
similar.") similar.")
(license license:gpl2+)))) (license license:gpl2+))))
(define-public r-stacas
(package
(name "r-stacas")
(version "2.2.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/carmonalab/STACAS")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "13i0h5i6vlbrb8ndq9gr81560z9d74b2c7m3rjfzls01irjza9hm"))))
(properties `((upstream-name . "STACAS")))
(build-system r-build-system)
(propagated-inputs
(list r-biocneighbors
r-biocparallel
r-ggplot2
r-ggridges
r-pbapply
r-r-utils
r-seurat))
(home-page "https://github.com/carmonalab/STACAS")
(synopsis "Sub-type anchoring correction for alignment in Seurat")
(description
"This package implements methods for batch correction and integration of
scRNA-seq datasets, based on the Seurat anchor-based integration framework.
In particular, STACAS is optimized for the integration of heterogenous
datasets with only limited overlap between cell sub-types (e.g. TIL sets of
CD8 from tumor with CD8/CD4 T cells from lymphnode), for which the default
Seurat alignment methods would tend to over-correct biological differences.
The 2.0 version of the package allows the users to incorporate explicit
information about cell-types in order to assist the integration process.")
(license license:gpl3)))
(define-public r-stringendo (define-public r-stringendo
(let ((commit "15594b1bba11048a812874bafec0eea1dcc8618a") (let ((commit "15594b1bba11048a812874bafec0eea1dcc8618a")
(revision "1")) (revision "1"))
@ -1156,6 +1236,32 @@ shape. This package provides an @code{htmlwidget} for building streamgraph
visualizations.") visualizations.")
(license license:expat)))) (license license:expat))))
(define-public r-wasabi
(let ((commit "8c33cabde8d18c2657cd6e38e7cb834f87cf9846")
(revision "1"))
(package
(name "r-wasabi")
(version (git-version "1.0.1" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/COMBINE-lab/wasabi")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "0rpdj6n4cnx8n2zl60dzgl638474sg49dknwi9x3qb4g56dpphfa"))))
(properties `((upstream-name . "wasabi")))
(build-system r-build-system)
(propagated-inputs (list r-data-table r-rhdf5 r-rjson))
(home-page "https://github.com/COMBINE-lab/wasabi")
(synopsis "Use Sailfish and Salmon with Sleuth")
(description
"This package converts the output of the Sailfish and Salmon RNA-seq
quantification tools so that it can be used with the Sleuth differential
analysis package.")
(license license:bsd-3))))
(define-public pbbam (define-public pbbam
(package (package
(name "pbbam") (name "pbbam")
@ -10313,6 +10419,51 @@ data. This package includes panel editing or renaming for FCS files,
bead-based normalization and debarcoding.") bead-based normalization and debarcoding.")
(license license:gpl3)))) (license license:gpl3))))
(define-public r-projectils
(let ((commit "cc73b97471b4b6eea11ce779b5c4a7dc5c3e1709")
(revision "1"))
(package
(name "r-projectils")
(version (git-version "3.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/carmonalab/ProjecTILs")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "0dpzvbhhb9andnj7angpj32cgkwd6rs6qgpl6i21pqzcn6vqqhqw"))))
(properties `((upstream-name . "ProjecTILs")))
(build-system r-build-system)
(propagated-inputs
(list r-biocneighbors
r-biocparallel
r-dplyr
r-ggplot2
r-matrix
r-patchwork
r-pheatmap
r-pracma
r-purrr
r-rcolorbrewer
r-reshape2
r-scales
r-scgate
r-seurat
r-seuratobject
r-stacas
r-ucell
r-umap
r-uwot))
(home-page "https://github.com/carmonalab/ProjecTILs")
(synopsis "Reference-based analysis of scRNA-seq data")
(description
"This package implements methods to project single-cell RNA-seq data
onto a reference atlas, enabling interpretation of unknown cell transcriptomic
states in the the context of known, reference states.")
(license license:gpl3))))
(define-public r-presto (define-public r-presto
(let ((commit "052085db9c88aa70a28d11cc58ebc807999bf0ad") (let ((commit "052085db9c88aa70a28d11cc58ebc807999bf0ad")
(revision "0")) (revision "0"))
@ -10527,6 +10678,43 @@ analysis of cell types, subtypes, transcriptional gradients,cell-cycle
variation, gene modules and their regulatory models and more.") variation, gene modules and their regulatory models and more.")
(license license:expat)))) (license license:expat))))
(define-public r-sleuth
(package
(name "r-sleuth")
(version "0.30.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/pachterlab/sleuth")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "09xgc7r6iisjkk0c0wn0q56zy0aph386kphwixfzq4422y7vlqci"))))
(properties `((upstream-name . "sleuth")))
(build-system r-build-system)
(propagated-inputs (list r-aggregation
r-data-table
r-dplyr
r-ggplot2
r-lazyeval
r-matrixstats
r-pheatmap
r-reshape2
r-rhdf5
r-shiny
r-tidyr))
(native-inputs (list r-knitr))
(home-page "https://github.com/pachterlab/sleuth")
(synopsis "Tools for investigating RNA-Seq")
(description
"Sleuth is a program for differential analysis of RNA-Seq data.
It makes use of quantification uncertainty estimates obtained via Kallisto for
accurate differential analysis of isoforms or genes, allows testing in the
context of experiments with complex designs, and supports interactive
exploratory data analysis via sleuth live.")
(license license:gpl3)))
(define-public r-snapatac (define-public r-snapatac
(package (package
(name "r-snapatac") (name "r-snapatac")
@ -17996,12 +18184,40 @@ The tool enables the de novo search for new structural elements and
facilitates comparative analysis of known RNA families.") facilitates comparative analysis of known RNA families.")
(license license:bsd-3))) (license license:bsd-3)))
(define-public r-databaselinke-r
(let ((commit "cf3d6cc3d36f2e1c9a557390232e9a8ed5abb7fd")
(revision "1"))
(package
(name "r-databaselinke-r")
(version (git-version "1.7.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/vertesy/DatabaseLinke.R")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "0hk76sb3w1v8a7c1knpc572ypsbgqlrv0p49c9y55a0dr12n16s1"))))
(properties `((upstream-name . "DatabaseLinke.R")))
(build-system r-build-system)
(propagated-inputs (list r-readwriter))
(home-page "https://github.com/vertesy/DatabaseLinke.R")
(synopsis
"Parse links to databases from your list of gene symbols")
(description
"This package provides a set of functions to parse and open (search
query) links to genomics related and other websites for R. Useful when you
want to explore e.g.: the function of a set of differentially expressed
genes.")
(license license:gpl3))))
(define-public r-seurat-utils (define-public r-seurat-utils
(let ((commit "0b6f5b548a49148cfbeaa654e8a618c0a020afa5") (let ((commit "c0374cc9e25ce391ba8013fda0f8c7babbb9201d")
(revision "1")) (revision "1"))
(package (package
(name "r-seurat-utils") (name "r-seurat-utils")
(version (git-version "1.6.5" revision commit)) (version (git-version "2.5.0" revision commit))
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
@ -18010,12 +18226,15 @@ facilitates comparative analysis of known RNA families.")
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"1mn64h375mkj6x4ix5493z32gqg96yc507j5jr0lx9g5wk1bf762")))) "15l86b43q245gzz7gsr5rhs4sir74lc14d64yqxfqcb0zrb2bzzd"))))
(properties `((upstream-name . "Seurat.utils"))) (properties `((upstream-name . "Seurat.utils")))
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (list r-codeandroll2 (propagated-inputs (list r-codeandroll2
r-cowplot r-cowplot
r-databaselinke-r
r-dplyr r-dplyr
r-enhancedvolcano
r-foreach
r-ggcorrplot r-ggcorrplot
r-ggexpress r-ggexpress
r-ggplot2 r-ggplot2
@ -18023,15 +18242,21 @@ facilitates comparative analysis of known RNA families.")
r-ggrepel r-ggrepel
r-hgnchelper r-hgnchelper
r-htmlwidgets r-htmlwidgets
r-job
r-magrittr
r-markdownhelpers r-markdownhelpers
r-markdownreports r-markdownreports
r-matrix r-matrix
r-matrixstats r-matrixstats
r-pheatmap
r-plotly
r-princurve r-princurve
r-qs
r-r-utils r-r-utils
r-readr r-readr
r-readwriter r-readwriter
r-reshape2 r-reshape2
r-rstudioapi
r-scales r-scales
r-seurat r-seurat
r-soupx r-soupx
@ -18040,6 +18265,7 @@ facilitates comparative analysis of known RNA families.")
r-stringr r-stringr
r-tibble r-tibble
r-tictoc r-tictoc
r-tidyverse
r-vroom)) r-vroom))
(home-page "https://github.com/vertesy/Seurat.utils") (home-page "https://github.com/vertesy/Seurat.utils")
(synopsis "Collection of utility functions for Seurat") (synopsis "Collection of utility functions for Seurat")

11
gnu/packages/bittorrent.scm
View file

@ -87,15 +87,16 @@
(define-public transmission (define-public transmission
(package (package
(name "transmission") (name "transmission")
(version "4.0.4") (version "4.0.5")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://github.com/transmission/transmission" (uri (string-append "https://github.com/transmission/transmission"
"/releases/download/" version "/transmission-" "/releases/download/" version "/transmission-"
version ".tar.xz")) version ".tar.xz"))
(patches (search-patches "transmission-4.0.5-fix-build.patch"))
(sha256 (sha256
(base32 (base32
"19nm7f4x3zq610da5fl63vpycj4kv07np6ldm8czpgyziwqv9xqm")))) "0mv3ds3bbp1fbmdlrjinmzvk46acpafydirh7h2014j7988zys7x"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(outputs '("out" ; library and command-line interface (outputs '("out" ; library and command-line interface
"gui")) ; graphical user interface "gui")) ; graphical user interface
@ -253,8 +254,8 @@ XML-RPC over SCGI.")
(license l:gpl2+))) (license l:gpl2+)))
(define-public tremc (define-public tremc
(let ((commit "6c15e3f5637c8f3641473328bd8c5b0cc122d930") (let ((commit "d8deaa5ac25bb45a2ca3a930309d6ecc74836a54")
(revision "0")) (revision "1"))
(package (package
(name "tremc") (name "tremc")
(version (git-version "0.9.3" revision commit)) (version (git-version "0.9.3" revision commit))
@ -267,7 +268,7 @@ XML-RPC over SCGI.")
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"1anlqzbwgmhrxlh20pfzf4iyw5l2w227h95rq6xf29ai7vddr82k")))) "08kpqmgisja98918f2hlmdrld5662dqlkssp0pqlki38l6fvbj7r"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:tests? #f ; no test suite `(#:tests? #f ; no test suite

8
gnu/packages/check.scm
View file

@ -39,7 +39,7 @@
;;; Copyright © 2021 Hugo Lecomte <hugo.lecomte@inria.fr> ;;; Copyright © 2021 Hugo Lecomte <hugo.lecomte@inria.fr>
;;; Copyright © 2022 Maxime Devos <maximedevos@telenet.be> ;;; Copyright © 2022 Maxime Devos <maximedevos@telenet.be>
;;; Copyright © 2022, 2023 David Elsing <david.elsing@posteo.net> ;;; Copyright © 2022, 2023 David Elsing <david.elsing@posteo.net>
;;; Copyright © 2022 Sharlatan Hellseher <sharlatanus@gmail.com> ;;; Copyright © 2022, 2023 Sharlatan Hellseher <sharlatanus@gmail.com>
;;; Copyright © 2022 jgart <jgart@dismail.de> ;;; Copyright © 2022 jgart <jgart@dismail.de>
;;; Copyright © 2023 Luis Felipe López Acevedo <luis.felipe.la@protonmail.com> ;;; Copyright © 2023 Luis Felipe López Acevedo <luis.felipe.la@protonmail.com>
;;; Copyright © 2023 Timo Wilken <guix@twilken.net> ;;; Copyright © 2023 Timo Wilken <guix@twilken.net>
@ -1069,7 +1069,7 @@ but it works for any C/C++ project.")
(define-public actionlint (define-public actionlint
(package (package
(name "actionlint") (name "actionlint")
(version "1.6.23") (version "1.6.26")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
@ -1078,7 +1078,7 @@ but it works for any C/C++ project.")
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"07is4920a40zrl7mfldg0az2pisi7f6dv4vh3ijn3nzb4i7fqbni")))) "0j4ni2cryvqn3qim1r6q6sargh0wig6l4vjjwc40cgqvvkrdla04"))))
(build-system go-build-system) (build-system go-build-system)
(arguments (arguments
'(#:import-path "github.com/rhysd/actionlint/cmd/actionlint" '(#:import-path "github.com/rhysd/actionlint/cmd/actionlint"
@ -1087,7 +1087,7 @@ but it works for any C/C++ project.")
(inputs (list go-github-com-fatih-color (inputs (list go-github-com-fatih-color
go-github-com-mattn-go-colorable go-github-com-mattn-go-colorable
go-github-com-mattn-go-runewidth go-github-com-mattn-go-runewidth
go-github-com-robfig-cron-1.2 go-github-com-robfig-cron
go-golang.org-x-sync-errgroup go-golang.org-x-sync-errgroup
go-golang.org-x-sync-semaphore go-golang.org-x-sync-semaphore
go-gopkg-in-yaml-v3)) go-gopkg-in-yaml-v3))

1
gnu/packages/configuration-management.scm
View file

@ -21,6 +21,7 @@
#:use-module (guix build-system go) #:use-module (guix build-system go)
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module (gnu packages golang) #:use-module (gnu packages golang)
#:use-module (gnu packages golang-web)
#:use-module (gnu packages version-control) #:use-module (gnu packages version-control)
#:use-module (gnu packages textutils) #:use-module (gnu packages textutils)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses) #:prefix license:)

467
gnu/packages/cran.scm
View file

File diff suppressed because it is too large Load diff

5
gnu/packages/databases.scm
View file

@ -108,6 +108,7 @@
#:use-module (gnu packages gnupg) #:use-module (gnu packages gnupg)
#:use-module (gnu packages golang) #:use-module (gnu packages golang)
#:use-module (gnu packages golang-check) #:use-module (gnu packages golang-check)
#:use-module (gnu packages golang-web)
#:use-module (gnu packages gperf) #:use-module (gnu packages gperf)
#:use-module (gnu packages gtk) #:use-module (gnu packages gtk)
#:use-module (gnu packages guile) #:use-module (gnu packages guile)
@ -1600,14 +1601,14 @@ types are supported, as is encryption.")
(define-public emacs-rec-mode (define-public emacs-rec-mode
(package (package
(name "emacs-rec-mode") (name "emacs-rec-mode")
(version "1.9.1") (version "1.9.3")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://elpa.gnu.org/packages/" (uri (string-append "https://elpa.gnu.org/packages/"
"rec-mode-" version ".tar")) "rec-mode-" version ".tar"))
(sha256 (sha256
(base32 (base32
"0f60bw07l6kk1kkjjxsk30p6rxj9mpngaxqy8piyabnijfgjzd3s")) "15m0h84fcrcxpx67mc9any4ap2dcqysfjm1d2a7sx4clx8h3mgk0"))
(snippet #~(begin (delete-file "rec-mode.info"))))) (snippet #~(begin (delete-file "rec-mode.info")))))
(build-system emacs-build-system) (build-system emacs-build-system)
(arguments (arguments

4
gnu/packages/diffoscope.scm
View file

@ -74,7 +74,7 @@
(define-public diffoscope (define-public diffoscope
(package (package
(name "diffoscope") (name "diffoscope")
(version "252") (version "253")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -83,7 +83,7 @@
(commit version))) (commit version)))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "1hnsnqpr0v9siqja1wxm64wv0vjacg6j9ph9n4xsiaarpndj1b4r")))) (base32 "1nvq0lv246rah0ryb2qd20yf3gfy0iwfi3335rg9c3gpz0ha4wnb"))))
(build-system python-build-system) (build-system python-build-system)
(arguments (arguments
(list (list

25
gnu/packages/disk.scm
View file

@ -27,6 +27,7 @@
;;; Copyright © 2022 Disseminate Dissent <disseminatedissent@protonmail.com> ;;; Copyright © 2022 Disseminate Dissent <disseminatedissent@protonmail.com>
;;; Copyright © 2023 Timotej Lazar <timotej.lazar@araneo.si> ;;; Copyright © 2023 Timotej Lazar <timotej.lazar@araneo.si>
;;; Copyright © 2023 Morgan Smith <Morgan.J.Smith@outlook.com> ;;; Copyright © 2023 Morgan Smith <Morgan.J.Smith@outlook.com>
;;; Copyright © 2023 Zheng Junjie <873216071@qq.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -843,18 +844,18 @@ systems. Output format is completely customizable.")
(base32 "17l5vspfcgfbkqg7bakp3gql29yb05gzawm8n3im30ilzdr53678")))) (base32 "17l5vspfcgfbkqg7bakp3gql29yb05gzawm8n3im30ilzdr53678"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:tests? #f ; no check target (list #:tests? #f ; no check target
#:make-flags (list (string-append "CC=" ,(cc-for-target)) #:make-flags #~(list (string-append "CC=" #$(cc-for-target))
(string-append "PREFIX=" %output)) (string-append "PREFIX=" #$output))
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(delete 'configure) ; no configure script (delete 'configure) ; no configure script
(add-after 'build 'build-extra (add-after 'build 'build-extra
(lambda* (#:key make-flags #:allow-other-keys) (lambda* (#:key make-flags #:allow-other-keys)
(apply invoke "make" "extra" make-flags))) (apply invoke "make" "extra" make-flags)))
(add-after 'build 'install-extra (add-after 'build 'install-extra
(lambda* (#:key make-flags #:allow-other-keys) (lambda* (#:key make-flags #:allow-other-keys)
(apply invoke "make" "install-extra" make-flags)))))) (apply invoke "make" "install-extra" make-flags))))))
(inputs (inputs
(list eudev parted)) (list eudev parted))
(home-page "http://oss.digirati.com.br/f3/") (home-page "http://oss.digirati.com.br/f3/")

410
gnu/packages/emacs-xyz.scm
View file

File diff suppressed because it is too large Load diff

31
gnu/packages/file-systems.scm
View file

@ -11,6 +11,7 @@
;;; Copyright © 2021 Noisytoot <noisytoot@disroot.org> ;;; Copyright © 2021 Noisytoot <noisytoot@disroot.org>
;;; Copyright © 2021, 2023 Kaelyn Takata <kaelyn.alexi@protonmail.com> ;;; Copyright © 2021, 2023 Kaelyn Takata <kaelyn.alexi@protonmail.com>
;;; Copyright © 2022 Brian Cully <bjc@spork.org> ;;; Copyright © 2022 Brian Cully <bjc@spork.org>
;;; Copyright © 2023 Aaron Covrig <aaron.covrig.us@ieee.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -64,8 +65,10 @@
#:use-module (gnu packages docbook) #:use-module (gnu packages docbook)
#:use-module (gnu packages elf) #:use-module (gnu packages elf)
#:use-module (gnu packages flex) #:use-module (gnu packages flex)
#:use-module (gnu packages freedesktop)
#:use-module (gnu packages gawk) #:use-module (gnu packages gawk)
#:use-module (gnu packages glib) #:use-module (gnu packages glib)
#:use-module (gnu packages gnome)
#:use-module (gnu packages gnupg) #:use-module (gnu packages gnupg)
#:use-module (gnu packages golang) #:use-module (gnu packages golang)
#:use-module (gnu packages golang-check) #:use-module (gnu packages golang-check)
@ -81,6 +84,7 @@
#:use-module (gnu packages nfs) #:use-module (gnu packages nfs)
#:use-module (gnu packages onc-rpc) #:use-module (gnu packages onc-rpc)
#:use-module (gnu packages openldap) #:use-module (gnu packages openldap)
#:use-module (gnu packages password-utils)
#:use-module (gnu packages pcre) #:use-module (gnu packages pcre)
#:use-module (gnu packages perl) #:use-module (gnu packages perl)
#:use-module (gnu packages photo) #:use-module (gnu packages photo)
@ -91,6 +95,7 @@
#:use-module (gnu packages python-crypto) #:use-module (gnu packages python-crypto)
#:use-module (gnu packages python-web) #:use-module (gnu packages python-web)
#:use-module (gnu packages python-xyz) #:use-module (gnu packages python-xyz)
#:use-module (gnu packages qt)
#:use-module (gnu packages readline) #:use-module (gnu packages readline)
#:use-module (gnu packages rsync) #:use-module (gnu packages rsync)
#:use-module (gnu packages sssd) #:use-module (gnu packages sssd)
@ -2112,3 +2117,29 @@ filtering and ordering functionality.
@end itemize\n") @end itemize\n")
(license license:gpl3))) (license license:gpl3)))
(define-public sirikali
(package
(name "sirikali")
(version "1.5.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/mhogomchungu/sirikali")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1l52s8rxkfcxcx3s2fnsh08wy6hhjjvp7gcggdi84aqc4dq3rdnm"))))
(build-system cmake-build-system)
(arguments
'(#:tests? #f ;No tests
#:configure-flags '("-DQT5=true")))
(inputs (list xdg-utils libpwquality libgcrypt libsecret qtbase-5))
(native-inputs (list pkg-config))
(home-page "https://mhogomchungu.github.io/sirikali/")
(synopsis "Graphical program for managing encrypted file-systems")
(description "@dfn{SiriKali} is a Qt / C++ @acronym{GUI, graphical user
interface} application that manages ecryptfs, cryfs, encfs, gocryptfs, fscrypt
and securefs based encrypted folders.")
(license license:gpl2+)))

1
gnu/packages/finance.scm
View file

@ -93,6 +93,7 @@
#:use-module (gnu packages gnome) #:use-module (gnu packages gnome)
#:use-module (gnu packages gnupg) #:use-module (gnu packages gnupg)
#:use-module (gnu packages golang) #:use-module (gnu packages golang)
#:use-module (gnu packages golang-web)
#:use-module (gnu packages graphviz) #:use-module (gnu packages graphviz)
#:use-module (gnu packages groff) #:use-module (gnu packages groff)
#:use-module (gnu packages gsasl) #:use-module (gnu packages gsasl)

4
gnu/packages/fonts.scm
View file

@ -3159,7 +3159,7 @@ and readability. This package bundles those icons into a font.")
(define-public font-lxgw-wenkai (define-public font-lxgw-wenkai
(package (package
(name "font-lxgw-wenkai") (name "font-lxgw-wenkai")
(version "1.311") (version "1.315")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append (uri (string-append
@ -3167,7 +3167,7 @@ and readability. This package bundles those icons into a font.")
version "/lxgw-wenkai-v" version ".tar.gz")) version "/lxgw-wenkai-v" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"0f5fnqcwp8kicrbkncn5j1w06cil771jfdcjf2w48vl62m4gmf27")))) "0isb7rbg8yb6hv8xk1ngngkgzpyb3papkl19jczwrwm373m8bn3f"))))
(build-system font-build-system) (build-system font-build-system)
(home-page "https://lxgw.github.io/2021/01/28/Klee-Simpchin/") (home-page "https://lxgw.github.io/2021/01/28/Klee-Simpchin/")
(synopsis "Simplified Chinese Imitation Song typeface") (synopsis "Simplified Chinese Imitation Song typeface")

52
gnu/packages/game-development.scm
View file

@ -56,6 +56,7 @@
#:use-module (guix svn-download) #:use-module (guix svn-download)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module (guix build-system cmake) #:use-module (guix build-system cmake)
#:use-module (guix build-system copy)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module (guix build-system python) #:use-module (guix build-system python)
#:use-module (guix build-system scons) #:use-module (guix build-system scons)
@ -2583,6 +2584,57 @@ added. The permanent goal is to create a Quake 3 distribution upon which
people base their games, ports to new platforms, and other projects.") people base their games, ports to new platforms, and other projects.")
(license license:gpl2)))) (license license:gpl2))))
(define-public inform
;; The latest release does not yet have a build system.
;; This commit is the earliest to have one.
(let ((commit "20cbfff96015938809d0e3da6cd0d83b76d27f14")
(revision "0"))
(package
(name "inform")
(version (git-version "6.41" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://jxself.org/git/inform.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "19z8pgrj1s2irany5s6xxwsm3bdnri1as46fdi16zdp4aah523jy"))))
(build-system gnu-build-system)
(native-inputs (list autoconf automake))
(synopsis "The Inform 6 compiler")
(description
"Inform 6 is a programming language designed for interactive fiction.
This version of the compiler has been modified slightly to work better when the
Inform standard library is in a non-standard location.")
(home-page "https://jxself.org/git/inform.git")
(license license:gpl3+))))
(define-public informlib
(package
(name "informlib")
(version "6.12.6")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://jxself.org/git/informlib.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0fcnw4jjzln402qk097n2s8y24vw1p3mmlmh6k1mbr2zfajjcn5r"))))
(build-system copy-build-system)
(arguments
(list
#:install-plan
#~'(("." "lib"))))
(synopsis "Inform 6 standard library")
(description
"This package provides the standard library for Inform 6.")
(home-page "https://jxself.org/git/informlib.git")
(license license:agpl3+)))
(define-public instead (define-public instead
(package (package
(name "instead") (name "instead")

74
gnu/packages/games.scm
View file

@ -10939,6 +10939,80 @@ implemented using ncurses user interface. An SDL graphical version is also
available.") available.")
(license license:gpl3+))) (license license:gpl3+)))
(define-public devours
(let ((commit "d50e745aa14aa48f7555ae12eb3d1000de1cc150")
(revision "0"))
(package
(name "devours")
(version (git-version "3" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://jxself.org/git/devours.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "1ksl6mh76jfx64rmasz2571f88ws45vby2977srhgkh355zp3lzn"))))
(build-system gnu-build-system)
(arguments
(list
#:tests? #f ; no tests
#:phases
#~(modify-phases %standard-phases
(delete 'configure) ; no configure
(replace 'build
(lambda _
(invoke "inform"
(string-append "+include_path="
#$(this-package-native-input "informlib")
"/lib")
"devours.inf")))
(replace 'install
(lambda* (#:key inputs #:allow-other-keys)
;; Create standalone executable.
(let* ((bash (search-input-file inputs "/bin/bash"))
(share (string-append #$output "/share"))
(scummvm (search-input-file inputs "/bin/scummvm"))
(bin (string-append #$output "/bin"))
(executable (string-append bin "/devours")))
(mkdir-p share)
(copy-file "devours.z5" (string-append share "/devours.z5"))
(mkdir-p bin)
(with-output-to-file executable
(lambda ()
(format #t "#!~a~%" bash)
(format #t
"exec ~a --path=~a glk:zcode~%"
scummvm share)))
(chmod executable #o755))))
(add-after 'install-executable 'install-desktop-file
(lambda _
(let* ((apps (string-append #$output "/share/applications"))
(share (string-append #$output "")))
(mkdir-p apps)
(make-desktop-entry-file
(string-append apps "/devours.desktop")
#:name "All Things Devours"
#:generic-name "All Things Devours"
#:exec (string-append #$output "/bin/devours")
#:categories '("AdventureGame" "Game" "RolePlaying")
#:keywords '("game" "adventure" "sci-fi")
#:comment '((#f "Sci-fi text adventure game")))))))))
(inputs
(list bash scummvm))
(native-inputs
(list inform informlib))
(synopsis "All Things Devours")
(description
"All Things Devours is a short piece of sci-fi interactive fiction,
leaning strongly towards the text-adventure end of the spectrum.
Any move you make may put things into an unwinnable state. You are therefore
encouraged to save frequently, and also to realise that you will probably have
to start over several times to find the most satisfactory ending.")
(home-page "https://jxself.org/git/devours.git")
(license license:agpl3+))))
(define-public schiffbruch (define-public schiffbruch
;; There haven't been any releases for several years, so I've taken the most ;; There haven't been any releases for several years, so I've taken the most
;; recent commit from the master branch that didn't fail to build (the last ;; recent commit from the master branch that didn't fail to build (the last

15
gnu/packages/gcc.scm
View file

@ -1182,6 +1182,21 @@ provides the GNU compiler for the Go programming language.")
(substitute-keyword-arguments (package-arguments gccgo) (substitute-keyword-arguments (package-arguments gccgo)
((#:phases phases) ((#:phases phases)
#~(modify-phases #$phases #~(modify-phases #$phases
#$@(if (version>=? (package-version gccgo) "12.0")
#~((add-after 'unpack 'adjust-libgo-dependencies
(lambda _
(substitute* "Makefile.in"
;; libgo.la depends on libbacktrace.la but the
;; current dependency rules don't have libbacktrace
;; building early enough for libgo. When built
;; with more than 1 core this issue doesn't appear.
;; see commit 5fee5ec362f7a243f459e6378fd49dfc89dc9fb5.
(("all-target-libgo: maybe-all-target-libffi")
(string-append
"all-target-libgo: maybe-all-target-libbacktrace\n"
"all-target-libgo: maybe-all-target-libffi\n"
"all-target-libgo: maybe-all-target-libatomic"))))))
#~())
(add-after 'install 'wrap-go-with-tool-path (add-after 'install 'wrap-go-with-tool-path
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))

9
gnu/packages/geo.scm
View file

@ -1940,7 +1940,7 @@ to the OSM opening hours specification.")
(define-public josm (define-public josm
(package (package
(name "josm") (name "josm")
(version "18822") (version "18907")
(source (origin (source (origin
(method svn-fetch) (method svn-fetch)
(uri (svn-reference (uri (svn-reference
@ -1949,7 +1949,7 @@ to the OSM opening hours specification.")
(recursive? #f))) (recursive? #f)))
(sha256 (sha256
(base32 (base32
"0b4q6n3jbqrh7dsfmcf2g0xdd1wjj62sjq8lwvggvrpqlk1fyn1b")) "0vkczijw537f4y1b7hfxa45k3ww6nf2cf485b19dnbgh9ab6mnjl"))
(file-name (string-append name "-" version "-checkout")) (file-name (string-append name "-" version "-checkout"))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet (snippet
@ -1963,6 +1963,7 @@ to the OSM opening hours specification.")
(list java-commons-jcs (list java-commons-jcs
java-commons-compress java-commons-compress
java-jmapviewer java-jmapviewer
java-jakarta-annotations-api
java-jakarta-json java-jakarta-json
java-jsr305 java-jsr305
java-metadata-extractor java-metadata-extractor
@ -2329,7 +2330,7 @@ associated attribute file (@file{.dbf}).")
(define-public spatialite-tools (define-public spatialite-tools
(package (package
(name "spatialite-tools") (name "spatialite-tools")
(version "5.1.0") (version "5.1.0a")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -2337,7 +2338,7 @@ associated attribute file (@file{.dbf}).")
"spatialite-tools-sources/" "spatialite-tools-sources/"
"spatialite-tools-" version ".tar.gz")) "spatialite-tools-" version ".tar.gz"))
(sha256 (sha256
(base32 "1dc3hnqa9ns0ycsac6wyl96pi052y7rrf233lq7sk708ghv30c6z")))) (base32 "1kh1amab452m3801knmpn1jcg27axakb90gd8fxwv240irsk97hi"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
(list pkg-config)) (list pkg-config))

11
gnu/packages/gl.scm
View file

@ -690,7 +690,12 @@ glxdemo, glxgears, glxheads, and glxinfo.")
#t)))) #t))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
(list #:make-flags #~(list (string-append "GLEW_PREFIX=" #$output) (list #:make-flags #~(list #$@(if (%current-target-system)
#~((string-append "CC=" #$(cc-for-target))
(string-append "LD=" #$(cc-for-target))
(string-append "STRIP=" #$(strip-for-target)))
#~())
(string-append "GLEW_PREFIX=" #$output)
(string-append "GLEW_DEST=" #$output)) (string-append "GLEW_DEST=" #$output))
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
@ -915,7 +920,7 @@ OpenGL.")
(define-public glfw (define-public glfw
(package (package
(name "glfw") (name "glfw")
(version "3.3.4") (version "3.3.9")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://github.com/glfw/glfw" (uri (string-append "https://github.com/glfw/glfw"
@ -923,7 +928,7 @@ OpenGL.")
"/glfw-" version ".zip")) "/glfw-" version ".zip"))
(sha256 (sha256
(base32 (base32
"1kcrpl4d6b6h23ib5j9q670d9w3knd07whgbanbmwwhbcqnc9lmv")))) "023dn97n4h14n5lbjpzjv0y6a2plj254c0w3rr3wraf3z08189jm"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
(list (list

15
gnu/packages/gnunet.scm
View file

@ -262,7 +262,7 @@ supports HTTP, HTTPS and GnuTLS.")
(define-public gnunet (define-public gnunet
(package (package
(name "gnunet") (name "gnunet")
(version "0.19.4") (version "0.20.0")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -270,14 +270,7 @@ supports HTTP, HTTPS and GnuTLS.")
".tar.gz")) ".tar.gz"))
(sha256 (sha256
(base32 (base32
"16q0mkkr9b33wlm307ignfgvv0kilzr42155m5dpz66m13s3v9h0")) "064mmhksznbsymanikwqkgmdhk2f0zjll2aq2cmxa14wm5w9w0jn"))))
(modules '((guix build utils)))
(snippet
#~(begin
;; This is fixed in the upstream repository but the fix
;; has not been released.
(substitute* "src/gns/test_proxy.sh"
(("test_gnunet_proxy.conf") "test_gns_proxy.conf"))))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs (inputs
(list bluez (list bluez
@ -450,14 +443,14 @@ The following services are supported:
(define-public gnunet-gtk (define-public gnunet-gtk
(package (inherit gnunet) (package (inherit gnunet)
(name "gnunet-gtk") (name "gnunet-gtk")
(version "0.19.0") (version "0.20.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://gnu/gnunet/gnunet-gtk-" (uri (string-append "mirror://gnu/gnunet/gnunet-gtk-"
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"0z2731l69vnfsa0cdsw8wh8g1d08wz15y5n0a58qjpf7baric01k")))) "0bandj2f24v4wfq1v5j73zn5jp25dn8r7y0wd7znlkmbh86fb4g9"))))
(arguments (arguments
(list #:configure-flags (list #:configure-flags
#~(list "--with-libunique" #~(list "--with-libunique"

7
gnu/packages/gnupg.scm
View file

@ -23,6 +23,7 @@
;;; Copyright © 2021 Aleksandr Vityazev <avityazev@posteo.org> ;;; Copyright © 2021 Aleksandr Vityazev <avityazev@posteo.org>
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2023 Janneke Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2024 Zheng Junjie <873216071@qq.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -236,6 +237,12 @@ generation.")
(base32 (base32
"1r1lvcp67gn5lfrj1g388sd77ca6qwnmxndirdysd71gk362z34f")))) "1r1lvcp67gn5lfrj1g388sd77ca6qwnmxndirdysd71gk362z34f"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (if (%current-target-system)
(list #:configure-flags
#~(list (string-append
"--with-libgpg-error-prefix="
#$(this-package-input "libgpg-error"))))
'()))
(propagated-inputs (propagated-inputs
(list libgpg-error pth)) (list libgpg-error pth))
(home-page "https://gnupg.org") (home-page "https://gnupg.org")

2
gnu/packages/gnuzilla.scm
View file

@ -1774,7 +1774,7 @@ ca495991b7852b855"))
(format #t (format #t
"[Desktop Entry]~@ "[Desktop Entry]~@
Name=Icedove~@ Name=Icedove~@
Exec=~a/bin/icedove~@ Exec=~a/bin/icedove %u~@
Icon=icedove~@ Icon=icedove~@
GenericName=Mail/News Client~@ GenericName=Mail/News Client~@
Categories=Network;Email;~@ Categories=Network;Email;~@

12
gnu/packages/golang-check.scm
View file

@ -414,6 +414,18 @@ Features include:
@end itemize") @end itemize")
(license license:expat))) (license license:expat)))
(define-public go-github-com-stretchr-testify-bootstrap
(hidden-package
(package
(inherit go-github-com-stretchr-testify)
(arguments
'(#:import-path "github.com/stretchr/testify"
#:tests? #f
#:phases (modify-phases %standard-phases
(delete 'build))))
(propagated-inputs
(list go-gopkg-in-yaml-v3)))))
(define-public go-github-com-tdewolff-test (define-public go-github-com-tdewolff-test
(package (package
(name "go-github-com-tdewolff-test") (name "go-github-com-tdewolff-test")

1466
gnu/packages/golang-web.scm Normal file
View file

File diff suppressed because it is too large Load diff

1550
gnu/packages/golang.scm
View file

File diff suppressed because it is too large Load diff

9
gnu/packages/guile-xyz.scm
View file

@ -2267,7 +2267,7 @@ users and in some situations.")
(define-public guile-udev (define-public guile-udev
(package (package
(name "guile-udev") (name "guile-udev")
(version "0.2.4") (version "0.3.0")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
@ -2276,7 +2276,7 @@ users and in some situations.")
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"1q1snj8gz2bvqw2v2jvwlzn5xfh7f7wlp922isnzismrp4adc918")))) "0zvn7ph6sbz5q8jnbkrxxlbxlyf0j8q34hr4a2yxklvg29ya7sd3"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
(list (list
@ -2289,7 +2289,10 @@ users and in some situations.")
(substitute* (find-files "." "\\.scm") (substitute* (find-files "." "\\.scm")
(("load-extension \"libguile-udev\"") (("load-extension \"libguile-udev\"")
(format #f "load-extension \"~a/lib/libguile-udev.so\"" (format #f "load-extension \"~a/lib/libguile-udev.so\""
#$output)))))))) #$output)))))
(delete 'check) ;moved after install
(add-after 'install 'check
(assoc-ref %standard-phases 'check)))))
(native-inputs (list autoconf (native-inputs (list autoconf
automake automake
gettext-minimal gettext-minimal

1
gnu/packages/high-availability.scm
View file

@ -35,6 +35,7 @@
#:use-module (gnu packages gettext) #:use-module (gnu packages gettext)
#:use-module (gnu packages glib) #:use-module (gnu packages glib)
#:use-module (gnu packages golang) #:use-module (gnu packages golang)
#:use-module (gnu packages golang-web)
#:use-module (gnu packages hardware) #:use-module (gnu packages hardware)
#:use-module (gnu packages linux) #:use-module (gnu packages linux)
#:use-module (gnu packages lua) #:use-module (gnu packages lua)

44
gnu/packages/image.scm
View file

@ -1483,6 +1483,26 @@ channels.")
(base32 (base32
"1lvxnpds0vcf0lil6ia2036ghqlbl740c4d2sz0q5g6l93fjyija")))) "1lvxnpds0vcf0lil6ia2036ghqlbl740c4d2sz0q5g6l93fjyija"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments
(if (and (target-riscv64?)
(%current-target-system))
(list #:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'update-config-scripts
(lambda* (#:key inputs native-inputs #:allow-other-keys)
;; Replace outdated config.guess and config.sub.
(for-each (lambda (file)
(install-file
(search-input-file
(or native-inputs inputs)
(string-append "/bin/" file)) "."))
'("config.guess" "config.sub"))))))
'()))
(native-inputs
(if (and (target-riscv64?)
(%current-target-system))
(list config)
'()))
(propagated-inputs (propagated-inputs
;; These are all in the 'Libs.private' field of libmng.pc. ;; These are all in the 'Libs.private' field of libmng.pc.
(list lcms libjpeg-turbo zlib)) (list lcms libjpeg-turbo zlib))
@ -2205,20 +2225,24 @@ identical visual appearance.")
(define-public grim (define-public grim
(package (package
(name "grim") (name "grim")
(version "1.4.0") (version "1.4.1")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://github.com/emersion/grim") (url "https://git.sr.ht/~emersion/grim")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "1b1k5cmmk7gzis0rncyl98lnhdwpjkdsv9pada5mmgxcpka6f0lp")))) (base32 "1snp4qlj05d0nx4f0qr8kywv0i1xcw5i278ybng1rand2alhkjz5"))))
(build-system meson-build-system) (build-system meson-build-system)
(native-inputs (list pkg-config scdoc)) (native-inputs (append (if (%current-target-system)
;; for wayland-scanner
(list pkg-config-for-build wayland)
'())
(list pkg-config scdoc)))
(inputs (list pixman libpng libjpeg-turbo wayland wayland-protocols)) (inputs (list pixman libpng libjpeg-turbo wayland wayland-protocols))
(home-page "https://github.com/emersion/grim") (home-page "https://sr.ht/~emersion/grim/")
(synopsis "Create screenshots from a Wayland compositor") (synopsis "Create screenshots from a Wayland compositor")
(description "grim can create screenshots from a Wayland compositor.") (description "grim can create screenshots from a Wayland compositor.")
;; MIT license. ;; MIT license.
@ -2227,7 +2251,7 @@ identical visual appearance.")
(define-public slurp (define-public slurp
(package (package
(name "slurp") (name "slurp")
(version "1.4.0") (version "1.5.0")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -2236,10 +2260,14 @@ identical visual appearance.")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "1i6g4dfiv2mwkjvvrx3wizb1n05xmd4j9nkhdii4klwd1gdrhjwd")))) (base32 "0wlml42c3shma50bsvqzll7p3zn251jaf0jm59q2idks8gg1zkyq"))))
(build-system meson-build-system) (build-system meson-build-system)
(native-inputs (native-inputs
(list pkg-config scdoc)) (append (if (%current-target-system)
;; for wayland-scanner
(list wayland pkg-config-for-build)
'())
(list pkg-config scdoc)))
(inputs (inputs
(list cairo libxkbcommon wayland wayland-protocols)) (list cairo libxkbcommon wayland wayland-protocols))
(home-page "https://github.com/emersion/slurp") (home-page "https://github.com/emersion/slurp")

1
gnu/packages/ipfs.scm
View file

@ -30,6 +30,7 @@
#:use-module (guix build-system go) #:use-module (guix build-system go)
#:use-module (gnu packages golang) #:use-module (gnu packages golang)
#:use-module (gnu packages golang-check) #:use-module (gnu packages golang-check)
#:use-module (gnu packages golang-web)
#:use-module (gnu packages python) #:use-module (gnu packages python)
#:use-module (gnu packages shells) #:use-module (gnu packages shells)
#:use-module (gnu packages syncthing)) #:use-module (gnu packages syncthing))

28
gnu/packages/java.scm
View file

@ -13719,6 +13719,34 @@ Processing specification.")
;; with classpath exception ;; with classpath exception
(license license:epl2.0))) (license license:epl2.0)))
(define-public java-jakarta-annotations-api
(package
(name "java-jakarta-annotations-api")
(version "2.1.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/jakartaee/common-annotations-api")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"0xq2n2pijal5p75vl9dz10i6hhdmaxw5q8j3aza717xkpxxby9p6"))))
(build-system ant-build-system)
(arguments
`(#:jar-name "jakarta-annotations-api.jar"
#:source-dir "api/src/main/java"
#:tests? #f; no tests
#:jdk ,openjdk11))
(home-page "https://github.com/jakartaee/common-annotations-api")
(synopsis "Collection of Java annotations")
(description "Jakarta Annotations defines a collection of annotations
representing common semantic concepts that enable a declarative style of
programming that applies across a variety of Java technologies.")
;; with classpath exception
(license (list license:epl2.0
license:gpl2))))
(define-public java-xmp (define-public java-xmp
(package (package
(name "java-xmp") (name "java-xmp")

4
gnu/packages/linux.scm
View file

@ -527,7 +527,7 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(%upstream-linux-source version hash) (%upstream-linux-source version hash)
deblob-scripts-6.1))) deblob-scripts-6.1)))
(define-public linux-libre-5.15-version "5.15.144") (define-public linux-libre-5.15-version "5.15.145")
(define-public linux-libre-5.15-gnu-revision "gnu") (define-public linux-libre-5.15-gnu-revision "gnu")
(define deblob-scripts-5.15 (define deblob-scripts-5.15
(linux-libre-deblob-scripts (linux-libre-deblob-scripts
@ -537,7 +537,7 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "1idjrn2w8jrixj8ifkk1awxyyq5042nc4p2mld4rda96azlnp948"))) (base32 "1idjrn2w8jrixj8ifkk1awxyyq5042nc4p2mld4rda96azlnp948")))
(define-public linux-libre-5.15-pristine-source (define-public linux-libre-5.15-pristine-source
(let ((version linux-libre-5.15-version) (let ((version linux-libre-5.15-version)
(hash (base32 "0fsv18q64q17ad7mq818wfhb11dax4bdvbvqyk5ilxyfmypsylzh"))) (hash (base32 "086nssif66s86wkixz4yb7xilz1k49g32l0ib28r8fjzc23rv95j")))
(make-linux-libre-source version (make-linux-libre-source version
(%upstream-linux-source version hash) (%upstream-linux-source version hash)
deblob-scripts-5.15))) deblob-scripts-5.15)))

40
gnu/packages/lisp-xyz.scm
View file

@ -3284,8 +3284,8 @@ C, C++, Java, Python, Erlang, Haskell, Objective-C, Diff, Webkit.")
(sbcl-package->ecl-package sbcl-colorize)) (sbcl-package->ecl-package sbcl-colorize))
(define-public sbcl-3bmd (define-public sbcl-3bmd
(let ((commit "4e08d82d7c8fb1b8fc708c87f4d9d13a1ab490cb") (let ((commit "e68b2d442f29b4534c1c8e2f2cdf7583643a2fc5")
(revision "3")) (revision "4"))
(package (package
(name "sbcl-3bmd") (name "sbcl-3bmd")
(version (git-version "0.0.0" revision commit)) (version (git-version "0.0.0" revision commit))
@ -3296,7 +3296,7 @@ C, C++, Java, Python, Erlang, Haskell, Objective-C, Diff, Webkit.")
(url "https://github.com/3b/3bmd") (url "https://github.com/3b/3bmd")
(commit commit))) (commit commit)))
(sha256 (sha256
(base32 "1j885ykg2yds0l7dmw21lrhs7pd66lf541pf9lb677nkhc2f62jz")) (base32 "12xqih1gnwsn1baqm7bq3kxss73phn06gvd0v1h1vwsjd1xgpq3g"))
(file-name (git-file-name "cl-3bmd" version)))) (file-name (git-file-name "cl-3bmd" version))))
(build-system asdf-build-system/sbcl) (build-system asdf-build-system/sbcl)
(arguments (arguments
@ -3666,11 +3666,11 @@ processes that doesn't run under Emacs. Lisp processes created by
(sbcl-package->ecl-package sbcl-slime-swank)) (sbcl-package->ecl-package sbcl-slime-swank))
(define-public sbcl-mgl-pax (define-public sbcl-mgl-pax
(let ((commit "ed82a80207b70801fab061f6592cf7d7355294a6") (let ((commit "6782eb041c152721972420dfafa192692d16b7ce")
(revision "0")) (revision "1"))
(package (package
(name "sbcl-mgl-pax") (name "sbcl-mgl-pax")
(version (git-version "0.1.0" revision commit)) (version (git-version "0.3.0" revision commit))
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -3678,7 +3678,7 @@ processes that doesn't run under Emacs. Lisp processes created by
(url "https://github.com/melisgl/mgl-pax") (url "https://github.com/melisgl/mgl-pax")
(commit commit))) (commit commit)))
(sha256 (sha256
(base32 "008wfa70q68cj6npi4107mfjhjzfjmvrhm1x51jpndsn2165c5bx")) (base32 "0fjbzc2fn17m80lfsc8121sa0bk7fg42fqlwhm01sk1fj4s48pma"))
(file-name (git-file-name "cl-mgl-pax" version)))) (file-name (git-file-name "cl-mgl-pax" version))))
(build-system asdf-build-system/sbcl) (build-system asdf-build-system/sbcl)
;; (native-inputs ;; (native-inputs
@ -3690,7 +3690,8 @@ processes that doesn't run under Emacs. Lisp processes created by
sbcl-md5 sbcl-md5
sbcl-named-readtables sbcl-named-readtables
sbcl-pythonic-string-reader sbcl-pythonic-string-reader
sbcl-slime-swank)) sbcl-slime-swank
sbcl-trivial-utf-8))
(arguments (arguments
`(#:asd-systems '("mgl-pax" `(#:asd-systems '("mgl-pax"
"mgl-pax/navigate" "mgl-pax/navigate"
@ -18752,19 +18753,20 @@ attributes not supported by the Common Lisp standard functions.")
(sbcl-package->cl-source-package sbcl-file-attributes)) (sbcl-package->cl-source-package sbcl-file-attributes))
(define-public sbcl-filesystem-utils (define-public sbcl-filesystem-utils
(let ((commit "4455bb6c43f4433dd68a34ddad9ed5aa9b649243")) (let ((commit "a07e8b61b89d4b46408fb9294d9b8130e8c8a02e")
(revision "2"))
(package (package
(name "sbcl-filesystem-utils") (name "sbcl-filesystem-utils")
(version (git-version "1.0.0" "1" commit)) (version (git-version "1.0.0" revision commit))
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://github.com/Shinmera/filesystem-utils/") (url "https://github.com/Shinmera/filesystem-utils/")
(commit commit))) (commit commit)))
(file-name (git-file-name "filesystem-utils" version)) (file-name (git-file-name "cl-filesystem-utils" version))
(sha256 (sha256
(base32 "0rww9r26zh44qwmj0b4sl95jngdn2h0239x5gjzak3gpdc3i3nbr")))) (base32 "1zv2i2gndnbs7hz3bgkkq1qfx604wbndpc7qqlqvg23fssn9w59f"))))
(build-system asdf-build-system/sbcl) (build-system asdf-build-system/sbcl)
(inputs (inputs
(list sbcl-documentation-utils (list sbcl-documentation-utils
@ -19939,8 +19941,8 @@ lQuery.")
(sbcl-package->cl-source-package sbcl-clip)) (sbcl-package->cl-source-package sbcl-clip))
(define-public sbcl-pathname-utils (define-public sbcl-pathname-utils
(let ((commit "13189c08f2480802a6cba207304c2e0cfdc57f47") (let ((commit "f28068a79825f37002e96d13dfd739172382bf94")
(revision "2")) (revision "3"))
(package (package
(name "sbcl-pathname-utils") (name "sbcl-pathname-utils")
(version (git-version "1.1.0" revision commit)) (version (git-version "1.1.0" revision commit))
@ -19952,7 +19954,7 @@ lQuery.")
(commit commit))) (commit commit)))
(file-name (git-file-name "cl-pathname-utils" version)) (file-name (git-file-name "cl-pathname-utils" version))
(sha256 (sha256
(base32 "0b5pjsrpfw0pmahi1zydzpaa5missg3cxqnyz4k6xwvk8fqscpha")))) (base32 "10xs0wnnkbdiirr1cb7q7hzi2zmksfsrj0p7yws0j1l215vz8qs8"))))
(build-system asdf-build-system/sbcl) (build-system asdf-build-system/sbcl)
(native-inputs (native-inputs
(list sbcl-parachute)) (list sbcl-parachute))
@ -26752,7 +26754,13 @@ inspired by Haskell package @code{Data.List}.")
sbcl-trivial-open-browser sbcl-trivial-open-browser
sbcl-websocket-driver)) sbcl-websocket-driver))
(arguments (arguments
'(#:asd-systems '("clog" "clog/docs" "clog/tools"))) '(#:asd-systems '("clog" "clog/docs" "clog/tools")
#:phases (modify-phases %standard-phases
(add-after 'unpack 'fix-symbol-name
(lambda _
(substitute* "source/clog-docs.lisp"
(("clog:@CLOG-MANUAL")
"clog::@CLOG_MANUAL")))))))
(home-page "https://github.com/rabbibotton/clog") (home-page "https://github.com/rabbibotton/clog")
(synopsis "Common Lisp Omnificent GUI") (synopsis "Common Lisp Omnificent GUI")
(description (description

244
gnu/packages/machine-learning.scm
View file

@ -1214,6 +1214,29 @@ an extensible computation graph model, as well as definitions of built-in
operators and standard data types.") operators and standard data types.")
(license license:expat))) (license license:expat)))
(define-public onnx-for-torch2
(package
(inherit onnx)
(name "onnx")
(version "1.13.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/onnx/onnx")
(commit (string-append "v" version))))
(sha256
(base32
"16967dbq2j40diqd0s37r19llsab8q8vbxkg1ppgy0p9fpdhfhyp"))
(file-name (git-file-name name version))
(patches (search-patches "onnx-1.13.1-use-system-googletest.patch"
"onnx-shared-libraries.patch"))
(modules '((guix build utils)))
(snippet
'(begin
(delete-file-recursively "third_party")
(substitute* "onnx/backend/test/runner/__init__.py"
(("urlretrieve\\(.*") "raise unittest.SkipTest('Skipping download')\n"))))))))
(define-public python-onnx (define-public python-onnx
;; This used to be called "python-onnx" because it provided nothing but ;; This used to be called "python-onnx" because it provided nothing but
;; Python bindings. The package now provides shared libraries and C++ ;; Python bindings. The package now provides shared libraries and C++
@ -1259,6 +1282,13 @@ aim is to provide all such passes along with ONNX so that they can be re-used
with a single function call.") with a single function call.")
(license license:expat))) (license license:expat)))
(define-public onnx-optimizer-for-torch2
(package
(inherit onnx-optimizer)
(inputs
(modify-inputs (package-inputs onnx-optimizer)
(replace "onnx" onnx-for-torch2)))))
(define-public rxcpp (define-public rxcpp
(package (package
(name "rxcpp") (name "rxcpp")
@ -3878,6 +3908,34 @@ high-level machine learning frameworks, such as TensorFlow Lite,
TensorFlow.js, PyTorch, and MediaPipe.") TensorFlow.js, PyTorch, and MediaPipe.")
(license license:bsd-3)))) (license license:bsd-3))))
(define-public xnnpack-for-torch2
;; There's currently no tag on this repo.
(let ((version "0.0")
(commit "51a987591a6fc9f0fc0707077f53d763ac132cbf")
(revision "3"))
(package
(inherit xnnpack)
(name "xnnpack")
(version (git-version version revision commit))
(home-page "https://github.com/google/XNNPACK") ;fork of QNNPACK
(source (origin
(method git-fetch)
(uri (git-reference (url home-page) (commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1rzby82xq8d0rl1d148yz88jh9cpsw5c8b2yw7yg39mi7qmr55rm"))
(patches (search-patches "xnnpack-for-torch2-system-libraries.patch"))))
(arguments
(list
#:tests? #false
#:configure-flags '(list "-DXNNPACK_USE_SYSTEM_LIBS=YES"
"-DBUILD_SHARED_LIBS=ON"
"-DCMAKE_POSITION_INDEPENDENT_CODE=ON"
"-DXNNPACK_LIBRARY_TYPE=shared"
"-DXNNPACK_BUILD_TESTS=FALSE" ;FIXME: see below
"-DXNNPACK_BUILD_BENCHMARKS=FALSE"))))))
;; Please also update python-torchvision when updating this package. ;; Please also update python-torchvision when updating this package.
(define-public python-pytorch (define-public python-pytorch
(package (package
@ -4027,7 +4085,59 @@ PyTorch when needed.
Note: currently this package does not provide GPU support.") Note: currently this package does not provide GPU support.")
(license license:bsd-3))) (license license:bsd-3)))
(define-public python-pytorch-for-r-torch python-pytorch) (define-public python-pytorch-for-r-torch
(package
(inherit python-pytorch)
(name "python-pytorch")
(version "2.0.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/pytorch/pytorch")
(commit (string-append "v" version))
(recursive? #t)))
(file-name (git-file-name name version))
(sha256
(base32
"14m7v54zyd2qg2xk9mqdpbf4ps7091mdzinzh4vq9p5k4bpznj65"))
(patches (search-patches "python-pytorch2-system-libraries.patch"
"python-pytorch-runpath.patch"))
(modules '((guix build utils)))
(snippet
'(begin
;; XXX: Let's be clear: this package is a bundling fest. We
;; delete as much as we can, but there's still a lot left.
(for-each (lambda (directory)
(delete-file-recursively
(string-append "third_party/" directory)))
'("benchmark" "cpuinfo" "eigen"
;; FIXME: QNNPACK (of which XNNPACK is a fork)
;; needs these.
;; "FP16" "FXdiv" "gemmlowp" "psimd"
"gloo" "googletest" "ios-cmake" "NNPACK"
"onnx" "protobuf" "pthreadpool"
"pybind11" "python-enum" "python-peachpy"
"python-six" "tbb" "XNNPACK" "zstd"))
(substitute* "caffe2/CMakeLists.txt"
(("target_link_libraries\\(\\$\\{test_name\\}_\\$\\{CPU_CAPABILITY\\} c10 sleef gtest_main\\)")
"target_link_libraries(${test_name}_${CPU_CAPABILITY} c10 sleef gtest gtest_main)"))
(substitute* "functorch/CMakeLists.txt"
(("\\$\\{_rpath_portable_origin\\}/../torch/lib")
"$ORIGIN/../torch/lib"))))))
(inputs
(modify-inputs (package-inputs python-pytorch)
(replace "xnnpack" xnnpack-for-torch2)))
(propagated-inputs
(modify-inputs (package-propagated-inputs python-pytorch)
(append python-filelock
python-jinja2
python-networkx
python-opt-einsum
python-sympy)
(replace "onnx" onnx-for-torch2)
(replace "onnx-optimizer" onnx-optimizer-for-torch2)))))
(define-public python-lightning-cloud (define-public python-lightning-cloud
(package (package
@ -4440,70 +4550,74 @@ of Hidden Markov Models.")
;; Keep this in sync with the r-torch package. ;; Keep this in sync with the r-torch package.
(define-public liblantern (define-public liblantern
(package ;; There has been no release or tagged commit for r-torch 0.12.0. The
(name "liblantern") ;; selected commit corresponds to the 0.12.0 release.
(version "0.10.0") (let ((commit "4d83bd087be581f7db321c27f55897ff021d2537")
(source (revision "1"))
(origin (package
(method git-fetch) (name "liblantern")
(uri (git-reference (version (git-version "0.11.0" revision commit))
(url "https://github.com/mlverse/torch") (source
(commit (string-append "v" version)))) (origin
(file-name (git-file-name name version)) (method git-fetch)
(sha256 (uri (git-reference
(base32 "12480fac9xq7rgw0q5f2cnvmakhakjsnq1gvh2ncjfwxz34n8fl7")))) (url "https://github.com/mlverse/torch")
(build-system cmake-build-system) (commit commit)))
(arguments (file-name (git-file-name name version))
(list (sha256
#:tests? #false ;no test target (base32 "1xxc6vr7sr2mg0va0hc2fs4f6v5b78mx43dp2shzzbcgw90mgpvk"))))
#:phases (build-system cmake-build-system)
(let ((python-version (version-major+minor (package-version python)))) (arguments
#~(modify-phases %standard-phases (list
(add-after 'unpack 'chdir #:tests? #false ;no test target
(lambda _ (chdir "src/lantern"))) #:phases
(add-after 'chdir 'do-not-download-binaries (let ((python-version (version-major+minor (package-version python))))
(lambda* (#:key inputs #:allow-other-keys) #~(modify-phases %standard-phases
(substitute* "CMakeLists.txt" (add-after 'unpack 'chdir
(("find_package\\(Torch.*") "set(TORCH_CXX_FLAGS \"-ltorch\")\n") (lambda _ (chdir "src/lantern")))
(("retrieve_lib\\(.*") "")) (add-after 'chdir 'do-not-download-binaries
(let ((site-packages (string-append "/lib/python" (lambda* (#:key inputs #:allow-other-keys)
#$python-version (substitute* "CMakeLists.txt"
"/site-packages"))) (("find_package\\(Torch.*") "set(TORCH_CXX_FLAGS \"-ltorch\")\n")
(setenv "LIBRARY_PATH" (("retrieve_lib\\(.*") ""))
(string-append (let ((site-packages (string-append "/lib/python"
(search-input-directory #$python-version
inputs (string-append site-packages "/torch/lib")) "/site-packages")))
":" (or (getenv "LIBRARY_PATH") ""))) (setenv "LIBRARY_PATH"
(setenv "CPLUS_INCLUDE_PATH" (string-append
(string-append (search-input-directory
(search-input-directory inputs (string-append site-packages "/torch/lib"))
inputs (string-append ":" (or (getenv "LIBRARY_PATH") "")))
site-packages "/torch/include/torch/csrc/api/include/")) (setenv "CPLUS_INCLUDE_PATH"
":" (string-append
(search-input-directory (search-input-directory
inputs (string-append site-packages "/torch/include/")) inputs (string-append
":" site-packages "/torch/include/torch/csrc/api/include/"))
(or (getenv "CPLUS_INCLUDE_PATH") ""))) ":"
(setenv "C_INCLUDE_PATH" (search-input-directory
(string-append inputs (string-append site-packages "/torch/include/"))
(search-input-directory ":"
inputs (string-append site-packages "/torch/include/")) (or (getenv "CPLUS_INCLUDE_PATH") "")))
":" (setenv "C_INCLUDE_PATH"
(or (getenv "C_INCLUDE_PATH") "")))))) (string-append
(replace 'install (search-input-directory
(lambda _ inputs (string-append site-packages "/torch/include/"))
(install-file ":"
"../build/liblantern.so" (or (getenv "C_INCLUDE_PATH") ""))))))
(string-append #$output "/lib")) (replace 'install
(copy-recursively (lambda _
"../lantern/include" (install-file
(string-append #$output "/include")))))))) "../build/liblantern.so"
(inputs (list python-pytorch-for-r-torch)) (string-append #$output "/lib"))
(home-page "https://github.com/mlverse/torch/") (copy-recursively
(synopsis "C API to libtorch") "../lantern/include"
(description (string-append #$output "/include"))))))))
"Lantern provides a C API to the libtorch machine learning library.") (inputs (list python-pytorch-for-r-torch))
(license license:expat))) (home-page "https://github.com/mlverse/torch/")
(synopsis "C API to libtorch")
(description
"Lantern provides a C API to the libtorch machine learning library.")
(license license:expat))))
(define-public python-lap (define-public python-lap
(package (package

1
gnu/packages/mail.scm
View file

@ -109,6 +109,7 @@
#:use-module (gnu packages gnupg) #:use-module (gnu packages gnupg)
#:use-module (gnu packages golang) #:use-module (gnu packages golang)
#:use-module (gnu packages golang-check) #:use-module (gnu packages golang-check)
#:use-module (gnu packages golang-web)
#:use-module (gnu packages groff) #:use-module (gnu packages groff)
#:use-module (gnu packages gsasl) #:use-module (gnu packages gsasl)
#:use-module (gnu packages gtk) #:use-module (gnu packages gtk)

6
gnu/packages/messaging.scm
View file

@ -2636,11 +2636,11 @@ replacement.")
(license license:gpl2+))) (license license:gpl2+)))
(define-public tdlib (define-public tdlib
(let ((commit "4ed0b23c9c99868ab4d2d28e8ff244687f7b3144") (let ((commit "27c3eaeb4964bd5f18d8488e354abde1a4383e49")
(revision "0")) (revision "0"))
(package (package
(name "tdlib") (name "tdlib")
(version (git-version "1.8.20" revision commit)) (version (git-version "1.8.23" revision commit))
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -2648,7 +2648,7 @@ replacement.")
(url "https://github.com/tdlib/td") (url "https://github.com/tdlib/td")
(commit commit))) (commit commit)))
(sha256 (sha256
(base32 "16kprlcnphi89yfwgnlaxjwwb1xx24az8xd710rx8cslb4zv00qw")) (base32 "14f65dfmg2p5hyvi3lffvvazwcd3i3jrrw3c2pwrc5yfgxk3662g"))
(file-name (git-file-name name version)))) (file-name (git-file-name name version))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments

21
gnu/packages/mp3.scm
View file

@ -12,6 +12,7 @@
;;; Copyright © 2021 Guillaume Le Vaillant <glv@posteo.net> ;;; Copyright © 2021 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2022 John Kehayias <john.kehayias@protonmail.com> ;;; Copyright © 2022 John Kehayias <john.kehayias@protonmail.com>
;;; Copyright © 2022 Joeke de Graaf <joeke@posteo.net> ;;; Copyright © 2022 Joeke de Graaf <joeke@posteo.net>
;;; Copyright © 2023 Zheng Junjie <873216071@qq.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -161,7 +162,25 @@ This package contains the library.")
Version: ~a~@ Version: ~a~@
Libs: -L${libdir} -lid3tag -lz~@ Libs: -L${libdir} -lid3tag -lz~@
Cflags: -I${includedir}~%" Cflags: -I${includedir}~%"
out ,version))))))))) out ,version))))))
,@(if (and (%current-target-system)
(or (target-riscv64?)
(target-aarch64?)))
`((add-after 'unpack 'update-config
(lambda* (#:key native-inputs inputs #:allow-other-keys)
(for-each
(lambda (file)
(install-file
(search-input-file (or native-inputs inputs)
(string-append "/bin/" file))
"."))
'("config.guess" "config.sub")))))
'()))))
(native-inputs (if (and (%current-target-system)
(or (target-riscv64?)
(target-aarch64?)))
(list config)
'()))
(inputs (list zlib)) (inputs (list zlib))
(synopsis "Library for reading ID3 tags") (synopsis "Library for reading ID3 tags")
(description (description

4
gnu/packages/mpd.scm
View file

@ -623,7 +623,7 @@ mpdevil loads all tags and covers on demand.")
(define-public mympd (define-public mympd
(package (package
(name "mympd") (name "mympd")
(version "13.0.5") (version "13.0.6")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
@ -632,7 +632,7 @@ mpdevil loads all tags and covers on demand.")
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"1ly3iw4irybfxyafgrldldwc28a879wwnd1pg32m2sgrwyhr0czm")))) "17mx6qkdcnm4z6qw0ns8wmihahcnk3kidfcr6fapa34cdadsjapg"))))
(outputs '("out" "doc")) (outputs '("out" "doc"))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments

1
gnu/packages/networking.scm
View file

@ -123,6 +123,7 @@
#:use-module (gnu packages gnome) #:use-module (gnu packages gnome)
#:use-module (gnu packages gnupg) #:use-module (gnu packages gnupg)
#:use-module (gnu packages golang) #:use-module (gnu packages golang)
#:use-module (gnu packages golang-web)
#:use-module (gnu packages graphviz) #:use-module (gnu packages graphviz)
#:use-module (gnu packages gstreamer) #:use-module (gnu packages gstreamer)
#:use-module (gnu packages gtk) #:use-module (gnu packages gtk)

1497
gnu/packages/ocaml.scm
View file

File diff suppressed because it is too large Load diff

75
gnu/packages/patches/emacs-haskell-mode-no-redefine-builtin.patch
View file

@ -1,75 +0,0 @@
From faa95a784d2c74c72e70367a5d531df6dd61aeab Mon Sep 17 00:00:00 2001
From: Steve Purcell <steve@sanityinc.com>
Date: Sun, 6 Aug 2023 16:41:48 +0200
Subject: [PATCH] Don't redefine built-in function
Fixes #1817
---
tests/haskell-indent-tests.el | 14 ++++++++------
tests/haskell-indentation-tests.el | 14 ++++++++------
2 files changed, 16 insertions(+), 12 deletions(-)
diff --git a/tests/haskell-indent-tests.el b/tests/haskell-indent-tests.el
index 7196405b8..9a3de4ad3 100644
--- a/tests/haskell-indent-tests.el
+++ b/tests/haskell-indent-tests.el
@@ -40,11 +40,13 @@
;; (haskell-indent-put-region-in-literate (point-min) (point-max) -1)
;; (buffer-substring-no-properties (point-min) (point-max))))))
-(defsubst string-trim-left (string)
- "Remove leading whitespace from STRING."
- (if (string-match "\\`[ \t\n\r]+" string)
- (replace-match "" t t string)
- string))
+(if (fboundp 'string-trim-left)
+ (defalias 'haskell--string-trim-left 'string-trim-left)
+ (defun haskell--string-trim-left (string &optional regexp)
+ "Remove leading whitespace from STRING."
+ (if (string-match (concat "\\`\\(?:" (or regexp "[ \t\n\r]+") "\\)") string)
+ (substring string (match-end 0))
+ string)))
(defun haskell-indent-format-info (info)
(if (cdr info)
@@ -128,7 +130,7 @@ macro quotes them for you."
:expected-result
,(if allow-failure :failed :passed)
(haskell-indent-check
- ,(string-trim-left source)
+ ,(haskell--string-trim-left source)
,@(mapcar (lambda (x)
(list 'quote x))
test-cases))))))
diff --git a/tests/haskell-indentation-tests.el b/tests/haskell-indentation-tests.el
index 4889b76a7..cd783a4f4 100644
--- a/tests/haskell-indentation-tests.el
+++ b/tests/haskell-indentation-tests.el
@@ -33,11 +33,13 @@
;;; Code:
-(defsubst string-trim-left (string)
- "Remove leading whitespace from STRING."
- (if (string-match "\\`[ \t\n\r]+" string)
- (replace-match "" t t string)
- string))
+(if (fboundp 'string-trim-left)
+ (defalias 'haskell--string-trim-left 'string-trim-left)
+ (defun haskell--string-trim-left (string &optional regexp)
+ "Remove leading whitespace from STRING."
+ (if (string-match (concat "\\`\\(?:" (or regexp "[ \t\n\r]+") "\\)") string)
+ (substring string (match-end 0))
+ string)))
(defun haskell-indentation-check (source &rest test-cases)
"Check if `haskell-indentation-find-indentations' returns expected results.
@@ -115,7 +117,7 @@ macro quotes them for you."
:expected-result
,(if allow-failure :failed :passed)
(haskell-indentation-check
- ,(string-trim-left source)
+ ,(haskell--string-trim-left source)
,@(mapcar (lambda (x)
(list 'quote x))
test-cases))))))

55
gnu/packages/patches/onnx-1.13.1-use-system-googletest.patch Normal file
View file

@ -0,0 +1,55 @@
ONNX will build googletest from a Git checkout. Patch CMake to use our
googletest package and enable tests by default.
diff --git a/CMakeLists.txt b/CMakeLists.txt
index 0aa9fda2..a573170c 100644
--- a/CMakeLists.txt
+++ b/CMakeLists.txt
@@ -22,7 +22,7 @@ option(BUILD_ONNX_PYTHON "Build Python binaries" OFF)
option(ONNX_GEN_PB_TYPE_STUBS "Generate protobuf python type stubs" ON)
option(ONNX_WERROR "Build with Werror" OFF)
option(ONNX_COVERAGE "Build with coverage instrumentation" OFF)
-option(ONNX_BUILD_TESTS "Build ONNX C++ APIs Tests" OFF)
+option(ONNX_BUILD_TESTS "Build ONNX C++ APIs Tests" ON)
option(ONNX_USE_LITE_PROTO "Use lite protobuf instead of full." OFF)
option(ONNXIFI_ENABLE_EXT "Enable onnxifi extensions." OFF)
if(NOT DEFINED ONNX_ML)
@@ -82,8 +82,10 @@ if(CMAKE_SYSTEM_NAME STREQUAL "AIX")
endif()
if(ONNX_BUILD_TESTS)
- list(APPEND CMAKE_MODULE_PATH ${ONNX_ROOT}/cmake/external)
- include(googletest)
+ find_package(GTest REQUIRED)
+ if(NOT GTest_FOUND)
+ message(FATAL_ERROR "cannot find googletest")
+ endif()
endif()
if((ONNX_USE_LITE_PROTO AND TARGET protobuf::libprotobuf-lite) OR ((NOT ONNX_USE_LITE_PROTO) AND TARGET protobuf::libprotobuf))
diff --git a/cmake/unittest.cmake b/cmake/unittest.cmake
index e29a93ff..ae146390 100644
--- a/cmake/unittest.cmake
+++ b/cmake/unittest.cmake
@@ -7,7 +7,7 @@
find_package(Threads)
-set(${UT_NAME}_libs ${googletest_STATIC_LIBRARIES})
+set(${UT_NAME}_libs ${GTEST_LIBRARIES})
list(APPEND ${UT_NAME}_libs onnx)
list(APPEND ${UT_NAME}_libs onnx_proto)
@@ -22,9 +22,9 @@
list(REMOVE_DUPLICATES _UT_SOURCES)
add_executable(${_UT_TARGET} ${_UT_SOURCES})
- add_dependencies(${_UT_TARGET} onnx onnx_proto googletest)
+ add_dependencies(${_UT_TARGET} onnx onnx_proto)
target_include_directories(${_UT_TARGET}
- PUBLIC ${googletest_INCLUDE_DIRS}
+ PUBLIC ${GTEST_INCLUDE_DIRS}
${ONNX_INCLUDE_DIRS}
${PROTOBUF_INCLUDE_DIRS}
${ONNX_ROOT}

156
gnu/packages/patches/python-pytorch2-system-libraries.patch Normal file
View file

@ -0,0 +1,156 @@
Use our own googletest rather than the bundled one.
Get NNPACK to use our own PeachPy rather than the bundled one.
diff --git a/caffe2/CMakeLists.txt b/caffe2/CMakeLists.txt
--- a/caffe2/CMakeLists.txt 2023-12-27 12:14:24.308751288 +0100
+++ b/caffe2/CMakeLists.txt 2023-12-27 12:30:15.941562126 +0100
@@ -1570,7 +1570,7 @@
add_executable(static_runtime_bench "${STATIC_RUNTIME_BENCHMARK_SRCS}")
add_executable(static_runtime_test "${STATIC_RUNTIME_TEST_SRCS}")
target_link_libraries(static_runtime_bench torch_library benchmark)
- target_link_libraries(static_runtime_test torch_library gtest_main)
+ target_link_libraries(static_runtime_test torch_library gtest_main gtest)
endif()
if(BUILD_TENSOREXPR_BENCHMARK)
@@ -1601,7 +1601,7 @@
foreach(test_src ${ATen_MOBILE_TEST_SRCS})
get_filename_component(test_name ${test_src} NAME_WE)
add_executable(${test_name} "${test_src}")
- target_link_libraries(${test_name} torch_library gtest_main)
+ target_link_libraries(${test_name} torch_library gtest_main gtest)
target_include_directories(${test_name} PRIVATE $<INSTALL_INTERFACE:include>)
target_include_directories(${test_name} PRIVATE $<BUILD_INTERFACE:${CMAKE_BINARY_DIR}/include>)
target_include_directories(${test_name} PRIVATE ${ATen_CPU_INCLUDE})
@@ -1628,7 +1628,7 @@
endif()
else()
add_executable(${test_name}_${CPU_CAPABILITY} "${test_src}")
- target_link_libraries(${test_name}_${CPU_CAPABILITY} torch_library gtest_main)
+ target_link_libraries(${test_name}_${CPU_CAPABILITY} torch_library gtest_main gtest)
endif()
target_include_directories(${test_name}_${CPU_CAPABILITY} PRIVATE $<INSTALL_INTERFACE:include>)
target_include_directories(${test_name}_${CPU_CAPABILITY} PRIVATE $<BUILD_INTERFACE:${CMAKE_BINARY_DIR}/include>)
@@ -1645,7 +1645,7 @@
foreach(test_src ${Caffe2_CPU_TEST_SRCS})
get_filename_component(test_name ${test_src} NAME_WE)
add_executable(${test_name} "${test_src}")
- target_link_libraries(${test_name} torch_library gtest_main)
+ target_link_libraries(${test_name} torch_library gtest_main gtest)
target_include_directories(${test_name} PRIVATE $<INSTALL_INTERFACE:include>)
target_include_directories(${test_name} PRIVATE $<BUILD_INTERFACE:${CMAKE_BINARY_DIR}/include>)
target_include_directories(${test_name} PRIVATE ${Caffe2_CPU_INCLUDE})
@@ -1666,7 +1666,7 @@
foreach(test_src ${Caffe2_MPS_TEST_SRCS})
get_filename_component(test_name ${test_src} NAME_WE)
add_executable(${test_name} "${test_src}")
- target_link_libraries(${test_name} torch_library gtest_main)
+ target_link_libraries(${test_name} torch_library gtest_main gtest)
target_include_directories(${test_name} PRIVATE $<INSTALL_INTERFACE:include>)
target_include_directories(${test_name} PRIVATE $<BUILD_INTERFACE:${CMAKE_BINARY_DIR}/include>)
target_include_directories(${test_name} PRIVATE ${Caffe2_CPU_INCLUDE})
diff --git a/cmake/Dependencies.cmake b/cmake/Dependencies.cmake
index 557ab649..ee9cf410 100644
--- a/cmake/Dependencies.cmake
+++ b/cmake/Dependencies.cmake
@@ -732,11 +732,6 @@ if(BUILD_TEST OR BUILD_MOBILE_BENCHMARK OR BUILD_MOBILE_TEST)
# this shouldn't be necessary anymore.
get_property(INC_DIR_temp DIRECTORY PROPERTY INCLUDE_DIRECTORIES)
set_property(DIRECTORY PROPERTY INCLUDE_DIRECTORIES "")
- add_subdirectory(${CMAKE_CURRENT_LIST_DIR}/../third_party/googletest)
- set_property(DIRECTORY PROPERTY INCLUDE_DIRECTORIES ${INC_DIR_temp})
-
- include_directories(BEFORE SYSTEM ${CMAKE_CURRENT_LIST_DIR}/../third_party/googletest/googletest/include)
- include_directories(BEFORE SYSTEM ${CMAKE_CURRENT_LIST_DIR}/../third_party/googletest/googlemock/include)
# We will not need to test benchmark lib itself.
set(BENCHMARK_ENABLE_TESTING OFF CACHE BOOL "Disable benchmark testing as we don't need it.")
@@ -1543,7 +1538,7 @@ if(CAFFE2_CMAKE_BUILDING_WITH_MAIN_REPO AND NOT INTERN_DISABLE_ONNX)
endif()
set_property(TARGET onnx_proto PROPERTY IMPORTED_LOCATION ${ONNX_PROTO_LIBRARY})
message("-- Found onnx: ${ONNX_LIBRARY} ${ONNX_PROTO_LIBRARY}")
- list(APPEND Caffe2_DEPENDENCY_LIBS onnx_proto onnx)
+ list(APPEND Caffe2_DEPENDENCY_LIBS onnx_proto onnx onnx_optimizer)
endif()
include_directories(${FOXI_INCLUDE_DIRS})
list(APPEND Caffe2_DEPENDENCY_LIBS foxi_loader)
diff --git a/cmake/External/nnpack.cmake b/cmake/External/nnpack.cmake
index a41343cb..6075bdd0 100644
--- a/cmake/External/nnpack.cmake
+++ b/cmake/External/nnpack.cmake
@@ -40,7 +40,7 @@ endif()
# (3) Android, iOS, Linux, macOS - supported
##############################################################################
-if(ANDROID OR IOS OR ${CMAKE_SYSTEM_NAME} STREQUAL "Linux" OR ${CMAKE_SYSTEM_NAME} STREQUAL "Darwin")
+if(FALSE)
message(STATUS "Brace yourself, we are building NNPACK")
set(CAFFE2_THIRD_PARTY_ROOT ${PROJECT_SOURCE_DIR}/third_party)
@@ -114,6 +114,5 @@ endif()
# (4) Catch-all: not supported.
##############################################################################
-message(WARNING "Unknown platform - I don't know how to build NNPACK. "
- "See cmake/External/nnpack.cmake for details.")
-set(USE_NNPACK OFF)
+set(NNPACK_FOUND TRUE)
+set(USE_NNPACK ON)
diff --git a/test/cpp/c10d/CMakeLists.txt b/test/cpp/c10d/CMakeLists.txt
index bf91460c..ef56948f 100644
--- a/test/cpp/c10d/CMakeLists.txt
+++ b/test/cpp/c10d/CMakeLists.txt
@@ -16,14 +16,14 @@ function(c10d_add_test test_src)
add_test(NAME ${test_name} COMMAND $<TARGET_FILE:${test_name}>)
endfunction()
-c10d_add_test(FileStoreTest.cpp torch_cpu gtest_main)
-c10d_add_test(TCPStoreTest.cpp torch_cpu gtest_main)
+c10d_add_test(FileStoreTest.cpp torch_cpu gtest_main gtest)
+c10d_add_test(TCPStoreTest.cpp torch_cpu gtest_main gtest)
if(INSTALL_TEST)
install(TARGETS FileStoreTest DESTINATION bin)
install(TARGETS TCPStoreTest DESTINATION bin)
endif()
if(NOT WIN32)
- c10d_add_test(HashStoreTest.cpp torch_cpu gtest_main)
+ c10d_add_test(HashStoreTest.cpp torch_cpu gtest_main gtest)
if(INSTALL_TEST)
install(TARGETS HashStoreTest DESTINATION bin)
endif()
@@ -31,11 +31,11 @@ endif()
if(USE_CUDA)
if(USE_GLOO AND USE_C10D_GLOO)
- c10d_add_test(ProcessGroupGlooTest.cpp torch_cpu c10d_cuda_test gtest_main)
+ c10d_add_test(ProcessGroupGlooTest.cpp torch_cpu c10d_cuda_test gtest_main gtest)
if(INSTALL_TEST)
install(TARGETS ProcessGroupGlooTest DESTINATION bin)
endif()
- c10d_add_test(ProcessGroupGlooAsyncTest.cpp torch_cpu c10d_cuda_test gtest_main)
+ c10d_add_test(ProcessGroupGlooAsyncTest.cpp torch_cpu c10d_cuda_test gtest_main gtest)
endif()
if(USE_NCCL AND USE_C10D_NCCL)
# NCCL is a private dependency of libtorch, but the tests include some
@@ -56,7 +56,7 @@ if(USE_CUDA)
endif()
else()
if(USE_GLOO AND USE_C10D_GLOO)
- c10d_add_test(ProcessGroupGlooTest.cpp torch_cpu gtest_main)
+ c10d_add_test(ProcessGroupGlooTest.cpp torch_cpu gtest_main gtest)
endif()
endif()
diff --git a/test/cpp/tensorexpr/CMakeLists.txt b/test/cpp/tensorexpr/CMakeLists.txt
index 8fc5a0a1..643202f6 100644
--- a/test/cpp/tensorexpr/CMakeLists.txt
+++ b/test/cpp/tensorexpr/CMakeLists.txt
@@ -53,7 +53,7 @@ target_include_directories(tutorial_tensorexpr PRIVATE ${ATen_CPU_INCLUDE})
# pthreadpool header. For some build environment we need add the dependency
# explicitly.
if(USE_PTHREADPOOL)
- target_link_libraries(test_tensorexpr PRIVATE pthreadpool_interface)
+ target_link_libraries(test_tensorexpr PRIVATE pthreadpool)
endif()
if(USE_CUDA)
target_link_libraries(test_tensorexpr PRIVATE

39
gnu/packages/patches/transmission-4.0.5-fix-build.patch Normal file
View file

@ -0,0 +1,39 @@
Fix the build with gtkmm 4:
https://github.com/transmission/transmission/issues/6392
Patch copied from upstream source repository:
https://github.com/transmission/transmission/commit/e116672b27b314d54514c96b1fa7aef1dee900b1
From e116672b27b314d54514c96b1fa7aef1dee900b1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?C=C5=93ur?= <coeur@gmx.fr>
Date: Sun, 17 Dec 2023 16:37:35 +0100
Subject: [PATCH] fix: build error on GTKMM-4 (#6393)
---
gtk/OptionsDialog.cc | 11 ++++++++++-
1 file changed, 10 insertions(+), 1 deletion(-)
diff --git a/gtk/OptionsDialog.cc b/gtk/OptionsDialog.cc
index 08198540c10..8c28fc76f98 100644
--- a/gtk/OptionsDialog.cc
+++ b/gtk/OptionsDialog.cc
@@ -338,7 +338,16 @@ void TorrentFileChooserDialog::onOpenDialogResponse(int response, Glib::RefPtr<S
bool const do_prompt = get_choice(std::string(ShowOptionsDialogChoice)) == "true";
bool const do_notify = false;
- auto const files = IF_GTKMM4(get_files2, get_files)();
+#if GTKMM_CHECK_VERSION(4, 0, 0)
+ auto files = std::vector<Glib::RefPtr<Gio::File>>();
+ auto files_model = get_files();
+ for (auto i = guint{ 0 }; i < files_model->get_n_items(); ++i)
+ {
+ files.push_back(gtr_ptr_dynamic_cast<Gio::File>(files_model->get_object(i)));
+ }
+#else
+ auto const files = get_files();
+#endif
g_assert(!files.empty());
/* remember this folder the next time we use this dialog */

2660
gnu/packages/patches/xnnpack-for-torch2-system-libraries.patch Normal file
View file

File diff suppressed because it is too large Load diff

4
gnu/packages/protobuf.scm
View file

@ -429,14 +429,14 @@ from protobuf specification files.")
(define-public python-protobuf (define-public python-protobuf
(package (package
(name "python-protobuf") (name "python-protobuf")
(version "3.20.1") (version "3.20.2")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "protobuf" version)) (uri (pypi-uri "protobuf" version))
(sha256 (sha256
(base32 (base32
"1ja2vpk9nklllmsirmil2s4l7ni9yfqvbvj47zz5xx17s1k1bhxd")))) "0l0p2lczs5iahgkhzm3298pjl49bk9iiwngkglg7ll7fkqqwlbbi"))))
(build-system python-build-system) (build-system python-build-system)
(inputs (list protobuf)) (inputs (list protobuf))
(arguments (arguments

27
gnu/packages/python-xyz.scm
View file

@ -5935,7 +5935,6 @@ flexibility and power of the Python language.")
(string-append "-Wl," "-rpath=" python "/lib") (string-append "-Wl," "-rpath=" python "/lib")
"-fno-semantic-interposition" "-fno-semantic-interposition"
"build/temp/tree/tree.o" "build/temp/tree/tree.o"
"-Wl,--whole-archive"
"-L" (string-append python "/lib") "-L" (string-append python "/lib")
(string-append abseil-cpp "/lib/libabsl_int128.a") (string-append abseil-cpp "/lib/libabsl_int128.a")
(string-append abseil-cpp "/lib/libabsl_raw_hash_set.a") (string-append abseil-cpp "/lib/libabsl_raw_hash_set.a")
@ -5943,7 +5942,6 @@ flexibility and power of the Python language.")
(string-append abseil-cpp "/lib/libabsl_strings.a") (string-append abseil-cpp "/lib/libabsl_strings.a")
(string-append abseil-cpp "/lib/libabsl_strings_internal.a") (string-append abseil-cpp "/lib/libabsl_strings_internal.a")
(string-append abseil-cpp "/lib/libabsl_throw_delegate.a") (string-append abseil-cpp "/lib/libabsl_throw_delegate.a")
"-Wl,--no-whole-archive"
"-o" "build/lib/tree/_tree.so"))))))) "-o" "build/lib/tree/_tree.so")))))))
(home-page "https://github.com/deepmind/tree") (home-page "https://github.com/deepmind/tree")
(synopsis "Work with nested data structures in Python") (synopsis "Work with nested data structures in Python")
@ -20288,6 +20286,31 @@ etc.")
support.") support.")
(license license:bsd-3))) (license license:bsd-3)))
(define-public python-pymemcache
(package
(name "python-pymemcache")
(version "4.0.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "pymemcache" version))
(sha256
(base32 "157z9blr8pjg9x84jph5hm0z2l6yaq6n421jcf1hzqn1pg8rpgr7"))))
(build-system pyproject-build-system)
(arguments
;; We don't have the zstd module.
(list
#:test-flags
'(list "--ignore=pymemcache/test/test_compression.py")))
(native-inputs
(list python-faker python-pytest python-pytest-cov))
(home-page "https://github.com/pinterest/pymemcache")
(synopsis "Comprehensive, fast, pure Python memcached client")
(description
"This package provides a comprehensive, fast, pure Python memcached
client.")
(license license:asl2.0)))
(define-public python-pymodbus (define-public python-pymodbus
(package (package
(name "python-pymodbus") (name "python-pymodbus")

48
gnu/packages/statistics.scm
View file

@ -716,13 +716,13 @@ nonlinear mixed-effects models.")
(define-public r-mgcv (define-public r-mgcv
(package (package
(name "r-mgcv") (name "r-mgcv")
(version "1.9-0") (version "1.9-1")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "mgcv" version)) (uri (cran-uri "mgcv" version))
(sha256 (sha256
(base32 "0w1v0hdswb332xz3br1fcgacib7ddr4hb96cmlycxcpqq5w01cdj")))) (base32 "0cnvbdda243as2bxfsgnnk7xjmp1msgr9i4vbd84jfnxpqvvq3vh"))))
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
(list r-matrix r-nlme)) (list r-matrix r-nlme))
@ -1178,14 +1178,14 @@ solution for sending email, including attachments, from within R.")
(define-public r-stringi (define-public r-stringi
(package (package
(name "r-stringi") (name "r-stringi")
(version "1.8.2") (version "1.8.3")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "stringi" version)) (uri (cran-uri "stringi" version))
(sha256 (sha256
(base32 (base32
"0bd7x9gl0rhpkpdi9j7a449dw2xsgczgbdj600658z5b6wq25l3a")))) "09a964g8q3iphq24ln9c9g5158ynr75pfh3ghddarn0xvn7bw0hn"))))
(build-system r-build-system) (build-system r-build-system)
(inputs (list icu4c)) (inputs (list icu4c))
(native-inputs (list pkg-config)) (native-inputs (list pkg-config))
@ -1408,13 +1408,13 @@ evaluation (NSE) in R.")
(define-public r-dbi (define-public r-dbi
(package (package
(name "r-dbi") (name "r-dbi")
(version "1.1.3") (version "1.2.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "DBI" version)) (uri (cran-uri "DBI" version))
(sha256 (sha256
(base32 (base32
"13a2656w5j9shpcwa7gj2szy7nk9sajjhlisi5wdpgd57msk7frq")))) "1g4c2qfyjwbjwbsczhk83xmx74764nn53gnqzb6xxrwqjbxj4dpn"))))
(build-system r-build-system) (build-system r-build-system)
(native-inputs (native-inputs
(list r-knitr)) (list r-knitr))
@ -1560,13 +1560,13 @@ syntax that can be converted to XHTML or other formats.")
(define-public r-yaml (define-public r-yaml
(package (package
(name "r-yaml") (name "r-yaml")
(version "2.3.7") (version "2.3.8")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "yaml" version)) (uri (cran-uri "yaml" version))
(sha256 (sha256
(base32 (base32
"1aw0cvaqw8a0d1r3cplj5kiabkcyz8fghcpi0ax8mi7rw0cv436j")))) "1n1zlbnq3ldipnnm08whpvm8r21vxg4c9jzg7x7j3blw2pi7kl4y"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "https://cran.r-project.org/web/packages/yaml/") (home-page "https://cran.r-project.org/web/packages/yaml/")
(synopsis "Methods to convert R data to YAML and back") (synopsis "Methods to convert R data to YAML and back")
@ -2738,13 +2738,13 @@ SLURM and Sun Grid Engine. Multicore and SSH systems are also supported.")
(define-public r-brew (define-public r-brew
(package (package
(name "r-brew") (name "r-brew")
(version "1.0-8") (version "1.0-10")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "brew" version)) (uri (cran-uri "brew" version))
(sha256 (sha256
(base32 (base32
"09kq14nbaw0mmpb2vbfklz786q6lyizzkyg5bg64bmj2f1d2sr8i")))) "13x3vnrhfcvr479r4dya61a5vcky2gb4kv2xbivy0ah39qrzg0a1"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "https://cran.r-project.org/web/packages/brew") (home-page "https://cran.r-project.org/web/packages/brew")
(synopsis "Templating framework for report generation") (synopsis "Templating framework for report generation")
@ -3535,14 +3535,14 @@ statements.")
(define-public r-segmented (define-public r-segmented
(package (package
(name "r-segmented") (name "r-segmented")
(version "2.0-0") (version "2.0-1")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "segmented" version)) (uri (cran-uri "segmented" version))
(sha256 (sha256
(base32 (base32
"1j7flzav26ldhg50gzcx8azfh9sx4ay30g75ipq56vqibzc33fwd")))) "0r3l39sihncrmhs6y3nydr6izp5ss86rfwjyhwf2x0clvqq2gkz9"))))
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (list r-mass r-nlme)) (propagated-inputs (list r-mass r-nlme))
(home-page "https://cran.r-project.org/web/packages/segmented") (home-page "https://cran.r-project.org/web/packages/segmented")
@ -4402,13 +4402,13 @@ t-probabilities, quantiles, random deviates and densities.")
(define-public r-matrixstats (define-public r-matrixstats
(package (package
(name "r-matrixstats") (name "r-matrixstats")
(version "1.1.0") (version "1.2.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "matrixStats" version)) (uri (cran-uri "matrixStats" version))
(sha256 (sha256
(base32 (base32
"0h85hjvsmc8s3hyjdj83fykb2vl8jc7pb9ynp2xsl0q9v1sihrxl")))) "0ws5lmzqm42vrn5791l21zr05l78x0xi6b89jw0gi0vjb4pc20z4"))))
(properties `((upstream-name . "matrixStats"))) (properties `((upstream-name . "matrixStats")))
(build-system r-build-system) (build-system r-build-system)
(arguments (arguments
@ -5190,13 +5190,13 @@ with alternating row colors) in LaTeX and HTML formats easily from
(define-public r-vipor (define-public r-vipor
(package (package
(name "r-vipor") (name "r-vipor")
(version "0.4.5") (version "0.4.7")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "vipor" version)) (uri (cran-uri "vipor" version))
(sha256 (sha256
(base32 (base32
"112gc0d7f8iavgf56pnzfxb7hy75yhd0zlyjzshdcfbnqcd2a6bx")))) "17hb6y1i9bva0fr4k9m6wncmnzdjad1b7fhsvfhva4xavpll3bds"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "https://cran.r-project.org/web/packages/vipor") (home-page "https://cran.r-project.org/web/packages/vipor")
(synopsis "Plot categorical data using noise and density estimates") (synopsis "Plot categorical data using noise and density estimates")
@ -5391,14 +5391,14 @@ Farebrother's algorithm or Liu et al.'s algorithm.")
(define-public r-cowplot (define-public r-cowplot
(package (package
(name "r-cowplot") (name "r-cowplot")
(version "1.1.1") (version "1.1.2")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "cowplot" version)) (uri (cran-uri "cowplot" version))
(sha256 (sha256
(base32 (base32
"0j7d5vhzdxn1blrsfafx5z8lhq122rp8230hp9czrpsnnhjydp67")))) "1ppsg3rbqz9a16zq87izdj5w8ylb6jb6v13xb01k7m3n2h4mv4f6"))))
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
(list r-ggplot2 r-gtable r-rlang r-scales)) (list r-ggplot2 r-gtable r-rlang r-scales))
@ -5779,14 +5779,14 @@ of the points.")
(define-public r-fpc (define-public r-fpc
(package (package
(name "r-fpc") (name "r-fpc")
(version "2.2-10") (version "2.2-11")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "fpc" version)) (uri (cran-uri "fpc" version))
(sha256 (sha256
(base32 (base32
"1lj7j74yx747iic1hcngzbym0sqxppja8bxw64m0j6na5s7m9d4r")))) "06j1dzlf96qcaiqg8m5iah9rmwdppky04xjhs8k4rh0k12wr0mc2"))))
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
(list r-class (list r-class
@ -6448,7 +6448,7 @@ can load multiple parameters to the current environment.")
(license license:gpl3+)))) (license license:gpl3+))))
(define-public r-tgutil (define-public r-tgutil
(let ((commit "0e4a2e84e5cf1f74bc66df0a3d8eac89633fd7b1") (let ((commit "db4ff8b98082f8e4dbdeacb452641d215fd3c7ff")
(revision "1")) (revision "1"))
(package (package
(name "r-tgutil") (name "r-tgutil")
@ -6461,7 +6461,7 @@ can load multiple parameters to the current environment.")
(commit commit))) (commit commit)))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "0pmacpzhrigprlpl8b5j4xz7l110ifw98017xwk569dghbf8zrq1")))) (base32 "00rsqs7f896piywh84jr8fkphbbx4jb7radf6znhhj6fip63yn91"))))
(properties `((upstream-name . "tgutil"))) (properties `((upstream-name . "tgutil")))
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (list r-broom (propagated-inputs (list r-broom
@ -6481,7 +6481,9 @@ can load multiple parameters to the current environment.")
r-tidyr)) r-tidyr))
(home-page "https://github.com/tanaylab/tgutil") (home-page "https://github.com/tanaylab/tgutil")
(synopsis "Simple utility functions for Tanay lab code") (synopsis "Simple utility functions for Tanay lab code")
(description "Shared utility functions for multiple Tanay lab packages.") (description
"This package provides simple utility functions that are shared
across several packages maintained by the Tanay lab.")
(license license:gpl3)))) (license license:gpl3))))
(define-public r-catterplots (define-public r-catterplots

1
gnu/packages/uucp.scm
View file

@ -19,6 +19,7 @@
(define-module (gnu packages uucp) (define-module (gnu packages uucp)
#:use-module (gnu packages golang) #:use-module (gnu packages golang)
#:use-module (gnu packages golang-web)
#:use-module (gnu packages texinfo) #:use-module (gnu packages texinfo)
#:use-module (guix licenses) #:use-module (guix licenses)
#:use-module (guix packages) #:use-module (guix packages)

5
gnu/packages/version-control.scm
View file

@ -107,6 +107,7 @@
#:use-module (gnu packages gnupg) #:use-module (gnu packages gnupg)
#:use-module (gnu packages golang) #:use-module (gnu packages golang)
#:use-module (gnu packages golang-check) #:use-module (gnu packages golang-check)
#:use-module (gnu packages golang-web)
#:use-module (gnu packages groff) #:use-module (gnu packages groff)
#:use-module (gnu packages guile) #:use-module (gnu packages guile)
#:use-module (gnu packages guile-xyz) #:use-module (gnu packages guile-xyz)
@ -1440,7 +1441,7 @@ management by roles and individual account maintenance.")
(define-public shflags (define-public shflags
(package (package
(name "shflags") (name "shflags")
(version "1.2.3") (version "1.3.0")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
@ -1449,7 +1450,7 @@ management by roles and individual account maintenance.")
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"1ydx0sb6vz9s2dgp5bd64y7fpzh9qvmlfjxrbmzac8saknijrlly")))) "0jj0zkly8yg42b8jvih2cmmafv95vm8mv80n3dyalvr5i14lzqd8"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:tests? #f ; no tests `(#:tests? #f ; no tests

55
gnu/packages/vim.scm
View file

@ -470,11 +470,13 @@ trouble using them, because you do not have to remember each snippet name.")
"0av2m075n6z05ah9ndrgnp9s16yrz6n2lj0igd9fh3c5k41x5xks")))) "0av2m075n6z05ah9ndrgnp9s16yrz6n2lj0igd9fh3c5k41x5xks"))))
(build-system vim-build-system) (build-system vim-build-system)
(arguments (arguments
'(#:plugin-name "coqtail" `(#:plugin-name "coqtail"
#:vim ,vim-full ; Plugin needs Python 3.
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'install 'check (add-before 'install 'check
(lambda* (#:key inputs native-inputs tests? #:allow-other-keys) (lambda* (#:key inputs native-inputs tests? vim? neovim?
#:allow-other-keys)
(when tests? (when tests?
(display "Running Python unit tests.\n") (display "Running Python unit tests.\n")
(setenv "PYTHONPATH" (string-append (getcwd) "/python")) (setenv "PYTHONPATH" (string-append (getcwd) "/python"))
@ -488,23 +490,27 @@ trouble using them, because you do not have to remember each snippet name.")
"vim-vader")) "vim-vader"))
(vader-path (string-append (vader-path (string-append
vim-vader vim-vader
"/share/vim/vimfiles/pack/guix/start/vader"))) (if vim?
"/share/vim/vimfiles"
"/share/nvim/site")
"/pack/guix/start/vader"))
(command `(,@(if vim? '("vim" "-E") '())
,@(if neovim? '("nvim" "--headless") '())
"-Nu" "vimrc"
"-c" "Vader! *.vader")))
(with-directory-excursion "tests/vim" (with-directory-excursion "tests/vim"
(when neovim?
(setenv "HOME" (getcwd)))
(setenv "VADER_PATH" vader-path) (setenv "VADER_PATH" vader-path)
(invoke (string-append (apply invoke command)))
(assoc-ref (or native-inputs inputs) "vim-full")
"/bin/vim")
"-E" "-Nu" "vimrc"
"-c" "Vader! *.vader")))
;; Remove __pycache__ files generated during testing so that ;; Remove __pycache__ files generated during testing so that
;; they don't get installed. ;; they don't get installed.
(delete-file-recursively "python/__pycache__"))))))) (delete-file-recursively "python/__pycache__")))))))
(native-inputs (native-inputs
`(("coq-for-coqtail" ,coq-for-coqtail) (list coq-for-coqtail
("python-pytest" ,python-pytest) python-pytest
("vim-full" ,vim-full) ; Plugin needs Python 3. vim-vader))
("vim-vader" ,vim-vader)))
(propagated-inputs (list coq coq-ide-server)) (propagated-inputs (list coq coq-ide-server))
(synopsis "Interactive Coq proofs in Vim") (synopsis "Interactive Coq proofs in Vim")
(description "Coqtail enables interactive Coq proof development in Vim (description "Coqtail enables interactive Coq proof development in Vim
@ -512,6 +518,18 @@ similar to CoqIDE or ProofGeneral.")
(home-page "https://github.com/whonore/Coqtail") (home-page "https://github.com/whonore/Coqtail")
(license license:expat)))) (license license:expat))))
(define-public neovim-coqtail
(package
(inherit vim-coqtail)
(name "neovim-coqtail")
(synopsis "Interactive Coq proofs in Neovim")
(description "Coqtail enables interactive Coq proof development in Neovim
similar to CoqIDE or ProofGeneral.")
(native-inputs
(modify-inputs (package-native-inputs vim-coqtail)
(replace "vim-vader" neovim-vader)
(append python-minimal python-pynvim)))))
(define-public vim-fugitive (define-public vim-fugitive
(package (package
(name "vim-fugitive") (name "vim-fugitive")
@ -1509,7 +1527,7 @@ operations are available for most filetypes.")
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'install 'check (add-before 'install 'check
(lambda* (#:key tests? #:allow-other-keys) (lambda* (#:key tests? vim? neovim? #:allow-other-keys)
(when tests? (when tests?
;; FIXME: suite1.vader fails with an unknown reason, ;; FIXME: suite1.vader fails with an unknown reason,
;; lang-if.vader requires Python and Ruby. ;; lang-if.vader requires Python and Ruby.
@ -1519,9 +1537,11 @@ operations are available for most filetypes.")
(display "Running Vim tests\n") (display "Running Vim tests\n")
(with-directory-excursion "test" (with-directory-excursion "test"
(setenv "VADER_TEST_VIM" "vim -E") (when vim?
(setenv "VADER_TEST_VIM" "vim -E"))
(when neovim?
(setenv "VADER_TEST_VIM" "nvim --headless"))
(invoke "bash" "./run-tests.sh")))))))) (invoke "bash" "./run-tests.sh"))))))))
(native-inputs (list vim))
(home-page "https://github.com/junegunn/vader.vim") (home-page "https://github.com/junegunn/vader.vim")
(synopsis "Test framework for Vimscript") (synopsis "Test framework for Vimscript")
(description "Vader is a test framework for Vimscript designed to (description "Vader is a test framework for Vimscript designed to
@ -1531,6 +1551,11 @@ be integrated with @acronym{CI, Continuous Integration} pipelines to
automate testing and is compatible with Vim and Neovim.") automate testing and is compatible with Vim and Neovim.")
(license license:expat)))) ;; Specified in README.md. (license license:expat)))) ;; Specified in README.md.
(define-public neovim-vader
(package
(inherit vim-vader)
(name "neovim-vader")))
(define-public vim-jedi-vim (define-public vim-jedi-vim
(package (package
(name "vim-jedi-vim") (name "vim-jedi-vim")

7
gnu/packages/vulkan.scm
View file

@ -6,6 +6,7 @@
;;; Copyright © 2021 Mathieu Othacehe <othacehe@gnu.org> ;;; Copyright © 2021 Mathieu Othacehe <othacehe@gnu.org>
;;; Copyright © 2022 Kaelyn Takata <kaelyn.alexi@protonmail.com> ;;; Copyright © 2022 Kaelyn Takata <kaelyn.alexi@protonmail.com>
;;; Copyright © 2022 dan <i@dan.games> ;;; Copyright © 2022 dan <i@dan.games>
;;; Copyright © 2023 Zheng Junjie <873216071@qq.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -270,7 +271,9 @@ interpretation of the specifications for these languages.")
(dirname (dirname (dirname (dirname
(search-input-directory (search-input-directory
%build-inputs "include/vulkan")))) %build-inputs "include/vulkan"))))
"-DBUILD_TESTS=ON") #$@(if (%current-target-system)
#~("-DBUILD_TESTS=OFF" "-DUSE_GAS=OFF")
#~("-DBUILD_TESTS=ON")))
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'fix-pkg-config-file (add-after 'unpack 'fix-pkg-config-file
@ -299,7 +302,7 @@ interpretation of the specifications for these languages.")
python python
wayland)) wayland))
(inputs (inputs
(list vulkan-headers)) (list vulkan-headers libxrandr))
(home-page (home-page
"https://github.com/KhronosGroup/Vulkan-Loader") "https://github.com/KhronosGroup/Vulkan-Loader")
(synopsis "Khronos official ICD loader and validation layers for Vulkan") (synopsis "Khronos official ICD loader and validation layers for Vulkan")

5
gnu/packages/web.scm
View file

@ -142,6 +142,7 @@
#:use-module (gnu packages gnunet) #:use-module (gnu packages gnunet)
#:use-module (gnu packages gnupg) #:use-module (gnu packages gnupg)
#:use-module (gnu packages golang) #:use-module (gnu packages golang)
#:use-module (gnu packages golang-web)
#:use-module (gnu packages gperf) #:use-module (gnu packages gperf)
#:use-module (gnu packages graphviz) #:use-module (gnu packages graphviz)
#:use-module (gnu packages gtk) #:use-module (gnu packages gtk)
@ -5159,7 +5160,7 @@ It uses the uwsgi protocol for all the networking/interprocess communications.")
(define-public jq (define-public jq
(package (package
(name "jq") (name "jq")
(version "1.7") (version "1.7.1")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -5167,7 +5168,7 @@ It uses the uwsgi protocol for all the networking/interprocess communications.")
"/releases/download/jq-" version "/releases/download/jq-" version
"/jq-" version ".tar.gz")) "/jq-" version ".tar.gz"))
(sha256 (sha256
(base32 "0qnv8k9x8i6i24n9vx3cxgw0yjj1411silc4wksfcinrfmlhsaj0")) (base32 "1hl0wppdwwrqf3gzg3xwc260s7i1br2lnc97zr1k8bpx56hrr327"))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet (snippet
;; Remove bundled onigurama. ;; Remove bundled onigurama.

105
gnu/packages/wine.scm
View file

@ -304,7 +304,7 @@ integrate Windows applications into your desktop.")
(define-public wine-staging-patchset-data (define-public wine-staging-patchset-data
(package (package
(name "wine-staging-patchset-data") (name "wine-staging-patchset-data")
(version "8.0") (version "8.18")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -313,10 +313,10 @@ integrate Windows applications into your desktop.")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "11q9fa1jdrv1pd9piaicgqvidq1c08imkwpqhyzcj5r711rl7581")))) (base32 "0qabyw5139xdfsvzbwbrn1nnqssgwk8mn88mxnq2cdkk9gbjvq56"))))
(build-system trivial-build-system) (build-system trivial-build-system)
(native-inputs (native-inputs
(list bash coreutils)) (list coreutils))
(arguments (arguments
`(#:modules ((guix build utils)) `(#:modules ((guix build utils))
#:builder #:builder
@ -324,16 +324,12 @@ integrate Windows applications into your desktop.")
(use-modules (guix build utils)) (use-modules (guix build utils))
(let* ((build-directory ,(string-append name "-" version)) (let* ((build-directory ,(string-append name "-" version))
(source (assoc-ref %build-inputs "source")) (source (assoc-ref %build-inputs "source"))
(bash (assoc-ref %build-inputs "bash"))
(coreutils (assoc-ref %build-inputs "coreutils")) (coreutils (assoc-ref %build-inputs "coreutils"))
(out (assoc-ref %outputs "out")) (out (assoc-ref %outputs "out"))
(wine-staging (string-append out "/share/wine-staging"))) (wine-staging (string-append out "/share/wine-staging")))
(copy-recursively source build-directory) (copy-recursively source build-directory)
(with-directory-excursion build-directory (with-directory-excursion build-directory
(substitute* "patches/patchinstall.sh" (substitute* '("patches/gitapply.sh" "staging/patchinstall.py")
(("/bin/sh")
(string-append bash "/bin/sh")))
(substitute* "patches/gitapply.sh"
(("/usr/bin/env") (("/usr/bin/env")
(string-append coreutils "/bin/env")))) (string-append coreutils "/bin/env"))))
(copy-recursively build-directory wine-staging) (copy-recursively build-directory wine-staging)
@ -363,7 +359,7 @@ integrate Windows applications into your desktop.")
"wine-" wine-version ".tar.xz")) "wine-" wine-version ".tar.xz"))
(file-name (string-append name "-" wine-version ".tar.xz")) (file-name (string-append name "-" wine-version ".tar.xz"))
(sha256 (sha256
(base32 "0bkr3klvjy8h4djddr31fvapsi9pc2rsiyhaa7j1lwpq704w4wh2"))))) (base32 "1nv06awb3hv26v64nqnks9yiz7w368scxznj77vxa3zpmhafzyih")))))
(inputs (modify-inputs (package-inputs wine) (inputs (modify-inputs (package-inputs wine)
(prepend autoconf ; for autoreconf (prepend autoconf ; for autoreconf
ffmpeg ffmpeg
@ -373,6 +369,9 @@ integrate Windows applications into your desktop.")
python python
util-linux ; for hexdump util-linux ; for hexdump
wine-staging-patchset-data))) wine-staging-patchset-data)))
(native-inputs
(modify-inputs (package-native-inputs wine)
(prepend python-3)))
(arguments (arguments
(substitute-keyword-arguments (package-arguments wine) (substitute-keyword-arguments (package-arguments wine)
((#:phases phases) ((#:phases phases)
@ -382,7 +381,7 @@ integrate Windows applications into your desktop.")
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(invoke (search-input-file (invoke (search-input-file
inputs inputs
"/share/wine-staging/patches/patchinstall.sh") "/share/wine-staging/staging/patchinstall.py")
"DESTDIR=." "DESTDIR=."
"--all"))) "--all")))
(add-after 'apply-wine-staging-patches 'patch-SHELL (add-after 'apply-wine-staging-patches 'patch-SHELL
@ -417,7 +416,7 @@ integrated into the main branch.")
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(invoke (search-input-file (invoke (search-input-file
inputs inputs
"/share/wine-staging/patches/patchinstall.sh") "/share/wine-staging/staging/patchinstall.py")
"DESTDIR=." "DESTDIR=."
"--all"))) "--all")))
(add-after 'apply-wine-staging-patches 'patch-SHELL (add-after 'apply-wine-staging-patches 'patch-SHELL
@ -425,87 +424,3 @@ integrated into the main branch.")
(synopsis "Implementation of the Windows API (staging branch, WoW64 (synopsis "Implementation of the Windows API (staging branch, WoW64
version)") version)")
(supported-systems '("x86_64-linux" "aarch64-linux")))) (supported-systems '("x86_64-linux" "aarch64-linux"))))
(define dxvk32
;; This package provides 32-bit dxvk libraries on 64-bit systems.
(package
(name "dxvk32")
(version "1.5.5")
(home-page "https://github.com/doitsujin/dxvk/")
(source (origin
(method git-fetch)
(uri (git-reference
(url home-page)
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1inl0qswgvbp0fs76md86ilqf9mbshkpjm8ga81khn9zd6v3fvan"))))
(build-system meson-build-system)
(arguments
`(#:system "i686-linux"
#:configure-flags (list "--cross-file"
(string-append (assoc-ref %build-inputs "source")
"/build-wine32.txt"))))
(native-inputs
`(("glslang" ,glslang)))
(inputs
`(("wine" ,wine-staging)))
(synopsis "Vulkan-based D3D9, D3D10 and D3D11 implementation for Wine")
(description "A Vulkan-based translation layer for Direct3D 9/10/11 which
allows running complex 3D applications with high performance using Wine.
Use @command{setup_dxvk} to install the required libraries to a Wine prefix.")
(supported-systems '("x86_64-linux"))
(license license:zlib)))
(define-public dxvk
(package
(inherit dxvk32)
(name "dxvk")
(arguments
`(#:configure-flags (list "--cross-file"
(string-append (assoc-ref %build-inputs "source")
"/build-wine"
,(match (%current-system)
("x86_64-linux" "64")
(_ "32"))
".txt"))
#:phases
(modify-phases %standard-phases
,@(if (string=? (%current-system) "x86_64-linux")
`((add-after 'unpack 'install-32
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(dxvk32 (assoc-ref inputs "dxvk32")))
(mkdir-p (string-append out "/lib32"))
(copy-recursively (string-append dxvk32 "/lib")
(string-append out "/lib32"))
#t))))
'())
(add-after 'install 'install-setup
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin/setup_dxvk")))
(mkdir-p (string-append out "/bin"))
(copy-file "../source/setup_dxvk.sh"
bin)
(chmod bin #o755)
(substitute* bin
(("wine=\"wine\"")
(string-append "wine=" (assoc-ref inputs "wine") "/bin/wine"))
(("x32") ,(match (%current-system)
("x86_64-linux" "../lib32")
(_ "../lib")))
(("x64") "../lib"))))))))
(inputs
`(("wine" ,(match (%current-system)
;; ("x86_64-linux" wine64)
("x86_64-linux" wine64-staging)
;; ("x86_64-linux" mingw-w64-x86_64)
(_ wine)))
,@(match (%current-system)
("x86_64-linux"
`(("dxvk32" ,dxvk32)))
(_ '()))))
(supported-systems '("i686-linux" "x86_64-linux"))))

12
gnu/packages/wm.scm
View file

@ -41,7 +41,7 @@
;;; Copyright © 2020 B. Wilson <elaexuotee@wilsonb.com> ;;; Copyright © 2020 B. Wilson <elaexuotee@wilsonb.com>
;;; Copyright © 2020 Niklas Eklund <niklas.eklund@posteo.net> ;;; Copyright © 2020 Niklas Eklund <niklas.eklund@posteo.net>
;;; Copyright © 2020 Robert Smith <robertsmith@posteo.net> ;;; Copyright © 2020 Robert Smith <robertsmith@posteo.net>
;;; Copyright © 2021 Zheng Junjie <873216071@qq.com> ;;; Copyright © 2021, 2023 Zheng Junjie <873216071@qq.com>
;;; Copyright © 2021 Sharlatan Hellseher <sharlatanus@gmail.com> ;;; Copyright © 2021 Sharlatan Hellseher <sharlatanus@gmail.com>
;;; Copyright © 2021 qblade <qblade@protonmail.com> ;;; Copyright © 2021 qblade <qblade@protonmail.com>
;;; Copyright © 2021 lasnesne <lasnesne@lagunposprasihopre.org> ;;; Copyright © 2021 lasnesne <lasnesne@lagunposprasihopre.org>
@ -1845,8 +1845,14 @@ corners, shadows, inactive window dimming, etc.")
(sha256 (sha256
(base32 "03jrjwlwxkcyd6m9a1bbwapasnz7b7aws7h0y6jigjm4m478phv6")))) (base32 "03jrjwlwxkcyd6m9a1bbwapasnz7b7aws7h0y6jigjm4m478phv6"))))
(build-system meson-build-system) (build-system meson-build-system)
(inputs (list cairo gdk-pixbuf libxkbcommon linux-pam wayland)) (inputs (append (if (%current-target-system)
(native-inputs (list pango pkg-config scdoc wayland-protocols)) (list wayland-protocols)
'())
(list cairo gdk-pixbuf libxkbcommon linux-pam wayland)))
(native-inputs (append (if (%current-target-system)
(list pkg-config-for-build wayland)
'())
(list pango pkg-config scdoc wayland-protocols)))
(home-page "https://github.com/swaywm/sway") (home-page "https://github.com/swaywm/sway")
(synopsis "Screen locking utility for Wayland compositors") (synopsis "Screen locking utility for Wayland compositors")
(description "Swaylock is a screen locking utility for Wayland compositors.") (description "Swaylock is a screen locking utility for Wayland compositors.")

57
gnu/packages/xdisorg.scm
View file

@ -118,6 +118,7 @@
#:use-module (gnu packages gnome) #:use-module (gnu packages gnome)
#:use-module (gnu packages gtk) #:use-module (gnu packages gtk)
#:use-module (gnu packages guile) #:use-module (gnu packages guile)
#:use-module (gnu packages guile-xyz)
#:use-module (gnu packages haskell-xyz) #:use-module (gnu packages haskell-xyz)
#:use-module (gnu packages icu4c) #:use-module (gnu packages icu4c)
#:use-module (gnu packages image) #:use-module (gnu packages image)
@ -2931,6 +2932,62 @@ can optionally use some appearance settings from XSettings, tint2 and GTK.")
(home-page "https://jgmenu.github.io/") (home-page "https://jgmenu.github.io/")
(license license:gpl2))) (license license:gpl2)))
(define-public x-resize
(package
(name "x-resize")
(version "0.2")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.com/Apteryks/x-resize")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"10y2p55m5hbrma01kixsppq1a3ld0q1jk8hwx1d1jfgw9vd243j8"))))
(build-system gnu-build-system)
(arguments
(list
#:tests? #f ;no test suite
#:modules `(((guix build guile-build-system)
#:select (target-guile-effective-version))
,@%gnu-build-system-modules
(srfi srfi-26))
#:phases
(with-imported-modules `((guix build guile-build-system)
,@%gnu-build-system-modules)
#~(modify-phases %standard-phases
(add-after 'install 'wrap
(lambda* (#:key inputs #:allow-other-keys)
(let* ((version (target-guile-effective-version))
(site-ccache (string-append "/lib/guile/" version
"/site-ccache"))
(site (string-append "/share/guile/site/" version))
(dep-path
(lambda (env path)
(list env '=
(map (cut string-append <> path)
(list #$output
#$(this-package-input
"guile-lib")
#$(this-package-input
"guile-udev"))))))
(bin (string-append #$output "/bin/")))
(wrap-program (string-append bin "x-resize")
(dep-path "GUILE_LOAD_PATH" site)
(dep-path "GUILE_LOAD_COMPILED_PATH" site-ccache)
(dep-path "GUILE_EXTENSIONS_PATH" "/lib")))))))))
(native-inputs (list autoconf automake guile-3.0 pkg-config))
(inputs (list guile-lib guile-udev xrandr))
(home-page "https://gitlab.com/Apteryks/x-resize/")
(synopsis "Dynamic display resizing leveraging udev events")
(description "The @command{x-resize} command detects physical display
resolution changes via udev and invokes the @command{xrandr} command to
reconfigure the active display resolution accordingly. It can be used to
implement dynamic resize support for desktop environments that lack native
support such as Xfce.")
(license license:gpl3+)))
(define-public xwallpaper (define-public xwallpaper
(package (package
(name "xwallpaper") (name "xwallpaper")

22
gnu/packages/xorg.scm
View file

@ -5677,11 +5677,29 @@ The XCB util-keysyms module provides the following library:
"0nza1csdvvxbmk8vgv8vpmq7q8h05xrw3cfx9lwxd1hjzd47xsf6")))) "0nza1csdvvxbmk8vgv8vpmq7q8h05xrw3cfx9lwxd1hjzd47xsf6"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:configure-flags '("--disable-static"))) `(#:configure-flags '("--disable-static")
,@(if (and (%current-target-system)
(target-riscv64?))
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'update-config-scripts
(lambda* (#:key inputs native-inputs #:allow-other-keys)
;; Replace outdated config.guess and config.sub.
(for-each (lambda (file)
(install-file
(search-input-file
(or native-inputs inputs)
(string-append "/bin/" file)) "."))
'("config.guess" "config.sub"))))))
'())))
(propagated-inputs (propagated-inputs
(list libxcb)) (list libxcb))
(native-inputs (native-inputs
(list pkg-config)) (append (if (and (%current-target-system)
(target-riscv64?))
(list config)
'())
(list pkg-config)))
(home-page "https://cgit.freedesktop.org/xcb/util-renderutil/") (home-page "https://cgit.freedesktop.org/xcb/util-renderutil/")
(synopsis "Convenience functions for the Render extension") (synopsis "Convenience functions for the Render extension")
(description (description

12
gnu/services/docker.scm
View file

@ -61,6 +61,8 @@
oci-container-service-type oci-container-service-type
oci-container-shepherd-service)) oci-container-shepherd-service))
(define-maybe file-like)
(define-configuration docker-configuration (define-configuration docker-configuration
(docker (docker
(file-like docker) (file-like docker)
@ -87,6 +89,9 @@ loop-back communications.")
(environment-variables (environment-variables
(list '()) (list '())
"Environment variables to set for dockerd") "Environment variables to set for dockerd")
(config-file
(maybe-file-like)
"JSON configuration file to pass to dockerd")
(no-serialization)) (no-serialization))
(define %docker-accounts (define %docker-accounts
@ -131,7 +136,8 @@ loop-back communications.")
(enable-iptables? (docker-configuration-enable-iptables? config)) (enable-iptables? (docker-configuration-enable-iptables? config))
(environment-variables (docker-configuration-environment-variables config)) (environment-variables (docker-configuration-environment-variables config))
(proxy (docker-configuration-proxy config)) (proxy (docker-configuration-proxy config))
(debug? (docker-configuration-debug? config))) (debug? (docker-configuration-debug? config))
(config-file (docker-configuration-config-file config)))
(shepherd-service (shepherd-service
(documentation "Docker daemon.") (documentation "Docker daemon.")
(provision '(dockerd)) (provision '(dockerd))
@ -144,6 +150,10 @@ loop-back communications.")
(start #~(make-forkexec-constructor (start #~(make-forkexec-constructor
(list (string-append #$docker "/bin/dockerd") (list (string-append #$docker "/bin/dockerd")
"-p" "/var/run/docker.pid" "-p" "/var/run/docker.pid"
#$@(if (not (eq? config-file %unset-value))
(list #~(string-append
"--config-file=" #$config-file))
'())
#$@(if debug? #$@(if debug?
'("--debug" "--log-level=debug") '("--debug" "--log-level=debug")
'()) '())

28
gnu/system/examples/vm-image.tmpl
View file

@ -8,7 +8,7 @@
(use-modules (gnu) (guix) (srfi srfi-1)) (use-modules (gnu) (guix) (srfi srfi-1))
(use-service-modules desktop mcron networking spice ssh xorg sddm) (use-service-modules desktop mcron networking spice ssh xorg sddm)
(use-package-modules bootloaders certs fonts (use-package-modules bootloaders certs fonts
package-management xorg) package-management xdisorg xorg)
(define vm-image-motd (plain-file "motd" " (define vm-image-motd (plain-file "motd" "
\x1b[1;37mThis is the GNU system. Welcome!\x1b[0m \x1b[1;37mThis is the GNU system. Welcome!\x1b[0m
@ -25,18 +25,6 @@ Run '\x1b[1;37minfo guix\x1b[0m' to browse documentation.
accounts.\x1b[0m accounts.\x1b[0m
")) "))
;;; XXX: Xfce does not implement what is needed for the SPICE dynamic
;;; resolution to work (see:
;;; https://gitlab.xfce.org/xfce/xfce4-settings/-/issues/142). Workaround it
;;; by manually invoking xrandr every second.
(define auto-update-resolution-crutch
#~(job '(next-second)
(lambda ()
(setenv "DISPLAY" ":0.0")
(setenv "XAUTHORITY" "/home/guest/.Xauthority")
(execl (string-append #$xrandr "/bin/xrandr") "xrandr" "-s" "0"))
#:user "guest"))
(operating-system (operating-system
(host-name "gnu") (host-name "gnu")
(timezone "Etc/UTC") (timezone "Etc/UTC")
@ -65,7 +53,7 @@ accounts.\x1b[0m
(users (cons (user-account (users (cons (user-account
(name "guest") (name "guest")
(comment "GNU Guix Live") (comment "GNU Guix Live")
(password "") ;no password (password "") ;no password
(group "users") (group "users")
(supplementary-groups '("wheel" "netdev" (supplementary-groups '("wheel" "netdev"
"audio" "video"))) "audio" "video")))
@ -77,8 +65,13 @@ accounts.\x1b[0m
root ALL=(ALL) ALL root ALL=(ALL) ALL
%wheel ALL=NOPASSWD: ALL\n")) %wheel ALL=NOPASSWD: ALL\n"))
(packages (append (list font-bitstream-vera nss-certs) (packages
%base-packages)) (append (list font-bitstream-vera nss-certs
;; Auto-started script providing SPICE dynamic resizing for
;; Xfce (see:
;; https://gitlab.xfce.org/xfce/xfce4-settings/-/issues/142).
x-resize)
%base-packages))
(services (services
(append (list (service xfce-desktop-service-type) (append (list (service xfce-desktop-service-type)
@ -104,9 +97,6 @@ root ALL=(ALL) ALL
;; integration with the host, etc. ;; integration with the host, etc.
(service spice-vdagent-service-type) (service spice-vdagent-service-type)
(simple-service 'cron-jobs mcron-service-type
(list auto-update-resolution-crutch))
;; Use the DHCP client service rather than NetworkManager. ;; Use the DHCP client service rather than NetworkManager.
(service dhcp-client-service-type)) (service dhcp-client-service-type))

20
guix/import/cran.scm
View file

@ -85,6 +85,21 @@
(define %input-style (define %input-style
(make-parameter 'variable)) ; or 'specification (make-parameter 'variable)) ; or 'specification
(define (format-inputs inputs)
"Generate a sorted list of package inputs from a list of upstream inputs."
(map (lambda (input)
(case (%input-style)
((specification)
`(specification->package ,(upstream-input-name input)))
(else
((compose string->symbol
upstream-input-downstream-name)
input))))
(sort inputs
(lambda (a b)
(string-ci<? (upstream-input-name a)
(upstream-input-name b))))))
(define (string->licenses license-string license-prefix) (define (string->licenses license-string license-prefix)
(let ((licenses (let ((licenses
(map string-trim-both (map string-trim-both
@ -177,9 +192,7 @@ package definition."
(() (()
'()) '())
((package-inputs ...) ((package-inputs ...)
`((,input-type (list ,@(map (compose string->symbol `((,input-type (list ,@(format-inputs package-inputs)))))))
upstream-input-downstream-name)
package-inputs)))))))
(define %cran-url "https://cran.r-project.org/web/packages/") (define %cran-url "https://cran.r-project.org/web/packages/")
(define %cran-canonical-url "https://cran.r-project.org/package=") (define %cran-canonical-url "https://cran.r-project.org/package=")
@ -396,6 +409,7 @@ empty list when the FIELD cannot be found."
"gnu" "gnu"
"posix.1-2001" "posix.1-2001"
"linux" "linux"
"libR"
"none" "none"
"unix" "unix"
"windows" "windows"

2843
po/doc/guix-cookbook.de.po
View file

File diff suppressed because it is too large Load diff

31611
po/doc/guix-manual.de.po
View file

File diff suppressed because one or more lines are too long

31669
po/doc/guix-manual.fr.po
View file

File diff suppressed because one or more lines are too long

16
po/guix/de.po
View file

@ -14,7 +14,7 @@ msgstr ""
"Project-Id-Version: guix 1.2.0-pre3\n" "Project-Id-Version: guix 1.2.0-pre3\n"
"Report-Msgid-Bugs-To: bug-guix@gnu.org\n" "Report-Msgid-Bugs-To: bug-guix@gnu.org\n"
"POT-Creation-Date: 2023-06-19 03:18+0000\n" "POT-Creation-Date: 2023-06-19 03:18+0000\n"
"PO-Revision-Date: 2023-07-31 12:09+0000\n" "PO-Revision-Date: 2023-12-31 16:35+0000\n"
"Last-Translator: Florian Pelz <pelzflorian@pelzflorian.de>\n" "Last-Translator: Florian Pelz <pelzflorian@pelzflorian.de>\n"
"Language-Team: German <https://translate.fedoraproject.org/projects/guix/guix/de/>\n" "Language-Team: German <https://translate.fedoraproject.org/projects/guix/guix/de/>\n"
"Language: de\n" "Language: de\n"
@ -22,7 +22,7 @@ msgstr ""
"Content-Type: text/plain; charset=UTF-8\n" "Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n" "Content-Transfer-Encoding: 8bit\n"
"Plural-Forms: nplurals=2; plural=n != 1;\n" "Plural-Forms: nplurals=2; plural=n != 1;\n"
"X-Generator: Weblate 4.18.2\n" "X-Generator: Weblate 5.3.1\n"
"X-Bugs: Report translation errors to the Language-Team address.\n" "X-Bugs: Report translation errors to the Language-Team address.\n"
#: gnu.scm:81 #: gnu.scm:81
@ -573,7 +573,7 @@ msgstr "Als Salt-Wert muss eine Zeichenkette mit ~d Zeichen verwendet werden"
#: gnu/services/file-sharing.scm:670 #: gnu/services/file-sharing.scm:670
#, scheme-format #, scheme-format
msgid "Wait period expired; killing transmission-daemon (pid ~a).~%" msgid "Wait period expired; killing transmission-daemon (pid ~a).~%"
msgstr "Wait-period abgelaufen; transmission-daemon wird abgewürgt (PID ~a).~%" msgstr "Wait-period abgelaufen; transmission-daemon wird erzwungen beendet (PID ~a).~%"
#: gnu/services/file-sharing.scm:673 #: gnu/services/file-sharing.scm:673
msgid "" msgid ""
@ -783,7 +783,7 @@ msgstr ""
"damit das Wurzeldateisystem ohne Schreibrechte erneut eingebunden werden\n" "damit das Wurzeldateisystem ohne Schreibrechte erneut eingebunden werden\n"
"kann („Remount“), bevor ein Neustart oder Anhalten des Systems durchgeführt\n" "kann („Remount“), bevor ein Neustart oder Anhalten des Systems durchgeführt\n"
"wird. Prozesse, die ein paar Sekunden nach @code{SIGTERM} immer noch laufen,\n" "wird. Prozesse, die ein paar Sekunden nach @code{SIGTERM} immer noch laufen,\n"
"werden mit @code{SIGKILL} abgewürgt." "werden mit @code{SIGKILL} erzwungen beendet."
#: gnu/services/samba.scm:161 #: gnu/services/samba.scm:161
msgid "" msgid ""
@ -1851,7 +1851,7 @@ msgstr "Externer Befehl ~s fehlgeschlagen mit Exit-Code ~a."
#: gnu/installer/newt.scm:134 #: gnu/installer/newt.scm:134
#, scheme-format #, scheme-format
msgid "External command ~s terminated by signal ~a" msgid "External command ~s terminated by signal ~a"
msgstr "Externer Befehl ~s abgewürgt durch Signal ~a" msgstr "Externer Befehl ~s erzwungen beendet durch Signal ~a"
#: gnu/installer/newt.scm:137 #: gnu/installer/newt.scm:137
#, scheme-format #, scheme-format
@ -2807,7 +2807,7 @@ msgstr "Befehl ~s hat mit Exit-Code ~a geendet"
#: gnu/installer/utils.scm:207 #: gnu/installer/utils.scm:207
#, scheme-format #, scheme-format
msgid "Command ~s killed by signal ~a" msgid "Command ~s killed by signal ~a"
msgstr "Befehl ~s abgewürgt durch Signal ~a" msgstr "Befehl ~s erzwungen beendet durch Signal ~a"
#: gnu/installer/utils.scm:213 #: gnu/installer/utils.scm:213
#, scheme-format #, scheme-format
@ -7594,7 +7594,7 @@ msgstr "~a: Befehl wurde durch Signal ~a angehalten~%"
#: guix/scripts/deploy.scm:228 #: guix/scripts/deploy.scm:228
#, scheme-format #, scheme-format
msgid "~a: command terminated with signal ~a~%" msgid "~a: command terminated with signal ~a~%"
msgstr "~a: Befehl wurde durch Signal ~a abgewürgt~%" msgstr "~a: Befehl wurde durch Signal ~a erzwungen beendet~%"
#: guix/scripts/deploy.scm:232 #: guix/scripts/deploy.scm:232
#, scheme-format #, scheme-format
@ -7722,7 +7722,7 @@ msgstr "Kein solcher Prozess ~d~%"
#: guix/scripts/container/exec.scm:108 guix/scripts/home.scm:463 #: guix/scripts/container/exec.scm:108 guix/scripts/home.scm:463
#, scheme-format #, scheme-format
msgid "process terminated with signal ~a~%" msgid "process terminated with signal ~a~%"
msgstr "Prozess wurde durch Signal ~a abgewürgt~%" msgstr "Prozess wurde durch Signal ~a erzwungen beendet~%"
#: guix/scripts/container/exec.scm:110 guix/scripts/home.scm:465 #: guix/scripts/container/exec.scm:110 guix/scripts/home.scm:465
#, scheme-format #, scheme-format

8
po/guix/es.po
View file

@ -17,15 +17,15 @@ msgstr ""
"Project-Id-Version: guix 1.2.0-pre3\n" "Project-Id-Version: guix 1.2.0-pre3\n"
"Report-Msgid-Bugs-To: bug-guix@gnu.org\n" "Report-Msgid-Bugs-To: bug-guix@gnu.org\n"
"POT-Creation-Date: 2023-06-19 03:18+0000\n" "POT-Creation-Date: 2023-06-19 03:18+0000\n"
"PO-Revision-Date: 2023-10-23 10:36+0000\n" "PO-Revision-Date: 2023-12-08 17:44+0000\n"
"Last-Translator: Alejandro Alcaide <alex@blueselene.com>\n" "Last-Translator: Florian Pelz <pelzflorian@pelzflorian.de>\n"
"Language-Team: Spanish <https://translate.fedoraproject.org/projects/guix/guix/es/>\n" "Language-Team: Spanish <https://translate.fedoraproject.org/projects/guix/guix/es/>\n"
"Language: es\n" "Language: es\n"
"MIME-Version: 1.0\n" "MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n" "Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n" "Content-Transfer-Encoding: 8bit\n"
"Plural-Forms: nplurals=2; plural=n != 1;\n" "Plural-Forms: nplurals=2; plural=n != 1;\n"
"X-Generator: Weblate 5.0.2\n" "X-Generator: Weblate 5.2.1\n"
"X-Bugs: Report translation errors to the Language-Team address.\n" "X-Bugs: Report translation errors to the Language-Team address.\n"
#: gnu.scm:81 #: gnu.scm:81
@ -316,7 +316,7 @@ msgstr "el dispositivo mapeado '~a' puede ser soslayado por el cargador de arran
#: gnu/system.scm:665 #: gnu/system.scm:665
#, scheme-format #, scheme-format
msgid "List elements of the field 'swap-devices' should now use the <swap-space> record, as the old method is deprecated. See \"(guix) operating-system Reference\" for more details.~%" msgid "List elements of the field 'swap-devices' should now use the <swap-space> record, as the old method is deprecated. See \"(guix) operating-system Reference\" for more details.~%"
msgstr "Lista de elementos del campo 'swap-devices' que deberían usar ahora el registro <swap-space> puesto que el viejo método está obsoleto. See \"(guix) Referencia del sistema operativo\" para más detalles.~%" msgstr "Lista de elementos del campo 'swap-devices' que deberían usar ahora el registro <swap-space> puesto que el viejo método está obsoleto. See \"(guix.es) Referencia de operating-system\" para más detalles.~%"
#: gnu/system.scm:1155 #: gnu/system.scm:1155
#, scheme-format #, scheme-format

126
po/guix/it.po
View file

@ -8,21 +8,22 @@
# Tobias Geerinckx-Rice <fedora@tobias.gr>, 2023. # Tobias Geerinckx-Rice <fedora@tobias.gr>, 2023.
# Florian Pelz <pelzflorian@pelzflorian.de>, 2023. # Florian Pelz <pelzflorian@pelzflorian.de>, 2023.
# Giacomo Leidi <goodoldpaul@autistici.org>, 2023. # Giacomo Leidi <goodoldpaul@autistici.org>, 2023.
# mm mmmm <rimarko@libero.it>, 2023.
#: guix/diagnostics.scm:159 #: guix/diagnostics.scm:159
msgid "" msgid ""
msgstr "" msgstr ""
"Project-Id-Version: GNU guix\n" "Project-Id-Version: GNU guix\n"
"Report-Msgid-Bugs-To: bug-guix@gnu.org\n" "Report-Msgid-Bugs-To: bug-guix@gnu.org\n"
"POT-Creation-Date: 2023-06-19 03:18+0000\n" "POT-Creation-Date: 2023-06-19 03:18+0000\n"
"PO-Revision-Date: 2023-10-09 07:36+0000\n" "PO-Revision-Date: 2023-12-28 01:36+0000\n"
"Last-Translator: Giacomo Leidi <goodoldpaul@autistici.org>\n" "Last-Translator: mm mmmm <rimarko@libero.it>\n"
"Language-Team: Italian <https://translate.fedoraproject.org/projects/guix/guix/it/>\n" "Language-Team: Italian <https://translate.fedoraproject.org/projects/guix/guix/it/>\n"
"Language: it\n" "Language: it\n"
"MIME-Version: 1.0\n" "MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n" "Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n" "Content-Transfer-Encoding: 8bit\n"
"Plural-Forms: nplurals=2; plural=n != 1;\n" "Plural-Forms: nplurals=2; plural=n != 1;\n"
"X-Generator: Weblate 5.0.2\n" "X-Generator: Weblate 5.3\n"
#: gnu.scm:81 #: gnu.scm:81
#, scheme-format #, scheme-format
@ -4286,8 +4287,8 @@ msgid ""
"Usage: guix package [OPTION]...\n" "Usage: guix package [OPTION]...\n"
"Install, remove, or upgrade packages in a single transaction.\n" "Install, remove, or upgrade packages in a single transaction.\n"
msgstr "" msgstr ""
"Utilizzo: pacchetto giux [OPTION]...\n" "Utilizzo: guix pacchetto [OPZIONE]...\n"
"Installare, rimuovere, o aggiornare i pacchetti in una singola trascrizione.\n" "Installa, rimuovi, o aggiorna pacchetti in una singola transazione.\n"
#: guix/scripts/package.scm:431 #: guix/scripts/package.scm:431
msgid "" msgid ""
@ -4296,8 +4297,8 @@ msgid ""
" install PACKAGEs" " install PACKAGEs"
msgstr "" msgstr ""
"\n" "\n"
" -i, --installare PACKAGE ... \n" " -i, --install PACCHETTO ...\n"
" installare PACKAGEs" " installa uno o più pacchetti"
#: guix/scripts/package.scm:434 #: guix/scripts/package.scm:434
msgid "" msgid ""
@ -4307,7 +4308,7 @@ msgid ""
msgstr "" msgstr ""
"\n" "\n"
" -e, --install-from-expression=EXP\n" " -e, --install-from-expression=EXP\n"
" installa il pacchetto che EXP valuta come" " installa il pacchetto corrispondente al valore di EXP"
#: guix/scripts/package.scm:437 #: guix/scripts/package.scm:437
msgid "" msgid ""
@ -4317,9 +4318,9 @@ msgid ""
" evaluates to" " evaluates to"
msgstr "" msgstr ""
"\n" "\n"
" -f, --installazione -da-file=FILE \n" " -f, --install-from-file=FILE\n"
" installa il pacchetto il cui codice all'interno di FILE \n" " installa il pacchetto corrispondente al valore restituito\n"
" valuta a" " dal codice in FILE"
#: guix/scripts/package.scm:441 #: guix/scripts/package.scm:441
msgid "" msgid ""
@ -4328,8 +4329,8 @@ msgid ""
" remove PACKAGEs" " remove PACKAGEs"
msgstr "" msgstr ""
"\n" "\n"
" -r, --rimuovere PACKAGE ... \n" " -r, --remove PACCHETTO ...\n"
" rimiovere PACKAGEs" " rimuove uno o più pacchetti"
#: guix/scripts/package.scm:444 #: guix/scripts/package.scm:444
msgid "" msgid ""
@ -4337,7 +4338,7 @@ msgid ""
" -u, --upgrade[=REGEXP] upgrade all the installed packages matching REGEXP" " -u, --upgrade[=REGEXP] upgrade all the installed packages matching REGEXP"
msgstr "" msgstr ""
"\n" "\n"
" -u, --aggiornamento[=REGEXP] aggiornare tutti i pacchetti valutando REGEXP" " -u, --upgrade[=REGEXP] aggiorna tutti i pacchetti installati che corrispondono a REGEXP"
#: guix/scripts/package.scm:446 #: guix/scripts/package.scm:446
msgid "" msgid ""
@ -4346,8 +4347,8 @@ msgid ""
" from FILE" " from FILE"
msgstr "" msgstr ""
"\n" "\n"
" -m, --manifest=FILE creare un nuovo profilo generazione con il manifesto \n" " -m, --manifest=FILE crea una nuova generazione profilo con il manifesto \n"
" da FILE" " contenuto in FILE"
#: guix/scripts/package.scm:449 guix/scripts/upgrade.scm:41 #: guix/scripts/package.scm:449 guix/scripts/upgrade.scm:41
msgid "" msgid ""
@ -4355,7 +4356,7 @@ msgid ""
" --do-not-upgrade[=REGEXP] do not upgrade any packages matching REGEXP" " --do-not-upgrade[=REGEXP] do not upgrade any packages matching REGEXP"
msgstr "" msgstr ""
"\n" "\n"
" --do-not-upgrade[=REGEXP] non aggiornare nessun pacchetto valutando REGEXP" " --do-not-upgrade[=REGEXP] non aggiornare i pacchetti corrispondenti a REGEXP"
#: guix/scripts/package.scm:451 guix/scripts/pull.scm:105 #: guix/scripts/package.scm:451 guix/scripts/pull.scm:105
msgid "" msgid ""
@ -4363,7 +4364,7 @@ msgid ""
" --roll-back roll back to the previous generation" " --roll-back roll back to the previous generation"
msgstr "" msgstr ""
"\n" "\n"
" --roll-back tornare alla generazione precedente" " --roll-back torna alla generazione precedente"
#: guix/scripts/package.scm:453 #: guix/scripts/package.scm:453
msgid "" msgid ""
@ -4373,7 +4374,7 @@ msgid ""
msgstr "" msgstr ""
"\n" "\n"
" --search-paths[=KIND] \n" " --search-paths[=KIND] \n"
" mostrare le definizioni delle variabili necessarie" " mostra le definizioni delle variabili ambiente necessarie"
#: guix/scripts/package.scm:456 guix/scripts/pull.scm:100 #: guix/scripts/package.scm:456 guix/scripts/pull.scm:100
msgid "" msgid ""
@ -4382,8 +4383,8 @@ msgid ""
" list generations matching PATTERN" " list generations matching PATTERN"
msgstr "" msgstr ""
"\n" "\n"
" -l, --list-generations[=MUSTER] \n" " -l, --list-generations[=PATTERN] \n"
" valutare le liste generazioni PATTERN" " elenca le generazioni che corrispondono a PATTERN"
#: guix/scripts/package.scm:459 guix/scripts/pull.scm:107 #: guix/scripts/package.scm:459 guix/scripts/pull.scm:107
msgid "" msgid ""
@ -4393,7 +4394,7 @@ msgid ""
msgstr "" msgstr ""
"\n" "\n"
" -d, --delete-generations[=PATTERN] \n" " -d, --delete-generations[=PATTERN] \n"
" elimina le generazioni che corrispondono a PATTERN" " elimina le generazioni che corrispondono a PATTERN"
#: guix/scripts/package.scm:462 guix/scripts/pull.scm:110 #: guix/scripts/package.scm:462 guix/scripts/pull.scm:110
msgid "" msgid ""
@ -4403,7 +4404,7 @@ msgid ""
msgstr "" msgstr ""
"\n" "\n"
" -S, --switch-generation=PATTERN\n" " -S, --switch-generation=PATTERN\n"
" passa a una generazione corrispondente a PATTERN" " passa a una generazione corrispondente a PATTERN"
#: guix/scripts/package.scm:465 #: guix/scripts/package.scm:465
msgid "" msgid ""
@ -4419,7 +4420,7 @@ msgid ""
" --export-channels print channels for the chosen profile" " --export-channels print channels for the chosen profile"
msgstr "" msgstr ""
"\n" "\n"
" --esportazione dei canali stampa i canali per il profilo scelto" " --export-channels stampa i canali per il profilo scelto"
#: guix/scripts/package.scm:469 guix/scripts/install.scm:34 #: guix/scripts/package.scm:469 guix/scripts/install.scm:34
#: guix/scripts/remove.scm:33 guix/scripts/upgrade.scm:37 #: guix/scripts/remove.scm:33 guix/scripts/upgrade.scm:37
@ -4428,7 +4429,7 @@ msgid ""
" -p, --profile=PROFILE use PROFILE instead of the user's default profile" " -p, --profile=PROFILE use PROFILE instead of the user's default profile"
msgstr "" msgstr ""
"\n" "\n"
" -p, --profilo=PROFILE utilizzare PROFILO invece del profilo predefinito dell'utente" " -p, --profile=PROFILE usa PROFILO invece del profilo predefinito dell'utente"
#: guix/scripts/package.scm:471 #: guix/scripts/package.scm:471
msgid "" msgid ""
@ -4436,7 +4437,7 @@ msgid ""
" --list-profiles list the user's profiles" " --list-profiles list the user's profiles"
msgstr "" msgstr ""
"\n" "\n"
" --elenco-profili elenca i profili dell'utente" " --list-profiles elenca i profili dell'utente"
#: guix/scripts/package.scm:474 #: guix/scripts/package.scm:474
msgid "" msgid ""
@ -4444,7 +4445,7 @@ msgid ""
" --allow-collisions do not treat collisions in the profile as an error" " --allow-collisions do not treat collisions in the profile as an error"
msgstr "" msgstr ""
"\n" "\n"
" --ammettere- le collisioni non trattare le collisioni nel profilo come un errore" " --allow-collisions non trattare le collisioni nel profilo come un errore"
#: guix/scripts/package.scm:476 #: guix/scripts/package.scm:476
msgid "" msgid ""
@ -4452,7 +4453,7 @@ msgid ""
" --bootstrap use the bootstrap Guile to build the profile" " --bootstrap use the bootstrap Guile to build the profile"
msgstr "" msgstr ""
"\n" "\n"
" --bootstrap usa il bootstrap Guile per costruire il profilo" " --bootstrap usa il Guile di bootstrap per costruire il profilo"
#: guix/scripts/package.scm:481 #: guix/scripts/package.scm:481
msgid "" msgid ""
@ -4460,7 +4461,7 @@ msgid ""
" -s, --search=REGEXP search in synopsis and description using REGEXP" " -s, --search=REGEXP search in synopsis and description using REGEXP"
msgstr "" msgstr ""
"\n" "\n"
" -s, --search=REGEXP ricerca nella sinossi e nella descrizione utilizzando REGEXP" " -s, --search=REGEXP ricerca nella sinossi e nella descrizione usando REGEXP"
#: guix/scripts/package.scm:483 #: guix/scripts/package.scm:483
msgid "" msgid ""
@ -4469,7 +4470,7 @@ msgid ""
" list installed packages matching REGEXP" " list installed packages matching REGEXP"
msgstr "" msgstr ""
"\n" "\n"
" -I, --elenco-installati[=REGEXP]\n" " -I, --list-installed[=REGEXP]\n"
" elenca i pacchetti installati che corrispondono a REGEXP" " elenca i pacchetti installati che corrispondono a REGEXP"
#: guix/scripts/package.scm:486 #: guix/scripts/package.scm:486
@ -4479,7 +4480,7 @@ msgid ""
" list available packages matching REGEXP" " list available packages matching REGEXP"
msgstr "" msgstr ""
"\n" "\n"
" -A, --elenco-disponibile[=REGEXP]\n" " -A, --list-available[=REGEXP]\n"
" elenca i pacchetti disponibili che corrispondono a REGEXP" " elenca i pacchetti disponibili che corrispondono a REGEXP"
#: guix/scripts/package.scm:489 #: guix/scripts/package.scm:489
@ -4488,7 +4489,7 @@ msgid ""
" --show=PACKAGE show details about PACKAGE" " --show=PACKAGE show details about PACKAGE"
msgstr "" msgstr ""
"\n" "\n"
" --show=PACKAGE mostra i dettagli del PACKAGE" " --show=PACKAGE mostra i dettagli di un pacchetto"
#: guix/scripts/package.scm:544 #: guix/scripts/package.scm:544
#, scheme-format #, scheme-format
@ -4518,7 +4519,7 @@ msgstr "~a~@[@~a~]: pacchetto non trovato~%"
#: guix/scripts/package.scm:964 guix/scripts/pull.scm:724 #: guix/scripts/package.scm:964 guix/scripts/pull.scm:724
#, scheme-format #, scheme-format
msgid "cannot switch to generation '~a'~%" msgid "cannot switch to generation '~a'~%"
msgstr "non può passare alla generazione '~a'~%" msgstr "non posso passare alla generazione '~a'~%"
#: guix/scripts/package.scm:1045 #: guix/scripts/package.scm:1045
#, scheme-format #, scheme-format
@ -4537,7 +4538,7 @@ msgid ""
"Install the given PACKAGES.\n" "Install the given PACKAGES.\n"
"This is an alias for 'guix package -i'.\n" "This is an alias for 'guix package -i'.\n"
msgstr "" msgstr ""
"Uso: guix install [OPTION] PACKAGES...\n" "Uso: guix install [OPZIONE] PACCHETTI...\n"
"Installa i PACCHETTI indicati.\n" "Installa i PACCHETTI indicati.\n"
"È un alias di 'guix package -i'.\n" "È un alias di 'guix package -i'.\n"
@ -4553,13 +4554,13 @@ msgid ""
"Remove the given PACKAGES.\n" "Remove the given PACKAGES.\n"
"This is an alias for 'guix package -r'.\n" "This is an alias for 'guix package -r'.\n"
msgstr "" msgstr ""
"Uso: guix remove [OPTION] PACKAGES...\n" "Uso: guix remove [OPZIONE] PACCHETTI...\n"
"Rimuove i PACCHETTI indicati.\n" "Rimuove i PACCHETTI indicati.\n"
"È un alias di 'guix package -r'.\n" "È un alias di 'guix package -r'.\n"
#: guix/scripts/remove.scm:67 #: guix/scripts/remove.scm:67
msgid "remove installed packages" msgid "remove installed packages"
msgstr "Rimuo ere pacchetti installati" msgstr "rimuove pacchetti installati"
#: guix/scripts/upgrade.scm:34 #: guix/scripts/upgrade.scm:34
msgid "" msgid ""
@ -4567,21 +4568,21 @@ msgid ""
"Upgrade packages that match REGEXP.\n" "Upgrade packages that match REGEXP.\n"
"This is an alias for 'guix package -u'.\n" "This is an alias for 'guix package -u'.\n"
msgstr "" msgstr ""
"Uso: guix upgrade [OPTION] [REGEXP]\n" "Uso: guix upgrade [OPZIONE] [REGEXP]\n"
"Aggiorna i pacchetti che corrispondono a REGEXP.\n" "Aggiorna i pacchetti che corrispondono a REGEXP.\n"
"È un alias di \"guix package -u\".\n" "È un alias di \"guix package -u\".\n"
#: guix/scripts/upgrade.scm:75 #: guix/scripts/upgrade.scm:75
msgid "upgrade packages to their latest version" msgid "upgrade packages to their latest version"
msgstr "" msgstr "aggiorna i pacchetti alla loro ultima versione"
#: guix/scripts/search.scm:31 #: guix/scripts/search.scm:31
msgid "" msgid ""
"Usage: guix search [OPTION] REGEXPS...\n" "Usage: guix search [OPTION] REGEXPS...\n"
"Search for packages matching REGEXPS." "Search for packages matching REGEXPS."
msgstr "" msgstr ""
"Uso: guix search [OPTION] REGEXPS...\n" "Uso: guix search [OPZIONE] REGEXPS...\n"
"Cerca i pacchetti che corrispondono a REGEXPS." "Cerca i pacchetti che corrispondono alle date REGEXPS."
#: guix/scripts/search.scm:33 #: guix/scripts/search.scm:33
msgid "" msgid ""
@ -4592,10 +4593,8 @@ msgstr ""
"È un alias di 'guix package -s'.\n" "È un alias di 'guix package -s'.\n"
#: guix/scripts/search.scm:61 #: guix/scripts/search.scm:61
#, fuzzy
#| msgid "Updater for CPAN packages"
msgid "search for packages" msgid "search for packages"
msgstr "Aggiorna i pacchetti CPAN" msgstr "cerca pacchetti"
#: guix/scripts/search.scm:74 #: guix/scripts/search.scm:74
#, scheme-format #, scheme-format
@ -4620,7 +4619,7 @@ msgstr ""
#: guix/scripts/show.scm:60 #: guix/scripts/show.scm:60
msgid "show information about packages" msgid "show information about packages"
msgstr "" msgstr "mostra informazioni sui pacchetti"
#: guix/scripts/show.scm:73 #: guix/scripts/show.scm:73
#, scheme-format #, scheme-format
@ -4642,8 +4641,8 @@ msgid ""
" collect at least MIN bytes of garbage" " collect at least MIN bytes of garbage"
msgstr "" msgstr ""
"\n" "\n"
" -C, -raccogliere la spazzatura[=MIN]\n" " -C, --collect-garbage[=MIN]\n"
" raccoglie almeno MIN byte di spazzatura" " raccoglie almeno MIN bytes di spazzatura"
#: guix/scripts/gc.scm:56 #: guix/scripts/gc.scm:56
msgid "" msgid ""
@ -4651,7 +4650,7 @@ msgid ""
" -F, --free-space=FREE attempt to reach FREE available space in the store" " -F, --free-space=FREE attempt to reach FREE available space in the store"
msgstr "" msgstr ""
"\n" "\n"
" -F, --free-space=FREE cerca di raggiungere lo spazio libero disponibile nell'archivio" " -F, --free-space=FREE cerca di raggiungere il valore di spazio libero dato nell'archivio"
#: guix/scripts/gc.scm:58 #: guix/scripts/gc.scm:58
msgid "" msgid ""
@ -4669,7 +4668,7 @@ msgid ""
" -D, --delete attempt to delete PATHS" " -D, --delete attempt to delete PATHS"
msgstr "" msgstr ""
"\n" "\n"
" -D, -cancella tenta di cancellare i PERCORSI" " -D, --delete tenta di cancellare i PERCORSI dati"
#: guix/scripts/gc.scm:63 #: guix/scripts/gc.scm:63
msgid "" msgid ""
@ -4677,7 +4676,7 @@ msgid ""
" --list-roots list the user's garbage collector roots" " --list-roots list the user's garbage collector roots"
msgstr "" msgstr ""
"\n" "\n"
" --list-roots Elenca le radici del garbage collector dell'utente" " --list-roots elenca le radici del garbage collector dell'utente"
#: guix/scripts/gc.scm:65 #: guix/scripts/gc.scm:65
msgid "" msgid ""
@ -4685,7 +4684,7 @@ msgid ""
" --list-busy list store items used by running processes" " --list-busy list store items used by running processes"
msgstr "" msgstr ""
"\n" "\n"
" --list-busy elenca gli elementi dell'archivio utilizzati dai processi in esecuzione" " --list-busy elenca gli elementi dell'archivio utilizzati dai processi in esecuzione"
#: guix/scripts/gc.scm:67 #: guix/scripts/gc.scm:67
msgid "" msgid ""
@ -4693,7 +4692,7 @@ msgid ""
" --optimize optimize the store by deduplicating identical files" " --optimize optimize the store by deduplicating identical files"
msgstr "" msgstr ""
"\n" "\n"
" --ottimizza ottimizza l'archivio deduplicando i file identici" " --optimize ottimizza l'archivio deduplicando i file identici"
#: guix/scripts/gc.scm:69 #: guix/scripts/gc.scm:69
msgid "" msgid ""
@ -4701,7 +4700,7 @@ msgid ""
" --list-dead list dead paths" " --list-dead list dead paths"
msgstr "" msgstr ""
"\n" "\n"
" --list-dead elenca i percorsi morti" " --list-dead elenca i percorsi morti"
#: guix/scripts/gc.scm:71 #: guix/scripts/gc.scm:71
msgid "" msgid ""
@ -4709,7 +4708,7 @@ msgid ""
" --list-live list live paths" " --list-live list live paths"
msgstr "" msgstr ""
"\n" "\n"
" - -list-live elenco percorsi live" " --list-live elenca i percorsi vivi"
#: guix/scripts/gc.scm:74 #: guix/scripts/gc.scm:74
msgid "" msgid ""
@ -4717,7 +4716,7 @@ msgid ""
" --references list the references of PATHS" " --references list the references of PATHS"
msgstr "" msgstr ""
"\n" "\n"
" -referenze Elencare le referenze di PATHS" " --references elenca i riferimenti di PATHS"
#: guix/scripts/gc.scm:76 #: guix/scripts/gc.scm:76
msgid "" msgid ""
@ -4725,7 +4724,7 @@ msgid ""
" -R, --requisites list the requisites of PATHS" " -R, --requisites list the requisites of PATHS"
msgstr "" msgstr ""
"\n" "\n"
" -R, --requisiti elenca i requisiti dei PATHS" " -R, --requisites elenca i requisiti dei PATHS"
#: guix/scripts/gc.scm:78 #: guix/scripts/gc.scm:78
msgid "" msgid ""
@ -4733,7 +4732,7 @@ msgid ""
" --referrers list the referrers of PATHS" " --referrers list the referrers of PATHS"
msgstr "" msgstr ""
"\n" "\n"
" —referenti elenca i referenti di PATHS" " —referrers elenca i referenti di PATHS"
#: guix/scripts/gc.scm:80 #: guix/scripts/gc.scm:80
msgid "" msgid ""
@ -4741,9 +4740,10 @@ msgid ""
" --derivers list the derivers of PATHS" " --derivers list the derivers of PATHS"
msgstr "" msgstr ""
"\n" "\n"
" —drivers elenca i driver di PATHS" " —derivers elenca i derivatori di PATHS"
#: guix/scripts/gc.scm:83 #: guix/scripts/gc.scm:83
#, fuzzy
msgid "" msgid ""
"\n" "\n"
" --verify[=OPTS] verify the integrity of the store; OPTS is a\n" " --verify[=OPTS] verify the integrity of the store; OPTS is a\n"
@ -4751,9 +4751,9 @@ msgid ""
" 'contents'" " 'contents'"
msgstr "" msgstr ""
"\n" "\n"
" --verify[=OPTS] verifica l'integrità dell'archivio; OPTS è una combinazione di\n" " --verify[=OPTS] verify the integrity of the store; OPTS is a\n"
" una combinazione separata da virgole di \"riparazione\" e \n" " comma-separated combination of 'repair' and\n"
" 'contenuto'" " 'contents'"
#: guix/scripts/gc.scm:87 #: guix/scripts/gc.scm:87
msgid "" msgid ""
@ -4761,7 +4761,7 @@ msgid ""
" --list-failures list cached build failures" " --list-failures list cached build failures"
msgstr "" msgstr ""
"\n" "\n"
" —list-failure lista di errori rilevati nelle build" " —list-failures elenca le build non andate a buon fine"
#: guix/scripts/gc.scm:89 #: guix/scripts/gc.scm:89
msgid "" msgid ""
@ -4772,11 +4772,15 @@ msgstr ""
" —clear-failures rimuovere PATHS dal set degli errori rilevati" " —clear-failures rimuovere PATHS dal set degli errori rilevati"
#: guix/scripts/gc.scm:92 #: guix/scripts/gc.scm:92
#, fuzzy
msgid "" msgid ""
"\n" "\n"
" --vacuum-database repack the sqlite database tracking the store\n" " --vacuum-database repack the sqlite database tracking the store\n"
" using less space" " using less space"
msgstr "" msgstr ""
"\n"
" --vacuum-database repack the sqlite database tracking the store\n"
" using less space"
#: guix/scripts/gc.scm:107 #: guix/scripts/gc.scm:107
#, scheme-format #, scheme-format

84
po/guix/ja.po
View file

@ -3,13 +3,14 @@
# This file is distributed under the same license as the GNU guix package. # This file is distributed under the same license as the GNU guix package.
# ROCKTAKEY <rocktakey@gmail.com>, 2022, 2023. # ROCKTAKEY <rocktakey@gmail.com>, 2022, 2023.
# Florian Pelz <pelzflorian@pelzflorian.de>, 2023. # Florian Pelz <pelzflorian@pelzflorian.de>, 2023.
# Yūtenji <yuta@59ry.jp>, 2023.
#: guix/diagnostics.scm:159 #: guix/diagnostics.scm:159
msgid "" msgid ""
msgstr "" msgstr ""
"Project-Id-Version: GNU guix\n" "Project-Id-Version: GNU guix\n"
"Report-Msgid-Bugs-To: bug-guix@gnu.org\n" "Report-Msgid-Bugs-To: bug-guix@gnu.org\n"
"POT-Creation-Date: 2023-06-19 03:18+0000\n" "POT-Creation-Date: 2023-06-19 03:18+0000\n"
"PO-Revision-Date: 2023-08-04 09:21+0000\n" "PO-Revision-Date: 2023-12-22 13:52+0000\n"
"Last-Translator: ROCKTAKEY <rocktakey@gmail.com>\n" "Last-Translator: ROCKTAKEY <rocktakey@gmail.com>\n"
"Language-Team: Japanese <https://translate.fedoraproject.org/projects/guix/guix/ja/>\n" "Language-Team: Japanese <https://translate.fedoraproject.org/projects/guix/guix/ja/>\n"
"Language: ja\n" "Language: ja\n"
@ -17,7 +18,7 @@ msgstr ""
"Content-Type: text/plain; charset=UTF-8\n" "Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n" "Content-Transfer-Encoding: 8bit\n"
"Plural-Forms: nplurals=1; plural=0;\n" "Plural-Forms: nplurals=1; plural=0;\n"
"X-Generator: Weblate 4.18.2\n" "X-Generator: Weblate 5.3\n"
#: gnu.scm:81 #: gnu.scm:81
#, scheme-format #, scheme-format
@ -252,7 +253,7 @@ msgstr "サービス型'~a'のサービスがみつかりません"
#: gnu/system.scm:217 #: gnu/system.scm:217
#, scheme-format #, scheme-format
msgid "the 'hosts-file' field is deprecated, please use 'hosts-service-type' instead~%" msgid "the 'hosts-file' field is deprecated, please use 'hosts-service-type' instead~%"
msgstr "" msgstr "'hosts-file'フィールドは非推奨です。代わりに'hosts-service-type'を使ってください~%"
#: gnu/system.scm:397 #: gnu/system.scm:397
#, scheme-format #, scheme-format
@ -367,13 +368,11 @@ msgstr ""
#: gnu/services/base.scm:713 #: gnu/services/base.scm:713
#, scheme-format #, scheme-format
msgid "host name '~a' contains invalid characters" msgid "host name '~a' contains invalid characters"
msgstr "" msgstr "ホスト名 '~a' に無効な文字が含まれています"
#: gnu/services/base.scm:763 #: gnu/services/base.scm:763
#, fuzzy
#| msgid "Populate the @file{/etc} directory."
msgid "Populate the @file{/etc/hosts} file." msgid "Populate the @file{/etc/hosts} file."
msgstr "@file{/etc}ディレクトリを追加します。" msgstr "@file{/etc/hosts}ファイルを追加します。"
#: gnu/services/base.scm:780 #: gnu/services/base.scm:780
msgid "Initialize the machine's host name." msgid "Initialize the machine's host name."
@ -627,9 +626,8 @@ msgstr ""
"サービス設定の'stop-wait-period'の値を増やす必要があるかもしれません。)\n" "サービス設定の'stop-wait-period'の値を増やす必要があるかもしれません。)\n"
#: gnu/services/file-sharing.scm:687 #: gnu/services/file-sharing.scm:687
#, fuzzy
msgid "Service transmission-daemon has been asked to reload its settings file." msgid "Service transmission-daemon has been asked to reload its settings file."
msgstr "transmission-daemonサービスは設定ファイルをリロードするよう要求されています" msgstr "transmission-daemonサービスは設定ファイルをリロードするよう要求されています。"
#: gnu/services/file-sharing.scm:689 #: gnu/services/file-sharing.scm:689
msgid "Service transmission-daemon is not running." msgid "Service transmission-daemon is not running."
@ -641,7 +639,7 @@ msgstr "BitTorrentプロトコルを利用してファイルを共有します
#: gnu/services/networking.scm:297 #: gnu/services/networking.scm:297
msgid "Add a list of known Facebook hosts to @file{/etc/hosts}" msgid "Add a list of known Facebook hosts to @file{/etc/hosts}"
msgstr "" msgstr "既知のFacebookのホストのリストを@file{/etc/hosts}に追加します"
#: gnu/services/networking.scm:359 #: gnu/services/networking.scm:359
#, scheme-format #, scheme-format
@ -729,7 +727,7 @@ msgstr "@uref{https://torproject.org, Tor}匿名ネットワークデーモン
#: gnu/services/networking.scm:1164 #: gnu/services/networking.scm:1164
#, scheme-format #, scheme-format
msgid "the 'iwd?' field is deprecated, please use 'shepherd-requirement' field instead~%" msgid "the 'iwd?' field is deprecated, please use 'shepherd-requirement' field instead~%"
msgstr "" msgstr "'iwd?'フィールドは非推奨です。代わりに'shepherd-requirement'フィールドを使ってください~%"
#: gnu/services/networking.scm:1312 #: gnu/services/networking.scm:1312
msgid "" msgid ""
@ -2339,7 +2337,7 @@ msgstr ""
#: gnu/installer/newt/partition.scm:394 #: gnu/installer/newt/partition.scm:394
msgid "Please enter the desired mounting point for this partition. Leave this field empty if you don't want to set a mounting point." msgid "Please enter the desired mounting point for this partition. Leave this field empty if you don't want to set a mounting point."
msgstr "" msgstr "このパーティションに必要なマウントポイントを入力してください。マウントポイントを設定したくない場合は、このフィールドを空のままにしてください。"
#: gnu/installer/newt/partition.scm:396 #: gnu/installer/newt/partition.scm:396
msgid "Mounting point" msgid "Mounting point"
@ -2366,7 +2364,7 @@ msgstr ""
#: gnu/installer/newt/partition.scm:647 #: gnu/installer/newt/partition.scm:647
#, scheme-format #, scheme-format
msgid "Are you sure you want to delete everything on disk ~a?" msgid "Are you sure you want to delete everything on disk ~a?"
msgstr "" msgstr "本当にディスク ~a をすべて削除してもよろしいですか？"
#: gnu/installer/newt/partition.scm:649 #: gnu/installer/newt/partition.scm:649
msgid "Delete disk" msgid "Delete disk"
@ -2391,11 +2389,14 @@ msgid ""
"\n" "\n"
"At least one partition must have its mounting point set to '/'." "At least one partition must have its mounting point set to '/'."
msgstr "" msgstr ""
"ディスクを選択して ENTER を押すと、ディスクのパーティションテーブルを変更できます。また、パーティションを選択して ENTER を押すことで編集したり、DELETE を押すことで削除することもできます。新しいパーティションを作成するには、空き領域を選択して ENTER を押します。\n"
"\n"
"少なくとも1つのパーティションのマウントポイントを '/' に設定する必要があります。"
#: gnu/installer/newt/partition.scm:693 #: gnu/installer/newt/partition.scm:693
#, scheme-format #, scheme-format
msgid "This is the proposed partitioning. It is still possible to edit it or to go back to install menu by pressing the Exit button.~%~%" msgid "This is the proposed partitioning. It is still possible to edit it or to go back to install menu by pressing the Exit button.~%~%"
msgstr "" msgstr "これが提案されたパーティション分割です。編集することも、終了ボタンを押してインストールメニューに戻ることも可能です。~%~%"
#: gnu/installer/newt/partition.scm:703 #: gnu/installer/newt/partition.scm:703
msgid "Guided partitioning" msgid "Guided partitioning"
@ -2444,11 +2445,11 @@ msgstr ""
#: gnu/installer/newt/services.scm:39 #: gnu/installer/newt/services.scm:39
msgid "Please select the desktop environment(s) you wish to install. If you select multiple desktop environments here, you will be able to choose from them later when you log in." msgid "Please select the desktop environment(s) you wish to install. If you select multiple desktop environments here, you will be able to choose from them later when you log in."
msgstr "" msgstr "インストールするデスクトップ環境を選択してください。 ここで複数のデスクトップ環境を選択した場合、後でログインする際に選択できるようになります。"
#: gnu/installer/newt/services.scm:42 #: gnu/installer/newt/services.scm:42
msgid "Desktop environment" msgid "Desktop environment"
msgstr "" msgstr "デスクトップ環境"
#: gnu/installer/newt/services.scm:57 #: gnu/installer/newt/services.scm:57
msgid "You can now select networking services to run on your system." msgid "You can now select networking services to run on your system."
@ -2487,11 +2488,11 @@ msgstr ""
#: gnu/installer/newt/substitutes.scm:32 #: gnu/installer/newt/substitutes.scm:32
msgid "Enable" msgid "Enable"
msgstr "" msgstr "有効にする"
#: gnu/installer/newt/substitutes.scm:32 #: gnu/installer/newt/substitutes.scm:32
msgid "Disable" msgid "Disable"
msgstr "" msgstr "無効にする"
#: gnu/installer/newt/substitutes.scm:33 #: gnu/installer/newt/substitutes.scm:33
msgid "" msgid ""
@ -2499,6 +2500,9 @@ msgid ""
"\n" "\n"
" There are no security risks: only genuine substitutes may be retrieved from those servers. However, eavesdroppers on your LAN may be able to see what software you are installing." " There are no security risks: only genuine substitutes may be retrieved from those servers. However, eavesdroppers on your LAN may be able to see what software you are installing."
msgstr "" msgstr ""
" このオプションをオンにすると、Guixのインストール中に、公式サーバに加えて、ローカルエリアネットワーク (LAN) 上で発見されたサーバから代理生成物(ビルド済みバイナリ)を取得することを許可します。 これにより、ダウンロードのスループットが向上します。\n"
"\n"
" セキュリティ上のリスクはありません: これらのサーバから取得できるのは、本物の代理生成物だけです。 しかし、LAN上の盗聴者は、あなたがインストールしているソフトウェアを見ることができるかもしれません。"
#: gnu/installer/newt/timezone.scm:59 #: gnu/installer/newt/timezone.scm:59
msgid "Please select a timezone." msgid "Please select a timezone."
@ -2518,7 +2522,7 @@ msgstr ""
#: gnu/installer/newt/user.scm:53 #: gnu/installer/newt/user.scm:53
msgid "Password" msgid "Password"
msgstr "" msgstr "パスワード"
#: gnu/installer/newt/user.scm:124 #: gnu/installer/newt/user.scm:124
msgid "Empty inputs are not allowed." msgid "Empty inputs are not allowed."
@ -2552,11 +2556,11 @@ msgstr ""
#: gnu/installer/newt/user.scm:206 #: gnu/installer/newt/user.scm:206
msgid "Add" msgid "Add"
msgstr "" msgstr "追加"
#: gnu/installer/newt/user.scm:207 #: gnu/installer/newt/user.scm:207
msgid "Delete" msgid "Delete"
msgstr "" msgstr "削除"
#: gnu/installer/newt/user.scm:267 #: gnu/installer/newt/user.scm:267
msgid "Please create at least one user." msgid "Please create at least one user."
@ -3122,57 +3126,73 @@ msgid ""
"\n" "\n"
" --rounds=N build N times in a row to detect non-determinism" " --rounds=N build N times in a row to detect non-determinism"
msgstr "" msgstr ""
"\n"
" --rounds=N 非決定性を検知するため、N回連続で構築します"
#: guix/scripts/build.scm:182 #: guix/scripts/build.scm:182
msgid "" msgid ""
"\n" "\n"
" -c, --cores=N allow the use of up to N CPU cores for the build" " -c, --cores=N allow the use of up to N CPU cores for the build"
msgstr "" msgstr ""
"\n"
" -c, --cores=N 構築の際に、最大N個のCPUコアの使用を許可します"
#: guix/scripts/build.scm:184 #: guix/scripts/build.scm:184
msgid "" msgid ""
"\n" "\n"
" -M, --max-jobs=N allow at most N build jobs" " -M, --max-jobs=N allow at most N build jobs"
msgstr "" msgstr ""
"\n"
" -M, --max-jobs=N 最大でN個の構築ジョブが存在することを許可します"
#: guix/scripts/build.scm:186 #: guix/scripts/build.scm:186
msgid "" msgid ""
"\n" "\n"
" --debug=LEVEL produce debugging output at LEVEL" " --debug=LEVEL produce debugging output at LEVEL"
msgstr "" msgstr ""
"\n"
" --debug=LEVEL LEVELで指定されたレベルのデバッグ出力を生成します"
#: guix/scripts/build.scm:190 #: guix/scripts/build.scm:190
msgid "" msgid ""
"\n" "\n"
" --list-targets list available targets" " --list-targets list available targets"
msgstr "" msgstr ""
"\n"
" --list-targets 利用可能な対象を列挙します"
#: guix/scripts/build.scm:192 #: guix/scripts/build.scm:192
msgid "" msgid ""
"\n" "\n"
" --target=TRIPLET cross-build for TRIPLET--e.g., \"aarch64-linux-gnu\"" " --target=TRIPLET cross-build for TRIPLET--e.g., \"aarch64-linux-gnu\""
msgstr "" msgstr ""
"\n"
" --target=TRIPLET TRIPLETに指定された環境を対象に、クロスビルドを行います。TRIPLETには、\"aarch64-linux-gnu\"なような三つ組を指定します"
#: guix/scripts/build.scm:196 #: guix/scripts/build.scm:196
msgid "" msgid ""
"\n" "\n"
" --list-systems list available systems" " --list-systems list available systems"
msgstr "" msgstr ""
"\n"
" --list-systems 利用可能なシステムを列挙します"
#: guix/scripts/build.scm:198 #: guix/scripts/build.scm:198
msgid "" msgid ""
"\n" "\n"
" -s, --system=SYSTEM attempt to build for SYSTEM--e.g., \"i686-linux\"" " -s, --system=SYSTEM attempt to build for SYSTEM--e.g., \"i686-linux\""
msgstr "" msgstr ""
"\n"
" -s, --system=SYSTEM SYSTEMに指定されたシステム用に構築を試みます。SYSTEMには \"i686-linux\" のような文字列を指定します"
#: guix/scripts/build.scm:215 #: guix/scripts/build.scm:215
msgid "'--keep-failed' ignored since you are talking to a remote daemon\n" msgid "'--keep-failed' ignored since you are talking to a remote daemon\n"
msgstr "" msgstr "遠隔のデーモンとやりとりしているため、'--keep-failed' は無視されます\n"
#: guix/scripts/build.scm:296 #: guix/scripts/build.scm:296
#, scheme-format #, scheme-format
msgid "'--no-build-hook' is deprecated; use '--no-offload' instead~%" msgid "'--no-build-hook' is deprecated; use '--no-offload' instead~%"
msgstr "" msgstr "'--no-build-hook' は非推奨です。代わりに '--no-offload' を利用してください~%"
#: guix/scripts/build.scm:326 guix/scripts/build.scm:333 #: guix/scripts/build.scm:326 guix/scripts/build.scm:333
#, scheme-format #, scheme-format
@ -3198,11 +3218,13 @@ msgid ""
"Did you mean @code{~a}?\n" "Did you mean @code{~a}?\n"
"Try @option{--list-targets} to view available targets.~%" "Try @option{--list-targets} to view available targets.~%"
msgstr "" msgstr ""
"@code{~a}の間違いではないでしょうか？\n"
"利用可能な対象を見るには、@option{--list-targets}を試してみてください。~%"
#: guix/scripts/build.scm:381 #: guix/scripts/build.scm:381
#, scheme-format #, scheme-format
msgid "Try @option{--list-targets} to view available targets.~%" msgid "Try @option{--list-targets} to view available targets.~%"
msgstr "" msgstr "利用可能な対象を見るには、@option{--list-targets}を試してみてください。~%"
#: guix/scripts/build.scm:400 #: guix/scripts/build.scm:400
#, scheme-format #, scheme-format
@ -4645,7 +4667,7 @@ msgstr ""
#: guix/scripts/git/authenticate.scm:138 #: guix/scripts/git/authenticate.scm:138
msgid "Authenticating commits ~a to ~a (~h new commits)...~%" msgid "Authenticating commits ~a to ~a (~h new commits)...~%"
msgstr "" msgstr "~aから~aまでのコミット(~h個の新規コミット)を認証しています…~%"
#: guix/scripts/git/authenticate.scm:178 #: guix/scripts/git/authenticate.scm:178
#, scheme-format #, scheme-format
@ -5073,7 +5095,7 @@ msgstr[0] "次のチャンネルを元に構築します:~%"
#: guix/scripts/substitute.scm:83 #: guix/scripts/substitute.scm:83
#, scheme-format #, scheme-format
msgid "authentication and authorization of substitutes disabled!~%" msgid "authentication and authorization of substitutes disabled!~%"
msgstr "" msgstr "代理生成物の認証と認可が無効になっています！~%"
#: guix/scripts/substitute.scm:225 #: guix/scripts/substitute.scm:225
#, scheme-format #, scheme-format
@ -5109,7 +5131,7 @@ msgstr ""
#: guix/scripts/substitute.scm:326 #: guix/scripts/substitute.scm:326
#, scheme-format #, scheme-format
msgid "updating substitutes from '~a'... ~5,1f%" msgid "updating substitutes from '~a'... ~5,1f%"
msgstr "" msgstr "'~a'に基づいて代理生成物を更新しています…~5,1f%"
#: guix/scripts/substitute.scm:482 #: guix/scripts/substitute.scm:482
#, scheme-format #, scheme-format
@ -8259,7 +8281,7 @@ msgstr ""
#: guix/channels.scm:365 #: guix/channels.scm:365
msgid "Authenticating channel '~a', commits ~a to ~a (~h new commits)...~%" msgid "Authenticating channel '~a', commits ~a to ~a (~h new commits)...~%"
msgstr "" msgstr "チャンネル'~a'の、~aから~aまでのコミット(~h個の新規コミット)を認証しています…~%"
#: guix/channels.scm:430 #: guix/channels.scm:430
#, scheme-format #, scheme-format
@ -8282,7 +8304,7 @@ msgstr ""
#: guix/channels.scm:447 #: guix/channels.scm:447
#, scheme-format #, scheme-format
msgid "channel authentication disabled~%" msgid "channel authentication disabled~%"
msgstr "" msgstr "チャンネルの認証が無効になっています~%"
#: guix/channels.scm:472 #: guix/channels.scm:472
#, scheme-format #, scheme-format
@ -8897,7 +8919,7 @@ msgstr ""
#: guix/scripts/environment.scm:524 #: guix/scripts/environment.scm:524
#, scheme-format #, scheme-format
msgid "~a: command not found~%" msgid "~a: command not found~%"
msgstr "" msgstr "~a: コマンドが見つかりません~%"
#: guix/scripts/environment.scm:602 #: guix/scripts/environment.scm:602
#, scheme-format #, scheme-format
@ -9009,7 +9031,7 @@ msgstr ""
#: guix/scripts/environment.scm:1037 #: guix/scripts/environment.scm:1037
msgid "cannot create container: /proc/self/setgroups does not exist\n" msgid "cannot create container: /proc/self/setgroups does not exist\n"
msgstr "" msgstr "コンテナを作成できません: /proc/self/setgroups が見つかりません\n"
#: guix/scripts/environment.scm:1038 #: guix/scripts/environment.scm:1038
msgid "is your kernel version < 3.19?\n" msgid "is your kernel version < 3.19?\n"

66
po/guix/zh_CN.po
View file

@ -13,21 +13,23 @@
# Hilton Chain <yareli@ultrarare.space>, 2023. # Hilton Chain <yareli@ultrarare.space>, 2023.
# a x <meruarasu@email1.io>, 2023. # a x <meruarasu@email1.io>, 2023.
# Sapphire RainSlide <RainSlide@outlook.com>, 2023. # Sapphire RainSlide <RainSlide@outlook.com>, 2023.
# Jingge Chen <mariocanfly@hotmail.com>, 2023.
# Florian Pelz <pelzflorian@pelzflorian.de>, 2023.
#: guix/diagnostics.scm:159 #: guix/diagnostics.scm:159
msgid "" msgid ""
msgstr "" msgstr ""
"Project-Id-Version: guix 0.14.0\n" "Project-Id-Version: guix 0.14.0\n"
"Report-Msgid-Bugs-To: bug-guix@gnu.org\n" "Report-Msgid-Bugs-To: bug-guix@gnu.org\n"
"POT-Creation-Date: 2023-06-19 03:18+0000\n" "POT-Creation-Date: 2023-06-19 03:18+0000\n"
"PO-Revision-Date: 2023-11-16 19:01+0000\n" "PO-Revision-Date: 2023-12-08 17:44+0000\n"
"Last-Translator: Sapphire RainSlide <RainSlide@outlook.com>\n" "Last-Translator: Florian Pelz <pelzflorian@pelzflorian.de>\n"
"Language-Team: Chinese (Simplified) <https://translate.fedoraproject.org/projects/guix/guix/zh_CN/>\n" "Language-Team: Chinese (Simplified) <https://translate.fedoraproject.org/projects/guix/guix/zh_CN/>\n"
"Language: zh_CN\n" "Language: zh_CN\n"
"MIME-Version: 1.0\n" "MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n" "Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n" "Content-Transfer-Encoding: 8bit\n"
"Plural-Forms: nplurals=1; plural=0;\n" "Plural-Forms: nplurals=1; plural=0;\n"
"X-Generator: Weblate 5.2\n" "X-Generator: Weblate 5.2.1\n"
"X-Bugs: Report translation errors to the Language-Team address.\n" "X-Bugs: Report translation errors to the Language-Team address.\n"
#: gnu.scm:81 #: gnu.scm:81
@ -192,10 +194,13 @@ msgid ""
msgstr "让固件文件可以被系统加载。这样固件可以被载入到这台机器的设备中，比如说无线网卡。" msgstr "让固件文件可以被系统加载。这样固件可以被载入到这台机器的设备中，比如说无线网卡。"
#: gnu/services.scm:973 #: gnu/services.scm:973
#, fuzzy
msgid "" msgid ""
"Register garbage-collector roots---i.e., store items that\n" "Register garbage-collector roots---i.e., store items that\n"
"will not be reclaimed by the garbage collector." "will not be reclaimed by the garbage collector."
msgstr "" msgstr ""
"注册垃圾回收器的根——即存储垃圾回收器\n"
"不会回收的项目。"
#: gnu/services.scm:1031 #: gnu/services.scm:1031
#, fuzzy #, fuzzy
@ -242,7 +247,7 @@ msgstr "有无法识别的 UUID ~a 在 '~a' 中~%"
#: gnu/system.scm:485 #: gnu/system.scm:485
#, scheme-format #, scheme-format
msgid "unrecognized crypto-devices ~S at '~a'~%" msgid "unrecognized crypto-devices ~S at '~a'~%"
msgstr "" msgstr "未识别的加密设备 ~S 位于 '~a'~%"
#: gnu/system.scm:505 #: gnu/system.scm:505
#, fuzzy, scheme-format #, fuzzy, scheme-format
@ -269,27 +274,27 @@ msgstr ""
#: gnu/system.scm:645 #: gnu/system.scm:645
#, scheme-format #, scheme-format
msgid "mapped device '~a' may be ignored by bootloader~%" msgid "mapped device '~a' may be ignored by bootloader~%"
msgstr "" msgstr "映射设备 '~a' 可能会被引导程序忽略 ~%"
#: gnu/system.scm:665 #: gnu/system.scm:665
#, scheme-format #, scheme-format
msgid "List elements of the field 'swap-devices' should now use the <swap-space> record, as the old method is deprecated. See \"(guix) operating-system Reference\" for more details.~%" msgid "List elements of the field 'swap-devices' should now use the <swap-space> record, as the old method is deprecated. See \"(guix) operating-system Reference\" for more details.~%"
msgstr "" msgstr "字段“swap-devices”的列表元素现在应使用 <swap-space> 记录，因为旧方法已被淘汰。详情请参阅“(guix.zh_CN) 操作系统参考”。~%"
#: gnu/system.scm:1155 #: gnu/system.scm:1155
#, scheme-format #, scheme-format
msgid "using a string for file '~a' is deprecated; use 'plain-file' instead~%" msgid "using a string for file '~a' is deprecated; use 'plain-file' instead~%"
msgstr "" msgstr "使用字符串表示文件‘~a' 已被弃用；请改用 'plain-file' ~%"
#: gnu/system.scm:1171 #: gnu/system.scm:1171
#, scheme-format #, scheme-format
msgid "using a monadic value for '~a' is deprecated; use 'plain-file' instead~%" msgid "using a monadic value for '~a' is deprecated; use 'plain-file' instead~%"
msgstr "" msgstr "对 '~a' 使用一元值已被弃用；请改用 'plain-file' ~%"
#: gnu/system.scm:1217 #: gnu/system.scm:1217
#, scheme-format #, scheme-format
msgid "representing setuid programs with file-like objects is deprecated; use 'setuid-program' instead~%" msgid "representing setuid programs with file-like objects is deprecated; use 'setuid-program' instead~%"
msgstr "" msgstr "用类文件对象来表示setuid程序已被弃用；请改用 'setuid-program' ~%"
#: gnu/system.scm:1319 #: gnu/system.scm:1319
msgid "missing root file system" msgid "missing root file system"
@ -305,18 +310,24 @@ msgid ""
"Populate the @file{/etc/fstab} based on the given file\n" "Populate the @file{/etc/fstab} based on the given file\n"
"system objects." "system objects."
msgstr "" msgstr ""
"根据给定的文件系统对象\n"
"填充 @file{/etc/fstab} 文件。"
#: gnu/services/base.scm:357 #: gnu/services/base.scm:357
msgid "" msgid ""
"Take care of syncing the root file\n" "Take care of syncing the root file\n"
"system and of remounting it read-only when the system shuts down." "system and of remounting it read-only when the system shuts down."
msgstr "" msgstr ""
"注意同步根文件系统，\n"
"并在系统关闭时以只读方式重新加载。"
#: gnu/services/base.scm:551 #: gnu/services/base.scm:551
msgid "" msgid ""
"Provide Shepherd services to mount and unmount the given\n" "Provide Shepherd services to mount and unmount the given\n"
"file systems, as well as corresponding @file{/etc/fstab} entries." "file systems, as well as corresponding @file{/etc/fstab} entries."
msgstr "" msgstr ""
"提供挂载和卸载给定文件系统的 Shepherd 服务，\n"
"以及相应的 @file{/etc/fstab} 条目。"
#: gnu/services/base.scm:649 #: gnu/services/base.scm:649
msgid "" msgid ""
@ -324,17 +335,21 @@ msgid ""
"generator (RNG) with the value recorded when the system was last shut\n" "generator (RNG) with the value recorded when the system was last shut\n"
"down." "down."
msgstr "" msgstr ""
"为 @file{/dev/urandom} 伪随机数生成器(RNG)\n"
"添加上次关闭系统时记录的数值用作种子。"
#: gnu/services/base.scm:684 #: gnu/services/base.scm:684
msgid "" msgid ""
"Run the @command{rngd} random number generation daemon to\n" "Run the @command{rngd} random number generation daemon to\n"
"supply entropy to the kernel's pool." "supply entropy to the kernel's pool."
msgstr "" msgstr ""
"运行 @command{rngd} 随机数生成守护进程，\n"
"为内核池提供熵。"
#: gnu/services/base.scm:713 #: gnu/services/base.scm:713
#, scheme-format #, scheme-format
msgid "host name '~a' contains invalid characters" msgid "host name '~a' contains invalid characters"
msgstr "" msgstr "主机名 '~a' 包含无效字符"
#: gnu/services/base.scm:763 #: gnu/services/base.scm:763
#, fuzzy #, fuzzy
@ -344,11 +359,11 @@ msgstr "填充 @file{/etc} 目录。"
#: gnu/services/base.scm:780 #: gnu/services/base.scm:780
msgid "Initialize the machine's host name." msgid "Initialize the machine's host name."
msgstr "" msgstr "初始化机器的主机名。"
#: gnu/services/base.scm:811 #: gnu/services/base.scm:811
msgid "Ensure the Linux virtual terminals run in UTF-8 mode." msgid "Ensure the Linux virtual terminals run in UTF-8 mode."
msgstr "" msgstr "确保 Linux 虚拟终端以 UTF-8 模式运行。"
#: gnu/services/base.scm:870 #: gnu/services/base.scm:870
msgid "" msgid ""
@ -367,24 +382,44 @@ msgid ""
" \"/share/consolefonts/ter-132n\"))) ; for HDPI\n" " \"/share/consolefonts/ter-132n\"))) ; for HDPI\n"
"@end example\n" "@end example\n"
msgstr "" msgstr ""
"在指定的 tty 上安装给定的字体（字体是GNU/Linux每个虚拟控制台的字体）。\n"
"此服务的值是一个由 tty/font 对构成的列表。\n"
"字体可以是 @code{kbd} 软件包提供的字体名称，也可以是\n"
"@command{setfont} 的任何有效参数，如本例所示：\n"
"\n"
"@example\n"
"`((\"tty1\" . \"LatGrkCyr-8x16\")\n"
" (\"tty2\" . ,(file-append\n"
" font-tamzen\n"
" \"/share/kbd/consolefonts/TamzenForPowerline10x20.psf\"))\n"
" (\"tty3\" . ,(file-append\n"
" font-terminus\n"
" \"/share/consolefonts/ter-132n\"))) ; for HDPI\n"
"@end example\n"
#: gnu/services/base.scm:914 #: gnu/services/base.scm:914
msgid "" msgid ""
"Provide a console log-in service as specified by its\n" "Provide a console log-in service as specified by its\n"
"configuration value, a @code{login-configuration} object." "configuration value, a @code{login-configuration} object."
msgstr "" msgstr ""
"提供由 @code{login-configuration} 对象配置值\n"
"指定的控制台登录服务。"
#: gnu/services/base.scm:1197 #: gnu/services/base.scm:1197
msgid "" msgid ""
"Provide console login using the @command{agetty}\n" "Provide console login using the @command{agetty}\n"
"program." "program."
msgstr "" msgstr ""
"使用 @command{agetty} 程序\n"
"提供控制台登录功能。"
#: gnu/services/base.scm:1263 #: gnu/services/base.scm:1263
msgid "" msgid ""
"Provide console login using the @command{mingetty}\n" "Provide console login using the @command{mingetty}\n"
"program." "program."
msgstr "" msgstr ""
"使用 @command{mingetty} 程序\n"
"提供控制台登录功能。"
#: gnu/services/base.scm:1494 #: gnu/services/base.scm:1494
msgid "" msgid ""
@ -392,14 +427,17 @@ msgid ""
"given configuration---an @code{<nscd-configuration>} object. @xref{Name\n" "given configuration---an @code{<nscd-configuration>} object. @xref{Name\n"
"Service Switch}, for an example." "Service Switch}, for an example."
msgstr "" msgstr ""
"使用指定的配置 ，即一个 @code{<nscd-configuration>} 对象\n"
"来运行libc的 @dfn{name service cache daemon} (nscd)。\n"
"请参阅例子 @xref{Name Service Switch}。"
#: gnu/services/base.scm:1572 #: gnu/services/base.scm:1572
msgid "Service syslog has been asked to reload its settings file." msgid "Service syslog has been asked to reload its settings file."
msgstr "" msgstr "syslog 服务被要求重新加载其配置文件。"
#: gnu/services/base.scm:1574 #: gnu/services/base.scm:1574
msgid "Service syslog is not running." msgid "Service syslog is not running."
msgstr "" msgstr "syslog 服务未运行。"
#: gnu/services/base.scm:1591 #: gnu/services/base.scm:1591
msgid "" msgid ""