diff options
185 files changed, 15660 insertions, 2451 deletions
@@ -17,58 +17,4 @@ See the manual for useful hacking informations, either by running info -f doc/guix.info "Contributing" -or by checking the [[http://www.gnu.org/software/guix/manual/guix.html#Contributing][web copy of the manual]]. - -* Commit Access - -For frequent contributors, having write access to the repository is -convenient. When you deem it necessary, feel free to ask for it on the -mailing list. When you get commit access, please make sure to follow the -policy below (discussions of the policy can take place on guix-devel@gnu.org.) - -Non-trivial patches should always be posted to guix-patches@gnu.org (trivial -patches include fixing typos, etc.). This mailing list fills the -patch-tracking database at [[https://bugs.gnu.org/guix-patches]]; see -"Contributing" in the manual for details. - -For patches that just add a new package, and a simple one, it’s OK to commit, -if you’re confident (which means you successfully built it in a chroot setup, -and have done a reasonable copyright and license auditing.) Likewise for -package upgrades, except upgrades that trigger a lot of rebuilds (for example, -upgrading GnuTLS or GLib.) We have a mailing list for commit notifications -(guix-commits@gnu.org), so people can notice. Before pushing your changes, -make sure to run ‘git pull --rebase’. - -All commits that are pushed to the central repository on Savannah must be -signed with an OpenPGP key, and the public key should be uploaded to your user -account on Savannah and to public key servers, such as -‘keys.openpgp.org’. To configure Git to automatically sign commits, -run: - - git config commit.gpgsign true - git config user.signingkey CABBA6EA1DC0FF33 - -You can prevent yourself from accidentally pushing unsigned commits to -Savannah by using the pre-push Git hook called located at ‘etc/git/pre-push’: - - cp etc/git/pre-push .git/hooks/pre-push - -When pushing a commit on behalf of somebody else, please add a Signed-off-by -line at the end of the commit log message (e.g. with ‘git am --signoff’). -This improves tracking of who did what. - -For anything else, please post to guix-patches@gnu.org and leave time for a -review, without committing anything. If you didn’t receive any reply -after two weeks, and if you’re confident, it’s OK to commit. - -That last part is subject to being adjusted, allowing individuals to commit -directly on non-controversial changes on parts they’re familiar with. - -* Using emacs-debbugs - -Bug reports and patches are tracked using debbugs. If you are on emacs, you -can use emacs-debbugs. - -List all open bug reports on guix-patches with - -C-u M-x debbugs-gnu <RET> <RET> guix-patches <RET> n y +or by checking the [[https://guix.gnu.org/manual/devel/en/html_node/Contributing.html][web copy of the manual]]. diff --git a/build-aux/git-authenticate.scm b/build-aux/git-authenticate.scm index b8cc804094..106c843c25 100644 --- a/build-aux/git-authenticate.scm +++ b/build-aux/git-authenticate.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2019 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -89,6 +89,8 @@ "B3C0 DB4D AD73 BA5D 285E 19AE 5143 0234 CEFD 87C3") ("davexunit (2nd)" ;FIXME: to be confirmed! "8CCB A7F5 52B9 CBEA E1FB 2915 8328 C747 0FF1 D807") + ("daviwil" + "53C4 1E6E 41AA FE55 335A CA5E 446A 2ED4 D940 BF14") ("dvc" "6909 6DFD D702 8BED ACC5 884B C5E0 51C7 9C0B ECDB") ("dvc (old)" diff --git a/doc/contributing.texi b/doc/contributing.texi index e656676c0f..5d5d50c3c0 100644 --- a/doc/contributing.texi +++ b/doc/contributing.texi @@ -26,6 +26,8 @@ choice. * Packaging Guidelines:: Growing the distribution. * Coding Style:: Hygiene of the contributor. * Submitting Patches:: Share your work. +* Tracking Bugs and Patches:: Using Debbugs. +* Commit Access:: Pushing to the official repository. @end menu @node Building from Git @@ -826,13 +828,15 @@ Development is done using the Git distributed version control system. Thus, access to the repository is not strictly necessary. We welcome contributions in the form of patches as produced by @code{git format-patch} sent to the @email{guix-patches@@gnu.org} mailing list. +Seasoned Guix developers may also want to look at the section on commit +access (@pxref{Commit Access}). -This mailing list is backed by a Debbugs instance accessible at -@uref{https://bugs.gnu.org/guix-patches}, which allows us to keep track -of submissions. Each message sent to that mailing list gets a new -tracking number assigned; people can then follow up on the submission by -sending email to @code{@var{NNN}@@debbugs.gnu.org}, where @var{NNN} is -the tracking number (@pxref{Sending a Patch Series}). +This mailing list is backed by a Debbugs instance, which allows us to +keep track of submissions (@pxref{Tracking Bugs and Patches}). Each +message sent to that mailing list gets a new tracking number assigned; +people can then follow up on the submission by sending email to +@code{@var{NNN}@@debbugs.gnu.org}, where @var{NNN} is the tracking +number (@pxref{Sending a Patch Series}). Please write commit logs in the ChangeLog format (@pxref{Change Logs,,, standards, GNU Coding Standards}); you can check the commit history for @@ -1040,3 +1044,165 @@ they are kept together. See for more information. You can install @command{git send-email} with @command{guix install git:send-email}. @c Debbugs bug: https://debbugs.gnu.org/db/15/15361.html + +@node Tracking Bugs and Patches +@section Tracking Bugs and Patches + +@cindex bug reports, tracking +@cindex patch submissions, tracking +@cindex issue tracking +@cindex Debbugs, issue tracking system +Bug reports and patch submissions are currently tracked using the +Debbugs instance at @uref{https://bugs.gnu.org}. Bug reports are filed +against the @code{guix} ``package'' (in Debbugs parlance), by sending +email to @email{bug-guix@@gnu.org}, while patch submissions are filed +against the @code{guix-patches} package by sending email to +@email{guix-patches@@gnu.org} (@pxref{Submitting Patches}). + +A web interface (actually @emph{two} web interfaces!) are available to +browse issues: + +@itemize +@item +@url{https://bugs.gnu.org/guix} lists bug reports; +@item +@url{https://bugs.gnu.org/guix-patches} lists patch submissions. +@end itemize + +You can also access both of these @i{via} the (nicer) +@url{https://issues.guix.gnu.org} interface@footnote{The web interface +at @url{https://issues.guix.gnu.org} is powered by Mumi, a nice piece of +software written in Guile, and you can help! See +@url{https://git.elephly.net/gitweb.cgi?p=software/mumi.git}.}. To view +discussions related to issue number @var{n}, go to +@indicateurl{https://issues.guix.gnu.org/issue/@var{n}} or +@indicateurl{https://bugs.gnu.org/@var{n}}. + +If you use Emacs, you may find it more convenient to interact with +issues using @file{debbugs.el}, which you can install with: + +@example +guix install emacs-debbugs +@end example + +For example, to list all open issues on @code{guix-patches}, hit: + +@example +@kbd{C-u} @kbd{M-x} debbugs-gnu @kbd{RET} @kbd{RET} guix-patches @kbd{RET} n y +@end example + +@xref{Top,,, debbugs-ug, Debbugs User Guide}, for more information on +this nifty tool! + +@node Commit Access +@section Commit Access + +@cindex commit access, for developers +For frequent contributors, having write access to the repository is +convenient. When you deem it necessary, consider applying for commit +access by following these steps: + +@enumerate +@item +Find three committers who would vouch for you. You can view the list of +committers at +@url{https://savannah.gnu.org/project/memberlist.php?group=guix}. Each +of them should email a statement to @email{guix-maintainers@@gnu.org} (a +private alias for the collective of maintainers), signed with their +OpenPGP key. + +Committers are expected to have had some interactions with you as a +contributor and to be able to judge whether you are sufficiently +familiar with the project's practices. It is @emph{not} a judgment on +the value of your work, so a refusal should rather be interpreted as +``let's try again later''. + +@item +Send @email{guix-maintainers@@gnu.org} a message stating your intent, +listing the three committers who support your application, signed with +the OpenPGP key you will use to sign commits, and giving its fingerprint +(see below). See @uref{https://emailselfdefense.fsf.org/en/}, for an +introduction to public-key cryptography with GnuPG. + +@item +Maintainers ultimately decide whether to grant you commit access, +usually following your referrals' recommendation. + +@item +If and once you've been given access, please send a message to +@email{guix-devel@@gnu.org} to say so, again signed with the OpenPGP key +you will use to sign commits (do that before pushing your first commit). +That way, everyone can notice and ensure you control that OpenPGP key. + +@c TODO: Add note about adding the fingerprint to the list of authorized +@c keys once that has stabilized. + +@item +Make sure to read the rest of this section and... profit! +@end enumerate + +@quotation Note +Maintainers are happy to give commit access to people who have been +contributing for some time and have a track record---don't be shy and +don't underestimate your work! + +However, note that the project is working towards a more automated patch +review and merging system, which, as a consequence, may lead us to have +fewer people with commit access to the main repository. Stay tuned! +@end quotation + +If you get commit access, please make sure to follow +the policy below (discussions of the policy can take place on +@email{guix-devel@@gnu.org}). + +Non-trivial patches should always be posted to +@email{guix-patches@@gnu.org} (trivial patches include fixing typos, +etc.). This mailing list fills the patch-tracking database +(@pxref{Tracking Bugs and Patches}). + +For patches that just add a new package, and a simple one, it's OK to +commit, if you're confident (which means you successfully built it in a +chroot setup, and have done a reasonable copyright and license +auditing). Likewise for package upgrades, except upgrades that trigger +a lot of rebuilds (for example, upgrading GnuTLS or GLib). We have a +mailing list for commit notifications (@email{guix-commits@@gnu.org}), +so people can notice. Before pushing your changes, make sure to run +@code{git pull --rebase}. + +All commits that are pushed to the central repository on Savannah must +be signed with an OpenPGP key, and the public key should be uploaded to +your user account on Savannah and to public key servers, such as +@code{keys.openpgp.org}. To configure Git to automatically sign +commits, run: + +@example +git config commit.gpgsign true +git config user.signingkey CABBA6EA1DC0FF33 +@end example + +You can prevent yourself from accidentally pushing unsigned commits to +Savannah by using the pre-push Git hook called located at +@file{etc/git/pre-push}: + +@example +cp etc/git/pre-push .git/hooks/pre-push +@end example + +When pushing a commit on behalf of somebody else, please add a +@code{Signed-off-by} line at the end of the commit log message---e.g., +with @command{git am --signoff}. This improves tracking of who did +what. + +For anything else, please post to @email{guix-patches@@gnu.org} and +leave time for a review, without committing anything (@pxref{Submitting +Patches}). If you didn’t receive any reply after two weeks, and if +you're confident, it's OK to commit. + +That last part is subject to being adjusted, allowing individuals to commit +directly on non-controversial changes on parts they’re familiar with. + +One last thing: the project keeps moving forward because committers not +only push their own awesome changes, but also offer some of their time +@emph{reviewing} and pushing other people's changes. As a committer, +you're welcome to use your expertise and commit rights to help other +contributors, too! diff --git a/doc/guix.texi b/doc/guix.texi index efc59c1aaf..d2038d18e1 100644 --- a/doc/guix.texi +++ b/doc/guix.texi @@ -21,7 +21,7 @@ @set SUBSTITUTE-URL https://@value{SUBSTITUTE-SERVER} @copying -Copyright @copyright{} 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès@* +Copyright @copyright{} 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès@* Copyright @copyright{} 2013, 2014, 2016 Andreas Enge@* Copyright @copyright{} 2013 Nikita Karetnikov@* Copyright @copyright{} 2014, 2015, 2016 Alex Kost@* @@ -29,7 +29,7 @@ Copyright @copyright{} 2015, 2016 Mathieu Lirzin@* Copyright @copyright{} 2014 Pierre-Antoine Rault@* Copyright @copyright{} 2015 Taylan Ulrich Bayırlı/Kammer@* Copyright @copyright{} 2015, 2016, 2017, 2019 Leo Famulari@* -Copyright @copyright{} 2015, 2016, 2017, 2018, 2019 Ricardo Wurmus@* +Copyright @copyright{} 2015, 2016, 2017, 2018, 2019, 2020 Ricardo Wurmus@* Copyright @copyright{} 2016 Ben Woodcroft@* Copyright @copyright{} 2016, 2017, 2018 Chris Marusich@* Copyright @copyright{} 2016, 2017, 2018, 2019 Efraim Flashner@* @@ -49,7 +49,7 @@ Copyright @copyright{} 2017 Christopher Allan Webber@* Copyright @copyright{} 2017, 2018, 2019 Marius Bakke@* Copyright @copyright{} 2017, 2019 Hartmut Goebel@* Copyright @copyright{} 2017, 2019 Maxim Cournoyer@* -Copyright @copyright{} 2017, 2018, 2019 Tobias Geerinckx-Rice@* +Copyright @copyright{} 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice@* Copyright @copyright{} 2017 George Clemmer@* Copyright @copyright{} 2017 Andy Wingo@* Copyright @copyright{} 2017, 2018, 2019 Arun Isaac@* @@ -69,6 +69,7 @@ Copyright @copyright{} 2019 Jakob L. Kreuze@* Copyright @copyright{} 2019 Kyle Andrews@* Copyright @copyright{} 2019 Alex Griffin@* Copyright @copyright{} 2019 Guillaume Le Vaillant@* +Copyright @copyright{} 2020 Leo Prikler@* Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version 1.3 or @@ -2245,8 +2246,8 @@ bootloaders. Once you are done partitioning the target hard disk drive, you have to create a file system on the relevant partition(s)@footnote{Currently -Guix System only supports ext4 and btrfs file systems. In particular, code -that reads file system UUIDs and labels only works for these file system +Guix System only supports ext4, btrfs, and JFS file systems. In particular, +code that reads file system UUIDs and labels only works for these file system types.}. For the ESP, if you have one and assuming it is @file{/dev/sda1}, run: @@ -14154,8 +14155,8 @@ Package object of the Open vSwitch. @defvr {Scheme Variable} pagekite-service-type This is the service type for the @uref{https://pagekite.net, PageKite} service, a tunneling solution for making localhost servers publicly visible, even from -behind NAT or restrictive firewalls. The value for this service type is a -@code{pagekite-configuration} record. +behind restrictive firewalls or NAT without forwarded ports. The value for +this service type is a @code{pagekite-configuration} record. Here's an example exposing the local HTTP and SSH daemons: @@ -15951,6 +15952,58 @@ pcm.!default @{ See @uref{https://www.alsa-project.org/main/index.php/Asoundrc} for the details. +@deffn {Scheme Variable} pulseaudio-service-type +This is the type for the @uref{http://www.pulseaudio.org/, PulseAudio} +sound server. It exists to allow system overrides of the default settings +via @code{pulseaudio-configuration}, see below. + +@quotation Warning +This service on its own does not ensure, that the @code{pulseaudio} package +exists on your machine. It merely adds configuration files for it, as +detailed below. In the (admittedly unlikely) case, that you find yourself +without a @code{pulseaudio} package, consider enabling it through the +@code{alsa-service-type} above. +@end quotation +@end deffn + +@deftp {Data Type} pulseaudio-configuration +Data type representing the configuration for @code{pulseaudio-service}. + +@table @asis +@item @var{client-conf} (default: @code{'()}) +List of settings to set in @file{client.conf}. +Accepts a list of strings or a symbol-value pairs. A string will be +inserted as-is with a newline added. A pair will be formatted as +``key = value'', again with a newline added. + +@item @var{daemon-conf} (default: @code{'((flat-volumes . no))}) +List of settings to set in @file{daemon.conf}, formatted just like +@var{client-conf}. + +@item @var{script-file} (default: @code{(file-append pulseaudio "/etc/pulse/default.pa")}) +Script file to use as as @file{default.pa}. + +@item @var{system-script-file} (default: @code{(file-append pulseaudio "/etc/pulse/system.pa")}) +Script file to use as as @file{system.pa}. +@end table +@end deftp + +@deffn {Scheme Variable} ladspa-service-type +This service sets the @var{LADSPA_PATH} variable, so that programs, which +respect it, e.g. PulseAudio, can load LADSPA plugins. + +The following example will setup the service to enable modules from the +@code{swh-plugins} package: + +@lisp +(service ladspa-service-type + (ladspa-configuration (plugins (list swh-plugins)))) +@end lisp + +See @uref{http://plugin.org.uk/ladspa-swh/docs/ladspa-swh.html} for the +details. + +@end deffn @node Database Services @subsection Database Services @@ -21926,6 +21979,78 @@ The @code{(gnu services nfs)} module provides the following services, which are most commonly used in relation to mounting or exporting directory trees as @dfn{network file systems} (NFS). +While it is possible to use the individual components that together make +up a Network File System service, we recommended to configure an NFS +server with the @code{nfs-service-type}. + +@subsubheading NFS Service +@cindex NFS, server + +The NFS service takes care of setting up all NFS component services, +kernel configuration file systems, and installs configuration files in +the locations that NFS expects. + +@defvr {Scheme Variable} nfs-service-type +A service type for a complete NFS server. +@end defvr + +@deftp {Data Type} nfs-configuration +This data type represents the configuration of the NFS service and all +of its subsystems. + +It has the following parameters: +@table @asis +@item @code{nfs-utils} (default: @code{nfs-utils}) +The nfs-utils package to use. + +@item @code{nfs-version} (default: @code{#f}) +If a string value is provided, the @command{rpc.nfsd} daemon will be +limited to supporting the given version of the NFS protocol. + +@item @code{exports} (default: @code{'()}) +This is a list of directories the NFS server should export. Each entry +is a list consisting of two elements: a directory name and a string +containing all options. This is an example in which the directory +@file{/export} is served to all NFS clients as a read-only share: + +@lisp +(nfs-configuration + (exports + '(("/export" + "*(ro,insecure,no_subtree_check,crossmnt,fsid=0)")))) +@end lisp + +@item @code{rpcmountd-port} (default: @code{#f}) +The network port that the @command{rpc.mountd} daemon should use. + +@item @code{rpcstatd-port} (default: @code{#f}) +The network port that the @command{rpc.statd} daemon should use. + +@item @code{rpcbind} (default: @code{rpcbind}) +The rpcbind package to use. + +@item @code{idmap-domain} (default: @code{"localdomain"}) +The local NFSv4 domain name. + +@item @code{nfsd-port} (default: @code{2049}) +The network port that the @command{nfsd} daemon should use. + +@item @code{nfsd-threads} (default: @code{8}) +The number of threads used by the @command{nfsd} daemon. + +@item @code{pipefs-directory} (default: @code{"/var/lib/nfs/rpc_pipefs"}) +The directory where the pipefs file system is mounted. + +@item @code{debug} (default: @code{'()"}) +A list of subsystems for which debugging output should be enabled. This +is a list of symbols. Any of these symbols are valid: @code{nfsd}, +@code{nfs}, @code{rpc}, @code{idmap}, @code{statd}, or @code{mountd}. +@end table +@end deftp + +If you don't need a complete NFS service or prefer to build it yourself +you can use the individual component services that are documented below. + @subsubheading RPC Bind Service @cindex rpcbind @@ -22030,6 +22155,9 @@ The local NFSv4 domain name. This must be a string or @code{#f}. If it is @code{#f} then the daemon will use the host's fully qualified domain name. +@item @code{verbosity} (default: @code{0}) +The verbosity level of the daemon. + @end table @end deftp @@ -25958,26 +26086,36 @@ supported: Display available service type definitions that match the given regular expressions, sorted by relevance: +@cindex HDPI +@cindex HiDPI +@cindex resolution @example -$ guix system search console font +$ guix system search console name: console-fonts -location: gnu/services/base.scm:729:2 +location: gnu/services/base.scm:806:2 extends: shepherd-root -description: Install the given fonts on the specified ttys (fonts are -+ per virtual console on GNU/Linux). The value of this service is a list -+ of tty/font pairs like: +description: Install the given fonts on the specified ttys (fonts are per ++ virtual console on GNU/Linux). The value of this service is a list of ++ tty/font pairs. The font can be the name of a font provided by the `kbd' ++ package or any valid argument to `setfont', as in this example: + -+ '(("tty1" . "LatGrkCyr-8x16")) -relevance: 20 ++ '(("tty1" . "LatGrkCyr-8x16") ++ ("tty2" . (file-append ++ font-tamzen ++ "/share/kbd/consolefonts/TamzenForPowerline10x20.psf")) ++ ("tty3" . (file-append ++ font-terminus ++ "/share/consolefonts/ter-132n"))) ; for HDPI +relevance: 9 name: mingetty -location: gnu/services/base.scm:1048:2 +location: gnu/services/base.scm:1190:2 extends: shepherd-root description: Provide console login using the `mingetty' program. relevance: 2 name: login -location: gnu/services/base.scm:775:2 +location: gnu/services/base.scm:860:2 extends: pam description: Provide a console log-in service as specified by its + configuration value, a `login-configuration' object. diff --git a/gnu/bootloader/extlinux.scm b/gnu/bootloader/extlinux.scm index 40108584a8..5b4dd84965 100644 --- a/gnu/bootloader/extlinux.scm +++ b/gnu/bootloader/extlinux.scm @@ -74,7 +74,9 @@ TIMEOUT ~a~%" (format port "~%")) #~()))))) - (computed-file "extlinux.conf" builder)) + (computed-file "extlinux.conf" builder + #:options '(#:local-build? #t + #:substitutable? #f))) diff --git a/gnu/bootloader/grub.scm b/gnu/bootloader/grub.scm index fd62f627a0..f13685ac9d 100644 --- a/gnu/bootloader/grub.scm +++ b/gnu/bootloader/grub.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2016 Chris Marusich <cmmarusich@gmail.com> ;;; Copyright © 2017 Leo Famulari <leo@famulari.name> ;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com> @@ -28,7 +28,7 @@ #:use-module (gnu system uuid) #:use-module (gnu system file-systems) #:use-module (gnu system keyboard) - #:autoload (gnu packages bootloaders) (grub) + #:use-module (gnu packages bootloaders) #:autoload (gnu packages gtk) (guile-cairo guile-rsvg) #:autoload (gnu packages xorg) (xkeyboard-config) #:use-module (ice-9 match) @@ -392,7 +392,11 @@ if [ \"${grub_platform}\" == efi ]; then } fi~%")))) - (computed-file "grub.cfg" builder)) + ;; Since this file is rather unique, there's no point in trying to + ;; substitute it. + (computed-file "grub.cfg" builder + #:options '(#:local-build? #t + #:substitutable? #f))) diff --git a/gnu/build/activation.scm b/gnu/build/activation.scm index c6c7e7fd3b..30f5e87d5a 100644 --- a/gnu/build/activation.scm +++ b/gnu/build/activation.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2015 Mark H Weaver <mhw@netris.org> ;;; ;;; This file is part of GNU Guix. @@ -247,7 +247,19 @@ they already exist." string<?)) (mkdir-p %setuid-directory)) - (for-each make-setuid-program programs)) + (for-each (lambda (program) + (catch 'system-error + (lambda () + (make-setuid-program program)) + (lambda args + ;; If we fail to create a setuid program, better keep going + ;; so that we don't leave %SETUID-DIRECTORY empty or + ;; half-populated. This can happen if PROGRAMS contains + ;; incorrect file names: <https://bugs.gnu.org/38800>. + (format (current-error-port) + "warning: failed to make '~a' setuid-root: ~a~%" + program (strerror (system-error-errno args)))))) + programs)) (define (activate-special-files special-files) "Install the files listed in SPECIAL-FILES. Each element of SPECIAL-FILES @@ -269,9 +281,13 @@ second element is the name it should appear at, such as: (define (activate-modprobe modprobe) "Tell the kernel to use MODPROBE to load modules." - (call-with-output-file "/proc/sys/kernel/modprobe" - (lambda (port) - (display modprobe port)))) + + ;; If the kernel was built without loadable module support, this file is + ;; unavailable, so check for its existence first. + (when (file-exists? "/proc/sys/kernel/modprobe") + (call-with-output-file "/proc/sys/kernel/modprobe" + (lambda (port) + (display modprobe port))))) (define (activate-firmware directory) "Tell the kernel to look for device firmware under DIRECTORY. This diff --git a/gnu/build/file-systems.scm b/gnu/build/file-systems.scm index 13c44aa728..ee6375515f 100644 --- a/gnu/build/file-systems.scm +++ b/gnu/build/file-systems.scm @@ -3,6 +3,8 @@ ;;; Copyright © 2016, 2017 David Craven <david@craven.ch> ;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2019 Guillaume Le Vaillant <glv@posteo.net> +;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2019 David C. Trudgian <dave@trudgian.net> ;;; ;;; This file is part of GNU Guix. ;;; @@ -296,6 +298,45 @@ string. Trailing spaces are trimmed." ;;; +;;; JFS file systems. +;;; + +;; Taken from <linux-libre>/fs/jfs/jfs_superblock.h. + +(define-syntax %jfs-endianness + ;; Endianness of JFS file systems. + (identifier-syntax (endianness little))) + +(define (jfs-superblock? sblock) + "Return #t when SBLOCK is a JFS superblock." + (bytevector=? (sub-bytevector sblock 0 4) + (string->utf8 "JFS1"))) + +(define (read-jfs-superblock device) + "Return the raw contents of DEVICE's JFS superblock as a bytevector, or #f +if DEVICE does not contain a JFS file system." + (read-superblock device 32768 184 jfs-superblock?)) + +(define (jfs-superblock-uuid sblock) + "Return the UUID of JFS superblock SBLOCK as a 16-byte bytevector." + (sub-bytevector sblock 136 16)) + +(define (jfs-superblock-volume-name sblock) + "Return the volume name of SBLOCK as a string of at most 16 characters, or +#f if SBLOCK has no volume name." + (null-terminated-latin1->string (sub-bytevector sblock 152 16))) + +(define (check-jfs-file-system device) + "Return the health of a JFS file system on DEVICE." + (match (status:exit-val + (system* "jfs_fsck" "-p" "-v" device)) + (0 'pass) + (1 'errors-corrected) + (2 'reboot-required) + (_ 'fatal-error))) + + +;;; ;;; LUKS encrypted devices. ;;; @@ -303,6 +344,10 @@ string. Trailing spaces are trimmed." ;; <https://gitlab.com/cryptsetup/cryptsetup/wikis/Specification>. We follow ;; version 1.2.1 of this document. +;; The LUKS2 header format is described in "LUKS2 On-Disk Format Specification": +;; <https://gitlab.com/cryptsetup/LUKS2-docs/blob/master/luks2_doc_wip.pdf>. +;; It is a WIP document. + (define-syntax %luks-endianness ;; Endianness of LUKS headers. (identifier-syntax (endianness big))) @@ -316,12 +361,16 @@ string. Trailing spaces are trimmed." (let ((magic (sub-bytevector sblock 0 6)) (version (bytevector-u16-ref sblock 6 %luks-endianness))) (and (bytevector=? magic %luks-magic) - (= version 1)))) + (or (= version 1) (= version 2))))) (define (read-luks-header file) "Read a LUKS header from FILE. Return the raw header on success, and #f if not valid header was found." - ;; Size in bytes of the LUKS header, including key slots. + ;; Size in bytes of the LUKS binary header, which includes key slots in + ;; LUKS1. In LUKS2 the binary header is partially backward compatible, so + ;; that UUID can be extracted as for LUKS1. Keyslots and other metadata are + ;; not part of this header in LUKS2, but are included in the JSON metadata + ;; area that follows. (read-superblock file 0 592 luks-superblock?)) (define (luks-header-uuid header) @@ -420,7 +469,9 @@ partition field reader that returned a value." (partition-field-reader read-fat32-superblock fat32-superblock-volume-name) (partition-field-reader read-fat16-superblock - fat16-superblock-volume-name))) + fat16-superblock-volume-name) + (partition-field-reader read-jfs-superblock + jfs-superblock-volume-name))) (define %partition-uuid-readers (list (partition-field-reader read-iso9660-superblock @@ -432,7 +483,9 @@ partition field reader that returned a value." (partition-field-reader read-fat32-superblock fat32-superblock-uuid) (partition-field-reader read-fat16-superblock - fat16-superblock-uuid))) + fat16-superblock-uuid) + (partition-field-reader read-jfs-superblock + jfs-superblock-uuid))) (define read-partition-label (cut read-partition-field <> %partition-label-readers)) @@ -527,6 +580,7 @@ were found." ((string-prefix? "ext" type) check-ext2-file-system) ((string-prefix? "btrfs" type) check-btrfs-file-system) ((string-suffix? "fat" type) check-fat-file-system) + ((string-prefix? "jfs" type) check-jfs-file-system) (else #f))) (if check-procedure diff --git a/gnu/installer.scm b/gnu/installer.scm index 167653263f..1676a91801 100644 --- a/gnu/installer.scm +++ b/gnu/installer.scm @@ -1,7 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2019 Ludovic Courtès <ludo@gnu.org> -;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; ;;; This file is part of GNU Guix. ;;; @@ -32,6 +32,7 @@ #:use-module (gnu packages connman) #:use-module (gnu packages cryptsetup) #:use-module (gnu packages disk) + #:use-module (gnu packages file-systems) #:use-module (gnu packages guile) #:use-module (gnu packages guile-xyz) #:autoload (gnu packages gnupg) (guile-gcrypt) @@ -295,7 +296,8 @@ selected keymap." cryptsetup dosfstools ;mkfs.fat e2fsprogs ;mkfs.ext4 - btrfs-progs + btrfs-progs ;mkfs.btrfs + jfsutils ;jfs_mkfs kbd ;chvt guix ;guix system init call util-linux ;mkwap diff --git a/gnu/installer/newt/partition.scm b/gnu/installer/newt/partition.scm index 74e9473171..3cba7f77dd 100644 --- a/gnu/installer/newt/partition.scm +++ b/gnu/installer/newt/partition.scm @@ -1,6 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2018, 2019 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2019 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; ;;; This file is part of GNU Guix. ;;; @@ -120,7 +121,7 @@ Be careful, all data on the disk will be lost.") (run-listbox-selection-page #:info-text (G_ "Please select the file-system type for this partition.") #:title (G_ "File-system type") - #:listbox-items '(ext4 btrfs fat16 fat32 swap) + #:listbox-items '(ext4 btrfs fat16 fat32 jfs swap) #:listbox-item->text user-fs-type-name #:sort-listbox-items? #f #:button-text (G_ "Exit") diff --git a/gnu/installer/parted.scm b/gnu/installer/parted.scm index 3439f211e2..c2b02c9281 100644 --- a/gnu/installer/parted.scm +++ b/gnu/installer/parted.scm @@ -1,6 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2018, 2019 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2019 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; ;;; This file is part of GNU Guix. ;;; @@ -221,6 +222,7 @@ inferior to MAX-SIZE, #f otherwise." ((btrfs) "btrfs") ((fat16) "fat16") ((fat32) "fat32") + ((jfs) "jfs") ((swap) "linux-swap"))) (define (user-fs-type->mount-type fs-type) @@ -229,7 +231,8 @@ inferior to MAX-SIZE, #f otherwise." ((ext4) "ext4") ((btrfs) "btrfs") ((fat16) "fat") - ((fat32) "vfat"))) + ((fat32) "vfat") + ((jfs) "jfs"))) (define (partition-filesystem-user-type partition) "Return the filesystem type of PARTITION, to be stored in the FS-TYPE field @@ -242,6 +245,7 @@ of <user-partition> record." ((string=? name "btrfs") 'btrfs) ((string=? name "fat16") 'fat16) ((string=? name "fat32") 'fat32) + ((string=? name "jfs") 'jfs) ((or (string=? name "swsusp") (string=? name "linux-swap(v0)") (string=? name "linux-swap(v1)")) @@ -1012,7 +1016,7 @@ bit bucket." (lambda () exp ...))))) (define (create-btrfs-file-system partition) - "Create an btrfs file-system for PARTITION file-name." + "Create a btrfs file-system for PARTITION file-name." (with-null-output-ports (invoke "mkfs.btrfs" "-f" partition))) @@ -1031,6 +1035,11 @@ bit bucket." (with-null-output-ports (invoke "mkfs.fat" "-F32" partition))) +(define (create-jfs-file-system partition) + "Create a JFS file-system for PARTITION file-name." + (with-null-output-ports + (invoke "jfs_mkfs" "-f" partition))) + (define (create-swap-partition partition) "Set up swap area on PARTITION file-name." (with-null-output-ports @@ -1101,6 +1110,10 @@ NEED-FORMATING? field set to #t." (and need-formatting? (not (eq? type 'extended)) (create-fat32-file-system file-name))) + ((jfs) + (and need-formatting? + (not (eq? type 'extended)) + (create-jfs-file-system file-name))) ((swap) (create-swap-partition file-name)) (else diff --git a/gnu/local.mk b/gnu/local.mk index 62561c7261..09f46b065e 100644 --- a/gnu/local.mk +++ b/gnu/local.mk @@ -7,7 +7,7 @@ # Copyright © 2016, 2017, 2018 Kei Kebreau <kkebreau@posteo.net> # Copyright © 2016, 2017 Rene Saavedra <rennes@openmailbox.org> # Copyright © 2016 Adonay "adfeno" Felipe Nogueira <https://libreplanet.org/wiki/User:Adfeno> <adfeno@openmailbox.org> -# Copyright © 2016, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net> +# Copyright © 2016, 2017, 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net> # Copyright © 2016 Ben Woodcroft <donttrustben@gmail.com> # Copyright © 2016, 2017, 2018, 2019 Alex Vong <alexvong1995@gmail.com> # Copyright © 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il> @@ -17,7 +17,7 @@ # Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com> # Copyright © 2017, 2018, 2019 Gábor Boskovits <boskovits@gmail.com> # Copyright © 2018 Amirouche Boubekki <amirouche@hypermove.net> -# Copyright © 2018, 2019 Oleg Pykhalov <go.wigust@gmail.com> +# Copyright © 2018, 2019, 2020 Oleg Pykhalov <go.wigust@gmail.com> # Copyright © 2018 Stefan Stefanović <stefanx2ovic@gmail.com> # Copyright © 2018 Maxim Cournoyer <maxim.cournoyer@gmail.com> # Copyright © 2019 Guillaume Le Vaillant <glv@posteo.net> @@ -25,6 +25,7 @@ # Copyright © 2019 Jonathan Brielmaier <jonathan.brielmaier@web.de> # Copyright © 2019 Evan Straw <evan.straw99@gmail.com> # Copyright © 2019 Brett Gilio <brettg@gnu.org> +# Copyright © 2019 Amin Bandali <bandali@gnu.org> # # This file is part of GNU Guix. # @@ -228,7 +229,6 @@ GNU_SYSTEM_MODULES = \ %D%/packages/golang.scm \ %D%/packages/gperf.scm \ %D%/packages/gpodder.scm \ - %D%/packages/gprolog.scm \ %D%/packages/gps.scm \ %D%/packages/graph.scm \ %D%/packages/graphics.scm \ @@ -290,6 +290,7 @@ GNU_SYSTEM_MODULES = \ %D%/packages/key-mon.scm \ %D%/packages/kodi.scm \ %D%/packages/language.scm \ + %D%/packages/lean.scm \ %D%/packages/lego.scm \ %D%/packages/less.scm \ %D%/packages/lesstif.scm \ @@ -376,6 +377,7 @@ GNU_SYSTEM_MODULES = \ %D%/packages/onc-rpc.scm \ %D%/packages/opencl.scm \ %D%/packages/openbox.scm \ + %D%/packages/opencog.scm \ %D%/packages/openldap.scm \ %D%/packages/openstack.scm \ %D%/packages/orpheus.scm \ @@ -403,6 +405,7 @@ GNU_SYSTEM_MODULES = \ %D%/packages/popt.scm \ %D%/packages/printers.scm \ %D%/packages/profiling.scm \ + %D%/packages/prolog.scm \ %D%/packages/pth.scm \ %D%/packages/pulseaudio.scm \ %D%/packages/pumpio.scm \ @@ -435,7 +438,7 @@ GNU_SYSTEM_MODULES = \ %D%/packages/ruby.scm \ %D%/packages/rush.scm \ %D%/packages/rust.scm \ - %D%/packages/rust-cbindgen.scm \ + %D%/packages/rust-apps.scm \ %D%/packages/samba.scm \ %D%/packages/sagemath.scm \ %D%/packages/sawfish.scm \ @@ -691,7 +694,6 @@ dist_patch_DATA = \ %D%/packages/patches/a2ps-CVE-2015-8107.patch \ %D%/packages/patches/abcl-fix-build-xml.patch \ %D%/packages/patches/abiword-explictly-cast-bools.patch \ - %D%/packages/patches/abiword-black-drawing-with-gtk322.patch \ %D%/packages/patches/adb-add-libraries.patch \ %D%/packages/patches/aegis-constness-error.patch \ %D%/packages/patches/aegis-perl-tempdir1.patch \ @@ -706,10 +708,9 @@ dist_patch_DATA = \ %D%/packages/patches/antiword-CVE-2014-8123.patch \ %D%/packages/patches/antlr3-3_1-fix-java8-compilation.patch \ %D%/packages/patches/antlr3-3_3-fix-java8-compilation.patch \ + %D%/packages/patches/appstream-glib-2020.patch \ %D%/packages/patches/apr-skip-getservbyname-test.patch \ %D%/packages/patches/arm-trusted-firmware-disable-hdcp.patch \ - %D%/packages/patches/arm-trusted-firmware-optional-bin-generation.patch \ - %D%/packages/patches/arm-trusted-firmware-rockchip-disable-binary.patch \ %D%/packages/patches/aspell-default-dict-dir.patch \ %D%/packages/patches/ath9k-htc-firmware-binutils.patch \ %D%/packages/patches/ath9k-htc-firmware-gcc.patch \ @@ -759,10 +760,8 @@ dist_patch_DATA = \ %D%/packages/patches/catdoc-CVE-2017-11110.patch \ %D%/packages/patches/cdparanoia-fpic.patch \ %D%/packages/patches/cdrtools-3.01-mkisofs-isoinfo.patch \ - %D%/packages/patches/ceph-detect-rocksdb.patch \ + %D%/packages/patches/ceph-boost-compat.patch \ %D%/packages/patches/ceph-disable-cpu-optimizations.patch \ - %D%/packages/patches/ceph-skip-collect-sys-info-test.patch \ - %D%/packages/patches/ceph-skip-unittest_blockdev.patch \ %D%/packages/patches/ceph-volume-respect-PATH.patch \ %D%/packages/patches/chmlib-inttypes.patch \ %D%/packages/patches/clamav-config-llvm-libs.patch \ @@ -997,7 +996,6 @@ dist_patch_DATA = \ %D%/packages/patches/hdf-eos5-remove-gctp.patch \ %D%/packages/patches/hdf-eos5-fix-szip.patch \ %D%/packages/patches/hdf-eos5-fortrantests.patch \ - %D%/packages/patches/hexchat-crash-exit.patch \ %D%/packages/patches/higan-remove-march-native-flag.patch \ %D%/packages/patches/hubbub-sort-entities.patch \ %D%/packages/patches/hurd-fix-eth-multiplexer-dependency.patch \ @@ -1030,6 +1028,8 @@ dist_patch_DATA = \ %D%/packages/patches/java-xerces-build_dont_unzip.patch \ %D%/packages/patches/java-xerces-xjavac_taskdef.patch \ %D%/packages/patches/jbig2dec-ignore-testtest.patch \ + %D%/packages/patches/jfsutils-add-sysmacros.patch \ + %D%/packages/patches/jfsutils-include-systypes.patch \ %D%/packages/patches/kdbusaddons-kinit-file-name.patch \ %D%/packages/patches/libnftnl-dont-check-NFTNL_FLOWTABLE_SIZE.patch \ %D%/packages/patches/libvirt-create-machine-cgroup.patch \ @@ -1107,6 +1107,8 @@ dist_patch_DATA = \ %D%/packages/patches/libsndfile-CVE-2017-8362.patch \ %D%/packages/patches/libsndfile-CVE-2017-12562.patch \ %D%/packages/patches/libtar-CVE-2013-4420.patch \ + %D%/packages/patches/libtgvoip-disable-sse2.patch \ + %D%/packages/patches/libtgvoip-disable-webrtc.patch \ %D%/packages/patches/libtheora-config-guess.patch \ %D%/packages/patches/libtommath-fix-linkage.patch \ %D%/packages/patches/libtool-skip-tests2.patch \ @@ -1156,7 +1158,6 @@ dist_patch_DATA = \ %D%/packages/patches/mcrypt-CVE-2012-4527.patch \ %D%/packages/patches/mes-remove-store-name.patch \ %D%/packages/patches/mesa-skip-disk-cache-test.patch \ - %D%/packages/patches/mesa-timespec-test-32bit.patch \ %D%/packages/patches/mescc-tools-boot.patch \ %D%/packages/patches/meson-for-build-rpath.patch \ %D%/packages/patches/metabat-fix-compilation.patch \ @@ -1195,11 +1196,9 @@ dist_patch_DATA = \ %D%/packages/patches/netsurf-system-utf8proc.patch \ %D%/packages/patches/netsurf-y2038-tests.patch \ %D%/packages/patches/netsurf-longer-test-timeout.patch \ - %D%/packages/patches/nfs-utils-missing-headers.patch \ %D%/packages/patches/ngircd-handle-zombies.patch \ %D%/packages/patches/nm-plugin-path.patch \ %D%/packages/patches/nsis-env-passthru.patch \ - %D%/packages/patches/nss-CVE-2019-11745.patch \ %D%/packages/patches/nss-freebl-stubs.patch \ %D%/packages/patches/nss-increase-test-timeout.patch \ %D%/packages/patches/nss-pkgconfig.patch \ @@ -1233,7 +1232,6 @@ dist_patch_DATA = \ %D%/packages/patches/openssl-c-rehash-in.patch \ %D%/packages/patches/openssl-CVE-2019-1559.patch \ %D%/packages/patches/open-zwave-hidapi.patch \ - %D%/packages/patches/orc-typedef-enum.patch \ %D%/packages/patches/orpheus-cast-errors-and-includes.patch \ %D%/packages/patches/osip-CVE-2017-7853.patch \ %D%/packages/patches/ots-no-include-missing-file.patch \ @@ -1245,7 +1243,6 @@ dist_patch_DATA = \ %D%/packages/patches/pango-skip-libthai-test.patch \ %D%/packages/patches/patchutils-test-perms.patch \ %D%/packages/patches/patch-hurd-path-max.patch \ - %D%/packages/patches/pcre2-fix-jit_match-crash.patch \ %D%/packages/patches/perl-autosplit-default-time.patch \ %D%/packages/patches/perl-deterministic-ordering.patch \ %D%/packages/patches/perl-finance-quote-unuse-mozilla-ca.patch \ @@ -1385,7 +1382,6 @@ dist_patch_DATA = \ %D%/packages/patches/sooperlooper-build-with-wx-30.patch \ %D%/packages/patches/soundconverter-remove-gconf-dependency.patch \ %D%/packages/patches/steghide-fixes.patch \ - %D%/packages/patches/streamlink-update-test.patch \ %D%/packages/patches/supercollider-boost-1.70-build-fix.patch \ %D%/packages/patches/superlu-dist-awpm-grid.patch \ %D%/packages/patches/superlu-dist-fix-mpi-deprecations.patch \ @@ -1425,7 +1421,6 @@ dist_patch_DATA = \ %D%/packages/patches/tomb-fix-errors-on-open.patch \ %D%/packages/patches/tuxpaint-stamps-path.patch \ %D%/packages/patches/txr-shell.patch \ - %D%/packages/patches/u-boot-fix-mkimage-header-verification.patch \ %D%/packages/patches/ucx-tcp-iface-ioctl.patch \ %D%/packages/patches/udiskie-no-appindicator.patch \ %D%/packages/patches/unzip-CVE-2014-8139.patch \ diff --git a/gnu/packages.scm b/gnu/packages.scm index 959777ff8f..143469b288 100644 --- a/gnu/packages.scm +++ b/gnu/packages.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2016, 2017 Alex Kost <alezost@gmail.com> @@ -30,12 +30,12 @@ #:select ((package-name->name+version . hyphen-separated-name->name+version) mkdir-p)) - #:autoload (guix profiles) (packages->manifest) + #:use-module (guix profiles) #:use-module (guix describe) #:use-module (guix deprecation) #:use-module (ice-9 vlist) #:use-module (ice-9 match) - #:autoload (ice-9 binary-ports) (put-bytevector) + #:use-module (ice-9 binary-ports) #:autoload (system base compile) (compile) #:use-module (srfi srfi-1) #:use-module (srfi srfi-11) diff --git a/gnu/packages/abiword.scm b/gnu/packages/abiword.scm index db9f1bb72c..2b65a02242 100644 --- a/gnu/packages/abiword.scm +++ b/gnu/packages/abiword.scm @@ -4,6 +4,7 @@ ;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2017 Leo Famulari <leo@famulari.name> ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -47,7 +48,7 @@ (define-public abiword (package (name "abiword") - (version "3.0.2") + (version "3.0.4") (source (origin (method url-fetch) @@ -55,10 +56,9 @@ (string-append "https://www.abisource.com/downloads/abiword/" version "/source/abiword-" version ".tar.gz")) (sha256 - (base32 "08imry821g81apdwym3gcs4nss0l9j5blqk31j5rv602zmcd9gxg")) + (base32 "1mx5l716n0z5788i19qmad30cck4v9ggr071cafw2nrf375rcc79")) (patches - (search-patches "abiword-explictly-cast-bools.patch" - "abiword-black-drawing-with-gtk322.patch")))) + (search-patches "abiword-explictly-cast-bools.patch")))) (build-system glib-or-gtk-build-system) (arguments ;; NOTE: rsvg is disabled, since Abiword diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm index 81f9f3b70e..0790925416 100644 --- a/gnu/packages/admin.scm +++ b/gnu/packages/admin.scm @@ -13,7 +13,7 @@ ;;; Copyright © 2016 Peter Feigl <peter.feigl@nexoid.at> ;;; Copyright © 2016 John J. Foerch <jjfoerch@earthlink.net> ;;; Copyright © 2016, 2017 ng0 <ng0@n0.is> -;;; Copyright © 2016, 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2016, 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2016 John Darrington <jmd@gnu.org> ;;; Copyright © 2017 Ben Sturmfels <ben@sturm.com.au> ;;; Copyright © 2017 Ethan R. Jones <doubleplusgood23@gmail.com> @@ -30,6 +30,7 @@ ;;; Copyright © 2019 Alex Griffin <a@ajgrf.com> ;;; Copyright © 2019 Guillaume Le Vaillant <glv@posteo.net> ;;; Copyright © 2019, 2020 Mathieu Othacehe <m.othacehe@gmail.com> +;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -1204,7 +1205,7 @@ system administrator.") (define-public sudo (package (name "sudo") - (version "1.8.29") + (version "1.8.30") (source (origin (method url-fetch) (uri @@ -1214,7 +1215,7 @@ system administrator.") version ".tar.gz"))) (sha256 (base32 - "0z4wyadh9cks17gdpfgx4kvbrlnyb6nai2sd6chk7qh4jsngylyf")) + "1rvrqlqrrjsd06dczgj9cwjdkpkqil5zzlwh87h06ms6qzfx6nm3")) (modules '((guix build utils))) (snippet '(begin @@ -1834,7 +1835,7 @@ various ways that may be running with too much privilege.") (define-public smartmontools (package (name "smartmontools") - (version "7.0") + (version "7.1") (source (origin (method url-fetch) (uri (string-append @@ -1842,7 +1843,7 @@ various ways that may be running with too much privilege.") version "/smartmontools-" version ".tar.gz")) (sha256 (base32 - "077nx2rn9szrg6isdh0938zbp7vr3dsyxl4jdyyzv1xwhqksrqg5")))) + "0imqb7ka4ia5573w8rnpck571pjjc9698pdjcapy9cfyk4n4swrz")))) (build-system gnu-build-system) (inputs `(("libcap-ng" ,libcap-ng))) (home-page "https://www.smartmontools.org/") @@ -2908,34 +2909,35 @@ tool for remote execution and deployment.") (license license:bsd-2))) (define-public neofetch - (package - (name "neofetch") - (version "6.1.0") - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/dylanaraps/neofetch") - (commit version))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "022xzn9jk18k2f4b6011d8jk5nbl84i3mw3inlz4q52p2hvk8fch")))) - (build-system gnu-build-system) - (arguments - `(#:tests? #f ; there are no tests - #:make-flags - (list (string-append "PREFIX=" %output)) - #:phases - (modify-phases %standard-phases - (delete 'configure)))) ; no configure script - (home-page "https://github.com/dylanaraps/neofetch") - (synopsis "System information script") - (description "Neofetch is a command-line system information tool written in + (let ((commit "501d6b7594296d9eac8943140f8581daf555873d")) + (package + (name "neofetch") + (version (git-version "6.1.0" "1" commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/dylanaraps/neofetch") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1h5md9jimyc6z4d7w66j27hn8qghzyxgpkh5h9dclzxpp5cs8whb")))) + (build-system gnu-build-system) + (arguments + `(#:tests? #f ; there are no tests + #:make-flags + (list (string-append "PREFIX=" %output)) + #:phases + (modify-phases %standard-phases + (delete 'configure)))) ; no configure script + (home-page "https://github.com/dylanaraps/neofetch") + (synopsis "System information script") + (description "Neofetch is a command-line system information tool written in Bash. Neofetch displays information about your system next to an image, your OS logo, or any ASCII file of your choice. The main purpose of Neofetch is to be used in screenshots to show other users what operating system or distribution you are running, what theme or icon set you are using, etc.") - (license license:expat))) + (license license:expat)))) (define-public screenfetch (package @@ -3205,7 +3207,7 @@ Python loading in HPC environments.") (let ((real-name "inxi")) (package (name "inxi-minimal") - (version "3.0.34-1") + (version "3.0.37-1") (source (origin (method git-fetch) @@ -3214,7 +3216,7 @@ Python loading in HPC environments.") (commit version))) (file-name (git-file-name real-name version)) (sha256 - (base32 "0x2s40lwsan2pk292nspjgyw00f9f5fdfmwfvl50924pxhyxn2fh")))) + (base32 "15wvj9w601ci3bavd1hk5qlm8dfm7a7cjglczk29yir5yw2jww3f")))) (build-system trivial-build-system) (inputs `(("bash" ,bash-minimal) diff --git a/gnu/packages/algebra.scm b/gnu/packages/algebra.scm index 7d33613e64..a31ac8dab0 100644 --- a/gnu/packages/algebra.scm +++ b/gnu/packages/algebra.scm @@ -346,7 +346,7 @@ precision.") (define-public giac (package (name "giac") - (version "1.5.0-75") + (version "1.5.0-85") (source (origin (method url-fetch) ;; "~parisse/giac" is not used because the maintainer regularly @@ -358,7 +358,7 @@ precision.") "source/giac_" version ".tar.gz")) (sha256 (base32 - "1k94xl6hvy9xqwc3ccgnhpdqgq3lkjbgpgq0njizmlg514dh2jhq")))) + "03icgrfhb1xiy95cqmfgmcb1lw3775mr2ybnzandmyn44iycs6rh")))) (build-system gnu-build-system) (arguments `(#:modules ((ice-9 ftw) diff --git a/gnu/packages/assembly.scm b/gnu/packages/assembly.scm index fac3d478a5..a96b169d15 100644 --- a/gnu/packages/assembly.scm +++ b/gnu/packages/assembly.scm @@ -3,9 +3,10 @@ ;;; Copyright © 2013, 2015 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il> -;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2019 Guy Fleury Iteriteka <hoonandon@gmail.com> ;;; Copyright © 2019 Andy Tai <atai@atai.org> +;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net> ;;; ;;; This file is part of GNU Guix. ;;; @@ -23,6 +24,7 @@ ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. (define-module (gnu packages assembly) + #:use-module (guix build-system cmake) #:use-module (guix build-system gnu) #:use-module (guix download) #:use-module (guix git-download) @@ -36,11 +38,14 @@ #:use-module (gnu packages compression) #:use-module (gnu packages flex) #:use-module (gnu packages gettext) + #:use-module (gnu packages image) + #:use-module (gnu packages linux) #:use-module (gnu packages man) #:use-module (gnu packages perl) #:use-module (gnu packages pkg-config) #:use-module (gnu packages texinfo) #:use-module (gnu packages python) + #:use-module (gnu packages sphinx) #:use-module (gnu packages xml) #:use-module ((guix utils) #:select (%current-system))) @@ -143,14 +148,14 @@ to the clients.") (define-public fasm (package (name "fasm") - (version "1.73.11") + (version "1.73.21") (source (origin (method url-fetch) (uri (string-append "https://flatassembler.net/fasm-" version ".tgz")) (sha256 - (base32 "1zhbs72qc8bw5158zh6mvzznfamcx5a1bsmbmq9ci0d7wb58sxmg")))) + (base32 "143zh7x3q0r2kclshh8n5w4i5pw4lh60si7rspvc725xxjpjkvcv")))) (build-system gnu-build-system) (arguments `(#:tests? #f ; no tests exist @@ -174,9 +179,9 @@ to the clients.") (supported-systems '("x86_64-linux" "i686-linux")) (synopsis "Assembler for x86 processors") (description - "FASM is an assembler that supports x86 and IA-64 Intel architectures. -It does multiple passes to optimize machine code. It has macro abilities and -focuses on operating system portability.") + "@acronym{FASM, the Flat ASseMbler} is an assembler that supports x86 and +IA-64 Intel architectures. It does multiple passes to optimize machine code. +It has macro abilities and focuses on operating system portability.") (home-page "https://flatassembler.net/") (license license:bsd-2))) @@ -249,3 +254,91 @@ assembler, a C compiler and a linker. The assembler uses Intel syntax functionality independent of any particular bytecode, language, or runtime") (license license:lgpl2.1+)))) + +(define-public rgbds + (package + (name "rgbds") + (version "0.3.9") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/rednex/rgbds.git") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0pzd9ig3ahpgq7jbj82grllxx1v01d620insr2m8h0c6jj25n5hv")))) + (build-system gnu-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (delete 'configure) + (replace 'check + (lambda _ + (with-directory-excursion "test/asm" + (invoke "./test.sh")) + (with-directory-excursion "test/link" + (invoke "./test.sh"))))) + #:make-flags `("CC=gcc" + ,(string-append "PREFIX=" + (assoc-ref %outputs "out"))))) + (native-inputs + `(("bison" ,bison) + ("flex" ,flex) + ("pkg-config" ,pkg-config) + ("util-linux" ,util-linux))) + (inputs + `(("libpng" ,libpng))) + (home-page "https://github.com/rednex/rgbds") + (synopsis "Rednex Game Boy Development System") + (description + "RGBDS (Rednex Game Boy Development System) is an assembler/linker +package for the Game Boy and Game Boy Color. It consists of: +@itemize @bullet +@item rgbasm (assembler) +@item rgblink (linker) +@item rgbfix (checksum/header fixer) +@item rgbgfx (PNG-to-Game Boy graphics converter) +@end itemize") + (license license:expat))) + +(define-public wla-dx + (package + (name "wla-dx") + (version "9.10") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/vhelin/wla-dx.git") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "022isf7s9q5i0j4xj69zpp0lgw8p9n37sn7ii25v68r15zaahk2w")))) + (build-system cmake-build-system) + (native-inputs + `(("sphinx" ,python-sphinx))) ; to generate man pages + (arguments + `(#:tests? #f)) ; no tests + (home-page "https://github.com/vhelin/wla-dx") + (synopsis "Assemblers for various processors") + (description "WLA DX is a set of tools to assemble assembly files to +object or library files (@code{wla-ARCH}) and link them together (@code{wlalink}). +Supported architectures are: + +@itemize @bullet +@item z80 +@item gb (z80-gb) +@item 6502 +@item 65c02 +@item 6510 +@item 65816 +@item 6800 +@item 6801 +@item 6809 +@item 8008 +@item 8080 +@item huc6280 +@item spc700 +@end itemize") + (license license:gpl2))) diff --git a/gnu/packages/astronomy.scm b/gnu/packages/astronomy.scm index a909b46d6a..3bb236fde9 100644 --- a/gnu/packages/astronomy.scm +++ b/gnu/packages/astronomy.scm @@ -1,6 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2016 John Darrington <jmd@gnu.org> -;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018, 2019 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2019 by Amar Singh <nly@disroot.org> ;;; @@ -149,7 +149,7 @@ programs for the manipulation and analysis of astronomical data.") (define-public stellarium (package (name "stellarium") - (version "0.19.2") + (version "0.19.3") (source (origin (method url-fetch) @@ -157,7 +157,7 @@ programs for the manipulation and analysis of astronomical data.") "/releases/download/v" version "/stellarium-" version ".tar.gz")) (sha256 - (base32 "10b05slj5fjakrjb20m68xql68plb64mwn0165dy2fry8z2hbl74")))) + (base32 "0p92rgclag0nkic9gk3p9vclb8xx9hv4zlgyij6cyh43s7c1avhp")))) (build-system cmake-build-system) (inputs `(("qtbase" ,qtbase) diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm index dcd4711513..cf06732e18 100644 --- a/gnu/packages/audio.scm +++ b/gnu/packages/audio.scm @@ -8,8 +8,8 @@ ;;; Copyright © 2016, 2017 Alex Griffin <a@ajgrf.com> ;;; Copyright © 2016 ng0 <ng0@n0.is> ;;; Copyright © 2016 Lukas Gradl <lgradl@openmailbox.org> -;;; Copyright © 2016, 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> -;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com> +;;; Copyright © 2016, 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2018, 2020 Oleg Pykhalov <go.wigust@gmail.com> ;;; Copyright © 2018 okapi <okapi@firemail.cc> ;;; Copyright © 2018 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org> @@ -722,6 +722,36 @@ performances. The plugins include a cellular automaton synthesizer, an envelope follower, distortion effects, tape effects and more.") (license license:gpl2+))) +(define-public swh-plugins + (package + (name "swh-plugins") + (version "0.4.17") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/swh/ladspa.git") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1c98z2xxz9pgcb4dg99gz8qrylh5cnag0j18a52d88ifsy24isvq")))) + (native-inputs + `(("autoconf" ,autoconf) + ("automake" ,automake) + ("gettext" ,gettext-minimal) ;for autopoint + ("libtool" ,libtool) + ("perl" ,perl) + ("pkg-config" ,pkg-config) + ("which" ,which))) + (inputs + `(("fftwf" ,fftwf) + ("perl-xml-parser" ,perl-xml-parser))) + (build-system gnu-build-system) + (home-page "http://plugin.org.uk") + (synopsis "The SWH Plugins package for the LADSPA plugin system") + (description "This package provides Steve Harris's LADSPA plugins.") + (license license:gpl2+))) + (define-public swh-plugins-lv2 (package (name "swh-plugins-lv2") @@ -2733,7 +2763,7 @@ Tracker 3 S3M and Impulse Tracker IT files.") (define-public soundtouch (package (name "soundtouch") - (version "2.1.1") + (version "2.1.2") (source (origin (method git-fetch) @@ -2742,7 +2772,7 @@ Tracker 3 S3M and Impulse Tracker IT files.") (commit version))) (file-name (git-file-name name version)) (sha256 - (base32 "0p6jzgfgqw061702dmd2b6r4arz48ac3mmx2qkvvzf8s5jjzykdh")))) + (base32 "174wgm3s0inmbnkrlnspxjwm2014qhjhkbdqa5r8rbfi0nzqxzsz")))) (build-system gnu-build-system) (native-inputs `(("autoconf" ,autoconf) @@ -3562,7 +3592,8 @@ the following features: `(("which" ,which))) (inputs `(("fftw" ,fftw) - ("googletest" ,googletest) + ;; TODO: Try using the latest googletest for versions > 1.6. + ("googletest" ,googletest-1.8) ("ncurses" ,ncurses) ("pulseaudio" ,pulseaudio))) (arguments diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm index b7b1777c24..0e4cb5b1db 100644 --- a/gnu/packages/bioinformatics.scm +++ b/gnu/packages/bioinformatics.scm @@ -4,7 +4,7 @@ ;;; Copyright © 2015, 2016 Pjotr Prins <pjotr.guix@thebird.nl> ;;; Copyright © 2015 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2016 Roel Janssen <roel@gnu.org> -;;; Copyright © 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il> +;;; Copyright © 2016, 2017, 2018, 2019, 2020 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2016, 2018 Raoul Bonnal <ilpuccio.febo@gmail.com> ;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr> @@ -85,10 +85,10 @@ #:use-module (gnu packages imagemagick) #:use-module (gnu packages java) #:use-module (gnu packages java-compression) - #:use-module (gnu packages javascript) #:use-module (gnu packages jemalloc) #:use-module (gnu packages dlang) #:use-module (gnu packages linux) + #:use-module (gnu packages lisp-xyz) #:use-module (gnu packages logging) #:use-module (gnu packages machine-learning) #:use-module (gnu packages man) @@ -1682,13 +1682,13 @@ splice junctions between exons.") (modify-phases %standard-phases (replace 'install (lambda* (#:key outputs #:allow-other-keys) - (let ((bin (string-append - (assoc-ref outputs "out") "/bin")) - (doc (string-append - (assoc-ref outputs "out") "/share/doc/bwa")) - (man (string-append - (assoc-ref outputs "out") "/share/man/man1"))) + (let* ((out (assoc-ref outputs "out")) + (bin (string-append out "/bin")) + (lib (string-append out "/lib")) + (doc (string-append out "/share/doc/bwa")) + (man (string-append out "/share/man/man1"))) (install-file "bwa" bin) + (install-file "libbwa.a" lib) (install-file "README.md" doc) (install-file "bwa.1" man)) #t)) @@ -13384,6 +13384,36 @@ reference transcripts provided in a annotation file (also in GTF/GFF3 format). license:expat ;license for gffcompare license:artistic2.0))))) ;license for gclib +(define-public intervaltree + (let ((commit "b90527f9e6d51cd36ecbb50429e4524d3a418ea5")) + (package + (name "intervaltree") + (version (git-version "0.0.0" "1" commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/ekg/intervaltree/") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 "0rgv6q5fl4x5d74n6p5wvdna6zmbdbqpb4jqqh6vq3670gn08xad")))) + (build-system gnu-build-system) + (arguments + '(#:tests? #f ; No tests. + #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")) + "DESTDIR=\"\"") + #:phases + (modify-phases %standard-phases + (delete 'configure)))) ; There is no configure phase. + (home-page "https://github.com/ekg/intervaltree") + (synopsis "Minimal C++ interval tree implementation") + (description "An interval tree can be used to efficiently find a set of +numeric intervals overlapping or containing another interval. This library +provides a basic implementation of an interval tree using C++ templates, +allowing the insertion of arbitrary types into the tree.") + (license license:expat)))) + (define-public python-intervaltree (package (name "python-intervaltree") @@ -14869,7 +14899,7 @@ mutations from scRNA-Seq data.") (define-public tabixpp (package (name "tabixpp") - (version "1.0.0") + (version "1.1.0") (source (origin (method git-fetch) (uri (git-reference @@ -14877,7 +14907,11 @@ mutations from scRNA-Seq data.") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 - (base32 "08vx6nsipk971cyr8z53rnzwkvlld63kcn1fw0pwddynz91xfny8")))) + (base32 "1k2a3vbq96ic4lw72iwp5s3mwwc4xhdffjj584yn6l9637q9j1yd")) + (modules '((guix build utils))) + (snippet + `(begin + (delete-file-recursively "htslib") #t)))) (build-system gnu-build-system) (inputs `(("htslib" ,htslib) @@ -14893,6 +14927,7 @@ mutations from scRNA-Seq data.") (let ((htslib-ref (assoc-ref inputs "htslib"))) (invoke "make" (string-append "HTS_LIB=" htslib-ref "/lib/libhts.a") + (string-append "INCLUDES= -I" htslib-ref "/include/htslib") "HTS_HEADERS=" ; No need to check for headers here. (string-append "LIBPATH=-L. -L" htslib-ref "/include"))))) (replace 'install @@ -14906,30 +14941,11 @@ mutations from scRNA-Seq data.") some of the details of opening and jumping in tabix-indexed files.") (license license:expat))) -(define tabixpp-freebayes - ;; This version works with FreeBayes while the released - ;; version doesn't. The released creates a variable with the name \"vcf\" - ;; somewhere, which is also the name of a namespace in vcflib. - (let ((commit "bbc63a49acc52212199f92e9e3b8fba0a593e3f7")) - (package - (inherit tabixpp) - (name "tabixpp-freebayes") - (version (git-version "0.0.0" "1" commit)) - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/ekg/tabixpp/") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 "017qsmsc2kyiyzqr9nl8cc6pfldxf16dbn8flx5i59mbqr9ydi7g"))))))) - (define-public smithwaterman - ;; TODO: Upgrading smithwaterman breaks FreeBayes. - (let ((commit "203218b47d45ac56ef234716f1bd4c741b289be1")) + (let ((commit "2610e259611ae4cde8f03c72499d28f03f6d38a7")) (package (name "smithwaterman") - (version (string-append "0-1." (string-take commit 7))) + (version (git-version "0.0.0" "2" commit)) (source (origin (method git-fetch) (uri (git-reference @@ -14937,17 +14953,21 @@ some of the details of opening and jumping in tabix-indexed files.") (commit commit))) (file-name (git-file-name name version)) (sha256 - (base32 "0z9xsmsv452kgdfbbwydyc6nymg3fwyv8zswls8qjin3r4ia4415")))) + (base32 "0i9d8zrxpiracw3mxzd9siybpy62p06rqz9mc2w93arajgbk45bs")))) (build-system gnu-build-system) (arguments `(#:tests? #f ; There are no tests to run. + #:make-flags '("libsw.a" "all") #:phases (modify-phases %standard-phases (delete 'configure) ; There is no configure phase. (replace 'install (lambda* (#:key outputs #:allow-other-keys) - (let ((bin (string-append (assoc-ref outputs "out") "/bin"))) - (install-file "smithwaterman" bin)) + (let* ((out (assoc-ref outputs "out")) + (bin (string-append out "/bin")) + (lib (string-append out "/lib"))) + (install-file "smithwaterman" bin) + (install-file "libsw.a" lib)) #t))))) (home-page "https://github.com/ekg/smithwaterman") (synopsis "Implementation of the Smith-Waterman algorithm") @@ -15020,125 +15040,135 @@ neural networks.") (license license:gpl3)))) (define-public fastahack - (let ((commit "c68cebb4f2e5d5d2b70cf08fbdf1944e9ab2c2dd")) - (package - (name "fastahack") - (version (git-version "0.0.0" "1" commit)) - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/ekg/fastahack/") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 "0hfdv67l9g611i2ck4l92pd6ygmsp9g1ph4zx1ni7qkpsikf0l19")))) - (build-system gnu-build-system) - (arguments - `(#:tests? #f ; Unclear how to run tests: https://github.com/ekg/fastahack/issues/15 - #:phases - (modify-phases %standard-phases - (delete 'configure) ; There is no configure phase. - (replace 'install - (lambda* (#:key outputs #:allow-other-keys) - (let ((bin (string-append (assoc-ref outputs "out") "/bin"))) - (install-file "fastahack" bin)) - #t))))) - (home-page "https://github.com/ekg/fastahack") - (synopsis "Indexing and sequence extraction from FASTA files") - (description "Fastahack is a small application for indexing and + (package + (name "fastahack") + (version "1.0.0") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/ekg/fastahack/") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 "0rp1blskhzxf7vbh253ibpxbgl9wwgyzf1wbkxndi08d3j4vcss9")))) + (build-system gnu-build-system) + (arguments + `(#:tests? #f ; Unclear how to run tests: https://github.com/ekg/fastahack/issues/15 + #:phases + (modify-phases %standard-phases + (delete 'configure) ; There is no configure phase. + (replace 'install + (lambda* (#:key outputs #:allow-other-keys) + (let ((bin (string-append (assoc-ref outputs "out") "/bin"))) + (install-file "fastahack" bin)) + #t))))) + (home-page "https://github.com/ekg/fastahack") + (synopsis "Indexing and sequence extraction from FASTA files") + (description "Fastahack is a small application for indexing and extracting sequences and subsequences from FASTA files. The included library provides a FASTA reader and indexer that can be embedded into applications which would benefit from directly reading subsequences from FASTA files. The library automatically handles index file generation and use.") - (license (list license:expat license:gpl2))))) + (license (list license:expat license:gpl2)))) (define-public vcflib - (let ((commit "5ac091365fdc716cc47cc5410bb97ee5dc2a2c92") - (revision "1")) - (package - (name "vcflib") - (version (git-version "0.0.0" revision commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/vcflib/vcflib/") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 "1gijvcz1lcdn5kvgzb671l6iby0379qk00nqmcrszgk67hfwx6kq")))) - (build-system gnu-build-system) - (inputs - `(("zlib" ,zlib))) - (native-inputs - `(("perl" ,perl) - ("python" ,python-2) - ;; Submodules. - ;; This package builds against the .o files so we need to extract the source. - ("tabixpp-src" ,(package-source tabixpp-freebayes)) - ("smithwaterman-src" ,(package-source smithwaterman)) - ("multichoose-src" ,(package-source multichoose)) - ("fsom-src" ,(package-source fsom)) - ("filevercmp-src" ,(package-source filevercmp)) - ("fastahack-src" ,(package-source fastahack)) - ("intervaltree-src" - ,(origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/ekg/intervaltree/") - (commit "dbb4c513d1ad3baac516fc1484c995daf9b42838"))) - (file-name "intervaltree-src-checkout") - (sha256 - (base32 "1fy5qbj4bg8d2bjysvaa9wfnqn2rj2sk5yra2h4l5pzvy53f23fj")))))) - (arguments - `(#:tests? #f ; no tests - #:phases - (modify-phases %standard-phases - (delete 'configure) - (delete 'check) - (add-after 'unpack 'unpack-submodule-sources - (lambda* (#:key inputs #:allow-other-keys) - (let ((unpack (lambda (source target) - (with-directory-excursion target - (if (file-is-directory? (assoc-ref inputs source)) - (copy-recursively (assoc-ref inputs source) ".") - (invoke "tar" "xvf" - (assoc-ref inputs source) - "--strip-components=1")))))) - (and - (unpack "intervaltree-src" "intervaltree") - (unpack "fastahack-src" "fastahack") - (unpack "filevercmp-src" "filevercmp") - (unpack "fsom-src" "fsom") - (unpack "multichoose-src" "multichoose") - (unpack "smithwaterman-src" "smithwaterman") - (unpack "tabixpp-src" "tabixpp"))))) - (replace 'build - (lambda* (#:key inputs make-flags #:allow-other-keys) + (package + (name "vcflib") + (version "1.0.1") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/vcflib/vcflib/releases/" + "download/v" version + "/vcflib-" version "-src.tar.gz")) + (sha256 + (base32 "14zzrg8hg8cq9cvq2wdvp21j7nmxxkjrbagw2apd2yqv2kyx42lm")) + (modules '((guix build utils))) + (snippet + `(begin + (for-each delete-file-recursively + '("fastahack" "filevercmp" "fsom" "googletest" "intervaltree" + "libVCFH" "multichoose" "smithwaterman" "tabixpp")) + #t)))) + (build-system gnu-build-system) + (inputs + `(("htslib" ,htslib) + ("perl" ,perl) + ("python" ,python) + ("zlib" ,zlib))) + (native-inputs + `(;; Submodules. + ;; This package builds against the .o files so we need to extract the source. + ("fastahack-src" ,(package-source fastahack)) + ("filevercmp-src" ,(package-source filevercmp)) + ("fsom-src" ,(package-source fsom)) + ("intervaltree-src" ,(package-source intervaltree)) + ("multichoose-src" ,(package-source multichoose)) + ("smithwaterman-src" ,(package-source smithwaterman)) + ("tabixpp-src" ,(package-source tabixpp)))) + (arguments + `(#:tests? #f ; no tests + #:make-flags (list (string-append "HTS_LIB=" + (assoc-ref %build-inputs "htslib") + "/lib/libhts.a") + (string-append "HTS_INCLUDES= -I" + (assoc-ref %build-inputs "htslib") + "/include/htslib") + (string-append "HTS_LDFLAGS= -L" + (assoc-ref %build-inputs "htslib") + "/include/htslib" " -lhts")) + #:phases + (modify-phases %standard-phases + (delete 'configure) + (delete 'check) + (add-after 'unpack 'unpack-submodule-sources + (lambda* (#:key inputs #:allow-other-keys) + (let ((unpack (lambda (source target) + (mkdir target) + (with-directory-excursion target + (if (file-is-directory? (assoc-ref inputs source)) + (copy-recursively (assoc-ref inputs source) ".") + (invoke "tar" "xvf" + (assoc-ref inputs source) + "--strip-components=1")))))) + (and + (unpack "fastahack-src" "fastahack") + (unpack "filevercmp-src" "filevercmp") + (unpack "fsom-src" "fsom") + (unpack "intervaltree-src" "intervaltree") + (unpack "multichoose-src" "multichoose") + (unpack "smithwaterman-src" "smithwaterman") + (unpack "tabixpp-src" "tabixpp"))))) + (replace 'build + (lambda* (#:key inputs make-flags #:allow-other-keys) + (let ((htslib (assoc-ref inputs "htslib"))) (with-directory-excursion "tabixpp" - (invoke "make")) - (invoke "make" "CC=gcc" - (string-append "CFLAGS=\"" "-Itabixpp " "\"") - "all"))) - (replace 'install - (lambda* (#:key outputs #:allow-other-keys) - (let ((bin (string-append (assoc-ref outputs "out") "/bin")) - (lib (string-append (assoc-ref outputs "out") "/lib"))) - (for-each (lambda (file) - (install-file file bin)) - (find-files "bin" ".*")) - ;; The header files in src/ do not interface libvcflib, - ;; therefore they are left out. - (install-file "libvcflib.a" lib)) - #t))))) - (home-page "https://github.com/vcflib/vcflib/") - (synopsis "Library for parsing and manipulating VCF files") - (description "Vcflib provides methods to manipulate and interpret + (substitute* "Makefile" + (("-Ihtslib") (string-append "-I" htslib "/include/htslib")) + (("-Lhtslib") (string-append "-L" htslib "/lib/htslib")) + (("htslib/htslib") (string-append htslib "/include/htslib"))) + (invoke "make" + (string-append "HTS_LIB=" htslib "/lib/libhts.a"))) + (apply invoke "make" "CC=gcc" "CFLAGS=-Itabixpp" make-flags)))) + (replace 'install + (lambda* (#:key outputs #:allow-other-keys) + (let ((bin (string-append (assoc-ref outputs "out") "/bin")) + (lib (string-append (assoc-ref outputs "out") "/lib"))) + (for-each (lambda (file) + (install-file file bin)) + (find-files "bin" ".*")) + ;; The header files in src/ do not interface libvcflib, + ;; therefore they are left out. + (install-file "libvcflib.a" lib)) + #t))))) + (home-page "https://github.com/vcflib/vcflib/") + (synopsis "Library for parsing and manipulating VCF files") + (description "Vcflib provides methods to manipulate and interpret sequence variation as it can be described by VCF. It is both an API for parsing and operating on records of genomic variation as it can be described by the VCF format, and a collection of command-line utilities for executing complex manipulations on VCF files.") - (license license:expat)))) + (license license:expat))) (define-public freebayes (let ((commit "3ce827d8ebf89bb3bdc097ee0fe7f46f9f30d5fb") @@ -15170,21 +15200,13 @@ manipulations on VCF files.") ("vcflib-src" ,(package-source vcflib)) ;; These are submodules for the vcflib version used in freebayes. ;; This package builds against the .o files so we need to extract the source. - ("tabixpp-src" ,(package-source tabixpp-freebayes)) + ("tabixpp-src" ,(package-source tabixpp)) ("smithwaterman-src" ,(package-source smithwaterman)) ("multichoose-src" ,(package-source multichoose)) ("fsom-src" ,(package-source fsom)) ("filevercmp-src" ,(package-source filevercmp)) ("fastahack-src" ,(package-source fastahack)) - ("intervaltree-src" - ,(origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/ekg/intervaltree/") - (commit "dbb4c513d1ad3baac516fc1484c995daf9b42838"))) - (file-name "intervaltree-src-checkout") - (sha256 - (base32 "1fy5qbj4bg8d2bjysvaa9wfnqn2rj2sk5yra2h4l5pzvy53f23fj")))) + ("intervaltree-src" ,(package-source intervaltree)) ;; These submodules are needed to run the tests. ("bash-tap-src" ,(package-source bash-tap)) ("test-simple-bash-src" diff --git a/gnu/packages/bittorrent.scm b/gnu/packages/bittorrent.scm index cab23b6753..045fbe65ab 100644 --- a/gnu/packages/bittorrent.scm +++ b/gnu/packages/bittorrent.scm @@ -4,7 +4,7 @@ ;;; Copyright © 2016, 2017, 2018, 2019 Leo Famulari <leo@famulari.name> ;;; Copyright © 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016 Tomáš Čech <sleep_walker@gnu.org> -;;; Copyright © 2016, 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2016, 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017 Jelle Licht <jlicht@fsfe.org> ;;; Copyright © 2018 Fis Trivial <ybbs.daans@hotmail.com> ;;; Copyright © 2018 Nam Nguyen <namn@berkeley.edu> @@ -417,7 +417,7 @@ desktops.") (define-public qbittorrent (package (name "qbittorrent") - (version "4.2.0") + (version "4.2.1") (source (origin (method git-fetch) @@ -426,7 +426,7 @@ desktops.") (commit (string-append "release-" version)))) (file-name (git-file-name name version)) (sha256 - (base32 "17vm6aa2k8k1q14z9r2r06c794bcr4m0l0fdsn08wid6mj1zjsbx")))) + (base32 "0bz4l7awkx4qf3gh9c8gj8fab989439zj8qy4x9r36wxdjg5cxil")))) (build-system gnu-build-system) (arguments `(#:configure-flags diff --git a/gnu/packages/bootloaders.scm b/gnu/packages/bootloaders.scm index 21b32a1ab1..c072ff8c8e 100644 --- a/gnu/packages/bootloaders.scm +++ b/gnu/packages/bootloaders.scm @@ -10,6 +10,7 @@ ;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2019 nee <nee@cock.li> ;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com> +;;; Copyright © 2020 Björn Höfling <bjoern.hoefling@bjoernhoefling.de> ;;; ;;; This file is part of GNU Guix. ;;; @@ -376,7 +377,7 @@ menu to select one of the installed operating systems.") ("swig" ,swig) ("valgrind" ,valgrind))) (inputs - `(("python-2" ,python-2))) + `(("python" ,python))) (arguments `(#:make-flags (list "CC=gcc" @@ -401,7 +402,7 @@ tree binary files. These are board description files used by Linux and BSD.") (define u-boot (package (name "u-boot") - (version "2019.04") + (version "2020.01") (source (origin (method url-fetch) (uri (string-append @@ -409,19 +410,17 @@ tree binary files. These are board description files used by Linux and BSD.") "u-boot-" version ".tar.bz2")) (sha256 (base32 - "1vwv4bgbl7fjcm073zrphn17hnz5h5h778f88ivdsgbb2lnpgdvn")) - (patches - (search-patches - "u-boot-fix-mkimage-header-verification.patch")))) + "1w9ml4jl15q6ixpdqzspxjnl7d3rgxd7f99ms1xv5c8869h3qida")))) (native-inputs `(("bc" ,bc) ("bison" ,bison) ("dtc" ,dtc) ("flex" ,flex) ("lz4" ,lz4) - ("python-2" ,python-2) - ("python2-coverage" ,python2-coverage) - ("python2-pytest" ,python2-pytest) + ("perl" ,perl) + ("python" ,python) + ("python-coverage" ,python-coverage) + ("python-pytest" ,python-pytest) ("sdl" ,sdl) ("swig" ,swig))) (build-system gnu-build-system) @@ -431,19 +430,6 @@ tree binary files. These are board description files used by Linux and BSD.") also initializes the boards (RAM etc).") (license license:gpl2+))) -(define u-boot-2019.10 - (package - (inherit u-boot) - (version "2019.10") - (source (origin - (method url-fetch) - (uri (string-append - "ftp://ftp.denx.de/pub/u-boot/" - "u-boot-" version ".tar.bz2")) - (sha256 - (base32 - "053hcrwwlacqh2niisn0zas95zkbffw5aw5sdhixs8lmfdq60vcd")))))) - (define-public u-boot-tools (package (inherit u-boot) @@ -461,19 +447,22 @@ also initializes the boards (RAM etc).") (substitute* "tools/dtoc/fdt_util.py" (("'cc'") "'gcc'")) (substitute* "tools/patman/test_util.py" - ;; python-coverage is simply called coverage in guix. - (("python-coverage") "coverage") + ;; python*-coverage is simply called coverage in guix. + (("%s-coverage") "coverage") ;; XXX Allow for only 99% test coverage. ;; TODO: Find out why that is needed. (("if coverage != '100%':") "if not int(coverage.rstrip('%')) >= 99:")) (substitute* "test/run" ;; Make it easier to find test failures. (("#!/bin/bash") "#!/bin/bash -x") - ;; pytest doesn't find it otherwise. - (("test/py/tests/test_ofplatdata.py") - "tests/test_ofplatdata.py") ;; This test would require git. (("\\./tools/patman/patman") (which "true")) + ;; FIXME: test fails, needs further investiation + (("run_test \"binman\"") ": run_test \"binman\"") + ;; FIXME: code coverage not working + (("run_test \"binman code coverage\"") ": run_test \"binman code coverage\"") + (("run_test \"dtoc code coverage\"") ": run_test \"dtoc code coverage\"") + (("run_test \"fdt code coverage\"") ": run_test \"fdt code coverage\"") ;; This test would require internet access. (("\\./tools/buildman/buildman") (which "true"))) (substitute* "test/py/tests/test_sandbox_exit.py" @@ -493,14 +482,11 @@ def test_ctrl_c")) ;; This test requires a sound system, which is un-used ;; in u-boot-tools. (("CONFIG_SOUND=y") "CONFIG_SOUND=n"))) - (find-files "configs" "sandbox_.*defconfig$")) + (find-files "configs" "sandbox_.*defconfig$|tools-only_defconfig")) #t)) (replace 'configure (lambda* (#:key make-flags #:allow-other-keys) - (call-with-output-file "configs/tools_defconfig" - (lambda (port) - (display "CONFIG_SYS_TEXT_BASE=0\n" port))) - (apply invoke "make" "tools_defconfig" make-flags))) + (apply invoke "make" "tools-only_defconfig" make-flags))) (replace 'build (lambda* (#:key inputs make-flags #:allow-other-keys) (apply invoke "make" "tools-all" make-flags))) @@ -769,8 +755,6 @@ to Novena upstream, does not load u-boot.img from the first partition.") (let ((base (make-u-boot-package "rock64-rk3328" "aarch64-linux-gnu"))) (package (inherit base) - (version (package-version u-boot-2019.10)) - (source (package-source u-boot-2019.10)) (arguments (substitute-keyword-arguments (package-arguments base) ((#:phases phases) @@ -780,12 +764,6 @@ to Novena upstream, does not load u-boot.img from the first partition.") (let ((bl31 (string-append (assoc-ref inputs "firmware") "/bl31.elf"))) (setenv "BL31" bl31)) - #t)) - (add-after 'unpack 'add-u-boot-itb - (lambda _ - (substitute* "Kconfig" - (("default .u-boot.itb. if SPL_LOAD_FIT && .ROCKCHIP_RK3399") - "default \"u-boot.itb\" if SPL_LOAD_FIT && (ARCH_ROCKCHIP")) #t)))))) (native-inputs `(("firmware" ,arm-trusted-firmware-rk3328) @@ -795,8 +773,6 @@ to Novena upstream, does not load u-boot.img from the first partition.") (let ((base (make-u-boot-package "firefly-rk3399" "aarch64-linux-gnu"))) (package (inherit base) - (version (package-version u-boot-2019.10)) - (source (package-source u-boot-2019.10)) (arguments (substitute-keyword-arguments (package-arguments base) ((#:phases phases) @@ -817,8 +793,6 @@ to Novena upstream, does not load u-boot.img from the first partition.") (let ((base (make-u-boot-package "rockpro64-rk3399" "aarch64-linux-gnu"))) (package (inherit base) - (version (package-version u-boot-2019.10)) - (source (package-source u-boot-2019.10)) (arguments (substitute-keyword-arguments (package-arguments base) ((#:phases phases) diff --git a/gnu/packages/cdrom.scm b/gnu/packages/cdrom.scm index b13b4b3a66..b6bdf33eef 100644 --- a/gnu/packages/cdrom.scm +++ b/gnu/packages/cdrom.scm @@ -8,7 +8,7 @@ ;;; Copyright © 2016 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2017 John Darrington <jmd@gnu.org> ;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be> -;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017 ng0 <ng0@n0.is> ;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com> ;;; Copyright © 2018, 2019 Ricardo Wurmus <rekado@elephly.net> @@ -881,7 +881,7 @@ CD data, and more. It's mostly compatible with @code{cdrtools}.") (define-public libmirage (package (name "libmirage") - (version "3.2.3") + (version "3.2.4") (source (origin (method url-fetch) (uri (string-append @@ -889,7 +889,7 @@ CD data, and more. It's mostly compatible with @code{cdrtools}.") version ".tar.bz2")) (sha256 (base32 - "08mfvqyk3833ksfd47i4j3ppmrw5ry219km6h7lywdh9hm9x14yf")))) + "0md3f71x2dbgyw5s254vx1s80slh3f25r9pvjihkrmj0rn53nnzw")))) (build-system cmake-build-system) (native-inputs `(("pkg-config" ,pkg-config) @@ -910,15 +910,15 @@ the data stored in various image formats.") (define-public cdemu-daemon (package (name "cdemu-daemon") - (version "3.2.3") + (version "3.2.4") (source (origin (method url-fetch) (uri (string-append - "https://downloads.sourceforge.net/cdemu/cdemu-daemon/cdemu-daemon-" - version ".tar.bz2")) + "https://downloads.sourceforge.net/cdemu/cdemu-daemon/" + "cdemu-daemon-" version ".tar.bz2")) (sha256 (base32 - "022xzgwmncswb9md71w3ly3mjkdfc93lbij2llp2jamq8grxjjxr")))) + "02yyj8sr7d5briamhzrqh8zdsiiggxmx5y05kx25y7k3g15jvcx6")))) (build-system cmake-build-system) (native-inputs `(("pkg-config" ,pkg-config) @@ -939,7 +939,7 @@ drive and disc (including CD-ROMs and DVD-ROMs).") (define-public cdemu-client (package (name "cdemu-client") - (version "3.2.3") + (version "3.2.4") (source (origin (method url-fetch) (uri (string-append @@ -947,7 +947,7 @@ drive and disc (including CD-ROMs and DVD-ROMs).") version ".tar.bz2")) (sha256 (base32 - "1bvc2m63fx03rbp3ihgl2n7k24lwg5ydwkmr84gsjfcxp46q10zq")))) + "1swylaja1p1jfjf3s58c9hsk1cyy20i7mrq32kcg6kzp88grs8my")))) (build-system cmake-build-system) (native-inputs `(("pkg-config" ,pkg-config) diff --git a/gnu/packages/check.scm b/gnu/packages/check.scm index 7f548636a7..dd0d266c8e 100644 --- a/gnu/packages/check.scm +++ b/gnu/packages/check.scm @@ -16,7 +16,7 @@ ;;; Copyright © 2016 Troy Sankey <sankeytms@gmail.com> ;;; Copyright © 2016 Lukas Gradl <lgradl@openmailbox.org> ;;; Copyright © 2016 Hartmut Goebel <h.goebel@crazy-compilers.com> -;;; Copyright © 2016, 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2016, 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017 Julien Lepiller <julien@lepiller.eu> ;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be> ;;; Copyright © 2017, 2018 Arun Isaac <arunisaac@systemreboot.net> @@ -25,7 +25,7 @@ ;;; Copyright © 2017, 2019 Kei Kebreau <kkebreau@posteo.net> ;;; Copyright © 2017 ng0 <ng0@n0.is> ;;; Copyright © 2015, 2017, 2018 Ricardo Wurmus <rekado@elephly.net> -;;; Copyright © 2016, 2017, 2018, 2019 Marius Bakke <mbakke@fastmail.com> +;;; Copyright © 2016, 2017, 2018, 2019, 2020 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2017, 2018 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2018 Fis Trivial <ybbs.daans@hotmail.com> ;;; Copyright © 2019 Pierre Langlois <pierre.langlois@gmx.com> @@ -78,7 +78,7 @@ (define-public check (package (name "check") - (version "0.12.0") + (version "0.13.0") (source (origin (method url-fetch) @@ -86,7 +86,7 @@ version "/check-" version ".tar.gz")) (sha256 (base32 - "0d22h8xshmbpl9hba9ch3xj8vb9ybm5akpsbbh7yj07fic4h2hj6")))) + "02crar51gniijrrl9p8f9maibnwc33n76kw5cqr7xk3s8hqnncy4")))) (build-system gnu-build-system) (home-page "https://libcheck.github.io/check/") (synopsis "Unit test framework for C") @@ -310,7 +310,7 @@ format.") (define-public cppcheck (package (name "cppcheck") - (version "1.89") + (version "1.90") (source (origin (method git-fetch) (uri (git-reference @@ -318,7 +318,7 @@ format.") (commit version))) (file-name (git-file-name name version)) (sha256 - (base32 "07yn1zycsb7sn1v7fprihbl0ih4n2zkd7l9jvmkjcskvwn4n21h0")))) + (base32 "0h7ir2x0k005fm586dxmaphgv5cyz25k3k4sh02p7zb78gzx398h")))) (build-system cmake-build-system) (arguments '(#:configure-flags '("-DBUILD_TESTS=ON"))) @@ -379,7 +379,7 @@ and it supports a very flexible form of test discovery.") (define-public doctest (package (name "doctest") - (version "2.3.5") + (version "2.3.6") (home-page "https://github.com/onqtam/doctest") (source (origin (method git-fetch) @@ -387,7 +387,7 @@ and it supports a very flexible form of test discovery.") (file-name (git-file-name name version)) (sha256 (base32 - "0rddlzhnv0f5036q0m0p019pismka7sx6x8cnzk65sk77b1dsbhg")))) + "070gkwffi73i2p0azga9yxj8km32bp8bw4jvkvz1vzlpavyii5kn")))) (build-system cmake-build-system) (synopsis "C++ test framework") (description @@ -505,7 +505,7 @@ test coverage and has a web user interface that will refresh automatically.") (define-public googletest (package (name "googletest") - (version "1.8.1") + (version "1.10.0") (source (origin (method git-fetch) @@ -514,7 +514,7 @@ test coverage and has a web user interface that will refresh automatically.") (commit (string-append "release-" version)))) (file-name (git-file-name name version)) (sha256 - (base32 "0270msj6n7mggh4xqqjp54kswbl7mkcc8px1p5dqdpmw5ngh9fzk")))) + (base32 "1zbmab9295scgg4z2vclgfgjchfjailjnvzc6f5x9jvlsdi3dpwz")))) (build-system cmake-build-system) (arguments `(#:configure-flags '("-DBUILD_SHARED_LIBS=ON"))) @@ -527,6 +527,20 @@ discovery, death tests, assertions, parameterized tests and XML test report generation.") (license license:bsd-3))) +(define-public googletest-1.8 + (package/inherit + googletest + (version "1.8.1") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/google/googletest.git") + (commit (string-append "release-" version)))) + (file-name (git-file-name "googletest" version)) + (sha256 + (base32 + "0270msj6n7mggh4xqqjp54kswbl7mkcc8px1p5dqdpmw5ngh9fzk")))))) + (define-public cpputest (package (name "cpputest") diff --git a/gnu/packages/chromium.scm b/gnu/packages/chromium.scm index 9d194de0e6..dc8e041219 100644 --- a/gnu/packages/chromium.scm +++ b/gnu/packages/chromium.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2019 Marius Bakke <mbakke@fastmail.com> +;;; Copyright © 2019, 2020 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2019 Alex Griffin <a@ajgrf.com> ;;; ;;; This file is part of GNU Guix. @@ -453,8 +453,7 @@ from forcing GEXP-PROMISE." (build-system gnu-build-system) (arguments `(#:tests? #f - ;; FIXME: Chromiums RUNPATH lacks entries for some libraries, so - ;; we have to disable validation and add a wrapper below. + ;; FIXME: Chromiums RUNPATH lacks entries for some libraries. #:validate-runpath? #f #:modules ((guix build gnu-build-system) (guix build utils) @@ -555,12 +554,7 @@ from forcing GEXP-PROMISE." #:phases (modify-phases %standard-phases (add-after 'unpack 'patch-stuff - (lambda* (#:key inputs #:allow-other-keys) - (substitute* "printing/cups_config_helper.py" - (("cups_config =.*") - (string-append "cups_config = '" (assoc-ref inputs "cups") - "/bin/cups-config'\n"))) - + (lambda _ (substitute* '("base/process/launch_posix.cc" "base/third_party/dynamic_annotations/dynamic_annotations.c" @@ -630,6 +624,34 @@ from forcing GEXP-PROMISE." "chrome/test/chromedriver/extension/manifest.json"))) #t)) + (add-after 'patch-stuff 'add-absolute-references + (lambda* (#:key inputs #:allow-other-keys) + (let ((cups (assoc-ref inputs "cups")) + (nss (assoc-ref inputs "nss")) + (mesa (assoc-ref inputs "mesa")) + (udev (assoc-ref inputs "udev"))) + (substitute* "printing/cups_config_helper.py" + (("cups_config =.*") + (string-append "cups_config = '" cups + "/bin/cups-config'\n"))) + (substitute* "crypto/nss_util.cc" + (("libnssckbi\\.so") + (string-append nss "/lib/nss/libnssckbi.so"))) + (substitute* "device/udev_linux/udev1_loader.cc" + (("libudev\\.so\\.1") + (string-append udev "/lib/libudev.so.1"))) + (substitute* + '("ui/ozone/platform/x11/gl_ozone_glx.cc" + "ui/ozone/common/egl_util.cc" + "ui/gl/init/gl_initializer_x11.cc" + "third_party/angle/src/libANGLE/renderer/gl/glx/FunctionsGLX.cpp") + (("libGL\\.so\\.1") + (string-append mesa "/lib/libGL.so.1")) + (("libEGL\\.so\\.1") + (string-append mesa "/lib/libEGL.so.1")) + (("libGLESv2\\.so\\.2") + (string-append mesa "/lib/libGLESv2.so.2"))) + #t))) (add-before 'configure 'prepare-build-environment (lambda* (#:key inputs #:allow-other-keys) @@ -666,17 +688,17 @@ from forcing GEXP-PROMISE." ;; accesses. Having a too low ulimit will result in bogus linker ;; errors such as "foo.a: error adding symbols: malformed archive". - ;; Try increasing the soft resource limit of max open files to 4096, + ;; Try increasing the soft resource limit of max open files to 2048, ;; or equal to the hard limit, whichever is lower. (call-with-values (lambda () (getrlimit 'nofile)) (lambda (soft hard) - (when (and soft (< soft 4096)) + (when (and soft (< soft 2048)) (if hard - (setrlimit 'nofile (min hard 4096) hard) - (setrlimit 'nofile 4096 #f)) + (setrlimit 'nofile (min hard 2048) hard) + (setrlimit 'nofile 2048 #f)) (format #t "increased maximum number of open files from ~d to ~d~%" - soft (if hard (min hard 4096) 4096))))) + soft (if hard (min hard 2048) 2048))))) #t)) (replace 'build (lambda* (#:key (parallel-build? #t) #:allow-other-keys) @@ -699,9 +721,6 @@ from forcing GEXP-PROMISE." (resources (string-append lib "/resources")) (preferences (assoc-ref inputs "master-preferences")) (gtk+ (assoc-ref inputs "gtk+")) - (mesa (assoc-ref inputs "mesa")) - (nss (assoc-ref inputs "nss")) - (udev (assoc-ref inputs "udev")) (sh (which "sh"))) (substitute* '("chrome/app/resources/manpage.1.in" @@ -735,10 +754,6 @@ from forcing GEXP-PROMISE." (install-file "chromedriver" bin) (wrap-program exe - ;; TODO: Get these in RUNPATH. - `("LD_LIBRARY_PATH" ":" prefix - (,(string-append lib ":" nss "/lib/nss:" mesa "/lib:" - udev "/lib"))) ;; Avoid file manager crash. See <https://bugs.gnu.org/26593>. `("XDG_DATA_DIRS" ":" prefix (,(string-append gtk+ "/share"))))) diff --git a/gnu/packages/clojure.scm b/gnu/packages/clojure.scm index a9cabfe008..9a1ceed66c 100644 --- a/gnu/packages/clojure.scm +++ b/gnu/packages/clojure.scm @@ -2,6 +2,7 @@ ;;; Copyright © 2018 Alex Vong <alexvong1995@gmail.com> ;;; Copyright © 2018 Pierre Neidhardt <mail@ambrevar.xyz> ;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2020 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -296,3 +297,27 @@ tree. (description "Tools for writing macros.") (home-page "https://github.com/clojure/tools.macro") (license license:epl1.0))) + +(define-public clojure-tools-cli + (package + (name "clojure-tools-cli") + (version "0.4.2") + (home-page "https://github.com/clojure/tools.cli") + (source (origin + (method git-fetch) + (uri (git-reference + (url home-page) + (commit (string-append "tools.cli-" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 "1yqlm8lwbcjm0dp032z7vzc4bdlmc4jixznvf4adsqhvqw85hvj2")))) + (build-system clojure-build-system) + (arguments + '(#:source-dirs '("src/main/clojure/") + #:test-dirs '("src/test/clojure/") + #:doc-dirs '())) + (synopsis "Clojure library for working with command-line arguments") + (description + "The @code{tools.cli} library provides Clojure programmers with tools to +work with command-line arguments.") + (license license:epl1.0))) diff --git a/gnu/packages/cluster.scm b/gnu/packages/cluster.scm index 03700b0bcb..296fe94856 100644 --- a/gnu/packages/cluster.scm +++ b/gnu/packages/cluster.scm @@ -36,7 +36,7 @@ (define-public keepalived (package (name "keepalived") - (version "2.0.18") + (version "2.0.19") (source (origin (method url-fetch) (uri (string-append @@ -44,7 +44,7 @@ version ".tar.gz")) (sha256 (base32 - "1l2g0bzzbah9svfpwa0b9dgvwfv85r2y3qdr54822hg5p2qs48ql")))) + "19scrrjsxw5g914d5ka352445blaq77dk2vm4vxabijvfra88bqf")))) (build-system gnu-build-system) (arguments '(#:phases diff --git a/gnu/packages/code.scm b/gnu/packages/code.scm index 35d81d95dc..701511057c 100644 --- a/gnu/packages/code.scm +++ b/gnu/packages/code.scm @@ -3,7 +3,7 @@ ;;; Copyright © 2015 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2015, 2018 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2016, 2017, 2019 Efraim Flashner <efraim@flashner.co.il> -;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017, 2018 Clément Lassieur <clement@lassieur.org> ;;; Copyright © 2017 Andy Wingo <wingo@igalia.com> ;;; Copyright © 2018 Fis Trivial <ybbs.daans@hotmail.com> @@ -214,7 +214,7 @@ COCOMO model or user-provided parameters.") (define-public cloc (package (name "cloc") - (version "1.82") + (version "1.84") (source (origin (method git-fetch) @@ -223,7 +223,7 @@ COCOMO model or user-provided parameters.") (commit version))) (file-name (git-file-name name version)) (sha256 - (base32 "0fsz07z0slfg58512fmnlj8pnxkc360bgf7fclg60v9clvcjbjsw")))) + (base32 "14xikdwcr6pcnkk2i43zrsj88z8b3mrv0svbnbvxvarw1id83pnn")))) (build-system gnu-build-system) (inputs `(("coreutils" ,coreutils) diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm index 973e57c154..928819db6e 100644 --- a/gnu/packages/commencement.scm +++ b/gnu/packages/commencement.scm @@ -2546,8 +2546,8 @@ COREUTILS-FINAL vs. COREUTILS, etc." (synopsis "Complete GCC tool chain for C/C++ development") (description "This package provides a complete GCC tool chain for C/C++ development to -be installed in user profiles. This includes GCC, as well as libc (headers -an d binaries, plus debugging symbols in the @code{debug} output), and Binutils.") +be installed in user profiles. This includes GCC, as well as libc (headers and +binaries, plus debugging symbols in the @code{debug} output), and Binutils.") (home-page "https://gcc.gnu.org/") (outputs '("out" "debug" "static")) diff --git a/gnu/packages/compression.scm b/gnu/packages/compression.scm index 888401125b..53478b55e5 100644 --- a/gnu/packages/compression.scm +++ b/gnu/packages/compression.scm @@ -10,7 +10,7 @@ ;;; Copyright © 2015, 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016 Ben Woodcroft <donttrustben@gmail.com> ;;; Copyright © 2016 Danny Milosavljevic <dannym@scratchpost.org> -;;; Copyright © 2016, 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2016, 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2016 David Craven <david@craven.ch> ;;; Copyright © 2016, 2019 Kei Kebreau <kkebreau@posteo.net> ;;; Copyright © 2016, 2018, 2019 Marius Bakke <mbakke@fastmail.com> @@ -2089,7 +2089,7 @@ possibly untrusted extraction shell script.") (define-public ncompress (package (name "ncompress") - (version "4.2.4.5") + (version "4.2.4.6") (source (origin (method git-fetch) (uri (git-reference @@ -2099,7 +2099,7 @@ possibly untrusted extraction shell script.") (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 - "0s3ik7k5a5vzcfiayhsxrc87drg3l425aqapspmw5py91b9jhc8r")))) + "1a4yir1ilafz0nzxdwigj204j4yy2zljbc501nsaqqm3dxdap8zn")))) (arguments '(#:make-flags (list "CC=gcc" (string-append "BINDIR=" %output "/bin") diff --git a/gnu/packages/coq.scm b/gnu/packages/coq.scm index 7b2cdfec5d..3eba39e5d0 100644 --- a/gnu/packages/coq.scm +++ b/gnu/packages/coq.scm @@ -2,6 +2,7 @@ ;;; Copyright © 2018 Julien Lepiller <julien@lepiller.eu> ;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2019 Dan Frumin <dfrumin@cs.ru.nl> +;;; Copyright © 2020 Brett Gilio <brettg@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -20,6 +21,7 @@ (define-module (gnu packages coq) #:use-module (gnu packages) + #:use-module (gnu packages autotools) #:use-module (gnu packages base) #:use-module (gnu packages bison) #:use-module (gnu packages boost) @@ -43,7 +45,7 @@ (define-public coq (package (name "coq") - (version "8.9.1") + (version "8.10.2") (source (origin (method git-fetch) @@ -52,7 +54,8 @@ (commit (string-append "V" version)))) (file-name (git-file-name name version)) (sha256 - (base32 "1p4z967s18wkblayv12ygqsrqlyk5ax1pz40yf4kag8pva6gblhk")))) + (base32 + "0ji2rzd70b3hcwfw97qk7rv3m2977ylqnq82l1555dp3njr8nm3q")))) (native-search-paths (list (search-path-specification (variable "COQPATH") @@ -60,7 +63,7 @@ (build-system ocaml-build-system) (outputs '("out" "ide")) (inputs - `(("lablgtk" ,lablgtk) + `(("lablgtk" ,lablgtk3) ("python" ,python-2) ("camlp5" ,camlp5) ("ocaml-num" ,ocaml-num))) @@ -73,13 +76,6 @@ (lambda _ (for-each make-file-writable (find-files ".")) #t)) - (add-after 'unpack 'remove-lablgtk-references - (lambda _ - ;; This is not used anywhere, but creates a reference to lablgtk in - ;; every binary - (substitute* '("config/coq_config.mli" "configure.ml") - ((".*coqideincl.*") "")) - #t)) (replace 'configure (lambda* (#:key outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) @@ -100,8 +96,8 @@ (lambda* (#:key outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (bin (string-append out "/bin"))) - ;; These are exact copies of the version without the .opt suffix. - ;; Remove them to save 35 MiB in the result + ;; These files are exact copies without `.opt` extension. + ;; Removing these saves 35 MiB in the resulting package. (delete-file (string-append bin "/coqtop.opt")) (delete-file (string-append bin "/coqidetop.opt"))) #t)) @@ -117,9 +113,9 @@ (lambda _ (with-directory-excursion "test-suite" ;; These two tests fail. - ;; This one fails because the output is not formatted as expected. + ;; Fails because the output is not formatted as expected. (delete-file-recursively "coq-makefile/timing") - ;; This one fails because we didn't build coqtop.byte. + ;; Fails because we didn't build coqtop.byte. (delete-file-recursively "coq-makefile/findlib-package") (invoke "make"))))))) (home-page "https://coq.inria.fr") @@ -128,7 +124,7 @@ "Coq is a proof assistant for higher-order logic, which allows the development of computer programs consistent with their formal specification. It is developed using Objective Caml and Camlp5.") - ;; The code is distributed under lgpl2.1. + ;; The source code is distributed under lgpl2.1. ;; Some of the documentation is distributed under opl1.0+. (license (list license:lgpl2.1 license:opl1.0+)))) @@ -212,18 +208,22 @@ provers.") (define-public coq-flocq (package (name "coq-flocq") - (version "3.1.0") - (source (origin - (method url-fetch) - ;; Use the ‘Latest version’ link for a stable URI across releases. - (uri (string-append "https://gforge.inria.fr/frs/download.php/" - "file/37901/flocq-" version ".tar.gz")) - (sha256 - (base32 - "02szrgz9m0ac51la1lqpiv6i2g0zbgx9gz5rp0q1g00ajldyna5c")))) + (version "3.2.0") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://gitlab.inria.fr/flocq/flocq.git") + (commit (string-append "flocq-" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "15bi36x7zj0glsb3s2gwqd4wswhfzh36rbp7imbyff53a7nna95l")))) (build-system gnu-build-system) (native-inputs - `(("ocaml" ,ocaml) + `(("autoconf" ,autoconf) + ("automake" ,automake) + ("ocaml" ,ocaml) ("which" ,which) ("coq" ,coq))) (arguments @@ -232,6 +232,12 @@ provers.") "/lib/coq/user-contrib/Flocq")) #:phases (modify-phases %standard-phases + (add-after 'unpack 'remove-failing-examples + (lambda _ + (substitute* "Remakefile.in" + ;; Fails on a union error. + (("Double_rounding_odd_radix.v") "")) + #t)) (add-before 'configure 'fix-remake (lambda _ (substitute* "remake.cpp" @@ -248,7 +254,7 @@ provers.") (replace 'install (lambda _ (invoke "./remake" "install")))))) - (home-page "http://flocq.gforge.inria.fr/") + (home-page "https://flocq.gforge.inria.fr/") (synopsis "Floating-point formalization for the Coq system") (description "Flocq (Floats for Coq) is a floating-point formalization for the Coq system. It provides a comprehensive library of theorems on a multi-radix @@ -259,25 +265,33 @@ inside Coq.") (define-public coq-gappa (package (name "coq-gappa") - (version "1.3.4") - (source (origin - (method url-fetch) - (uri (string-append "https://gforge.inria.fr/frs/download.php/file/37918/gappa-" - version ".tar.gz")) - (sha256 - (base32 - "1wdg07dk4lbq7dr80ywzna0lclwgi8bddzc6yfx19z1zn9yljzxh")))) + (version "1.4.2") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://gitlab.inria.fr/gappa/coq.git") + (commit (string-append "gappalib-coq-" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0r7jwp5xssdfzivs2flp7mzrscqhgl63mryhhf1cvndpgzqwfk2f")))) (build-system gnu-build-system) (native-inputs - `(("ocaml" ,ocaml) + `(("autoconf" ,autoconf) + ("automake" ,automake) + ("ocaml" ,ocaml) ("which" ,which) ("coq" ,coq) + ("camlp5" ,camlp5) ("bison" ,bison) ("flex" ,flex))) (inputs `(("gmp" ,gmp) ("mpfr" ,mpfr) ("boost" ,boost))) + (propagated-inputs + `(("coq-flocq" ,coq-flocq))) (arguments `(#:configure-flags (list (string-append "--libdir=" (assoc-ref %outputs "out") @@ -291,11 +305,13 @@ inside Coq.") #t)) (replace 'build (lambda _ (invoke "./remake"))) - (replace 'check - (lambda _ (invoke "./remake" "check"))) + ;; FIXME: Figure out why failures occur, and re-enable check phase. + (delete 'check) + ;; (replace 'check + ;; (lambda _ (invoke "./remake" "check"))) (replace 'install (lambda _ (invoke "./remake" "install")))))) - (home-page "http://gappa.gforge.inria.fr/") + (home-page "https://gappa.gforge.inria.fr/") (synopsis "Verify and formally prove properties on numerical programs") (description "Gappa is a tool intended to help verifying and formally proving properties on numerical programs dealing with floating-point or fixed-point @@ -309,7 +325,7 @@ assistant.") (define-public coq-mathcomp (package (name "coq-mathcomp") - (version "1.8.0") + (version "1.10.0") (source (origin (method git-fetch) @@ -318,14 +334,14 @@ assistant.") (commit (string-append "mathcomp-" version)))) (file-name (git-file-name name version)) (sha256 - (base32 "1sdrw3b6lc8crz02lp90a863rvyzhc9vcfsrdvc9m311yiaad4xv")))) + (base32 "1h5h1c2025r1ms5qryvwy6pikxmpmmjav6yl127xpzmqdi6w732d")))) (build-system gnu-build-system) (native-inputs `(("ocaml" ,ocaml) ("which" ,which) ("coq" ,coq))) (arguments - `(#:tests? #f ; no need to test formally-verified programs :) + `(#:tests? #f ; No tests. #:phases (modify-phases %standard-phases (delete 'configure) @@ -333,7 +349,6 @@ assistant.") (lambda _ (chdir "mathcomp") #t)) (replace 'install (lambda* (#:key outputs #:allow-other-keys) - (setenv "COQLIB" (string-append (assoc-ref outputs "out") "/lib/coq/")) (invoke "make" "-f" "Makefile.coq" (string-append "COQLIB=" (assoc-ref outputs "out") "/lib/coq/") @@ -352,17 +367,22 @@ part of the distribution.") (define-public coq-coquelicot (package (name "coq-coquelicot") - (version "3.0.2") - (source (origin - (method url-fetch) - (uri (string-append "https://gforge.inria.fr/frs/download.php/" - "file/37523/coquelicot-" version ".tar.gz")) - (sha256 - (base32 - "1biia7nfqf7vaqq5gmykl4rwjyvrcwss6r2jdf0in5pvp2rnrj2w")))) + (version "3.0.3") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://gitlab.inria.fr/coquelicot/coquelicot.git") + (commit (string-append "coquelicot-" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0m5wbr2s8lnf8b7cfwv15hyzsmbcaz6hgdn7aazcrkxnwr87vgkp")))) (build-system gnu-build-system) (native-inputs - `(("ocaml" ,ocaml) + `(("autoconf" ,autoconf) + ("automake" ,automake) + ("ocaml" ,ocaml) ("which" ,which) ("coq" ,coq))) (propagated-inputs @@ -384,7 +404,7 @@ part of the distribution.") (lambda _ (invoke "./remake" "check"))) (replace 'install (lambda _ (invoke "./remake" "install")))))) - (home-page "http://coquelicot.saclay.inria.fr/index.html") + (home-page "http://coquelicot.saclay.inria.fr") (synopsis "Coq library for Reals") (description "Coquelicot is an easier way of writing formulas and theorem statements, achieved by relying on total functions in place of dependent types @@ -400,7 +420,7 @@ theorems between the two libraries.") (define-public coq-bignums (package (name "coq-bignums") - (version "8.9.0") + (version "8.10.0") (source (origin (method git-fetch) (uri (git-reference @@ -409,7 +429,7 @@ theorems between the two libraries.") (file-name (git-file-name name version)) (sha256 (base32 - "03qz1w2xb2j5p06liz5yyafl0fl9vprcqm6j0iwi7rxwghl00p01")))) + "0bpb4flckn4nqxbs3wjiznyx1k7r8k93qdigp3qwmikp2lxvcbw5")))) (build-system gnu-build-system) (native-inputs `(("ocaml" ,ocaml) @@ -417,7 +437,7 @@ theorems between the two libraries.") (inputs `(("camlp5" ,camlp5))) (arguments - `(#:tests? #f; No test target + `(#:tests? #f ; No test target. #:make-flags (list (string-append "COQLIBINSTALL=" (assoc-ref %outputs "out") "/lib/coq/user-contrib")) @@ -433,17 +453,22 @@ provides BigN, BigZ, BigQ that used to be part of Coq standard library.") (define-public coq-interval (package (name "coq-interval") - (version "3.4.0") - (source (origin - (method url-fetch) - (uri (string-append "https://gforge.inria.fr/frs/download.php/" - "file/37524/interval-" version ".tar.gz")) - (sha256 - (base32 - "023j9sd64brqvjdidqkn5m8d7a93zd9r86ggh573z9nkjm2m7vvg")))) + (version "3.4.1") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://gitlab.inria.fr/coqinterval/interval.git") + (commit (string-append "interval-" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "03q3dfqi3r3f7aji5s06ig4aav9ajcwswwdzi5lrgr69z0m487k4")))) (build-system gnu-build-system) (native-inputs - `(("ocaml" ,ocaml) + `(("autoconf" ,autoconf) + ("automake" ,automake) + ("ocaml" ,ocaml) ("which" ,which) ("coq" ,coq))) (propagated-inputs @@ -524,16 +549,16 @@ uses Ltac to synthesize the substitution operation.") (define-public coq-equations (package (name "coq-equations") - (version "1.2") + (version "1.2.1") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/mattam82/Coq-Equations.git") - (commit (string-append "v" version "-8.9")))) + (commit (string-append "v" version "-8.10")))) (file-name (git-file-name name version)) (sha256 (base32 - "1q3wvicr43bgy7xn1diwh4j43mnrhprrc2xd22qlbz9cl6bhf8bj")))) + "023q5dww3drw35dm9bi9p9d0wrj9k7vax7hfdsprf8l340pb4s0k")))) (build-system gnu-build-system) (native-inputs `(("ocaml" ,ocaml) @@ -545,10 +570,9 @@ uses Ltac to synthesize the substitution operation.") (modify-phases %standard-phases (replace 'configure (lambda* (#:key outputs #:allow-other-keys) - (invoke "coq_makefile" "-f" "_CoqProject" "-o" "Makefile"))) + (invoke "sh" "./configure.sh"))) (replace 'install (lambda* (#:key outputs #:allow-other-keys) - (setenv "COQLIB" (string-append (assoc-ref outputs "out") "/lib/coq/")) (invoke "make" (string-append "COQLIB=" (assoc-ref outputs "out") "/lib/coq/") @@ -565,7 +589,7 @@ kernel.") (define-public coq-stdpp (package (name "coq-stdpp") - (version "1.2.0") + (version "1.2.1") (synopsis "Alternative Coq standard library std++") (source (origin (method git-fetch) @@ -574,18 +598,18 @@ kernel.") (commit (string-append "coq-stdpp-" version)))) (file-name (git-file-name name version)) (sha256 - (base32 "11m7kqxsbxygk41v2wsi3npdzwin9fcnzc1gn0gq0rd57wnqk83i")))) + (base32 + "1lczybg1jq9drbi8nzrlb0k199x4n07aawjwfzrl3qqc0w8kmvdz")))) (build-system gnu-build-system) (inputs `(("coq" ,coq))) (arguments - `(#:tests? #f ;; the tests are being run automaticlly as part of `make all` + `(#:tests? #f ; Tests are executed during build phase. #:phases (modify-phases %standard-phases (delete 'configure) (replace 'install (lambda* (#:key outputs #:allow-other-keys) - (setenv "COQLIB" (string-append (assoc-ref outputs "out") "/lib/coq/")) (invoke "make" (string-append "COQLIB=" (assoc-ref outputs "out") "/lib/coq/") diff --git a/gnu/packages/cran.scm b/gnu/packages/cran.scm index dbc2b4614d..8277026c32 100644 --- a/gnu/packages/cran.scm +++ b/gnu/packages/cran.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2015, 2016, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net> +;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2015 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2016, 2017 Ben Woodcroft <donttrustben@gmail.com> ;;; Copyright © 2016, 2017, 2018 Roel Janssen <roel@gnu.org> @@ -62,6 +62,7 @@ #:use-module (gnu packages imagemagick) #:use-module (gnu packages java) #:use-module (gnu packages javascript) + #:use-module (gnu packages lisp-xyz) #:use-module (gnu packages machine-learning) #:use-module (gnu packages maths) #:use-module (gnu packages mpi) @@ -12574,6 +12575,12 @@ running IRkernel session.") "--name" "ir" "--prefix" out (string-append out "/site-library/IRkernel/kernelspec")) + ;; Record the absolute file name of the 'R' executable in + ;; 'kernel.json'. + (substitute* (string-append out "/share/jupyter" + "/kernels/ir/kernel.json") + (("\\[\"R\",") + (string-append "[\"" (which "R") "\","))) #t)))))) (inputs `(("jupyter" ,jupyter))) @@ -12583,6 +12590,8 @@ running IRkernel session.") ("r-evaluate" ,r-evaluate) ("r-irdisplay" ,r-irdisplay) ("r-jsonlite" ,r-jsonlite) + ;; sets R_LIBS_SITE, so R can actually find this package (IRkernel) + ("r-minimal" ,r-minimal) ("r-pbdzmq" ,r-pbdzmq) ("r-repr" ,r-repr) ("r-uuid" ,r-uuid))) @@ -18988,3 +18997,247 @@ algorithm to identify key players, and Valente's bridging metric. The betweenness, Key Players, and bridging implementations are parallelized with OpenMP.") (license license:gpl2))) + +(define-public r-emplik + (package + (name "r-emplik") + (version "1.0-4.3") + (source + (origin + (method url-fetch) + (uri (cran-uri "emplik" version)) + (sha256 + (base32 + "1g4hz85bvw29c77zs0ig487z92jjl682vv457x81l077h0psvk7c")))) + (properties `((upstream-name . "emplik"))) + (build-system r-build-system) + (propagated-inputs + `(("r-quantreg" ,r-quantreg))) + (home-page "http://www.ms.uky.edu/~mai/EmpLik.html") + (synopsis "Empirical likelihood ratio for censored/truncated data") + (description + "This package provides empirical likelihood ratio tests for +means/quantiles/hazards from possibly censored and/or truncated data. It also +does regression.") + (license license:gpl2+))) + +(define-public r-imputeyn + (package + (name "r-imputeyn") + (version "1.3") + (source + (origin + (method url-fetch) + (uri (cran-uri "imputeYn" version)) + (sha256 + (base32 + "1b21w1aa5f7yiq8k0wa86wvbg4ij7f6ldwn6asfqwb0b90rvsgvs")))) + (properties `((upstream-name . "imputeYn"))) + (build-system r-build-system) + (propagated-inputs + `(("r-boot" ,r-boot) + ("r-emplik" ,r-emplik) + ("r-mvtnorm" ,r-mvtnorm) + ("r-quadprog" ,r-quadprog) + ("r-survival" ,r-survival))) + (home-page "https://cran.r-project.org/web/packages/imputeYn/") + (synopsis "Impute last largest censored observation under weighted least squares") + (description + "This package allows for the imputation of the last largest censored +observantions. This method brings less bias and more efficient estimates for +AFT models.") + (license license:gpl2))) + +(define-public r-adapenetclass + (package + (name "r-adapenetclass") + (version "1.2") + (source + (origin + (method url-fetch) + (uri (cran-uri "AdapEnetClass" version)) + (sha256 + (base32 + "01k3mj4g1ckbng7wkzzn9h0k9yf01cpnnkly0sjda574c5jhj0rc")))) + (properties `((upstream-name . "AdapEnetClass"))) + (build-system r-build-system) + (propagated-inputs + `(("r-glmnet" ,r-glmnet) + ("r-imputeyn" ,r-imputeyn) + ("r-lars" ,r-lars) + ("r-quadprog" ,r-quadprog))) + (home-page "https://cran.r-project.org/web/packages/AdapEnetClass/") + (synopsis "Class of adaptive elastic net methods for censored data") + (description + "This package provides methods for variable selection for AFT models.") + (license license:gpl2))) + +(define-public r-flock + (package + (name "r-flock") + (version "0.7") + (source + (origin + (method url-fetch) + (uri (cran-uri "flock" version)) + (sha256 + (base32 + "1zg93p74icj4bhxnmnssj2xp6vw4yaksyavq03497v33xfpdxss7")))) + (properties `((upstream-name . "flock"))) + (build-system r-build-system) + (propagated-inputs `(("r-rcpp" ,r-rcpp))) + (home-page "https://cran.r-project.org/web/packages/flock/") + (synopsis "Process synchronization using file locks") + (description + "This package implements synchronization between R processes (spawned by +using the @code{parallel} package for instance) using file locks. It supports +both exclusive and shared locking.") + (license license:asl2.0))) + +(define-public r-archivist + (package + (name "r-archivist") + (version "2.3.4") + (source + (origin + (method url-fetch) + (uri (cran-uri "archivist" version)) + (sha256 + (base32 + "1i11hrcq1910jgd6diw6h3sxx624v57zjianm49pqvb2dvd0b8y7")))) + (properties `((upstream-name . "archivist"))) + (build-system r-build-system) + (propagated-inputs + `(("r-dbi" ,r-dbi) + ("r-digest" ,r-digest) + ("r-flock" ,r-flock) + ("r-httr" ,r-httr) + ("r-lubridate" ,r-lubridate) + ("r-magrittr" ,r-magrittr) + ("r-rcurl" ,r-rcurl) + ("r-rsqlite" ,r-rsqlite))) + (home-page "https://pbiecek.github.io/archivist/") + (synopsis "Tools for storing, restoring and searching for R objects") + (description + "Data exploration and modelling is a process in which a lot of data +artifacts are produced. Artifacts like: subsets, data aggregates, plots, +statistical models, different versions of data sets and different versions of +results. Archivist helps to store and manage artifacts created in R. It +allows you to store selected artifacts as binary files together with their +metadata and relations. Archivist allows sharing artifacts with others. It +can look for already created artifacts by using its class, name, date of the +creation or other properties. It also makes it easy to restore such +artifacts.") + (license license:gpl2))) + +(define-public r-versions + (package + (name "r-versions") + (version "0.3") + (source + (origin + (method url-fetch) + (uri (cran-uri "versions" version)) + (sha256 + (base32 + "0zm49j785dgv7fyr1yl9q5f0dsk8hhpim5q5bpkgrkzv7pwjribd")))) + (properties `((upstream-name . "versions"))) + (build-system r-build-system) + (home-page "https://cran.r-project.org/web/packages/versions/") + (synopsis "Query and install specific versions of CRAN packages") + (description + "This package allows you to install specified versions of R packages +hosted on CRAN and provides functions to list available versions and the +versions of currently installed packages.") + (license license:bsd-3))) + +(define-public r-adapr + (package + (name "r-adapr") + (version "2.0.0") + (source + (origin + (method url-fetch) + (uri (cran-uri "adapr" version)) + (sha256 + (base32 + "1s57jdbi5pik56xjz1d4438ax6cywg2yq2s47h5g6wrwvpgr1qfw")))) + (properties `((upstream-name . "adapr"))) + (build-system r-build-system) + (propagated-inputs + `(("r-archivist" ,r-archivist) + ("r-devtools" ,r-devtools) + ("r-digest" ,r-digest) + ("r-doparallel" ,r-doparallel) + ("r-gdata" ,r-gdata) + ("r-ggplot2" ,r-ggplot2) + ("r-git2r" ,r-git2r) + ("r-igraph" ,r-igraph) + ("r-knitr" ,r-knitr) + ("r-plotly" ,r-plotly) + ("r-plyr" ,r-plyr) + ("r-rmarkdown" ,r-rmarkdown) + ("r-shiny" ,r-shiny) + ("r-shinydashboard" ,r-shinydashboard) + ("r-versions" ,r-versions))) + (home-page "https://cran.r-project.org/web/packages/adapr/") + (synopsis "Implementation of an accountable data analysis process") + (description + "This package tracks reading and writing within R scripts that are +organized into a directed acyclic graph. It contains an interactive Shiny +application @code{adaprApp()}. It uses Git and file hashes to track version +histories of inputs and outputs.") + (license license:lgpl2.0))) + +(define-public r-adapsamp + (package + (name "r-adapsamp") + (version "1.1.1") + (source + (origin + (method url-fetch) + (uri (cran-uri "AdapSamp" version)) + (sha256 + (base32 + "1jayjrsiib2ij4rxxj59g71r3xhzl5yqh0lhi8k6cfy03i7dkvis")))) + (properties `((upstream-name . "AdapSamp"))) + (build-system r-build-system) + (propagated-inputs `(("r-pracma" ,r-pracma))) + (home-page "https://cran.r-project.org/web/packages/AdapSamp/") + (synopsis "Adaptive sampling algorithms") + (description + "For distributions whose probability density functions are log-concave, +the adaptive rejection sampling algorithm can be used to build envelope +functions for sampling. For others, the modified adaptive rejection sampling +algorithm, the concave-convex adaptive rejection sampling algorithm, and the +adaptive slice sampling algorithm can be used. This R package mainly includes +these four functions: @code{rARS()}, @code{rMARS()}, @code{rCCARS()}, and +@code{rASS()}. These functions can realize sampling based on the algorithms +above.") + (license license:gpl2))) + +(define-public r-adaptalint + (package + (name "r-adaptalint") + (version "0.2.4") + (source + (origin + (method url-fetch) + (uri (cran-uri "adaptalint" version)) + (sha256 + (base32 + "15qdcvnnbgcps8j5k79354wsc9alswijv8lcafg2i3lghaw536yf")))) + (properties `((upstream-name . "adaptalint"))) + (build-system r-build-system) + (propagated-inputs + `(("r-dplyr" ,r-dplyr) + ("r-lintr" ,r-lintr) + ("r-purrr" ,r-purrr))) + (home-page "https://cran.r-project.org/web/packages/adaptalint/") + (synopsis "Check R code style") + (description + "This package provides tools to infer the code style (which style rules +are followed and which ones are not) from one package and use it to check +another. This makes it easier to find and correct the most important problems +first.") + (license license:gpl3))) diff --git a/gnu/packages/crates-io.scm b/gnu/packages/crates-io.scm index b4bb599dcc..1fe21fc7d0 100644 --- a/gnu/packages/crates-io.scm +++ b/gnu/packages/crates-io.scm @@ -1,9 +1,10 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2019 Ivan Petkov <ivanppetkov@gmail.com> -;;; Copyright © 2019 Efraim Flashner <efraim@flashner.co.il> +;;; Copyright © 2019, 2020 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; Copyright © 2019 Giacomo Leidi <goodoldpaul@autistici.org> ;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2019 John Soo <jsoo1@asu.edu> ;;; ;;; This file is part of GNU Guix. ;;; @@ -53,6 +54,98 @@ the Rust programming language.") (license (list license:bsd-3 license:zlib)))) +(define-public rust-addr2line-0.9 + (package + (name "rust-addr2line") + (version "0.9.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "addr2line" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "17rlf04nx3g3rcy661v24ksnmpk6vqn680g5b5sp8lk20iih2xnx")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-cpp-demangle" ,rust-cpp-demangle-0.2) + ("rust-fallible-iterator" ,rust-fallible-iterator-0.2) + ("rust-gimli" ,rust-gimli-0.18) + ("rust-intervaltree" ,rust-intervaltree-0.2) + ("rust-lazycell" ,rust-lazycell-1.2) + ("rust-object" ,rust-object-0.12) + ("rust-rustc-demangle" ,rust-rustc-demangle-0.1) + ("rust-smallvec" ,rust-smallvec-0.6)) + #:cargo-development-inputs + (("rust-backtrace" ,rust-backtrace-0.3) + ("rust-clap" ,rust-clap-2) + ("rust-findshlibs" ,rust-findshlibs-0.5) + ("rust-memmap" ,rust-memmap-0.7) + ("rust-rustc-test" ,rust-rustc-test-0.3)))) + (home-page "https://github.com/gimli-rs/addr2line") + (synopsis "Symbolication library written in Rust, using gimli") + (description + "This package provides a cross-platform symbolication library written in +Rust, using gimli.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-afl-0.4 + (package + (name "rust-afl") + (version "0.4.3") + (source + (origin + (method url-fetch) + (uri (crate-uri "afl" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0g2chc18ji7qxi0d03n2ai140qdcww958v5si6rcjnnhmri1vyfb")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-cc" ,rust-cc-1.0) + ("rust-clap" ,rust-clap-2) + ("rust-rustc-version" ,rust-rustc-version-0.2) + ("rust-xdg" ,rust-xdg-2.2)) + #:cargo-development-inputs + (("rust-rustc-version" ,rust-rustc-version-0.2) + ("rust-xdg" ,rust-xdg-2.2)))) + (home-page "https://github.com/rust-fuzz/afl.rs") + (synopsis + "Fuzzing Rust code with american-fuzzy-lop") + (description + "Fuzz Rust code with american-fuzzy-lop.") + (license license:asl2.0))) + +(define-public rust-aho-corasick-0.7 + (package + (name "rust-aho-corasick") + (version "0.7.3") + (source + (origin + (method url-fetch) + (uri (crate-uri "aho-corasick" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0k1nqabiz37mnfnlrn084qi9yf8pj6a38qgbb3lc5zlr1jp89x76")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs (("rust-memchr" ,rust-memchr-2.2)))) + (home-page "https://github.com/BurntSushi/aho-corasick") + (synopsis "Fast multiple substring searching") + (description + "Fast multiple substring searching.") + (license (list license:unlicense license:expat)))) + (define-public rust-ansi-term-0.11 (package (name "rust-ansi-term") @@ -66,12 +159,15 @@ the Rust programming language.") (base32 "16wpvrghvd0353584i1idnsgm0r3vchg8fyrm0x8ayv1rgvbljgf")))) (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-winapi" ,rust-winapi-0.3)))) (home-page "https://github.com/ogham/rust-ansi-term") (synopsis "Library for ANSI terminal colours and styles") (description "This is a library for controlling colours and formatting, such as red bold text or blue underlined text, on ANSI terminals.") - (properties '((hidden? . #t))) (license license:expat))) (define-public rust-antidote-1.0 @@ -96,6 +192,121 @@ text or blue underlined text, on ANSI terminals.") (license (list license:asl2.0 license:expat)))) +(define-public rust-approx-0.3 + (package + (name "rust-approx") + (version "0.3.2") + (source + (origin + (method url-fetch) + (uri (crate-uri "approx" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1hx580xjdxl3766js9b49rnbnmr8gw8c060809l43k9f0xshprph")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-num-complex" ,rust-num-complex-0.2) + ("rust-num-traits" ,rust-num-traits-0.2)))) + (home-page "https://github.com/brendanzab/approx") + (synopsis + "Approximate floating point equality comparisons and assertions") + (description + "Approximate floating point equality comparisons and assertions.") + (license license:asl2.0))) + +(define-public rust-arc-swap-0.3 + (package + (name "rust-arc-swap") + (version "0.3.11") + (source + (origin + (method url-fetch) + (uri (crate-uri "arc-swap" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0ha8724dpki985v52ifq5sd98xvpa5q51hyma52di75dbqbn4imw")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-development-inputs + (("rust-crossbeam" ,rust-crossbeam-0.7) + ("rust-crossbeam-utils" ,rust-crossbeam-utils-0.6) + ("rust-itertools" ,rust-itertools-0.8) + ("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-model" ,rust-model-0.1) + ("rust-num-cpus" ,rust-num-cpus-1.10) + ("rust-parking-lot" ,rust-parking-lot-0.8) + ("rust-proptest" ,rust-proptest-0.9) + ("rust-version-sync" ,rust-version-sync-0.8)))) + (home-page "https://github.com/vorner/arc-swap") + (synopsis "Atomically swappable Arc") + (description "This package provides an atomically swappable Arc.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-arrayvec-0.4 + (package + (name "rust-arrayvec") + (version "0.4.10") + (source + (origin + (method url-fetch) + (uri (crate-uri "arrayvec" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0wcch3ca9qvkixgdbd2afrv1xa27l83vpraf7frsh9l8pivgpiwj")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-nodrop" ,rust-nodrop-0.1) + ("rust-serde" ,rust-serde-1.0)) + #:cargo-development-inputs + (("rust-bencher" ,rust-bencher-0.1) + ("rust-matches" ,rust-matches-0.1) + ("rust-serde-test" ,rust-serde-test-1.0)))) + (home-page "https://github.com/bluss/arrayvec") + (synopsis "Vector with fixed capacity") + (description + "This package provides a vector with fixed capacity, backed by an +array (it can be stored on the stack too). Implements fixed capacity +ArrayVec and ArrayString.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-ascii-0.9 + (package + (name "rust-ascii") + (version "0.9.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "ascii" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0dck6rsjnxlczyjnncn8hf16bxj42m1vi6s2n32c1jg2ijd9dz55")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-quickcheck" ,rust-quickcheck-0.8) + ("rust-serde" ,rust-serde-1.0) + ("rust-serde-test" ,rust-serde-test-1.0)))) + (home-page "https://github.com/tomprogrammer/rust-ascii") + (synopsis + "ASCII-only equivalents to char, str and String") + (description + "ASCII-only equivalents to @code{char}, @code{str} and @code{String}.") + (license (list license:expat license:asl2.0)))) + (define-public rust-atty-0.2 (package (name "rust-atty") @@ -139,6 +350,45 @@ support.") (license (list license:asl2.0 license:expat)))) +(define-public rust-backtrace-0.3 + (package + (name "rust-backtrace") + (version "0.3.32") + (source + (origin + (method url-fetch) + (uri (crate-uri "backtrace" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1rgsaha3b6wxh564s4jqn5hl5pkmg214blyjjs1svafib190zd8q")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-addr2line" ,rust-addr2line-0.9) + ("rust-backtrace-sys" ,rust-backtrace-sys-0.1) + ("rust-cfg-if" ,rust-cfg-if-0.1) + ("rust-compiler-builtins" ,rust-compiler-builtins-0.1) + ("rust-cpp-demangle" ,rust-cpp-demangle-0.2) + ("rust-findshlibs" ,rust-findshlibs-0.5) + ("rust-goblin" ,rust-goblin-0.0) + ("rust-libc" ,rust-libc-0.2) + ("rust-memmap" ,rust-memmap-0.7) + ("rust-rustc-demangle" ,rust-rustc-demangle-0.1) + ("rust-rustc-serialize" ,rust-rustc-serialize-0.3) + ("rust-rustc-std-workspace-core" ,rust-rustc-std-workspace-core-1.0) + ("rust-serde" ,rust-serde-1.0) + ("rust-winapi" ,rust-winapi-0.3)))) + (home-page "https://github.com/rust-lang/backtrace-rs") + (synopsis + "Acquire a stack trace (backtrace) at runtime in a Rust program") + (description + "This package provides a library to acquire a stack +trace (backtrace) at runtime in a Rust program.") + (license (list license:asl2.0 license:expat)))) + (define-public rust-backtrace-sys-0.1 (package (name "rust-backtrace-sys") @@ -160,6 +410,33 @@ support.") (license (list license:asl2.0 license:expat)))) +(define-public rust-base64-0.10 + (package + (name "rust-base64") + (version "0.10.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "base64" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "13k6bvd3n6dm7jqn9x918w65dd9xhx454bqphbnv0bkd6n9dj98b")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-byteorder" ,rust-byteorder-1.3)) + #:cargo-development-inputs + (("rust-criterion" ,rust-criterion-0.2) + ("rust-rand" ,rust-rand-0.4)))) + (home-page "https://github.com/marshallpierce/rust-base64") + (synopsis "Encodes and decodes base64 as bytes or utf8") + (description + "Encodes and decodes base64 as bytes or utf8.") + (license (list license:expat license:asl2.0)))) + (define-public rust-base-x-0.2 (package (name "rust-base-x") @@ -202,6 +479,162 @@ and no more (caveat: black_box is still missing!).") (license (list license:asl2.0 license:expat)))) +(define-public rust-bincode-1.1 + (package + (name "rust-bincode") + (version "1.1.4") + (source + (origin + (method url-fetch) + (uri (crate-uri "bincode" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1xx6bp39irvsndk6prnmmq8m1l9p6q2qj21j6mfks2y81pjsa14z")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-autocfg" ,rust-autocfg-0.1) + ("rust-byteorder" ,rust-byteorder-1.3) + ("rust-serde" ,rust-serde-1.0)) + #:cargo-development-inputs + (("rust-serde-bytes" ,rust-serde-bytes-0.11) + ("rust-serde-derive" ,rust-serde-derive-1.0)))) + (home-page "https://github.com/servo/bincode") + (synopsis + "Binary serialization/deserialization strategy") + (description + "This package provides a binary serialization/deserialization strategy +that uses Serde for transforming structs into bytes and vice versa!") + (license license:expat))) + +(define-public rust-generator-0.6 + (package + (name "rust-generator") + (version "0.6.18") + (source + (origin + (method url-fetch) + (uri (crate-uri "generator" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0p4iq1n53dy72dhma02wfjrazf2hq2745f9si9yi7jxviks7c8l7")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-libc" ,rust-libc-0.2) + ("rust-log" ,rust-log-0.4) + ("rust-winapi" ,rust-winapi-0.3)) + #:cargo-development-inputs + (("rust-cc" ,rust-cc-1.0) + ("rust-rustc-version" ,rust-rustc-version-0.2)))) + (home-page "https://github.com/Xudong-Huang/generator-rs") + (synopsis "Stackfull Generator Library in Rust") + (description "Stackfull Generator Library in Rust.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-bindgen-0.50 + (package + (name "rust-bindgen") + (version "0.50.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "bindgen" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1k4n1d002vrfn1mlpww3ib7f275yn4rpxfwkqpr9bym27zg17ab5")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-bitflags" ,rust-bitflags-1) + ("rust-cexpr" ,rust-cexpr-0.3) + ("rust-cfg-if" ,rust-cfg-if-0.1) + ("rust-clang-sys" ,rust-clang-sys-0.28) + ("rust-clap" ,rust-clap-2) + ("rust-env-logger" ,rust-env-logger-0.6) + ("rust-fxhash" ,rust-fxhash-0.2) + ("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-log" ,rust-log-0.4) + ("rust-peeking-take-while" ,rust-peeking-take-while-0.1) + ("rust-proc-macro2" ,rust-proc-macro2-0.4) + ("rust-quote" ,rust-quote-1.0) + ("rust-regex" ,rust-regex-1.1) + ("rust-shlex" ,rust-shlex-0.1) + ("rust-which" ,rust-which-2.0)) + #:cargo-development-inputs + (("rust-clap" ,rust-clap-2) + ("rust-diff" ,rust-diff-0.1) + ("rust-shlex" ,rust-shlex-0.1)))) + (home-page + "https://rust-lang.github.io/rust-bindgen/") + (synopsis + "Automatically generates FFI bindings to C and C++libraries") + (description + "Automatically generates Rust FFI bindings to C and C++ +libraries.") + (license license:bsd-3))) + +(define-public rust-bit-set-0.5 + (package + (name "rust-bit-set") + (version "0.5.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "bit-set" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "100ac8867bvbx9kv634w4xjk98b71i8nq4wdcvpf3cf4ha4j6k78")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-bit-vec" ,rust-bit-vec-0.5)) + #:cargo-development-inputs + (("rust-rand" ,rust-rand-0.4)))) + (home-page "https://github.com/contain-rs/bit-set") + (synopsis "Set of bits") + (description + "This package provides a set of bits.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-bit-vec-0.5 + (package + (name "rust-bit-vec") + (version "0.5.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "bit-vec" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1fyh8221s6cxlmng01v8v2ljhavzawqqs8r1xjc66ap5sjavx6zm")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-serde" ,rust-serde-1.0)) + #:cargo-development-inputs + (("rust-serde-json" ,rust-serde-json-1.0)))) + (home-page "https://github.com/contain-rs/bit-vec") + (synopsis "Vector of bits") + (description + "This package provides a vector of bits.") + (license (list license:expat license:asl2.0)))) + (define-public rust-bitflags-1 (package (name "rust-bitflags") @@ -244,6 +677,321 @@ behave like a set of bitflags.") (license (list license:asl2.0 license:expat)))) +(define-public rust-blobby-0.1 + (package + (name "rust-blobby") + (version "0.1.2") + (source + (origin + (method url-fetch) + (uri (crate-uri "blobby" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1xicpf3s2mi5xqnx8ps5mdych4ib5nh2nfsbrsg8ar8bjk1girbg")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-byteorder" ,rust-byteorder-1.3)) + #:cargo-development-inputs + (("rust-byteorder" ,rust-byteorder-1.3) + ("rust-hex" ,rust-hex-0.3)))) + (home-page "https://github.com/RustCrypto/utils") + (synopsis "Iterator over simple binary blob storage") + (description + "Iterator over simple binary blob storage.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-block-buffer-0.7 + (package + (name "rust-block-buffer") + (version "0.7.3") + (source + (origin + (method url-fetch) + (uri (crate-uri "block-buffer" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "12v8wizynqin0hqf140kmp9s38q223mp1b0hkqk8j5pk8720v560")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-block-padding" ,rust-block-padding-0.1) + ("rust-byte-tools" ,rust-byte-tools-0.3) + ("rust-byteorder" ,rust-byteorder-1.3) + ("rust-generic-array" ,rust-generic-array-0.12)))) + (home-page "https://github.com/RustCrypto/utils") + (synopsis "Fixed size buffer for block processing of data") + (description + "Fixed size buffer for block processing of data.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-block-padding-0.1 + (package + (name "rust-block-padding") + (version "0.1.4") + (source + (origin + (method url-fetch) + (uri (crate-uri "block-padding" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "02fz9wx5dmgpc79ndrb9xfxqlrkk7lg5wki2blz2zqg27spw6kbd")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-byte-tools" ,rust-byte-tools-0.3)))) + (home-page "https://github.com/RustCrypto/utils") + (synopsis "Padding and unpadding of messages divided into blocks") + (description + "Padding and unpadding of messages divided into blocks.") + (license (list license:asl1.1 license:expat)))) + +(define-public rust-bumpalo-2.5 + (package + (name "rust-bumpalo") + (version "2.5.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "bumpalo" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "018b5calz3895v04shk9bn7i73r4zf8yf7p1dqg92s3xya13vm1c")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-development-inputs + (("rust-criterion" ,rust-criterion-0.2) + ("rust-quickcheck" ,rust-quickcheck-0.8)))) + (home-page "https://github.com/fitzgen/bumpalo") + (synopsis "Fast bump allocation arena for Rust") + (description + "This package provides a fast bump allocation arena for Rust.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-bstr-0.2 + (package + (name "rust-bstr") + (version "0.2.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "bstr" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0prq6yk3da0k5bg2czcgg1i4ynsq1l59xc89ycsv6v7p08p5gh3c")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-memchr" ,rust-memchr-2.2) + ("rust-regex-automata" ,rust-regex-automata-0.1) + ("rust-serde" ,rust-serde-1.0)) + #:cargo-development-inputs + (("rust-quickcheck" ,rust-quickcheck-0.8) + ("rust-ucd-parse" ,rust-ucd-parse-0.1) + ("rust-unicode-segmentation" ,rust-unicode-segmentation-1.3)))) + (home-page "https://github.com/BurntSushi/bstr") + (synopsis + "String type that is not required to be valid UTF-8") + (description + "This package provides a string type that is not required to be valid +UTF-8.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-bstr-0.1 + (package + (inherit rust-bstr-0.2) + (name "rust-bstr") + (version "0.1.4") + (source + (origin + (method url-fetch) + (uri (crate-uri "bstr" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0nzi9vqhl56ws8gq39f3aj4qjrr4l3g5lbkkcj8xq1x4cb74wq2r")))))) + +(define-public rust-byte-tools-0.3 + (package + (name "rust-byte-tools") + (version "0.3.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "byte-tools" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1mqi29wsm8njpl51pfwr31wmpzs5ahlcb40wsjyd92l90ixcmdg3")))) + (build-system cargo-build-system) + (arguments `(#:skip-build? #t)) + (home-page "https://github.com/RustCrypto/utils") + (synopsis "Bytes related utility functions") + (description "Bytes related utility functions.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-bytecount-0.5 + (package + (name "rust-bytecount") + (version "0.5.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "bytecount" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0z6a280kiy4kg5v3qw97pbyvwycr17fsm41804i8zpq7nmads3xy")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-packed-simd" ,rust-packed-simd-0.3)) + #:cargo-development-inputs + (("rust-criterion" ,rust-criterion-0.2) + ("rust-quickcheck" ,rust-quickcheck-0.8) + ("rust-rand" ,rust-rand-0.4)))) + (home-page "https://github.com/llogiq/bytecount") + (synopsis "Count occurrences of a given byte") + (description + "Count occurrences of a given byte, or the number of UTF-8 code points, +in a byte slice, fast.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-byteorder-1.3 + (package + (name "rust-byteorder") + (version "1.3.2") + (source + (origin + (method url-fetch) + (uri (crate-uri "byteorder" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1xbwjlmq2ziqjmjvkqxdx1yh136xxhilxd40bky1w4d7hn4xvhx7")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-development-inputs + (("rust-doc-comment" ,rust-doc-comment-0.3) + ("rust-quickcheck" ,rust-quickcheck-0.8) + ("rust-rand" ,rust-rand-0.4)))) + (home-page + "https://github.com/BurntSushi/byteorder") + (synopsis + "Reading/writing numbers in big-endian and little-endian") + (description + "Library for reading/writing numbers in big-endian and +little-endian.") + (license (list license:expat license:unlicense)))) + +(define-public rust-bytes-0.4 + (package + (name "rust-bytes") + (version "0.4.12") + (source + (origin + (method url-fetch) + (uri (crate-uri "bytes" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0768a55q2fsqdjsvcv98ndg9dq7w2g44dvq1avhwpxrdzbydyvr0")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-byteorder" ,rust-byteorder-1.3) + ("rust-either" ,rust-either-1.5) + ("rust-iovec" ,rust-iovec-0.1) + ("rust-serde" ,rust-serde-1.0)) + #:cargo-development-inputs + (("rust-serde-test" ,rust-serde-test-1.0)))) + (home-page "https://github.com/tokio-rs/bytes") + (synopsis + "Types and traits for working with bytes") + (description + "Types and traits for working with bytes.") + (license license:expat))) + +(define-public rust-c2-chacha-0.2 + (package + (name "rust-c2-chacha") + (version "0.2.2") + (source + (origin + (method url-fetch) + (uri (crate-uri "c2-chacha" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "00a11qdc8mg3z0k613rhprkc9p6xz0y7b1681x32ixg0hr3x0r3x")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-byteorder" ,rust-byteorder-1.3) + ("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-ppv-lite86" ,rust-ppv-lite86-0.2) + ("rust-stream-cipher" ,rust-stream-cipher-0.3)) + #:cargo-development-inputs + (("rust-hex-literal" ,rust-hex-literal-0.2)))) + (home-page "https://github.com/cryptocorrosion/cryptocorrosion") + (synopsis "The ChaCha family of stream ciphers") + (description + "The ChaCha family of stream ciphers.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-caps-0.3 + (package + (name "rust-caps") + (version "0.3.3") + (source + (origin + (method url-fetch) + (uri (crate-uri "caps" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1vplgzx8nifzr3f0l8ca77jqnz3fdymdg0ickacgdvawc44a3n90")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-errno" ,rust-errno-0.2) + ("rust-error-chain" ,rust-error-chain-0.12) + ("rust-libc" ,rust-libc-0.2)))) + (home-page "https://github.com/lucab/caps-rs") + (synopsis "Pure-Rust library to work with Linux capabilities") + (description + "This package provides a pure-Rust library to work with Linux +capabilities") + (license (list license:expat license:asl2.0)))) + (define-public rust-cargon-0.0 (package (name "rust-cargon") @@ -265,6 +1013,31 @@ used in argon2rs' bench suite.") (properties '((hidden? . #t))) (license license:wtfpl2))) +(define-public rust-cast-0.2 + (package + (name "rust-cast") + (version "0.2.2") + (source + (origin + (method url-fetch) + (uri (crate-uri "cast" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "09yl2700crxa4n860b080msij25klvs1kfzazhp2aihchvr16q4j")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-development-inputs + (("rust-quickcheck" ,rust-quickcheck-0.8)))) + (home-page "https://github.com/japaric/cast.rs") + (synopsis + "Ergonomic, checked cast functions for primitive types") + (description + "Ergonomic, checked cast functions for primitive types.") + (license (list license:expat license:asl2.0)))) + (define-public rust-cblas-sys-0.1 (package (name "rust-cblas-sys") @@ -309,6 +1082,67 @@ archive to be linked into Rustcode.") (license (list license:asl2.0 license:expat)))) +(define-public rust-cexpr-0.3 + (package + (name "rust-cexpr") + (version "0.3.5") + (source + (origin + (method url-fetch) + (uri (crate-uri "cexpr" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1by64ini3f058pwad3immx5cc12wr0m0kwgaxa8apzym03mj9ym7")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-nom" ,rust-nom-4.2)) + #:cargo-development-inputs + (("rust-clang-sys" ,rust-clang-sys-0.28)))) + (home-page "https://github.com/jethrogb/rust-cexpr") + (synopsis "C expression parser and evaluator") + (description + "This package provides a C expression parser and evaluator.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-chrono-0.4 + (package + (name "rust-chrono") + (version "0.4.7") + (source + (origin + (method url-fetch) + (uri (crate-uri "chrono" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1glam3iqhshbamzgf0npn7hgghski92r31lm7gg8841hnxc1zn3p")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-libc" ,rust-libc-0.2) + ("rust-num-integer" ,rust-num-integer-0.1) + ("rust-num-traits" ,rust-num-traits-0.2) + ("rust-rustc-serialize" ,rust-rustc-serialize-0.3) + ("rust-serde" ,rust-serde-1.0) + ("rust-time" ,rust-time-0.1)) + #:cargo-development-inputs + (("rust-bincode" ,rust-bincode-1.1) + ("rust-doc-comment" ,rust-doc-comment-0.3) + ("rust-num-iter" ,rust-num-iter-0.1) + ("rust-serde-derive" ,rust-serde-derive-1.0) + ("rust-serde-json" ,rust-serde-json-1.0)))) + (home-page + "https://github.com/chronotope/chrono") + (synopsis "Date and time library for Rust") + (description "Date and time library for Rust.") + (license (list license:expat license:asl2.0)))) + (define-public rust-cfg-if-0.1 (package (name "rust-cfg-if") @@ -331,6 +1165,31 @@ depending on a large number of #[cfg] parameters. Structured like an (license (list license:asl2.0 license:expat)))) +(define-public rust-ci-info-0.3 + (package + (name "rust-ci-info") + (version "0.3.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "ci-info" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "00pr17g6q6i752acrkycg0hkq3lm0p634anm41g3m6lqg8q83s75")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-serde" ,rust-serde-1.0) + ("rust-serde-derive" ,rust-serde-derive-1.0)))) + (home-page "https://github.com/sagiegurari/ci_info") + (synopsis "Provides current CI environment information") + (description + "This package provides current CI environment information.") + (license license:asl2.0))) + (define-public rust-clang-sys-0.28 (package (name "rust-clang-sys") @@ -389,12 +1248,27 @@ depending on a large number of #[cfg] parameters. Structured like an (base32 "1nf6ld3bims1n5vfzhkvcb55pdzh04bbhzf8nil5vvw05nxzarsh")))) (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-ansi-term" ,rust-ansi-term-0.11) + ("rust-atty" ,rust-atty-0.2) + ("rust-bitflags" ,rust-bitflags-1) + ("rust-clippy" ,rust-clippy-0.0) + ("rust-strsim" ,rust-strsim-0.8) + ("rust-textwrap" ,rust-textwrap-0.11) + ("rust-unicode-width" ,rust-unicode-width-0.1) + ("rust-vec-map" ,rust-vec-map-0.8) + ("rust-yaml-rust" ,rust-yaml-rust-0.4)) + #:cargo-development-inputs + (("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-regex" ,rust-regex-1.1) + ("rust-version-sync" ,rust-version-sync-0.8)))) (home-page "https://clap.rs/") (synopsis "Command Line Argument Parser") (description "This package provides a simple to use, efficient, and full-featured Command Line Argument Parser.") - (properties '((hidden? . #t))) (license license:expat))) (define-public rust-clicolors-control-1.0 @@ -418,6 +1292,32 @@ colorization.") (properties '((hidden? . #t))) (license license:expat))) +(define-public rust-clippy-0.0 + (package + (name "rust-clippy") + (version "0.0.302") + (source + (origin + (method url-fetch) + (uri (crate-uri "clippy" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1562x3sq9mgmc8j39gd34wqm7ybrdvpmj7cc1n450gwsawayw4fr")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-term" ,rust-term-0.5)))) + (home-page "https://github.com/rust-lang/rust-clippy") + (synopsis + "Lints to avoid common pitfalls in Rust") + (description + "This package provides a bunch of helpful lints to avoid common +pitfalls in Rust.") + (license (list license:expat license:asl2.0)))) + (define-public rust-cloudabi-0.0 (package (name "rust-cloudabi") @@ -486,6 +1386,103 @@ need compiler-rt intrinsics.") (license (list license:asl2.0 license:expat)))) +(define-public rust-compiletest-rs-0.3 + (package + (name "rust-compiletest-rs") + (version "0.3.22") + (source + (origin + (method url-fetch) + (uri (crate-uri "compiletest-rs" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1di7kl2zv7jcwqq343aafqhn31gfa600zh4mi6cp10mn6a9wq3pl")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-diff" ,rust-diff-0.1) + ("rust-filetime" ,rust-filetime-0.2) + ("rust-getopts" ,rust-getopts-0.2) + ("rust-libc" ,rust-libc-0.2) + ("rust-log" ,rust-log-0.4) + ("rust-miow" ,rust-miow-0.3) + ("rust-regex" ,rust-regex-1.1) + ("rust-rustfix" ,rust-rustfix-0.4) + ("rust-serde" ,rust-serde-1.0) + ("rust-serde-derive" ,rust-serde-derive-1.0) + ("rust-serde-json" ,rust-serde-json-1.0) + ("rust-tempfile" ,rust-tempfile-3.0) + ("rust-tester" ,rust-tester-0.5) + ("rust-winapi" ,rust-winapi-0.3)))) + (home-page "https://github.com/laumann/compiletest-rs") + (synopsis "Compiletest utility from the Rust compiler") + (description + "The compiletest utility from the Rust compiler as a standalone testing +harness.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-console-0.7 + (package + (name "rust-console") + (version "0.7.7") + (source + (origin + (method url-fetch) + (uri (crate-uri "console" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0a4n2syzik9lh02v2i4wdazvm05d99bib7dw0lqvz8mq2hn7r9cc")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-atty" ,rust-atty-0.2) + ("rust-clicolors-control" ,rust-clicolors-control-1.0) + ("rust-encode-unicode" ,rust-encode-unicode-0.3) + ("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-libc" ,rust-libc-0.2) + ("rust-parking-lot" ,rust-parking-lot-0.8) + ("rust-regex" ,rust-regex-1.1) + ("rust-termios" ,rust-termios-0.3) + ("rust-unicode-width" ,rust-unicode-width-0.1) + ("rust-winapi" ,rust-winapi-0.3)))) + (home-page "https://github.com/mitsuhiko/console") + (synopsis "Terminal and console abstraction for Rust") + (description + "This package provides a terminal and console abstraction for Rust.") + (license license:expat))) + +(define-public rust-console-error-panic-hook-0.1 + (package + (name "rust-console-error-panic-hook") + (version "0.1.6") + (source + (origin + (method url-fetch) + (uri (crate-uri "console_error_panic_hook" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "04d2narcrzk9bnddz17rr2l819l82pr0h6d98s2w9q236n87dndq")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-cfg-if" ,rust-cfg-if-0.1) + ("rust-wasm-bindgen" ,rust-wasm-bindgen-0.2)))) + (home-page "https://github.com/rustwasm/console_error_panic_hook") + (synopsis "Logs panics to console.error") + (description + "This package provides a panic hook for @code{wasm32-unknown-unknown} +that logs panics to @code{console.error}.") + (license (list license:expat license:asl2.0)))) + (define-public rust-constant-time-eq-0.1 (package (name "rust-constant-time-eq") @@ -508,6 +1505,32 @@ It is inspired by the Linux kernel's @code{crypto_memneq}.") (properties '((hidden? . #t))) (license license:cc0))) +(define-public rust-core-arch-0.1 + (package + (name "rust-core-arch") + (version "0.1.5") + (source + (origin + (method url-fetch) + (uri (crate-uri "core_arch" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "04vdvr9vj0f1cv2p54nsszmrrk9w1js4c0z4i0bdlajl1lydslim")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-development-inputs + (("rust-wasm-bindgen-test" ,rust-wasm-bindgen-test-0.2)))) + (home-page "https://github.com/rust-lang/stdarch") + (synopsis + "Rust's core library architecture-specific intrinsics") + (description + "@code{core::arch} - Rust's core library architecture-specific +intrinsics.") + (license (list license:expat license:asl2.0)))) + (define-public rust-core-foundation-sys-0.6 (package (name "rust-core-foundation-sys") @@ -529,6 +1552,392 @@ It is inspired by the Linux kernel's @code{crypto_memneq}.") (license (list license:asl2.0 license:expat)))) +(define-public rust-crates-index-0.13 + (package + (name "rust-crates-index") + (version "0.13.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "crates-index" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1n7pp6mk59hw3nqlh8irxc9pp0g5ziw7bprqsw2lxvg13cvdp76s")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-error-chain" ,rust-error-chain-0.12) + ("rust-git2" ,rust-git2-0.9) + ("rust-glob" ,rust-glob-0.3) + ("rust-serde" ,rust-serde-1.0) + ("rust-serde-derive" ,rust-serde-derive-1.0) + ("rust-serde-json" ,rust-serde-json-1.0)) + #:cargo-development-inputs + (("rust-tempdir" ,rust-tempdir-0.3)))) + (home-page + "https://github.com/frewsxcv/rust-crates-index") + (synopsis + "Retrieving and interacting with the crates.io index") + (description + "Library for retrieving and interacting with the crates.io index.") + (license license:asl2.0))) + +(define-public rust-crc32fast-1.2 + (package + (name "rust-crc32fast") + (version "1.2.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "crc32fast" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1c9dhkvf3brrzzplcijaywxi2w8wv5578i0ryhcm7x8dmzi5s4ms")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-cfg-if" ,rust-cfg-if-0.1)) + #:cargo-development-inputs + (("rust-bencher" ,rust-bencher-0.1) + ("rust-quickcheck" ,rust-quickcheck-0.8) + ("rust-rand" ,rust-rand-0.4)))) + (home-page "https://github.com/srijs/rust-crc32fast") + (synopsis + "Fast, SIMD-accelerated CRC32 (IEEE) checksum computation") + (description + "Fast, SIMD-accelerated CRC32 (IEEE) checksum computation.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-criterion-0.2 + (package + (name "rust-criterion") + (version "0.2.11") + (source + (origin + (method url-fetch) + (uri (crate-uri "criterion" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1543wlpc4p1kz7sqqa7ylr8bkdr8l4f34hy4bxj7krpkahwhaqq3")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-atty" ,rust-atty-0.2) + ("rust-cast" ,rust-cast-0.2) + ("rust-clap" ,rust-clap-2) + ("rust-criterion-plot" ,rust-criterion-plot-0.3) + ("rust-csv" ,rust-csv-1.1) + ("rust-itertools" ,rust-itertools-0.8) + ("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-libc" ,rust-libc-0.2) + ("rust-num-traits" ,rust-num-traits-0.2) + ("rust-rand-core" ,rust-rand-core-0.5) + ("rust-rand-os" ,rust-rand-os-0.2) + ("rust-rand-xoshiro" ,rust-rand-xoshiro-0.3) + ("rust-rayon" ,rust-rayon-1.1) + ("rust-rayon-core" ,rust-rayon-core-1.5) + ("rust-serde" ,rust-serde-1.0) + ("rust-serde-derive" ,rust-serde-derive-1.0) + ("rust-serde-json" ,rust-serde-json-1.0) + ("rust-tinytemplate" ,rust-tinytemplate-1.0) + ("rust-walkdir" ,rust-walkdir-2.2)) + #:cargo-development-inputs + (("rust-approx" ,rust-approx-0.3) + ("rust-quickcheck" ,rust-quickcheck-0.8) + ("rust-rand" ,rust-rand-0.4) + ("rust-tempdir" ,rust-tempdir-0.3)))) + (home-page "https://bheisler.github.io/criterion.rs/book/index.html") + (synopsis "Statistics-driven micro-benchmarking library") + (description + "Statistics-driven micro-benchmarking library.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-criterion-plot-0.3 + (package + (name "rust-criterion-plot") + (version "0.3.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "criterion-plot" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "13pv09z4ryp70qyzablkibwa2mh6c2852qq1sjr9wjigvwnj3ybn")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-byteorder" ,rust-byteorder-1.3) + ("rust-cast" ,rust-cast-0.2) + ("rust-itertools" ,rust-itertools-0.8)) + #:cargo-development-inputs + (("rust-itertools-num" ,rust-itertools-num-0.1) + ("rust-num-complex" ,rust-num-complex-0.2) + ("rust-rand" ,rust-rand-0.4)))) + (home-page "https://github.com/bheisler/criterion.rs") + (synopsis "Criterion's plotting library") + (description "Criterion's plotting library.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-crossbeam-0.7 + (package + (name "rust-crossbeam") + (version "0.7.2") + (source + (origin + (method url-fetch) + (uri (crate-uri "crossbeam" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0g5jysq5x4gndc1v5sq9n3f1m97k7qihwdpigw6ar6knj14qm09d")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-cfg-if" ,rust-cfg-if-0.1) + ("rust-crossbeam-channel" ,rust-crossbeam-channel-0.3) + ("rust-crossbeam-deque" ,rust-crossbeam-deque-0.7) + ("rust-crossbeam-epoch" ,rust-crossbeam-epoch-0.7) + ("rust-crossbeam-queue" ,rust-crossbeam-queue-0.1) + ("rust-crossbeam-utils" ,rust-crossbeam-utils-0.6)) + #:cargo-development-inputs + (("rust-rand" ,rust-rand-0.4)))) + (home-page "https://github.com/crossbeam-rs/crossbeam") + (synopsis "Tools for concurrent programming") + (description "Tools for concurrent programming.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-crossbeam-channel-0.3 + (package + (name "rust-crossbeam-channel") + (version "0.3.8") + (source + (origin + (method url-fetch) + (uri (crate-uri "crossbeam-channel" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0azpymyk0ld4akrjfy69ck5pzfgz1f2gb3smm2ywld92vsjd23hg")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-crossbeam-utils" ,rust-crossbeam-utils-0.6) + ("rust-smallvec" ,rust-smallvec-0.6)) + #:cargo-development-inputs + (("rust-rand" ,rust-rand-0.4) + ("rust-signal-hook" ,rust-signal-hook-0.1)))) + (home-page + "https://github.com/crossbeam-rs/crossbeam/tree/master/crossbeam-channel") + (synopsis + "Multi-producer multi-consumer channels for message passing") + (description + "Multi-producer multi-consumer channels for message passing.") + (license (list license:expat + license:asl2.0 + license:bsd-2)))) + +(define-public rust-crossbeam-deque-0.7 + (package + (name "rust-crossbeam-deque") + (version "0.7.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "crossbeam-deque" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0was9x71cz5g1y3670cyy6jdmsdfg6k9mbf0ddz2k1mdd7hx535i")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-crossbeam-epoch" ,rust-crossbeam-epoch-0.7) + ("rust-crossbeam-utils" ,rust-crossbeam-utils-0.6)) + #:cargo-development-inputs + (("rust-rand" ,rust-rand-0.4)))) + (home-page + "https://github.com/crossbeam-rs/crossbeam/tree/master/crossbeam-deque") + (synopsis "Concurrent work-stealing deque") + (description "Concurrent work-stealing deque.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-crossbeam-deque-0.6 + (package + (inherit rust-crossbeam-deque-0.7) + (name "rust-crossbeam-deque") + (version "0.6.3") + (source + (origin + (method url-fetch) + (uri (crate-uri "crossbeam-deque" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "04rcpgjs6ns57vag8a3dzx26190dhbvy2l0p9n22b9p1yf64pr05")))))) + +(define-public rust-crossbeam-epoch-0.7 + (package + (name "rust-crossbeam-epoch") + (version "0.7.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "crossbeam-epoch" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1d408b9x82mdbnb405gw58v5mmdbj2rl28a1h7b9rmn25h8f7j84")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-arrayvec" ,rust-arrayvec-0.4) + ("rust-cfg-if" ,rust-cfg-if-0.1) + ("rust-crossbeam-utils" ,rust-crossbeam-utils-0.6) + ("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-memoffset" ,rust-memoffset-0.2) + ("rust-scopeguard" ,rust-scopeguard-0.3)) + #:cargo-development-inputs + (("rust-rand" ,rust-rand-0.4)))) + (home-page + "https://github.com/crossbeam-rs/crossbeam/tree/master/crossbeam-epoch") + (synopsis "Epoch-based garbage collection") + (description "Epoch-based garbage collection.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-crossbeam-queue-0.1 + (package + (name "rust-crossbeam-queue") + (version "0.1.2") + (source + (origin + (method url-fetch) + (uri (crate-uri "crossbeam-queue" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0jsa9dbxnwqcxfws09vaschf92d4imlbbikmcn4ka8z7rzb9r5vw")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-crossbeam-utils" ,rust-crossbeam-utils-0.6)) + #:cargo-development-inputs + (("rust-rand" ,rust-rand-0.4)))) + (home-page + "https://github.com/crossbeam-rs/crossbeam/tree/master/crossbeam-utils") + (synopsis "Concurrent queues") + (description "Concurrent queues.") + (license (list license:expat + license:asl2.0 + license:bsd-2)))) + +(define-public rust-crossbeam-utils-0.6 + (package + (name "rust-crossbeam-utils") + (version "0.6.5") + (source + (origin + (method url-fetch) + (uri (crate-uri "crossbeam-utils" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0p5aa8k3wpsn17md4rx038ac2azm9354knbxdfvn7dd7yk76yc7q")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-cfg-if" ,rust-cfg-if-0.1) + ("rust-lazy-static" ,rust-lazy-static-1.3)) + #:cargo-development-inputs + (("rust-rand" ,rust-rand-0.4)))) + (home-page + "https://github.com/crossbeam-rs/crossbeam/tree/master/crossbeam-utils") + (synopsis "Utilities for concurrent programming") + (description + "Utilities for concurrent programming.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-csv-1.1 + (package + (name "rust-csv") + (version "1.1.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "csv" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0qxvzq030hi915dszazv6a7f0apzzi7gn193ni0g2lzkawjxck55")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-bstr" ,rust-bstr-0.2) + ("rust-csv-core" ,rust-csv-core-0.1) + ("rust-itoa" ,rust-itoa-0.4) + ("rust-ryu" ,rust-ryu-1.0) + ("rust-serde" ,rust-serde-1.0)) + #:cargo-development-inputs + (("rust-serde" ,rust-serde-1.0)))) + (home-page "https://github.com/BurntSushi/rust-csv") + (synopsis "Fast CSV parsing with support for serde") + (description + "Fast CSV parsing with support for serde.") + (license (list license:unlicense license:expat)))) + +(define-public rust-csv-core-0.1 + (package + (name "rust-csv-core") + (version "0.1.6") + (source + (origin + (method url-fetch) + (uri (crate-uri "csv-core" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0k5zs0x0qmmn27pa5kcg86lg84s29491fw5sh3zswxswnavasp4v")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-memchr" ,rust-memchr-2.2)) + #:cargo-development-inputs + (("rust-arrayvec" ,rust-arrayvec-0.4)))) + (home-page "https://github.com/BurntSushi/rust-csv") + (synopsis + "Bare bones CSV parsing with no_std support") + (description + "Bare bones CSV parsing with no_std support.") + (license (list license:unlicense license:expat)))) + (define-public rust-curl-sys-0.4 (package (name "rust-curl-sys") @@ -619,6 +2028,162 @@ hexadecimal, base32, and base64.") (base32 "17giv0n0n1r64z0dahfvkjy3ys517jxyhs8sd9lmgvcljpjyryxa")))))) +(define-public rust-cpp-demangle-0.2 + (package + (name "rust-cpp-demangle") + (version "0.2.12") + (source + (origin + (method url-fetch) + (uri (crate-uri "cpp_demangle" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0a4hqsfc0sfdwy7pcr0rc1fjp2j47fxbkqfc2lfrbi4zlm5hq36k")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-afl" ,rust-afl-0.4) + ("rust-cfg-if" ,rust-cfg-if-0.1)) + #:cargo-development-inputs + (("rust-clap" ,rust-clap-2) + ("rust-diff" ,rust-diff-0.1) + ("rust-glob" ,rust-glob-0.3)))) + (home-page "https://github.com/gimli-rs/cpp_demangle") + (synopsis "Demangle C++ symbols") + (description + "This package provides a crate for demangling C++ symbols.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-demo-hack-0.0 + (package + (name "rust-demo-hack") + (version "0.0.5") + (source + (origin + (method url-fetch) + (uri (crate-uri "demo-hack" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0m0114p1g0zzrdph5bg03i8m8p70vrwn3whs191jrbjcrmh5lmnp")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-demo-hack-impl" ,rust-demo-hack-impl-0.0) + ("rust-proc-macro-hack" ,rust-proc-macro-hack-0.5)))) + (home-page "https://github.com/dtolnay/proc-macro-hack") + (synopsis "Demo of proc-macro-hack") + (description "Demo of proc-macro-hack.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-demo-hack-impl-0.0 + (package + (name "rust-demo-hack-impl") + (version "0.0.5") + (source + (origin + (method url-fetch) + (uri (crate-uri "demo-hack-impl" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1f1fdl60xjas9wlmcl9v6f56vgm3mzwr019kcifav5464rx3w3ld")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-proc-macro-hack" ,rust-proc-macro-hack-0.5) + ("rust-quote" ,rust-quote-1.0) + ("rust-syn" ,rust-syn-0.15)))) + (home-page "https://github.com/dtolnay/proc-macro-hack") + (synopsis "Demo of proc-macro-hack") + (description "Demo of proc-macro-hack.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-diff-0.1 + (package + (name "rust-diff") + (version "0.1.11") + (source + (origin + (method url-fetch) + (uri (crate-uri "diff" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0fhavni46a2rib93ig5fgbqmm48ysms5sxzb3h9bp7vp2bwnjarw")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-development-inputs + (("rust-quickcheck" ,rust-quickcheck-0.8) + ("rust-speculate" ,rust-speculate-0.1)))) + (home-page "https://github.com/utkarshkukreti/diff.rs") + (synopsis + "LCS based slice and string diffing implementation") + (description + "An LCS based slice and string diffing implementation.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-difference-2.0 + (package + (name "rust-difference") + (version "2.0.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "difference" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1621wx4k8h452p6xzmzzvm7mz87kxh4yqz0kzxfjj9xmjxlbyk2j")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-getopts" ,rust-getopts-0.2)) + #:cargo-development-inputs + (("rust-quickcheck" ,rust-quickcheck-0.8) + ("rust-term" ,rust-term-0.5)))) + (home-page "https://github.com/johannhof/difference.rs") + (synopsis "Rust text diffing and assertion library") + (description + "This package provides a Rust text diffing and assertion library.") + (license license:expat))) + +(define-public rust-digest-0.8 + (package + (name "rust-digest") + (version "0.8.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "digest" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1madjl27f3kj5ql7kwgvb9c8b7yb7bv7yfgx7rqzj4i3fp4cil7k")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-blobby" ,rust-blobby-0.1) + ("rust-generic-array" ,rust-generic-array-0.13)))) + (home-page "https://github.com/RustCrypto/traits") + (synopsis "Traits for cryptographic hash functions") + (description + "Traits for cryptographic hash functions.") + (license (list license:expat license:asl2.0)))) + (define-public rust-dirs-1.0 (package (name "rust-dirs") @@ -684,6 +2249,32 @@ from macros.") (properties '((hidden? . #t))) (license license:expat))) +(define-public rust-docopt-1.1 + (package + (name "rust-docopt") + (version "1.1.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "docopt" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0s9rcpmnnivs502q69lc1h1wrwapkq09ikgbfbgqf31idmc5llkz")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-regex" ,rust-regex-1.1) + ("rust-serde" ,rust-serde-1.0) + ("rust-strsim" ,rust-strsim-0.9)))) + (home-page "https://github.com/docopt/docopt.rs") + (synopsis "Command line argument parsing") + (description "Command line argument parsing.") + (license (list license:expat license:unlicense)))) + (define-public rust-dtoa-0.4 (package (name "rust-dtoa") @@ -719,6 +2310,559 @@ floating-point primitives to an @code{io::Write}.") (base32 "0g96cap6si1g6wi62hsdk2fnj3sf5vd4i97zj6163j8hhnsl3n0d")))))) +(define-public rust-duct-0.13 + (package + (name "rust-duct") + (version "0.13.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "duct" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1ir3884i1yznkfdccqqbcb9v5sdpcgxlv41hgzncrqaljv18r0wj")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-libc" ,rust-libc-0.2) + ("rust-once-cell" ,rust-once-cell-1.2) + ("rust-os-pipe" ,rust-os-pipe-0.8) + ("rust-shared-child" ,rust-shared-child-0.3)) + #:cargo-development-inputs + (("rust-tempdir" ,rust-tempdir-0.3)))) + (home-page + "https://github.com/oconnor663/duct.rs") + (synopsis + "Library for running child processes") + (description + "A library for running child processes.") + (license license:expat))) + +(define-public rust-either-1.5 + (package + (name "rust-either") + (version "1.5.2") + (source + (origin + (method url-fetch) + (uri (crate-uri "either" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0yyggfd5yq9hyyp0bd5jj0fgz3rwws42d19ri0znxwwqs3hcy9sm")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs (("rust-serde" ,rust-serde-1.0)))) + (home-page "https://github.com/bluss/either") + (synopsis + "Enum @code{Either} with variants @code{Left} and @code{Right}") + (description + "The enum @code{Either} with variants @code{Left} and +@code{Right} is a general purpose sum type with two cases.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-encode-unicode-0.3 + (package + (name "rust-encode-unicode") + (version "0.3.5") + (source + (origin + (method url-fetch) + (uri (crate-uri "encode_unicode" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1g8a8pixkxz6r927f4sc4r15qyc0szxdxb1732v8q7h0di4wkclh")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-ascii" ,rust-ascii-0.9) + ("rust-clippy" ,rust-clippy-0.0)) + #:cargo-development-inputs + (("rust-lazy-static" ,rust-lazy-static-1.3)))) + (home-page "https://github.com/tormol/encode_unicode") + (synopsis + "UTF-8 and UTF-16 support for char, u8 and u16") + (description + "UTF-8 and UTF-16 character types, iterators and related methods for +char, u8 and u16.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-encoding-0.2 + (package + (name "rust-encoding") + (version "0.2.33") + (source + (origin + (method url-fetch) + (uri (crate-uri "encoding" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1v1ndmkarh9z3n5hk53da4z56hgk9wa5kcsm7cnx345raqw983bb")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-encoding-index-japanese" + ,rust-encoding-index-japanese-1.20141219) + ("rust-encoding-index-korean" + ,rust-encoding-index-korean-1.20141219) + ("rust-encoding-index-simpchinese" + ,rust-encoding-index-simpchinese-1.20141219) + ("rust-encoding-index-singlebyte" + ,rust-encoding-index-singlebyte-1.20141219) + ("rust-encoding-index-tradchinese" + ,rust-encoding-index-tradchinese-1.20141219)) + #:cargo-development-inputs + (("rust-getopts" ,rust-getopts-0.2)))) + (home-page + "https://github.com/lifthrasiir/rust-encoding") + (synopsis "Character encoding support for Rust") + (description + "Character encoding support for Rust.") + (license license:expat))) + +(define-public rust-encoding-index-japanese-1.20141219 + (package + (name "rust-encoding-index-japanese") + (version "1.20141219.5") + (source + (origin + (method url-fetch) + (uri (crate-uri "encoding-index-japanese" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "148c1lmd640p1d7fzk0nv7892mbyavvwddgqvcsm78798bzv5s04")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-encoding-index-tests" ,rust-encoding-index-tests-0.1)))) + (home-page "https://github.com/lifthrasiir/rust-encoding") + (synopsis "Index tables for Japanese character encodings") + (description + "Index tables for Japanese character encodings.") + (license license:cc0))) + +(define-public rust-encoding-index-korean-1.20141219 + (package + (name "rust-encoding-index-korean") + (version "1.20141219.5") + (source + (origin + (method url-fetch) + (uri (crate-uri "encoding-index-korean" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "10cxabp5ppygbq4y6y680856zl9zjvq7ahpiw8zj3fmwwsw3zhsd")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-encoding-index-tests" ,rust-encoding-index-tests-0.1)))) + (home-page "https://github.com/lifthrasiir/rust-encoding") + (synopsis "Index tables for Korean character encodings") + (description + "Index tables for Korean character encodings.") + (license license:cc0))) + +(define-public rust-encoding-index-simpchinese-1.20141219 + (package + (name "rust-encoding-index-simpchinese") + (version "1.20141219.5") + (source + (origin + (method url-fetch) + (uri (crate-uri "encoding-index-simpchinese" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1xria2i7mc5dqdrpqxasdbxv1qx46jjbm53if3y1i4cvj2a72ynq")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-encoding-index-tests" ,rust-encoding-index-tests-0.1)))) + (home-page "https://github.com/lifthrasiir/rust-encoding") + (synopsis "Index tables for simplified Chinese character encodings") + (description + "Index tables for simplified Chinese character encodings.") + (license license:cc0))) + +(define-public rust-encoding-index-singlebyte-1.20141219 + (package + (name "rust-encoding-index-singlebyte") + (version "1.20141219.5") + (source + (origin + (method url-fetch) + (uri (crate-uri "encoding-index-singlebyte" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0jp85bz2pprzvg9m95w4q0vibh67b6w3bx35lafay95jzyndal9k")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-encoding-index-tests" ,rust-encoding-index-tests-0.1)))) + (home-page "https://github.com/lifthrasiir/rust-encoding") + (synopsis "Index tables for various single-byte character encodings") + (description + "Index tables for various single-byte character encodings.") + (license license:cc0))) + +(define-public rust-encoding-index-tests-0.1 + (package + (name "rust-encoding-index-tests") + (version "0.1.4") + (source + (origin + (method url-fetch) + (uri (crate-uri "encoding_index_tests" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0s85y091gl17ixass49bzaivng7w8p82p6nyvz2r3my9w4mxhim2")))) + (build-system cargo-build-system) + (arguments `(#:skip-build? #t)) + (home-page "https://github.com/lifthrasiir/rust-encoding") + (synopsis + "Macros used to test index tables for character encodings") + (description + "Helper macros used to test index tables for character +encodings.") + (license license:cc0))) + +(define-public rust-encoding-index-tradchinese-1.20141219 + (package + (name "rust-encoding-index-tradchinese") + (version "1.20141219.5") + (source + (origin + (method url-fetch) + (uri (crate-uri "encoding-index-tradchinese" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "060ci4iz6xfvzk38syfbjvs7pix5hch3mvxkksswmqwcd3aj03px")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-encoding-index-tests" ,rust-encoding-index-tests-0.1)))) + (home-page "https://github.com/lifthrasiir/rust-encoding") + (synopsis "Index tables for traditional Chinese character encodings") + (description + "Index tables for traditional Chinese character encodings.") + (license license:cc0))) + +(define-public rust-encoding-rs-0.8 + (package + (name "rust-encoding-rs") + (version "0.8.17") + (source + (origin + (method url-fetch) + (uri (crate-uri "encoding_rs" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1v902qqnbd37vdq4rjvp6k05wmghrasfdcjy30gp1xpjg5f7hma1")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-cfg-if" ,rust-cfg-if-0.1) + ("rust-packed-simd" ,rust-packed-simd-0.3) + ("rust-serde" ,rust-serde-1.0)) + #:cargo-development-inputs + (("rust-bincode" ,rust-bincode-1.1) + ("rust-serde-derive" ,rust-serde-derive-1.0) + ("rust-serde-json" ,rust-serde-json-1.0)))) + (home-page "https://docs.rs/encoding_rs/") + (synopsis "Gecko-oriented implementation of the Encoding Standard") + (description + "This package provides a Gecko-oriented implementation of the Encoding +Standard.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-encoding-rs-io-0.1 + (package + (name "rust-encoding-rs-io") + (version "0.1.6") + (source + (origin + (method url-fetch) + (uri (crate-uri "encoding_rs_io" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0b7k9p7inkrcanh7h6q4m278y05gmcwi8p5r43h7grzl5dxfw6cn")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-encoding-rs" ,rust-encoding-rs-0.8)))) + (home-page "https://github.com/BurntSushi/encoding_rs_io") + (synopsis "Streaming transcoding for encoding_rs") + (description + "Streaming transcoding for encoding_rs.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-env-logger-0.6 + (package + (name "rust-env-logger") + (version "0.6.2") + (source + (origin + (method url-fetch) + (uri (crate-uri "env_logger" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1lx2s5nk96xx4i3m4zc4ghqgi8kb07dsnyiv8jk2clhax42dxz5a")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-atty" ,rust-atty-0.2) + ("rust-humantime" ,rust-humantime-1.2) + ("rust-log" ,rust-log-0.4) + ("rust-regex" ,rust-regex-1.1) + ("rust-termcolor" ,rust-termcolor-1.0)))) + (home-page + "https://github.com/sebasmagri/env_logger/") + (synopsis + "Logging implementation for @code{log}") + (description + "This package provides a logging implementation for @code{log} which +is configured via an environment variable.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-envmnt-0.6 + (package + (name "rust-envmnt") + (version "0.6.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "envmnt" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "12zkq3p999bypyxmjnpiqw9r3hmifb3bcikd7j3as1fdcbq01fyl")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-indexmap" ,rust-indexmap-1.0)))) + (home-page "https://github.com/sagiegurari/envmnt") + (synopsis "Environment variables utility functions") + (description + "Environment variables utility functions.") + (license license:asl2.0))) + +(define-public rust-erased-serde-0.3 + (package + (name "rust-erased-serde") + (version "0.3.9") + (source + (origin + (method url-fetch) + (uri (crate-uri "erased-serde" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0q7bnxs5zskfq5iillig55g7891dllcxh2p8y8k1p2j72syf9viv")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-serde" ,rust-serde-1.0)) + #:cargo-development-inputs + (("rust-serde-cbor" ,rust-serde-cbor-0.10) + ("rust-serde-derive" ,rust-serde-derive-1.0) + ("rust-serde-json" ,rust-serde-json-1.0)))) + (home-page "https://github.com/dtolnay/erased-serde") + (synopsis "Type-erased Serialize and Serializer traits") + (description + "Type-erased Serialize and Serializer traits.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-errno-0.2 + (package + (name "rust-errno") + (version "0.2.4") + (source + (origin + (method url-fetch) + (uri (crate-uri "errno" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0kn8mlygxxr02cm97401nppd2dbkwsalpcbai67rh6yh3rh73862")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-errno-dragonfly" ,rust-errno-dragonfly-0.1) + ("rust-libc" ,rust-libc-0.2) + ("rust-winapi" ,rust-winapi-0.3)))) + (home-page "https://github.com/lambda-fairy/rust-errno") + (synopsis "Cross-platform interface to the @code{errno} variable") + (description + "Cross-platform interface to the @code{errno} variable.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-errno-dragonfly-0.1 + (package + (name "rust-errno-dragonfly") + (version "0.1.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "errno-dragonfly" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0rshlc00nv45f14v2l1w0ma2nf1jg5j7q9pvw7hh018r6r73bjhl")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-libc" ,rust-libc-0.2) + ("rust-gcc" ,rust-gcc-0.3)))) + (home-page "https://github.com/mneumann/errno-dragonfly-rs") + (synopsis "Exposes errno functionality to stable Rust on DragonFlyBSD") + (description + "Exposes errno functionality to stable Rust on DragonFlyBSD.") + (license license:expat))) + +(define-public rust-error-chain-0.12 + (package + (name "rust-error-chain") + (version "0.12.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "error-chain" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1ndpw1ny2kxqpw6k1shq8k56z4vfpk4xz9zr8ay988k0rffrxd1s")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-backtrace" ,rust-backtrace-0.3)) + #:cargo-development-inputs + (("rust-version-check" ,rust-version-check-0.9)))) + (home-page "https://github.com/rust-lang-nursery/error-chain") + (synopsis "Yet another error boilerplate library") + (description + "Yet another error boilerplate library.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-fake-simd-0.1 + (package + (name "rust-fake-simd") + (version "0.1.2") + (source + (origin + (method url-fetch) + (uri (crate-uri "fake-simd" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1vfylvk4va2ivqx85603lyqqp0zk52cgbs4n5nfbbbqx577qm2p8")))) + (build-system cargo-build-system) + (arguments `(#:skip-build? #t)) + (home-page "https://github.com/RustCrypto/utils") + (synopsis "Crate for mimicking simd crate on stable Rust") + (description + "Crate for mimicking simd crate on stable Rust.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-failure-0.1 + (package + (name "rust-failure") + (version "0.1.5") + (source + (origin + (method url-fetch) + (uri (crate-uri "failure" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1qppmgv4i5jj6vrss91qackqnl0a12h7lnby4l7j5fdy78yxhnvr")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-backtrace" ,rust-backtrace-0.3) + ("rust-failure-derive" ,rust-failure-derive-0.1)))) + (home-page "https://rust-lang-nursery.github.io/failure/") + (synopsis "Experimental error handling abstraction") + (description + "Experimental error handling abstraction.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-failure-derive-0.1 + (package + (name "rust-failure-derive") + (version "0.1.5") + (source + (origin + (method url-fetch) + (uri (crate-uri "failure_derive" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1q97n7dp51j5hndzic9ng2fgn6f3z5ya1992w84l7vypby8n647a")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-proc-macro2" ,rust-proc-macro2-0.4) + ("rust-quote" ,rust-quote-1.0) + ("rust-syn" ,rust-syn-0.15) + ("rust-synstructure" ,rust-synstructure-0.10)) + #:cargo-development-inputs + (("rust-failure" ,rust-failure-0.1)))) + (home-page "https://rust-lang-nursery.github.io/failure/") + (synopsis "Derives for the failure crate") + (description "Derives for the failure crate.") + (license (list license:asl2.0 license:expat)))) + (define-public rust-fallible-iterator-0.2 (package (name "rust-fallible-iterator") @@ -809,6 +2953,99 @@ cross platform API.") (license (list license:asl2.0 license:expat)))) +(define-public rust-flame-0.2 + (package + (name "rust-flame") + (version "0.2.2") + (source + (origin + (method url-fetch) + (uri (crate-uri "flame" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0c5bmhyimzxch3pmh0w3z9n57saasgix4bmbbksr9vp1c5j71hhz")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-serde" ,rust-serde-1.0) + ("rust-serde-derive" ,rust-serde-derive-1.0) + ("rust-serde-json" ,rust-serde-json-1.0) + ("rust-thread-id" ,rust-thread-id-3.3)))) + (home-page "https://github.com/llogiq/flame") + (synopsis "Profiling and flamegraph library") + (description "A profiling and flamegraph library.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-flamer-0.3 + (package + (name "rust-flamer") + (version "0.3.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "flamer" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1b2d7jx80f3p7hqpgdi7wksaiq18k9w23p0cs2sxf7jbx2jx3bgj")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-flame" ,rust-flame-0.2) + ("rust-quote" ,rust-quote-1.0) + ("rust-syn" ,rust-syn-0.15)))) + (home-page "https://github.com/llogiq/flamer") + (synopsis "Macro to insert @code{flame::start_guard(_)}") + (description + "A procedural macro to insert @code{flame::start_guard(_)} calls.") + (license license:asl2.0))) + +(define-public rust-flate2-1.0 + (package + (name "rust-flate2") + (version "1.0.9") + (source + (origin + (method url-fetch) + (uri (crate-uri "flate2" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1n639gc7sbmrkir6pif608xqpwcv60kigmp5cn9x7m8892nk82am")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-crc32fast" ,rust-crc32fast-1.2) + ("rust-futures" ,rust-futures-0.1) + ("rust-libc" ,rust-libc-0.2) + ("rust-libz-sys" ,rust-libz-sys-1.0) + ("rust-miniz-sys" ,rust-miniz-sys-0.1) + ("rust-miniz-oxide-c-api" ,rust-miniz-oxide-c-api-0.2) + ("rust-tokio-io" ,rust-tokio-io-0.1)) + #:cargo-development-inputs + (("rust-futures" ,rust-futures-0.1) + ("rust-quickcheck" ,rust-quickcheck-0.8) + ("rust-rand" ,rust-rand-0.4) + ("rust-tokio-io" ,rust-tokio-io-0.1) + ("rust-tokio-tcp" ,rust-tokio-tcp-0.1) + ("rust-tokio-threadpool" ,rust-tokio-threadpool-0.1)))) + (home-page "https://github.com/alexcrichton/flate2-rs") + (synopsis + "Bindings to miniz.c for DEFLATE compression and decompression") + (description + "Bindings to miniz.c for DEFLATE compression and decompression exposed as +Reader/Writer streams. Contains bindings for zlib, deflate, and gzip-based +streams.") + (license (list license:expat license:asl2.0)))) + (define-public rust-fnv-1.0 (package (name "rust-fnv") @@ -830,6 +3067,58 @@ implementation that is more efficient for smaller hash keys.") (license (list license:asl2.0 license:expat)))) +(define-public rust-foreign-types-0.3 + (package + (name "rust-foreign-types") + (version "0.3.2") + (source + (origin + (method url-fetch) + (uri (crate-uri "foreign-types" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1cgk0vyd7r45cj769jym4a6s7vwshvd0z4bqrb92q1fwibmkkwzn")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-foreign-types-macros" ,rust-foreign-types-macros-0.1) + ("rust-foreign-types-shared" ,rust-foreign-types-shared-0.1)))) + (home-page "https://github.com/sfackler/foreign-types") + (synopsis "Framework for Rust wrappers over C APIs") + (description + "This package provides a framework for Rust wrappers over C +APIs.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-foreign-types-macros-0.1 + (package + (name "rust-foreign-types-macros") + (version "0.1.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "foreign-types-macros" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "16yjigjcsklcwy2ad32l24k1nwm9n3bsnyhxc3z9whjbsrj60qk6")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-proc-macro2" ,rust-proc-macro2-0.4) + ("rust-quote" ,rust-quote-1.0) + ("rust-syn" ,rust-syn-0.15)))) + (home-page "https://github.com/sfackler/foreign-types") + (synopsis "An internal crate used by foreign-types") + (description + "An internal crate used by foreign-types.") + (license (list license:expat license:asl2.0)))) + (define-public rust-foreign-types-shared-0.2 (package (name "rust-foreign-types-shared") @@ -843,14 +3132,29 @@ implementation that is more efficient for smaller hash keys.") (base32 "0kanxlif1vp0ffh2r9l610jqbkmb3183yqykxq1z5w1vay2rn7y6")))) (build-system cargo-build-system) + (arguments `(#:skip-build? #t)) (home-page "https://github.com/sfackler/foreign-types") (synopsis "An internal crate used by foreign-types") (description "An internal crate used by foreign-types.") - (properties '((hidden? . #t))) (license (list license:asl2.0 license:expat)))) +(define-public rust-foreign-types-shared-0.1 + (package + (inherit rust-foreign-types-shared-0.2) + (name "rust-foreign-types-shared") + (version "0.1.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "foreign-types-shared" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0jxgzd04ra4imjv8jgkmdq59kj8fsz6w4zxsbmlai34h26225c00")))))) + (define-public rust-fs-extra-1.1 (package (name "rust-fs-extra") @@ -930,6 +3234,30 @@ pseudorandom number generator") (properties '((hidden? . #t))) (license license:bsd-3))) +(define-public rust-futf-0.1 + (package + (name "rust-futf") + (version "0.1.4") + (source + (origin + (method url-fetch) + (uri (crate-uri "futf" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0fxc18bnabird5jl941nsd6d25vq8cn8barmz4d30dlkzbiir73w")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-mac" ,rust-mac-0.1) + ("rust-new-debug-unreachable" ,rust-new-debug-unreachable-1.0)))) + (home-page "https://github.com/servo/futf") + (synopsis "Handling fragments of UTF-8") + (description "Handling fragments of UTF-8.") + (license (list license:asl2.0 license:expat)))) + (define-public rust-futures-0.1 (package (name "rust-futures") @@ -951,6 +3279,31 @@ featuring zero allocations, composability, and iterator-like interfaces.") (license (list license:asl2.0 license:expat)))) +(define-public rust-futures-channel-preview-0.3 + (package + (name "rust-futures-channel-preview") + (version "0.3.0-alpha.17") + (source + (origin + (method url-fetch) + (uri (crate-uri "futures-channel-preview" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1blgpikhw391lzrfqcgg4xsn5xc0dlybni77ka7f0vb08zaixir1")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-futures-core-preview" ,rust-futures-core-preview-0.3)))) + (home-page "https://rust-lang.github.io/futures-rs/") + (synopsis + "Channels for asynchronous communication using futures-rs") + (description + "Channels for asynchronous communication using futures-rs.") + (license (list license:expat license:asl2.0)))) + (define-public rust-futures-core-preview-0.3 (package (name "rust-futures-core-preview") @@ -994,6 +3347,36 @@ the computation on the threads themselves.") (license (list license:asl2.0 license:expat)))) +(define-public rust-futures-executor-preview-0.3 + (package + (name "rust-futures-executor-preview") + (version "0.3.0-alpha.17") + (source + (origin + (method url-fetch) + (uri (crate-uri "futures-executor-preview" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "053g5kf2qa1xhdkwp3d1grrizzy4683mpbb3y0vvm00hwl7jdfl7")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-futures-channel-preview" ,rust-futures-channel-preview-0.3) + ("rust-futures-core-preview" ,rust-futures-core-preview-0.3) + ("rust-futures-util-preview" ,rust-futures-util-preview-0.3) + ("rust-num-cpus" ,rust-num-cpus-1.10) + ("rust-pin-utils" ,rust-pin-utils-0.1)))) + (home-page "https://github.com/rust-lang/futures-rs") + (synopsis + "Executors for asynchronous tasks based on futures-rs") + (description + "Executors for asynchronous tasks based on the futures-rs +library.") + (license (list license:expat license:asl2.0)))) + (define-public rust-futures-io-preview-0.3 (package (name "rust-futures-io-preview") @@ -1015,6 +3398,35 @@ the computation on the threads themselves.") (license (list license:asl2.0 license:expat)))) +(define-public rust-futures-select-macro-preview-0.3 + (package + (name "rust-futures-select-macro-preview") + (version "0.3.0-alpha.17") + (source + (origin + (method url-fetch) + (uri (crate-uri "futures-select-macro-preview" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1a90ivjzkgz7msiz5si05xzi8xwsk5gar1gkrbmrgqpgkliqd7a6")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-proc-macro-hack" ,rust-proc-macro-hack-0.5) + ("rust-proc-macro2" ,rust-proc-macro2-0.4) + ("rust-quote" ,rust-quote-1.0) + ("rust-syn" ,rust-syn-0.15)))) + (home-page "https://github.com/rust-lang/futures-rs") + (synopsis + "Handle the first Future to complete") + (description + "The @code{select!} macro for waiting on multiple different +@code{Future}s at once and handling the first one to complete.") + (license (list license:expat license:asl2.0)))) + (define-public rust-futures-sink-preview-0.3 (package (name "rust-futures-sink-preview") @@ -1037,6 +3449,74 @@ futures-rs library.") (license (list license:asl2.0 license:expat)))) +(define-public rust-futures-util-preview-0.3 + (package + (name "rust-futures-util-preview") + (version "0.3.0-alpha.17") + (source + (origin + (method url-fetch) + (uri (crate-uri "futures-util-preview" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0kizm86wgr5qldyavskfi0r1msg6m4x2pkj0d4r04br2ig29i0dg")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-futures" ,rust-futures-0.1) + ("rust-futures-channel-preview" ,rust-futures-channel-preview-0.3) + ("rust-futures-core-preview" ,rust-futures-core-preview-0.3) + ("rust-futures-io-preview" ,rust-futures-io-preview-0.3) + ("rust-futures-select-macro-preview" + ,rust-futures-select-macro-preview-0.3) + ("rust-futures-sink-preview" ,rust-futures-sink-preview-0.3) + ("rust-memchr" ,rust-memchr-2.2) + ("rust-pin-utils" ,rust-pin-utils-0.1) + ("rust-proc-macro-hack" ,rust-proc-macro-hack-0.5) + ("rust-proc-macro-nested" ,rust-proc-macro-nested-0.1) + ("rust-rand" ,rust-rand-0.4) + ("rust-rand-core" ,rust-rand-core-0.5) + ("rust-slab" ,rust-slab-0.4) + ("rust-tokio-io" ,rust-tokio-io-0.1)))) + (home-page "https://github.com/rust-lang/futures-rs") + (synopsis + "Utilities and extension traits for futures-rs library") + (description + "Common utilities and extension traits for the futures-rs +library.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-fxhash-0.2 + (package + (name "rust-fxhash") + (version "0.2.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "fxhash" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "037mb9ichariqi45xm6mz0b11pa92gj38ba0409z3iz239sns6y3")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-byteorder" ,rust-byteorder-1.3)) + #:cargo-development-inputs + (("rust-fnv" ,rust-fnv-1.0) + ("rust-seahash" ,rust-seahash-3.0)))) + (home-page "https://github.com/cbreeden/fxhash") + (synopsis "Hashing algorithm from hasher used in FireFox and Rustc") + (description + "This package provides a fast, non-secure, hashing algorithm +derived from an internal hasher used in FireFox and Rustc.") + (license (list license:asl2.0 license:expat)))) + (define-public rust-gcc-0.3 (package (inherit rust-cc-1.0) @@ -1061,6 +3541,51 @@ archive to be linked into Rustcode.") (license (list license:asl2.0 license:expat)))) +(define-public rust-generic-array-0.13 + (package + (name "rust-generic-array") + (version "0.13.2") + (source + (origin + (method url-fetch) + (uri (crate-uri "generic-array" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1kddwxpd58y807y1r3lijg7sw3gxm6nczl6wp57gamhv6mhygl8f")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-serde" ,rust-serde-1.0) + ("rust-typenum" ,rust-typenum-1.10)) + #:cargo-development-inputs + (("rust-bincode" ,rust-bincode-1.1) + ("rust-serde-json" ,rust-serde-json-1.0)))) + (home-page + "https://github.com/fizyk20/generic-array") + (synopsis + "Generic types implementing functionality of arrays") + (description + "Generic types implementing functionality of arrays.") + (license license:expat))) + +(define-public rust-generic-array-0.12 + (package + (inherit rust-generic-array-0.13) + (name "rust-generic-array") + (version "0.12.3") + (source + (origin + (method url-fetch) + (uri (crate-uri "generic-array" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1v5jg7djicq34nbiv1dwaki71gkny002wyy9qfn3y0hfmrs053y6")))))) + (define-public rust-getopts-0.2 (package (name "rust-getopts") @@ -1081,6 +3606,113 @@ archive to be linked into Rustcode.") (license (list license:asl2.0 license:expat)))) +(define-public rust-getrandom-0.1 + (package + (name "rust-getrandom") + (version "0.1.6") + (source + (origin + (method url-fetch) + (uri (crate-uri "getrandom" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0macrjfkgsjn6ikr94agapp4fkxmr8w7y2g7qis4icc4a17cwp76")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-libc" ,rust-libc-0.2) + ("rust-log" ,rust-log-0.4) + ("rust-stdweb" ,rust-stdweb-0.4) + ("rust-wasm-bindgen" ,rust-wasm-bindgen-0.2)))) + (home-page "https://github.com/rust-random/getrandom") + (synopsis "Retrieve random data from system source") + (description + "This package provides a small cross-platform library for +retrieving random data from system source.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-gimli-0.18 + (package + (name "rust-gimli") + (version "0.18.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "gimli" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0ma1zg2klqr47rasm7jn3zzd1j1pj2a8wkfbv5zsx10qh43phy4k")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-arrayvec" ,rust-arrayvec-0.4) + ("rust-byteorder" ,rust-byteorder-1.3) + ("rust-fallible-iterator" ,rust-fallible-iterator-0.2) + ("rust-indexmap" ,rust-indexmap-1.0) + ("rust-stable-deref-trait" ,rust-stable-deref-trait-1.1)) + #:cargo-development-inputs + (("rust-crossbeam" ,rust-crossbeam-0.7) + ("rust-getopts" ,rust-getopts-0.2) + ("rust-memmap" ,rust-memmap-0.7) + ("rust-num-cpus" ,rust-num-cpus-1.10) + ("rust-object" ,rust-object-0.12) + ("rust-rayon" ,rust-rayon-1.1) + ("rust-regex" ,rust-regex-1.1) + ("rust-test-assembler" ,rust-test-assembler-0.1) + ("rust-typed-arena" ,rust-typed-arena-1.4)))) + (home-page "https://github.com/gimli-rs/gimli") + (synopsis "Reading and writing the DWARF debugging format") + (description + "This package provides a library for reading and writing the +DWARF debugging format.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-git2-0.9 + (package + (name "rust-git2") + (version "0.9.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "git2" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0cayf5w7wkvclvs8brbi7lyfxbdklwls9s49mpf2brl655yjwjwj")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-bitflags" ,rust-bitflags-1) + ("rust-libc" ,rust-libc-0.2) + ("rust-libgit2-sys" ,rust-libgit2-sys-0.8) + ("rust-log" ,rust-log-0.4) + ("rust-openssl-probe" ,rust-openssl-probe-0.1) + ("rust-openssl-sys" ,rust-openssl-sys-0.9) + ("rust-url" ,rust-url-1.7)) + #:cargo-development-inputs + (("rust-docopt" ,rust-docopt-1.1) + ("rust-serde" ,rust-serde-1.0) + ("rust-serde-derive" ,rust-serde-derive-1.0) + ("rust-tempdir" ,rust-tempdir-0.3) + ("rust-thread-id" ,rust-thread-id-3.3) + ("rust-time" ,rust-time-0.1)))) + (home-page "https://github.com/rust-lang/git2-rs") + (synopsis "Rust bindings to libgit2") + (description + "Bindings to libgit2 for interoperating with git repositories. +This library is both threadsafe and memory safe and allows both +reading and writing git repositories.") + (license (list license:asl2.0 license:expat)))) + (define-public rust-glob-0.3 (package (name "rust-glob") @@ -1117,6 +3749,307 @@ shell style patterns.") (base32 "1ysvi72slkw784fcsymgj4308c3y03gwjjzqxp80xdjnkbh8vqcb")))))) +(define-public rust-globset-0.4 + (package + (name "rust-globset") + (version "0.4.4") + (source + (origin + (method url-fetch) + (uri (crate-uri "globset" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1wnqxq91liknmr2w93wjq2spyxbrd1pmnhd4nbi3921dr35a4nlj")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-aho-corasick" ,rust-aho-corasick-0.7) + ("rust-bstr" ,rust-bstr-0.2) + ("rust-fnv" ,rust-fnv-1.0) + ("rust-log" ,rust-log-0.4) + ("rust-regex" ,rust-regex-1.1)) + #:cargo-development-inputs + (("rust-glob" ,rust-glob-0.3)))) + (home-page + "https://github.com/BurntSushi/ripgrep/tree/master/globset") + (synopsis + "Cross platform single glob and glob set matching") + (description + "Cross platform single glob and glob set matching. Glob set matching is +the process of matching one or more glob patterns against a single candidate +path simultaneously, and returning all of the globs that matched.") + (license (list license:expat license:unlicense)))) + +(define-public rust-goblin-0.0 + (package + (name "rust-goblin") + (version "0.0.23") + (source + (origin + (method url-fetch) + (uri (crate-uri "goblin" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1g92bl76dgc3v3rins61l811pkwsl3jif1x35h2jx33b7dsv8mmc")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-log" ,rust-log-0.4) + ("rust-plain" ,rust-plain-0.2) + ("rust-scroll" ,rust-scroll-0.9)))) + (home-page "https://github.com/m4b/goblin") + (synopsis "Binary parsing and loading") + (description + "An impish, cross-platform, ELF, Mach-o, and PE binary parsing and +loading crate.") + (license license:expat))) + +(define-public rust-grep-0.2 + (package + (name "rust-grep") + (version "0.2.4") + (source + (origin + (method url-fetch) + (uri (crate-uri "grep" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1pkhjladybzzciwg0mjk3vjz5fyi76hk0d3hgyzv2jxlyp8v4fyc")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-grep-cli" ,rust-grep-cli-0.1) + ("rust-grep-matcher" ,rust-grep-matcher-0.1) + ("rust-grep-pcre2" ,rust-grep-pcre2-0.1) + ("rust-grep-printer" ,rust-grep-printer-0.1) + ("rust-grep-regex" ,rust-grep-regex-0.1) + ("rust-grep-searcher" ,rust-grep-searcher-0.1)) + #:cargo-development-inputs + (("rust-termcolor" ,rust-termcolor-1.0) + ("rust-walkdir" ,rust-walkdir-2.2)))) + (home-page "https://github.com/BurntSushi/ripgrep") + (synopsis "Line oriented regex searching as a library") + (description + "Fast line oriented regex searching as a library.") + (license (list license:unlicense license:expat)))) + +(define-public rust-grep-cli-0.1 + (package + (name "rust-grep-cli") + (version "0.1.3") + (source + (origin + (method url-fetch) + (uri (crate-uri "grep-cli" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "05a502x5m4fijwx7zj9icxna2dx86scm76ap80zr89pnvpbfk1hp")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-atty" ,rust-atty-0.2) + ("rust-bstr" ,rust-bstr-0.2) + ("rust-globset" ,rust-globset-0.4) + ("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-log" ,rust-log-0.4) + ("rust-regex" ,rust-regex-1.1) + ("rust-same-file" ,rust-same-file-1.0) + ("rust-termcolor" ,rust-termcolor-1.0) + ("rust-winapi-util" ,rust-winapi-util-0.1)))) + (home-page + "https://github.com/BurntSushi/ripgrep") + (synopsis + "Utilities for search oriented command line applications") + (description + "Utilities for search oriented command line applications.") + (license license:expat))) + +(define-public rust-grep-matcher-0.1 + (package + (name "rust-grep-matcher") + (version "0.1.2") + (source + (origin + (method url-fetch) + (uri (crate-uri "grep-matcher" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "03j26zygfgwyam66bl5g922gimrvp4yyzl8qvaykyklnf247bl3r")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-memchr" ,rust-memchr-2.2)) + #:cargo-development-inputs + (("rust-regex" ,rust-regex-1.1)))) + (home-page "https://github.com/BurntSushi/ripgrep") + (synopsis "Trait for regular expressions") + (description + "This crate provides a low level interface for describing regular +expression matchers. The @code{grep} crate uses this interface in order to make +the regex engine it uses pluggable.") + (license (list license:expat license:unlicense)))) + +(define-public rust-grep-pcre2-0.1 + (package + (name "rust-grep-pcre2") + (version "0.1.3") + (source + (origin + (method url-fetch) + (uri (crate-uri "grep-pcre2" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1wjc3gsan20gapga8nji6jcrmwn9n85q5zf2yfq6g50c7abkc2ql")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-grep-matcher" ,rust-grep-matcher-0.1) + ("rust-pcre2" ,rust-pcre2-0.2)))) + (home-page + "https://github.com/BurntSushi/ripgrep") + (synopsis "Use PCRE2 with the grep crate") + (description "Use PCRE2 with the grep crate.") + (license (list license:expat license:unlicense)))) + +(define-public rust-grep-printer-0.1 + (package + (name "rust-grep-printer") + (version "0.1.3") + (source + (origin + (method url-fetch) + (uri (crate-uri "grep-printer" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0mxc1yx5sx89f00imlm5d3hxwdgglv9rzwdki8ba50gvq8a2nr8m")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-base64" ,rust-base64-0.10) + ("rust-bstr" ,rust-bstr-0.2) + ("rust-grep-matcher" ,rust-grep-matcher-0.1) + ("rust-grep-searcher" ,rust-grep-searcher-0.1) + ("rust-serde" ,rust-serde-1.0) + ("rust-serde-derive" ,rust-serde-derive-1.0) + ("rust-serde-json" ,rust-serde-json-1.0) + ("rust-termcolor" ,rust-termcolor-1.0)) + #:cargo-development-inputs + (("rust-grep-regex" ,rust-grep-regex-0.1)))) + (home-page "https://github.com/BurntSushi/ripgrep") + (synopsis "Standard printing of search results") + (description + "An implementation of the grep crate's Sink trait that provides +standard printing of search results, similar to grep itself.") + (license (list license:unlicense license:expat)))) + +(define-public rust-grep-regex-0.1 + (package + (name "rust-grep-regex") + (version "0.1.3") + (source + (origin + (method url-fetch) + (uri (crate-uri "grep-regex" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1lbb8837gzy25n706mnidaps4jl63ym679zraj8nfy5g02zbz549")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-aho-corasick" ,rust-aho-corasick-0.7) + ("rust-grep-matcher" ,rust-grep-matcher-0.1) + ("rust-log" ,rust-log-0.4) + ("rust-regex" ,rust-regex-1.1) + ("rust-regex-syntax" ,rust-regex-syntax-0.6) + ("rust-thread-local" ,rust-thread-local-0.3) + ("rust-utf8-ranges" ,rust-utf8-ranges-1.0)))) + (home-page "https://github.com/BurntSushi/ripgrep") + (synopsis "Use Rust's regex library with the grep crate") + (description + "Use Rust's regex library with the grep crate.") + (license (list license:unlicense license:expat)))) + +(define-public rust-grep-searcher-0.1 + (package + (name "rust-grep-searcher") + (version "0.1.5") + (source + (origin + (method url-fetch) + (uri (crate-uri "grep-searcher" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0pj85m7q6k6jpl3q57v1gwq5jxmqnza2xg7jjcxky3q325z8lcjy")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-bstr" ,rust-bstr-0.2) + ("rust-bytecount" ,rust-bytecount-0.5) + ("rust-encoding-rs" ,rust-encoding-rs-0.8) + ("rust-encoding-rs-io" ,rust-encoding-rs-io-0.1) + ("rust-grep-matcher" ,rust-grep-matcher-0.1) + ("rust-log" ,rust-log-0.4) + ("rust-memmap" ,rust-memmap-0.7)) + #:cargo-development-inputs + (("rust-grep-regex" ,rust-grep-regex-0.1) + ("rust-regex" ,rust-regex-1.1)))) + (home-page "https://github.com/BurntSushi/ripgrep") + (synopsis "Line oriented regex searching as a library") + (description + "Fast line oriented regex searching as a library.") + (license (list license:unlicense license:expat)))) + +(define-public rust-half-1.3 + (package + (name "rust-half") + (version "1.3.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "half" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0diqajg3mgar511hxswl4kgqqz9a026yvn3103x5h2smknlc4lwk")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs (("rust-serde" ,rust-serde-1.0)))) + (home-page "https://github.com/starkat99/half-rs") + (synopsis "Half-precision floating point f16 type") + (description + "Half-precision floating point f16 type for Rust implementing the +IEEE 754-2008 binary16 type.") + (license (list license:expat license:asl2.0)))) + (define-public rust-heapsize-0.4 (package (name "rust-heapsize") @@ -1196,6 +4129,180 @@ hexadecimal representation.") (license (list license:asl2.0 license:expat)))) +(define-public rust-hex-literal-0.2 + (package + (name "rust-hex-literal") + (version "0.2.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "hex-literal" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0ni2nv3di0jpih2xnmlnr6s96zypkdr8xrw2cvk4f8fx5wb6inn3")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-hex-literal-impl" ,rust-hex-literal-impl-0.2) + ("rust-proc-macro-hack" ,rust-proc-macro-hack-0.5)))) + (home-page "https://github.com/RustCrypto/utils") + (synopsis + "Convert hexadecimal string to byte array at compile time") + (description + "Procedural macro for converting hexadecimal string to byte array at +compile time.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-hex-literal-impl-0.2 + (package + (name "rust-hex-literal-impl") + (version "0.2.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "hex-literal-impl" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "04m6d1k57a9h3hhdgn0vq1hkfwjv9hfkw6q73bqn0my0qw45s286")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-proc-macro-hack" ,rust-proc-macro-hack-0.5)))) + (home-page "https://github.com/RustCrypto/utils") + (synopsis "Internal implementation of the hex-literal crate") + (description + "Internal implementation of the hex-literal crate.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-html5ever-0.23 + (package + (name "rust-html5ever") + (version "0.23.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "html5ever" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1dx8k7synrmf3fl6gcfm5q1cybfglvhc9xnvly3s5xcc0b45mrjw")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-log" ,rust-log-0.4) + ("rust-mac" ,rust-mac-0.1) + ("rust-markup5ever" ,rust-markup5ever-0.8)) + #:cargo-development-inputs + (("rust-criterion" ,rust-criterion-0.2) + ("rust-proc-macro2" ,rust-proc-macro2-0.4) + ("rust-quote" ,rust-quote-1.0) + ("rust-rustc-serialize" ,rust-rustc-serialize-0.3) + ("rust-rustc-test" ,rust-rustc-test-0.3) + ("rust-syn" ,rust-syn-0.15) + ("rust-typed-arena" ,rust-typed-arena-1.4)))) + (home-page "https://github.com/servo/html5ever") + (synopsis "High-performance browser-grade HTML5 parser") + (description + "High-performance browser-grade HTML5 parser.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-http-0.1 + (package + (name "rust-http") + (version "0.1.17") + (source + (origin + (method url-fetch) + (uri (crate-uri "http" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "06icxvrd26r6s7dzjavja7r47hgjb9851wblqh8frxnsy3q29lzf")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-bytes" ,rust-bytes-0.4) + ("rust-fnv" ,rust-fnv-1.0) + ("rust-itoa" ,rust-itoa-0.4)) + #:cargo-development-inputs + (("rust-indexmap" ,rust-indexmap-1.0) + ("rust-quickcheck" ,rust-quickcheck-0.8) + ("rust-rand" ,rust-rand-0.4) + ("rust-seahash" ,rust-seahash-3.0) + ("rust-serde" ,rust-serde-1.0) + ("rust-serde-json" ,rust-serde-json-1.0)))) + (home-page "https://github.com/hyperium/http") + (synopsis "Set of types for representing HTTP requests and responses") + (description + "This package provides a set of types for representing HTTP +requests and responses.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-httparse-1.3 + (package + (name "rust-httparse") + (version "1.3.3") + (source + (origin + (method url-fetch) + (uri (crate-uri "httparse" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "10vsfx1b8drhif08fbi0ha9d3v1f3h80w42rxh0y3hrvzl64nwz8")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-development-inputs + (("rust-pico-sys" ,rust-pico-sys-0.0)))) + (home-page "https://github.com/seanmonstar/httparse") + (synopsis "Zero-copy HTTP/1.x parser") + (description + "This package provides a tiny, safe, speedy, zero-copy HTTP/1.x parser.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-humantime-1.2 + (package + (name "rust-humantime") + (version "1.2.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "humantime" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "057ilhy6vc9iqhhby5ymh45m051pgxwq2z437gwkbnqhw7rfb9rw")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-quick-error" ,rust-quick-error-1.2)) + #:cargo-development-inputs + (("rust-chrono" ,rust-chrono-0.4) + ("rust-rand" ,rust-rand-0.4) + ("rust-time" ,rust-time-0.1)))) + (home-page + "https://github.com/tailhook/humantime") + (synopsis + "Parser and formatter for Duration and SystemTime") + (description + "A parser and formatter for @code{std::time::{Duration, +SystemTime}}.") + (license (list license:expat license:asl2.0)))) + (define-public rust-hostname-0.1 (package (name "rust-hostname") @@ -1216,6 +4323,174 @@ hexadecimal representation.") (properties '((hidden? . #t))) (license license:expat))) +(define-public rust-idna-0.1 + (package + (name "rust-idna") + (version "0.1.5") + (source + (origin + (method url-fetch) + (uri (crate-uri "idna" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0kl4gs5kaydn4v07c6ka33spm9qdh2np0x7iw7g5zd8z1c7rxw1q")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-matches" ,rust-matches-0.1) + ("rust-unicode-bidi" ,rust-unicode-bidi-0.3) + ("rust-unicode-normalization" ,rust-unicode-normalization-0.1)) + #:cargo-development-inputs + (("rust-rustc-serialize" ,rust-rustc-serialize-0.3) + ("rust-rustc-test" ,rust-rustc-test-0.3)))) + (home-page "https://github.com/servo/rust-url/") + (synopsis "Internationalizing Domain Names in Applications and Punycode") + (description + "IDNA (Internationalizing Domain Names in Applications) and Punycode.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-ignore-0.4 + (package + (name "rust-ignore") + (version "0.4.7") + (source + (origin + (method url-fetch) + (uri (crate-uri "ignore" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "00mhksl41dnlsjqmka8c5a0m4spwm70ilm1qd9rngwq552hpzicd")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-crossbeam-channel" ,rust-crossbeam-channel-0.3) + ("rust-globset" ,rust-globset-0.4) + ("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-log" ,rust-log-0.4) + ("rust-memchr" ,rust-memchr-2.2) + ("rust-regex" ,rust-regex-1.1) + ("rust-same-file" ,rust-same-file-1.0) + ("rust-thread-local" ,rust-thread-local-0.3) + ("rust-walkdir" ,rust-walkdir-2.2) + ("rust-winapi-util" ,rust-winapi-util-0.1)) + #:cargo-development-inputs + (("rust-tempfile" ,rust-tempfile-3.0)))) + (home-page "https://github.com/BurntSushi/ripgrep/tree/master/ignore") + (synopsis "Efficiently match ignore files such as .gitignore") + (description + "This package provides a fast library for efficiently matching +ignore files such as .gitignore against file paths.") + (license (list license:unlicense license:expat)))) + +(define-public rust-indexmap-1.0 + (package + (name "rust-indexmap") + (version "1.0.2") + (source + (origin + (method url-fetch) + (uri (crate-uri "indexmap" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "13f5k1kl2759y4xfy0vhays35fmrkmhqngbr2ny8smvrbz0ag0by")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-serde" ,rust-serde-1.0)) + #:cargo-development-inputs + (("rust-fnv" ,rust-fnv-1.0) + ("rust-itertools" ,rust-itertools-0.8) + ("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-quickcheck" ,rust-quickcheck-0.8) + ("rust-rand" ,rust-rand-0.4) + ("rust-serde-test" ,rust-serde-test-1.0)))) + (home-page "https://github.com/bluss/indexmap") + (synopsis + "Hash table with consistent order and fast iteration") + (description + "This package provides a hash table with consistent order and fast iteration. + +The indexmap is a hash table where the iteration order of the +key-value pairs is independent of the hash values of the keys. It has +the usual hash table functionality, it preserves insertion order +except after removals, and it allows lookup of its elements by either +hash table key or numerical index. A corresponding hash set type is +also provided. + +This crate was initially published under the name ordermap, but it was +renamed to indexmap.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-insta-0.8 + (package + (name "rust-insta") + (version "0.8.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "insta" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "17rvqw9xm61prncbqi3cplphr3l2dl85sljdpyr3fz2mqjgbdfwb")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-chrono" ,rust-chrono-0.4) + ("rust-ci-info" ,rust-ci-info-0.3) + ("rust-console" ,rust-console-0.7) + ("rust-difference" ,rust-difference-2.0) + ("rust-failure" ,rust-failure-0.1) + ("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-pest" ,rust-pest-2.1) + ("rust-pest-derive" ,rust-pest-derive-2.1) + ("rust-ron" ,rust-ron-0.4) + ("rust-serde" ,rust-serde-1.0) + ("rust-serde-json" ,rust-serde-json-1.0) + ("rust-serde-yaml" ,rust-serde-yaml-0.8) + ("rust-uuid" ,rust-uuid-0.7)))) + (home-page "https://github.com/mitsuhiko/insta") + (synopsis "Snapshot testing library for Rust") + (description + "This package provides a snapshot testing library for Rust.") + (license license:asl2.0))) + +(define-public rust-intervaltree-0.2 + (package + (name "rust-intervaltree") + (version "0.2.4") + (source + (origin + (method url-fetch) + (uri (crate-uri "intervaltree" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "10k40gsv79kwnsqrzwmnmm6psa5fqws8yggavmbggvymv16hffdg")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-smallvec" ,rust-smallvec-0.6)))) + (home-page "https://github.com/main--/rust-intervaltree") + (synopsis "Immutable interval trees") + (description + "This package provides a simple and generic implementation of an +immutable interval tree.") + (license license:expat))) + (define-public rust-iovec-0.1 (package (name "rust-iovec") @@ -1237,6 +4512,66 @@ hexadecimal representation.") (license (list license:asl2.0 license:expat)))) +(define-public rust-itertools-0.8 + (package + (name "rust-itertools") + (version "0.8.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "itertools" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0n2k13b6w4x2x6np2lykh9bj3b3z4hwh2r4cn3z2dgnfq7cng12v")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-either" ,rust-either-1.5)) + #:cargo-development-inputs + (("rust-permutohedron" ,rust-permutohedron-0.2) + ("rust-quickcheck" ,rust-quickcheck-0.8) + ("rust-rand" ,rust-rand-0.4)))) + (home-page + "https://github.com/rust-itertools/itertools") + (synopsis + "Extra iterator adaptors, iterator methods, free functions, and macros") + (description + "Extra iterator adaptors, iterator methods, free functions, and macros.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-itertools-num-0.1 + (package + (name "rust-itertools-num") + (version "0.1.3") + (source + (origin + (method url-fetch) + (uri (crate-uri "itertools-num" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1rr7ig9nkpampcas23s91x7yac6qdnwssq3nap522xbgkqps4wm8")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-num-traits" ,rust-num-traits-0.2)) + #:cargo-development-inputs + (("rust-itertools" ,rust-itertools-0.8) + ("rust-quickcheck" ,rust-quickcheck-0.8)))) + (home-page + "https://github.com/bluss/itertools-num") + (synopsis + "Numerical iterator tools") + (description + "Numerical iterator tools. Extra iterators and iterator methods +and functions.") + (license (list license:expat license:asl2.0)))) + (define-public rust-itoa-0.4 (package (name "rust-itoa") @@ -1272,6 +4607,36 @@ primitives to an @code{io::Write}.") (base32 "18g7p2hrb3dk84z3frfgmszfc9hjb4ps9vp99qlb1kmf9gm8hc5f")))))) +(define-public rust-js-sys-0.3 + (package + (name "rust-js-sys") + (version "0.3.24") + (source + (origin + (method url-fetch) + (uri (crate-uri "js-sys" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "045fgafggkjdfg4f33vb87silyl9xpbifrhx1ciqi4wvm90nzhga")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-wasm-bindgen" ,rust-wasm-bindgen-0.2)) + #:cargo-development-inputs + (("rust-futures" ,rust-futures-0.1) + ("rust-wasm-bindgen-futures" ,rust-wasm-bindgen-futures-0.3) + ("rust-wasm-bindgen-test" ,rust-wasm-bindgen-test-0.2)))) + (home-page "https://rustwasm.github.io/wasm-bindgen/") + (synopsis "Bindings for all JS global objects and functions in WASM") + (description + "Bindings for all JS global objects and functions in all JS environments +like Node.js and browsers, built on @code{#[wasm_bindgen]} using the +wasm-bindgen crate.") + (license (list license:asl2.0 license:expat)))) + (define-public rust-jemalloc-sys-0.3 (package (name "rust-jemalloc-sys") @@ -1304,6 +4669,33 @@ primitives to an @code{io::Write}.") (license (list license:asl2.0 license:expat)))) +(define-public rust-jemallocator-0.3 + (package + (name "rust-jemallocator") + (version "0.3.2") + (source + (origin + (method url-fetch) + (uri (crate-uri "jemallocator" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0sabfa5118b7l4ars5n36s2fjyfn59w4d6mjs6rrmsa5zky67bj3")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-jemalloc-sys" ,rust-jemalloc-sys-0.3) + ("rust-libc" ,rust-libc-0.2)) + #:cargo-development-inputs + (("rust-paste" ,rust-paste-0.1)))) + (home-page "https://github.com/gnzlbg/jemallocator") + (synopsis "Rust allocator backed by jemalloc") + (description + "This package provides a Rust allocator backed by jemalloc.") + (license (list license:expat license:asl2.0)))) + (define-public rust-json-0.11 (package (name "rust-json") @@ -1382,6 +4774,9 @@ language tags.") (base32 "052ac27w189hrf1j3hz7sga46rp84zl2hqnzyihxv78mgzr2jmxw")))) (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs (("rust-spin" ,rust-spin-0.5)))) (home-page "https://github.com/rust-lang-nursery/lazy-static.rs") (synopsis "Macro for declaring lazily evaluated statics in Rust") (description @@ -1390,10 +4785,67 @@ Rust. Using this macro, it is possible to have @code{static}s that require code to be executed at runtime in order to be initialized. This includes anything requiring heap allocations, like vectors or hash maps, as well as anything that requires non-const function calls to be computed.") - (properties '((hidden? . #t))) (license (list license:asl2.0 license:expat)))) +(define-public rust-lazycell-1.2 + (package + (name "rust-lazycell") + (version "1.2.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "lazycell" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0gvqycmpv7parc98i6y64ai7rvxrn1947z2a6maa02g4kvxdd55j")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs (("rust-clippy" ,rust-clippy-0.0)))) + (home-page "https://github.com/indiv0/lazycell") + (synopsis "Lazily filled Cell struct") + (description + "This package provides a library providing a lazily filled Cell struct.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-lexical-core-0.4 + (package + (name "rust-lexical-core") + (version "0.4.2") + (source + (origin + (method url-fetch) + (uri (crate-uri "lexical-core" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1gr5y3ykghd3wjc00l3iizkj1dxylyhwi6fj6yn2qg06nzx771iz")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-cfg-if" ,rust-cfg-if-0.1) + ("rust-dtoa" ,rust-dtoa-0.4) + ("rust-ryu" ,rust-ryu-1.0) + ("rust-stackvector" ,rust-stackvector-1.0) + ("rust-static-assertions" ,rust-static-assertions-0.3)) + #:cargo-development-inputs + (("rust-approx" ,rust-approx-0.3) + ("rust-proptest" ,rust-proptest-0.9) + ("rust-quickcheck" ,rust-quickcheck-0.8) + ("rust-rustc-version" ,rust-rustc-version-0.2)))) + (home-page + "https://github.com/Alexhuszagh/rust-lexical/tree/master/lexical-core") + (synopsis + "Lexical, to- and from-string conversion routines") + (description + "Lexical, to- and from-string conversion routines.") + (license (list license:asl2.0 license:expat)))) + (define-public rust-libc-0.2 (package (name "rust-libc") @@ -1537,9 +4989,52 @@ functions and static variables these libraries contain.") (license (list license:asl2.0 license:expat)))) +(define-public rust-lock-api-0.3 + (package + (name "rust-lock-api") + (version "0.3.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "lock_api" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1p04271jikw69ja0ap0plrfwm9incf1iny48g0b3ma9k4mw2x4gq")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-owning-ref" ,rust-owning-ref-0.4) + ("rust-scopeguard" ,rust-scopeguard-1.0) + ("rust-serde" ,rust-serde-1.0)))) + (home-page "https://github.com/Amanieu/parking_lot") + (synopsis + "Wrappers to create fully-featured Mutex and RwLock types") + (description + "This package provides wrappers to create fully-featured @code{Mutex} and +@code{RwLock} types. It is compatible with @code{no_std}.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-lock-api-0.2 + (package + (inherit rust-lock-api-0.3) + (name "rust-lock-api") + (version "0.2.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "lock_api" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1zx7pksmgyggpczgw4qrr4vj2nkdk5lipgiysvr20slm552nv57d")))))) (define-public rust-lock-api-0.1 (package + (inherit rust-lock-api-0.2) (name "rust-lock-api") (version "0.1.5") (source @@ -1550,15 +5045,7 @@ functions and static variables these libraries contain.") (sha256 (base32 "0b24q9mh258xa52ap636q1sxz0j5vrnp0hwbbh7ddjka3wwz3sv2")))) - (build-system cargo-build-system) - (home-page "https://github.com/Amanieu/parking_lot") - (synopsis "Wrappers to create fully-featured Mutex and RwLock types") - (description - "This package provides wrappers to create fully-featured @code{Mutex} and -@code{RwLock} types. It is compatible with @code{no_std}.") - (properties '((hidden? . #t))) - (license (list license:asl2.0 - license:expat)))) + (properties '((hidden? . #t))))) (define-public rust-log-0.4 (package @@ -1573,11 +5060,17 @@ functions and static variables these libraries contain.") (base32 "1xz18ixccl5c6np4linv3ypc7hpmmgpc5zzd2ymp2ssfx0mhbdhl")))) (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-cfg-if" ,rust-cfg-if-0.1) + ("rust-serde" ,rust-serde-1.0)) + #:cargo-development-inputs + (("rust-serde-test" ,rust-serde-test-1.0)))) (home-page "https://github.com/rust-lang/log") (synopsis "Lightweight logging facade for Rust") (description "This package provides a lightweight logging facade for Rust.") - (properties '((hidden? . #t))) (license (list license:expat license:asl2.0)))) (define-public rust-log-0.3 @@ -1594,6 +5087,35 @@ functions and static variables these libraries contain.") (base32 "0nsn28syc49vvjhxcfc8261rd1frhjc0r4bn9v3mqvps3ra7f3w8")))))) +(define-public rust-loom-0.1 + (package + (name "rust-loom") + (version "0.1.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "loom" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1jmp5mffwwyqgp914cwz92ij2s6vk1hsnkvgndvzw74xrcfraibj")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-cfg-if" ,rust-cfg-if-0.1) + ("rust-futures" ,rust-futures-0.1) + ("rust-generator" ,rust-generator-0.6) + ("rust-scoped-tls" ,rust-scoped-tls-1.0) + ("rust-serde" ,rust-serde-1.0) + ("rust-serde-derive" ,rust-serde-derive-1.0) + ("rust-serde-json" ,rust-serde-json-1.0)))) + (home-page "https://github.com/tokio-rs/loom") + (synopsis "Model checker for concurrent code") + (description "Model checker for concurrent code.") + (license license:expat))) + (define-public rust-lzma-sys-0.1 (package (name "rust-lzma-sys") @@ -1627,6 +5149,27 @@ implementation of LZMA and xz stream encoding/decoding.") (license (list license:asl2.0 license:expat)))) +(define-public rust-mac-0.1 + (package + (name "rust-mac") + (version "0.1.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "mac" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "194vc7vrshqff72rl56f9xgb0cazyl4jda7qsv31m5l6xx7hq7n4")))) + (build-system cargo-build-system) + (arguments `(#:skip-build? #t)) + (home-page "https://github.com/reem/rust-mac") + (synopsis "Collection of great and ubiqutitous macros") + (description + "This package provides a collection of great and ubiqutitous macros.") + (license (list license:asl2.0 license:expat)))) + (define-public rust-maplit-1.0 (package (name "rust-maplit") @@ -1648,6 +5191,40 @@ implementation of LZMA and xz stream encoding/decoding.") (license (list license:asl2.0 license:expat)))) +(define-public rust-markup5ever-0.8 + (package + (name "rust-markup5ever") + (version "0.8.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "markup5ever" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "08ayl9aqjnmf7ly1ipy6dk3wjvyfn4w51l40jzh1fh984ykldbzi")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-log" ,rust-log-0.4) + ("rust-phf" ,rust-phf-0.7) + ("rust-string-cache" ,rust-string-cache-0.7) + ("rust-tendril" ,rust-tendril-0.4)) + #:cargo-development-inputs + (("rust-phf-codegen" ,rust-phf-codegen-0.7) + ("rust-serde" ,rust-serde-1.0) + ("rust-serde-derive" ,rust-serde-derive-1.0) + ("rust-serde-json" ,rust-serde-json-1.0) + ("rust-string-cache-codegen" + ,rust-string-cache-codegen-0.4)))) + (home-page "https://github.com/servo/html5ever") + (synopsis "Common code for xml5ever and html5ever") + (description + "Common code for xml5ever and html5ever.") + (license (list license:asl2.0 license:expat)))) + (define-public rust-matches-0.1 (package (name "rust-matches") @@ -1688,6 +5265,48 @@ whether an expression matches a pattern.") (license (list license:asl2.0 license:expat)))) +(define-public rust-memchr-2.2 + (package + (name "rust-memchr") + (version "2.2.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "memchr" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0f8wdra7yaggsr4jzlrvpd8yknnqhd990iijdr6llgc8gk2ppz1f")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-libc" ,rust-libc-0.2)) + #:cargo-development-inputs + (("rust-quickcheck" ,rust-quickcheck-0.8)))) + (home-page + "https://github.com/BurntSushi/rust-memchr") + (synopsis "Safe interface to memchr") + (description "The @code{memchr} crate provides heavily optimized routines +for searching bytes.") + (license (list license:expat license:unlicense)))) + +(define-public rust-memchr-1.0 + (package + (inherit rust-memchr-2.2) + (name "rust-memchr") + (version "1.0.2") + (source + (origin + (method url-fetch) + (uri (crate-uri "memchr" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0yjyja34pzhipdl855q3m21w1lyih4lw79x2dp3czwdla4pap3ql")))))) + (define-public rust-memmap-0.7 (package (name "rust-memmap") @@ -1724,6 +5343,28 @@ file IO.") (base32 "1zy6s0ni0lx9rjzq3gq2zz9r8zgjmbp02332g3gsj4fyhv4s5zz2")))))) +(define-public rust-memoffset-0.2 + (package + (name "rust-memoffset") + (version "0.2.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "memoffset" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1cvm2z7dy138s302ii7wlzcxbka5a8yfl5pl5di7lbdnw9hw578g")))) + (build-system cargo-build-system) + (arguments `(#:skip-build? #t)) + (home-page "https://github.com/Gilnaa/memoffset") + (synopsis + "offset_of functionality for Rust structs") + (description + "@code{offset_of} functionality for Rust structs.") + (license license:expat))) + (define-public rust-mime-0.3 (package (name "rust-mime") @@ -1757,13 +5398,59 @@ file IO.") (sha256 (base32 "1bmanbbcdmssfbgik3fs323g7vljc5wkjz7s61jsbbz2kg0nckrh")))) (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs (("rust-adler32" ,rust-adler32-1.0)))) (home-page "https://github.com/Frommi/miniz_oxide/tree/master/miniz_oxide") (synopsis "Pure rust replacement for the miniz DEFLATE/zlib encoder/decoder") (description "A pure rust replacement for the miniz DEFLATE/zlib encoder/decoder. Using @code{flate2} with the @code{rust_backend} feature provides an easy to use streaming API for miniz_oxide.") - (properties '((hidden? . #t))) + (license license:expat))) + +(define-public rust-miniz-oxide-0.2 + (package + (inherit rust-miniz-oxide-0.3) + (name "rust-miniz-oxide") + (version "0.2.2") + (source + (origin + (method url-fetch) + (uri (crate-uri "miniz_oxide" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "17f92krv9hhsyc38prpfyn99m2hqhr4fgszpsla66a6gcrnpbhxn")))))) + +(define-public rust-miniz-oxide-c-api-0.2 + (package + (name "rust-miniz-oxide-c-api") + (version "0.2.2") + (source + (origin + (method url-fetch) + (uri (crate-uri "miniz_oxide_c_api" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1514mvlj8vl723xqxnww5cfqr2mhnqqqf18fn3df17yx8racly2v")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-crc32fast" ,rust-crc32fast-1.2) + ("rust-libc" ,rust-libc-0.2) + ("rust-miniz-oxide" ,rust-miniz-oxide-0.2)) + #:cargo-development-inputs + (("rust-cc" ,rust-cc-1.0)))) + (home-page "https://github.com/Frommi/miniz_oxide/") + (synopsis "DEFLATE compression and decompression API") + (description + "DEFLATE compression and decompression API designed to be Rust +drop-in replacement for miniz.") (license license:expat))) (define-public rust-miniz-sys-0.1 @@ -1787,6 +5474,70 @@ streaming API for miniz_oxide.") (license (list license:asl2.0 license:expat)))) +(define-public rust-mio-0.6 + (package + (name "rust-mio") + (version "0.6.19") + (source + (origin + (method url-fetch) + (uri (crate-uri "mio" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "08zzs227vrnyz5kvws6awzlgzb8zqpnihs71hkqlw07dlfb1kxc3")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-fuchsia-zircon" ,rust-fuchsia-zircon-0.3) + ("rust-fuchsia-zircon-sys" ,rust-fuchsia-zircon-sys-0.3) + ("rust-iovec" ,rust-iovec-0.1) + ("rust-kernel32-sys" ,rust-kernel32-sys-0.2) + ("rust-libc" ,rust-libc-0.2) + ("rust-log" ,rust-log-0.4) + ("rust-miow" ,rust-miow-0.2) + ("rust-net2" ,rust-net2-0.2) + ("rust-slab" ,rust-slab-0.4) + ("rust-winapi" ,rust-winapi-0.3)) + #:cargo-development-inputs + (("rust-bytes" ,rust-bytes-0.4) + ("rust-env-logger" ,rust-env-logger-0.6) + ("rust-tempdir" ,rust-tempdir-0.3)))) + (home-page "https://github.com/tokio-rs/mio") + (synopsis "Lightweight non-blocking IO") + (description "Lightweight non-blocking IO.") + (license license:expat))) + +(define-public rust-mio-uds-0.6 + (package + (name "rust-mio-uds") + (version "0.6.7") + (source + (origin + (method url-fetch) + (uri (crate-uri "mio-uds" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "09gimdbnj7b9yca99pk8lxh9jhl79msj795c8fxi2sqr9slmfqln")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-iovec" ,rust-iovec-0.1) + ("rust-libc" ,rust-libc-0.2) + ("rust-mio" ,rust-mio-0.6)) + #:cargo-development-inputs + (("rust-tempdir" ,rust-tempdir-0.3)))) + (home-page "https://github.com/alexcrichton/mio-uds") + (synopsis "Unix domain socket bindings for mio") + (description + "Unix domain socket bindings for mio.") + (license (list license:asl2.0 license:expat)))) + (define-public rust-miow-0.3 (package (name "rust-miow") @@ -1823,6 +5574,32 @@ IOCP and Async I/O abstractions.") (base32 "06g9b8sqlh5gxakwqq4rrib07afwanfnxgxajrldwcgk3hxjy7wc")))))) +(define-public rust-model-0.1 + (package + (name "rust-model") + (version "0.1.2") + (source + (origin + (method url-fetch) + (uri (crate-uri "model" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0kx6hy5i1fn2qs4x6hpng9jixpm68g83vm24z8bqqscr317yinb6")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-permutohedron" ,rust-permutohedron-0.2) + ("rust-proptest" ,rust-proptest-0.9)))) + (home-page "https://github.com/spacejam/model") + (synopsis "Model-based testing for data structures") + (description + "Model-based testing for data structures, with linearizability +checking.") + (license (list license:expat license:asl2.0)))) + (define-public rust-modifier-0.1 (package (name "rust-modifier") @@ -1945,6 +5722,96 @@ known as zlib).") (license (list license:asl2.0 license:expat)))) +(define-public rust-linked-hash-map-0.5 + (package + (name "rust-linked-hash-map") + (version "0.5.2") + (source + (origin + (method url-fetch) + (uri (crate-uri "linked-hash-map" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "10qgbvh00q36ql0jh00rxh2jlq6qvl11n6mig0cvkpf4xf5bd4df")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-clippy" ,rust-clippy-0.0) + ("rust-heapsize" ,rust-heapsize-0.4) + ("rust-serde" ,rust-serde-1.0) + ("rust-serde-test" ,rust-serde-test-1.0)))) + (home-page + "https://github.com/contain-rs/linked-hash-map") + (synopsis + "HashMap wrapper that holds key-value pairs in insertion order") + (description + "This package provides a HashMap wrapper that holds key-value +pairs in insertion order.") + (license (list license:asl2.0 + license:expat)))) + +(define-public rust-new-debug-unreachable-1.0 + (package + (name "rust-new-debug-unreachable") + (version "1.0.3") + (source + (origin + (method url-fetch) + (uri (crate-uri "new_debug_unreachable" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0c1br326qa0rrzxrn2rd5ah7xaprig2i9r4rwsx06vnvc1f003zl")))) + (build-system cargo-build-system) + (arguments `(#:skip-build? #t)) + (home-page + "https://github.com/mbrubeck/rust-debug-unreachable") + (synopsis + "Panic in debug, @code{intrinsics::unreachable()} in release") + (description + "Panic in debug, @code{intrinsics::unreachable() }in +release (fork of debug_unreachable)") + (license license:expat))) + +(define-public rust-nix-0.15 + (package + (name "rust-nix") + (version "0.15.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "nix" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0aa2l7wg9pzx24ks4p97gdy09a4hhs1sr9drxnm75v906d7hnbiv")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-bitflags" ,rust-bitflags-1) + ("rust-cfg-if" ,rust-cfg-if-0.1) + ("rust-libc" ,rust-libc-0.2) + ("rust-void" ,rust-void-1.0)) + #:cargo-development-inputs + (("rust-bytes" ,rust-bytes-0.4) + ("rust-caps" ,rust-caps-0.3) + ("rust-cc" ,rust-cc-1.0) + ("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-rand" ,rust-rand-0.4) + ("rust-sysctl" ,rust-sysctl-0.4) + ("rust-tempfile" ,rust-tempfile-3.0)))) + (home-page "https://github.com/nix-rust/nix") + (synopsis "Rust friendly bindings to *nix APIs") + (description + "Rust friendly bindings to *nix APIs.") + (license license:expat))) + (define-public rust-nodrop-0.1 (package (name "rust-nodrop") @@ -1990,6 +5857,70 @@ implementation (which is unstable / requires nightly).") (license (list license:asl2.0 license:expat)))) +(define-public rust-nom-4.2 + (package + (name "rust-nom") + (version "4.2.3") + (source + (origin + (method url-fetch) + (uri (crate-uri "nom" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1mkvby8b4m61p4g1px0pwr58yfkphyp1jcfbp4qfp7l6iqdaklia")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-lexical-core" ,rust-lexical-core-0.4) + ("rust-memchr" ,rust-memchr-2.2) + ("rust-regex" ,rust-regex-1.1)) + #:cargo-development-inputs + (("rust-criterion" ,rust-criterion-0.2) + ("rust-doc-comment" ,rust-doc-comment-0.3) + ("rust-jemallocator" ,rust-jemallocator-0.3) + ("rust-version-check" ,rust-version-check-0.9)))) + (home-page "https://github.com/Geal/nom") + (synopsis + "Byte-oriented, zero-copy, parser combinators library") + (description + "This package provides a byte-oriented, zero-copy, parser +combinators library.") + (license license:expat))) + +(define-public rust-num-complex-0.2 + (package + (name "rust-num-complex") + (version "0.2.3") + (source + (origin + (method url-fetch) + (uri (crate-uri "num-complex" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1z6zjdzx1g1hj4y132ddy83d3p3zvw06igbf59npxxrzzcqwzc7w")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-num-traits" ,rust-num-traits-0.2) + ("rust-rand" ,rust-rand-0.4) + ("rust-serde" ,rust-serde-1.0)) + #:cargo-development-inputs + (("rust-autocfg" ,rust-autocfg-0.1)))) + (home-page + "https://github.com/rust-num/num-complex") + (synopsis + "Complex numbers implementation for Rust") + (description + "Complex numbers implementation for Rust.") + (license (list license:expat license:asl2.0)))) + (define-public rust-num-cpus-1.10 (package (name "rust-num-cpus") @@ -2111,6 +6042,150 @@ implementation (which is unstable / requires nightly).") (properties '((hidden? . #t))) (license (list license:expat license:asl2.0)))) +(define-public rust-object-0.12 + (package + (name "rust-object") + (version "0.12.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "object" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1dch1ajjp05d16lig1dnvisfis0hrlrvw9lcwy1hwgdcym3z6jnz")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-flate2" ,rust-flate2-1.0) + ("rust-goblin" ,rust-goblin-0.0) + ("rust-parity-wasm" ,rust-parity-wasm-0.40) + ("rust-scroll" ,rust-scroll-0.9) + ("rust-uuid" ,rust-uuid-0.7)) + #:cargo-development-inputs + (("rust-memmap" ,rust-memmap-0.7)))) + (home-page "https://github.com/gimli-rs/object") + (synopsis "Parse object file formats") + (description + "This package provides a unified interface for parsing object file +formats.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-odds-0.3 + (package + (name "rust-odds") + (version "0.3.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "odds" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0rdnxa0na4897yb0svb3figz35g4imxjv61yfm2j21gbh5q8v8d9")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-rawpointer" ,rust-rawpointer-0.1) + ("rust-rawslice" ,rust-rawslice-0.1) + ("rust-unchecked-index" ,rust-unchecked-index-0.2)) + #:cargo-development-inputs + (("rust-itertools" ,rust-itertools-0.8) + ("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-memchr" ,rust-memchr-2.2) + ("rust-quickcheck" ,rust-quickcheck-0.8)))) + (home-page "https://github.com/bluss/odds") + (synopsis "Extra functionality for slices, strings and other things") + (description + "Odds and ends collection miscellania. Extra functionality for +slices (@code{.find()}, @code{RevSlice}), strings and other things. +Things in odds may move to more appropriate crates if we find them.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-once-cell-1.2 + (package + (name "rust-once-cell") + (version "1.2.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "once-cell" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1vdz8xlg3r05w3wfjimnc347hgm54i5nrqf72r4mlp0fcdplh7w9")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-parking-lot" ,rust-parking-lot-0.9)) + #:cargo-development-inputs + (("rust-crossbeam-utils" ,rust-crossbeam-utils-0.6) + ("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-regex" ,rust-regex-1.1)))) + (home-page "https://github.com/matklad/once_cell") + (synopsis "Single assignment cells and lazy values") + (description + "Single assignment cells and lazy values.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-opaque-debug-0.2 + (package + (name "rust-opaque-debug") + (version "0.2.2") + (source + (origin + (method url-fetch) + (uri (crate-uri "opaque-debug" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "02942l2gc7w5r4js7i9063x99szic5mzzk1055j83v4diqpbpxck")))) + (build-system cargo-build-system) + (arguments `(#:skip-build? #t)) + (home-page "https://github.com/RustCrypto/utils") + (synopsis "Macro for opaque Debug trait implementation") + (description + "Macro for opaque Debug trait implementation.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-openssl-0.10 + (package + (name "rust-openssl") + (version "0.10.26") + (source + (origin + (method url-fetch) + (uri (crate-uri "openssl" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "11d505lwlrh5a0jc2l6q36gvsaqic3vizq5q860hiqcqkmwwag1s")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-bitflags" ,rust-bitflags-1) + ("rust-cfg-if" ,rust-cfg-if-0.1) + ("rust-foreign-types" ,rust-foreign-types-0.3) + ("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-libc" ,rust-libc-0.2) + ("rust-openssl-sys" ,rust-openssl-sys-0.9)) + #:cargo-development-inputs + (("rust-hex" ,rust-hex-0.3) + ("rust-tempdir" ,rust-tempdir-0.3)))) + (home-page "https://github.com/sfackler/rust-openssl") + (synopsis "OpenSSL bindings") + (description "OpenSSL bindings.") + (license license:asl2.0))) + (define-public rust-openssl-probe-0.1 (package (name "rust-openssl-probe") @@ -2157,14 +6232,14 @@ system for OpenSSL.") (define-public rust-openssl-sys-0.9 (package (name "rust-openssl-sys") - (version "0.9.50") + (version "0.9.53") (source (origin (method url-fetch) (uri (crate-uri "openssl-sys" version)) (file-name (string-append name "-" version ".crate")) (sha256 - (base32 "1dn3capgiz77s6rpmc2sf8gadwkmhwgfd6mw4rcnnm9jp36dqhic")))) + (base32 "0vvk8vzrc73y8n5rf4yj3x8ygyxjaz7wxrbxiwqi7qy0gyp1cpa6")))) (build-system cargo-build-system) ;(arguments ; `(#:phases @@ -2184,6 +6259,66 @@ system for OpenSSL.") (properties '((hidden? . #t))) (license license:expat))) +(define-public rust-ordermap-0.3 + (package + (name "rust-ordermap") + (version "0.3.5") + (source + (origin + (method url-fetch) + (uri (crate-uri "ordermap" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0qr0a50l0qakbjcck93qdayd0xl8gzpp42x0n7b75cs4ybsx6vm8")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-serde" ,rust-serde-1.0)) + #:cargo-development-inputs + (("rust-fnv" ,rust-fnv-1.0) + ("rust-itertools" ,rust-itertools-0.8) + ("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-quickcheck" ,rust-quickcheck-0.8) + ("rust-rand" ,rust-rand-0.4) + ("rust-serde-test" ,rust-serde-test-1.0)))) + (home-page "https://github.com/bluss/indexmap") + (synopsis "Hash table with consistent order and fast iteration") + (description + "This package provides a hash table with consistent order and fast +iteration. NOTE: This crate was renamed to @code{indexmap}. Please use it +under its new name.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-os-pipe-0.8 + (package + (name "rust-os-pipe") + (version "0.8.2") + (source + (origin + (method url-fetch) + (uri (crate-uri "os-pipe" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "049ax8shxik7mm68r2nf7xnrcq3z3p7hz54sbrcxwywxqsjdzs41")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-nix" ,rust-nix-0.15) + ("rust-winapi" ,rust-winapi-0.3)))) + (home-page + "https://github.com/oconnor663/os_pipe.rs") + (synopsis + "Cross-platform library for opening OS pipes") + (description + "A cross-platform library for opening OS pipes.") + (license license:expat))) + (define-public rust-owning-ref-0.4 (package (name "rust-owning-ref") @@ -2206,6 +6341,183 @@ normally prevent moving a type that has been borrowed from.") (properties '((hidden? . #t))) (license license:expat))) +(define-public rust-packed-simd-0.3 + (package + (name "rust-packed-simd") + (version "0.3.3") + (source + (origin + (method url-fetch) + (uri (crate-uri "packed_simd" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0822wqf6kzw4ig9ykndg348w2bxkhs3x64brzsvdxh2a1pyajpm8")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-cfg-if" ,rust-cfg-if-0.1) + ("rust-core-arch" ,rust-core-arch-0.1) + ("rust-sleef-sys" ,rust-sleef-sys-0.1)) + #:cargo-development-inputs + (("rust-arrayvec" ,rust-arrayvec-0.4) + ("rust-paste" ,rust-paste-0.1) + ("rust-wasm-bindgen" ,rust-wasm-bindgen-0.2) + ("rust-wasm-bindgen-test" ,rust-wasm-bindgen-test-0.2)))) + (home-page "https://github.com/rust-lang/packed_simd") + (synopsis "Portable Packed SIMD vectors") + (description "Portable Packed SIMD vectors.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-parking-lot-0.9 + (package + (name "rust-parking-lot") + (version "0.9.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "parking_lot" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0lk2vq3hp88ygpgsrypdr3ss71fidnqbykva0csgxhmn5scb2hpq")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-lock-api" ,rust-lock-api-0.3) + ("rust-parking-lot-core" ,rust-parking-lot-core-0.6)) + #:cargo-development-inputs + (("rust-bincode" ,rust-bincode-1.1) + ("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-rand" ,rust-rand-0.4) + ("rust-rustc-version" ,rust-rustc-version-0.2)))) + (home-page "https://github.com/Amanieu/parking_lot") + (synopsis "Compact standard synchronization primitives") + (description + "More compact and efficient implementations of the standard +synchronization primitives.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-parking-lot-0.8 + (package + (inherit rust-parking-lot-0.9) + (name "rust-parking-lot") + (version "0.8.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "parking_lot" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1rrcdalr8l5zx3bw28l376321l6dnd6rqnsqsl0ygk01fy0nfxzs")))) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-lock-api" ,rust-lock-api-0.2) + ("rust-parking-lot-core" ,rust-parking-lot-core-0.5)) + #:cargo-development-inputs + (("rust-bincode" ,rust-bincode-1.1) + ("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-rand" ,rust-rand-0.4) + ("rust-rustc-version" ,rust-rustc-version-0.2)))))) + +(define-public rust-parking-lot-0.7 + (package + (inherit rust-parking-lot-0.9) + (name "rust-parking-lot") + (version "0.7.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "parking_lot" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0dz32cqx9200n1lk3kwyb599vabfid3f8sj1aq85sw42s2pb8hdb")))) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-lock-api" ,rust-lock-api-0.1) + ("rust-parking-lot-core" ,rust-parking-lot-core-0.4)) + #:cargo-development-inputs + (("rust-bincode" ,rust-bincode-1.1) + ("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-rand" ,rust-rand-0.4) + ("rust-rustc-version" ,rust-rustc-version-0.2)))))) + +(define-public rust-parking-lot-core-0.6 + (package + (name "rust-parking-lot-core") + (version "0.6.2") + (source + (origin + (method url-fetch) + (uri (crate-uri "parking_lot_core" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0ay67dpnrn68ryyvp720m9i8hzp189fd4d6slrs1lvmcwywv2xmq")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-backtrace" ,rust-backtrace-0.3) + ("rust-cfg-if" ,rust-cfg-if-0.1) + ("rust-cloudabi" ,rust-cloudabi-0.0) + ("rust-libc" ,rust-libc-0.2) + ("rust-petgraph" ,rust-petgraph-0.4) + ("rust-rand" ,rust-rand-0.4) + ("rust-redox-syscall" ,rust-redox-syscall-0.1) + ("rust-smallvec" ,rust-smallvec-0.6) + ("rust-thread-id" ,rust-thread-id-3.3) + ("rust-winapi" ,rust-winapi-0.3)) + #:cargo-development-inputs + (("rust-rustc-version" ,rust-rustc-version-0.2)))) + (home-page "https://github.com/Amanieu/parking_lot") + (synopsis + "Advanced API for creating custom synchronization primitives") + (description + "An advanced API for creating custom synchronization primitives.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-parking-lot-core-0.5 + (package + (inherit rust-parking-lot-core-0.6) + (name "rust-parking-lot-core") + (version "0.5.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "parking_lot_core" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1317j5a1yd03baza2kqqrxb4kr1vxa7rckw4frksl2vrncfcp26b")))))) + +(define-public rust-parking-lot-core-0.4 + (package + (inherit rust-parking-lot-core-0.6) + (name "rust-parking-lot-core") + (version "0.4.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "parking_lot_core" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1jcq8aq4wv9y5fip7jg12jdwjd5g5r3x857xdma8vcin769cgj4l")))))) + (define-public rust-parity-wasm-0.40 (package (name "rust-parity-wasm") @@ -2228,6 +6540,111 @@ deserialization, and interpreter in Rust.") (license (list license:asl2.0 license:expat)))) +(define-public rust-paste-0.1 + (package + (name "rust-paste") + (version "0.1.5") + (source + (origin + (method url-fetch) + (uri (crate-uri "paste" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0ygs077hlq8qlx5y46sfgrmhlqqgkmvvhn4x3y10arawalf4ljhz")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-paste-impl" ,rust-paste-impl-0.1) + ("rust-proc-macro-hack" ,rust-proc-macro-hack-0.5)))) + (home-page "https://github.com/dtolnay/paste") + (synopsis "Macros for all your token pasting needs") + (description + "Macros for all your token pasting needs.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-paste-impl-0.1 + (package + (name "rust-paste-impl") + (version "0.1.5") + (source + (origin + (method url-fetch) + (uri (crate-uri "paste-impl" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1rkh8nixmb7r1y0mjnsz62p6r1bqah5ciri7bwhmgcmq4gk9drr6")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-proc-macro-hack" ,rust-proc-macro-hack-0.5) + ("rust-proc-macro2" ,rust-proc-macro2-0.4) + ("rust-quote" ,rust-quote-1.0) + ("rust-syn" ,rust-syn-0.15)))) + (home-page "https://github.com/dtolnay/paste") + (synopsis "Implementation detail of the paste crate") + (description + "Implementation detail of the paste crate.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-pcre2-0.2 + (package + (name "rust-pcre2") + (version "0.2.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "pcre2" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "103i66a998g1fjrqf9sdyvi8qi83hwglz3pjdcq9n2r207hsagb0")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-libc" ,rust-libc-0.2) + ("rust-log" ,rust-log-0.4) + ("rust-pcre2-sys" ,rust-pcre2-sys-0.2) + ("rust-thread-local" ,rust-thread-local-0.3)))) + (home-page "https://github.com/BurntSushi/rust-pcre2") + (synopsis "High level wrapper library for PCRE2") + (description + "This package provides a high level wrapper library for PCRE2.") + (license (list license:expat license:unlicense)))) + +(define-public rust-pcre2-sys-0.2 + (package + (name "rust-pcre2-sys") + (version "0.2.2") + (source + (origin + (method url-fetch) + (uri (crate-uri "pcre2-sys" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0nwdvc43dkb89qmm5q8gw1zyll0wsfqw7kczpn23mljra3874v47")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-libc" ,rust-libc-0.2) + ("rust-pkg-config" ,rust-pkg-config-0.3) + ("rust-cc" ,rust-cc-1.0)))) + (home-page + "https://github.com/BurntSushi/rust-pcre2") + (synopsis "Low level bindings to PCRE2") + (description "Low level bindings to PCRE2.") + (license (list license:expat license:unlicense)))) + (define-public rust-peeking-take-while-0.1 (package (name "rust-peeking-take-while") @@ -2309,6 +6726,274 @@ algorithm.") (license (list license:asl2.0 license:expat)))) +(define-public rust-pest-2.1 + (package + (name "rust-pest") + (version "2.1.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "pest" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "134686mwxm73asbiads53zfchqvvcrsrsyax2cghfcizmvg8ac4k")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-serde" ,rust-serde-1.0) + ("rust-serde-json" ,rust-serde-json-1.0) + ("rust-ucd-trie" ,rust-ucd-trie-0.1)))) + (home-page "https://pest.rs/") + (synopsis "The Elegant Parser") + (description "The Elegant Parser.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-pest-derive-2.1 + (package + (name "rust-pest-derive") + (version "2.1.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "pest_derive" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1l5jfa6ril71cw5nsiw0r45br54dd8cj2r1nc2d1wq6wb3jilgc3")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-pest" ,rust-pest-2.1) + ("rust-pest-generator" ,rust-pest-generator-2.1)))) + (home-page "https://pest.rs/") + (synopsis "Pest's derive macro") + (description "Pest's derive macro.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-pest-generator-2.1 + (package + (name "rust-pest-generator") + (version "2.1.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "pest_generator" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0ipnv77lqhj4d4fpfxi8m168lcjp482kszaknlardmpgqiv0a4k3")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-pest" ,rust-pest-2.1) + ("rust-pest-meta" ,rust-pest-meta-2.1) + ("rust-proc-macro2" ,rust-proc-macro2-0.4) + ("rust-quote" ,rust-quote-1.0) + ("rust-syn" ,rust-syn-0.15)))) + (home-page "https://pest.rs/") + (synopsis "Pest code generator") + (description "Pest code generator.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-pest-meta-2.1 + (package + (name "rust-pest-meta") + (version "2.1.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "pest_meta" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0kaprdz3jis9bjfwhri1zncbsvack5m3gx2g5flspdy7wxnyljgj")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-maplit" ,rust-maplit-1.0) + ("rust-pest" ,rust-pest-2.1)) + #:cargo-development-inputs + (("rust-sha-1" ,rust-sha-1-0.8)))) + (home-page "https://pest.rs") + (synopsis "Pest meta language parser and validator") + (description + "Pest meta language parser and validator.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-petgraph-0.4 + (package + (name "rust-petgraph") + (version "0.4.13") + (source + (origin + (method url-fetch) + (uri (crate-uri "petgraph" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0kyfmca854s54jk26g2x1kjb04c3k7cjilaxyr0if8lhxv8mjdlw")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-fixedbitset" ,rust-fixedbitset-0.1) + ("rust-ordermap" ,rust-ordermap-0.3) + ("rust-quickcheck" ,rust-quickcheck-0.8) + ("rust-serde" ,rust-serde-1.0) + ("rust-serde-derive" ,rust-serde-derive-1.0)) + #:cargo-development-inputs + (("rust-defmac" ,rust-defmac-0.2) + ("rust-itertools" ,rust-itertools-0.8) + ("rust-odds" ,rust-odds-0.3) + ("rust-rand" ,rust-rand-0.4)))) + (home-page "https://github.com/petgraph/petgraph") + (synopsis "Graph data structure library") + (description + "Graph data structure library. Provides graph types and graph +algorithms.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-phf-0.7 + (package + (name "rust-phf") + (version "0.7.24") + (source + (origin + (method url-fetch) + (uri (crate-uri "phf" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "066xwv4dr6056a9adlkarwp4n94kbpwngbmd47ngm3cfbyw49nmk")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-phf-macros" ,rust-phf-macros-0.7) + ("rust-phf-shared" ,rust-phf-shared-0.7)))) + (home-page "https://github.com/sfackler/rust-phf") + (synopsis "Runtime support for perfect hash function data structures") + (description + "Runtime support for perfect hash function data structures.") + (license license:expat))) + +(define-public rust-phf-codegen-0.7 + (package + (name "rust-phf-codegen") + (version "0.7.24") + (source + (origin + (method url-fetch) + (uri (crate-uri "phf-codegen" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0zjiblicfm0nrmr2xxrs6pnf6zz2394wgch6dcbd8jijkq98agmh")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-phf-generator" ,rust-phf-generator-0.7) + ("rust-phf-shared" ,rust-phf-shared-0.7)))) + (home-page + "https://github.com/sfackler/rust-phf") + (synopsis "Codegen library for PHF types") + (description "Codegen library for PHF types.") + (license license:expat))) + +(define-public rust-phf-generator-0.7 + (package + (name "rust-phf-generator") + (version "0.7.24") + (source + (origin + (method url-fetch) + (uri (crate-uri "phf_generator" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0qi62gxk3x3whrmw5c4i71406icqk11qmpgln438p6qm7k4lqdh9")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-phf-shared" ,rust-phf-shared-0.7) + ("rust-rand" ,rust-rand-0.4)))) + (home-page "https://github.com/sfackler/rust-phf") + (synopsis "PHF generation logic") + (description "PHF generation logic") + (license license:expat))) + +(define-public rust-phf-macros-0.7 + (package + (name "rust-phf-macros") + (version "0.7.24") + (source + (origin + (method url-fetch) + (uri (crate-uri "phf_macros" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0dzylcy14ksy60h265l433j9ra8xhg8xlq3pd5qk658m6f1mxd5x")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-phf-generator" ,rust-phf-generator-0.7) + ("rust-phf-shared" ,rust-phf-shared-0.7) + ("rust-proc-macro2" ,rust-proc-macro2-0.4) + ("rust-quote" ,rust-quote-1.0) + ("rust-syn" ,rust-syn-0.15)) + #:cargo-development-inputs + (("rust-compiletest-rs" ,rust-compiletest-rs-0.3)))) + (home-page + "https://github.com/sfackler/rust-phf") + (synopsis + "Macros to generate types in the phf crate") + (description + "Macros to generate types in the phf crate.") + (license license:expat))) + +(define-public rust-phf-shared-0.7 + (package + (name "rust-phf-shared") + (version "0.7.24") + (source + (origin + (method url-fetch) + (uri (crate-uri "phf-shared" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "18371fla0vsj7d6d5rlfb747xbr2in11ar9vgv5qna72bnhp2kr3")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-siphasher" ,rust-siphasher-0.2) + ("rust-unicase" ,rust-unicase-2.4)))) + (home-page "https://github.com/sfackler/rust-phf") + (synopsis "Support code shared by PHF libraries") + (description + "Support code shared by PHF libraries.") + (license license:expat))) + (define-public rust-pico-sys-0.0 (package (name "rust-pico-sys") @@ -2455,6 +7140,83 @@ for x86.") (license (list license:asl2.0 license:expat)))) +(define-public rust-precomputed-hash-0.1 + (package + (name "rust-precomputed-hash") + (version "0.1.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "precomputed-hash" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "075k9bfy39jhs53cb2fpb9klfakx2glxnf28zdw08ws6lgpq6lwj")))) + (build-system cargo-build-system) + (arguments `(#:skip-build? #t)) + (home-page + "https://github.com/emilio/precomputed-hash") + (synopsis + "Base dependency to expose a precomputed hash") + (description + "This package provides a library intending to be a base +dependency to expose a precomputed hash.") + (license license:expat))) + +;; Cyclic dependencies with rust-demo-hack. +(define-public rust-proc-macro-hack-0.5 + (package + (name "rust-proc-macro-hack") + (version "0.5.7") + (source + (origin + (method url-fetch) + (uri (crate-uri "proc-macro-hack" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1www5lrvsk7pq04clgfmjlnnrshikgs1h51l17vrc7qy58bx878c")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-proc-macro2" ,rust-proc-macro2-0.4) + ("rust-quote" ,rust-quote-1.0) + ("rust-syn" ,rust-syn-0.15)) + #:cargo-development-inputs + (("rust-demo-hack" ,rust-demo-hack-0.0) + ("rust-demo-hack-impl" ,rust-demo-hack-impl-0.0)))) + (home-page "https://github.com/dtolnay/proc-macro-hack") + (synopsis + "Procedural macros in expression position") + (description + "Procedural macros in expression position.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-proc-macro-nested-0.1 + (package + (name "rust-proc-macro-nested") + (version "0.1.3") + (source + (origin + (method url-fetch) + (uri (crate-uri "proc-macro-nested" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0bmlksm8vl44wkwihmwr7jsjznhbg0n7aibcw1cs2jgjcp86x6in")))) + (build-system cargo-build-system) + (arguments `(#:skip-build? #t)) + (home-page "https://github.com/dtolnay/proc-macro-hack") + (synopsis + "Support for nested proc-macro-hack invocations") + (description + "Support for nested proc-macro-hack invocations.") + (license (list license:expat license:asl2.0)))) + (define-public rust-proc-macro2-1.0 (package (name "rust-proc-macro2") @@ -2468,12 +7230,17 @@ for x86.") (base32 "09rgb5ab0jgw39kyad0lgqs4nb9yaf7mwcrgxqnsxbn4il54g7lw")))) (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-unicode-xid" ,rust-unicode-xid-0.2)) + #:cargo-development-inputs + (("rust-quote" ,rust-quote-1.0)))) (home-page "https://github.com/alexcrichton/proc-macro2") (synopsis "Stable implementation of the upcoming new `proc_macro` API") (description "This package provides a stable implementation of the upcoming new `proc_macro` API. Comes with an option, off by default, to also reimplement itself in terms of the upstream unstable API.") - (properties '((hidden? . #t))) (license (list license:asl2.0 license:expat)))) (define-public rust-proc-macro2-0.4 @@ -2488,7 +7255,85 @@ in terms of the upstream unstable API.") (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 - "0nd71fl24sys066jrha6j7i34nfkjv44yzw8yww9742wmc8j0gfg")))))) + "0nd71fl24sys066jrha6j7i34nfkjv44yzw8yww9742wmc8j0gfg")))) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-unicode-xid" ,rust-unicode-xid-0.1)) + #:cargo-development-inputs + (("rust-quote" ,rust-quote-0.6)))))) + +(define-public rust-proptest-0.9 + (package + (name "rust-proptest") + (version "0.9.4") + (source + (origin + (method url-fetch) + (uri (crate-uri "proptest" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "17sjg8isas4qk85807c4panih9k0lwa4k1mbajhciw5c5q17w56g")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-bit-set" ,rust-bit-set-0.5) + ("rust-bitflags" ,rust-bitflags-1) + ("rust-byteorder" ,rust-byteorder-1.3) + ("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-num-traits" ,rust-num-traits-0.2) + ("rust-quick-error" ,rust-quick-error-1.2) + ("rust-rand" ,rust-rand-0.4) + ("rust-rand-chacha" ,rust-rand-chacha-0.2) + ("rust-rand-xorshift" ,rust-rand-xorshift-0.2) + ("rust-regex-syntax" ,rust-regex-syntax-0.6) + ("rust-rusty-fork" ,rust-rusty-fork-0.2) + ("rust-tempfile" ,rust-tempfile-3.0)) + #:cargo-development-inputs + (("rust-regex" ,rust-regex-1.1)))) + (home-page + "https://altsysrq.github.io/proptest-book/proptest/index.html") + (synopsis + "Hypothesis-like property-based testing and shrinking") + (description + "Hypothesis-like property-based testing and shrinking.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-pulldown-cmark-0.4 + (package + (name "rust-pulldown-cmark") + (version "0.4.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "pulldown-cmark" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1db8vlhm3n72051bkq4am80q28rfrh88796i3y9ajf5hhk3lrdyi")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-bitflags" ,rust-bitflags-1) + ("rust-getopts" ,rust-getopts-0.2) + ("rust-memchr" ,rust-memchr-2.2) + ("rust-unicase" ,rust-unicase-2.4)) + #:cargo-development-inputs + (("rust-criterion" ,rust-criterion-0.2) + ("rust-html5ever" ,rust-html5ever-0.23) + ("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-regex" ,rust-regex-1.1) + ("rust-tendril" ,rust-tendril-0.4)))) + (home-page "https://github.com/raphlinus/pulldown-cmark") + (synopsis "Pull parser for CommonMark") + (description + "This package provides a pull parser for CommonMark.") + (license license:expat))) (define-public rust-quick-error-1.2 (package @@ -2511,6 +7356,37 @@ to write.") (license (list license:asl2.0 license:expat)))) +;; Many circular dependencies. +;; Dev dependencies are allowed to have them in crates.io. +(define-public rust-quickcheck-0.8 + (package + (name "rust-quickcheck") + (version "0.8.5") + (source + (origin + (method url-fetch) + (uri (crate-uri "quickcheck" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0mkl4wnvvjk4m32aq3an4ayfyvnmbxnzcybfm7n3fbsndb1xjdcw")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-env-logger" ,rust-env-logger-0.6) + ("rust-log" ,rust-log-0.4) + ("rust-rand" ,rust-rand-0.4) + ("rust-rand-core" ,rust-rand-core-0.5)))) + (home-page + "https://github.com/BurntSushi/quickcheck") + (synopsis + "Automatic property based testing with shrinking") + (description + "Automatic property based testing with shrinking.") + (license (list license:expat license:unlicense)))) + (define-public rust-quote-1.0 (package (name "rust-quote") @@ -2557,12 +7433,29 @@ to write.") (base32 "1jl4449jcl4wgmzld6ffwqj5gwxrp8zvx8w573g1z368qg6xlwbd")))) (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-libc" ,rust-libc-0.2) + ("rust-log" ,rust-log-0.4) + ("rust-packed-simd" ,rust-packed-simd-0.3) + ("rust-rand-chacha" ,rust-rand-chacha-0.1) + ("rust-rand-core" ,rust-rand-core-0.4) + ("rust-rand-hc" ,rust-rand-hc-0.1) + ("rust-rand-isaac" ,rust-rand-isaac-0.1) + ("rust-rand-jitter" ,rust-rand-jitter-0.1) + ("rust-rand-os" ,rust-rand-os-0.1) + ("rust-rand-pcg" ,rust-rand-pcg-0.1) + ("rust-rand-xorshift" ,rust-rand-xorshift-0.1) + ("rust-winapi" ,rust-winapi-0.3)) + #:cargo-development-inputs + (("rust-autocfg" ,rust-autocfg-0.1) + ("rust-rand-xoshiro" ,rust-rand-xoshiro-0.3)))) (home-page "https://crates.io/crates/rand") (synopsis "Random number generators and other randomness functionality") (description "Rand provides utilities to generate random numbers, to convert them to useful types and distributions, and some randomness-related algorithms.") - (properties '((hidden? . #t))) (license (list license:asl2.0 license:expat)))) @@ -2570,7 +7463,7 @@ useful types and distributions, and some randomness-related algorithms.") (package (inherit rust-rand-0.6) (name "rust-rand") - (version "0.4.3") + (version "0.4.6") (source (origin (method url-fetch) @@ -2578,7 +7471,15 @@ useful types and distributions, and some randomness-related algorithms.") (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 - "1gfgnqfj2pyh27dcb720jpawskllwnbvxh816ddyykv269xz8ml3")))))) + "14qjfv3gggzhnma20k0sc1jf8y6pplsaq7n1j9ls5c8kf2wl0a2m")))) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-fuchsia-cprng" ,rust-fuchsia-cprng-0.1) + ("rust-rand-core" ,rust-rand-core-0.3) + ("rust-rdrand" ,rust-rdrand-0.4) + ("rust-libc" ,rust-libc-0.2) + ("rust-winapi" ,rust-winapi-0.3)))))) (define-public rust-rand-0.3 (package @@ -2592,10 +7493,42 @@ useful types and distributions, and some randomness-related algorithms.") (file-name (string-append name "-" version ".crate")) (sha256 (base32 - "0v679h38pjjqj5h4md7v2slsvj6686qgcn7p9fbw3h43iwnk1b34")))))) + "0v679h38pjjqj5h4md7v2slsvj6686qgcn7p9fbw3h43iwnk1b34")))) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-libc" ,rust-libc-0.2) + ("rust-rand" ,rust-rand-0.4)))))) + +(define-public rust-rand-chacha-0.2 + (package + (name "rust-rand-chacha") + (version "0.2.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "rand_chacha" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "178d36jfkc4v95s25scc2vibj2hd2hlk64cs6id4hvzg89whd4z1")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-c2-chacha" ,rust-c2-chacha-0.2) + ("rust-rand-core" ,rust-rand-core-0.5)) + #:cargo-development-inputs + (("rust-autocfg" ,rust-autocfg-0.1)))) + (home-page "https://crates.io/crates/rand-chacha") + (synopsis "ChaCha random number generator") + (description "ChaCha random number generator.") + (license (list license:asl2.0 license:expat)))) (define-public rust-rand-chacha-0.1 (package + (inherit rust-rand-chacha-0.2) (name "rust-rand-chacha") (version "0.1.1") (source @@ -2606,16 +7539,43 @@ useful types and distributions, and some randomness-related algorithms.") (sha256 (base32 "1vxwyzs4fy1ffjc8l00fsyygpiss135irjf7nyxgq2v0lqf3lvam")))) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-rand-core" ,rust-rand-core-0.3)) + #:cargo-development-inputs + (("rust-autocfg" ,rust-autocfg-0.1)))))) + +(define-public rust-rand-core-0.5 + (package + (name "rust-rand-core") + (version "0.5.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "rand_core" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1jis94x9ri8xlxki2w2w5k29sjpfwgzkjylg7paganp74hrnhpk1")))) (build-system cargo-build-system) - (home-page "https://crates.io/crates/rand_chacha") - (synopsis "ChaCha random number generator") - (description "ChaCha random number generator") - (properties '((hidden? . #t))) - (license (list license:asl2.0 - license:expat)))) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-getrandom" ,rust-getrandom-0.1) + ("rust-serde" ,rust-serde-1.0) + ("rust-serde-derive" ,rust-serde-derive-1.0)))) + (home-page "https://crates.io/crates/rand-core") + (synopsis + "Core random number generator traits and tools for implementation") + (description + "Core random number generator traits and tools for implementation.") + (license (list license:expat license:asl2.0)))) (define-public rust-rand-core-0.4 (package + (inherit rust-rand-core-0.5) (name "rust-rand-core") (version "0.4.2") (source @@ -2626,15 +7586,11 @@ useful types and distributions, and some randomness-related algorithms.") (sha256 (base32 "1p09ynysrq1vcdlmcqnapq4qakl2yd1ng3kxh3qscpx09k2a6cww")))) - (build-system cargo-build-system) - (home-page "https://crates.io/crates/rand_core") - (synopsis - "Core random number generator traits and tools for implementation.") - (description - "Core random number generator traits and tools for implementation.") - (properties '((hidden? . #t))) - (license (list license:asl2.0 - license:expat)))) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-serde" ,rust-serde-1.0) + ("rust-serde-derive" ,rust-serde-derive-1.0)))))) (define-public rust-rand-core-0.3 (package @@ -2651,7 +7607,8 @@ useful types and distributions, and some randomness-related algorithms.") "0jzdgszfa4bliigiy4hi66k7fs3gfwi2qxn8vik84ph77fwdwvvs")))) ;; This version is a 0.3 API wrapper around the 0.4 version. (arguments - `(#:cargo-inputs (("rand-core" ,rust-rand-core-0.4)))))) + `(#:skip-build? #t + #:cargo-inputs (("rand-core" ,rust-rand-core-0.4)))))) (define-public rust-rand-hc-0.1 (package @@ -2715,8 +7672,34 @@ useful types and distributions, and some randomness-related algorithms.") (license (list license:asl2.0 license:expat)))) +(define-public rust-rand-os-0.2 + (package + (name "rust-rand-os") + (version "0.2.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "rand_os" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "06is69f8rfzs620g5b54k6cgy5yaycrsyqg55flyfrsf8g88733f")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-getrandom" ,rust-getrandom-0.1) + ("rust-rand-core" ,rust-rand-core-0.5)))) + (home-page "https://crates.io/crates/rand-os") + (synopsis "OS backed Random Number Generator") + (description "OS backed Random Number Generator") + (license (list license:asl2.0 + license:expat)))) + (define-public rust-rand-os-0.1 (package + (inherit rust-rand-os-0.2) (name "rust-rand-os") (version "0.1.3") (source @@ -2727,13 +7710,18 @@ useful types and distributions, and some randomness-related algorithms.") (sha256 (base32 "0wahppm0s64gkr2vmhcgwc0lij37in1lgfxg5rbgqlz0l5vgcxbv")))) - (build-system cargo-build-system) - (home-page "https://crates.io/crates/rand_os") - (synopsis "OS backed Random Number Generator") - (description "OS backed Random Number Generator") - (properties '((hidden? . #t))) - (license (list license:asl2.0 - license:expat)))) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-cloudabi" ,rust-cloudabi-0.0) + ("rust-fuchsia-cprng" ,rust-fuchsia-cprng-0.1) + ("rust-libc" ,rust-libc-0.2) + ("rust-log" ,rust-log-0.4) + ("rust-rand-core" ,rust-rand-core-0.4) + ("rust-rdrand" ,rust-rdrand-0.4) + ("rust-stdweb" ,rust-stdweb-0.4) + ("rust-wasm-bindgen" ,rust-wasm-bindgen-0.2) + ("rust-winapi" ,rust-winapi-0.3)))))) (define-public rust-rand-pcg-0.1 (package @@ -2757,6 +7745,33 @@ useful types and distributions, and some randomness-related algorithms.") (license (list license:asl2.0 license:expat)))) +(define-public rust-rand-xorshift-0.2 + (package + (name "rust-rand-xorshift") + (version "0.2.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "rand_xorshift" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1a6wy76lc5fimm1n9n8fzhp4cfjwfwxh4hx63bg3vlh1d2w1dm3p")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-rand-core" ,rust-rand-core-0.5) + ("rust-serde" ,rust-serde-1.0)) + #:cargo-development-inputs + (("rust-bincode" ,rust-bincode-1.1)))) + (home-page "https://crates.io/crates/rand-xorshift") + (synopsis "Xorshift random number generator") + (description + "Xorshift random number generator.") + (license (list license:expat license:asl2.0)))) + (define-public rust-rand-xorshift-0.1 (package (name "rust-rand-xorshift") @@ -2770,7 +7785,7 @@ useful types and distributions, and some randomness-related algorithms.") (base32 "0p2x8nr00hricpi2m6ca5vysiha7ybnghz79yqhhx6sl4gkfkxyb")))) (build-system cargo-build-system) - (home-page "https://crates.io/crates/rand_xorshift") + (home-page "https://crates.io/crates/rand-xorshift") (synopsis "Xorshift random number generator") (description "Xorshift random number generator") @@ -2778,6 +7793,35 @@ useful types and distributions, and some randomness-related algorithms.") (license (list license:asl2.0 license:expat)))) +(define-public rust-rand-xoshiro-0.3 + (package + (name "rust-rand-xoshiro") + (version "0.3.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "rand_xoshiro" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "07w3qgrac8r356lz5vqff42rly6yd9vs3g5lx5pbn13rcmb05rqb")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-byteorder" ,rust-byteorder-1.3) + ("rust-rand-core" ,rust-rand-core-0.5) + ("rust-serde" ,rust-serde-1.0)) + #:cargo-development-inputs + (("rust-bincode" ,rust-bincode-1.1)))) + (home-page "https://github.com/rust-random/rand") + (synopsis + "Xoshiro, xoroshiro and splitmix64 random number generators") + (description + "Xoshiro, xoroshiro and splitmix64 random number generators.") + (license (list license:expat license:asl2.0)))) + (define-public rust-rawpointer-0.1 (package (name "rust-rawpointer") @@ -2800,6 +7844,100 @@ and @code{ptrdistance}.") (license (list license:asl2.0 license:expat)))) +(define-public rust-rawslice-0.1 + (package + (name "rust-rawslice") + (version "0.1.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "rawslice" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "09bympww1rpsd422da3w444q5w1znjbjh7mjninhq9gaaygkpci2")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-rawpointer" ,rust-rawpointer-0.1)) + #:cargo-development-inputs + (("rust-quickcheck" ,rust-quickcheck-0.8)))) + (home-page "https://github.com/bluss/rawslice/") + (synopsis "Reimplementation of the slice iterators, with extra features") + (description + "Reimplementation of the slice iterators, with extra features. +For example creation from raw pointers and start, end pointer +accessors.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-rayon-1.1 + (package + (name "rust-rayon") + (version "1.1.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "rayon" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "190hkbcdfvcphyyzkdg52zdia2y9d9yanpm072bmnzbn49p1ic54")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-crossbeam-deque" ,rust-crossbeam-deque-0.6) + ("rust-either" ,rust-either-1.5) + ("rust-rayon-core" ,rust-rayon-core-1.5)) + #:cargo-development-inputs + (("rust-doc-comment" ,rust-doc-comment-0.3) + ("rust-docopt" ,rust-docopt-1.1) + ("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-rand" ,rust-rand-0.4) + ("rust-rand-xorshift" ,rust-rand-xorshift-0.2) + ("rust-serde" ,rust-serde-1.0) + ("rust-serde-derive" ,rust-serde-derive-1.0)))) + (home-page "https://github.com/rayon-rs/rayon") + (synopsis "Simple work-stealing parallelism for Rust") + (description + "Simple work-stealing parallelism for Rust.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-rayon-core-1.5 + (package + (name "rust-rayon-core") + (version "1.5.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "rayon-core" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1ljva6blaf1wmzvg77h1i9pd0hsmsbbcmdk7sjbw7h2s8gw0vgpb")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-crossbeam-deque" ,rust-crossbeam-deque-0.7) + ("rust-crossbeam-queue" ,rust-crossbeam-queue-0.1) + ("rust-crossbeam-utils" ,rust-crossbeam-utils-0.6) + ("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-num-cpus" ,rust-num-cpus-1.10)) + #:cargo-development-inputs + (("rust-libc" ,rust-libc-0.2) + ("rust-rand" ,rust-rand-0.4) + ("rust-rand-xorshift" ,rust-rand-xorshift-0.2) + ("rust-scoped-tls" ,rust-scoped-tls-1.0)))) + (home-page "https://github.com/rayon-rs/rayon") + (synopsis "Core APIs for Rayon") + (description "Core APIs for Rayon.") + (license (list license:expat license:asl2.0)))) + (define-public rust-rdrand-0.4 (package (name "rust-rdrand") @@ -2863,6 +8001,124 @@ system calls.") (properties '((hidden? . #t))) (license license:expat))) +(define-public rust-ref-cast-0.2 + (package + (name "rust-ref-cast") + (version "0.2.6") + (source + (origin + (method url-fetch) + (uri (crate-uri "ref-cast" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0jgj1zxaikqm030flpifbp517fy4z21lly6ysbwyciii39bkzcf1")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-ref-cast-impl" ,rust-ref-cast-impl-0.2)))) + (home-page "https://github.com/dtolnay/ref-cast") + (synopsis "Safely cast &T to &U") + (description + "Safely cast &T to &U where the struct U contains a single field of type T.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-ref-cast-impl-0.2 + (package + (name "rust-ref-cast-impl") + (version "0.2.6") + (source + (origin + (method url-fetch) + (uri (crate-uri "ref-cast-impl" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0hw0frpzna5rf5szix56zyzd0vackcb3svj94ndj629xi75dkb32")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-proc-macro2" ,rust-proc-macro2-0.4) + ("rust-quote" ,rust-quote-1.0) + ("rust-syn" ,rust-syn-0.15)))) + (home-page "https://github.com/dtolnay/ref-cast") + (synopsis "Derive implementation for @code{ref_cast::RefCast}") + (description + "Derive implementation for ref_cast::RefCast.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-regex-1.1 + (package + (name "rust-regex") + (version "1.1.7") + (source + (origin + (method url-fetch) + (uri (crate-uri "regex" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1pabajpp0wzb7dm2x32gy8w7k0mwykr6zsvzn0fgpr6pww40hbqb")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-aho-corasick" ,rust-aho-corasick-0.7) + ("rust-memchr" ,rust-memchr-2.2) + ("rust-regex-syntax" ,rust-regex-syntax-0.6) + ("rust-thread-local" ,rust-thread-local-0.3) + ("rust-utf8-ranges" ,rust-utf8-ranges-1.0)) + #:cargo-development-inputs + (("rust-doc-comment" ,rust-doc-comment-0.3) + ("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-quickcheck" ,rust-quickcheck-0.8) + ("rust-rand" ,rust-rand-0.4)))) + (home-page "https://github.com/rust-lang/regex") + (synopsis "Regular expressions for Rust") + (description + "An implementation of regular expressions for Rust. This implementation +uses finite automata and guarantees linear time matching on all inputs.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-regex-automata-0.1 + (package + (name "rust-regex-automata") + (version "0.1.7") + (source + (origin + (method url-fetch) + (uri (crate-uri "regex-automata" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "11hzn3rz02vdgvx3ykhrbzkvs5c5sm59fyi3xwljn9qc48br5l1y")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-byteorder" ,rust-byteorder-1.3) + ("rust-regex-syntax" ,rust-regex-syntax-0.6) + ("rust-utf8-ranges" ,rust-utf8-ranges-1.0)) + #:cargo-development-inputs + (("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-regex" ,rust-regex-1.1) + ("rust-serde" ,rust-serde-1.0) + ("rust-serde-bytes" ,rust-serde-bytes-0.11) + ("rust-serde-derive" ,rust-serde-derive-1.0) + ("rust-toml" ,rust-toml-0.5)))) + (home-page "https://github.com/BurntSushi/regex-automata") + (synopsis + "Automata construction and matching using regular expressions") + (description + "Automata construction and matching using regular expressions.") + (license (list license:expat license:unlicense)))) + (define-public rust-regex-syntax-0.6 (package (name "rust-regex-syntax") @@ -2876,11 +8132,14 @@ system calls.") (base32 "0p47lf38yj2g2fnmvnraccqlxwk35zr76hlnqi8yva932nzqam6d")))) (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-ucd-util" ,rust-ucd-util-0.1)))) (home-page "https://github.com/rust-lang/regex") (synopsis "Regular expression parser") (description "This package provides a regular expression parser.") - (properties '((hidden? . #t))) (license (list license:asl2.0 license:expat)))) @@ -2927,6 +8186,35 @@ system calls.") (license (list license:asl2.0 license:expat)))) +(define-public rust-ron-0.4 + (package + (name "rust-ron") + (version "0.4.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "ron" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1mrqdgw3w0yypg24jyq9mphp4zr9lr0ks7yam82m4n34x6njijyr")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-base64" ,rust-base64-0.10) + ("rust-bitflags" ,rust-bitflags-1) + ("rust-serde" ,rust-serde-1.0)) + #:cargo-development-inputs + (("rust-serde-bytes" ,rust-serde-bytes-0.11) + ("rust-serde-json" ,rust-serde-json-1.0)))) + (home-page "https://github.com/ron-rs/ron") + (synopsis "Rusty Object Notation") + (description "Rusty Object Notation.") + (license (list license:asl2.0 + license:expat)))) + (define-public rust-rustc-demangle-0.1 (package (name "rust-rustc-demangle") @@ -3014,6 +8302,124 @@ rust-lang/rust integration.") (license (list license:asl2.0 license:expat)))) +(define-public rust-rustc-test-0.3 + (package + (name "rust-rustc-test") + (version "0.3.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "rustc-test" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0a27mlcg0ck0hgsdvwk792x9z1k1qq1wj091f1l5yggbdbcsnx5w")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-getopts" ,rust-getopts-0.2) + ("rust-libc" ,rust-libc-0.2) + ("rust-rustc-serialize" ,rust-rustc-serialize-0.3) + ("rust-term" ,rust-term-0.5) + ("rust-time" ,rust-time-0.1)) + #:cargo-development-inputs + (("rust-rustc-version" ,rust-rustc-version-0.2)))) + (home-page "https://github.com/servo/rustc-test") + (synopsis "Fork of Rust's test crate") + (description + "This package provides a fork of Rust's test crate that doesn't +require unstable language features.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-rustc-version-0.2 + (package + (name "rust-rustc-version") + (version "0.2.3") + (source + (origin + (method url-fetch) + (uri (crate-uri "rustc_version" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "02h3x57lcr8l2pm0a645s9whdh33pn5cnrwvn5cb57vcrc53x3hk")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs (("rust-semver" ,rust-semver-0.9)))) + (home-page "https://github.com/Kimundi/rustc-version-rs") + (synopsis + "Library for querying the version of a installed rustc compiler") + (description + "This package provides a library for querying the version of a installed +rustc compiler.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-rustfix-0.4 + (package + (name "rust-rustfix") + (version "0.4.6") + (source + (origin + (method url-fetch) + (uri (crate-uri "rustfix" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "01zn0ysnass3mmrhxk90584y713vjfq1x97mi4saac99g9vsql3i")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-failure" ,rust-failure-0.1) + ("rust-log" ,rust-log-0.4) + ("rust-serde" ,rust-serde-1.0) + ("rust-serde-json" ,rust-serde-json-1.0)) + #:cargo-development-inputs + (("rust-difference" ,rust-difference-2.0) + ("rust-duct" ,rust-duct-0.13) + ("rust-env-logger" ,rust-env-logger-0.6) + ("rust-log" ,rust-log-0.4) + ("rust-proptest" ,rust-proptest-0.9) + ("rust-tempdir" ,rust-tempdir-0.3)))) + (home-page "https://github.com/rust-lang/rustfix") + (synopsis "Automatically apply the suggestions made by rustc") + (description + "Automatically apply the suggestions made by rustc.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-rusty-fork-0.2 + (package + (name "rust-rusty-fork") + (version "0.2.2") + (source + (origin + (method url-fetch) + (uri (crate-uri "rusty-fork" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1bjg8adk0i921088j52rn0hmvsry34q19g96x41pamqcw5j35n9x")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-fnv" ,rust-fnv-1.0) + ("rust-quick-error" ,rust-quick-error-1.2) + ("rust-tempfile" ,rust-tempfile-3.0) + ("rust-wait-timeout" ,rust-wait-timeout-0.2)))) + (home-page "https://github.com/altsysrq/rusty-fork") + (synopsis "Library for running Rust tests in sub-processes") + (description + "Cross-platform library for running Rust tests in sub-processes +using a fork-like interface.") + (license (list license:asl2.0 license:expat)))) + (define-public rust-ryu-1.0 (package (name "rust-ryu") @@ -3200,6 +8606,88 @@ with one of the implemented strategies.") (base32 "09sy9wbqp409pkwmqni40qmwa99ldqpl48pp95m1xw8sc19qy9cl")))))) +(define-public rust-scroll-0.9 + (package + (name "rust-scroll") + (version "0.9.2") + (source + (origin + (method url-fetch) + (uri (crate-uri "scroll" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "10q3w86bn22xrjlfg1c90dfi9c26qjkzn26nad0i9z8pxwad311g")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-scroll-derive" ,rust-scroll-derive-0.9)) + #:cargo-development-inputs + (("rust-byteorder" ,rust-byteorder-1.3) + ("rust-rayon" ,rust-rayon-1.1) + ("rust-rustc-version" ,rust-rustc-version-0.2)))) + (home-page "https://github.com/m4b/scroll") + (synopsis "Read/Write traits for byte buffers") + (description + "This package provides a suite of powerful, extensible, generic, +endian-aware Read/Write traits for byte buffers.") + (license license:expat))) + +(define-public rust-scroll-derive-0.9 + (package + (name "rust-scroll-derive") + (version "0.9.5") + (source + (origin + (method url-fetch) + (uri (crate-uri "scroll_derive" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1jqg5mm8nvii6avl1z1rc89agzh2kwkppgpsnwfakxg78mnaj6lg")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-proc-macro2" ,rust-proc-macro2-0.4) + ("rust-quote" ,rust-quote-1.0) + ("rust-syn" ,rust-syn-0.15)) + #:cargo-development-inputs + (("rust-scroll" ,rust-scroll-0.9)))) + (home-page "https://github.com/m4b/scroll_derive") + (synopsis "Derive Pread and Pwrite traits from the scroll crate") + (description + "This package provides a macros 1.1 derive implementation for Pread and +Pwrite traits from the scroll crate.") + (license license:expat))) + +(define-public rust-seahash-3.0 + (package + (name "rust-seahash") + (version "3.0.6") + (source + (origin + (method url-fetch) + (uri (crate-uri "seahash" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1pr8ijnxnp68ki4m4740yc5mr01zijf86yx07wbsqzwiyhghdmhq")))) + (build-system cargo-build-system) + (arguments `(#:skip-build? #t)) + (home-page + "https://gitlab.redox-os.org/redox-os/seahash") + (synopsis + "Hash function with proven statistical guarantees") + (description + "This package provides a blazingly fast, portable hash function with +proven statistical guarantees.") + (license license:expat))) + (define-public rust-security-framework-sys-0.3 (package (name "rust-security-framework-sys") @@ -3221,6 +8709,37 @@ with one of the implemented strategies.") (license (list license:asl2.0 license:expat)))) +(define-public rust-semver-0.9 + (package + (name "rust-semver") + (version "0.9.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "semver" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "00q4lkcj0rrgbhviv9sd4p6qmdsipkwkbra7rh11jrhq5kpvjzhx")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-semver-parser" ,rust-semver-parser-0.7) + ("rust-serde" ,rust-serde-1.0)) + #:cargo-development-inputs + (("rust-crates-index" ,rust-crates-index-0.13) + ("rust-serde-derive" ,rust-serde-derive-1.0) + ("rust-serde-json" ,rust-serde-json-1.0) + ("rust-tempdir" ,rust-tempdir-0.3)))) + (home-page "https://docs.rs/crate/semver") + (synopsis + "Semantic version parsing and comparison") + (description + "Semantic version parsing and comparison.") + (license (list license:expat license:asl2.0)))) + (define-public rust-semver-parser-0.9 (package (name "rust-semver-parser") @@ -3268,11 +8787,74 @@ with one of the implemented strategies.") (base32 "1p8r24hagcsrl92w5z32nfrg9040qkgqf8iwwnf7mzigpavwk5lp")))) (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-serde-derive" ,rust-serde-derive-1.0)) + #:cargo-development-inputs + (("rust-serde-derive" ,rust-serde-derive-1.0)))) (home-page "https://serde.rs") (synopsis "Generic serialization/deserialization framework") (description "This package provides a generic serialization/deserialization framework.") - (properties '((hidden? . #t))) + (license (list license:expat license:asl2.0)))) + +;; Circular dev dependency on bincode. +;; Probably not going away: https://github.com/rust-lang/cargo/issues/4242 +(define-public rust-serde-bytes-0.11 + (package + (name "rust-serde-bytes") + (version "0.11.3") + (source + (origin + (method url-fetch) + (uri (crate-uri "serde_bytes" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1bl45kf3c71xclv7wzk5525nswm4bgsnjd3s1s15f4k2a8whfnij")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-serde" ,rust-serde-1.0)) + #:cargo-development-inputs + (("rust-bincode" ,rust-bincode-1.1) + ("rust-serde-derive" ,rust-serde-derive-1.0) + ("rust-serde-test" ,rust-serde-test-1.0)))) + (home-page "https://github.com/serde-rs/bytes") + (synopsis + "Hanlde of integer arrays and vectors for Serde") + (description + "Optimized handling of @code{&[u8]} and @code{Vec<u8>} for Serde.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-serde-cbor-0.10 + (package + (name "rust-serde-cbor") + (version "0.10.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "serde_cbor" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0jcb4j637vdlqk2z38jixaqmp6f92h36r17kclv5brjay32911ii")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-byteorder" ,rust-byteorder-1.3) + ("rust-half" ,rust-half-1.3) + ("rust-serde" ,rust-serde-1.0)) + #:cargo-development-inputs + (("rust-serde-derive" ,rust-serde-derive-1.0)))) + (home-page "https://github.com/pyfisch/cbor") + (synopsis "CBOR support for serde") + (description "CBOR support for serde.") (license (list license:expat license:asl2.0)))) (define-public rust-serde-derive-1.0 @@ -3288,12 +8870,19 @@ with one of the implemented strategies.") (base32 "0bn0wz3j48248187mfmypyqnh73mq734snxxhr05vmgcl51kl4sb")))) (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-proc-macro2" ,rust-proc-macro2-1.0) + ("rust-quote" ,rust-quote-1.0) + ("rust-syn" ,rust-syn-1.0)) + #:cargo-development-inputs + (("rust-serde" ,rust-serde-1.0)))) (home-page "https://serde.rs") (synopsis "Macros 1.1 implementation of #[derive(Serialize, Deserialize)]") (description "Macros 1.1 implementation of #[derive(Serialize, Deserialize)]") - (properties '((hidden? . #t))) (license (list license:expat license:asl2.0)))) (define-public rust-serde-json-1.0 @@ -3309,13 +8898,189 @@ with one of the implemented strategies.") (base32 "1hipk84x40454mf599752mi7l08wb8qakz8vd6d3zp57d0mfnwig")))) (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-indexmap" ,rust-indexmap-1.0) + ("rust-itoa" ,rust-itoa-0.4) + ("rust-ryu" ,rust-ryu-1.0) + ("rust-serde" ,rust-serde-1.0)) + #:cargo-development-inputs + (("rust-serde-bytes" ,rust-serde-bytes-0.11) + ("rust-serde-derive" ,rust-serde-derive-1.0) + ("rust-trybuild" ,rust-trybuild-1.0)))) (home-page "https://github.com/serde-rs/json") (synopsis "A JSON serialization file format") (description "This package provides a JSON serialization file format.") - (properties '((hidden? . #t))) (license (list license:expat license:asl2.0)))) +(define-public rust-serde-test-1.0 + (package + (name "rust-serde-test") + (version "1.0.101") + (source + (origin + (method url-fetch) + (uri (crate-uri "serde_test" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0070ycbh47yhxb5vxwa15vi2wpdkw3v1m14v4mjryz1568fqkbsa")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-serde" ,rust-serde-1.0)) + #:cargo-development-inputs + (("rust-serde" ,rust-serde-1.0) + ("rust-serde-derive" ,rust-serde-derive-1.0)))) + (home-page "https://serde.rs") + (synopsis + "Token De/Serializer for testing De/Serialize implementations") + (description + "Token De/Serializer for testing De/Serialize implementations.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-serde-yaml-0.8 + (package + (name "rust-serde-yaml") + (version "0.8.9") + (source + (origin + (method url-fetch) + (uri (crate-uri "serde_yaml" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "10mmjpnshgrwij01a13679nxy1hnh5yfr0343kh0y9p5j2d8mc1q")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-dtoa" ,rust-dtoa-0.4) + ("rust-linked-hash-map" ,rust-linked-hash-map-0.5) + ("rust-serde" ,rust-serde-1.0) + ("rust-yaml-rust" ,rust-yaml-rust-0.4)) + #:cargo-development-inputs + (("rust-serde-derive" ,rust-serde-derive-1.0) + ("rust-unindent" ,rust-unindent-0.1) + ("rust-version-sync" ,rust-version-sync-0.8)))) + (home-page + "https://github.com/dtolnay/serde-yaml") + (synopsis "YAML support for Serde") + (description "YAML support for Serde.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-sha-1-0.8 + (package + (name "rust-sha-1") + (version "0.8.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "sha-1" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0s6fdy5wp3x4h2z4fcl2d9vjvrpzr87v4h49r51xcq8nm4qj35i3")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-block-buffer" ,rust-block-buffer-0.7) + ("rust-digest" ,rust-digest-0.8) + ("rust-fake-simd" ,rust-fake-simd-0.1) + ("rust-opaque-debug" ,rust-opaque-debug-0.2) + ("rust-sha1-asm" ,rust-sha1-asm-0.4)) + #:cargo-development-inputs + (("rust-digest" ,rust-digest-0.8) + ("rust-hex-literal" ,rust-hex-literal-0.2)))) + (home-page "https://github.com/RustCrypto/hashes") + (synopsis "SHA-1 hash function") + (description "SHA-1 hash function.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-sha1-0.6 + (package + (name "rust-sha1") + (version "0.6.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "sha1" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "03gs2q4m67rn2p8xcdfxhip6mpgahdwm12bnb3vh90ahv9grhy95")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-serde" ,rust-serde-1.0)) + #:cargo-development-inputs + (("rust-openssl" ,rust-openssl-0.10) + ("rust-rand" ,rust-rand-0.4) + ("rust-serde-json" ,rust-serde-json-1.0)))) + (home-page "https://github.com/mitsuhiko/rust-sha1") + (synopsis "Minimal implementation of SHA1 for Rust") + (description + "Minimal implementation of SHA1 for Rust.") + (license license:bsd-3))) + +(define-public rust-sha1-asm-0.4 + (package + (name "rust-sha1-asm") + (version "0.4.3") + (source + (origin + (method url-fetch) + (uri (crate-uri "sha1-asm" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1i1i8viy6y30mv9v5hwhg9w6b722qkyh9c6n8bn4d27jpv14pg0s")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-development-inputs + (("rust-cc" ,rust-cc-1.0)))) + (home-page "https://github.com/RustCrypto/asm-hashes") + (synopsis "Assembly implementation of SHA-1 compression function") + (description + "Assembly implementation of SHA-1 compression function.") + (license license:expat))) + +(define-public rust-shared-child-0.3 + (package + (name "rust-shared-child") + (version "0.3.4") + (source + (origin + (method url-fetch) + (uri (crate-uri "shared-child" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1lmjmr7931dr9cpalw2n7ss4i9mnl7285j2dygxflk9y80xczswc")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-libc" ,rust-libc-0.2) + ("rust-winapi" ,rust-winapi-0.3)))) + (home-page "https://github.com/oconnor663/shared_child.rs") + (synopsis "Use child processes from multiple threads") + (description + "A library for using child processes from multiple threads.") + (license license:expat))) + (define-public rust-shlex-0.1 (package (name "rust-shlex") @@ -3337,6 +9102,85 @@ words, like Python's shlex.") (license (list license:asl2.0 license:expat)))) +(define-public rust-signal-hook-0.1 + (package + (name "rust-signal-hook") + (version "0.1.9") + (source + (origin + (method url-fetch) + (uri (crate-uri "signal-hook" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0nlw1gwi58ppds5klyy8vp2ickx3majvdp1pcdz8adm4zpqmiavj")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-futures" ,rust-futures-0.1) + ("rust-libc" ,rust-libc-0.2) + ("rust-mio" ,rust-mio-0.6) + ("rust-mio-uds" ,rust-mio-uds-0.6) + ("rust-signal-hook-registry" ,rust-signal-hook-registry-1.0) + ("rust-tokio-reactor" ,rust-tokio-reactor-0.1)) + #:cargo-development-inputs + (("rust-tokio" ,rust-tokio-0.1) + ("rust-version-sync" ,rust-version-sync-0.8)))) + (home-page "https://github.com/vorner/signal-hook") + (synopsis "Unix signal handling") + (description "Unix signal handling.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-signal-hook-registry-1.0 + (package + (name "rust-signal-hook-registry") + (version "1.0.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "signal-hook-registry" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1mw5v909fn99h5qb96ma4almlik80lr1c7xbakn24rql6bx4zvfd")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-arc-swap" ,rust-arc-swap-0.3) + ("rust-libc" ,rust-libc-0.2)) + #:cargo-development-inputs + (("rust-signal-hook" ,rust-signal-hook-0.1) + ("rust-version-sync" ,rust-version-sync-0.8)))) + (home-page "https://github.com/vorner/signal-hook") + (synopsis "Backend crate for signal-hook") + (description "Backend crate for signal-hook.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-siphasher-0.2 + (package + (name "rust-siphasher") + (version "0.2.3") + (source + (origin + (method url-fetch) + (uri (crate-uri "siphasher" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1b53m53l24lyhr505lwqzrpjyq5qfnic71mynrcfvm43rybf938b")))) + (build-system cargo-build-system) + (arguments `(#:skip-build? #t)) + (home-page "https://docs.rs/siphasher") + (synopsis "SipHash functions from rust-core < 1.13") + (description + "SipHash functions from rust-core < 1.13.") + (license (list license:asl2.0 license:expat)))) + (define-public rust-slab-0.4 (package (name "rust-slab") @@ -3357,6 +9201,89 @@ data type.") (properties '((hidden? . #t))) (license license:expat))) +(define-public rust-sleef-sys-0.1 + (package + (name "rust-sleef-sys") + (version "0.1.2") + (source + (origin + (method url-fetch) + (uri (crate-uri "sleef-sys" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1881q2yc17j2m1yvh01447c93ws1mspnrj3k2nbvwbvcm8z81kkv")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-cfg-if" ,rust-cfg-if-0.1) + ("rust-libc" ,rust-libc-0.2)) + #:cargo-development-inputs + (("rust-bindgen" ,rust-bindgen-0.50) + ("rust-cmake" ,rust-cmake-0.1) + ("rust-env-logger" ,rust-env-logger-0.6)))) + (home-page "https://github.com/gnzlbg/sleef-sys") + (synopsis + "Rust FFI bindings to the SLEEF Vectorized Math Library") + (description + "Rust FFI bindings to the SLEEF Vectorized Math Library.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-slog-2.4 + (package + (name "rust-slog") + (version "2.4.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "slog" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "13jh74jlckzh5cygkhs0k4r82wnmw8ha2km829xwslhr83n2w6hy")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-erased-serde" ,rust-erased-serde-0.3)))) + (home-page "https://github.com/slog-rs/slog") + (synopsis "Structured, extensible, composable logging for Rust") + (description + "Structured, extensible, composable logging for Rust.") + (license (list license:mpl2.0 + license:expat + license:asl2.0)))) + +(define-public rust-smallvec-0.6 + (package + (name "rust-smallvec") + (version "0.6.10") + (source + (origin + (method url-fetch) + (uri (crate-uri "smallvec" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1dyl43rgzny79jjpgzi07y0ly2ggx1xwsn64csxj0j91bsf6lq5b")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-serde" ,rust-serde-1.0)) + #:cargo-development-inputs + (("rust-bincode" ,rust-bincode-1.1)))) + (home-page "https://github.com/servo/rust-smallvec") + (synopsis "Small vector optimization") + (description + "'Small vector' optimization: store up to a small number of items on the +stack.") + (license (list license:expat license:asl2.0)))) + (define-public rust-socket2-0.3 (package (name "rust-socket2") @@ -3401,6 +9328,33 @@ track of where each new file and line starts.") (license (list license:asl2.0 license:expat)))) +(define-public rust-speculate-0.1 + (package + (name "rust-speculate") + (version "0.1.2") + (source + (origin + (method url-fetch) + (uri (crate-uri "speculate" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0ph01n3fqkmnfr1wd13dqsi4znv06xy6p4h3hqqdzk81r0r5vd1w")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-proc-macro2" ,rust-proc-macro2-0.4) + ("rust-quote" ,rust-quote-1.0) + ("rust-syn" ,rust-syn-0.15) + ("rust-unicode-xid" ,rust-unicode-xid-0.1)))) + (home-page "https://github.com/utkarshkukreti/speculate.rs") + (synopsis "RSpec inspired testing framework for Rust") + (description + "An RSpec inspired minimal testing framework for Rust.") + (license license:expat))) + (define-public rust-spin-0.5 (package (name "rust-spin") @@ -3469,6 +9423,32 @@ deeply recursive algorithms that may accidentally blow the stack.") (license (list license:asl2.0 license:expat)))) +(define-public rust-stackvector-1.0 + (package + (name "rust-stackvector") + (version "1.0.6") + (source + (origin + (method url-fetch) + (uri (crate-uri "stackvector" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1bv820fhdad16islwli1g3iksk39ivf0zaqz4j1m08vq15jjaiqw")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-unreachable" ,rust-unreachable-1.0)) + #:cargo-development-inputs + (("rust-rustc-version" ,rust-rustc-version-0.2)))) + (home-page "https://github.com/Alexhuszagh/rust-stackvector") + (synopsis "Vector-like facade for stack-allocated arrays") + (description + "StackVec: vector-like facade for stack-allocated arrays.") + (license (list license:asl2.0 license:expat)))) + (define-public rust-static-assertions-0.3 (package (name "rust-static-assertions") @@ -3490,6 +9470,106 @@ are met.") (properties '((hidden? . #t))) (license (list license:expat license:asl2.0)))) +(define-public rust-stdweb-0.4 + (package + (name "rust-stdweb") + (version "0.4.17") + (source + (origin + (method url-fetch) + (uri (crate-uri "stdweb" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "094giad1v81rxxs4izf88ijc9c6w3c7cr5a7cwwr86mc22xn4hy3")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-discard" ,rust-discard-1.0) + ("rust-futures-channel-preview" ,rust-futures-channel-preview-0.3) + ("rust-futures-core-preview" ,rust-futures-core-preview-0.3) + ("rust-futures-executor-preview" ,rust-futures-executor-preview-0.3) + ("rust-futures-util-preview" ,rust-futures-util-preview-0.3) + ("rust-serde" ,rust-serde-1.0) + ("rust-serde-json" ,rust-serde-json-1.0) + ("rust-stdweb-derive" ,rust-stdweb-derive-0.5) + ("rust-stdweb-internal-macros" ,rust-stdweb-internal-macros-0.2) + ("rust-stdweb-internal-runtime" ,rust-stdweb-internal-runtime-0.1) + ("rust-wasm-bindgen" ,rust-wasm-bindgen-0.2)) + #:cargo-development-inputs + (("rust-rustc-version" ,rust-rustc-version-0.2) + ("rust-serde-derive" ,rust-serde-derive-1.0) + ("rust-serde-json" ,rust-serde-json-1.0) + ("rust-stdweb-internal-test-macro" ,rust-stdweb-internal-test-macro-0.1) + ("rust-wasm-bindgen-test" ,rust-wasm-bindgen-test-0.2)))) + (home-page "https://github.com/koute/stdweb") + (synopsis "Standard library for the client-side Web") + (description + "This package provides a standard library for the client-side +Web.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-stdweb-derive-0.5 + (package + (name "rust-stdweb-derive") + (version "0.5.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "stdweb-derive" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0c1rxx6rqcc4iic5hx320ki3vshpi8k58m5600iqzq4x2zcyn88f")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-proc-macro2" ,rust-proc-macro2-0.4) + ("rust-quote" ,rust-quote-1.0) + ("rust-serde" ,rust-serde-1.0) + ("rust-serde-derive" ,rust-serde-derive-1.0) + ("rust-syn" ,rust-syn-0.15)))) + (home-page "https://github.com/koute/stdweb") + (synopsis "Derive macros for the stdweb crate") + (description + "Derive macros for the @code{stdweb} crate.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-stdweb-internal-macros-0.2 + (package + (name "rust-stdweb-internal-macros") + (version "0.2.7") + (source + (origin + (method url-fetch) + (uri (crate-uri "stdweb-internal-macros" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1yjrmkc6sb1035avic383pa3avk2s9k3n17yjcza8yb9nw47v3z6")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-base-x" ,rust-base-x-0.2) + ("rust-proc-macro2" ,rust-proc-macro2-0.4) + ("rust-quote" ,rust-quote-1.0) + ("rust-serde" ,rust-serde-1.0) + ("rust-serde-derive" ,rust-serde-derive-1.0) + ("rust-serde-json" ,rust-serde-json-1.0) + ("rust-sha1" ,rust-sha1-0.6) + ("rust-syn" ,rust-syn-0.15)))) + (home-page "https://github.com/koute/stdweb") + (synopsis "Internal procedural macros for the stdweb crate") + (description + "Internal procedural macros for the stdweb crate.") + (license (list license:expat license:asl2.0)))) + (define-public rust-stdweb-internal-runtime-0.1 (package (name "rust-stdweb-internal-runtime") @@ -3532,6 +9612,30 @@ crate.") (license (list license:asl2.0 license:expat)))) +(define-public rust-stream-cipher-0.3 + (package + (name "rust-stream-cipher") + (version "0.3.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "stream-cipher" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1g1nd8r6pph70rzk5yyvg7a9ji7pkap9ddiqpp4v9xa9ys0bqqc8")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-blobby" ,rust-blobby-0.1) + ("rust-generic-array" ,rust-generic-array-0.13)))) + (home-page "https://github.com/RustCrypto/traits") + (synopsis "Stream cipher traits") + (description "Stream cipher traits.") + (license (list license:asl2.0 license:expat)))) + (define-public rust-streaming-stats-0.2 (package (name "rust-streaming-stats") @@ -3553,6 +9657,91 @@ crate.") (license (list license:unlicense license:expat)))) +(define-public rust-string-cache-0.7 + (package + (name "rust-string-cache") + (version "0.7.3") + (source + (origin + (method url-fetch) + (uri (crate-uri "string_cache" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "08sly9s92l0g0ai1iyj9pawl05xbwm4m8kl3zqkv2wkijw4h3mr5")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-new-debug-unreachable" + ,rust-new-debug-unreachable-1.0) + ("rust-phf-shared" ,rust-phf-shared-0.7) + ("rust-precomputed-hash" ,rust-precomputed-hash-0.1) + ("rust-serde" ,rust-serde-1.0) + ("rust-string-cache-codegen" ,rust-string-cache-codegen-0.4) + ("rust-string-cache-shared" ,rust-string-cache-shared-0.3)) + #:cargo-development-inputs + (("rust-rand" ,rust-rand-0.4)))) + (home-page "https://github.com/servo/string-cache") + (synopsis "String interning library for Rust") + (description + "This package provides a string interning library for Rust, +developed as part of the Servo project.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-string-cache-codegen-0.4 + (package + (name "rust-string-cache-codegen") + (version "0.4.2") + (source + (origin + (method url-fetch) + (uri (crate-uri "string-cache-codegen" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1npl9zq9cd16d7irksblgk7l7g6qknnzsmr12hrhky2fcpp1xshy")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-phf-generator" ,rust-phf-generator-0.7) + ("rust-phf-shared" ,rust-phf-shared-0.7) + ("rust-proc-macro2" ,rust-proc-macro2-0.4) + ("rust-quote" ,rust-quote-1.0) + ("rust-string-cache-shared" + ,rust-string-cache-shared-0.3)))) + (home-page "https://github.com/servo/string-cache") + (synopsis "Codegen library for string-cache") + (description + "This package provides a codegen library for string-cache, +developed as part of the Servo project.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-string-cache-shared-0.3 + (package + (name "rust-string-cache-shared") + (version "0.3.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "string-cache-shared" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1z7dpdix1m42x6ddshdcpjf91ml9mhvnskmiv5kd8hcpq0dlv25i")))) + (build-system cargo-build-system) + (arguments `(#:skip-build? #t)) + (home-page "https://github.com/servo/string-cache") + (synopsis "Code share between string_cache and string_cache_codegen") + (description + "Code share between string_cache and string_cache_codegen.") + (license (list license:asl2.0 license:expat)))) + (define-public rust-strsim-0.9 (package (name "rust-strsim") @@ -3607,6 +9796,64 @@ and Jaro-Winkler.") (properties '((hidden? . #t))) (license (list license:expat license:asl2.0)))) +(define-public rust-syn-0.15 + (package + (inherit rust-syn-1.0) + (name "rust-syn") + (version "0.15.44") + (source + (origin + (method url-fetch) + (uri (crate-uri "syn" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1id5g6x6zihv3j7hwrw3m1jp636bg8dpi671r7zy3jvpkavb794w")))) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-proc-macro2" ,rust-proc-macro2-0.4) + ("rust-quote" ,rust-quote-1.0) + ("rust-unicode-xid" ,rust-unicode-xid-0.2)) + #:cargo-development-inputs + (("rust-insta" ,rust-insta-0.8) + ("rust-rayon" ,rust-rayon-1.1) + ("rust-ref-cast" ,rust-ref-cast-0.2) + ("rust-regex" ,rust-regex-1.1) + ("rust-termcolor" ,rust-termcolor-1.0) + ("rust-walkdir" ,rust-walkdir-2.2)))) + (properties '()))) + +(define-public rust-synstructure-0.10 + (package + (name "rust-synstructure") + (version "0.10.2") + (source + (origin + (method url-fetch) + (uri (crate-uri "synstructure" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0grirdkgh2wl4hf9a3nbiazpgccxgq54kn52ms0xrr6njvgkwd82")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-proc-macro2" ,rust-proc-macro2-0.4) + ("rust-quote" ,rust-quote-1.0) + ("rust-syn" ,rust-syn-0.15) + ("rust-unicode-xid" ,rust-unicode-xid-0.1)) + #:cargo-development-inputs + (("rust-synstructure-test-traits" ,rust-synstructure-test-traits-0.1)))) + (home-page "https://github.com/mystor/synstructure") + (synopsis "Helper methods and macros for custom derives") + (description + "Helper methods and macros for custom derives.") + (license license:expat))) + (define-public rust-synstructure-test-traits-0.1 (package (name "rust-synstructure-test-traits") @@ -3627,6 +9874,34 @@ and Jaro-Winkler.") (properties '((hidden? . #t))) (license license:expat))) +(define-public rust-sysctl-0.4 + (package + (name "rust-sysctl") + (version "0.4.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "sysctl" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0p6bfjsw3v12nb2qsgm6r9klwb5qyh4w55zzmccv8r5aqb8g0085")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-bitflags" ,rust-bitflags-1) + ("rust-byteorder" ,rust-byteorder-1.3) + ("rust-failure" ,rust-failure-0.1) + ("rust-libc" ,rust-libc-0.2) + ("rust-walkdir" ,rust-walkdir-2.2)))) + (home-page "https://github.com/johalun/sysctl-rs") + (synopsis "Simplified interface to libc::sysctl") + (description + "Simplified interface to libc::sysctl.") + (license license:expat))) + (define-public rust-tar-0.4 (package (name "rust-tar") @@ -3687,17 +9962,78 @@ deleting all contents when it's dropped.") (base32 "1vqk7aq2l04my2r3jiyyxirnf8f90nzcvjasvrajivb85s7p7i3x")))) (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-cfg-if" ,rust-cfg-if-0.1) + ("rust-libc" ,rust-libc-0.2) + ("rust-rand" ,rust-rand-0.6) + ("rust-redox-syscall" ,rust-redox-syscall-0.1) + ("rust-remove-dir-all" ,rust-remove-dir-all-0.5) + ("rust-winapi" ,rust-winapi-0.3)))) (home-page "http://stebalien.com/projects/tempfile-rs") (synopsis "Library for managing temporary files and directories") (description "This package provides a library for managing temporary files and directories.") + (license (list license:asl2.0 + license:expat)))) + +(define-public rust-tendril-0.4 + (package + (name "rust-tendril") + (version "0.4.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "tendril" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0fsx7blrrzgca8aa2yqy8zxyi8s7amskhgkk1ml5sbaqyalyszvh")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-encoding" ,rust-encoding-0.2) + ("rust-encoding-rs" ,rust-encoding-rs-0.8) + ("rust-futf" ,rust-futf-0.1) + ("rust-mac" ,rust-mac-0.1) + ("rust-utf-8" ,rust-utf-8-0.7)) + #:cargo-development-inputs + (("rust-rand" ,rust-rand-0.4)))) + (home-page "https://github.com/servo/tendril") + (synopsis "Compact buffer/string type for zero-copy parsing") + (description + "Compact buffer/string type for zero-copy parsing.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-term-0.5 + (package + (name "rust-term") + (version "0.5.2") + (source + (origin + (method url-fetch) + (uri (crate-uri "term" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0hkgjrfisj6zjwz525639pmsvzhlc48a0h65nw87qrdp6jihdlgd")))) + (build-system cargo-build-system) + (home-page "https://github.com/Stebalien/term") + (synopsis "Terminal formatting library") + (description + "This package provides a terminal formatting library in rust.") (properties '((hidden? . #t))) (license (list license:asl2.0 license:expat)))) (define-public rust-term-0.4 (package + (inherit rust-term-0.5) (name "rust-term") (version "0.4.6") (source @@ -3707,15 +10043,7 @@ directories.") (file-name (string-append name "-" version ".crate")) (sha256 (base32 - "1wbh8ngqkqr3f6wz902yplf60bd5yapnckvrkgmzp5nffi7n8qzs")))) - (build-system cargo-build-system) - (home-page "https://github.com/Stebalien/term") - (synopsis "Terminal formatting library") - (description - "This package provides a terminal formatting library in rust.") - (properties '((hidden? . #t))) - (license (list license:asl2.0 - license:expat)))) + "1wbh8ngqkqr3f6wz902yplf60bd5yapnckvrkgmzp5nffi7n8qzs")))))) (define-public rust-termcolor-1.0 (package @@ -3730,11 +10058,14 @@ directories.") (base32 "0vjfsn1a8zvqhnrbygrz1id6yckwv1dncw3w4zj65qdx0f00kmln")))) (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-wincolor" ,rust-wincolor-1.0)))) (home-page "https://github.com/BurntSushi/termcolor") (synopsis "Library for writing colored text to a terminal") (description "This package provides a simple cross platform library for writing colored text to a terminal.") - (properties '((hidden? . #t))) (license (list license:unlicense license:expat)))) @@ -3781,6 +10112,60 @@ return values to @code{std::io::Result} to indicate success or failure.") (properties '((hidden? . #t))) (license license:expat))) +(define-public rust-test-assembler-0.1 + (package + (name "rust-test-assembler") + (version "0.1.5") + (source + (origin + (method url-fetch) + (uri (crate-uri "test-assembler" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1sdx9hk0dk3z9crm8834ysyxsi92chls8arpd0gs796kis6lik2w")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-byteorder" ,rust-byteorder-1.3)))) + (home-page "https://github.com/luser/rust-test-assembler") + (synopsis "Build complex binary streams") + (description + "This package provides a set of types for building complex binary +streams.") + (license license:expat))) + +(define-public rust-tester-0.5 + (package + (name "rust-tester") + (version "0.5.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "tester" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1xkgapz2i4j977f6kh1zp6sa5llbhy5vbnr6kfj8czsrdjr2r0ay")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-getopts" ,rust-getopts-0.2) + ("rust-libc" ,rust-libc-0.2) + ("rust-term" ,rust-term-0.4)))) + (home-page + "https://github.com/messense/rustc-test") + (synopsis + "Fork of Rust's test crate") + (description + "This package provides a fork of Rust's test crate that doesn't require +unstable language features.") + (license (list license:expat license:asl2.0)))) + (define-public rust-textwrap-0.11 (package (name "rust-textwrap") @@ -3890,6 +10275,262 @@ in Rust.") (license (list license:asl2.0 license:expat)))) +(define-public rust-tinytemplate-1.0 + (package + (name "rust-tinytemplate") + (version "1.0.2") + (source + (origin + (method url-fetch) + (uri (crate-uri "tinytemplate" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "084w41m75i95sdid1wwlnav80jsl1ggyryl4nawxvb6amigvfx25")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-serde" ,rust-serde-1.0) + ("rust-serde-json" ,rust-serde-json-1.0)) + #:cargo-development-inputs + (("rust-criterion" ,rust-criterion-0.2) + ("rust-serde-derive" ,rust-serde-derive-1.0)))) + (home-page "https://github.com/bheisler/TinyTemplate") + (synopsis "Simple, lightweight template engine") + (description + "Simple, lightweight template engine.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-tokio-0.1 + (package + (name "rust-tokio") + (version "0.1.21") + (source + (origin + (method url-fetch) + (uri (crate-uri "tokio" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "11ra8jp3fj70a2zrqmd6as7wgpwiiyzjf50gz89i8r7wpksgqbzc")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-bytes" ,rust-bytes-0.4) + ("rust-futures" ,rust-futures-0.1) + ("rust-mio" ,rust-mio-0.6) + ("rust-miow" ,rust-miow-0.3) + ("rust-num-cpus" ,rust-num-cpus-1.10) + ("rust-tokio-codec" ,rust-tokio-codec-0.1) + ("rust-tokio-current-thread" ,rust-tokio-current-thread-0.1) + ("rust-tokio-executor" ,rust-tokio-executor-0.1) + ("rust-tokio-fs" ,rust-tokio-fs-0.1) + ("rust-tokio-io" ,rust-tokio-io-0.1) + ("rust-tokio-reactor" ,rust-tokio-reactor-0.1) + ("rust-tokio-sync" ,rust-tokio-sync-0.1) + ("rust-tokio-tcp" ,rust-tokio-tcp-0.1) + ("rust-tokio-threadpool" ,rust-tokio-threadpool-0.1) + ("rust-tokio-timer" ,rust-tokio-timer-0.2) + ("rust-tokio-trace-core" ,rust-tokio-trace-core-0.2) + ("rust-tokio-udp" ,rust-tokio-udp-0.1) + ("rust-tokio-uds" ,rust-tokio-uds-0.2)) + #:cargo-development-inputs + (("rust-env-logger" ,rust-env-logger-0.6) + ("rust-flate2" ,rust-flate2-1.0) + ("rust-futures-cpupool" ,rust-futures-cpupool-0.1) + ("rust-http" ,rust-http-0.1) + ("rust-httparse" ,rust-httparse-1.3) + ("rust-libc" ,rust-libc-0.2) + ("rust-num-cpus" ,rust-num-cpus-1.10) + ("rust-serde" ,rust-serde-1.0) + ("rust-serde-derive" ,rust-serde-derive-1.0) + ("rust-serde-json" ,rust-serde-json-1.0) + ("rust-time" ,rust-time-0.1)))) + (home-page "https://tokio.rs") + (synopsis "Event-driven, non-blocking I/O platform") + (description + "An event-driven, non-blocking I/O platform for writing asynchronous I/O +backed applications.") + (license license:expat))) + +;; Cyclic dependency with tokio-io +(define-public rust-tokio-codec-0.1 + (package + (name "rust-tokio-codec") + (version "0.1.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "tokio-codec" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "17y3hi3dd0bdfkrzshx9qhwcf49xv9iynszj7iwy3w4nmz71wl2w")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-bytes" ,rust-bytes-0.4) + ("rust-futures" ,rust-futures-0.1) + ("rust-tokio-io" ,rust-tokio-io-0.1)))) + (home-page "https://tokio.rs") + (synopsis + "Utilities for encoding and decoding frames") + (description + "Utilities for encoding and decoding frames.") + (license license:expat))) + +(define-public rust-tokio-current-thread-0.1 + (package + (name "rust-tokio-current-thread") + (version "0.1.6") + (source + (origin + (method url-fetch) + (uri (crate-uri "tokio-current-thread" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0hx4c8v88kk0ih8x5s564gsgwwf8n11kryvxm72l1f7isz51fqni")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-futures" ,rust-futures-0.1) + ("rust-tokio-executor" ,rust-tokio-executor-0.1)))) + (home-page "https://github.com/tokio-rs/tokio") + (synopsis + "Manage many tasks concurrently on the current thread") + (description + "Single threaded executor which manage many tasks concurrently on +the current thread.") + (license license:expat))) + +;; Cyclic dependency with rust-tokio. +(define-public rust-tokio-executor-0.1 + (package + (name "rust-tokio-executor") + (version "0.1.7") + (source + (origin + (method url-fetch) + (uri (crate-uri "tokio-executor" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0pjmgpg58k3hf5q9w6xjljsv8xy66lf734qnfwsc0g3pq3349sl3")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-crossbeam-utils" ,rust-crossbeam-utils-0.6) + ("rust-futures" ,rust-futures-0.1)) + #:cargo-development-inputs + (("rust-tokio" ,rust-tokio-0.1)))) + (home-page "https://github.com/tokio-rs/tokio") + (synopsis "Future execution primitives") + (description "Future execution primitives.") + (license license:expat))) + +(define-public rust-tokio-fs-0.1 + (package + (name "rust-tokio-fs") + (version "0.1.6") + (source + (origin + (method url-fetch) + (uri (crate-uri "tokio-fs" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1bxp8585pi4j5g39ci2gkk99qnyilyhhila7cs8r6scdn0idrriz")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-futures" ,rust-futures-0.1) + ("rust-tokio-io" ,rust-tokio-io-0.1) + ("rust-tokio-threadpool" ,rust-tokio-threadpool-0.1)) + #:cargo-development-inputs + (("rust-rand" ,rust-rand-0.4) + ("rust-tempdir" ,rust-tempdir-0.3) + ("rust-tempfile" ,rust-tempfile-3.0) + ("rust-tokio" ,rust-tokio-0.1) + ("rust-tokio-codec" ,rust-tokio-codec-0.1) + ("rust-tokio-io" ,rust-tokio-io-0.1)))) + (home-page "https://tokio.rs") + (synopsis "Filesystem API for Tokio") + (description "Filesystem API for Tokio.") + (license license:expat))) + +;; Cyclic dependencies with tokio and tokio-current-thread +(define-public rust-tokio-io-0.1 + (package + (name "rust-tokio-io") + (version "0.1.12") + (source + (origin + (method url-fetch) + (uri (crate-uri "tokio-io" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "09jrz1hh4h1vj45qy09y7m7m8jsy1hl6g32clnky25mdim3dp42h")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-bytes" ,rust-bytes-0.4) + ("rust-futures" ,rust-futures-0.1) + ("rust-log" ,rust-log-0.4)) + #:cargo-development-inputs + (("rust-tokio-current-thread" ,rust-tokio-current-thread-0.1)))) + (home-page "https://tokio.rs") + (synopsis + "Core I/O primitives for asynchronous I/O in Rust") + (description + "Core I/O primitives for asynchronous I/O in Rust.") + (license license:expat))) + +(define-public rust-tokio-io-pool-0.1 + (package + (name "rust-tokio-io-pool") + (version "0.1.6") + (source + (origin + (method url-fetch) + (uri (crate-uri "tokio-io-pool" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "17lrjj7lcw13wchpbvr8cynmypd29h40clf9qxabh6fxva40kwm5")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-futures" ,rust-futures-0.1) + ("rust-num-cpus" ,rust-num-cpus-1.10) + ("rust-tokio" ,rust-tokio-0.1) + ("rust-tokio-executor" ,rust-tokio-executor-0.1)) + #:cargo-development-inputs + (("rust-tokio-current-thread" ,rust-tokio-current-thread-0.1)))) + (home-page "https://github.com/jonhoo/tokio-io-pool") + (synopsis "Execute short, I/O-heavy futures efficiently") + (description + "Alternative tokio thread pool for executing short, I/O-heavy +futures efficiently") + (license (list license:asl2.0 license:expat)))) + (define-public rust-tokio-mock-task-0.1 (package (name "rust-tokio-mock-task") @@ -3909,6 +10550,262 @@ in Rust.") (properties '((hidden? . #t))) (license license:expat))) +(define-public rust-tokio-reactor-0.1 + (package + (name "rust-tokio-reactor") + (version "0.1.9") + (source + (origin + (method url-fetch) + (uri (crate-uri "tokio-reactor" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1khip64cn63xvayq1db68kxcnhgw3cb449a4n2lbw4p1qzx6pwba")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-crossbeam-utils" ,rust-crossbeam-utils-0.6) + ("rust-futures" ,rust-futures-0.1) + ("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-log" ,rust-log-0.4) + ("rust-mio" ,rust-mio-0.6) + ("rust-num-cpus" ,rust-num-cpus-1.10) + ("rust-parking-lot" ,rust-parking-lot-0.7) + ("rust-slab" ,rust-slab-0.4) + ("rust-tokio-executor" ,rust-tokio-executor-0.1) + ("rust-tokio-io" ,rust-tokio-io-0.1) + ("rust-tokio-sync" ,rust-tokio-sync-0.1)) + #:cargo-development-inputs + (("rust-num-cpus" ,rust-num-cpus-1.10) + ("rust-tokio" ,rust-tokio-0.1) + ("rust-tokio-io-pool" ,rust-tokio-io-pool-0.1)))) + (home-page "https://tokio.rs") + (synopsis + "Event loop that drives Tokio I/O resources") + (description + "Event loop that drives Tokio I/O resources.") + (license license:expat))) + +(define-public rust-tokio-sync-0.1 + (package + (name "rust-tokio-sync") + (version "0.1.6") + (source + (origin + (method url-fetch) + (uri (crate-uri "tokio-sync" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1ryalh7dcmnz46xj1va8aaw3if6vd4mj87r67dqvrqhpyf7j8qi1")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-fnv" ,rust-fnv-1.0) + ("rust-futures" ,rust-futures-0.1)) + #:cargo-development-inputs + (("rust-env-logger" ,rust-env-logger-0.6) + ("rust-loom" ,rust-loom-0.1) + ("rust-tokio" ,rust-tokio-0.1) + ("rust-tokio-mock-task" ,rust-tokio-mock-task-0.1)))) + (home-page "https://tokio.rs") + (synopsis "Synchronization utilities") + (description "Synchronization utilities.") + (license license:expat))) + +(define-public rust-tokio-tcp-0.1 + (package + (name "rust-tokio-tcp") + (version "0.1.3") + (source + (origin + (method url-fetch) + (uri (crate-uri "tokio-tcp" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "06a15vg8bcd33ng3h9ldzlq7wl4jsw0p9qpy7v22ls5yah3b250x")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-bytes" ,rust-bytes-0.4) + ("rust-futures" ,rust-futures-0.1) + ("rust-iovec" ,rust-iovec-0.1) + ("rust-mio" ,rust-mio-0.6) + ("rust-tokio-io" ,rust-tokio-io-0.1) + ("rust-tokio-reactor" ,rust-tokio-reactor-0.1)) + #:cargo-development-inputs + (("rust-env-logger" ,rust-env-logger-0.6) + ("rust-tokio" ,rust-tokio-0.1)))) + (home-page "https://tokio.rs") + (synopsis "TCP bindings for tokio") + (description "TCP bindings for tokio.") + (license license:expat))) + +(define-public rust-tokio-threadpool-0.1 + (package + (name "rust-tokio-threadpool") + (version "0.1.14") + (source + (origin + (method url-fetch) + (uri (crate-uri "tokio-threadpool" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1wkj3wixicsqvllm8w74b24knw6mdn00zslm8l9fm1p81gr8lmbj")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-crossbeam-deque" ,rust-crossbeam-deque-0.7) + ("rust-crossbeam-queue" ,rust-crossbeam-queue-0.1) + ("rust-crossbeam-utils" ,rust-crossbeam-utils-0.6) + ("rust-futures" ,rust-futures-0.1) + ("rust-log" ,rust-log-0.4) + ("rust-num-cpus" ,rust-num-cpus-1.10) + ("rust-rand" ,rust-rand-0.4) + ("rust-slab" ,rust-slab-0.4) + ("rust-tokio-executor" ,rust-tokio-executor-0.1)) + #:cargo-development-inputs + (("rust-env-logger" ,rust-env-logger-0.6) + ("rust-futures-cpupool" ,rust-futures-cpupool-0.1) + ("rust-threadpool" ,rust-threadpool-1.7)))) + (home-page "https://github.com/tokio-rs/tokio") + (synopsis + "Task scheduler backed by a work-stealing thread pool") + (description + "This package provides a task scheduler backed by a work-stealing thread +pool.") + (license license:expat))) + +(define-public rust-tokio-timer-0.2 + (package + (name "rust-tokio-timer") + (version "0.2.11") + (source + (origin + (method url-fetch) + (uri (crate-uri "tokio-timer" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "03m68ainkdy3b5pf20rjyknhk2ppx35bjdc2yfj2bv80sl96h47j")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-crossbeam-utils" ,rust-crossbeam-utils-0.6) + ("rust-futures" ,rust-futures-0.1) + ("rust-slab" ,rust-slab-0.4) + ("rust-tokio-executor" ,rust-tokio-executor-0.1)) + #:cargo-development-inputs + (("rust-rand" ,rust-rand-0.4) + ("rust-tokio" ,rust-tokio-0.1) + ("rust-tokio-mock-task" ,rust-tokio-mock-task-0.1)))) + (home-page "https://github.com/tokio-rs/tokio") + (synopsis "Timer facilities for Tokio") + (description "Timer facilities for Tokio.") + (license license:expat))) + +(define-public rust-tokio-trace-core-0.2 + (package + (name "rust-tokio-trace-core") + (version "0.2.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "tokio-trace-core" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "04y6c2r4ddzk02xb3hn60s9a1w92h0g8pzmxwaspqvwmsrba5j59")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-lazy-static" ,rust-lazy-static-1.3)))) + (home-page "https://tokio.rs") + (synopsis "Core primitives for tokio-trace") + (description "Core primitives for tokio-trace.") + (license license:expat))) + +(define-public rust-tokio-udp-0.1 + (package + (name "rust-tokio-udp") + (version "0.1.3") + (source + (origin + (method url-fetch) + (uri (crate-uri "tokio-udp" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "14kfj35s465czcspayacnzlxrazfvxzhhggq1rqlljhgp1sqa9k6")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-bytes" ,rust-bytes-0.4) + ("rust-futures" ,rust-futures-0.1) + ("rust-log" ,rust-log-0.4) + ("rust-mio" ,rust-mio-0.6) + ("rust-tokio-codec" ,rust-tokio-codec-0.1) + ("rust-tokio-io" ,rust-tokio-io-0.1) + ("rust-tokio-reactor" ,rust-tokio-reactor-0.1)) + #:cargo-development-inputs + (("rust-env-logger" ,rust-env-logger-0.6)))) + (home-page "https://tokio.rs") + (synopsis "UDP bindings for tokio") + (description "UDP bindings for tokio.") + (license license:expat))) + +(define-public rust-tokio-uds-0.2 + (package + (name "rust-tokio-uds") + (version "0.2.5") + (source + (origin + (method url-fetch) + (uri (crate-uri "tokio-uds" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0i94kxma6l7iy5hd5k7nvn7v9pnyw0s54bm9mjs0lap1l0xzqzq3")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-bytes" ,rust-bytes-0.4) + ("rust-futures" ,rust-futures-0.1) + ("rust-iovec" ,rust-iovec-0.1) + ("rust-libc" ,rust-libc-0.2) + ("rust-log" ,rust-log-0.4) + ("rust-mio" ,rust-mio-0.6) + ("rust-mio-uds" ,rust-mio-uds-0.6) + ("rust-tokio-codec" ,rust-tokio-codec-0.1) + ("rust-tokio-io" ,rust-tokio-io-0.1) + ("rust-tokio-reactor" ,rust-tokio-reactor-0.1)) + #:cargo-development-inputs + (("rust-tempfile" ,rust-tempfile-3.0) + ("rust-tokio" ,rust-tokio-0.1)))) + (home-page "https://github.com/tokio-rs/tokio") + (synopsis "Unix Domain sockets for Tokio") + (description "Unix Domain sockets for Tokio.") + (license license:expat))) + (define-public rust-toml-0.5 (package (name "rust-toml") @@ -4014,6 +10911,35 @@ serializing Rust structures.") (properties '((hidden? . #t))) (license license:expat))) +(define-public rust-trybuild-1.0 + (package + (name "rust-trybuild") + (version "1.0.9") + (source + (origin + (method url-fetch) + (uri (crate-uri "trybuild" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0df6ipayif05xn61iavdb0dcshm9y6wmcd140pp7dl91mirygs7j")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-glob" ,rust-glob-0.3) + ("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-serde" ,rust-serde-1.0) + ("rust-serde-json" ,rust-serde-json-1.0) + ("rust-termcolor" ,rust-termcolor-1.0) + ("rust-toml" ,rust-toml-0.5)))) + (home-page "https://github.com/dtolnay/trybuild") + (synopsis "Test harness for ui tests of compiler diagnostics") + (description + "Test harness for ui tests of compiler diagnostics.") + (license (list license:expat license:asl2.0)))) + (define-public rust-typeable-0.1 (package (name "rust-typeable") @@ -4033,6 +10959,27 @@ serializing Rust structures.") (properties '((hidden? . #t))) (license license:expat))) +(define-public rust-typed-arena-1.4 + (package + (name "rust-typed-arena") + (version "1.4.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "typed-arena" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1i8yczhwcy0nnrxqck1lql3i7hvg95l0vw0dbgfb92zkms96mh66")))) + (build-system cargo-build-system) + (arguments `(#:skip-build? #t)) + (home-page "https://github.com/SimonSapin/rust-typed-arena") + (synopsis "The arena allocator") + (description + "The arena, a fast but limited type of allocator.") + (license license:expat))) + (define-public rust-typemap-0.3 (package (name "rust-typemap") @@ -4076,6 +11023,32 @@ implementation is incomplete.") (license (list license:asl2.0 license:expat)))) +(define-public rust-ucd-parse-0.1 + (package + (name "rust-ucd-parse") + (version "0.1.3") + (source + (origin + (method url-fetch) + (uri (crate-uri "ucd-parse" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "13mq6c85r6ak10gjlq74mzdhsi0g0vps2y73by420513gfnipm97")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-regex" ,rust-regex-1.1)))) + (home-page "https://github.com/BurntSushi/ucd-generate") + (synopsis "Parse data files in the Unicode character database") + (description + "This package provides a library for parsing data files in the +Unicode character database.") + (license (list license:asl2.0 license:expat)))) + (define-public rust-ucd-trie-0.1 (package (name "rust-ucd-trie") @@ -4118,6 +11091,27 @@ with the Unicode character database.") (license (list license:asl2.0 license:expat)))) +(define-public rust-unchecked-index-0.2 + (package + (name "rust-unchecked-index") + (version "0.2.2") + (source + (origin + (method url-fetch) + (uri (crate-uri "unchecked-index" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0p6qcai1mjayx59cpgk27d0zgw9hz9r1ira5jiqil66f4ba8dfpf")))) + (build-system cargo-build-system) + (arguments `(#:skip-build? #t)) + (home-page "https://github.com/bluss/unchecked-index") + (synopsis "Unchecked indexing wrapper using regular index syntax") + (description + "Unchecked indexing wrapper using regular index syntax.") + (license (list license:asl2.0 license:expat)))) + (define-public rust-unicase-2.4 (package (name "rust-unicase") @@ -4139,6 +11133,87 @@ with the Unicode character database.") (license (list license:asl2.0 license:expat)))) +(define-public rust-unicode-bidi-0.3 + (package + (name "rust-unicode-bidi") + (version "0.3.4") + (source + (origin + (method url-fetch) + (uri (crate-uri "unicode-bidi" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1malx8ljgm7v1gbaazkn7iicy5wj0bwcyadj3l727a38ch6bvwj9")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-flame" ,rust-flame-0.2) + ("rust-flamer" ,rust-flamer-0.3) + ("rust-matches" ,rust-matches-0.1) + ("rust-serde" ,rust-serde-1.0)) + #:cargo-development-inputs + (("rust-serde-test" ,rust-serde-test-1.0)))) + (home-page "https://github.com/servo/unicode-bidi") + (synopsis "Implementation of the Unicode Bidirectional Algorithm") + (description + "Implementation of the Unicode Bidirectional Algorithm.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-unicode-normalization-0.1 + (package + (name "rust-unicode-normalization") + (version "0.1.8") + (source + (origin + (method url-fetch) + (uri (crate-uri "unicode-normalization" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "09i49va90rvia1agvgni4gicnqv50y5zy1naw8mr8bcqifh3j4ql")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-smallvec" ,rust-smallvec-0.6)))) + (home-page "https://github.com/unicode-rs/unicode-normalization") + (synopsis + "This crate provides functions for normalization of Unicode strings") + (description + "This crate provides functions for normalization of Unicode strings, +including Canonical and Compatible Decomposition and Recomposition, as +described in Unicode Standard Annex #15.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-unicode-segmentation-1.3 + (package + (name "rust-unicode-segmentation") + (version "1.3.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "unicode-segmentation" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1a9jqg7rb1yq6w2xc9jgxcs111yk5vxm9afjfvykfnrmzk6z8rqr")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-development-inputs + (("rust-quickcheck" ,rust-quickcheck-0.8)))) + (home-page "https://github.com/unicode-rs/unicode-segmentation") + (synopsis "Grapheme Cluster, Word and Sentence boundaries") + (description + "This crate provides Grapheme Cluster, Word and Sentence +boundaries according to Unicode Standard Annex #29 rules.") + (license (list license:expat license:asl2.0)))) + (define-public rust-unicode-width-0.1 (package (name "rust-unicode-width") @@ -4279,6 +11354,124 @@ untrusted inputs in Rust.") (properties '((hidden? . #t))) (license license:isc))) +(define-public rust-url-1.7 + (package + (name "rust-url") + (version "1.7.2") + (source + (origin + (method url-fetch) + (uri (crate-uri "url" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0nim1c90mxpi9wgdw2xh8dqd72vlklwlzam436akcrhjac6pqknx")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-encoding" ,rust-encoding-0.2) + ("rust-heapsize" ,rust-heapsize-0.4) + ("rust-idna" ,rust-idna-0.1) + ("rust-matches" ,rust-matches-0.1) + ("rust-percent-encoding" ,rust-percent-encoding-1.0) + ("rust-rustc-serialize" ,rust-rustc-serialize-0.3) + ("rust-serde" ,rust-serde-1.0)) + #:cargo-development-inputs + (("rust-bencher" ,rust-bencher-0.1) + ("rust-rustc-serialize" ,rust-rustc-serialize-0.3) + ("rust-rustc-test" ,rust-rustc-test-0.3) + ("rust-serde-json" ,rust-serde-json-1.0)))) + (home-page "https://github.com/servo/rust-url") + (synopsis "URL library for Rust, based on the WHATWG URL Standard") + (description + "URL library for Rust, based on the WHATWG URL Standard.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-utf-8-0.7 + (package + (name "rust-utf-8") + (version "0.7.5") + (source + (origin + (method url-fetch) + (uri (crate-uri "utf-8" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1iw5rp4i3mfi9k51picbr5bgjqhjcmnxx7001clh5ydq31y2zr05")))) + (build-system cargo-build-system) + (arguments `(#:skip-build? #t)) + (home-page "https://github.com/SimonSapin/rust-utf8") + (synopsis + "Incremental, zero-copy UTF-8 decoding with error handling") + (description + "Incremental, zero-copy UTF-8 decoding with error handling.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-utf8-ranges-1.0 + (package + (name "rust-utf8-ranges") + (version "1.0.3") + (source + (origin + (method url-fetch) + (uri (crate-uri "utf8-ranges" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1ppzjsxmv1p1xfid8wwn07ciikk84k30frl28bwsny6za1vall4x")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-development-inputs + (("rust-doc-comment" ,rust-doc-comment-0.3) + ("rust-quickcheck" ,rust-quickcheck-0.8)))) + (home-page "https://github.com/BurntSushi/utf8-ranges") + (synopsis + "Convert ranges of Unicode codepoints to UTF-8 byte ranges") + (description + "Convert ranges of Unicode codepoints to UTF-8 byte ranges.") + (license (list license:expat license:unlicense)))) + +(define-public rust-uuid-0.7 + (package + (name "rust-uuid") + (version "0.7.4") + (source + (origin + (method url-fetch) + (uri (crate-uri "uuid" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0ank4xk20x3nrz926w8j9mz53bi3v8bykxmhlq2pffa8xc8wdnwh")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-byteorder" ,rust-byteorder-1.3) + ("rust-md5" ,rust-md5-0.6) + ("rust-rand" ,rust-rand-0.6) + ("rust-serde" ,rust-serde-1.0) + ("rust-sha1" ,rust-sha1-0.6) + ("rust-slog" ,rust-slog-2.4) + ("rust-winapi" ,rust-winapi-0.3)) + #:cargo-development-inputs + (("rust-bincode" ,rust-bincode-1.1) + ("rust-serde-derive" ,rust-serde-derive-1.0) + ("rust-serde-json" ,rust-serde-json-1.0) + ("rust-serde-test" ,rust-serde-test-1.0)))) + (home-page "https://github.com/uuid-rs/uuid") + (synopsis "Generate and parse UUIDs") + (description + "This package provides a library to generate and parse UUIDs.") + (license (list license:asl2.0 license:expat)))) + (define-public rust-vcpkg-0.2 (package (name "rust-vcpkg") @@ -4361,6 +11554,39 @@ If that fails, no determination is made, and calls return None.") (base32 "1pf91pvj8n6akh7w6j5ypka6aqz08b3qpzgs0ak2kjf4frkiljwi")))))) +(define-public rust-version-sync-0.8 + (package + (name "rust-version-sync") + (version "0.8.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "version-sync" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "01pq0ia7ak7d69c3chjgdmaaq271yrspgbzmk6wmrwb74hx3skw4")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-itertools" ,rust-itertools-0.8) + ("rust-proc-macro2" ,rust-proc-macro2-0.4) + ("rust-pulldown-cmark" ,rust-pulldown-cmark-0.4) + ("rust-regex" ,rust-regex-1.1) + ("rust-semver-parser" ,rust-semver-parser-0.9) + ("rust-syn" ,rust-syn-0.15) + ("rust-toml" ,rust-toml-0.5) + ("rust-url" ,rust-url-1.7)))) + (home-page "https://github.com/mgeisler/version-sync") + (synopsis + "Ensure that version numbers are updated when the crate version changes") + (description + "Simple crate for ensuring that version numbers in README files are +updated when the crate version changes.") + (license license:expat))) + (define-public rust-void-1.0 (package (name "rust-void") @@ -4381,6 +11607,30 @@ If that fails, no determination is made, and calls return None.") (properties '((hidden? . #t))) (license license:expat))) +(define-public rust-wait-timeout-0.2 + (package + (name "rust-wait-timeout") + (version "0.2.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "wait-timeout" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1xpkk0j5l9pfmjfh1pi0i89invlavfrd9av5xp0zhxgb29dhy84z")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs (("rust-libc" ,rust-libc-0.2)))) + (home-page "https://github.com/alexcrichton/wait-timeout") + (synopsis "Wait on a child process with a timeout") + (description + "This package provides a crate to wait on a child process with a timeout +specified across Unix and Windows platforms.") + (license (list license:expat license:asl2.0)))) + (define-public rust-walkdir-2.2 (package (name "rust-walkdir") @@ -4422,6 +11672,155 @@ in Rust.") (properties '((hidden? . #t))) (license license:asl2.0))) +(define-public rust-wasm-bindgen-0.2 + (package + (name "rust-wasm-bindgen") + (version "0.2.48") + (source + (origin + (method url-fetch) + (uri (crate-uri "wasm-bindgen" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0m8vq3jkhz04fn3wjvb7ii7xql60w32nlvr10jcskcbbh2hpzsad")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-serde" ,rust-serde-1.0) + ("rust-serde-json" ,rust-serde-json-1.0) + ("rust-wasm-bindgen-macro" + ,rust-wasm-bindgen-macro-0.2)))) + (home-page "https://rustwasm.github.io/") + (synopsis "Easy support for interacting between JS and Rust") + (description + "Easy support for interacting between JS and Rust.") + (license (list license:asl2.0 license:expat)))) + +(define-public rust-wasm-bindgen-backend-0.2 + (package + (name "rust-wasm-bindgen-backend") + (version "0.2.48") + (source + (origin + (method url-fetch) + (uri (crate-uri "wasm-bindgen-backend" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1qxqkbjkjg4pphhcr91nk95c0gizx77dyq24mmijqnwzxxqc30jx")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-bumpalo" ,rust-bumpalo-2.5) + ("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-log" ,rust-log-0.4) + ("rust-proc-macro2" ,rust-proc-macro2-0.4) + ("rust-quote" ,rust-quote-1.0) + ("rust-syn" ,rust-syn-0.15) + ("rust-wasm-bindgen-shared" ,rust-wasm-bindgen-shared-0.2)))) + (home-page "https://rustwasm.github.io/wasm-bindgen/") + (synopsis "Backend code generation of the wasm-bindgen tool") + (description + "Backend code generation of the wasm-bindgen tool.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-wasm-bindgen-futures-0.3 + (package + (name "rust-wasm-bindgen-futures") + (version "0.3.24") + (source + (origin + (method url-fetch) + (uri (crate-uri "wasm-bindgen-futures" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0bf9x6qfjczspc4zs605z1n4j15cdd8kk2z7rah0yggw8b6zl5nc")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-futures" ,rust-futures-0.1) + ("rust-futures-channel-preview" + ,rust-futures-channel-preview-0.3) + ("rust-futures-util-preview" ,rust-futures-util-preview-0.3) + ("rust-js-sys" ,rust-js-sys-0.3) + ("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-wasm-bindgen" ,rust-wasm-bindgen-0.2)) + #:cargo-development-inputs + (("rust-wasm-bindgen-test" ,rust-wasm-bindgen-test-0.2)))) + (home-page "https://rustwasm.github.io/wasm-bindgen/") + (synopsis + "Bridging the gap between Rust Futures and JavaScript Promises") + (description + "Bridging the gap between Rust Futures and JavaScript Promises.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-wasm-bindgen-macro-0.2 + (package + (name "rust-wasm-bindgen-macro") + (version "0.2.48") + (source + (origin + (method url-fetch) + (uri (crate-uri "wasm-bindgen-macro" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "07fqzzlbncccmnxbbkg9v4n53qc1lps5g0bb9wq3i9zp9gvm0zgh")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-quote" ,rust-quote-1.0) + ("rust-wasm-bindgen-macro-support" + ,rust-wasm-bindgen-macro-support-0.2)) + #:cargo-development-inputs + (("rust-trybuild" ,rust-trybuild-1.0) + ("rust-wasm-bindgen" ,rust-wasm-bindgen-0.2)))) + (home-page "https://rustwasm.github.io/wasm-bindgen/") + (synopsis "Definition of the @code{#[wasm_bindgen]} attribute") + (description + "Definition of the @code{#[wasm_bindgen]} attribute, an internal +dependency.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-wasm-bindgen-macro-support-0.2 + (package + (name "rust-wasm-bindgen-macro-support") + (version "0.2.48") + (source + (origin + (method url-fetch) + (uri (crate-uri "wasm-bindgen-macro-support" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1mxi6rj11k67sks88pfqiqylnijxmb1s0gcgpj8mzfj5gvkqzkwm")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-proc-macro2" ,rust-proc-macro2-0.4) + ("rust-quote" ,rust-quote-1.0) + ("rust-syn" ,rust-syn-0.15) + ("rust-wasm-bindgen-backend" ,rust-wasm-bindgen-backend-0.2) + ("rust-wasm-bindgen-shared" ,rust-wasm-bindgen-shared-0.2)))) + (home-page "https://rustwasm.github.io/wasm-bindgen/") + (synopsis "The @code{#[wasm_bindgen]} macro") + (description + "The part of the implementation of the @code{#[wasm_bindgen]} +attribute that is not in the shared backend crate.") + (license (list license:asl2.0 license:expat)))) + (define-public rust-wasm-bindgen-shared-0.2 (package (name "rust-wasm-bindgen-shared") @@ -4435,14 +11834,44 @@ in Rust.") (base32 "08rnfhjyk0f6liv8n4rdsvhx7r02glkhcbj2lp9lcbkbfpad9hnr")))) (build-system cargo-build-system) + (arguments '(#:skip-build? #t)) (home-page "https://rustwasm.github.io/wasm-bindgen/") (synopsis "Shared support between wasm-bindgen and wasm-bindgen cli") (description "This package provides shared support between @code{wasm-bindgen} and @code{wasm-bindgen} cli, an internal dependency.") - (properties '((hidden? . #t))) (license (list license:asl2.0 license:expat)))) +(define-public rust-wasm-bindgen-test-0.2 + (package + (name "rust-wasm-bindgen-test") + (version "0.2.48") + (source + (origin + (method url-fetch) + (uri (crate-uri "wasm-bindgen-test" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0gwslc2sfkghzzb3r0gvd8i5rig2nlqgpl1rn43y2w4mr1ci494k")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-console-error-panic-hook" ,rust-console-error-panic-hook-0.1) + ("rust-futures" ,rust-futures-0.1) + ("rust-js-sys" ,rust-js-sys-0.3) + ("rust-scoped-tls" ,rust-scoped-tls-1.0) + ("rust-wasm-bindgen" ,rust-wasm-bindgen-0.2) + ("rust-wasm-bindgen-futures" ,rust-wasm-bindgen-futures-0.3) + ("rust-wasm-bindgen-test-macro" ,rust-wasm-bindgen-test-macro-0.2)))) + (home-page "https://github.com/rustwasm/wasm-bindgen") + (synopsis "Internal testing crate for wasm-bindgen") + (description + "Internal testing crate for wasm-bindgen.") + (license (list license:expat license:asl2.0)))) + (define-public rust-wasm-bindgen-test-macro-0.2 (package (name "rust-wasm-bindgen-test-macro") @@ -4456,14 +11885,46 @@ in Rust.") (base32 "0n28mr6vncf1k1qr2b5bvfxq4jvqkjdzq0z0ab6w2f5d6v8q3q3l")))) (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-proc-macro2" ,rust-proc-macro2-0.4) + ("rust-quote" ,rust-quote-0.6)))) (home-page "https://github.com/rustwasm/wasm-bindgen") (synopsis "Internal testing macro for wasm-bindgen") (description "This library contains the internal testing macro for wasm-bindgen.") - (properties '((hidden? . #t))) (license (list license:asl2.0 license:expat)))) +(define-public rust-which-2.0 + (package + (name "rust-which") + (version "2.0.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "which" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0r7i793sc0xqnd2fxnqbksj7j1kx65bwn81b8z49750v4c8cnymm")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-failure" ,rust-failure-0.1) + ("rust-libc" ,rust-libc-0.2)) + #:cargo-development-inputs + (("rust-tempdir" ,rust-tempdir-0.3)))) + (home-page "https://github.com/harryfei/which-rs") + (synopsis "Rust equivalent of Unix command \"which\"") + (description + "This package provides a Rust equivalent of Unix command \"which\". +Locate installed execuable in cross platforms.") + (license license:expat))) + (define-public rust-widestring-0.4 (package (name "rust-widestring") @@ -4477,13 +11938,16 @@ in Rust.") (base32 "1dhx6dndjsz1y7c9w06922412kdxyrrkqblvggm76mh8z17hxz7g")))) (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-development-inputs + (("rust-winapi" ,rust-winapi-0.3)))) (home-page "https://github.com/starkat99/widestring-rs") (synopsis "Wide string Rust FFI library") (description "A wide string Rust FFI library for converting to and from wide strings, such as those often used in Windows API or other FFI libraries. Both UTF-16 and UTF-32 types are provided, including support for malformed encoding.") - (properties '((hidden? . #t))) (license (list license:asl2.0 license:expat)))) @@ -4502,14 +11966,14 @@ UTF-32 types are provided, including support for malformed encoding.") (build-system cargo-build-system) ;; This package depends unconditionally on these two crates. (arguments - `(#:cargo-inputs + `(#:skip-build? #t + #:cargo-inputs (("winapi-i686-pc-windows-gnu" ,rust-winapi-i686-pc-windows-gnu-0.4) ("winapi-x86-64-pc-windows-gnu" ,rust-winapi-x86-64-pc-windows-gnu-0.4)))) (home-page "https://github.com/retep998/winapi-rs") (synopsis "Raw FFI bindings for all of Windows API.") (description "Raw FFI bindings for all of Windows API.") - (properties '((hidden? . #t))) (license (list license:asl2.0 license:expat)))) @@ -4526,7 +11990,7 @@ UTF-32 types are provided, including support for malformed encoding.") (sha256 (base32 "0yh816lh6lf56dpsgxy189c2ai1z3j8mw9si6izqb6wsjkbcjz8n")))) - (arguments '()))) + (arguments '(#:skip-build? #t)))) (define-public rust-winapi-build-0.1 (package @@ -4541,11 +12005,11 @@ UTF-32 types are provided, including support for malformed encoding.") (base32 "1g4rqsgjky0a7530qajn2bbfcrl2v0zb39idgdws9b1l7gp5wc9d")))) (build-system cargo-build-system) + (arguments '(#:skip-build? #t)) (home-page "https://github.com/retep998/winapi-rs") (synopsis "Common code for build.rs in WinAPI -sys crates") (description "Common code for build.rs in WinAPI -sys crates.") - (properties '((hidden? . #t))) (license license:expat))) (define-public rust-winapi-i686-pc-windows-gnu-0.4 @@ -4583,12 +12047,14 @@ i686-pc-windows-gnu target. Please don't use this crate directly, depend on (base32 "1j839dc6y8vszvrsb7yk0qvs0w6asnahxzbyans37vnsw6vbls3i")))) (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs (("rust-winapi" ,rust-winapi-0.3)))) (home-page "https://github.com/BurntSushi/winapi-util") (synopsis "Dumping ground for high level safe wrappers over winapi") (description "This package provides a dumping ground for high level safe wrappers over winapi.") - (properties '((hidden? . #t))) (license (list license:unlicense license:expat)))) @@ -4627,12 +12093,16 @@ x86_64-pc-windows-gnu target. Please don't use this crate directly, depend on (base32 "1agaf3hcav113i86912ajnw6jxcy4rvkrgyf8gdj8kc031mh3xcn")))) (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-winapi" ,rust-winapi-0.3) + ("rust-winapi-util" ,rust-winapi-util-0.1)))) (home-page "https://github.com/BurntSushi/termcolor/tree/master/wincolor") (synopsis "Windows API for controlling text color in a Windows console") (description "This package provides a simple Windows specific API for controlling text color in a Windows console.") - (properties '((hidden? . #t))) (license (list license:unlicense license:expat)))) @@ -4648,12 +12118,15 @@ color in a Windows console.") (sha256 (base32 "0vkyl3fbbf05n5ph5yz8sfaccrk9x3qsr25560w6w68ldf5i7bvx")))) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-winapi" ,rust-winapi-0.3)))) (build-system cargo-build-system) (home-page "https://bitbucket.org/DaveLancaster/winutil") (synopsis "Library wrapping a handful of useful winapi functions") (description "A simple library wrapping a handful of useful winapi functions.") - (properties '((hidden? . #t))) (license license:expat))) (define-public rust-ws2-32-sys-0.2 @@ -4669,11 +12142,16 @@ color in a Windows console.") (base32 "0ppscg5qfqaw0gzwv2a4nhn5bn01ff9iwn6ysqnzm4n8s3myz76m")))) (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-winapi" ,rust-winapi-0.2)) + #:cargo-development-inputs + (("rust-winapi-build" ,rust-winapi-build-0.1)))) (home-page "https://github.com/retep998/winapi-rs") (synopsis "Function definitions for the Windows API library ws2_32") (description "Contains function definitions for the Windows API library ws2_32.") - (properties '((hidden? . #t))) (license license:expat))) (define-public rust-xattr-0.2 @@ -4719,3 +12197,29 @@ to XDG Base Directory specification") (properties '((hidden? . #t))) (license (list license:asl2.0 license:expat)))) + +(define-public rust-yaml-rust-0.4 + (package + (name "rust-yaml-rust") + (version "0.4.3") + (source + (origin + (method url-fetch) + (uri (crate-uri "yaml-rust" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0ka3qhqc5lvk3hz14wmsj32jhmh44blcbfrx5hfxli2gg38kv4k5")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-linked-hash-map" ,rust-linked-hash-map-0.5)) + #:cargo-development-inputs + (("rust-quickcheck" ,rust-quickcheck-0.8)))) + (home-page "http://chyh1990.github.io/yaml-rust/") + (synopsis "The missing YAML 1.2 parser for rust") + (description + "The missing YAML 1.2 parser for rust.") + (license (list license:asl2.0 license:expat)))) diff --git a/gnu/packages/crypto.scm b/gnu/packages/crypto.scm index 91fbe6a8e4..2785f386fe 100644 --- a/gnu/packages/crypto.scm +++ b/gnu/packages/crypto.scm @@ -633,6 +633,16 @@ data on your platform, so the seed itself will be as random as possible. (lambda _ ;; By default, only the static library is built. (invoke "make" "shared"))) + (add-after 'install 'install-shared-library-links + ;; By default, only .so and .so.x.y.z are installed. + ;; Create all the ‘intermediates’ expected by dependent packages. + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (lib (string-append out "/lib"))) + (with-directory-excursion lib + (symlink "libcryptopp.so.8.0.0" "libcryptopp.so.8.0") + (symlink "libcryptopp.so.8.0.0" "libcryptopp.so.8") + #t)))) (add-after 'install 'install-pkg-config (lambda* (#:key outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) diff --git a/gnu/packages/cups.scm b/gnu/packages/cups.scm index 0f048bb682..0adca9addb 100644 --- a/gnu/packages/cups.scm +++ b/gnu/packages/cups.scm @@ -58,7 +58,7 @@ (define-public cups-filters (package (name "cups-filters") - (version "1.25.11") + (version "1.25.13") (source(origin (method url-fetch) (uri @@ -66,7 +66,7 @@ "cups-filters-" version ".tar.xz")) (sha256 (base32 - "0ni8krr4rf5833livn9401cd41gspjvxj0iiqnc1rfg3x90i0fxh")) + "1z3b7p6pp6yzvzl2nip9q0gn4fr5k9qwpnnhqqkiaaf3b1nfswjj")) (modules '((guix build utils))) (snippet ;; install backends, banners and filters to cups-filters output @@ -537,6 +537,13 @@ should only be used as part of the Guix cups-pk-helper service.") "/lib/systemd/system")) (("/etc/sane.d") (string-append out "/etc/sane.d")))))) + (add-after 'install 'install-models-dat + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (models-dir (string-append out + "/share/hplip/data/models"))) + (install-file "data/models/models.dat" models-dir)) + #t)) (add-after 'install 'wrap-binaries ;; Scripts in /bin are all symlinks to .py files in /share/hplip. ;; Symlinks are immune to the Python build system's 'WRAP phase, diff --git a/gnu/packages/databases.scm b/gnu/packages/databases.scm index 73b7dc7d3a..ca15c77026 100644 --- a/gnu/packages/databases.scm +++ b/gnu/packages/databases.scm @@ -10,7 +10,7 @@ ;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr> ;;; Copyright © 2016 Hartmut Goebel <h.goebel@crazy-compilers.com> ;;; Copyright © 2016 Christopher Allan Webber <cwebber@dustycloud.org> -;;; Copyright © 2015, 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il> +;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016, 2017 ng0 <ng0@n0.is> ;;; Copyright © 2016, 2017, 2018 Roel Janssen <roel@gnu.org> ;;; Copyright © 2016 David Craven <david@craven.ch> @@ -687,7 +687,7 @@ Language.") (define-public mariadb (package (name "mariadb") - (version "10.1.41") + (version "10.1.43") (source (origin (method url-fetch) (uri (string-append "https://downloads.mariadb.com/MariaDB" @@ -695,7 +695,7 @@ Language.") version ".tar.gz")) (sha256 (base32 - "1wh0073lqw3d9xs150bf2q3qvjwa6886mfi9khmsn7p8vapw6irb")) + "1pxyq37q4p7515by7k8hs3l3css68f3bm3akx99vw4m1rxwwbm63")) (patches (search-patches "mariadb-client-test-32bit.patch")) (modules '((guix build utils))) (snippet @@ -816,6 +816,12 @@ Language.") disabled-tests) (close-port unstable-tests) + ;; XXX: This test fails because it expects a latin1 charset and + ;; collation. See <https://jira.mariadb.org/browse/MDEV-21264>. + (substitute* "mysql-test/r/gis_notembedded.result" + (("latin1_swedish_ci") "utf8_general_ci") + (("\tlatin1") "\tutf8")) + (substitute* "mysql-test/mysql-test-run.pl" (("/bin/ls") (which "ls")) (("/bin/sh") (which "sh"))) @@ -846,10 +852,11 @@ Language.") #t)) (add-after 'install 'post-install - (lambda* (#:key outputs #:allow-other-keys) + (lambda* (#:key inputs outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (dev (assoc-ref outputs "dev")) - (lib (assoc-ref outputs "lib"))) + (lib (assoc-ref outputs "lib")) + (openssl (assoc-ref inputs "openssl"))) (substitute* (string-append out "/bin/mysql_install_db") (("basedir=\"\"") (string-append "basedir=\"" out "\""))) @@ -871,6 +878,14 @@ Language.") (string-append dev "/share/pkgconfig")) (rename-file (string-append out "/bin/mysql_config") (string-append dev "/bin/mysql_config")) + + ;; Embed an absolute reference to OpenSSL in mysql_config + ;; and the pkg-config file to avoid propagation. + (substitute* (list (string-append dev "/bin/mysql_config") + (string-append dev "/share/pkgconfig/mariadb.pc")) + (("-lssl -lcrypto" all) + (string-append "-L" openssl "/lib " all))) + #t)))))) (native-inputs `(("bison" ,bison) @@ -884,12 +899,11 @@ Language.") ("libaio" ,libaio) ("libxml2" ,libxml2) ("ncurses" ,ncurses) + ("openssl" ,openssl-1.0) + ("pam" ,linux-pam) ("pcre" ,pcre) ("xz" ,xz) ("zlib" ,zlib))) - (propagated-inputs - ;; mariadb.pc says -lssl -lcrypto, so propagate it. - `(("openssl" ,openssl-1.0))) ;; The test suite is very resource intensive and can take more than three ;; hours on a x86_64 system. Give slow and busy machines some leeway. (properties '((timeout . 64800))) ;18 hours @@ -931,14 +945,14 @@ as a drop-in replacement of MySQL.") (define-public postgresql (package (name "postgresql") - (version "10.10") + (version "10.11") (source (origin (method url-fetch) (uri (string-append "https://ftp.postgresql.org/pub/source/v" version "/postgresql-" version ".tar.bz2")) (sha256 (base32 - "0lzj46dwd9cw94gnqm36bxd7jlhfdyqjrfzr3c4xd3prfn2rnkxd")) + "02fcmvbh0mhplj3s2jd24s642ysx7bggnf0h8bs5amh7dgzi8p8d")) (patches (search-patches "postgresql-disable-resolve_symlinks.patch")))) (build-system gnu-build-system) (arguments @@ -1114,7 +1128,7 @@ including field and record folding."))) (define-public rocksdb (package (name "rocksdb") - (version "5.18.3") + (version "6.5.2") (source (origin (method git-fetch) (uri (git-reference @@ -1123,7 +1137,7 @@ including field and record folding."))) (file-name (git-file-name name version)) (sha256 (base32 - "1v2slmmr1dsgf8z0qcfg1y9x1al96859rg48b66p9nsawczd5zv9")) + "01f5lcrcr809jhkkvxhv743hwpcxszj4r30hy9qy1i0mvjky02vf")) (modules '((guix build utils))) (snippet '(begin @@ -2626,17 +2640,18 @@ PickleShare.") (define-public python-apsw (package (name "python-apsw") - (version "3.20.1-r1") + (version "3.28.0-r1") (source (origin (method url-fetch) - (uri (string-append "https://github.com/rogerbinns/apsw/archive/" - version ".tar.gz")) - (file-name (string-append "apsw-" version ".tar.gz")) + (uri (string-append "https://github.com/rogerbinns/apsw/releases" + "/download/" version "/apsw-" version ".zip")) (sha256 (base32 - "00ai7m2pqi26qaflhz314d8k5i3syw7xzr145fhfl0crhyh6adz2")))) + "0x62534l5hcgwrc4k2gxpdzc1sxlhm6m4nwlay74rnmr77qh8wly")))) (build-system python-build-system) + (native-inputs + `(("unzip" ,unzip))) (inputs `(("sqlite" ,sqlite))) (arguments @@ -2651,8 +2666,7 @@ PickleShare.") (invoke "gcc" "-fPIC" "-shared" "-o" "./testextension.sqlext" "-I." "-Isqlite3" "src/testextension.c") #t)) - (delete 'check) - (add-after 'install 'check + (replace 'check (lambda* (#:key inputs outputs #:allow-other-keys) (add-installed-pythonpath inputs outputs) (invoke "python" "setup.py" "test") diff --git a/gnu/packages/disk.scm b/gnu/packages/disk.scm index 1a6a7c40f6..d2e1afdbce 100644 --- a/gnu/packages/disk.scm +++ b/gnu/packages/disk.scm @@ -2,7 +2,7 @@ ;;; Copyright © 2012, 2013 Nikita Karetnikov <nikita@karetnikov.org> ;;; Copyright © 2015 Mathieu Lirzin <mthl@gnu.org> ;;; Copyright © 2015 Mark H Weaver <mhw@netris.org> -;;; Copyright © 2016, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2016, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2016, 2019 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2016 Roel Janssen <roel@gnu.org> @@ -524,14 +524,14 @@ Duperemove can also take input from the @command{fdupes} program.") (define-public ranger (package (name "ranger") - (version "1.9.2") + (version "1.9.3") (source (origin (method url-fetch) (uri (string-append "https://ranger.github.io/" "ranger-" version ".tar.gz")) (sha256 (base32 - "12kbsqakbxs09y0x8hy66mmaf72rk0p850x7ryk2ghkq7wfin78f")))) + "0lfjrpv3z4h0knd3v94fijrw2zjba51mrp3mjqx2c98wr428l26f")))) (build-system python-build-system) (inputs `(("w3m" ,w3m))) diff --git a/gnu/packages/electronics.scm b/gnu/packages/electronics.scm index 8bee8354e4..77b383d69c 100644 --- a/gnu/packages/electronics.scm +++ b/gnu/packages/electronics.scm @@ -1,6 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2017 Theodoros Foradis <theodoros@foradis.org> -;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2019 Clément Lassieur <clement@lassieur.org> ;;; ;;; This file is part of GNU Guix. @@ -64,7 +64,7 @@ to take care of the OS-specific details when writing software that uses serial p (define-public libsigrokdecode (package (name "libsigrokdecode") - (version "0.5.2") + (version "0.5.3") (source (origin (method url-fetch) (uri (string-append @@ -72,7 +72,7 @@ to take care of the OS-specific details when writing software that uses serial p version ".tar.gz")) (sha256 (base32 - "1w434nl1syjkvwl08lji3r9sr60lbxp1nqys8hqwzv2lgiwrx3g0")))) + "1h1zi1kpsgf6j2z8j8hjpv1q7n49i3fhqjn8i178rka3cym18265")))) (outputs '("out" "doc")) (arguments `(#:phases @@ -106,7 +106,7 @@ to take care of the OS-specific details when writing software that uses serial p (define-public sigrok-firmware-fx2lafw (package (name "sigrok-firmware-fx2lafw") - (version "0.1.6") + (version "0.1.7") (source (origin (method url-fetch) (uri (string-append @@ -114,7 +114,7 @@ to take care of the OS-specific details when writing software that uses serial p "sigrok-firmware-fx2lafw-" version ".tar.gz")) (sha256 (base32 - "18x5zj3xbcylvb651dia6n4zxbdnv0j62r5af60d0l2g68knkjg4")))) + "0fyfd82mvrcf55v5a3afq1mh1kfswk4c37qrbln6x92jm3b41x53")))) (arguments `(#:implicit-inputs? #f)) (native-inputs @@ -137,7 +137,7 @@ as simple logic analyzer and/or oscilloscope hardware.") (define-public libsigrok (package (name "libsigrok") - (version "0.5.1") + (version "0.5.2") (source (origin (method url-fetch) (uri (string-append @@ -145,7 +145,7 @@ as simple logic analyzer and/or oscilloscope hardware.") version ".tar.gz")) (sha256 (base32 - "171b553dir5gn6w4f7n37waqk62nq2kf1jykx4ifjacdz5xdw3z4")))) + "0g6fl684bpqm5p2z4j12c62m45j1dircznjina63w392ns81yd2d")))) (outputs '("out" "doc")) (arguments `(#:tests? #f ; tests need USB access diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm index c591a608eb..292a494a1d 100644 --- a/gnu/packages/emacs-xyz.scm +++ b/gnu/packages/emacs-xyz.scm @@ -14,7 +14,7 @@ ;;; Copyright © 2016, 2017 Roel Janssen <roel@gnu.org> ;;; Copyright © 2016, 2017 ng0 <ng0@n0.is> ;;; Copyright © 2016, 2019 Alex Griffin <a@ajgrf.com> -;;; Copyright © 2016, 2017, 2018, 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr> +;;; Copyright © 2016, 2017, 2018, 2019, 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; Copyright © 2016, 2017, 2018 Alex Vong <alexvong1995@gmail.com> ;;; Copyright © 2016, 2017, 2018, 2019 Arun Isaac <arunisaac@systemreboot.net> ;;; Copyright © 2017 Christopher Baines <mail@cbaines.net> @@ -26,10 +26,10 @@ ;;; Copyright © 2017 George Clemmer <myglc2@gmail.com> ;;; Copyright © 2017, 2018 Feng Shu <tumashu@163.com> ;;; Copyright © 2017 Jan Nieuwenhuizen <janneke@gnu.org> -;;; Copyright © 2017, 2018, 2019 Oleg Pykhalov <go.wigust@gmail.com> +;;; Copyright © 2017, 2018, 2019, 2020 Oleg Pykhalov <go.wigust@gmail.com> ;;; Copyright © 2017 Mekeor Melire <mekeor.melire@gmail.com> ;;; Copyright © 2017 Peter Mikkelsen <petermikkelsen10@gmail.com> -;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017 Mike Gerwitz <mtg@gnu.org> ;;; Copyright © 2017, 2018, 2019 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2018 Sohom Bhattacharjee <soham.bhattacharjee15@gmail.com> @@ -41,7 +41,7 @@ ;;; Copyright © 2018 Alex Branham <alex.branham@gmail.com> ;;; Copyright © 2018 Thorsten Wilms <t_w_@freenet.de> ;;; Copyright © 2018, 2019 Pierre Langlois <pierre.langlois@gmx.com> -;;; Copyright © 2018, 2019 Brett Gilio <brettg@gnu.org> +;;; Copyright © 2018, 2019, 2020 Brett Gilio <brettg@gnu.org> ;;; Copyright © 2019 Dimakakos Dimos <bendersteed@teknik.io> ;;; Copyright © 2019 Brian Leung <bkleung89@gmail.com> ;;; Copyright © 2019 mikadoZero <mikadozero@yandex.com> @@ -57,6 +57,7 @@ ;;; Copyright © 2019 Stephen Webber <montokapro@gmail.com> ;;; Copyright © 2019 Leo Prikler <leo.prikler@student.tugraz.at> ;;; Copyright © 2019 David Wilson <david@daviwil.com> +;;; Copyright © 2020 Paul Garlick <pgarlick@tourbillion-technology.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -103,6 +104,7 @@ #:use-module (gnu packages ncurses) #:use-module (gnu packages python) #:use-module (gnu packages python-xyz) + #:use-module (gnu packages telephony) #:use-module (gnu packages tex) #:use-module (gnu packages texinfo) #:use-module (gnu packages tcl) @@ -2292,7 +2294,7 @@ in the center.") (define-public emacs-undo-tree (package (name "emacs-undo-tree") - (version "0.6.6") + (version "0.7.1") (source (origin (method git-fetch) (uri (git-reference @@ -2301,7 +2303,7 @@ in the center.") (file-name (git-file-name name version)) (sha256 (base32 - "1hnh2mnmw179gr094r561w6cw1haid0lpvpqvkc24wpj82vphzpa")))) + "1nr0149y2nvrxj56gc12jqnfl01g6z9ypfsgl6pfg85cw73hnggk")))) (build-system emacs-build-system) (home-page "http://www.dr-qubit.org/emacs.php") (synopsis "Treat undo history as a tree") @@ -3673,6 +3675,35 @@ front-ends. Company comes with many back-ends, e.g. @code{company-elisp}. These are distributed in separate files and can be used individually.") (license license:gpl3+))) +(define-public emacs-company-posframe + (let ((version "0.1.0") + (revision "1") + (commit "67d899502384fb9ab2870aba0af41523dea7b64f")) + (package + (name "emacs-company-posframe") + (version (git-version version revision commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/tumashu/company-posframe.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "051smlvz1siwglsd9k9l0m20mygrx4niflmyshha0064287aysxr")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-company" ,emacs-company) + ("emacs-posframe" ,emacs-posframe))) + (home-page "https://github.com/tumashu/company-posframe") + (synopsis "Use a posframe for @code{emacs-company}'s candidate menu") + (description + "Allows @code{emacs-company} to use child frames for its candidate menus. + +@code{emacs-company-posframe} is fast enough for daily use and supports CJK +languages.") + (license license:gpl3+)))) + (define-public emacs-irony-mode (package (name "emacs-irony-mode") @@ -5322,7 +5353,7 @@ parallel.") (define-public emacs-request (package (name "emacs-request") - (version "0.3.1") + (version "0.3.2") (source (origin (method git-fetch) (uri (git-reference @@ -5331,8 +5362,10 @@ parallel.") (file-name (git-file-name name version)) (sha256 (base32 - "0fhhd349l4iqkrjxqzpckfk2w45x2g4cccpm1dqzv9m49md1wphx")))) + "1djywhvvb6kwdj0nd3axjvb7k2g06dzkc6hsf29w9rsk96vr8ryl")))) (build-system emacs-build-system) + (arguments + `(#:tests? #f)) ; requires network access. (propagated-inputs `(("emacs-deferred" ,emacs-deferred))) (home-page "https://github.com/tkf/emacs-request") @@ -6539,7 +6572,7 @@ functions to assist in reviewing changes on files.") (define-public emacs-pyvenv (package (name "emacs-pyvenv") - (version "1.20") + (version "1.21") (source (origin (method git-fetch) (uri (git-reference @@ -6548,7 +6581,7 @@ functions to assist in reviewing changes on files.") (file-name (git-file-name name version)) (sha256 (base32 - "1x052fsavb94x3scpqd6n9spqgzaahzbdxhg4qa5sy6hqsabn6zh")))) + "055sgk8zf4wb5nqsf3qasf5gg861zlb1831733f1qcrd2ij5gzxx")))) (build-system emacs-build-system) (arguments `(#:phases @@ -6964,8 +6997,8 @@ not tied in the trap of backward compatibility.") (license license:gpl3+))) (define-public emacs-helm-org - (let ((commit "b9a1167b0716a22a69670f4c35e0ac59d2e0b220") - (revision "2")) + (let ((commit "8457e1e46227bf87726e05c42cec5a4b51c2ef7b") + (revision "3")) (package (name "emacs-helm-org") (version (git-version "1.0" revision commit)) @@ -6977,7 +7010,7 @@ not tied in the trap of backward compatibility.") (commit commit))) (file-name (git-file-name name version)) (sha256 - (base32 "1gc27i4azqpgijva1f4ckfdp4s52mc9pnfcmzhkwhknr6pd6jlcr")))) + (base32 "0kcjhwwi492n9m2w894hvdavfvhj45zygy7bwvx103wvpay5h6h6")))) (build-system emacs-build-system) (propagated-inputs `(("emacs-helm" ,emacs-helm))) @@ -7905,6 +7938,32 @@ pasting into and from @code{tmux} paste buffers.") to search.") (license license:gpl3+)))) +(define-public emacs-monky + (package + (name "emacs-monky") + (version "0.1") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/ananthakumaran/monky.git") + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1fgn7al4zwz2k5wb5dy3byqg9lsrjk9fra341mxh5ma2pfwxjgps")))) + (build-system emacs-build-system) + (home-page "https://ananthakumaran.in/monky/index.html") + (arguments + `(#:tests? #t + #:test-command '("emacs" "--batch" + "-l" "test/monky-unit-test.el" + "-f" "ert-run-tests-batch-and-exit"))) + (synopsis "Interactive interface for the Mercurial version control system") + (description + "Monky provides an Emacs interface for Mercurial (Hg). Using Monky, you +can selectively commit files, view the diffs, and other things.") + (license license:gpl3+))) + (define-public emacs-monroe (package (name "emacs-monroe") @@ -7929,7 +7988,7 @@ distribution, primarily targeting Clojure users") (define-public emacs-orgalist (package (name "emacs-orgalist") - (version "1.9") + (version "1.11") (source (origin (method url-fetch) @@ -7937,7 +7996,7 @@ distribution, primarily targeting Clojure users") "orgalist-" version ".el")) (sha256 (base32 - "1rmmcyiiqkq54hn74nhzxzl4nvd902hv6gq341jwhrm7yiagffi6")))) + "0zbqkk540rax32s8szp5zgz3a02zw88fc1dmjmyw6h3ls04m91kl")))) (build-system emacs-build-system) (home-page "http://elpa.gnu.org/packages/orgalist.html") (synopsis "Manage Org-like lists in non-Org buffers") @@ -8087,7 +8146,7 @@ Flx has support for ido (interactively do things) through flx-ido.") (define-public emacs-cyberpunk-theme (package (name "emacs-cyberpunk-theme") - (version "1.19") + (version "1.21") (source (origin (method git-fetch) @@ -8096,13 +8155,13 @@ Flx has support for ido (interactively do things) through flx-ido.") (commit version))) (sha256 (base32 - "1npwrw3pgdmvqhihcqcfi2yrs178iiip5fcj8zhpp6cr9yqsvvgi")) + "05mfgr9aj7knn7niadv9p6z3qrfpq2lbbi2wxxx62xywim9maw2y")) (file-name (git-file-name name version)))) (build-system emacs-build-system) (home-page "https://github.com/n3mo/cyberpunk-theme.el") - (synopsis "Cyberpunk theme for emacs built-in color theme support") + (synopsis "Cyberpunk theme for Emacs built-in color theme support") (description - "Cyberpunk color theme for the emacs 24+ built-in color theme support + "Cyberpunk color theme for the Emacs 24+ built-in color theme support known loosely as deftheme. Many mode-specific customizations are included.") (license license:gpl3+))) @@ -9257,7 +9316,7 @@ configuration of Chinese fonts.") (define-public emacs-php-mode (package (name "emacs-php-mode") - (version "1.22.1") + (version "1.22.2") (source (origin (method git-fetch) (uri (git-reference @@ -9266,7 +9325,7 @@ configuration of Chinese fonts.") (file-name (git-file-name name version)) (sha256 (base32 - "1yc7f39bv2ni8q5372r4kj04z7rikvc8w1mqx5c4zph5r02jab7i")))) + "1r4bpyavlndd4c78cv5cc97bc0gkd4cggiyz4kd2vg6zlyc1nld3")))) (build-system emacs-build-system) (home-page "https://github.com/ejmr/php-mode") (synopsis "Major mode for editing PHP code") @@ -12489,6 +12548,38 @@ files to be expanded upon opening them.") "This package provides an Emacs library for parsing bib files.") (license license:gpl3+))) +(define-public emacs-ebib + (let ((commit "99bd909f47f71e024ce324981109b73a50e82fba")) + (package + (name "emacs-ebib") + (version "2.21") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/joostkremers/ebib.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "131vgl4d1j9s4055x88409w19q52x2m0x08b961hylp7yb5ljzgh")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-parsebib" ,emacs-parsebib))) + (home-page "http://joostkremers.github.io/ebib/") + (synopsis "BibTeX database manager for Emacs") + (description + "Ebib is a BibTeX database manager that runs in GNU Emacs. +With Ebib you can create, sort and manage your .bib database files, +all within Emacs. It supports searching, multi-line field values and +@@String and @@Preamble definitions. Ebib integrates with (La)TeX +mode, Org mode and other Emacs editing modes.") + ;; The Ebib source files are released under a BSD license with + ;; the exception of org-ebib.el, which is released under the GNU + ;; GPL. + (license (list license:bsd-3 + license:gpl3+))))) + (define-public emacs-biblio (package (name "emacs-biblio") @@ -14647,7 +14738,7 @@ scroll up to read the function name and then scroll down to original position.") (define-public emacs-git-auto-commit-mode (package (name "emacs-git-auto-commit-mode") - (version "4.4.0") + (version "4.5.0") (source (origin (method git-fetch) @@ -14656,7 +14747,7 @@ scroll up to read the function name and then scroll down to original position.") (commit version))) (file-name (git-file-name name version)) (sha256 - (base32 "0psmr7749nzxln4b500sl3vrf24x3qijp12ir0i5z4x25k72hrlh")))) + (base32 "1w3v9pmlmdxl4pglsb6j0igp13lbzg5bhbr1rv2vll93m6zxmyma")))) (build-system emacs-build-system) (home-page "https://github.com/ryuslash/git-auto-commit-mode") (synopsis "Emacs Minor mode to automatically commit and push") @@ -16235,7 +16326,7 @@ buffers – other modes on the TODO list). (define-public emacs-magit-todos (package (name "emacs-magit-todos") - (version "1.4") + (version "1.4.1") (source (origin (method git-fetch) @@ -16245,7 +16336,7 @@ buffers – other modes on the TODO list). (file-name (git-file-name name version)) (sha256 (base32 - "09pjb4k409gc0h51vb5az1shx02c1hx8cnvhi529n7dm4maildg5")))) + "1rcl6j53yabxqk3jzgaxvm3wqq7rayf1hdib2v2fapw5b0layym6")))) (build-system emacs-build-system) (propagated-inputs `(("emacs-async" ,emacs-async) @@ -17722,6 +17813,154 @@ experience by providing optional integration with other popular Emacs packages like @code{company}, @code{flycheck}, and @code{projectile}.") (license license:gpl3+))) +(define-public emacs-pfuture + (let ((commit "368254ee30692c709400db413c347e18e76a8a55")) + (package + (name "emacs-pfuture") + (version (git-version "1.6" "1" commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/Alexander-Miller/pfuture.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "096raqpjx84njws85r7pqq1wi9w9bjwkr0ga1mbbhlna1mfn3mg4")))) + (build-system emacs-build-system) + (home-page + "https://github.com/Alexander-Miller/pfuture") + (synopsis "Simple wrapper around asynchronous processes for Emacs") + (description "This package provides a simple wrapper around asynchronous +processes for Emacs") + (license license:gpl3+)))) + +(define-public emacs-treemacs + (package + (name "emacs-treemacs") + (version "2.6") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/Alexander-Miller/treemacs.git") + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "13gs8g05xj7np3i2q3bbxg6zgdiazzn1spxii4x0cyd4pg83c0i1")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-dash" ,emacs-dash) + ("emacs-s" ,emacs-s) + ("emacs-f" ,emacs-f) + ("emacs-ace-window" ,emacs-ace-window) + ("emacs-pfuture" ,emacs-pfuture) + ("emacs-hydra" ,emacs-hydra) + ("emacs-ht" ,emacs-ht))) + (native-inputs + `(("emacs-buttercup" ,emacs-buttercup) + ("emacs-el-mock" ,emacs-el-mock))) + (inputs + `(("python" ,python))) + (arguments + `(#:tests? #t ;TODO: Investigate ‘treemacs--parse-collapsed-dirs’ test failure. + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'fix-makefile + (lambda _ + (substitute* "Makefile" + (("@\\$\\(CASK\\) exec ") "")) + #t)) + (add-after 'fix-makefile 'chdir-elisp + ;; Elisp directory is not in root of the source. + (lambda _ + (chdir "src/elisp"))) + (replace 'check + (lambda _ + (with-directory-excursion "../.." ;treemacs root + (chmod "test/test-treemacs.el" #o644) + (emacs-substitute-sexps "test/test-treemacs.el" + ("(describe \"treemacs--parse-collapsed-dirs\"" + "")) + (invoke "make" "test")))) + (add-before 'install 'patch-paths + (lambda* (#:key inputs outputs #:allow-other-keys) + (with-directory-excursion "../.." ;treemacs root + (chmod "src/elisp/treemacs-core-utils.el" #o644) + (emacs-substitute-variables "src/elisp/treemacs-core-utils.el" + ("treemacs-dir" + (string-append (assoc-ref outputs "out") "/"))) + (chmod "src/elisp/treemacs-icons.el" #o644) + (substitute* "src/elisp/treemacs-icons.el" + (("icons/default") "share/emacs-treemacs/images")) + (chmod "src/elisp/treemacs-customization.el" #o644) + (emacs-substitute-variables "src/elisp/treemacs-customization.el" + ("treemacs-python-executable" + (string-append (assoc-ref inputs "python") "/bin/python3"))) + (chmod "src/elisp/treemacs-async.el" #o644) + (substitute* "src/elisp/treemacs-async.el" + (("src/scripts") (string-append "share/" ,name "/scripts")))) + #t)) + (add-after 'install 'install-data + (lambda* (#:key outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out"))) + (with-directory-excursion "../.." ;treemacs root + (copy-recursively "icons/default" + (string-append out "/share/" ,name "/images")) + (copy-recursively + "src/scripts" + (string-append out "/share/" ,name "/scripts")) + #t))))))) + (home-page "https://github.com/Alexander-Miller/treemacs") + (synopsis "Emacs tree style file explorer") + (description "Powerful and flexible file tree project explorer.") + (license license:gpl3+))) + +(define-public emacs-treemacs-extra + (package + (inherit emacs-treemacs) + (name "emacs-treemacs-extra") + (propagated-inputs + `(,@(package-propagated-inputs emacs-treemacs) + ("emacs-evil" ,emacs-evil) + ("emacs-magit" ,emacs-magit) + ("emacs-projectile" ,emacs-projectile))) + (arguments + (substitute-keyword-arguments + (package-arguments emacs-treemacs) + ((#:phases phases) + `(modify-phases ,phases + (add-after 'chdir-elisp 'copy-extra + (lambda _ + (copy-recursively "../extra" "."))))))))) + +(define-public emacs-lsp-java + (package + (name "emacs-lsp-java") + (version "2.2") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/emacs-lsp/lsp-java.git") + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0hcnvbyaqyypgby1bfj4zbrbq97amk8hfx0sj4w73rl46yf4jk3j")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-lsp-mode" ,emacs-lsp-mode) + ("emacs-markdown-mode" ,emacs-markdown-mode) + ("emacs-dash" ,emacs-dash) + ("emacs-f" ,emacs-f) + ("emacs-ht" ,emacs-ht) + ("emacs-request" ,emacs-request) + ("emacs-treemacs" ,emacs-treemacs))) + (home-page "https://github.com/emacs-lsp/lsp-java/") + (synopsis "Java support for lsp-mode") + (description "Emacs Java IDE using Eclipse JDT Language Server.") + (license license:gpl3+))) + (define-public emacs-lsp-ui (package (name "emacs-lsp-ui") @@ -17749,6 +17988,29 @@ like @code{company}, @code{flycheck}, and @code{projectile}.") and code peeking.") (license license:gpl3+))) +(define-public emacs-lsp-lua-emmy + (let ((commit "ab53fb2a8b8942804eb75bab5624fd19f1d360bf")) + (package + (name "emacs-lsp-lua-emmy") + (version (git-version "0.1.0" "1" commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/phenix3443/lsp-lua-emmy.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0rbizis73n1w5ig07fj1han74chbc1zpbp5bn37rj0gz608aqka8")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-lsp-mode" ,emacs-lsp-mode))) + (home-page "https://github.com/phenix3443/lsp-lua-emmy/") + (synopsis "Lua support in @code{lsp-mode} client for Emacs") + (description "This package provides a Lua language support in +@code{lsp-mode} client for Emacs.") + (license license:gpl3+)))) + (define-public emacs-lsp-ivy (let ((commit "caf1e1d7e22ed0b5fe18dd508d1a6f83dd163288") (revision "2")) @@ -19810,8 +20072,8 @@ contrast and few colors.") (license license:gpl3+)))) (define-public emacs-doom-themes - (let ((commit "c2d0ed3fe73e415d29e05d56da08ba41018eec4f") - (revision "3") + (let ((commit "54039c5171e3f8c9cef1f82122549b66cd8c8f7b") + (revision "4") (version "2.1.6")) (package (name "emacs-doom-themes") @@ -19823,7 +20085,7 @@ contrast and few colors.") (commit commit))) (file-name (git-file-name name version)) (sha256 - (base32 "1bdi7dkddyn0s357v2jv0mlhgsyc66kcvbl01ly370pqia6r0gpc")))) + (base32 "1iwdjq4q2gkhi6jwas3ywgmdz5dg14sfb3fzhqd7wih6j3i2l3cr")))) (build-system emacs-build-system) (native-inputs `(("emacs-ert-runner" ,emacs-ert-runner))) @@ -19849,6 +20111,10 @@ contrast and few colors.") ;; files. In order to cope with this issue, we disable ;; byte-compilation until this issue is resolved. ;; <https://github.com/hlissner/emacs-doom-themes/issues/314> + ;; + ;; NOTE: Byte-comp has been disabled in/after commit 9cd6872. + ;; However our method of selective disabling is preferential to + ;; just widely disabling byte-compilation. (add-after 'move-themes 'disable-breaking-compilation (lambda _ (for-each (lambda (file) @@ -19874,7 +20140,7 @@ Emacs that integrate with major modes like Org-mode.") (define-public emacs-modus-themes (package (name "emacs-modus-themes") - (version "0.1.0") + (version "0.3.0") (source (origin (method git-fetch) @@ -19884,7 +20150,7 @@ Emacs that integrate with major modes like Org-mode.") (file-name (git-file-name name version)) (sha256 (base32 - "15g63675c5df2p0kk2sqj2c8qriyh69lcbggknqlaxapr13giz4x")))) + "1xrrjhpdxi9bgx877gvq8xrc2ph5qp9y5j3ssdphy333x9km1px1")))) (build-system emacs-build-system) (home-page "https://gitlab.com/protesilaos/modus-themes") (synopsis "Emacs themes designed for colour-contrast accessibility") @@ -20154,7 +20420,7 @@ fish-completion. It can be used in both Eshell and M-x shell.") ;; Get the current version from `telega-version` in telega.el. ;; or by running M-x telega-version. (let ((commit "9bfb637b2e71f5f293debd35abd627a064faf8ef") - (revision "1") + (revision "2") (version "0.5.4")) (package (name "emacs-telega") @@ -20171,14 +20437,15 @@ fish-completion. It can be used in both Eshell and M-x shell.") (file-name (git-file-name name version)))) (build-system gnu-build-system) (arguments - `(#:test-target "test" - #:modules ((guix build gnu-build-system) + `(#:modules ((guix build gnu-build-system) ((guix build emacs-build-system) #:prefix emacs:) (guix build utils) (guix build emacs-utils)) #:imported-modules (,@%gnu-build-system-modules (guix build emacs-build-system) (guix build emacs-utils)) + #:test-target "test" + #:make-flags (list "WITH_VOIP=t") #:phases (modify-phases %standard-phases (add-after 'unpack 'prefix-patch @@ -20256,6 +20523,7 @@ fish-completion. It can be used in both Eshell and M-x shell.") ("libwebp" ,libwebp))) ; sticker support. (native-inputs `(("tdlib" ,tdlib) + ("libtgvoip" ,libtgvoip) ; VoIP support. ("emacs" ,emacs) ("python" ,python))) (synopsis "GNU Emacs client for the Telegram messenger") @@ -20651,3 +20919,89 @@ buffer. It can be used to toggle an alternative mode-line, toggle its visibilit or simply disable the mode-line in buffers where it is not very useful.") (home-page "https://github.com/hlissner/emacs-hide-mode-line") (license license:expat))) + +(define-public emacs-helm-cider + ;; No new release since March 2018. + (let ((commit "9363cc537f06233345aa3af5cd46aa5681ad607b")) + (package + (name "emacs-helm-cider") + (version (git-version "0.4.0" "1" commit)) + (home-page "https://github.com/clojure-emacs/helm-cider") + (source (origin + (method git-fetch) + (uri (git-reference + (url home-page) + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0vfn4smqba1vsshz48ggkj8gs94la0sxb1sq4shrb41qj2x3dci7")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-helm" ,emacs-helm) + ("emacs-cider" ,emacs-cider))) + (synopsis "Helm interface to Clojure's CIDER") + (description "Helm-CIDER adds Helm interfaces to +@command{cider-apropos}, @command{cider-apropos-documentation}, +@command{cider-browse-ns} (namespaces). + +It also provides original Helm commands: @command{helm-cider-spec}, +@command{helm-cider-spec-ns}, @command{helm-cider-repl-history}, +@command{helm-cider-cheatsheet}.") + (license license:gpl3+)))) + +(define-public emacs-edn + ;; No release since February 2016 + (let ((commit "be9e32d1b49e35247b263b0243df7cfdc8d413ab")) + (package + (name "emacs-edn") + (version (git-version "1.1.2" "1" commit)) + (home-page "https://github.com/expez/edn.el") + (source (origin + (method git-fetch) + (uri (git-reference + (url home-page) + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1xp2hjhn52k6l1g6ypva6dsklpawni7gvjafbz6404f9dyxflh7l")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-peg" ,emacs-peg))) + (synopsis "Read and write EDN from Elisp") + (description "This is an Emacs Lisp library for reading and writing the +data format @code{edn}. See @url{https://github.com/edn-format/edn}.") + (license license:gpl3+)))) + +(define-public emacs-helm-clojuredocs + (let ((commit "5a7f0f2cb401be0b09e73262a1c18265ab9a3cea")) + (package + (name "emacs-helm-clojuredocs") + (version (git-version "0.3" "1" commit)) + (home-page "https://github.com/mbuczko/helm-clojuredocs") + (source (origin + (method git-fetch) + (uri (git-reference + (url home-page) + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "015b8zxh91ljhqvn6z43gy08di54xcw9skw0i7frj3d7gk984qhl")))) + (build-system emacs-build-system) + (propagated-inputs + `(("emacs-helm" ,emacs-helm) + ("emacs-edn" ,emacs-edn))) + (synopsis "Search help on clojuredocs.org with Helm") + (description "This packages provides a Helm interface to lookup Clojure +documentation on @url{https://clojuredocs.org} with Helm. + +Two function are exposed: +@itemize +@item @command{helm-clojuredocs}: opens a Helm session with no initial +pattern. Searching starts with minimal 3 characters entered. +@item @command{helm-clojuredocs-at-point}: opens a Helm session with initial +pattern guessed from thing under current cursor position. +@end itemize\n") + (license license:gpl3+)))) diff --git a/gnu/packages/emulators.scm b/gnu/packages/emulators.scm index 63c1332c2f..ffcdc65265 100644 --- a/gnu/packages/emulators.scm +++ b/gnu/packages/emulators.scm @@ -11,6 +11,7 @@ ;;; Copyright © 2017, 2018, 2019 Rutger Helling <rhelling@mykolab.com> ;;; Copyright © 2019 Pierre Neidhardt <mail@ambrevar.xyz> ;;; Copyright © 2019 David Wilson <david@daviwil.com> +;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net> ;;; ;;; This file is part of GNU Guix. ;;; @@ -457,6 +458,52 @@ and Game Boy Color games.") ;; BSD-3. (license (list license:mpl2.0 license:lgpl2.1+ license:bsd-3)))) +(define-public sameboy + (package + (name "sameboy") + (version "0.12.3") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/LIJI32/SameBoy.git") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 "0m5rv2x8qck1kr43xq186pp4kaiay7gd1x775n9qrljcd7z4x6fs")))) + (build-system gnu-build-system) + (native-inputs + `(("rgbds" ,rgbds) + ("gcc" ,gcc-9) + ("pkg-config" ,pkg-config))) + (inputs + `(("sdl2" ,sdl2))) + (arguments + `(#:tests? #f ; There are no tests + #:make-flags `("CC=gcc" "CONF=release" + ,(string-append "DATA_DIR=" + (assoc-ref %outputs "out") + "/share/sameboy/")) + #:phases + (modify-phases %standard-phases + (delete 'configure) + (replace 'install + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (bin (string-append out "/bin")) + (data (string-append out "/share/sameboy/"))) + (with-directory-excursion "build/bin/SDL" + (install-file "sameboy" bin) + (delete-file "sameboy") + (copy-recursively "." data)))))))) + (home-page "https://sameboy.github.io/") + (synopsis "Accurate Game Boy, Game Boy Color and Super Game Boy emulator") + (description "SameBoy is a user friendly Game Boy, Game Boy Color +and Super Game Boy emulator. SameBoy is accurate and includes a wide +range of debugging features. It has all the features one would expect +from an emulator---from save states to scaling filters.") + (license license:expat))) + (define-public mupen64plus-core (package (name "mupen64plus-core") diff --git a/gnu/packages/engineering.scm b/gnu/packages/engineering.scm index 9ace45ba5c..3f4cdbd172 100644 --- a/gnu/packages/engineering.scm +++ b/gnu/packages/engineering.scm @@ -1,12 +1,12 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2015, 2016, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net> +;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch> -;;; Copyright © 2016, 2018 Efraim Flashner <efraim@flashner.co.il> +;;; Copyright © 2016, 2018, 2020 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016 David Thompson <davet@gnu.org> ;;; Copyright © 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2016, 2017, 2018 Theodoros Foradis <theodoros@foradis.org> ;;; Copyright © 2017 Julien Lepiller <julien@lepiller.eu> -;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org> ;;; Copyright © 2018, 2019 Jonathan Brielmaier <jonathan.brielmaier@web.de> ;;; Copyright © 2018, 2019 Arun Isaac <arunisaac@systemreboot.net> @@ -289,7 +289,7 @@ utilities.") ;; never runs. See <https://bugs.debian.org/792687>. `(cons "ac_cv_path_MSGMERGE=true" ,flags)) ((#:phases phases '%standard-phases) - `(modify-phases ,phases + `(modify-phases %standard-phases (add-before 'bootstrap 'prepare (lambda _ ;; Some of the scripts there are invoked by autogen.sh. @@ -795,7 +795,7 @@ language.") (define-public kicad (package (name "kicad") - (version "5.1.4") + (version "5.1.5") (source (origin (method url-fetch) @@ -804,7 +804,7 @@ language.") "https://launchpad.net/kicad/" (version-major version) ".0/" version "/+download/kicad-" version ".tar.xz")) (sha256 - (base32 "1r60dgh6aalbpq1wsmpyxkz0nn4ck8ydfdjcrblpl69k5rks5k2j")))) + (base32 "0x3417f2pa7p65s9f7l49rqbnrzy8gz6i0n07mlbxqbnm0fmlql0")))) (build-system cmake-build-system) (arguments `(#:out-of-source? #t @@ -855,7 +855,7 @@ language.") ("python" ,python) ("wxwidgets" ,wxwidgets) ("wxpython" ,python-wxpython))) - (home-page "http://kicad-pcb.org/") + (home-page "https://kicad-pcb.org/") (synopsis "Electronics Design Automation Suite") (description "Kicad is a program for the formation of printed circuit boards and electrical circuits. The software has a number of programs that @@ -919,7 +919,7 @@ electrical diagrams), gerbview (viewing Gerber files) and others.") (sha256 (base32 "08qrz5zzsb5127jlnv24j0sgiryd5nqwg3lfnwi8j9a25agqk13j")))))) - (home-page "http://kicad-pcb.org/") + (home-page "https://kicad-pcb.org/") (synopsis "Libraries for kicad") (description "This package provides Kicad component, footprint and 3D render model libraries.") @@ -928,7 +928,7 @@ render model libraries.") (define-public kicad-symbols (package (name "kicad-symbols") - (version "5.1.4") + (version "5.1.5") (source (origin (method git-fetch) (uri (git-reference @@ -937,15 +937,19 @@ render model libraries.") (file-name (git-file-name name version)) (sha256 (base32 - "1lna4xlvzrxif3569pkp6mrg7fj62z3a3ri5j97lnmnnzhiddnh3")))) + "048b07ffsaav1ssrchw2p870lvb4rsyb5vnniy670k7q9p16qq6h")))) (build-system cmake-build-system) (arguments - `(#:tests? #f)) ; No tests exist - (home-page "http://kicad-pcb.org/") + `(#:tests? #f)) ; no tests exist + (home-page "https://kicad-pcb.org/") (synopsis "Official KiCad schematic symbol libraries for KiCad 5") (description "This package contains the official KiCad schematic symbol libraries for KiCad 5.") - ;; TODO: Exception: "To the extent that the creation of electronic designs that use 'Licensed Material' can be considered to be 'Adapted Material', then the copyright holder waives article 3 of the license with respect to these designs and any generated files which use data provided as part of the 'Licensed Material'." + ;; TODO: Exception: "To the extent that the creation of electronic designs + ;; that use 'Licensed Material' can be considered to be 'Adapted Material', + ;; then the copyright holder waives article 3 of the license with respect to + ;; these designs and any generated files which use data provided as part of + ;; the 'Licensed Material'." ;; See <https://github.com/KiCad/kicad-symbols/blob/master/LICENSE.md>. (license license:cc-by-sa4.0))) @@ -1205,13 +1209,14 @@ language, ADMS transforms Verilog-AMS code into other target languages.") (name "capstone") (version "3.0.5") (source (origin - (method url-fetch) - (uri (string-append "https://github.com/aquynh/capstone/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) + (method git-fetch) + (uri (git-reference + (url "https://github.com/aquynh/capstone") + (commit version))) + (file-name (git-file-name name version)) (sha256 (base32 - "1wbd1g3r32ni6zd9vwrq3kn7fdp9y8qwn9zllrrbk8n5wyaxcgci")))) + "0dgf82kxj4rs45d6s8sr984c38sll1n5scpypjlyh21gh2yl4qfw")))) (build-system gnu-build-system) (arguments `(#:tests? #f diff --git a/gnu/packages/file-systems.scm b/gnu/packages/file-systems.scm index cb0a2a25bb..a3dc993055 100644 --- a/gnu/packages/file-systems.scm +++ b/gnu/packages/file-systems.scm @@ -28,6 +28,7 @@ #:use-module (guix build-system cmake) #:use-module (guix build-system gnu) #:use-module (guix build-system linux-module) + #:use-module (guix build-system trivial) #:use-module (guix utils) #:use-module (gnu packages) #:use-module (gnu packages acl) @@ -111,6 +112,81 @@ files. Since the HTTP protocol itself has no notion of directories, only a single file can be mounted.") (license license:gpl2+))) +(define-public jfsutils + (package + (name "jfsutils") + (version "1.1.15") + (source + (origin + (method url-fetch) + (uri (string-append "http://jfs.sourceforge.net/project/pub/jfsutils-" + version ".tar.gz")) + (sha256 + (base32 "0kbsy2sk1jv4m82rxyl25gwrlkzvl3hzdga9gshkxkhm83v1aji4")) + (patches (search-patches "jfsutils-add-sysmacros.patch" + "jfsutils-include-systypes.patch")))) + (build-system gnu-build-system) + (inputs + `(("util-linux" ,util-linux))) + (home-page "http://jfs.sourceforge.net/home.html") + (synopsis "Utilities for managing JFS file systems") + (description + "The JFSutils are a collection of utilities for managing the @acronym{JFS, +Journaled File System}, a 64-bit journaling file system created by IBM and later +ported to the kernel Linux. The following commands are available: +@enumerate +@item @command{fsck.jfs}: check and repair a JFS file system or replay its +transaction log. +@item @command{logdump}: dump the JFS journal log. +@item @command{logredo}: replay the JFS journal log. +@item @command{mkfs.jfs}: create a new JFS file system. +@item @command{xchklog}: save a JFS fsck log to a file. +@item @command{xchkdmp}: dump the contents of such a log file. +@item @command{xpeek}: a JFS file system editor with a shell-like interface. +@end enumerate\n") + (license license:gpl3+))) ; no explicit version given + +(define-public jfsutils/static + (static-package + (package + (inherit jfsutils) + (name "jfsutils-static") + (inputs + `(("util-linux:static" ,util-linux "static") + ,@(package-inputs jfsutils)))))) + +(define-public jfs_fsck/static + (package + (name "jfs_fsck-static") + (version (package-version jfsutils)) + (source #f) + (build-system trivial-build-system) + (arguments + `(#:modules ((guix build utils)) + #:builder + (begin + (use-modules (guix build utils) + (ice-9 ftw) + (srfi srfi-26)) + (let* ((jfsutils (assoc-ref %build-inputs "jfsutils")) + (fsck "jfs_fsck") + (out (assoc-ref %outputs "out")) + (sbin (string-append out "/sbin"))) + (mkdir-p sbin) + (with-directory-excursion sbin + (install-file (string-append jfsutils "/sbin/" fsck) + ".") + (remove-store-references fsck) + (chmod fsck #o555)) + #t)))) + (inputs + `(("jfsutils" ,jfsutils/static))) + (home-page (package-home-page jfsutils)) + (synopsis "Statically-linked jfs_fsck command from jfsutils") + (description "This package provides statically-linked jfs_fsck command taken +from the jfsutils package. It is meant to be used in initrds.") + (license (package-license jfsutils)))) + (define-public disorderfs (package (name "disorderfs") diff --git a/gnu/packages/finance.scm b/gnu/packages/finance.scm index ce3033c054..19f990848c 100644 --- a/gnu/packages/finance.scm +++ b/gnu/packages/finance.scm @@ -11,7 +11,7 @@ ;;; Copyright © 2018 Adriano Peluso <catonano@gmail.com> ;;; Copyright © 2018, 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; Copyright © 2018 Arun Isaac <arunisaac@systemreboot.net> -;;; Copyright © 2019 Guillaume Le Vaillant <glv@posteo.net> +;;; Copyright © 2019, 2020 Guillaume Le Vaillant <glv@posteo.net> ;;; Copyright © 2019 Tanguy Le Carrour <tanguy@bioneland.org> ;;; Copyright © 2019 Martin Becze <mjbecze@riseup.net> ;;; Copyright © 2019 Sebastian Schott <sschott@mailbox.org> @@ -41,6 +41,7 @@ #:use-module (guix build-system python) #:use-module (guix build-system glib-or-gtk) #:use-module (guix build-system go) + #:use-module (guix build-system qt) #:use-module (guix utils) #:use-module (gnu packages) #:use-module (gnu packages aidc) @@ -288,6 +289,12 @@ in ability, and easy to use.") #:tests? #f ; there are none #:phases (modify-phases %standard-phases + (add-after 'unpack 'patch-site-dir + (lambda _ + (substitute* "CMakeLists.txt" + (("DESTINATION share/emacs/site-lisp/ledger-mode") + "DESTINATION share/emacs/site-lisp")) + #t)) (add-before 'build 'patch-path (lambda* (#:key inputs #:allow-other-keys) (let ((ledger (assoc-ref inputs "ledger"))) @@ -303,17 +310,12 @@ in ability, and easy to use.") (invoke "makeinfo" "-o" target "../source/doc/ledger-mode.texi")) #t)) - (add-after 'install 'relocate-elisp + (add-after 'install 'generate-autoload (lambda* (#:key outputs #:allow-other-keys) (let* ((site-dir (string-append (assoc-ref outputs "out") - "/share/emacs/site-lisp")) - (guix-dir (string-append site-dir "/guix.d")) - (orig-dir (string-append site-dir "/ledger-mode")) - (dest-dir (string-append guix-dir "/ledger-mode"))) - (mkdir-p guix-dir) - (rename-file orig-dir dest-dir) - (emacs-generate-autoloads ,name dest-dir) - #t)))))) + "/share/emacs/site-lisp"))) + (emacs-generate-autoloads ,name site-dir)) + #t))))) (inputs `(("ledger" ,ledger))) (native-inputs @@ -602,7 +604,7 @@ the Monero command line client and daemon.") (define-public monero-gui (package (name "monero-gui") - (version "0.15.0.1") + (version "0.15.0.3") (source (origin (method git-fetch) @@ -612,8 +614,8 @@ the Monero command line client and daemon.") (file-name (git-file-name name version)) (sha256 (base32 - "08j8kkncdn57xql0bhmlzjpjkdfhqbpda1p07r797q8qi0nl4w8n")))) - (build-system gnu-build-system) + "1v2mk6qp7dfdj4j4cilxp0s0phfwwnmjvpvjrz6jzzlpvbnavkr0")))) + (build-system qt-build-system) (native-inputs `(("pkg-config" ,pkg-config) ("qttools" ,qttools))) @@ -633,53 +635,45 @@ the Monero command line client and daemon.") ("qtquickcontrols" ,qtquickcontrols) ("qtquickcontrols2",qtquickcontrols2) ("qtsvg" ,qtsvg) - ("qtwebchannel" ,qtwebchannel) - ("qtx11extras" ,qtx11extras) ("qtxmlpatterns" ,qtxmlpatterns) ("unbound" ,unbound))) (propagated-inputs `(("monero" ,monero))) (arguments - `(#:modules ((guix build gnu-build-system) - (guix build qt-utils) - (guix build utils)) - #:imported-modules (,@%gnu-build-system-modules - (guix build qt-utils)) + `(#:tests? #f ; No tests #:phases (modify-phases %standard-phases - (delete 'configure) - (delete 'check) - (add-before 'build 'fix-makefile-vars + (add-after 'unpack 'fix-makefile-vars (lambda _ (substitute* "src/zxcvbn-c/makefile" (("\\?=") "=")) #t)) - (add-after 'fix-makefile-vars 'fix-library-paths - (lambda* (#:key inputs #:allow-other-keys) - (substitute* "monero-wallet-gui.pro" - (("-L/usr/local/lib") - "") - (("-L/usr/local/opt/openssl/lib") - (string-append "-L" (assoc-ref inputs "openssl") "/lib")) - (("-L/usr/local/opt/boost/lib") - (string-append "-L" (assoc-ref inputs "boost") "/lib"))) - #t)) - (add-after 'fix-library-paths 'fix-monerod-path - (lambda* (#:key inputs #:allow-other-keys) - (substitute* "src/daemon/DaemonManager.cpp" - (("QApplication::applicationDirPath\\(\\) \\+ \"/monerod") - (string-append "\"" (assoc-ref inputs "monero") - "/bin/monerod"))) - #t)) - (add-after 'fix-monerod-path 'fix-qt-paths - (lambda* (#:key inputs #:allow-other-keys) - (substitute* "monero-wallet-gui.pro" - (("\\$\\$\\[QT_INSTALL_BINS\\]/lrelease") - (string-append (assoc-ref inputs "qttools") "/bin/lrelease")) - (("\\$\\$\\[QT_INSTALL_BINS\\]/lupdate") - (string-append (assoc-ref inputs "qttools") "/bin/lupdate"))) - #t)) - (add-after 'fix-qt-paths 'make-qt-deterministic + (add-after 'fix-makefile-vars 'fix-paths + (lambda* (#:key inputs outputs #:allow-other-keys) + (let ((boost (assoc-ref inputs "boost")) + (monero (assoc-ref inputs "monero")) + (openssl (assoc-ref inputs "openssl")) + (qttools (assoc-ref inputs "qttools")) + (out (assoc-ref outputs "out"))) + (substitute* "monero-wallet-gui.pro" + (("-L/usr/local/lib") + "") + (("-L/usr/local/opt/openssl/lib") + (string-append "-L" openssl "/lib")) + (("-L/usr/local/opt/boost/lib") + (string-append "-L" boost "/lib")) + (("\\$\\$\\[QT_INSTALL_BINS\\]/lrelease") + (string-append qttools "/bin/lrelease")) + (("\\$\\$\\[QT_INSTALL_BINS\\]/lupdate") + (string-append qttools "/bin/lupdate"))) + (substitute* "deployment.pri" + (("/opt/\\$\\$\\{TARGET\\}/bin") + (string-append out "/bin"))) + (substitute* "src/daemon/DaemonManager.cpp" + (("QApplication::applicationDirPath\\(\\) \\+ \"/monerod") + (string-append "\"" monero "/bin/monerod"))) + #t))) + (add-after 'fix-paths 'make-qt-deterministic (lambda _ (setenv "QT_RCC_SOURCE_DATE_OVERRIDE" "1") #t)) @@ -696,24 +690,14 @@ the Monero command line client and daemon.") ,version ,(package-version monero)))) #t)) - (replace 'build - (lambda _ - (invoke "./build.sh"))) - (add-after 'build 'fix-install-path - (lambda* (#:key outputs #:allow-other-keys) - (substitute* "build/Makefile" - (("/opt/monero-wallet-gui") - (assoc-ref outputs "out"))) - #t)) - (add-before 'install 'change-dir + (replace 'configure (lambda _ + (mkdir-p "build") (chdir "build") - #t)) - (add-after 'install 'wrap-program - (lambda* (#:key outputs #:allow-other-keys) - (let ((out (assoc-ref outputs "out"))) - (wrap-qt-program out "monero-wallet-gui")) - #t))))) + (invoke "qmake" "../monero-wallet-gui.pro" "CONFIG+=release"))) + (add-before 'build 'build-zxcvbn-c + (lambda _ + (invoke "make" "-C" "../src/zxcvbn-c")))))) (home-page "https://web.getmonero.org/") (synopsis "Graphical user interface for the Monero currency") (description diff --git a/gnu/packages/firmware.scm b/gnu/packages/firmware.scm index c4bcf19d17..0156a4e9fa 100644 --- a/gnu/packages/firmware.scm +++ b/gnu/packages/firmware.scm @@ -381,22 +381,20 @@ Virtual Machines. OVMF contains a sample UEFI firmware for QEMU and KVM.") (define* (make-arm-trusted-firmware platform #:optional (arch "aarch64")) (package (name (string-append "arm-trusted-firmware-" platform)) - (version "2.1") + (version "2.2") (source (origin (method git-fetch) (uri (git-reference ;; There are only GitHub generated release snapshots. - (url "https://github.com/ARM-software/arm-trusted-firmware.git") + (url "https://git.trustedfirmware.org/TF-A/trusted-firmware-a.git/") (commit (string-append "v" version)))) (file-name (git-file-name "arm-trusted-firmware" version)) (patches (search-patches - "arm-trusted-firmware-optional-bin-generation.patch" - "arm-trusted-firmware-rockchip-disable-binary.patch" "arm-trusted-firmware-disable-hdcp.patch")) (sha256 (base32 - "1gy5qskrjy8n3kxdcm1dx8b45l5b75n0pm8pq80wl6xic1ycy24r")))) + "03fjl5hy1bqlya6fg553bqz7jrvilzrzpbs87cv6jd04v8qrvry8")))) (build-system gnu-build-system) (arguments `(#:phases @@ -444,7 +442,7 @@ Virtual Machines. OVMF contains a sample UEFI firmware for QEMU and KVM.") ("cross-binutils" ,(cross-binutils "arm-linux-gnueabihf"))) '()) )) - (home-page "https://github.com/ARM-software/arm-trusted-firmware") + (home-page "https://www.trustedfirmware.org/") (synopsis "Implementation of \"secure world software\"") (description "ARM Trusted Firmware provides a reference implementation of secure world diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm index 83c97444bf..4bcba89e38 100644 --- a/gnu/packages/fonts.scm +++ b/gnu/packages/fonts.scm @@ -14,7 +14,7 @@ ;;; Copyright © 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2016 Toni Reina <areina@riseup.net> -;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017 José Miguel Sánchez García <jmi2k@openmailbox.com> ;;; Copyright © 2017 Alex Griffin <a@ajgrf.com> ;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org> @@ -68,7 +68,7 @@ (define-public font-ibm-plex (package (name "font-ibm-plex") - (version "2.0.0") + (version "4.0.2") (source (origin (method url-fetch) (uri (string-append @@ -76,7 +76,7 @@ "v" version "/OpenType.zip")) (sha256 (base32 - "1lv65z3qnqgh2w36daf5wyz0ma9rg1qj9s9lzlnva8l7q3h8c9b8")))) + "17bd84ic7z9hkcjy4bwnh4z51bnkh2vrjzwvs9g6lwzmxjswa5b6")))) (build-system font-build-system) (home-page "https://github.com/IBM/plex") (synopsis "IBM Plex typeface") @@ -89,15 +89,16 @@ well as other mediums.") (define-public font-inconsolata (package (name "font-inconsolata") - (version "0.80") - (source (origin - (method url-fetch) - (uri "http://www.levien.com/type/myfonts/Inconsolata.otf") - (sha256 - (base32 - "06js6znbcf7swn8y3b8ki416bz96ay7d3yvddqnvi88lqhbfcq8m")))) + (version "3.000") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/googlefonts/Inconsolata/" + "releases/download/v" version "/fonts_otf.zip")) + (sha256 + (base32 "1wavvv86nwsqm5sbmnkv1bprj7l7zdrkxpvjy6w8yag93k6hrlx1")))) (build-system font-build-system) - (home-page "http://levien.com/type/myfonts/inconsolata.html") + (home-page "https://levien.com/type/myfonts/inconsolata.html") (synopsis "Monospace font") (description "A monospace font, designed for code listings and the like, in print. With attention to detail for high resolution rendering.") @@ -209,7 +210,7 @@ sans-serif designed for on-screen reading. It is used by GNOME@tie{}3.") (define-public font-lato (package (name "font-lato") - (version "2.010") ; also update description + (version "2.015") ; also update description (source (origin (method url-fetch/zipbomb) (uri (string-append "https://www.latofonts.com/download/Lato2OFL.zip")) @@ -352,14 +353,14 @@ Biolinum is available in both Regular and Bold weights.") (define-public font-terminus (package (name "font-terminus") - (version "4.47") + (version "4.48") (source (origin (method url-fetch) (uri (string-append "mirror://sourceforge/terminus-font/terminus-font-" version "/terminus-font-" version ".tar.gz")) (sha256 - (base32 "15qjcpalcxjiwsjgjg5k88vkwp56cs2nnx4ghya6mqp4i1c206qg")))) + (base32 "1bwlkj39rqbyq57v5yssayav6hzv1n11b9ml2s0dpiyfsn6rqy9l")))) (build-system gnu-build-system) (outputs (list "out" "pcf-8bit")) (arguments @@ -646,7 +647,7 @@ for use at smaller text sizes"))) (define-public font-gnu-unifont (package (name "font-gnu-unifont") - (version "12.1.03") + (version "12.1.04") (source (origin (method url-fetch) @@ -656,7 +657,7 @@ for use at smaller text sizes"))) (string-append "mirror://gnu/unifont/unifont-" version "/unifont-" version ".tar.gz"))) (sha256 - (base32 "10mr3ax19v5pa6a791fk2j3k45fpa8n5r36kq9gs8lk95wfnxmf1")))) + (base32 "1h5dyhg4j8sh4qpbwnsn34igb8mfapz5b3nf4k71hq1c5z3j0mcv")))) (build-system gnu-build-system) (outputs '("out" ; TrueType version "pcf" ; PCF (bitmap) version @@ -1089,6 +1090,8 @@ later hand-tweaked with the gbdfed(1) editor: (define-public font-comic-neue (package (name "font-comic-neue") + ;; The ‘v2.3’ and ‘v2.4’ releases at https://github.com/crozynski/comicneue + ;; are equivalent. The home page hosts 2.3, not 2.4, so we use that here. (version "2.3") (source (origin (method url-fetch/zipbomb) @@ -1137,7 +1140,8 @@ typeface, by mimicking Comic Sans while fixing its most obvious shortcomings.") (define-public font-iosevka (package (name "font-iosevka") - (version "2.2.0") + ;; When updating, also update the hash of the Iosevka variant(s) below. + (version "2.3.3") (source (origin (method url-fetch/zipbomb) @@ -1145,7 +1149,7 @@ typeface, by mimicking Comic Sans while fixing its most obvious shortcomings.") "/releases/download/v" version "/ttc-iosevka-" version ".zip")) (sha256 - (base32 "14jfv6pkh1w44m89z2fn44kgmmqaf0057lk71advwfbm3q313y0x")))) + (base32 "0jkv5rkg5hi0avhwyhcjiqzjslp6zjj77f09vxx2gj9l93byz731")))) (build-system font-build-system) (home-page "https://be5invis.github.io/Iosevka/") (synopsis "Coders' typeface, built from code") @@ -1168,7 +1172,7 @@ programming. Iosevka is completely generated from its source code.") "/releases/download/v" version "/ttc-iosevka-slab-" version ".zip")) (sha256 - (base32 "186d0pl13znysll3hvzm1ixn7ad616g6dhla55sbh6ki2j04b8ml")))))) + (base32 "1rkmgi08kknc1fg54zpa6w92m3b3v7pc8cpwygz22kgd2h0mdrr8")))))) (define-public font-go (let ((commit "f03a046406d4d7fbfd4ed29f554da8f6114049fc") diff --git a/gnu/packages/freedesktop.scm b/gnu/packages/freedesktop.scm index a26cbea542..7066685dee 100644 --- a/gnu/packages/freedesktop.scm +++ b/gnu/packages/freedesktop.scm @@ -155,14 +155,14 @@ freedesktop.org project.") (define-public libinput (package (name "libinput") - (version "1.14.1") + (version "1.14.3") (source (origin (method url-fetch) (uri (string-append "https://freedesktop.org/software/libinput/" "libinput-" version ".tar.xz")) (sha256 (base32 - "0w7fas37mp2k06f12i3lnj717lw73asziknj6z51kh1m50ja6cz3")))) + "1dy58j8dvr7ri34bx0lppmh5638m956azgwk501w373hi42kmsqg")))) (build-system meson-build-system) (arguments `(#:configure-flags '("-Ddocumentation=false") diff --git a/gnu/packages/game-development.scm b/gnu/packages/game-development.scm index febe15fa57..7aef6b09d2 100644 --- a/gnu/packages/game-development.scm +++ b/gnu/packages/game-development.scm @@ -8,7 +8,7 @@ ;;; Copyright © 2016, 2017 Kei Kebreau <kkebreau@posteo.net> ;;; Copyright © 2016, 2018, 2019 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2016, 2017, 2018 Julian Graham <joolean@gmail.com> -;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017 Manolis Fragkiskos Ragkousis <manolis837@gmail.com> ;;; Copyright © 2017 Peter Mikkelsen <petermikkelsen10@gmail.com> ;;; Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net> @@ -17,6 +17,7 @@ ;;; Copyright © 2019 Pierre Neidhardt <mail@ambrevar.xyz> ;;; Copyright © 2019 Leo Prikler <leo.prikler@student.tugraz.at> ;;; Copyright © 2019 Jethro Cao <jethrocao@gmail.com> +;;; Copyright © 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; ;;; This file is part of GNU Guix. ;;; @@ -71,6 +72,7 @@ #:use-module (gnu packages linux) #:use-module (gnu packages lua) #:use-module (gnu packages m4) + #:use-module (gnu packages mono) #:use-module (gnu packages mp3) #:use-module (gnu packages multiprecision) #:use-module (gnu packages music) @@ -81,6 +83,7 @@ #:use-module (gnu packages python-xyz) #:use-module (gnu packages qt) #:use-module (gnu packages sdl) + #:use-module (gnu packages sphinx) #:use-module (gnu packages stb) #:use-module (gnu packages texinfo) #:use-module (gnu packages tls) @@ -93,7 +96,7 @@ (define-public bullet (package (name "bullet") - (version "2.88") + (version "2.89") (source (origin (method git-fetch) (uri (git-reference @@ -102,7 +105,7 @@ (file-name (git-file-name name version)) (sha256 (base32 - "00qkif245yj7n2f262bgjaxv1bz3wmmcsfnjgy3qpzvlpzpns5z8")) + "10ncf2z474jnv7p5lv01ak2mk2hib3rj5rz1zr8v2v5pnciqbijl")) (modules '((guix build utils))) (snippet '(begin @@ -112,11 +115,10 @@ '("Gwen" "clsocket" "enet" "glad" "imgui" "lua-5.2.3" "midi" "minizip" "openvr" "optionalX11" "serial" "zlib"))) - ;; These need files from ThirdPartyLibs + ;; These need files from ThirdPartyLibs. (substitute* "Extras/CMakeLists.txt" - (("BulletRobotics") "") - (("obj2sdf") "")) - ;; Tests fail on linking, cannot find -lBussIK + (("BulletRobotics") "")) + ;; Tests fail on linking, cannot find -lBussIK. (substitute* "test/CMakeLists.txt" ((" InverseDynamics") "../examples/ThirdPartyLibs/BussIK InverseDynamics")) @@ -133,7 +135,7 @@ #:phases (modify-phases %standard-phases (add-after 'unpack 'remove-failing-tests - ;; These tests fail specifically after removing 3rd party code + ;; These tests fail specifically after removing 3rd party code. (lambda _ (substitute* "test/SharedMemory/CMakeLists.txt" (("ADD_TEST") "# ADD_TEST")) @@ -155,7 +157,7 @@ is used in some video games and movies.") (define-public deutex (package (name "deutex") - (version "5.2.0") + (version "5.2.1") (source (origin (method url-fetch) (uri (string-append "https://github.com/Doom-Utils/deutex" @@ -163,7 +165,7 @@ is used in some video games and movies.") "deutex-" version ".tar.xz")) (sha256 (base32 - "1d536d3i78k4ch8mjg7lqnamnyfpp2x5x7mzx5smqi9ad8lb6hqz")))) + "07w3asqxx89wl2wfv1z3cak8v83h3ys3b39mq9qq4gyf3xdhs76n")))) (build-system gnu-build-system) (native-inputs `(("asciidoc" ,asciidoc))) (home-page "https://github.com/Doom-Utils/deutex") @@ -1904,3 +1906,126 @@ projects.") hardware from multiple vendors without requiring that applications have specific knowledge of the hardware they are targeting.") (license license:bsd-3))) + +(define-public fna + (package + (name "fna") + (version "19.12.01") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/FNA-XNA/FNA.git") + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 "1vdyi9hac24fqcs8kpj6yk36bf5rrl4dvlvdd9fc701fawcf6lrr")))) + (build-system gnu-build-system) + (arguments + '(#:tests? #f ; No tests. + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'link-dep-src + (lambda* (#:key inputs #:allow-other-keys) + (let ((sdl2 (assoc-ref inputs "sdl2-cs-src")) + (mojoshader (assoc-ref inputs "mojoshader-src")) + (faudio (assoc-ref inputs "faudio-src")) + (theorafile (assoc-ref inputs "theorafile-src"))) + (symlink (string-append sdl2 "/src") "lib/SDL2-CS/src") + (symlink (string-append mojoshader "/csharp") "lib/MojoShader/csharp") + (symlink (string-append faudio "/csharp") "lib/FAudio/csharp") + (symlink (string-append theorafile "/csharp") "lib/Theorafile/csharp")))) + (delete 'configure) + (replace 'build + (lambda _ + (invoke "make" "release"))) + (replace 'install + (lambda* (#:key outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out"))) + (install-file "bin/Release/FNA.dll" (string-append out "/lib")) + #t)))))) + (native-inputs + `(("mono" ,mono))) + (inputs `(("sdl2-cs-src" ,(package-source sdl2-cs)) + ("mojoshader-src" ,(package-source mojoshader-cs)) + ("faudio-src" ,(package-source faudio)) + ("theorafile-src" ,(package-source theorafile)))) + (home-page "https://fna-xna.github.io/") + (synopsis "Accuracy-focused XNA4 reimplementation") + (description "FNA is a Microsoft XNA Game Studio 4.0 reimplementation that +focuses solely on developing a fully accurate XNA4 runtime for the desktop.") + (license (list license:ms-pl ; FNA + license:lgpl2.1 ; LzxDecoder.cs + ;; Mono.Xna: + license:expat)))) + +(define-public libccd + (package + (name "libccd") + (version "2.1") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/danfis/libccd.git") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 "0sfmn5pd7k5kyhbxnd689xmsa5v843r7sska96dlysqpljd691jc")))) + (build-system cmake-build-system) + (arguments + `(#:configure-flags '("-DBUILD_DOCUMENTATION=ON" + "-DBUILD_TESTING=ON" + "-DENABLE_DOUBLE_PRECISION=ON"))) + (native-inputs + `(("python-sphinx" ,python-sphinx))) + (home-page "https://github.com/danfis/libccd") + (synopsis "Library for collision detection between two convex shapes") + (description "@code{libccd} is library for a collision detection +between two convex shapes. @code{libccd} implements variation on +Gilbert–Johnson–Keerthi algorithm plus Expand Polytope Algorithm (EPA) +and also implements algorithm Minkowski Portal Refinement (MPR, +a.k.a. XenoCollide) as described in Game Programming Gems 7.") + (license license:expat))) + +(define-public ode + (package + (name "ode") + (version "0.16") + (source + (origin + (method url-fetch) + (uri (string-append "https://bitbucket.org/odedevs/ode/downloads/" + "ode-" version ".tar.gz")) + (sha256 + (base32 "09xzrarxwxcf6rdv5jsjfjh454jnn29dpcw3wh6ic50kkipvg8sb")) + (modules '((guix build utils))) + (snippet + '(begin + (delete-file-recursively "libccd") + #t)))) + (build-system cmake-build-system) + (arguments + `(#:configure-flags '("-DODE_WITH_LIBCCD_SYSTEM=ON") + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'unbundle-libccd + (lambda _ + (substitute* "CMakeLists.txt" + (("configure_file\\(libccd/.*") "")) + #t))))) + (inputs + `(("glu" ,glu) + ("libccd" ,libccd) + ("mesa" ,mesa))) + (home-page "http://www.ode.org/") + (synopsis "High performance library for simulating rigid body dynamics") + (description "ODE is a high performance library for simulating +rigid body dynamics. It is fully featured, stable, mature and +platform independent with an easy to use C/C++ API. It has advanced +joint types and integrated collision detection with friction. ODE is +useful for simulating vehicles, objects in virtual reality +environments and virtual creatures. It is currently used in many +computer games, 3D authoring tools and simulation tools.") + ;; Software is dual-licensed. + (license (list license:lgpl2.1+ license:expat)))) diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm index 6e6490412d..9129a9eede 100644 --- a/gnu/packages/games.scm +++ b/gnu/packages/games.scm @@ -24,7 +24,7 @@ ;;; Copyright © 2016 Steve Webber <webber.sl@gmail.com> ;;; Copyright © 2017 Adonay "adfeno" Felipe Nogueira <https://libreplanet.org/wiki/User:Adfeno> <adfeno@hyperbola.info> ;;; Copyright © 2017, 2018 Arun Isaac <arunisaac@systemreboot.net> -;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017, 2019 nee <nee-git@hidamari.blue> ;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org> ;;; Copyright © 2017, 2019 Marius Bakke <mbakke@fastmail.com> @@ -37,7 +37,7 @@ ;;; Copyright © 2018 Benjamin Slade <slade@jnanam.net> ;;; Copyright © 2018 Alex Vong <alexvong1995@gmail.com> ;;; Copyright © 2019 Pierre Neidhardt <mail@ambrevar.xyz> -;;; Copyright © 2019 Oleg Pykhalov <go.wigust@gmail.com> +;;; Copyright © 2019, 2020 Oleg Pykhalov <go.wigust@gmail.com> ;;; Copyright © 2019 Pierre Langlois <pierre.langlois@gmx.com> ;;; Copyright © 2019 Julien Lepiller <julien@lepiller.eu> ;;; Copyright © 2019 Jesse Gibbons <jgibbons2357+guix@gmail.com> @@ -3747,7 +3747,7 @@ with the \"Stamp\" tool within Tux Paint.") (define-public supertux (package (name "supertux") - (version "0.6.0") + (version "0.6.1") (source (origin (method url-fetch) (uri (string-append "https://github.com/SuperTux/supertux/" @@ -3756,7 +3756,7 @@ with the \"Stamp\" tool within Tux Paint.") (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 - "1h1s4abirkdv4ag22zvyk6zkk64skqbjmcnnba67ps4hdzxfbhy4")) + "0lqch5gcq6ccnspy93z9r13bp8w2j1vrd8jhvk5kp4qhrd1f069s")) (patches (search-patches "supertux-unbundle-squirrel.patch")))) (arguments @@ -3789,11 +3789,11 @@ with the \"Stamp\" tool within Tux Paint.") ("boost" ,boost) ("freetype" ,freetype) ("squirrel" ,squirrel))) - (native-inputs `(("pkg-config" ,pkg-config))) + (native-inputs + `(("pkg-config" ,pkg-config))) (synopsis "2D platformer game") - (description "SuperTux is a free classic 2D jump'n run sidescroller game -in a style similar to the original Super Mario games covered under -the GNU GPL.") + (description "SuperTux is a classic 2D jump'n run sidescroller game in +a style similar to the original Super Mario games.") (home-page "https://supertux.org/") (license license:gpl3+))) @@ -4144,7 +4144,7 @@ for Un*x systems with X11.") (define-public freeciv (package (name "freeciv") - (version "2.6.0") + (version "2.6.1") (source (origin (method url-fetch) @@ -4156,8 +4156,7 @@ for Un*x systems with X11.") (version-major+minor version) "/" version "/freeciv-" version ".tar.bz2"))) (sha256 - (base32 - "16f9wsnn7073s6chzbm3819swd0iw019p9nrzr3diiynk28kj83w")))) + (base32 "1qmrhrwm0ryvsh1zsxcxj128lhyvaxap7k39sam3hh8rl0fq9rnc")))) (build-system gnu-build-system) (inputs `(("curl" ,curl) @@ -4168,11 +4167,11 @@ for Un*x systems with X11.") (native-inputs `(("pkg-config" ,pkg-config))) (home-page "http://www.freeciv.org/") - (synopsis "Turn based empire building strategy game") - (description "Freeciv is a turn based empire building strategy game + (synopsis "Turn-based empire building strategy game") + (description "Freeciv is a turn-based empire building strategy game inspired by the history of human civilization. The game commences in prehistory and your mission is to lead your tribe from the Stone Age -to the Space Age.") +into the Space Age.") (license license:gpl2+))) (define-public no-more-secrets @@ -4581,7 +4580,9 @@ settings.link.libs:Add(\"wavpack\")") (let* ((arch ,(system->linux-architecture (or (%current-target-system) (%current-system)))) - (build (string-append "build/" arch "/release/")) + (build (string-append "build/" (if (string=? arch "i386") + "x86" arch) + "/release/")) (data-built (string-append build "data/")) (out (assoc-ref outputs "out")) (bin (string-append out "/bin/")) @@ -5182,7 +5183,7 @@ Crowther & Woods, its original authors, in 1995. It has been known as (define-public tome4 (package (name "tome4") - (version "1.6.4") + (version "1.6.6") (synopsis "Single-player, RPG roguelike game set in the world of Eyal") (source (origin @@ -5191,7 +5192,7 @@ Crowther & Woods, its original authors, in 1995. It has been known as version ".tar.bz2")) (sha256 (base32 - "1hrh79aqmvwwd7idlr3lzpdpc9dgm1k5p7w2462chcjvd8vhfhb7")) + "1amx0y49scy9hq71wjvkdzvgclwa2g54vkv4bf40mxyp4pl0bq7m")) (modules '((guix build utils))) (snippet '(begin @@ -5250,11 +5251,11 @@ Crowther & Woods, its original authors, in 1995. It has been known as (wrapper (string-append bin "/" ,name))) ;; icon (mkdir-p pixmaps) - (system* unzip "-j" - (string-append - "game/engines/te4-" ,version ".teae") - (string-append - "data/gfx/" icon) "-d" pixmaps) + (invoke unzip "-j" + (string-append + "game/engines/te4-" ,version ".teae") + (string-append + "data/gfx/" icon) "-d" pixmaps) ;; game executable (install-file "t-engine" data) (mkdir-p bin) @@ -7465,7 +7466,7 @@ and bring the war to your enemy.") (define-public harmonist (package (name "harmonist") - (version "0.2") + (version "0.3.0") (source (origin (method git-fetch) (uri (git-reference @@ -7474,7 +7475,7 @@ and bring the war to your enemy.") (file-name (git-file-name name version)) (sha256 (base32 - "0hqy9kqwgirwkq1v3vj1hp9m93hjvdj4nxcfbjfvvwk2bbzri3s2")))) + "146wiyanag0zqj6fhyll2sw6sydnnll8mgxhhqf9sjqsl2rx4s5r")))) (build-system go-build-system) (arguments '(#:import-path "git.tuxfamily.org/harmonist/harmonist")) diff --git a/gnu/packages/geo.scm b/gnu/packages/geo.scm index 8e8e6dbe3b..32cdc2b53a 100644 --- a/gnu/packages/geo.scm +++ b/gnu/packages/geo.scm @@ -11,6 +11,7 @@ ;;; Copyright © 2019 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2019 Wiktor Żelazny <wzelazny@vurv.cz> ;;; Copyright © 2019 Hartmut Goebel <h.goebel@crazy-compilers.com> +;;; Copyright © 2020 Marius Bakke <mbakke@fastmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -252,12 +253,14 @@ and driving.") (inputs `(("libjpeg-turbo" ,libjpeg-turbo) ("libtiff" ,libtiff) - ("proj" ,proj) ("zlib" ,zlib))) + (propagated-inputs + `(;; libgeotiff headers include proj headers, so ensure those are available. + ("proj" ,proj))) (arguments `(#:configure-flags - (list (string-append "--with-zlib") - (string-append "--with-jpeg") + (list "--disable-static" + "--with-zlib" "--with-jpeg" (string-append "--with-libtiff=" (assoc-ref %build-inputs "libtiff"))))) (synopsis "Library for handling GeoTIFF (geographic enabled TIFF)") (description "libgeotiff is a library on top of libtiff for reading and diff --git a/gnu/packages/gl.scm b/gnu/packages/gl.scm index 63e12efe06..077b009688 100644 --- a/gnu/packages/gl.scm +++ b/gnu/packages/gl.scm @@ -42,6 +42,7 @@ #:use-module (gnu packages image) #:use-module (gnu packages linux) #:use-module (gnu packages llvm) + #:use-module (gnu packages mono) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) #:use-module (gnu packages python-xyz) @@ -229,7 +230,7 @@ also known as DXTn or DXTC) for Mesa.") (define-public mesa (package (name "mesa") - (version "19.2.1") + (version "19.2.7") (source (origin (method url-fetch) @@ -241,10 +242,9 @@ also known as DXTn or DXTC) for Mesa.") version "/mesa-" version ".tar.xz"))) (sha256 (base32 - "1s81kwcjkkahnf5y5mshmd3q9j057hhsai7awpq6yb6im2hkriac")) + "17jp8ghipgz62vqqz5llskxypkcmgf8gnlgnj0pyvnbgi6vryyg3")) (patches - (search-patches "mesa-skip-disk-cache-test.patch" - "mesa-timespec-test-32bit.patch")))) + (search-patches "mesa-skip-disk-cache-test.patch")))) (build-system meson-build-system) (propagated-inputs `(;; The following are in the Requires.private field of gl.pc. @@ -604,7 +604,7 @@ OpenGL graphics API.") (define-public libepoxy (package (name "libepoxy") - (version "1.5.3") + (version "1.5.4") (source (origin (method url-fetch) (uri (string-append @@ -612,7 +612,7 @@ OpenGL graphics API.") version "/libepoxy-" version ".tar.xz")) (sha256 (base32 - "0ga3qjv50x37my6pw5xr14g5n6z78hy5s8s06kays8c3ab2mha80")))) + "1ll9fach4v30dsyd47s5ial4gaiwihzr2afb77vxxzzy3mlcrlhb")))) (arguments `(#:phases (modify-phases %standard-phases @@ -889,3 +889,41 @@ the shaders at runtime.") (description "This is the last version of the mojoshader library with the glProgramViewportFlip before it was replaced with glProgramViewportInfo.") (license license:zlib)))) + +(define-public mojoshader-cs + (let ((commit "10d0dba21ff1cfe332eb7de328a2adce01286bd7")) + (package + (name "mojoshader-cs") + (version (git-version "20191205" "1" commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/FNA-XNA/MojoShader") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "11mdhf3fmb9rsn2iv753gmb596j4dh5j2iipgw078vg0lj23rml7")))) + (build-system gnu-build-system) + (arguments + '(#:tests? #f ; No tests. + #:phases + (modify-phases %standard-phases + (delete 'configure) + (replace 'build + (lambda _ + (invoke "make" "-C" "csharp"))) + (replace 'install + (lambda* (#:key outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out"))) + (install-file "csharp/bin/MojoShader-CS.dll" (string-append out "/lib")) + #t)))))) + (native-inputs + `(("mono" ,mono))) + (home-page "https://github.com/FNA-XNA/MojoShader") + (synopsis "C# wrapper for MojoShader") + (description + "Mojoshader-CS provides C# bindings for the Mojoshader library. +The C# wrapper was written to be used for FNA's platform support. However, this +is written in a way that can be used for any general C# application.") + (license license:zlib)))) diff --git a/gnu/packages/glib.scm b/gnu/packages/glib.scm index 369bd373ac..2e7f436560 100644 --- a/gnu/packages/glib.scm +++ b/gnu/packages/glib.scm @@ -903,6 +903,7 @@ programming language. It also contains the utility (uri (string-append "https://people.freedesktop.org/~hughsient/" "appstream-glib/releases/" "appstream-glib-" version ".tar.xz")) + (patches (search-patches "appstream-glib-2020.patch")) (sha256 (base32 "14jr1psx5kxywdprgbqn79w309yz8lrqlsq7288hfrf87gbr1wh4")))) diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm index d492739df5..57c18997e4 100644 --- a/gnu/packages/gnome.scm +++ b/gnu/packages/gnome.scm @@ -21,7 +21,7 @@ ;;; Copyright © 2016 Alex Griffin <a@ajgrf.com> ;;; Copyright © 2016, 2017 ng0 <ng0@n0.is> ;;; Copyright © 2016 David Craven <david@craven.ch> -;;; Copyright © 2016, 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2016, 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be> ;;; Copyright © 2017 Hartmut Goebel <h.goebel@crazy-compilers.com> ;;; Copyright © 2017, 2018 nee <nee-git@hidamari.blue> @@ -45,6 +45,7 @@ ;;; Copyright © 2019 Raghav Gururajan <raghavgururajan@disroot.org> ;;; Copyright © 2019 Jonathan Brielmaier <jonathan.brielmaier@web.de> ;;; Copyright © 2019 Leo Prikler <leo.prikler@student.tugraz.at> +;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -246,6 +247,146 @@ Desktop. It is designed to be as simple as possible and has some unique features to enable users to create their discs easily and quickly.") (license license:gpl2+))) +(define-public gnome-color-manager + (package + (name "gnome-color-manager") + (version "3.32.0") + (source (origin + (method url-fetch) + (uri (string-append "mirror://gnome/sources/" name "/" + (version-major+minor version) "/" + name "-" version ".tar.xz")) + (sha256 + (base32 + "1vpxa2zjz3lkq9ldjg0fl65db9s6b4kcs8nyaqfz3jygma7ifg3w")))) + (build-system meson-build-system) + (arguments + `(#:glib-or-gtk? #t + #:phases + (modify-phases %standard-phases + (add-before + 'check 'pre-check + (lambda _ + ;; Tests require a running X server. + (system "Xvfb :1 &") + (setenv "DISPLAY" ":1") + #t))))) + (native-inputs + `(("desktop-file-utils" ,desktop-file-utils) + ("gettext" ,gettext-minimal) + ("glib:bin" ,glib "bin") + ("gtk+:bin" ,gtk+ "bin") + ("itstool" ,itstool) + ("pkg-config" ,pkg-config) + ("xorg-server" ,xorg-server-for-tests))) + (inputs + `(("adwaita-icon-theme" ,adwaita-icon-theme) + ("appstream-glib" ,appstream-glib) + ("colord-gtk" ,colord-gtk) + ("exiv2" ,exiv2) + ("gnome-desktop" ,gnome-desktop) + ("libcanberra" ,libcanberra) + ("libexif" ,libexif) + ("libtiff" ,libtiff) + ("libxrandr" ,libxrandr) + ("libxtst" ,libxtst) + ("libxxf86vm" ,libxxf86vm) + ("vte" ,vte) + ("xorgproto" ,xorgproto))) + (synopsis "Color profile manager for the GNOME desktop") + (description "GNOME Color Manager is a session framework that makes +it easy to manage, install and generate color profiles +in the GNOME desktop.") + (home-page "https://gitlab.gnome.org/GNOME/gnome-color-manager") + (license license:gpl2))) + +(define-public gnome-online-miners + (package + (name "gnome-online-miners") + (version "3.30.0") + (source (origin + (method url-fetch) + (uri (string-append "mirror://gnome/sources/" name "/" + (version-major+minor version) "/" + name "-" version ".tar.xz")) + (sha256 + (base32 + "0pjamwwzn5wqgihyss357dyl2q70r0bngnqmwsqawchx5f9aja9c")))) + (build-system glib-or-gtk-build-system) + (native-inputs + `(("gettext" ,gettext-minimal) + ("glib:bin" ,glib "bin") + ("gobject-introspection" ,gobject-introspection) + ("gtk+:bin" ,gtk+ "bin") + ("pkg-config" ,pkg-config))) + (inputs + `(("gnome-online-accounts" ,gnome-online-accounts) + ("gnome-online-accounts:lib" ,gnome-online-accounts "lib") + ("grilo" ,grilo) + ("libgdata" ,libgdata) + ("libgfbgraph" ,gfbgraph) + ("libzapojit" ,libzapojit) + ("rest" ,rest) + ("tracker" ,tracker))) + (synopsis "Web Crawlers for GNOME") + (description "GNOME Online Miners provides a set of crawlers that +go through your online content and index them locally in Tracker. +It has miners for Facebook, Flickr, Google, ownCloud and SkyDrive.") + (home-page "https://wiki.gnome.org/Projects/GnomeOnlineMiners") + (license license:gpl2))) + +(define-public libmediaart + (package + (name "libmediaart") + (version "1.9.4") + (source (origin + (method url-fetch) + (uri (string-append "mirror://gnome/sources/" name "/" + (version-major+minor version) "/" + name "-" version ".tar.xz")) + (sha256 + (base32 + "0gc10imyabk57ar54m0qzms0x9dnmkymhkzyk8w1aj3y4lby0yx5")))) + (build-system gnu-build-system) + (native-inputs + `(("glib:bin" ,glib "bin") + ("pkg-config" ,pkg-config))) + (inputs + `(("gdk-pixbuf" ,gdk-pixbuf) + ("gettext" ,gettext-minimal) + ("gobject-introspection" ,gobject-introspection) + ("gtk+:doc", gtk+ "doc") + ("vala" ,vala))) + (synopsis "Media art library for the GNOME desktop") + (description + "The libmediaart library is the foundation for media art caching, +extraction, and lookup for applications on the desktop.") + (home-page "https://gitlab.gnome.org/GNOME/libmediaart") + (license license:lgpl2.1+))) + +(define-public gnome-menus + (package + (name "gnome-menus") + (version "3.32.0") + (source (origin + (method url-fetch) + (uri (string-append "mirror://gnome/sources/gnome-menus/" + (version-major+minor version) "/" + name "-" version ".tar.xz")) + (sha256 + (base32 + "0x2blzqrapmbsbfzxjcdcpa3vkw9hq5k96h9kvjmy9kl415wcl68")))) + (build-system gnu-build-system) + (native-inputs + `(("gettext" ,gettext-minimal) + ("glib" ,glib) + ("pkg-config" ,pkg-config))) + (synopsis "Menu support for GNOME desktop") + (description "GNOME Menus contains the libgnome-menu library, the layout +configuration files for the GNOME menu, as well as a simple menu editor.") + (home-page "https://gitlab.gnome.org/GNOME/gnome-menus") + (license license:gpl2))) + (define-public deja-dup (package (name "deja-dup") @@ -323,6 +464,60 @@ uses duplicity as the backend, which supports incremental backups and storage either on a local, or remote machine via a number of methods.") (license license:gpl3+))) +(define-public gnome-user-docs + (package + (name "gnome-user-docs") + (version "3.32.3") + (source + (origin + (method url-fetch) + (uri (string-append "mirror://gnome/sources/gnome-user-docs/" + (version-major+minor version) + "/gnome-user-docs-" version ".tar.xz")) + (sha256 + (base32 "0dvsl0ldg8rf7yq0r4dv1pn41s7gjgcqp7agkbflkbmhrl6vbhig")))) + (build-system gnu-build-system) + (native-inputs + `(("gettext" ,gettext-minimal) + ("itstool" ,itstool) + ("pkg-config" ,pkg-config) + ("xmllint" ,libxml2))) + (synopsis "User documentation for the GNOME desktop") + (description + "The GNOME User Documentation explains how to use the GNOME desktop and its +components. It covers usage and setup of the core GNOME programs by end-users +and system administrators.") + (home-page "https://live.gnome.org/DocumentationProject") + (license license:cc-by3.0))) + +(define-public gnome-getting-started-docs + (package + (name "gnome-getting-started-docs") + (version "3.32.2") + (source + (origin + (method url-fetch) + (uri (string-append "mirror://gnome/sources/gnome-getting-started-docs/" + (version-major+minor version) + "/gnome-getting-started-docs-" version ".tar.xz")) + (sha256 + (base32 "1v4k465mlzrhgcdddzs6bmm0yliyrfx6jg3gh0s17a08i0w5rbwq")))) + (build-system gnu-build-system) + (native-inputs + `(("gettext" ,gettext-minimal) + ("itstool" ,itstool) + ("pkg-config" ,pkg-config) + ("xmllint" ,libxml2))) + (synopsis "Help to get new users started with the GNOME desktop") + (description + "The GNOME Getting Started Documentation contains GNOME's intuitive +\"Getting Started\" tour, with video guides, that can be viewed with Yelp. + +It is normally used together with @command{gnome-initial-setup}, but is also +useful as a tutorial and users' guide for new or less experienced users.") + (home-page "https://live.gnome.org/DocumentationProject") + (license license:cc-by-sa3.0))) + (define-public dia ;; This version from GNOME's repository includes fixes for compiling with ;; recent versions of the build tools. The latest activity on the @@ -471,7 +666,18 @@ to other formats.") (base32 "08cwz39iwgsyyb2wqhb8vfbmh1cwfkgfiy7adp08w7rwqi99x3dp")))) (build-system meson-build-system) - (arguments '(#:glib-or-gtk? #t)) + (arguments + `(#:glib-or-gtk? #t + #:phases (modify-phases %standard-phases + (add-after 'install 'wrap + (lambda* (#:key outputs #:allow-other-keys) + ;; GNOME Characters needs Typelib files from GTK and + ;; gnome-desktop. + (wrap-program (string-append (assoc-ref outputs "out") + "/bin/gnome-characters") + `("GI_TYPELIB_PATH" ":" prefix + (,(getenv "GI_TYPELIB_PATH")))) + #t))))) (native-inputs `(("gettext" ,gettext-minimal) ("glib:bin" ,glib "bin") @@ -481,7 +687,8 @@ to other formats.") (inputs `(("gjs" ,gjs) ("gtk+" ,gtk+) - ("libunistring" ,libunistring))) + ("libunistring" ,libunistring) + ("gnome-desktop" ,gnome-desktop))) (home-page "https://wiki.gnome.org/Apps/CharacterMap") (synopsis "Find and insert unusual characters") (description "Characters is a simple utility application to find @@ -926,15 +1133,15 @@ forgotten when the session ends.") (define-public evince (package (name "evince") - (version "3.34.1") + (version "3.34.2") (source (origin (method url-fetch) - (uri (string-append "mirror://gnome/sources/" name "/" + (uri (string-append "mirror://gnome/sources/evince/" (version-major+minor version) "/" - name "-" version ".tar.xz")) + "evince-" version ".tar.xz")) (sha256 (base32 - "1pr6fvbaam1mzxjwyqd53hcxzdjzf73idn10j4j7n54nwg6hgr45")))) + "05q6v9lssd21623mnj2p49clj9v9csw9kay7n4nklki025grbh1w")))) (build-system glib-or-gtk-build-system) (arguments `(#:configure-flags '("--disable-nautilus") @@ -1174,16 +1381,16 @@ database is translated at Transifex.") (define-public system-config-printer (package (name "system-config-printer") - (version "1.5.11") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/zdohnal/system-config-printer/releases/" - "download/" version - "/system-config-printer-" version ".tar.xz")) - (sha256 - (base32 - "1lq0q51bhanirpjjvvh4xiafi8hgpk8r32h0dj6dn3f32z8pib9q")))) + (version "1.5.12") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/OpenPrinting/system-config-printer/releases/" + "download/" version + "/system-config-printer-" version ".tar.xz")) + (sha256 + (base32 "050yrx1vfh9f001qsn06y1jcidxq0ymxr64kxykasr0zzryp25kb")))) (build-system glib-or-gtk-build-system) (arguments `(#:imported-modules ((guix build python-build-system) @@ -3471,10 +3678,9 @@ keyboard shortcuts.") #t)))))) (native-inputs `(("glib:bin" ,glib "bin") ; for glib-compile-resources, etc. + ("gettext" ,gettext-minimal) ("gobject-introspection" ,gobject-introspection) ("gtk-doc" ,gtk-doc) - ("intltool" ,intltool) - ("libtool" ,libtool) ("pkg-config" ,pkg-config) ("vala" ,vala))) (propagated-inputs @@ -3594,15 +3800,14 @@ faster results and to avoid unnecessary server load.") (define-public upower (package (name "upower") - (version "0.99.10") + (version "0.99.11") (source (origin (method url-fetch) - (uri (string-append "https://gitlab.freedesktop.org/upower/upower/" - "uploads/c438511024b9bc5a904f8775cfc8e4c4/" + (uri (string-append "https://upower.freedesktop.org/releases/" "upower-" version ".tar.xz")) (sha256 (base32 - "17d2bclv5fgma2y3g8bsn9pdvspn1zrzismzdnzfivc0f2wm28k4")) + "1vxxvmz2cxb1qy6ibszaz5bskqdy9nd9fxspj9fv3gfmrjzzzdb4")) (patches (search-patches "upower-builddir.patch")))) (build-system glib-or-gtk-build-system) (arguments @@ -5200,15 +5405,15 @@ share them with others via social networking and more.") (define-public file-roller (package (name "file-roller") - (version "3.32.2") + (version "3.32.3") (source (origin (method url-fetch) - (uri (string-append "mirror://gnome/sources/" name "/" + (uri (string-append "mirror://gnome/sources/file-roller/" (version-major+minor version) "/" - name "-" version ".tar.xz")) + "file-roller-" version ".tar.xz")) (sha256 (base32 - "0w8s6hakgsvb2nqwbv0lr8ki4cbf1pz5z3qwkb0b2k7ppbh7j2n6")))) + "0ap2hxvjljh4p6wsd9ikh2my3vsxp9r2nvjxxj3v87nwfyw1y4dy")))) (build-system meson-build-system) (native-inputs `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database @@ -7194,8 +7399,9 @@ associations for GNOME.") (propagated-inputs ;; TODO: Add or remove packages according to: ;; <https://calc.disroot.org/2nu6mpf88ynq.html>. + `( ;; GNOME-Core-OS-Services - `(("accountsservice" ,accountsservice) + ("accountsservice" ,accountsservice) ("network-manager" ,network-manager) ("packagekit" ,packagekit) ("upower" ,upower) @@ -7207,12 +7413,15 @@ associations for GNOME.") ("gnome-bluetooth" ,gnome-bluetooth) ("gnome-control-center" ,gnome-control-center) ("gnome-desktop" ,gnome-desktop) + ("gnome-getting-started-docs" ,gnome-getting-started-docs) ("gnome-keyring" ,gnome-keyring) + ("gnome-menus" ,gnome-menus) ("gnome-session" ,gnome-session) ("gnome-settings-daemon" ,gnome-settings-daemon) ("gnome-shell-extensions" ,gnome-shell-extensions) ("gnome-shell" ,gnome-shell) ("gnome-themes-extra" ,gnome-themes-extra) + ("gnome-user-docs" ,gnome-user-docs) ("gsettings-desktop-schemas" ,gsettings-desktop-schemas) ("gvfs" ,gvfs) ("mutter" ,mutter) @@ -7239,7 +7448,10 @@ associations for GNOME.") ("nautilus" ,nautilus) ("simple-scan" ,simple-scan) ("totem" ,totem) - ("yelp" ,yelp))) + ("yelp" ,yelp) + ;; Others + ("hicolor-icon-theme" ,hicolor-icon-theme) + ("gnome-online-accounts" ,gnome-online-accounts))) (synopsis "The GNU desktop environment") (home-page "https://www.gnome.org/") (description diff --git a/gnu/packages/gnucash.scm b/gnu/packages/gnucash.scm index af017e108d..8050fee43e 100644 --- a/gnu/packages/gnucash.scm +++ b/gnu/packages/gnucash.scm @@ -37,6 +37,7 @@ #:use-module (gnu packages databases) #:use-module (gnu packages docbook) #:use-module (gnu packages documentation) + #:use-module (gnu packages gettext) #:use-module (gnu packages gnome) #:use-module (gnu packages gnupg) #:use-module (gnu packages glib) @@ -56,15 +57,15 @@ ;; directory. (package (name "gnucash") - (version "3.7") + (version "3.8") (source (origin (method url-fetch) (uri (string-append "mirror://sourceforge/gnucash/gnucash%20%28stable%29/" - version "/gnucash-" version ".tar.bz2")) + version "/gnucash-" version "b" ".tar.bz2")) (sha256 (base32 - "1d2qi3ny0bxa16ifh3465z1jgn1l0fmqk9dkph4ialw076gv13kb")))) + "0dvzm3bib7jcj685sklpzyy9mrak9mxyvih2k9fk4sl3v21wlphg")))) (build-system cmake-build-system) (inputs `(("guile" ,guile-2.2) @@ -207,7 +208,7 @@ installed as well as Yelp, the Gnome help browser.") version "/gnucash-docs-" version revision ".tar.gz")) (sha256 (base32 - "1h4hm58ikffbhplx4gm8pzm9blfwqa1sz8yc2fqi21vs5v0ijf9r")))) + "19v6kchda724xkkgwlw5rg21jcpirhch12j9sr6ibnv61sd4ql52")))) (build-system gnu-build-system) ;; These are native-inputs because they are only required for building the ;; documentation. @@ -231,14 +232,14 @@ to be read using the GNOME Yelp program.") (define-public gwenhywfar (package (name "gwenhywfar") - (version "4.20.2") + (version "4.99.25rc9") (source (origin (method url-fetch) (uri (string-append "https://www.aquamaniac.de/rdm/attachments/" - "download/108/gwenhywfar-" version ".tar.gz")) + "download/223/gwenhywfar-" version ".tar.gz")) (sha256 - (base32 "0w1j7ppr1247kr3bpn4dqwyxp6cl8mfgr0m4782iz8f8a4ixjkqg")))) + (base32 "14ws780zfyv9qg41z42hlk8sh31w80w3v8n5riaslqhvvxqbfgkq")))) (build-system gnu-build-system) (arguments `(#:configure-flags @@ -268,22 +269,19 @@ applications and libraries. It is used by AqBanking.") (define-public aqbanking (package (name "aqbanking") - (version "5.8.1") + (version "5.99.44beta") (source (origin (method url-fetch) (uri (string-append "https://www.aquamaniac.de/rdm/attachments/" - "download/105/aqbanking-" version ".tar.gz")) + "download/224/aqbanking-" version ".tar.gz")) (sha256 - (base32 "0m44n2hyxprxzq7ijkrd7rmhhl0r033s1k21ix9y67a0p9skl1mg")))) + (base32 "1cgj8g3wy53galp9pk50a85w0kmwfx3dwl93cbvq6sqb9izxmwdb")))) (build-system gnu-build-system) (arguments `(;; Parallel building fails because aqhbci is required before it's ;; built. - #:parallel-build? #f - #:configure-flags - (list (string-append "--with-gwen-dir=" - (assoc-ref %build-inputs "gwenhywfar"))))) + #:parallel-build? #f)) (propagated-inputs `(("gwenhywfar" ,gwenhywfar))) (inputs @@ -292,6 +290,7 @@ applications and libraries. It is used by AqBanking.") ("gnutls" ,gnutls))) (native-inputs `(("pkg-config" ,pkg-config) + ("gettext-minimal", gettext-minimal) ("libltdl" ,libltdl))) (home-page "https://www.aquamaniac.de/sites/aqbanking/index.php") (synopsis "Interface for online banking tasks") diff --git a/gnu/packages/gnuzilla.scm b/gnu/packages/gnuzilla.scm index d5d9839e1a..62b4390eab 100644 --- a/gnu/packages/gnuzilla.scm +++ b/gnu/packages/gnuzilla.scm @@ -70,7 +70,7 @@ #:use-module (gnu packages gl) #:use-module (gnu packages assembly) #:use-module (gnu packages rust) - #:use-module (gnu packages rust-cbindgen) + #:use-module (gnu packages rust-apps) #:use-module (gnu packages llvm) #:use-module (gnu packages nss) #:use-module (gnu packages icu4c) @@ -550,8 +550,8 @@ from forcing GEXP-PROMISE." #:system system #:guile-for-build guile))) -(define %icecat-version "68.3.0-guix0-preview1") -(define %icecat-build-id "20191204000000") ;must be of the form YYYYMMDDhhmmss +(define %icecat-version "68.4.1-guix0-preview1") +(define %icecat-build-id "20200108000000") ;must be of the form YYYYMMDDhhmmss ;; 'icecat-source' is a "computed" origin that generates an IceCat tarball ;; from the corresponding upstream Firefox ESR tarball, using the 'makeicecat' @@ -573,11 +573,11 @@ from forcing GEXP-PROMISE." "firefox-" upstream-firefox-version ".source.tar.xz")) (sha256 (base32 - "0sfwp9vyjizj1lkvj6z51r85dl41q3l8380fkdyqdbp7f2d18cg1")))) + "0q7kv70w1d33m12hkzyay6nkgvz9qczrl6hqx0n1c6grs097f2m0")))) - (upstream-icecat-base-version "68.3.0") ; maybe older than base-version + (upstream-icecat-base-version "68.4.1") ; maybe older than base-version ;;(gnuzilla-commit (string-append "v" upstream-icecat-base-version)) - (gnuzilla-commit "85e99badac11983f6d50b0d9942f66a30f55b8e5") + (gnuzilla-commit "2d1b1bc45fdae5a99c4e8ea25593ebb9c8d7bfdf") (gnuzilla-source (origin (method git-fetch) @@ -589,7 +589,7 @@ from forcing GEXP-PROMISE." (string-take gnuzilla-commit 8))) (sha256 (base32 - "00mb734yvm0r7i64mbg7hvrvhbwkcii9f9hjgwi37aizd9k0n78a")))) + "0hc9sx3yb71xvr9s1p0z5fx8jfqpssb8wz0h2nzhy2nyp9bb2jzl")))) (makeicecat-patch (local-file (search-patch "icecat-makeicecat.patch")))) diff --git a/gnu/packages/golang.scm b/gnu/packages/golang.scm index 76b93c0d14..f94251abaf 100644 --- a/gnu/packages/golang.scm +++ b/gnu/packages/golang.scm @@ -1128,33 +1128,31 @@ incoming requests with their respective handler.") (license license:asl2.0)))) (define-public go-github-com-spf13-pflag - (let ((commit "4f9190456aed1c2113ca51ea9b89219747458dc1") - (revision "0")) - (package - (name "go-github-com-spf13-pflag") - (version (git-version "0.0.0" revision commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/spf13/pflag.git") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "12vrlcsbwjqlfc49rwky45mbcj74c0kb6z54354pzas6fwzyi1kc")))) - (build-system go-build-system) - (arguments - '(#:import-path "github.com/spf13/pflag")) - (home-page "https://github.com/spf13/pflag") - (synopsis "Replacement for Go's @code{flag} package") - (description - "Pflag is library to replace Go's @code{flag} package. It implements + (package + (name "go-github-com-spf13-pflag") + (version "1.0.5") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/spf13/pflag.git") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0gpmacngd0gpslnbkzi263f5ishigzgh6pbdv9hp092rnjl4nd31")))) + (build-system go-build-system) + (arguments + '(#:import-path "github.com/spf13/pflag")) + (home-page "https://github.com/spf13/pflag") + (synopsis "Replacement for Go's @code{flag} package") + (description + "Pflag is library to replace Go's @code{flag} package. It implements POSIX/GNU-style command-line options with double hyphens. It is is compatible with the @uref{https://www.gnu.org/software/libc/manual/html_node/Argument-Syntax.html, GNU extensions} to the POSIX recommendations for command-line options.") - (license license:bsd-3)))) + (license license:bsd-3))) (define-public go-github-com-sirupsen-logrus (package @@ -3036,3 +3034,49 @@ on running processes and system utilization (CPU, memory, disks, network, sensors).") (home-page "https://github.com/shirou/gopsutil") (license license:bsd-3)))) + +(define-public go-github-com-fatih-color + (package + (name "go-github-com-fatih-color") + (version "1.8.0") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/fatih/color.git") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1zc0zlilf03h121f9jqq3ar0hfm7706547zysxp2qxbm920pz7h0")))) + (build-system go-build-system) + (arguments + '(#:import-path "github.com/fatih/color")) + (synopsis "Print colored text in Go") + (description "This package provides an ANSI color package to output +colorized or SGR defined output to the standard output.") + (home-page "https://godoc.org/github.com/fatih/color") + (license license:expat))) + +(define-public go-github-com-google-go-cmp-cmp + (package + (name "go-github-com-google-go-cmp-cmp") + (version "0.3.1") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/google/go-cmp.git") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1caw49i0plkjxir7kdf5qhwls3krqwfmi7g4h392rdfwi3kfahx1")))) + (build-system go-build-system) + (arguments + '(#:import-path "github.com/google/go-cmp/cmp" + #:unpack-path "github.com/google/go-cmp")) + (synopsis "Determine equality of values in Go") + (description "This package provides a more powerful and safer +alternative to @code{reflect.DeepEqual} for comparing whether two values +are semantically equal in Go (for writing tests).") + (home-page "https://godoc.org/github.com/google/go-cmp/cmp") + (license license:asl2.0))) diff --git a/gnu/packages/gprolog.scm b/gnu/packages/gprolog.scm deleted file mode 100644 index 166bf33294..0000000000 --- a/gnu/packages/gprolog.scm +++ /dev/null @@ -1,68 +0,0 @@ -;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2013 Nikita Karetnikov <nikita@karetnikov.org> -;;; Copyright © 2013 Mark H Weaver <mhw@netris.org> -;;; -;;; This file is part of GNU Guix. -;;; -;;; GNU Guix is free software; you can redistribute it and/or modify it -;;; under the terms of the GNU General Public License as published by -;;; the Free Software Foundation; either version 3 of the License, or (at -;;; your option) any later version. -;;; -;;; GNU Guix is distributed in the hope that it will be useful, but -;;; WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;;; GNU General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. - -(define-module (gnu packages gprolog) - #:use-module (guix download) - #:use-module (guix licenses) - #:use-module (guix packages) - #:use-module (guix build-system gnu) - #:use-module (srfi srfi-1)) - -(define-public gprolog - (package - (name "gprolog") - (version "1.4.5") - (source - (origin - (method url-fetch) - ;; Recent versions are not hosted on the GNU mirrors. - (uri (list (string-append "http://gprolog.org/gprolog-" version - ".tar.gz") - (string-append "mirror://gnu/gprolog/gprolog-" version - ".tar.gz"))) - (sha256 - (base32 - "0z4cc42n3k6i35b8mr816iwsvrpxshw6d7dgz6s2h1hy0l7g1p5z")))) - (build-system gnu-build-system) - (arguments - `(#:configure-flags - (list (string-append - "--with-install-dir=" %output "/share/gprolog")) - #:phases - (modify-phases %standard-phases - (add-before 'configure 'change-dir-n-fix-shells - (lambda _ - (chdir "src") - (substitute* "configure" - (("-/bin/sh") (string-append "-" (which "sh"))) - (("= /bin/sh") (string-append "= " (which "sh")))) - #t))))) - (home-page "https://www.gnu.org/software/gprolog/") - (synopsis "Prolog compiler") - (description - "GNU Prolog is a standards-compliant Prolog compiler with constraint -solving over finite domains. It accepts Prolog+ constraint programs and -produces a compiled, native binary which can function in a stand-alone -manner. It also features an interactive interpreter.") - (license (list gpl2+ lgpl3+)) - - ;; See 'configure' for the list of supported architectures. - (supported-systems (fold delete - %supported-systems - '("armhf-linux" "mips64el-linux"))))) diff --git a/gnu/packages/gstreamer.scm b/gnu/packages/gstreamer.scm index 51b9d8f11c..323e3ccfee 100644 --- a/gnu/packages/gstreamer.scm +++ b/gnu/packages/gstreamer.scm @@ -69,15 +69,14 @@ (define-public orc (package (name "orc") - (version "0.4.30") + (version "0.4.31") (source (origin (method url-fetch) (uri (string-append "https://gstreamer.freedesktop.org/data/src/" "orc/orc-" version ".tar.xz")) - (patches (search-patches "orc-typedef-enum.patch")) (sha256 (base32 - "0wj93im7i8a6546q2r8sp39yjfbxflkc0ygb0b8iqsd58qhvjhds")))) + "0xb0c7q3xv1ldmz5ipybazb01gy3cijj8622dcx7rbm9lq85zax0")))) (build-system meson-build-system) (arguments `(#:phases @@ -107,7 +106,7 @@ arrays of data.") (define-public gstreamer (package (name "gstreamer") - (version "1.16.1") + (version "1.16.2") (source (origin (method url-fetch) @@ -116,7 +115,7 @@ arrays of data.") version ".tar.xz")) (sha256 (base32 - "0z9pyhf6zm1r0spw6zym80bvbyx6h8xg9h6535csbnn48ws1q882")))) + "0kp93622y29pck8asvil1fmzf55s2gx76wv475a6izc3cwj49w73")))) (build-system gnu-build-system) (outputs '("out" "doc")) (arguments @@ -155,7 +154,7 @@ This package provides the core library and elements.") (define-public gst-plugins-base (package (name "gst-plugins-base") - (version "1.16.1") + (version "1.16.2") (source (origin (method url-fetch) @@ -163,7 +162,7 @@ This package provides the core library and elements.") name "-" version ".tar.xz")) (sha256 (base32 - "0aybbwnzm15074smdk2bamj3ssck3hjvmilvgh49f19xjf4w8g2w")))) + "0sl1hxlyq46r02k7z70v09vx1gi4rcypqmzra9jid93lzvi76gmi")))) (build-system gnu-build-system) (outputs '("out" "doc")) (propagated-inputs @@ -214,7 +213,7 @@ for the GStreamer multimedia library.") (define-public gst-plugins-good (package (name "gst-plugins-good") - (version "1.16.1") + (version "1.16.2") (source (origin (method url-fetch) @@ -223,7 +222,7 @@ for the GStreamer multimedia library.") name "-" version ".tar.xz")) (sha256 (base32 - "07wgz9anf4ram2snp8n1wv6l0q3pd00iaw8bvw3wgklg05lvxflz")))) + "068k3cbv1yf3gbllfdzqsg263kzwh21y8dpwr0wvgh15vapkpfs0")))) (build-system gnu-build-system) (inputs `(("aalib" ,aalib) @@ -277,23 +276,18 @@ developers consider to have good quality code and correct functionality.") (define-public gst-plugins-bad (package (name "gst-plugins-bad") - (version "1.16.1") + (version "1.16.2") (source (origin (method url-fetch) (uri (string-append "https://gstreamer.freedesktop.org/src/" name "/" name "-" version ".tar.xz")) (sha256 (base32 - "1dddqacxgp77f3nl153x5a6139wdphc9phds2fpqb2cv6faiqj2n")))) + "0x0y0hm0ga3zqi5q4090hw5sjh59y1ry9ak16qsaascm72i7mjzi")))) (outputs '("out" "doc")) (build-system gnu-build-system) (arguments '(#:tests? #f ; XXX: 13 of 53 tests fail - - ;; FIXME: OpenEXR 2.4.0 requires C++ 11 or later. Remove when the - ;; default compiler is >= GCC 5. - #:make-flags '("CXXFLAGS=-std=gnu++11") - #:configure-flags (list (string-append "--with-html-dir=" (assoc-ref %outputs "doc") @@ -357,7 +351,7 @@ par compared to the rest.") (define-public gst-plugins-ugly (package (name "gst-plugins-ugly") - (version "1.16.1") + (version "1.16.2") (source (origin (method url-fetch) @@ -365,7 +359,7 @@ par compared to the rest.") name "/" name "-" version ".tar.xz")) (sha256 (base32 - "07cajqjs8pqchpf2sm87hljx4ibwvkiavqxmacxsr5airar17yab")))) + "1jpvc32x6q01zjkfgh6gmq6aaikiyfwwnhj7bmvn52syhrdl202m")))) (build-system gnu-build-system) (inputs `(("gst-plugins-base" ,gst-plugins-base) @@ -392,7 +386,7 @@ distribution problems in some jurisdictions, e.g. due to patent threats.") (define-public gst-libav (package (name "gst-libav") - (version "1.16.1") + (version "1.16.2") (source (origin (method url-fetch) (uri (string-append @@ -400,7 +394,7 @@ distribution problems in some jurisdictions, e.g. due to patent threats.") name "-" version ".tar.xz")) (sha256 (base32 - "1i31ra0l77cfahb6k5xpx45zwvpskzm848aijsbbx9x4x65799g8")) + "1wpfilc98bad9nsv3y1qapxp35dvn2mvwvrmqwrsj58cf09gc967")) (modules '((guix build utils))) (snippet '(begin @@ -428,7 +422,7 @@ compression formats through the use of the libav library.") (define-public python-gst (package (name "python-gst") - (version "1.16.1") + (version "1.16.2") (source (origin (method url-fetch) (uri (string-append @@ -436,7 +430,7 @@ compression formats through the use of the libav library.") "gst-python-" version ".tar.xz")) (sha256 (base32 - "12bl6kc0ny2vyf6klas2bwqcv0pi55q9ns5zw261px16a6awhsdl")))) + "1a48ca66izmm8hnp608jv5isg3jxb0vlfmhns0bg9nbkilag7390")))) (build-system gnu-build-system) (arguments `(#:modules ((guix build gnu-build-system) diff --git a/gnu/packages/gtk.scm b/gnu/packages/gtk.scm index 0ab5c36ca1..37dc923ab5 100644 --- a/gnu/packages/gtk.scm +++ b/gnu/packages/gtk.scm @@ -89,7 +89,7 @@ (define-public atk (package (name "atk") - (version "2.32.0") + (version "2.34.1") (source (origin (method url-fetch) (uri (string-append "mirror://gnome/sources/" name "/" @@ -97,7 +97,7 @@ name "-" version ".tar.xz")) (sha256 (base32 - "1k4i817bd2w5b9z394f2yyx95591l2746wa40am0vvz4gzdgwhfb")))) + "1jwp16r6p5z66k4b2v8zlzhyshhwlmyi27ippkrgqr8jsary7w6l")))) (build-system meson-build-system) (propagated-inputs `(("glib" ,glib))) ; required by atk.pc (native-inputs @@ -580,7 +580,7 @@ in the GNOME project.") (define-public at-spi2-core (package (name "at-spi2-core") - (version "2.32.1") + (version "2.34.0") (source (origin (method url-fetch) (uri (string-append "mirror://gnome/sources/" name "/" @@ -588,7 +588,7 @@ in the GNOME project.") name "-" version ".tar.xz")) (sha256 (base32 - "0lqd7gsl471v6538iighkvb21gjglcb9pklvas32rjpsxcvsjaiw")))) + "1ihixwhh3c16q6253qj9gf69741rb2pi51822a4rylsfcyywsafn")))) (build-system meson-build-system) (outputs '("out" "doc")) (arguments @@ -649,7 +649,7 @@ is part of the GNOME accessibility project.") (define-public at-spi2-atk (package (name "at-spi2-atk") - (version "2.32.0") + (version "2.34.1") (source (origin (method url-fetch) (uri (string-append "mirror://gnome/sources/" name "/" @@ -657,7 +657,7 @@ is part of the GNOME accessibility project.") name "-" version ".tar.xz")) (sha256 (base32 - "0p54wx6f6q7s8w0b1j0sgw87pikllp79q5g3lfiwqazs779ycl8b")))) + "05ncp7s5nddjinffs26mcvpbd63vk1m3cv5y530p3plgfhqgjvbp")))) (build-system meson-build-system) (arguments '(#:phases @@ -755,7 +755,7 @@ application suites.") (define-public gtk+ (package (inherit gtk+-2) (name "gtk+") - (version "3.24.12") + (version "3.24.13") (source (origin (method url-fetch) (uri (string-append "mirror://gnome/sources/" name "/" @@ -763,7 +763,7 @@ application suites.") name "-" version ".tar.xz")) (sha256 (base32 - "10xyyhlfb0yk4hglngxh2zsv9xrxkqv343df8h01dvagc6jyp10k")) + "1a9hi7k59q0kqx0n3xhsk1ly23w9g9ncllnay1756g0yrww5qxsc")) (patches (search-patches "gtk3-respect-GUIX_GTK3_PATH.patch" "gtk3-respect-GUIX_GTK3_IM_MODULE_FILE.patch")))) (propagated-inputs diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm index 1faf0a5ecf..80ff00b23b 100644 --- a/gnu/packages/guile-xyz.scm +++ b/gnu/packages/guile-xyz.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2014, 2015, 2018 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2015, 2017 Christopher Allan Webber <cwebber@dustycloud.org> ;;; Copyright © 2016 Alex Sassmannshausen <alex@pompo.co> @@ -2492,7 +2492,7 @@ perform geometrical transforms on JPEG images.") (define-public nomad (package (name "nomad") - (version "0.1.1-alpha") + (version "0.1.2-alpha") (source (origin (method git-fetch) (uri (git-reference @@ -2501,7 +2501,7 @@ perform geometrical transforms on JPEG images.") (file-name (git-file-name name version)) (sha256 (base32 - "0abz07hl5dh802ciy71xzkvkhyryypq1i94wna40a2wndbd73f7z")))) + "1dnkr1hmvfkwgxd75dcf93pg39yfgawvdpzdhv991yhghv0qxc9h")))) (build-system gnu-build-system) (native-inputs `(("autoconf" ,autoconf) @@ -2510,7 +2510,9 @@ perform geometrical transforms on JPEG images.") ("pkg-config" ,pkg-config) ("libtool" ,libtool) ("guile" ,guile-2.2) - ("glib:bin" ,glib "bin"))) + ("glib:bin" ,glib "bin") + ("texinfo" ,texinfo) + ("perl" ,perl))) (inputs `(("guile" ,guile-2.2) ("guile-lib" ,guile-lib) @@ -2738,3 +2740,61 @@ tests being run, resulting clearer and more specific output.") comparing, and writing Semantic Versions. It also includes ranges in the style of the Node Package Manager (NPM).") (license license:gpl3+))) + +(define-public guile-hashing + (package + (name "guile-hashing") + (version "1.2.0") + (home-page "https://github.com/weinholt/hashing") + (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 + "1362d3lmpv7slmv1zmr9wy8panq9sjr9787gc2hagd646mpsfpkl")))) + (build-system guile-build-system) + (arguments + `(#:modules ((guix build guile-build-system) + (guix build utils) + (srfi srfi-26) + (ice-9 ftw)) + #:implicit-inputs? #f ;needs nothing but Guile + #:phases (modify-phases %standard-phases + (add-before 'build 'move-sls-files + (lambda _ + ;; Move the source under hashing/ in order to match + ;; module names, and rename .sls files to .scm. + (define (target file) + (string-append "hashing/" file)) + + (define (sls->scm sls) + (string-append (string-drop-right sls 4) + ".scm")) + + (mkdir "hashing") + (for-each (lambda (file) + (rename-file file (sls->scm file))) + (find-files "." "\\.sls$")) + (for-each (lambda (file) + (rename-file file (target file))) + (scandir "." (cut string-suffix? ".scm" <>))) + (rename-file "private" "hashing/private") + #t))))) + (native-inputs + `(("guile" ,guile-2.2))) + (synopsis "Cryprographic hash functions implemented in Scheme") + (description + "The @code{(hashing @dots{})} modules implement cryptographic hash +functions in pure R6RS Scheme: CRC, HMAC, MD5, SHA-1, and SHA-2 (SHA-256, +SHA-512).") + (license license:expat))) + +(define-public guile3.0-hashing + (package + (inherit guile-hashing) + (name "guile3.0-hashing") + (native-inputs + `(("guile" ,guile-next))))) diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm index 1f767e3b3d..c0743269fc 100644 --- a/gnu/packages/guile.scm +++ b/gnu/packages/guile.scm @@ -288,14 +288,14 @@ without requiring the source code to be rewritten.") (package (inherit guile-2.2) (name "guile-next") - (version "2.9.7") + (version "2.9.8") (source (origin (inherit (package-source guile-2.2)) (uri (string-append "ftp://alpha.gnu.org/gnu/guile/guile-" version ".tar.xz")) (sha256 (base32 - "1dskpj8a2gl3h8si4virq8z4y06v9ywyadfa92gn2fiip2qmkw0d")))) + "09icv9ymdb7hchn34c32s7x8ycilqj74mirmi4b3bm5zp1izd32a")))) (native-search-paths (list (search-path-specification (variable "GUILE_LOAD_PATH") diff --git a/gnu/packages/ham-radio.scm b/gnu/packages/ham-radio.scm index 9f0adca940..6b3f68cd7d 100644 --- a/gnu/packages/ham-radio.scm +++ b/gnu/packages/ham-radio.scm @@ -1,5 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2017, 2018, 2019 Arun Isaac <arunisaac@systemreboot.net> +;;; Copyright © 2019 Evan Straw <evan.straw99@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -36,15 +37,17 @@ (define-public rtl-sdr (package (name "rtl-sdr") - (version "0.5.3") + (version "0.6.0") (source (origin - (method url-fetch) - (uri (string-append "https://cgit.osmocom.org/rtl-sdr/snapshot/rtl-sdr-" - version ".tar.xz")) + (method git-fetch) + (uri (git-reference + (url "git://git.osmocom.org/rtl-sdr.git") + (commit version))) + (file-name (git-file-name name version)) (sha256 (base32 - "08awca3v28sa4lxym4r81pzf0la0j86wbmpyhv3xd53an9gkpjy9")))) + "0lmvsnb4xw4hmz6zs0z5ilsah5hjz29g1s0050n59fllskqr3b8k")))) (build-system cmake-build-system) (inputs `(("libusb" ,libusb))) diff --git a/gnu/packages/hardware.scm b/gnu/packages/hardware.scm index eb7471b681..dab49c7cc0 100644 --- a/gnu/packages/hardware.scm +++ b/gnu/packages/hardware.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; ;;; This file is part of GNU Guix. ;;; @@ -38,14 +38,14 @@ (define-public ddcutil (package (name "ddcutil") - (version "0.9.7") + (version "0.9.8") (source (origin (method url-fetch) (uri (string-append "https://www.ddcutil.com/tarballs/" "ddcutil-" version ".tar.gz")) (sha256 - (base32 "0lqc3fn5h7acfmbmyi8hpv2p6b4csfbx3lkhzy073s9x2zblrq3g")))) + (base32 "13ccxbqgyz4ah9jwbcylnfkgl8j3ida8xd00xkcq4xnfyyv5mg6v")))) (build-system gnu-build-system) (native-inputs `(("pkg-config" ,pkg-config))) diff --git a/gnu/packages/haskell-apps.scm b/gnu/packages/haskell-apps.scm index 91436f9b61..5b5b20cd65 100644 --- a/gnu/packages/haskell-apps.scm +++ b/gnu/packages/haskell-apps.scm @@ -270,14 +270,14 @@ unique algebra of patches called @url{http://darcs.net/Theory,Patchtheory}. (define-public git-annex (package (name "git-annex") - (version "7.20191218") + (version "7.20191230") (source (origin (method url-fetch) (uri (string-append "https://hackage.haskell.org/package/" "git-annex/git-annex-" version ".tar.gz")) (sha256 - (base32 "1dy5255x2cx68313p6vchqy5q1l0na8ckf5mkfi080hkhq8vj2q6")))) + (base32 "1xsd4vhiv3zkcqjh2pxhbkjx75hcalcc9bpdlfc27wzxsxyrwz12")))) (build-system haskell-build-system) (arguments `(#:configure-flags @@ -356,6 +356,7 @@ unique algebra of patches called @url{http://darcs.net/Theory,Patchtheory}. ("ghc-esqueleto" ,ghc-esqueleto) ("ghc-exceptions" ,ghc-exceptions) ("ghc-feed" ,ghc-feed) + ("ghc-filepath-bytestring" ,ghc-filepath-bytestring) ("ghc-free" ,ghc-free) ("ghc-hslogger" ,ghc-hslogger) ("ghc-http-client" ,ghc-http-client) diff --git a/gnu/packages/haskell-xyz.scm b/gnu/packages/haskell-xyz.scm index 716d14d7fb..3a9880f58c 100644 --- a/gnu/packages/haskell-xyz.scm +++ b/gnu/packages/haskell-xyz.scm @@ -22,6 +22,7 @@ ;;; Copyright © 2019 John Soo <jsoo1@asu.edu> ;;; Copyright © 2019 Kyle Meyer <kyle@kyleam.com> ;;; Copyright © 2019 Alex Griffin <a@ajgrf.com> +;;; Copyright © 2020 Brett Gilio <brettg@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -8615,6 +8616,74 @@ system dependencies.") functions for the ghc-persistent package.") (license license:expat))) +(define-public ghc-pipes + (package + (name "ghc-pipes") + (version "4.3.13") + (source + (origin + (method url-fetch) + (uri (string-append + "https://hackage.haskell.org/package/pipes/" + "pipes-" version ".tar.gz")) + (sha256 + (base32 + "1ch3xr5f5if0psd3lsyrpkwrgh36synnzqcpimghprys68l4zfkn")))) + (build-system haskell-build-system) + (inputs + `(("ghc-exceptions" ,ghc-exceptions) + ("ghc-mmorph" ,ghc-mmorph) + ("ghc-void" ,ghc-void) + ("ghc-semigroups" ,ghc-semigroups))) + (native-inputs + `(("ghc-quickcheck" ,ghc-quickcheck) + ("ghc-test-framework" ,ghc-test-framework) + ("ghc-test-framework-quickcheck2" + ,ghc-test-framework-quickcheck2))) + (home-page + "https://hackage.haskell.org/package/pipes") + (synopsis "Compositional pipelines") + (description + "A clean and powerful stream processing library that lets you build +and connect reusable streaming components. Advantages over traditional streaming +libraries: +@itemize +@item Concise API: Use simple commands like @code{for}, (@code{>->}), @code{await}, +and @code{yield} +@item Blazing fast: Implementation tuned for speed, including shortcut fusion +@item Lightweight Dependency: pipes is small and compiles very rapidly, including +dependencies +@item Elegant semantics: Use practical category theory +@item ListT: Correct implementation of @code{ListT} that interconverts with pipes +@item Bidirectionality: Implement duplex channels +@end itemize") + (license license:bsd-3))) + +(define-public ghc-pointedlist + (package + (name "ghc-pointedlist") + (version "0.6.1") + (source + (origin + (method url-fetch) + (uri (string-append + "https://hackage.haskell.org/package/pointedlist/" + "pointedlist-" version ".tar.gz")) + (sha256 + (base32 + "16xsrzqql7i4z6a3xy07sqnbyqdmcar1jiacla58y4mvkkwb0g3l")))) + (build-system haskell-build-system) + (home-page + "http://hackage.haskell.org/package/pointedlist") + (synopsis + "Zipper-like comonad which works as a list, tracking a position") + (description + "A PointedList tracks the position in a non-empty list which works +similarly to a zipper. A current item is always required, and therefore +the list may never be empty. A circular PointedList wraps around to the +other end when progressing past the actual edge.") + (license license:bsd-3))) + (define-public ghc-polyparse (package (name "ghc-polyparse") @@ -9690,6 +9759,40 @@ are not exception safe and can be broken by @code{killThread}.") (description "Reasonably fast data encoding library.") (license license:bsd-3))) +(define-public ghc-say + (package + (name "ghc-say") + (version "0.1.0.1") + (source + (origin + (method url-fetch) + (uri (string-append + "https://hackage.haskell.org/package/say/say-" + version + ".tar.gz")) + (sha256 + (base32 + "1r5kffjfwpas45g74sip8glrj1m9nygrnxjm7xgw898rq9pnafgn")))) + (build-system haskell-build-system) + (native-inputs + `(("ghc-hspec" ,ghc-hspec) + ("hspec-discover" ,hspec-discover) + ("ghc-unliftio" ,ghc-unliftio))) + (home-page "https://github.com/fpco/say") + (synopsis + "Send textual messages to a Handle in a thread-friendly way") + (description + "A thread safe API to write a line of textual data to a Handle, such +as sending some messages to the terminal - that has the following properties: +@itemize +@item Properly handle character encoding settings on the Handle +@item For reasonably sized messages, ensure that the entire message is written + in one chunk to avoid interleaving data with other threads +@item Avoid unnecessary memory allocations and copies +@item Minimize locking. +@end itemize") + (license license:expat))) + (define-public ghc-scientific (package (name "ghc-scientific") diff --git a/gnu/packages/ibus.scm b/gnu/packages/ibus.scm index 5057927174..512a1ff9ec 100644 --- a/gnu/packages/ibus.scm +++ b/gnu/packages/ibus.scm @@ -5,6 +5,7 @@ ;;; Copyright © 2017, 2018 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018, 2019 Meiyo Peng <meiyo@disroot.org> +;;; Copyright © 2020 kanichos <kanichos@yandex.ru> ;;; ;;; This file is part of GNU Guix. ;;; @@ -57,7 +58,7 @@ (define-public ibus (package (name "ibus") - (version "1.5.20") + (version "1.5.21") (source (origin (method url-fetch) (uri (string-append "https://github.com/ibus/ibus/" @@ -65,7 +66,7 @@ version "/ibus-" version ".tar.gz")) (sha256 (base32 - "0d6hcbw6ai91jl87lqnyn8bxi5y5kba5i9nz7knknyh69g5fbwac")))) + "1fd2d1jqpp1nn74x04zcilhhab0zar82n0kg614rma6n43kfbhdd")))) (build-system glib-or-gtk-build-system) (arguments `(#:tests? #f ; tests fail because there's no connection to dbus @@ -116,7 +117,7 @@ "/share/X11/locale"))) (substitute* "ui/gtk3/xkblayout.vala" (("\"(setxkbmap|xmodmap)\"" _ prog) - (string-append "\"" (assoc-ref inputs prog) "\""))) + (string-append "\"" (assoc-ref inputs prog) "/bin/" prog "\""))) #t)) (add-after 'wrap-program 'wrap-with-additional-paths (lambda* (#:key outputs #:allow-other-keys) @@ -668,6 +669,13 @@ Method Engine.") (assoc-ref inputs "rime-data") "/share/rime-data\"\n"))) #t)) + (add-after 'unpack 'fix-file-names + (lambda* (#:key outputs #:allow-other-keys) + ;; IBus uses the component file rime.xml to start the Rime + ;; engine. It must be patched with appropriate file names. + (substitute* "rime.xml" + (("/usr") (assoc-ref outputs "out"))) + #t)) (delete 'configure)))) (inputs `(("gdk-pixbuf" ,gdk-pixbuf) @@ -688,3 +696,67 @@ input methods as well as those for Chinese dialects. It has the ability to compose phrases and sentences intelligently and provide very accurate traditional Chinese output.") (license gpl3+))) + +(define-public libhangul + (package + (name "libhangul") + (version "0.1.0") + (source + (origin + (method url-fetch) + (uri (string-append "http://kldp.net/hangul/release/" + "3442-libhangul-" version ".tar.gz")) + (sha256 + (base32 + "0ni9b0v70wkm0116na7ghv03pgxsfpfszhgyj3hld3bxamfal1ar")))) + (build-system gnu-build-system) + (home-page "https://github.com/libhangul/libhangul") + (synopsis "Library to support hangul input method logic") + (description + "This package provides a library to support hangul input method logic, +hanja dictionary and small hangul character classification.") + (license lgpl2.1+))) + +(define-public ibus-libhangul + (package + (name "ibus-libhangul") + (version "1.5.3") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/libhangul/ibus-hangul/" + "releases/download/" version + "/ibus-hangul-" version ".tar.gz")) + (sha256 + (base32 + "1400ba2p34vr9q285lqvjm73f6m677cgfdymmjpiwyrjgbbiqrjy")))) + (build-system gnu-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'install 'wrap + (lambda* (#:key inputs outputs #:allow-other-keys) + (wrap-program (string-append (assoc-ref outputs "out") + "/libexec/ibus-setup-hangul") + `("PYTHONPATH" ":" prefix (,(getenv "PYTHONPATH"))) + `("LD_LIBRARY_PATH" ":" prefix + (,(string-append (assoc-ref inputs "libhangul") "/lib"))) + `("GI_TYPELIB_PATH" ":" prefix + (,(getenv "GI_TYPELIB_PATH")))) + #t))))) + (native-inputs + `(("pkg-config" ,pkg-config) + ("gettext" ,gettext-minimal) + ("glib:bin" ,glib "bin"))) + (inputs + `(("ibus" ,ibus) + ("glib" ,glib) + ("python-pygobject" ,python-pygobject) + ("gtk+" ,gtk+) + ("libhangul" ,libhangul) + ("python" ,python))) + (home-page "https://github.com/libhangul/ibus-hangul") + (synopsis "Hangul engine for IBus") + (description + "ibus-hangul is a Korean input method engine for IBus.") + (license gpl2+))) diff --git a/gnu/packages/image.scm b/gnu/packages/image.scm index 06fe4cb2aa..247fb94adf 100644 --- a/gnu/packages/image.scm +++ b/gnu/packages/image.scm @@ -1133,7 +1133,8 @@ language bindings to VIGRA.") (arguments '(#:configure-flags '("--enable-libwebpmux" "--enable-libwebpdemux" - "--enable-libwebpdecoder"))) + "--enable-libwebpdecoder" + "--disable-static"))) (home-page "https://developers.google.com/speed/webp/") (synopsis "Lossless and lossy image compression") (description diff --git a/gnu/packages/imagemagick.scm b/gnu/packages/imagemagick.scm index b8189c8ca8..e6a178713a 100644 --- a/gnu/packages/imagemagick.scm +++ b/gnu/packages/imagemagick.scm @@ -48,14 +48,14 @@ ;; The 7 release series has an incompatible API, while the 6 series is still ;; maintained. Don't update to 7 until we've made sure that the ImageMagick ;; users are ready for the 7-series API. - (version "6.9.10-68") + (version "6.9.10-78") (source (origin (method url-fetch) (uri (string-append "mirror://imagemagick/ImageMagick-" version ".tar.xz")) (sha256 (base32 - "1jxjxhnvznpbdigry2cgxx94cx6k6y3rs40a464n5yln29s1qlz1")))) + "178sai7r0w2hwv01is25c8mxf9lc2ba0l16qm45h9vv49y5dy08q")))) (build-system gnu-build-system) (arguments `(#:configure-flags '("--with-frozenpaths" "--without-gcc-arch") diff --git a/gnu/packages/irc.scm b/gnu/packages/irc.scm index ae3ef8234a..f39da03815 100644 --- a/gnu/packages/irc.scm +++ b/gnu/packages/irc.scm @@ -6,6 +6,7 @@ ;;; Copyright © 2016 ng0 <ng0@n0.is> ;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -127,7 +128,7 @@ irssi, but graphical.") (define-public irssi (package (name "irssi") - (version "1.1.3") + (version "1.2.2") (source (origin (method url-fetch) (uri (string-append "https://github.com/irssi/irssi/" @@ -135,7 +136,7 @@ irssi, but graphical.") version ".tar.xz")) (sha256 (base32 - "0jq8zjdhdjxkjbfl4g4nfr1ninyfxffa27lm8vcyrihhhkrn65yf")))) + "0y3mhnyr7x8ir8dlj83vbnchpfld28vdfni9yhpvls45j460c9v7")))) (build-system gnu-build-system) (arguments `(#:phases @@ -148,7 +149,10 @@ irssi, but graphical.") (string-append "--prefix=" out) (string-append "--with-proxy") (string-append "--with-socks") - (string-append "--with-bot")))))))) + (string-append "--with-bot"))))) + (add-before 'check 'set-home + (lambda _ + (setenv "HOME" (getcwd))))))) (inputs `(("glib" ,glib) ("ncurses" ,ncurses) diff --git a/gnu/packages/javascript.scm b/gnu/packages/javascript.scm index 6718274da2..83fa5ede4c 100644 --- a/gnu/packages/javascript.scm +++ b/gnu/packages/javascript.scm @@ -25,7 +25,6 @@ #:use-module (gnu packages) #:use-module (gnu packages base) #:use-module (gnu packages compression) - #:use-module (gnu packages lisp) #:use-module (gnu packages lisp-xyz) #:use-module (gnu packages readline) #:use-module (guix packages) @@ -453,50 +452,3 @@ to use, and is very similar to Lua. There is no need to interact with byzantine C++ template mechanisms, or worry about marking and unmarking garbage collection roots, or wrestle with obscure build systems.") (license license:isc))) - -(define-public uglify-js - (package - (inherit sbcl-cl-uglify-js) - (name "uglify-js") - (build-system trivial-build-system) - (arguments - `(#:modules ((guix build utils)) - #:builder - (let* ((bin (string-append (assoc-ref %outputs "out") "/bin/")) - (script (string-append bin "uglify-js"))) - (use-modules (guix build utils)) - (mkdir-p bin) - (with-output-to-file script - (lambda _ - (format #t "#!~a/bin/sbcl --script - (require :asdf) - (push (truename \"~a/lib/sbcl\") asdf:*central-registry*)" - (assoc-ref %build-inputs "sbcl") - (assoc-ref %build-inputs "sbcl-cl-uglify-js")) - ;; FIXME: cannot use progn here because otherwise it fails to - ;; find cl-uglify-js. - (for-each - write - '(;; Quiet, please! - (let ((*standard-output* (make-broadcast-stream)) - (*error-output* (make-broadcast-stream))) - (asdf:load-system :cl-uglify-js)) - (let ((file (cadr *posix-argv*))) - (if file - (format t "~a" - (cl-uglify-js:ast-gen-code - (cl-uglify-js:ast-mangle - (cl-uglify-js:ast-squeeze - (with-open-file (in file) - (parse-js:parse-js in)))) - :beautify nil)) - (progn - (format *error-output* - "Please provide a JavaScript file.~%") - (sb-ext:exit :code 1)))))))) - (chmod script #o755) - #t))) - (inputs - `(("sbcl" ,sbcl) - ("sbcl-cl-uglify-js" ,sbcl-cl-uglify-js))) - (synopsis "JavaScript compressor"))) diff --git a/gnu/packages/kde.scm b/gnu/packages/kde.scm index 44f8df387f..1620cb1b2e 100644 --- a/gnu/packages/kde.scm +++ b/gnu/packages/kde.scm @@ -3,7 +3,7 @@ ;;; Copyright © 2016 David Craven <david@craven.ch> ;;; Copyright © 2016, 2017 Thomas Danckaert <post@thomasdanckaert.be> ;;; Copyright © 2017, 2018 Mark Meyer <mark@ofosos.org> -;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018 Gábor Boskovits <boskovits@gmail.com> ;;; Copyright © 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; Copyright © 2018, 2019 Hartmut Goebel <h.goebel@crazy-compilers.com> @@ -183,7 +183,7 @@ projects.") (define-public kdevelop (package (name "kdevelop") - (version "5.4.5") + (version "5.4.6") (source (origin (method url-fetch) @@ -191,8 +191,7 @@ projects.") "/" version "/src/kdevelop-" version ".tar.xz")) (sha256 - (base32 - "08vhbg9ql0402bw3y3xw1kdxhig9sv3ss8g0h4477vy3z17m1h4j")))) + (base32 "01jmrmwbc1hrvq7jdfcc7mxl03q2l6kz57yca2j26xwyvfcfv5sz")))) (build-system qt-build-system) (native-inputs `(("extra-cmake-modules" ,extra-cmake-modules) diff --git a/gnu/packages/language.scm b/gnu/packages/language.scm index 1ed2483615..cec0ffa942 100644 --- a/gnu/packages/language.scm +++ b/gnu/packages/language.scm @@ -3,6 +3,7 @@ ;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018 ng0 <ng0@n0.is> ;;; Copyright © 2019 Alex Vong <alexvong1995@gmail.com> +;;; Copyright © 2020 Ricardo Wurmus <rekado@elephly.net> ;;; ;;; This file is part of GNU Guix. ;;; @@ -883,3 +884,27 @@ suitable for both the desktop and mobile devices.") (("zinnia") "wagomu")) #t)))))) (license lgpl2.1))) ; all files + +(define-public link-grammar + (package + (name "link-grammar") + (version "5.7.0") + (source (origin + (method url-fetch) + (uri (string-append "https://www.abisource.com/downloads/" + "link-grammar/" version + "/link-grammar-" version ".tar.gz")) + (sha256 + (base32 + "0ak1v469k56v3511kxxkxvx1nw6zcxcl0f1kcvc82ffacqbr4y96")))) + (build-system gnu-build-system) + (home-page "https://www.abisource.com/projects/link-grammar/") + (synopsis "Link grammar parser") + (description "The Link Grammar Parser is a syntactic parser of English, +Russian, Arabic and Persian (and other languages as well), based on Link +Grammar, an original theory of syntax and morphology. Given a sentence, the +system assigns to it a syntactic structure, which consists of a set of +labelled links connecting pairs of words. The parser also produces a +\"constituent\" (HPSG style phrase tree) representation of a sentence (showing +noun phrases, verb phrases, etc.).") + (license bsd-3))) diff --git a/gnu/packages/lean.scm b/gnu/packages/lean.scm new file mode 100644 index 0000000000..235113d475 --- /dev/null +++ b/gnu/packages/lean.scm @@ -0,0 +1,65 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2019 Amin Bandali <bandali@gnu.org> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu packages lean) + #:use-module (gnu packages multiprecision) + #:use-module (guix build-system cmake) + #:use-module ((guix licenses) #:prefix license:) + #:use-module (guix packages) + #:use-module (guix git-download)) + +(define-public lean + (package + (name "lean") + (version "3.5.0") + (home-page "https://github.com/leanprover-community/lean") + (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 + "1fdblq8ckrv6wqxfl4ybcs3ybfq7y096c9f5j4j75ymb14r401lr")))) + (build-system cmake-build-system) + (inputs + `(("gmp" ,gmp))) + (arguments + `(#:build-type "Release" ; default upstream build type + #:phases + (modify-phases %standard-phases + (add-after 'patch-source-shebangs 'patch-tests-shebangs + (lambda _ + (let ((sh (which "sh")) + (bash (which "bash"))) + (substitute* (find-files "tests/lean" "\\.sh$") + (("#![[:blank:]]?/bin/sh") + (string-append "#!" sh)) + (("#![[:blank:]]?/bin/bash") + (string-append "#!" bash)) + (("#![[:blank:]]?usr/bin/env bash") + (string-append "#!" bash))) + #t))) + (add-before 'configure 'chdir-to-src + (lambda _ (chdir "src") #t))))) + (synopsis "The Lean theorem prover and programming language") + (description + "Lean is a theorem prover and programming language with a small trusted +core based on dependent typed theory, aiming to bridge the gap between +interactive and automated theorem proving.") + (license license:asl2.0))) diff --git a/gnu/packages/license.scm b/gnu/packages/license.scm index b7519f91ae..36bcb75f8d 100644 --- a/gnu/packages/license.scm +++ b/gnu/packages/license.scm @@ -1,6 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com> -;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; ;;; This file is part of GNU Guix. ;;; @@ -168,16 +168,13 @@ belonging to various licenses.") (define-public reuse (package (name "reuse") - (version "0.5.0") + (version "0.7.0") (source (origin - (method git-fetch) - (uri (git-reference - (url "https://git.fsfe.org/reuse/tool.git") - (commit (string-append "v" version)))) - (file-name (git-file-name name version)) + (method url-fetch) + (uri (pypi-uri "reuse" version)) (sha256 - (base32 "1w17g6jvs715rjc93nnnqnfdphijq4ymj9jjkr3ccc286ywvn3ih")))) + (base32 "16wn28xxjcm5qlb7bs6jmdkfrkr5v97s59nmi9cn85qcg4gmj7lk")))) (build-system python-build-system) (native-inputs `(("python-pytest" ,python-pytest))) diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm index 9977be6bfe..83736fcc1f 100644 --- a/gnu/packages/linux.scm +++ b/gnu/packages/linux.scm @@ -7,7 +7,7 @@ ;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com> ;;; Copyright © 2015, 2016, 2017, 2018 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016 Christopher Allan Webber <cwebber@dustycloud.org> -;;; Copyright © 2016, 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2016, 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2016, 2017 Alex Kost <alezost@gmail.com> ;;; Copyright © 2016 Raymond Nicholson <rain1@openmailbox.org> ;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org> @@ -15,7 +15,7 @@ ;;; Copyright © 2016, 2018, 2019 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2016 David Craven <david@craven.ch> ;;; Copyright © 2016 John Darrington <jmd@gnu.org> -;;; Copyright © 2016, 2017, 2018, 2019 Marius Bakke <mbakke@fastmail.com> +;;; Copyright © 2016, 2017, 2018, 2019, 2020 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2016, 2018 Rene Saavedra <pacoon@protonmail.com> ;;; Copyright © 2016 Carlos Sánchez de La Lama <csanchezdll@gmail.com> ;;; Copyright © 2016, 2017 ng0 <ng0@n0.is> @@ -38,6 +38,7 @@ ;;; Copyright © 2019 Pierre Langlois <pierre.langlois@gmx.com> ;;; Copyright © 2019 Brice Waegeneire <brice@waegenei.re> ;;; Copyright © 2019 Kei Kebreau <kkebreau@posteo.net> +;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -356,42 +357,42 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS." "linux-" version ".tar.xz")) (sha256 hash))) -(define-public linux-libre-5.4-version "5.4.6") +(define-public linux-libre-5.4-version "5.4.10") (define-public linux-libre-5.4-pristine-source (let ((version linux-libre-5.4-version) - (hash (base32 "1j4916izy2nrzq7g6m5m365r60hhhx9rqcanjvaxv5x3vsy639gx"))) + (hash (base32 "1p9f0h9fl1xy13dag1x7j2ic8kdv0zsp42c8baxn7cz3llc04g7j"))) (make-linux-libre-source version (%upstream-linux-source version hash) deblob-scripts-5.4))) -(define-public linux-libre-4.19-version "4.19.91") +(define-public linux-libre-4.19-version "4.19.94") (define-public linux-libre-4.19-pristine-source (let ((version linux-libre-4.19-version) - (hash (base32 "0irl5jlh5rrdfz5g28x4ifbillvspwd8fy4wi3qhmv9dw7gc60zl"))) + (hash (base32 "0rvlz94mjl7ygpmhz0yn2whx9dq9fmy0w1472bj16hkwbaki0an6"))) (make-linux-libre-source version (%upstream-linux-source version hash) deblob-scripts-4.19))) -(define-public linux-libre-4.14-version "4.14.160") +(define-public linux-libre-4.14-version "4.14.163") (define-public linux-libre-4.14-pristine-source (let ((version linux-libre-4.14-version) - (hash (base32 "0b59xyr8if0qcbnwqa88y275g9rzhjbbp8589i8xxpmws6x2c0y6"))) + (hash (base32 "0jdh54rqdsb3b908v2q4xjn8y45b7rdnwgab0s4qf5alznfcqagb"))) (make-linux-libre-source version (%upstream-linux-source version hash) deblob-scripts-4.14))) -(define-public linux-libre-4.9-version "4.9.207") +(define-public linux-libre-4.9-version "4.9.208") (define-public linux-libre-4.9-pristine-source (let ((version linux-libre-4.9-version) - (hash (base32 "090181vij95py22jhx7baaxabb78w0j5hsfsnzp6bv2vgdz671na"))) + (hash (base32 "0njjw1i8dilihn1hz62zra4b9y05fb3r2k2sqlkd0wfn86c1rbdp"))) (make-linux-libre-source version (%upstream-linux-source version hash) deblob-scripts-4.9))) -(define-public linux-libre-4.4-version "4.4.207") +(define-public linux-libre-4.4-version "4.4.208") (define-public linux-libre-4.4-pristine-source (let ((version linux-libre-4.4-version) - (hash (base32 "024flajnl3l4yk8sgqdrfrl21js4vsjcv4ivmjblj4l9fl3hdjb6"))) + (hash (base32 "03jj91z5dc0ybpjy9w6aanb3k53gcj7gsjc32h3ldf72hlmgz6aq"))) (make-linux-libre-source version (%upstream-linux-source version hash) deblob-scripts-4.4))) @@ -1188,6 +1189,17 @@ block devices, UUIDs, TTYs, and many other tools.") (license (list license:gpl3+ license:gpl2+ license:gpl2 license:lgpl2.0+ license:bsd-4 license:public-domain)))) +;; util-linux optionally supports udev, which allows lsblk to read file system +;; metadata without special privileges. Add it as a separate package to avoid +;; a circular dependency, and to keep the size small. +(define-public util-linux+udev + (package/inherit + util-linux + (name "util-linux-with-udev") + (inputs + `(("udev" ,eudev) + ,@(package-inputs util-linux))))) + (define-public ddate (package (name "ddate") @@ -1546,7 +1558,7 @@ intercept and print the system calls executed by the program.") (define-public alsa-lib (package (name "alsa-lib") - (version "1.1.9") + (version "1.2.1.2") (source (origin (method url-fetch) (uri (string-append @@ -1554,8 +1566,12 @@ intercept and print the system calls executed by the program.") version ".tar.bz2")) (sha256 (base32 - "0jwr9g4yxg9gj6xx0sb2r6wrdl8amrjd19hilkrq4rirynp770s8")))) + "0hvrx0ipzqbcx4y1cmr9bgm9niifzkrhsb1ddgzzdwbk6q72d3lm")))) (build-system gnu-build-system) + (arguments + '(#:configure-flags (list (string-append "LDFLAGS=-Wl,-rpath=" + (assoc-ref %outputs "out") + "/lib")))) (home-page "https://www.alsa-project.org/") (synopsis "The Advanced Linux Sound Architecture libraries") (description @@ -1566,14 +1582,14 @@ MIDI functionality to the Linux-based operating system.") (define-public alsa-utils (package (name "alsa-utils") - (version "1.1.9") + (version "1.2.1") (source (origin (method url-fetch) (uri (string-append "ftp://ftp.alsa-project.org/pub/utils/" name "-" version ".tar.bz2")) (sha256 (base32 - "0fi11b7r8hg1bdjw74s8sqx8rc4qb310jaj9lsia9labvfyjrpsx")))) + "039c19b7091is0czl9jlrfczp7pp1jpdri0vvc4k07gl3skhn48b")))) (build-system gnu-build-system) (arguments ;; XXX: Disable man page creation until we have DocBook. @@ -1621,14 +1637,14 @@ MIDI functionality to the Linux-based operating system.") (define-public alsa-plugins (package (name "alsa-plugins") - (version "1.1.9") + (version "1.2.1") (source (origin (method url-fetch) (uri (string-append "ftp://ftp.alsa-project.org/pub/plugins/" name "-" version ".tar.bz2")) (sha256 (base32 - "01zrg0h2jw9dlj9233vjsn916yf4f2s667yry6xsn8d57lq745qn")))) + "1nj8cpbi05rb62yzs01c1k7lymdn1ch229b599hbhd0psixdx52d")))) (build-system gnu-build-system) ;; TODO: Split libavcodec and speex if possible. It looks like they can not ;; be split, there are references to both in files. @@ -2671,7 +2687,7 @@ from the module-init-tools project.") ;; The post-systemd fork, maintained by Gentoo. (package (name "eudev") - (version "3.2.8") + (version "3.2.9") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/gentoo/eudev") @@ -2679,7 +2695,7 @@ from the module-init-tools project.") (file-name (git-file-name name version)) (sha256 (base32 - "1g95yzzx4qxm5qhhylbi930lrq4gsbz207n72018nkvswj6gmpjw")) + "1g9z3d33m0i3hmbhm0wxpvkzf6ac7xj1drwcfrhzlfhhi63sg9h7")) (patches (search-patches "eudev-rules-directory.patch")))) (build-system gnu-build-system) (arguments @@ -3834,7 +3850,7 @@ Bluetooth audio output devices like headphones or loudspeakers.") (define-public bluez (package (name "bluez") - (version "5.51") + (version "5.52") (source (origin (method url-fetch) (uri (string-append @@ -3842,7 +3858,7 @@ Bluetooth audio output devices like headphones or loudspeakers.") version ".tar.xz")) (sha256 (base32 - "1fpbsl9kkfq6mn6n0dg4h0il4c7fzhwhn79gh907k5b2kwszpvgb")))) + "02jng21lp6fb3c2bh6vf9y7cj4gaxwk29dfc32ncy0lj0gi4q57p")))) (build-system gnu-build-system) (arguments `(#:configure-flags @@ -4523,7 +4539,7 @@ The collection contains a set of bandwidth and latency benchmark such as: (package (name "rng-tools") (home-page "https://github.com/nhorman/rng-tools") - (version "6.8") + (version "6.9") (source (origin (method git-fetch) (uri (git-reference (url home-page) @@ -4531,7 +4547,7 @@ The collection contains a set of bandwidth and latency benchmark such as: (file-name (git-file-name name version)) (sha256 (base32 - "1clm9i9xg3j79q0d6vinn6dx0nwh1fvzcmkqpcbay7mwsgkknvw2")))) + "065jf26s8zkicb95zc9ilksjdq9gqrh5vcx3mhi6mypbnamn6w98")))) (build-system gnu-build-system) (arguments `(;; Avoid using OpenSSL, curl, and libxml2, reducing the closure by 166 MiB. @@ -5034,14 +5050,14 @@ running boot option, and more.") (define-public sysstat (package (name "sysstat") - (version "12.2.0") + (version "12.3.1") (source (origin (method url-fetch) (uri (string-append "http://pagesperso-orange.fr/sebastien.godard/" "sysstat-" version ".tar.xz")) (sha256 (base32 - "0xc3983ccr0dwab1px2jhbgj86pfmmr29k7ggnwjwm1qigmriak1")))) + "1hf1sy7akribmgavadqccxpy49yv0zfb3m81d2bj6jf8pyzwcrbq")))) (build-system gnu-build-system) (arguments `(#:tests? #f ; No test suite. diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm index cfdef02cea..54746de9f2 100644 --- a/gnu/packages/lisp-xyz.scm +++ b/gnu/packages/lisp-xyz.scm @@ -5,16 +5,16 @@ ;;; Copyright © 2016 Federico Beffa <beffa@fbengineering.ch> ;;; Copyright © 2016, 2017 ng0 <ng0@n0.is> ;;; Copyright © 2016, 2017 Andy Patterson <ajpatter@uwaterloo.ca> -;;; Copyright © 2017, 2019 Ricardo Wurmus <rekado@elephly.net> +;;; Copyright © 2017, 2019, 2020 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2017, 2019 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018 Benjamin Slade <slade@jnanam.net> ;;; Copyright © 2018 Alex Vong <alexvong1995@gmail.com> ;;; Copyright © 2018 Pierre Neidhardt <mail@ambrevar.xyz> ;;; Copyright © 2018, 2019 Pierre Langlois <pierre.langlois@gmx.com> -;;; Copyright © 2019 Katherine Cox-Buday <cox.katherine.e@gmail.com> +;;; Copyright © 2019, 2020 Katherine Cox-Buday <cox.katherine.e@gmail.com> ;;; Copyright © 2019 Jesse Gildersleve <jessejohngildersleve@protonmail.com> -;;; Copyright © 2019 Guillaume Le Vaillant <glv@posteo.net> +;;; Copyright © 2019, 2020 Guillaume Le Vaillant <glv@posteo.net> ;;; Copyright © 2019 Brett Gilio <brettg@gnu.org> ;;; ;;; This file is part of GNU Guix. @@ -53,6 +53,7 @@ #:use-module (gnu packages gtk) #:use-module (gnu packages libffi) #:use-module (gnu packages lisp) + #:use-module (gnu packages maths) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) #:use-module (gnu packages python-xyz) @@ -370,6 +371,219 @@ ANSI-compliant Common Lisp implementations.") (define-public cl-unicode (sbcl-package->cl-source-package sbcl-cl-unicode)) +(define-public sbcl-zpb-ttf + (package + (name "sbcl-zpb-ttf") + (version "1.0.3") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/xach/zpb-ttf.git") + (commit (string-append "release-" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1wh66vjijzqlydnrihynpwp6796917xwrh0i9li93c17kyxa74ih")))) + (build-system asdf-build-system/sbcl) + (home-page "https://github.com/xach/zpb-ttf") + (synopsis "TrueType font file access for Common Lisp") + (description + "ZPB-TTF is a TrueType font file parser that provides an interface for +reading typographic metrics, glyph outlines, and other information from the +file.") + (license license:bsd-2))) + +(define-public ecl-zpb-ttf + (sbcl-package->ecl-package sbcl-zpb-ttf)) + +(define-public cl-zpb-ttf + (sbcl-package->cl-source-package sbcl-zpb-ttf)) + +(define-public sbcl-cl-aa + (package + (name "sbcl-cl-aa") + (version "0.1.5") + (source + (origin + (method url-fetch) + (uri (string-append "http://projects.tuxee.net/cl-vectors/" + "files/cl-vectors-" version ".tar.gz")) + (sha256 + (base32 + "04lhwi0kq8pkwhgd885pk80m1cp9sfvjjn5zj70s1dnckibhdmqh")))) + (build-system asdf-build-system/sbcl) + (arguments '(#:asd-file "cl-aa.asd")) + (home-page "http://projects.tuxee.net/cl-vectors/") + (synopsis "Polygon rasterizer") + (description + "This is a Common Lisp library implementing the AA polygon rasterization +algorithm from the @url{http://antigrain.com, Antigrain} project.") + (license license:expat))) + +(define-public ecl-cl-aa + (sbcl-package->ecl-package sbcl-cl-aa)) + +(define-public cl-aa + (sbcl-package->cl-source-package sbcl-cl-aa)) + +(define-public sbcl-cl-paths + (package + (inherit sbcl-cl-aa) + (name "sbcl-cl-paths") + (arguments '(#:asd-file "cl-paths.asd")) + (synopsis "Facilities to create and manipulate vectorial paths") + (description + "This package provides facilities to create and manipulate vectorial +paths."))) + +(define-public ecl-cl-paths + (sbcl-package->ecl-package sbcl-cl-paths)) + +(define-public cl-paths + (sbcl-package->cl-source-package sbcl-cl-paths)) + +(define-public sbcl-cl-paths-ttf + (package + (inherit sbcl-cl-aa) + (name "sbcl-cl-paths-ttf") + (arguments '(#:asd-file "cl-paths-ttf.asd")) + (inputs + `(("cl-paths" ,sbcl-cl-paths) + ("zpb-ttf" ,sbcl-zpb-ttf))) + (synopsis "Facilities to create and manipulate vectorial paths") + (description + "This package provides facilities to create and manipulate vectorial +paths."))) + +(define-public ecl-cl-paths-ttf + (sbcl-package->ecl-package sbcl-cl-paths-ttf)) + +(define-public cl-paths-ttf + (sbcl-package->cl-source-package sbcl-cl-paths-ttf)) + +(define-public sbcl-cl-vectors + (package + (inherit sbcl-cl-aa) + (name "sbcl-cl-vectors") + (arguments '(#:asd-file "cl-vectors.asd")) + (inputs + `(("cl-aa" ,sbcl-cl-aa) + ("cl-paths" ,sbcl-cl-paths))) + (synopsis "Create, transform and render anti-aliased vectorial paths") + (description + "This is a pure Common Lisp library to create, transform and render +anti-aliased vectorial paths."))) + +(define-public ecl-cl-vectors + (sbcl-package->ecl-package sbcl-cl-vectors)) + +(define-public cl-vectors + (sbcl-package->cl-source-package sbcl-cl-vectors)) + +(define-public sbcl-spatial-trees + ;; There have been no releases. + (let ((commit "81fdad0a0bf109c80a53cc96eca2e093823400ba") + (revision "1")) + (package + (name "sbcl-spatial-trees") + (version (git-version "0" revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/rpav/spatial-trees.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "11rhc6h501dwcik2igkszz7b9n515cr99m5pjh4r2qfwgiri6ysa")))) + (build-system asdf-build-system/sbcl) + (arguments + '(#:tests? #f ; spatial-trees.test requires spatial-trees.nns + #:asd-file "spatial-trees.asd" + #:test-asd-file "spatial-trees.test.asd")) + (native-inputs + `(("fiveam" ,sbcl-fiveam))) + (home-page "https://github.com/rpav/spatial-trees") + (synopsis "Dynamic index data structures for spatially-extended data") + (description + "Spatial-trees is a set of dynamic index data structures for +spatially-extended data.") + (license license:bsd-3)))) + +(define-public ecl-spatial-trees + (sbcl-package->ecl-package sbcl-spatial-trees)) + +(define-public cl-spatial-trees + (sbcl-package->cl-source-package sbcl-spatial-trees)) + +(define-public sbcl-flexichain + ;; There are no releases. + (let ((commit "13d2a6c505ed0abfcd4c4ec7d7145059b06855d6") + (revision "1")) + (package + (name "sbcl-flexichain") + (version "1.5.1") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/robert-strandh/Flexichain.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0pfyvhsfbjd2sjb30grfs52r51a428xglv7bwydvpg2lc117qimg")))) + (build-system asdf-build-system/sbcl) + (home-page "https://github.com/robert-strandh/Flexichain.git") + (synopsis "Dynamically add elements to or remove them from sequences") + (description + "This package provides an implementation of the flexichain protocol, +allowing client code to dynamically add elements to, and delete elements from +a sequence (or chain) of such elements.") + (license license:lgpl2.1+)))) + +(define-public ecl-flexichain + (sbcl-package->ecl-package sbcl-flexichain)) + +(define-public cl-flexichain + (sbcl-package->cl-source-package sbcl-flexichain)) + +(define-public sbcl-cl-pdf + ;; There are no releases + (let ((commit "752e337e6d6fc206f09d091a982e7f8e5c404e4e") + (revision "1")) + (package + (name "sbcl-cl-pdf") + (version (git-version "0" revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/mbattyani/cl-pdf.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1cg3k3m3r11ipb8j008y8ipynj97l3xjlpi2knqc9ndmx4r3kb1r")))) + (build-system asdf-build-system/sbcl) + (inputs + `(("iterate" ,sbcl-iterate) + ("zpb-ttf" ,sbcl-zpb-ttf))) + (home-page "https://github.com/mbattyani/cl-pdf") + (synopsis "Common Lisp library for generating PDF files") + (description + "CL-PDF is a cross-platform Common Lisp library for generating PDF +files.") + (license license:bsd-2)))) + +(define-public ecl-cl-pdf + (sbcl-package->ecl-package sbcl-cl-pdf)) + +(define-public cl-pdf + (sbcl-package->cl-source-package sbcl-cl-pdf)) + (define-public sbcl-clx (package (name "sbcl-clx") @@ -823,6 +1037,53 @@ compressor. It works on data produced by @code{parse-js} to generate a (define-public cl-uglify-js (sbcl-package->cl-source-package sbcl-cl-uglify-js)) +(define-public uglify-js + (package + (inherit sbcl-cl-uglify-js) + (name "uglify-js") + (build-system trivial-build-system) + (arguments + `(#:modules ((guix build utils)) + #:builder + (let* ((bin (string-append (assoc-ref %outputs "out") "/bin/")) + (script (string-append bin "uglify-js"))) + (use-modules (guix build utils)) + (mkdir-p bin) + (with-output-to-file script + (lambda _ + (format #t "#!~a/bin/sbcl --script + (require :asdf) + (push (truename \"~a/lib/sbcl\") asdf:*central-registry*)" + (assoc-ref %build-inputs "sbcl") + (assoc-ref %build-inputs "sbcl-cl-uglify-js")) + ;; FIXME: cannot use progn here because otherwise it fails to + ;; find cl-uglify-js. + (for-each + write + '(;; Quiet, please! + (let ((*standard-output* (make-broadcast-stream)) + (*error-output* (make-broadcast-stream))) + (asdf:load-system :cl-uglify-js)) + (let ((file (cadr *posix-argv*))) + (if file + (format t "~a" + (cl-uglify-js:ast-gen-code + (cl-uglify-js:ast-mangle + (cl-uglify-js:ast-squeeze + (with-open-file (in file) + (parse-js:parse-js in)))) + :beautify nil)) + (progn + (format *error-output* + "Please provide a JavaScript file.~%") + (sb-ext:exit :code 1)))))))) + (chmod script #o755) + #t))) + (inputs + `(("sbcl" ,sbcl) + ("sbcl-cl-uglify-js" ,sbcl-cl-uglify-js))) + (synopsis "JavaScript compressor"))) + (define-public sbcl-cl-strings (let ((revision "1") (commit "c5c5cbafbf3e6181d03c354d66e41a4f063f00ae")) @@ -7204,3 +7465,1693 @@ path, maximum flow, minimum spanning tree, etc.).") ((#:asd-file _ "") "graph.json.asd") ((#:asd-system-name _ #f) "graph-json"))) (synopsis "Serialize graphs to and from JSON format"))) + +(define-public sbcl-trivial-indent + (let ((commit "2d016941751647c6cc5bd471751c2cf68861c94a") + (revision "0")) + (package + (name "sbcl-trivial-indent") + (version (git-version "1.0.0" revision commit)) + (source + (origin + (method git-fetch) + (uri + (git-reference + (url "https://github.com/Shinmera/trivial-indent") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1sj90nqz17w4jq0ixz00gb9g5g6d2s7l8r17zdby27gxxh51w266")))) + (build-system asdf-build-system/sbcl) + (synopsis "Simple Common Lisp library to allow indentation hints for SWANK") + (description + "This library allows you to define custom indentation hints for your +macros if the one recognised by SLIME automatically produces unwanted +results.") + (home-page "https://shinmera.github.io/trivial-indent/") + (license license:zlib)))) + +(define-public cl-trivial-indent + (sbcl-package->cl-source-package sbcl-trivial-indent)) + +(define-public sbcl-documentation-utils + (let ((commit "98630dd5f7e36ae057fa09da3523f42ccb5d1f55") + (revision "0")) + (package + (name "sbcl-documentation-utils") + (version (git-version "1.2.0" revision commit)) + (source + (origin + (method git-fetch) + (uri + (git-reference + (url "https://github.com/Shinmera/documentation-utils.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "098qhkqskmmrh4wix34mawf7p5c87yql28r51r75yjxj577k5idq")))) + (build-system asdf-build-system/sbcl) + (inputs + `(("trivial-indent" ,sbcl-trivial-indent))) + (synopsis "Few simple tools to document Common Lisp libraries") + (description + "This is a small library to help you with managing the Common Lisp +docstrings for your library.") + (home-page "https://shinmera.github.io/documentation-utils/") + (license license:zlib)))) + +(define-public cl-documentation-utils + (sbcl-package->cl-source-package sbcl-documentation-utils)) + +(define-public sbcl-form-fiddle + (let ((commit "e0c23599dbb8cff3e83e012f3d86d0764188ad18") + (revision "0")) + (package + (name "sbcl-form-fiddle") + (version (git-version "1.1.0" revision commit)) + (source + (origin + (method git-fetch) + (uri + (git-reference + (url "https://github.com/Shinmera/form-fiddle") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "041iznc9mpfyrl0sv5893ys9pbb2pvbn9g3clarqi7gsfj483jln")))) + (build-system asdf-build-system/sbcl) + (inputs + `(("documentation-utils" ,sbcl-documentation-utils))) + (synopsis "Utilities to destructure Common Lisp lambda forms") + (description + "Often times we need to destructure a form definition in a Common Lisp +macro. This library provides a set of simple utilities to help with that.") + (home-page "https://shinmera.github.io/form-fiddle/") + (license license:zlib)))) + +(define-public cl-form-fiddle + (sbcl-package->cl-source-package sbcl-form-fiddle)) + +(define-public sbcl-parachute + (let ((commit "ca04dd8e43010a6dfffa26dbe1d62af86008d666") + (revision "0")) + (package + (name "sbcl-parachute") + (version (git-version "1.1.1" revision commit)) + (source + (origin + (method git-fetch) + (uri + (git-reference + (url "https://github.com/Shinmera/parachute") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1mvsm3r0r6a2bg75nw0q7n9vlby3ch45qjl7hnb5k1z2n5x5lh60")))) + (build-system asdf-build-system/sbcl) + (inputs + `(("documentation-utils" ,sbcl-documentation-utils) + ("form-fiddle" ,sbcl-form-fiddle))) + (synopsis "Extensible and cross-compatible testing framework for Common Lisp") + (description + "Parachute is a simple-to-use and extensible testing framework. +In Parachute, things are organised as a bunch of named tests within a package. +Each test can contain a bunch of test forms that make up its body.") + (home-page "https://shinmera.github.io/parachute/") + (license license:zlib)))) + +(define-public cl-parachute + (sbcl-package->cl-source-package sbcl-parachute)) + +(define-public sbcl-array-utils + (let ((commit "f90eb9070d0b2205af51126a35033574725e5c56") + (revision "0")) + (package + (name "sbcl-array-utils") + (version (git-version "1.1.1" revision commit)) + (source + (origin + (method git-fetch) + (uri + (git-reference + (url "https://github.com/Shinmera/array-utils") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0zhwfbpr53vs1ii4sx75dz2k9yhh1xpwdqqpg8nmfndxkmhpbi3x")))) + (build-system asdf-build-system/sbcl) + (native-inputs + `(("parachute" ,sbcl-parachute))) + (inputs + `(("documentation-utils" ,sbcl-documentation-utils))) + (synopsis "Tiny collection of array and vector utilities for Common Lisp") + (description + "A miniature toolkit that contains some useful shifting/popping/pushing +functions for arrays and vectors. Originally from Plump.") + (home-page "https://shinmera.github.io/array-utils/") + (license license:zlib)))) + +(define-public cl-array-utils + (sbcl-package->cl-source-package sbcl-array-utils)) + +(define-public sbcl-plump + (let ((commit "16f1231bf706cfbc54d9e55a853ca945e4452a08") + (revision "0")) + (package + (name "sbcl-plump") + (version (git-version "2.0.0" revision commit)) + (source + (origin + (method git-fetch) + (uri + (git-reference + (url "https://github.com/Shinmera/plump") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0705k8pbip51v74rccgwscwph439f2pma9f915qf1h4bhjx999ip")))) + (build-system asdf-build-system/sbcl) + (inputs + `(("array-utils" ,sbcl-array-utils) + ("documentation-utils" ,sbcl-documentation-utils))) + (synopsis "Lenient XML / XHTML / HTML parser for Common Lisp") + (description + "Plump is a parser for HTML/XML-like documents, focusing on being +lenient towards invalid markup. It can handle things like invalid attributes, +bad closing tag order, unencoded entities, inexistent tag types, self-closing +tags and so on. It parses documents to a class representation and offers a +small set of DOM functions to manipulate it. It can be extended to parse to +your own classes.") + (home-page "https://shinmera.github.io/plump/") + (license license:zlib)))) + +(define-public cl-plump + (sbcl-package->cl-source-package sbcl-plump)) + +(define-public sbcl-antik-base + (let ((commit "e4711a69b3d6bf37b5727af05c3cfd03e8428ba3") + (revision "1")) + (package + (name "sbcl-antik-base") + (version (git-version "0.0.0" revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://gitlab.common-lisp.net/antik/antik.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "047ga2c38par2xbgg4qx6hwv06qhf1c1f67as8xvir6s80lip1km")))) + (build-system asdf-build-system/sbcl) + (inputs + `(("alexandria" ,sbcl-alexandria) + ("cl-ppcre" ,sbcl-cl-ppcre) + ("iterate" ,sbcl-iterate) + ("metabang-bind" ,sbcl-metabang-bind) + ("named-readtables" ,sbcl-named-readtables) + ("split-sequence" ,sbcl-split-sequence))) + (native-inputs + `(("lisp-unit" ,sbcl-lisp-unit))) + (synopsis "Scientific and engineering computation in Common Lisp") + (description + "Antik provides a foundation for scientific and engineering +computation in Common Lisp. It is designed not only to facilitate +numerical computations, but to permit the use of numerical computation +libraries and the interchange of data and procedures, whether +foreign (non-Lisp) or Lisp libraries. It is named after the +Antikythera mechanism, one of the oldest examples of a scientific +computer known.") + (home-page "https://common-lisp.net/project/antik/") + (license license:gpl3)))) + +(define-public cl-antik-base + (sbcl-package->cl-source-package sbcl-antik-base)) + +(define-public ecl-antik-base + (sbcl-package->ecl-package sbcl-antik-base)) + +(define-public sbcl-foreign-array + (package + (inherit sbcl-antik-base) + (name "sbcl-foreign-array") + (arguments + (substitute-keyword-arguments (package-arguments sbcl-antik-base) + ((#:asd-file _ "") "foreign-array.asd") + ((#:asd-system-name _ #f) "foreign-array"))) + (inputs + `(("antik-base" ,sbcl-antik-base) + ("cffi" ,sbcl-cffi) + ("trivial-garbage" ,sbcl-trivial-garbage) + ("static-vectors" ,sbcl-static-vectors))) + (synopsis "Common Lisp library providing access to foreign arrays"))) + +(define-public cl-foreign-array + (sbcl-package->cl-source-package sbcl-foreign-array)) + +(define-public ecl-foreign-array + (sbcl-package->ecl-package sbcl-foreign-array)) + +(define-public sbcl-physical-dimension + (package + (inherit sbcl-antik-base) + (name "sbcl-physical-dimension") + (inputs + `(("fare-utils" ,sbcl-fare-utils) + ("foreign-array" ,sbcl-foreign-array) + ("trivial-utf-8" ,sbcl-trivial-utf-8))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-antik-base) + ((#:asd-file _ "") "physical-dimension.asd") + ((#:asd-system-name _ #f) "physical-dimension"))) + (synopsis + "Common Lisp library providing computations with physical units"))) + +(define-public cl-physical-dimension + (sbcl-package->cl-source-package sbcl-physical-dimension)) + +(define-public sbcl-science-data + (package + (inherit sbcl-antik-base) + (name "sbcl-science-data") + (inputs + `(("physical-dimension" ,sbcl-physical-dimension) + ("drakma" ,sbcl-drakma))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-antik-base) + ((#:asd-file _ "") "science-data.asd") + ((#:asd-system-name _ #f) "science-data"))) + (synopsis + "Common Lisp library for scientific and engineering numerical data"))) + +(define-public cl-science-data + (sbcl-package->cl-source-package sbcl-science-data)) + +(define-public sbcl-gsll + (let ((commit "1a8ada22f9cf5ed7372d352b2317f4ccdb6ab308") + (revision "1")) + (package + (name "sbcl-gsll") + (version (git-version "0.0.0" revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://gitlab.common-lisp.net/antik/gsll.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0z5nypfk26hxihb08p085644afawicrgb4xvadh3lmrn46qbjfn4")))) + (build-system asdf-build-system/sbcl) + (native-inputs + `(("lisp-unit" ,sbcl-lisp-unit))) + (inputs + `(("alexandria" ,sbcl-alexandria) + ("cffi-grovel" ,sbcl-cffi-grovel) + ("cffi-libffi" ,sbcl-cffi-libffi) + ("foreign-array" ,sbcl-foreign-array) + ("gsl" ,gsl) + ("metabang-bind" ,sbcl-metabang-bind) + ("trivial-features" ,sbcl-trivial-features) + ("trivial-garbage" ,sbcl-trivial-garbage))) + (arguments + `(#:tests? #f + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'fix-cffi-paths + (lambda* (#:key inputs #:allow-other-keys) + (substitute* "gsll.asd" + ((":depends-on \\(#:foreign-array") + ":depends-on (#:foreign-array #:cffi-libffi")) + (substitute* "init/init.lisp" + (("libgslcblas.so" all) + (string-append + (assoc-ref inputs "gsl") "/lib/" all))) + (substitute* "init/init.lisp" + (("libgsl.so" all) + (string-append + (assoc-ref inputs "gsl") "/lib/" all)))))))) + (synopsis "GNU Scientific Library for Lisp") + (description + "The GNU Scientific Library for Lisp (GSLL) allows the use of the +GNU Scientific Library (GSL) from Common Lisp. This library provides a +full range of common mathematical operations useful to scientific and +engineering applications. The design of the GSLL interface is such +that access to most of the GSL library is possible in a Lisp-natural +way; the intent is that the user not be hampered by the restrictions +of the C language in which GSL has been written. GSLL thus provides +interactive use of GSL for getting quick answers, even for someone not +intending to program in Lisp.") + (home-page "https://common-lisp.net/project/gsll/") + (license license:gpl3)))) + +(define-public cl-gsll + (sbcl-package->cl-source-package sbcl-gsll)) + +(define-public sbcl-antik + (package + (inherit sbcl-antik-base) + (name "sbcl-antik") + (inputs + `(("gsll" ,sbcl-gsll) + ("physical-dimension" ,sbcl-physical-dimension))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-antik-base) + ((#:asd-file _ "") "antik.asd") + ((#:asd-system-name _ #f) "antik"))))) + +(define-public cl-antik + (sbcl-package->cl-source-package sbcl-antik)) + +(define-public sbcl-cl-interpol + (let ((commit "1fd288d861db85bc4677cff3cdd6af75fda1afb4") + (revision "1")) + (package + (name "sbcl-cl-interpol") + (version (git-version "0.2.6" revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/edicl/cl-interpol.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1hnikak52hmcq1r5f616m6qq1108qnkw80pja950nv1fq5p0ppjn")))) + (build-system asdf-build-system/sbcl) + (inputs + `(("cl-unicode" ,sbcl-cl-unicode) + ("named-readtables" ,sbcl-named-readtables))) + (native-inputs + `(("flexi-streams" ,sbcl-flexi-streams))) + (synopsis "String interpolation for Common Lisp") + (description + "CL-INTERPOL is a library for Common Lisp which modifies the +reader so that you can have interpolation within strings similar to +Perl or Unix Shell scripts. It also provides various ways to insert +arbitrary characters into literal strings even if your editor/IDE +doesn't support them.") + (home-page "https://edicl.github.io/cl-interpol/") + (license license:bsd-3)))) + +(define-public cl-interpol + (sbcl-package->cl-source-package sbcl-cl-interpol)) + +(define-public ecl-cl-interpol + (sbcl-package->ecl-package sbcl-cl-interpol)) + +(define sbcl-symbol-munger-boot0 + ;; There is a cyclical dependency between symbol-munger and lisp-unit2. + ;; See https://github.com/AccelerationNet/symbol-munger/issues/4 + (let ((commit "cc2bb4b7acd454d756484aec81ba487648385fc3") + (revision "1")) + (package + (name "sbcl-symbol-munger-boot0") + (version (git-version "0.0.1" revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/AccelerationNet/symbol-munger.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0diav5ricqsybqvbp4bkxyj3bn3v9n7xb2pqqc4vg1algsw2pyjl")))) + (build-system asdf-build-system/sbcl) + (arguments + `(#:asd-file "symbol-munger.asd" + #:asd-system-name "symbol-munger")) + (inputs + `(("iterate" ,sbcl-iterate) + ("alexandria" ,sbcl-alexandria))) + (native-inputs + `(("lisp-unit" ,sbcl-lisp-unit))) + (synopsis + "Capitalization and spacing conversion functions for Common Lisp") + (description + "This is a Common Lisp library to change the capitalization and spacing +of a string or a symbol. It can convert to and from Lisp, english, underscore +and camel-case rules.") + (home-page "https://github.com/AccelerationNet/symbol-munger") + ;; The package declares a BSD license, but all of the license + ;; text is MIT. + ;; See https://github.com/AccelerationNet/symbol-munger/issues/5 + (license license:expat)))) + +(define sbcl-lisp-unit2-boot0 + ;; There is a cyclical dependency between symbol-munger and lisp-unit2. + ;; See https://github.com/AccelerationNet/symbol-munger/issues/4 + (let ((commit "fb9721524d1e4e73abb223ee036d74ce14a5505c") + (revision "1")) + (package + (name "sbcl-lisp-unit2-boot0") + (version (git-version "0.2.0" revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/AccelerationNet/lisp-unit2.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1rsqy8y0jqll6xn9a593848f5wvd5ribv4csry1ly0hmdhfnqzlp")))) + (build-system asdf-build-system/sbcl) + (arguments + `(#:asd-file "lisp-unit2.asd" + #:asd-system-name "lisp-unit2")) + (inputs + `(("alexandria" ,sbcl-alexandria) + ("cl-interpol" ,sbcl-cl-interpol) + ("iterate" ,sbcl-iterate) + ("symbol-munger-boot0" ,sbcl-symbol-munger-boot0))) + (synopsis "Test Framework for Common Lisp") + (description + "LISP-UNIT2 is a Common Lisp library that supports unit testing in the +style of JUnit for Java. It is a new version of the lisp-unit library written +by Chris Riesbeck.") + (home-page "https://github.com/AccelerationNet/lisp-unit2") + (license license:expat)))) + +(define-public sbcl-symbol-munger + (let ((commit "97598d4c3c53fd5da72ab78908fbd5d8c7a13416") + (revision "1")) + (package + (name "sbcl-symbol-munger") + (version (git-version "0.0.1" revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/AccelerationNet/symbol-munger.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0y8jywjy0ldyhp7bxf16fdvdd2qgqnd7nlhlqfpfnzxcqk4xy1km")))) + (build-system asdf-build-system/sbcl) + (inputs + `(("alexandria" ,sbcl-alexandria) + ("iterate" ,sbcl-iterate))) + (native-inputs + `(("lisp-unit2-boot0" ,sbcl-lisp-unit2-boot0))) + (synopsis + "Capitalization and spacing conversion functions for Common Lisp") + (description + "This is a Common Lisp library to change the capitalization and spacing +of a string or a symbol. It can convert to and from Lisp, english, underscore +and camel-case rules.") + (home-page "https://github.com/AccelerationNet/symbol-munger") + ;; The package declares a BSD license, but all of the license + ;; text is MIT. + ;; See https://github.com/AccelerationNet/symbol-munger/issues/5 + (license license:expat)))) + +(define-public cl-symbol-munger + (sbcl-package->cl-source-package sbcl-symbol-munger)) + +(define-public ecl-symbol-munger + (sbcl-package->ecl-package sbcl-symbol-munger)) + +(define-public sbcl-lisp-unit2 + (package + (inherit sbcl-lisp-unit2-boot0) + (name "sbcl-lisp-unit2") + (inputs + `(("alexandria" ,sbcl-alexandria) + ("cl-interpol" ,sbcl-cl-interpol) + ("iterate" ,sbcl-iterate) + ("symbol-munger" ,sbcl-symbol-munger))))) + +(define-public cl-lisp-unit2 + (sbcl-package->cl-source-package sbcl-lisp-unit2)) + +(define-public ecl-lisp-unit2 + (sbcl-package->ecl-package sbcl-lisp-unit2)) + +(define-public sbcl-cl-csv + (let ((commit "3eba29c8364b033fbe0d189c2500559278b6a362") + (revision "1")) + (package + (name "sbcl-cl-csv") + (version (git-version "1.0.6" revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/AccelerationNet/cl-csv.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "07h4ni89jzx93clx453hlnnb5g53hhlcmz5hghqv6ysam48lc8g6")))) + (build-system asdf-build-system/sbcl) + (arguments + ;; See: https://github.com/AccelerationNet/cl-csv/pull/34 + `(#:tests? #f)) + (inputs + `(("alexandria" ,sbcl-alexandria) + ("cl-interpol" ,sbcl-cl-interpol) + ("iterate" ,sbcl-iterate))) + (native-inputs + `(("lisp-unit2" ,sbcl-lisp-unit2))) + (synopsis "Common lisp library for comma-separated values") + (description + "This is a Common Lisp library providing functions to read/write CSV +from/to strings, streams and files.") + (home-page "https://github.com/AccelerationNet/cl-csv") + (license license:bsd-3)))) + +(define-public cl-csv + (sbcl-package->cl-source-package sbcl-cl-csv)) + +(define-public ecl-cl-csv + (sbcl-package->ecl-package sbcl-cl-csv)) + +(define-public sbcl-external-program + (let ((commit "5888b8f1fd3953feeeacecbba4384ddda584a749") + (revision "1")) + (package + (name "sbcl-external-program") + (version (git-version "0.0.6" revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/sellout/external-program.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0vww1x3yilb3bjwg6k184vaj4vxyxw4vralhnlm6lk4xac67kc9z")))) + (build-system asdf-build-system/sbcl) + (inputs + `(("trivial-features" ,sbcl-trivial-features))) + (native-inputs + `(("fiveam" ,sbcl-fiveam))) + (synopsis "Common Lisp library for running external programs") + (description + "EXTERNAL-PROGRAM enables running programs outside the Lisp +process. It is an attempt to make the RUN-PROGRAM functionality in +implementations like SBCL and CCL as portable as possible without +sacrificing much in the way of power.") + (home-page "https://github.com/sellout/external-program") + (license license:llgpl)))) + +(define-public cl-external-program + (sbcl-package->cl-source-package sbcl-external-program)) + +(define-public ecl-external-program + (sbcl-package->ecl-package sbcl-external-program)) + +(define sbcl-cl-ana-boot0 + (let ((commit "fa7cee4c50aa1c859652813049ba0da7c18a0df9") + (revision "1")) + (package + (name "sbcl-cl-ana-boot0") + (version (git-version "0.0.0" revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/ghollisjr/cl-ana.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0mr47l57m276dbpap7irr4fcnk5fgknhf6mgv4043s8h73amk5qh")))) + (build-system asdf-build-system/sbcl) + (synopsis "Common Lisp data analysis library") + (description + "CL-ANA is a data analysis library in Common Lisp providing tabular and +binned data analysis along with nonlinear least squares fitting and +visualization.") + (home-page "https://github.com/ghollisjr/cl-ana") + (license license:gpl3)))) + +(define-public sbcl-cl-ana.pathname-utils + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.pathname-utils") + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "pathname-utils/cl-ana.pathname-utils.asd") + ((#:asd-system-name _ #f) "cl-ana.pathname-utils"))))) + +(define-public cl-ana.pathname-utils + (sbcl-package->cl-source-package sbcl-cl-ana.pathname-utils)) + +(define-public ecl-cl-ana.pathname-utils + (sbcl-package->ecl-package sbcl-cl-ana.pathname-utils)) + +(define-public sbcl-cl-ana.package-utils + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.package-utils") + (inputs + `(("alexandria" ,sbcl-alexandria))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "package-utils/cl-ana.package-utils.asd") + ((#:asd-system-name _ #f) "cl-ana.package-utils"))))) + +(define-public cl-ana.package-utils + (sbcl-package->cl-source-package sbcl-cl-ana.package-utils)) + +(define-public ecl-cl-ana.package-utils + (sbcl-package->ecl-package sbcl-cl-ana.package-utils)) + +(define-public sbcl-cl-ana.string-utils + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.string-utils") + (inputs + `(("split-sequence" ,sbcl-split-sequence))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "string-utils/cl-ana.string-utils.asd") + ((#:asd-system-name _ #f) "cl-ana.string-utils"))))) + +(define-public cl-ana.string-utils + (sbcl-package->cl-source-package sbcl-cl-ana.string-utils)) + +(define-public ecl-cl-ana.string-utils + (sbcl-package->ecl-package sbcl-cl-ana.string-utils)) + +(define-public sbcl-cl-ana.functional-utils + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.functional-utils") + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "functional-utils/cl-ana.functional-utils.asd") + ((#:asd-system-name _ #f) "cl-ana.functional-utils"))))) + +(define-public cl-ana.functional-utils + (sbcl-package->cl-source-package sbcl-cl-ana.functional-utils)) + +(define-public ecl-cl-ana.functional-utils + (sbcl-package->ecl-package sbcl-cl-ana.functional-utils)) + +(define-public sbcl-cl-ana.list-utils + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.list-utils") + (inputs + `(("alexandria" ,sbcl-alexandria) + ("cl-ana.functional-utils" ,sbcl-cl-ana.functional-utils) + ("cl-ana.string-utils" ,sbcl-cl-ana.string-utils))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "list-utils/cl-ana.list-utils.asd") + ((#:asd-system-name _ #f) "cl-ana.list-utils"))))) + +(define-public cl-ana.list-utils + (sbcl-package->cl-source-package sbcl-cl-ana.list-utils)) + +(define-public ecl-cl-ana.list-utils + (sbcl-package->ecl-package sbcl-cl-ana.list-utils)) + +(define-public sbcl-cl-ana.generic-math + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.generic-math") + (inputs + `(("cl-ana.list-utils" ,sbcl-cl-ana.list-utils) + ("cl-ana.package-utils" ,sbcl-cl-ana.package-utils))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "generic-math/cl-ana.generic-math.asd") + ((#:asd-system-name _ #f) "cl-ana.generic-math"))))) + +(define-public cl-ana.generic-math + (sbcl-package->cl-source-package sbcl-cl-ana.generic-math)) + +(define-public ecl-cl-ana.generic-math + (sbcl-package->ecl-package sbcl-cl-ana.generic-math)) + +(define-public sbcl-cl-ana.math-functions + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.math-functions") + (inputs + `(("cl-ana.generic-math" ,sbcl-cl-ana.generic-math) + ("gsll" ,sbcl-gsll))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "math-functions/cl-ana.math-functions.asd") + ((#:asd-system-name _ #f) "cl-ana.math-functions"))))) + +(define-public cl-ana.math-functions + (sbcl-package->cl-source-package sbcl-cl-ana.math-functions)) + +(define-public sbcl-cl-ana.calculus + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.calculus") + (inputs + `(("cl-ana.generic-math" ,sbcl-cl-ana.generic-math))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "calculus/cl-ana.calculus.asd") + ((#:asd-system-name _ #f) "cl-ana.calculus"))))) + +(define-public cl-ana.calculus + (sbcl-package->cl-source-package sbcl-cl-ana.calculus)) + +(define-public ecl-cl-ana.calculus + (sbcl-package->ecl-package sbcl-cl-ana.calculus)) + +(define-public sbcl-cl-ana.symbol-utils + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.symbol-utils") + (inputs + `(("cl-ana.list-utils" ,sbcl-cl-ana.list-utils))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "symbol-utils/cl-ana.symbol-utils.asd") + ((#:asd-system-name _ #f) "cl-ana.symbol-utils"))))) + +(define-public cl-ana.symbol-utils + (sbcl-package->cl-source-package sbcl-cl-ana.symbol-utils)) + +(define-public ecl-cl-ana.symbol-utils + (sbcl-package->ecl-package sbcl-cl-ana.symbol-utils)) + +(define-public sbcl-cl-ana.macro-utils + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.macro-utils") + (inputs + `(("alexandria" ,sbcl-alexandria) + ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils) + ("cl-ana.string-utils" ,sbcl-cl-ana.string-utils) + ("cl-ana.symbol-utils" ,sbcl-cl-ana.symbol-utils) + ("split-sequence" ,sbcl-split-sequence))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "macro-utils/cl-ana.macro-utils.asd") + ((#:asd-system-name _ #f) "cl-ana.macro-utils"))))) + +(define-public cl-ana.macro-utils + (sbcl-package->cl-source-package sbcl-cl-ana.macro-utils)) + +(define-public ecl-cl-ana.macro-utils + (sbcl-package->ecl-package sbcl-cl-ana.macro-utils)) + +(define-public sbcl-cl-ana.binary-tree + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.binary-tree") + (inputs + `(("cl-ana.functional-utils" ,sbcl-cl-ana.functional-utils) + ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils) + ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "binary-tree/cl-ana.binary-tree.asd") + ((#:asd-system-name _ #f) "cl-ana.binary-tree"))))) + +(define-public cl-ana.binary-tree + (sbcl-package->cl-source-package sbcl-cl-ana.binary-tree)) + +(define-public ecl-cl-ana.binary-tree + (sbcl-package->ecl-package sbcl-cl-ana.binary-tree)) + +(define-public sbcl-cl-ana.tensor + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.tensor") + (inputs + `(("alexandria" ,sbcl-alexandria) + ("cl-ana.generic-math" ,sbcl-cl-ana.generic-math) + ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils) + ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils) + ("cl-ana.symbol-utils" ,sbcl-cl-ana.symbol-utils))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "tensor/cl-ana.tensor.asd") + ((#:asd-system-name _ #f) "cl-ana.tensor"))))) + +(define-public cl-ana.tensor + (sbcl-package->cl-source-package sbcl-cl-ana.tensor)) + +(define-public ecl-cl-ana.tensor + (sbcl-package->ecl-package sbcl-cl-ana.tensor)) + +(define-public sbcl-cl-ana.error-propogation + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.error-propogation") + (inputs + `(("cl-ana.generic-math" ,sbcl-cl-ana.generic-math) + ("cl-ana.math-functions" ,sbcl-cl-ana.math-functions))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "error-propogation/cl-ana.error-propogation.asd") + ((#:asd-system-name _ #f) "cl-ana.error-propogation"))))) + +(define-public cl-ana.error-propogation + (sbcl-package->cl-source-package sbcl-cl-ana.error-propogation)) + +(define-public sbcl-cl-ana.quantity + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.quantity") + (inputs + `(("alexandria" ,sbcl-alexandria) + ("cl-ana.error-propogation" ,sbcl-cl-ana.error-propogation) + ("cl-ana.generic-math" ,sbcl-cl-ana.generic-math) + ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils) + ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils) + ("cl-ana.symbol-utils" ,sbcl-cl-ana.symbol-utils))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "quantity/cl-ana.quantity.asd") + ((#:asd-system-name _ #f) "cl-ana.quantity"))))) + +(define-public cl-ana.quantity + (sbcl-package->cl-source-package sbcl-cl-ana.quantity)) + +(define-public sbcl-cl-ana.table + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.table") + (inputs + `(("alexandria" ,sbcl-alexandria) + ("cl-ana.functional-utils" ,sbcl-cl-ana.functional-utils) + ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils) + ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils) + ("cl-ana.string-utils" ,sbcl-cl-ana.string-utils) + ("cl-ana.symbol-utils" ,sbcl-cl-ana.symbol-utils))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "table/cl-ana.table.asd") + ((#:asd-system-name _ #f) "cl-ana.table"))))) + +(define-public cl-ana.table + (sbcl-package->cl-source-package sbcl-cl-ana.table)) + +(define-public ecl-cl-ana.table + (sbcl-package->ecl-package sbcl-cl-ana.table)) + +(define-public sbcl-cl-ana.table-utils + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.table-utils") + (inputs + `(("cl-ana.string-utils" ,sbcl-cl-ana.string-utils) + ("cl-ana.symbol-utils" ,sbcl-cl-ana.symbol-utils) + ("cl-ana.table" ,sbcl-cl-ana.table))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "table-utils/cl-ana.table-utils.asd") + ((#:asd-system-name _ #f) "cl-ana.table-utils"))))) + +(define-public cl-ana.table-utils + (sbcl-package->cl-source-package sbcl-cl-ana.table-utils)) + +(define-public ecl-cl-ana.table-utils + (sbcl-package->ecl-package sbcl-cl-ana.table-utils)) + +(define-public sbcl-cl-ana.hdf-cffi + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.hdf-cffi") + (inputs + `(("cffi" ,sbcl-cffi) + ("hdf5" ,hdf5-parallel-openmpi))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "hdf-cffi/cl-ana.hdf-cffi.asd") + ((#:asd-system-name _ #f) "cl-ana.hdf-cffi") + ((#:phases phases '%standard-phases) + `(modify-phases ,phases + (add-after 'unpack 'fix-paths + (lambda* (#:key inputs #:allow-other-keys) + (substitute* "hdf-cffi/hdf-cffi.lisp" + (("/usr/lib/i386-linux-gnu/hdf5/serial/libhdf5.so") + (string-append + (assoc-ref inputs "hdf5") + "/lib/libhdf5.so"))))))))))) + +(define-public cl-ana.hdf-cffi + (sbcl-package->cl-source-package sbcl-cl-ana.hdf-cffi)) + +(define-public ecl-cl-ana.hdf-cffi + (sbcl-package->ecl-package sbcl-cl-ana.hdf-cffi)) + +(define-public sbcl-cl-ana.int-char + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.int-char") + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "int-char/cl-ana.int-char.asd") + ((#:asd-system-name _ #f) "cl-ana.int-char"))))) + +(define-public cl-ana.int-char + (sbcl-package->cl-source-package sbcl-cl-ana.int-char)) + +(define-public ecl-cl-ana.int-char + (sbcl-package->ecl-package sbcl-cl-ana.int-char)) + +(define-public sbcl-cl-ana.memoization + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.memoization") + (inputs + `(("alexandria" ,sbcl-alexandria))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "memoization/cl-ana.memoization.asd") + ((#:asd-system-name _ #f) "cl-ana.memoization"))))) + +(define-public cl-ana.memoization + (sbcl-package->cl-source-package sbcl-cl-ana.memoization)) + +(define-public ecl-cl-ana.memoization + (sbcl-package->ecl-package sbcl-cl-ana.memoization)) + +(define-public sbcl-cl-ana.typespec + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.typespec") + (inputs + `(("alexandria" ,sbcl-alexandria) + ("cffi" ,sbcl-cffi) + ("cl-ana.int-char" ,sbcl-cl-ana.int-char) + ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils) + ("cl-ana.memoization" ,sbcl-cl-ana.memoization) + ("cl-ana.string-utils" ,sbcl-cl-ana.string-utils) + ("cl-ana.symbol-utils" ,sbcl-cl-ana.symbol-utils) + ("cl-ana.tensor" ,sbcl-cl-ana.tensor))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "typespec/cl-ana.typespec.asd") + ((#:asd-system-name _ #f) "cl-ana.typespec"))))) + +(define-public cl-ana.typespec + (sbcl-package->cl-source-package sbcl-cl-ana.typespec)) + +(define-public ecl-cl-ana.typespec + (sbcl-package->ecl-package sbcl-cl-ana.typespec)) + +(define-public sbcl-cl-ana.hdf-typespec + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.hdf-typespec") + (inputs + `(("alexandria" ,sbcl-alexandria) + ("cffi" ,sbcl-cffi) + ("cl-ana.hdf-cffi" ,sbcl-cl-ana.hdf-cffi) + ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils) + ("cl-ana.memoization" ,sbcl-cl-ana.memoization) + ("cl-ana.string-utils" ,sbcl-cl-ana.string-utils) + ("cl-ana.symbol-utils" ,sbcl-cl-ana.symbol-utils) + ("cl-ana.typespec" ,sbcl-cl-ana.typespec))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "hdf-typespec/cl-ana.hdf-typespec.asd") + ((#:asd-system-name _ #f) "cl-ana.hdf-typespec"))))) + +(define-public cl-ana.hdf-typespec + (sbcl-package->cl-source-package sbcl-cl-ana.hdf-typespec)) + +(define-public ecl-cl-ana.hdf-typespec + (sbcl-package->ecl-package sbcl-cl-ana.hdf-typespec)) + +(define-public sbcl-cl-ana.hdf-utils + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.hdf-utils") + (inputs + `(("alexandria" ,sbcl-alexandria) + ("cffi" ,sbcl-cffi) + ("cl-ana.hdf-cffi" ,sbcl-cl-ana.hdf-cffi) + ("cl-ana.hdf-typespec" ,sbcl-cl-ana.hdf-typespec) + ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils) + ("cl-ana.memoization" ,sbcl-cl-ana.memoization) + ("cl-ana.pathname-utils" ,sbcl-cl-ana.pathname-utils) + ("cl-ana.string-utils" ,sbcl-cl-ana.string-utils) + ("cl-ana.typespec" ,sbcl-cl-ana.typespec))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "hdf-utils/cl-ana.hdf-utils.asd") + ((#:asd-system-name _ #f) "cl-ana.hdf-utils"))))) + +(define-public cl-ana.hdf-utils + (sbcl-package->cl-source-package sbcl-cl-ana.hdf-utils)) + +(define-public ecl-cl-ana.hdf-utils + (sbcl-package->ecl-package sbcl-cl-ana.hdf-utils)) + +(define-public sbcl-cl-ana.typed-table + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.typed-table") + (inputs + `(("alexandria" ,sbcl-alexandria) + ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils) + ("cl-ana.string-utils" ,sbcl-cl-ana.string-utils) + ("cl-ana.symbol-utils" ,sbcl-cl-ana.symbol-utils) + ("cl-ana.table" ,sbcl-cl-ana.table) + ("cl-ana.typespec" ,sbcl-cl-ana.typespec))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "typed-table/cl-ana.typed-table.asd") + ((#:asd-system-name _ #f) "cl-ana.typed-table"))))) + +(define-public cl-ana.typed-table + (sbcl-package->cl-source-package sbcl-cl-ana.typed-table)) + +(define-public ecl-cl-ana.typed-table + (sbcl-package->ecl-package sbcl-cl-ana.typed-table)) + +(define-public sbcl-cl-ana.hdf-table + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.hdf-table") + (inputs + `(("alexandria" ,sbcl-alexandria) + ("cl-ana.binary-tree" ,sbcl-cl-ana.binary-tree) + ("cl-ana.hdf-cffi" ,sbcl-cl-ana.hdf-cffi) + ("cl-ana.hdf-typespec" ,sbcl-cl-ana.hdf-typespec) + ("cl-ana.hdf-utils" ,sbcl-cl-ana.hdf-utils) + ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils) + ("cl-ana.memoization" ,sbcl-cl-ana.memoization) + ("cl-ana.table" ,sbcl-cl-ana.table) + ("cl-ana.typed-table" ,sbcl-cl-ana.typed-table) + ("cl-ana.typespec" ,sbcl-cl-ana.typespec))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "hdf-table/cl-ana.hdf-table.asd") + ((#:asd-system-name _ #f) "cl-ana.hdf-table"))))) + +(define-public cl-ana.hdf-table + (sbcl-package->cl-source-package sbcl-cl-ana.hdf-table)) + +(define-public ecl-cl-ana.hdf-table + (sbcl-package->ecl-package sbcl-cl-ana.hdf-table)) + +(define-public sbcl-cl-ana.gsl-cffi + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.gsl-cffi") + (inputs + `(("cffi" ,sbcl-cffi) + ("gsl" ,gsl))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "gsl-cffi/cl-ana.gsl-cffi.asd") + ((#:asd-system-name _ #f) "cl-ana.gsl-cffi") + ((#:phases phases '%standard-phases) + `(modify-phases ,phases + (add-after 'unpack 'fix-paths + (lambda* (#:key inputs #:allow-other-keys) + (substitute* "gsl-cffi/gsl-cffi.lisp" + (("define-foreign-library gsl-cffi" all) + (string-append all " (:unix " + (assoc-ref inputs "gsl") + "/lib/libgsl.so)"))))))))))) + +(define-public cl-ana.gsl-cffi + (sbcl-package->cl-source-package sbcl-cl-ana.gsl-cffi)) + +(define-public ecl-cl-ana.gsl-cffi + (sbcl-package->ecl-package sbcl-cl-ana.gsl-cffi)) + +(define-public sbcl-cl-ana.ntuple-table + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.ntuple-table") + (inputs + `(("alexandria" ,sbcl-alexandria) + ("cffi" ,sbcl-cffi) + ("cl-ana.gsl-cffi" ,sbcl-cl-ana.gsl-cffi) + ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils) + ("cl-ana.table" ,sbcl-cl-ana.table) + ("cl-ana.typed-table" ,sbcl-cl-ana.typed-table) + ("cl-ana.typespec" ,sbcl-cl-ana.typespec) + ("gsll" ,sbcl-gsll))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "ntuple-table/cl-ana.ntuple-table.asd") + ((#:asd-system-name _ #f) "cl-ana.ntuple-table"))))) + +(define-public cl-ana.ntuple-table + (sbcl-package->cl-source-package sbcl-cl-ana.ntuple-table)) + +(define-public sbcl-cl-ana.csv-table + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.csv-table") + (inputs + `(("alexandria" ,sbcl-alexandria) + ("antik" ,sbcl-antik) + ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils) + ("cl-ana.table" ,sbcl-cl-ana.table) + ("cl-csv" ,sbcl-cl-csv) + ("iterate" ,sbcl-iterate))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "csv-table/cl-ana.csv-table.asd") + ((#:asd-system-name _ #f) "cl-ana.csv-table"))))) + +(define-public cl-ana.csv-table + (sbcl-package->cl-source-package sbcl-cl-ana.csv-table)) + +(define-public sbcl-cl-ana.reusable-table + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.reusable-table") + (inputs + `(("alexandria" ,sbcl-alexandria) + ("cl-ana.table" ,sbcl-cl-ana.table))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "reusable-table/cl-ana.reusable-table.asd") + ((#:asd-system-name _ #f) "cl-ana.reusable-table"))))) + +(define-public cl-ana.reusable-table + (sbcl-package->cl-source-package sbcl-cl-ana.reusable-table)) + +(define-public ecl-cl-ana.reusable-table + (sbcl-package->ecl-package sbcl-cl-ana.reusable-table)) + +(define-public sbcl-cl-ana.linear-algebra + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.linear-algebra") + (inputs + `(("cl-ana.generic-math" ,sbcl-cl-ana.generic-math) + ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils) + ("cl-ana.math-functions" ,sbcl-cl-ana.math-functions) + ("cl-ana.tensor" ,sbcl-cl-ana.tensor) + ("gsll" ,sbcl-gsll))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "linear-algebra/cl-ana.linear-algebra.asd") + ((#:asd-system-name _ #f) "cl-ana.linear-algebra"))))) + +(define-public cl-ana.linear-algebra + (sbcl-package->cl-source-package sbcl-cl-ana.linear-algebra)) + +(define-public sbcl-cl-ana.lorentz + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.lorentz") + (inputs + `(("cl-ana.generic-math" ,sbcl-cl-ana.generic-math) + ("cl-ana.linear-algebra" ,sbcl-cl-ana.linear-algebra) + ("cl-ana.tensor" ,sbcl-cl-ana.tensor) + ("iterate" ,sbcl-iterate))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "lorentz/cl-ana.lorentz.asd") + ((#:asd-system-name _ #f) "cl-ana.lorentz"))))) + +(define-public cl-ana.lorentz + (sbcl-package->cl-source-package sbcl-cl-ana.lorentz)) + +(define-public sbcl-cl-ana.clos-utils + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.clos-utils") + (inputs + `(("cl-ana.list-utils" ,sbcl-cl-ana.list-utils) + ("cl-ana.symbol-utils" ,sbcl-cl-ana.symbol-utils) + ("cl-ana.tensor" ,sbcl-cl-ana.tensor) + ("closer-mop" ,sbcl-closer-mop))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "clos-utils/cl-ana.clos-utils.asd") + ((#:asd-system-name _ #f) "cl-ana.clos-utils"))))) + +(define-public cl-ana.clos-utils + (sbcl-package->cl-source-package sbcl-cl-ana.clos-utils)) + +(define-public ecl-cl-ana.clos-utils + (sbcl-package->ecl-package sbcl-cl-ana.clos-utils)) + +(define-public sbcl-cl-ana.hash-table-utils + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.hash-table-utils") + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "hash-table-utils/cl-ana.hash-table-utils.asd") + ((#:asd-system-name _ #f) "cl-ana.hash-table-utils"))))) + +(define-public cl-ana.hash-table-utils + (sbcl-package->cl-source-package sbcl-cl-ana.hash-table-utils)) + +(define-public ecl-cl-ana.hash-table-utils + (sbcl-package->ecl-package sbcl-cl-ana.hash-table-utils)) + +(define-public sbcl-cl-ana.map + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.map") + (inputs + `(("cl-ana.hash-table-utils" ,sbcl-cl-ana.hash-table-utils))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "map/cl-ana.map.asd") + ((#:asd-system-name _ #f) "cl-ana.map"))))) + +(define-public cl-ana.map + (sbcl-package->cl-source-package sbcl-cl-ana.map)) + +(define-public ecl-cl-ana.map + (sbcl-package->ecl-package sbcl-cl-ana.map)) + +(define-public sbcl-cl-ana.fitting + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.fitting") + (inputs + `(("alexandria" ,sbcl-alexandria) + ("cl-ana.error-propogation" ,sbcl-cl-ana.error-propogation) + ("cl-ana.generic-math" ,sbcl-cl-ana.generic-math) + ("cl-ana.map" ,sbcl-cl-ana.map) + ("cl-ana.math-functions" ,sbcl-cl-ana.math-functions) + ("gsll" ,sbcl-gsll))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "fitting/cl-ana.fitting.asd") + ((#:asd-system-name _ #f) "cl-ana.fitting"))))) + +(define-public cl-ana.fitting + (sbcl-package->cl-source-package sbcl-cl-ana.fitting)) + +(define-public sbcl-cl-ana.histogram + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.histogram") + (inputs + `(("alexandria" ,sbcl-alexandria) + ("iterate" ,sbcl-iterate) + ("cl-ana.binary-tree" ,sbcl-cl-ana.binary-tree) + ("cl-ana.clos-utils" ,sbcl-cl-ana.clos-utils) + ("cl-ana.fitting" ,sbcl-cl-ana.fitting) + ("cl-ana.functional-utils" ,sbcl-cl-ana.functional-utils) + ("cl-ana.generic-math" ,sbcl-cl-ana.generic-math) + ("cl-ana.hash-table-utils" ,sbcl-cl-ana.hash-table-utils) + ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils) + ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils) + ("cl-ana.map" ,sbcl-cl-ana.map) + ("cl-ana.tensor" ,sbcl-cl-ana.tensor))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "histogram/cl-ana.histogram.asd") + ((#:asd-system-name _ #f) "cl-ana.histogram"))))) + +(define-public cl-ana.histogram + (sbcl-package->cl-source-package sbcl-cl-ana.histogram)) + +(define-public sbcl-cl-ana.file-utils + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.file-utils") + (inputs + `(("external-program" ,sbcl-external-program) + ("split-sequence" ,sbcl-split-sequence))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "file-utils/cl-ana.file-utils.asd") + ((#:asd-system-name _ #f) "cl-ana.file-utils"))))) + +(define-public cl-ana.file-utils + (sbcl-package->cl-source-package sbcl-cl-ana.file-utils)) + +(define-public ecl-cl-ana.file-utils + (sbcl-package->ecl-package sbcl-cl-ana.file-utils)) + +(define-public sbcl-cl-ana.statistics + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.statistics") + (inputs + `(("cl-ana.generic-math" ,sbcl-cl-ana.generic-math) + ("cl-ana.histogram" ,sbcl-cl-ana.histogram) + ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils) + ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils) + ("cl-ana.map" ,sbcl-cl-ana.map))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "statistics/cl-ana.statistics.asd") + ((#:asd-system-name _ #f) "cl-ana.statistics"))))) + +(define-public cl-ana.statistics + (sbcl-package->cl-source-package sbcl-cl-ana.statistics)) + +(define-public sbcl-cl-ana.gnuplot-interface + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.gnuplot-interface") + (inputs + `(("external-program" ,sbcl-external-program))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "gnuplot-interface/cl-ana.gnuplot-interface.asd") + ((#:asd-system-name _ #f) "cl-ana.gnuplot-interface"))))) + +(define-public cl-ana.gnuplot-interface + (sbcl-package->cl-source-package sbcl-cl-ana.gnuplot-interface)) + +(define-public ecl-cl-ana.gnuplot-interface + (sbcl-package->ecl-package sbcl-cl-ana.gnuplot-interface)) + +(define-public sbcl-cl-ana.plotting + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.plotting") + (inputs + `(("alexandria" ,sbcl-alexandria) + ("cl-ana.error-propogation" ,sbcl-cl-ana.error-propogation) + ("cl-ana.functional-utils" ,sbcl-cl-ana.functional-utils) + ("cl-ana.generic-math" ,sbcl-cl-ana.generic-math) + ("cl-ana.gnuplot-interface" ,sbcl-cl-ana.gnuplot-interface) + ("cl-ana.histogram" ,sbcl-cl-ana.histogram) + ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils) + ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils) + ("cl-ana.map" ,sbcl-cl-ana.map) + ("cl-ana.math-functions" ,sbcl-cl-ana.math-functions) + ("cl-ana.pathname-utils" ,sbcl-cl-ana.pathname-utils) + ("cl-ana.string-utils" ,sbcl-cl-ana.string-utils) + ("cl-ana.tensor" ,sbcl-cl-ana.tensor) + ("external-program" ,sbcl-external-program) + ("split-sequence" ,sbcl-split-sequence))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "plotting/cl-ana.plotting.asd") + ((#:asd-system-name _ #f) "cl-ana.plotting"))))) + +(define-public cl-ana.plotting + (sbcl-package->cl-source-package sbcl-cl-ana.plotting)) + +(define-public sbcl-cl-ana.table-viewing + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.table-viewing") + (inputs + `(("alexandria" ,sbcl-alexandria) + ("cl-ana.generic-math" ,sbcl-cl-ana.generic-math) + ("cl-ana.histogram" ,sbcl-cl-ana.histogram) + ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils) + ("cl-ana.plotting" ,sbcl-cl-ana.plotting) + ("cl-ana.string-utils" ,sbcl-cl-ana.string-utils) + ("cl-ana.table" ,sbcl-cl-ana.table))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "table-viewing/cl-ana.table-viewing.asd") + ((#:asd-system-name _ #f) "cl-ana.table-viewing"))))) + +(define-public cl-ana.table-viewing + (sbcl-package->cl-source-package sbcl-cl-ana.table-viewing)) + +(define-public sbcl-cl-ana.serialization + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.serialization") + (inputs + `(("cl-ana.error-propogation" ,sbcl-cl-ana.error-propogation) + ("cl-ana.hdf-utils" ,sbcl-cl-ana.hdf-utils) + ("cl-ana.hdf-table" ,sbcl-cl-ana.hdf-table) + ("cl-ana.histogram" ,sbcl-cl-ana.histogram) + ("cl-ana.int-char" ,sbcl-cl-ana.int-char) + ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils) + ("cl-ana.typespec" ,sbcl-cl-ana.typespec))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "serialization/cl-ana.serialization.asd") + ((#:asd-system-name _ #f) "cl-ana.serialization"))))) + +(define-public cl-ana.serialization + (sbcl-package->cl-source-package sbcl-cl-ana.serialization)) + +(define-public sbcl-cl-ana.makeres + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.makeres") + (inputs + `(("alexandria" ,sbcl-alexandria) + ("cl-ana.error-propogation" ,sbcl-cl-ana.error-propogation) + ("cl-ana.file-utils" ,sbcl-cl-ana.file-utils) + ("cl-ana.functional-utils" ,sbcl-cl-ana.functional-utils) + ("cl-ana.generic-math" ,sbcl-cl-ana.generic-math) + ("cl-ana.hash-table-utils" ,sbcl-cl-ana.hash-table-utils) + ("cl-ana.hdf-utils" ,sbcl-cl-ana.hdf-utils) + ("cl-ana.histogram" ,sbcl-cl-ana.histogram) + ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils) + ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils) + ("cl-ana.map" ,sbcl-cl-ana.map) + ("cl-ana.memoization" ,sbcl-cl-ana.memoization) + ("cl-ana.pathname-utils" ,sbcl-cl-ana.pathname-utils) + ("cl-ana.plotting" ,sbcl-cl-ana.plotting) + ("cl-ana.reusable-table" ,sbcl-cl-ana.reusable-table) + ("cl-ana.serialization" ,sbcl-cl-ana.serialization) + ("cl-ana.string-utils" ,sbcl-cl-ana.string-utils) + ("cl-ana.symbol-utils" ,sbcl-cl-ana.symbol-utils) + ("cl-ana.table" ,sbcl-cl-ana.table) + ("external-program" ,sbcl-external-program))) + (native-inputs + `(("cl-fad" ,sbcl-cl-fad))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "makeres/cl-ana.makeres.asd") + ((#:asd-system-name _ #f) "cl-ana.makeres"))))) + +(define-public cl-ana.makeres + (sbcl-package->cl-source-package sbcl-cl-ana.makeres)) + +(define-public sbcl-cl-ana.makeres-macro + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.makeres-macro") + (inputs + `(("cl-ana.list-utils" ,sbcl-cl-ana.list-utils) + ("cl-ana.makeres" ,sbcl-cl-ana.makeres))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "makeres-macro/cl-ana.makeres-macro.asd") + ((#:asd-system-name _ #f) "cl-ana.makeres-macro"))))) + +(define-public cl-ana.makeres-macro + (sbcl-package->cl-source-package sbcl-cl-ana.makeres-macro)) + +(define-public sbcl-cl-ana.makeres-block + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.makeres-block") + (inputs + `(("alexandria" ,sbcl-alexandria) + ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils) + ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils) + ("cl-ana.makeres" ,sbcl-cl-ana.makeres))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "makeres-block/cl-ana.makeres-block.asd") + ((#:asd-system-name _ #f) "cl-ana.makeres-block"))))) + +(define-public cl-ana.makeres-block + (sbcl-package->cl-source-package sbcl-cl-ana.makeres-block)) + +(define-public sbcl-cl-ana.makeres-progress + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.makeres-progress") + (inputs + `(("alexandria" ,sbcl-alexandria) + ("cl-ana.generic-math" ,sbcl-cl-ana.generic-math) + ("cl-ana.makeres" ,sbcl-cl-ana.makeres))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "makeres-progress/cl-ana.makeres-progress.asd") + ((#:asd-system-name _ #f) "cl-ana.makeres-progress"))))) + +(define-public cl-ana.makeres-progress + (sbcl-package->cl-source-package sbcl-cl-ana.makeres-progress)) + +(define-public sbcl-cl-ana.makeres-table + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.makeres-table") + (inputs + `(("cl-ana.csv-table" ,sbcl-cl-ana.csv-table) + ("cl-ana.hash-table-utils" ,sbcl-cl-ana.hash-table-utils) + ("cl-ana.hdf-table" ,sbcl-cl-ana.hdf-table) + ("cl-ana.hdf-utils" ,sbcl-cl-ana.hdf-utils) + ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils) + ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils) + ("cl-ana.makeres" ,sbcl-cl-ana.makeres) + ("cl-ana.makeres-macro" ,sbcl-cl-ana.makeres-macro) + ("cl-ana.memoization" ,sbcl-cl-ana.memoization) + ("cl-ana.ntuple-table" ,sbcl-cl-ana.ntuple-table) + ("cl-ana.reusable-table" ,sbcl-cl-ana.reusable-table) + ("cl-ana.string-utils" ,sbcl-cl-ana.string-utils) + ("cl-ana.table" ,sbcl-cl-ana.table))) + (native-inputs + `(("cl-fad" ,sbcl-cl-fad))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "makeres-table/cl-ana.makeres-table.asd") + ((#:asd-system-name _ #f) "cl-ana.makeres-table"))))) + +(define-public cl-ana.makeres-table + (sbcl-package->cl-source-package sbcl-cl-ana.makeres-table)) + +(define-public sbcl-cl-ana.makeres-graphviz + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.makeres-graphviz") + (inputs + `(("cl-ana.makeres" ,sbcl-cl-ana.makeres) + ("external-program" ,sbcl-external-program))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "makeres-graphviz/cl-ana.makeres-graphviz.asd") + ((#:asd-system-name _ #f) "cl-ana.makeres-graphviz"))))) + +(define-public cl-ana.makeres-graphviz + (sbcl-package->cl-source-package sbcl-cl-ana.makeres-graphviz)) + +(define-public sbcl-cl-ana.makeres-branch + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.makeres-branch") + (inputs + `(("alexandria" ,sbcl-alexandria) + ("cl-ana.generic-math" ,sbcl-cl-ana.generic-math) + ("cl-ana.hash-table-utils" ,sbcl-cl-ana.hash-table-utils) + ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils) + ("cl-ana.map" ,sbcl-cl-ana.map) + ("cl-ana.makeres" ,sbcl-cl-ana.makeres))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "makeres-branch/cl-ana.makeres-branch.asd") + ((#:asd-system-name _ #f) "cl-ana.makeres-branch"))))) + +(define-public cl-ana.makeres-branch + (sbcl-package->cl-source-package sbcl-cl-ana.makeres-branch)) + +(define-public sbcl-cl-ana.makeres-utils + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.makeres-utils") + (inputs + `(("alexandria" ,sbcl-alexandria) + ("cl-ana.file-utils" ,sbcl-cl-ana.file-utils) + ("cl-ana.fitting" ,sbcl-cl-ana.fitting) + ("cl-ana.functional-utils" ,sbcl-cl-ana.functional-utils) + ("cl-ana.generic-math" ,sbcl-cl-ana.generic-math) + ("cl-ana.histogram" ,sbcl-cl-ana.histogram) + ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils) + ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils) + ("cl-ana.makeres" ,sbcl-cl-ana.makeres) + ("cl-ana.map" ,sbcl-cl-ana.map) + ("cl-ana.pathname-utils" ,sbcl-cl-ana.pathname-utils) + ("cl-ana.plotting" ,sbcl-cl-ana.plotting) + ("cl-ana.reusable-table" ,sbcl-cl-ana.reusable-table) + ("cl-ana.string-utils" ,sbcl-cl-ana.string-utils) + ("cl-ana.symbol-utils" ,sbcl-cl-ana.symbol-utils) + ("cl-ana.table" ,sbcl-cl-ana.table))) + (native-inputs + `(("cl-fad" ,sbcl-cl-fad))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "makeres-utils/cl-ana.makeres-utils.asd") + ((#:asd-system-name _ #f) "cl-ana.makeres-utils"))))) + +(define-public cl-ana.makeres-utils + (sbcl-package->cl-source-package sbcl-cl-ana.makeres-utils)) + +(define-public sbcl-cl-ana.statistical-learning + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana.statistical-learning") + (inputs + `(("cl-ana.generic-math" ,sbcl-cl-ana.generic-math) + ("cl-ana.functional-utils" ,sbcl-cl-ana.functional-utils) + ("cl-ana.histogram" ,sbcl-cl-ana.histogram) + ("cl-ana.linear-algebra" ,sbcl-cl-ana.linear-algebra) + ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils) + ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils) + ("cl-ana.math-functions" ,sbcl-cl-ana.math-functions) + ("cl-ana.map" ,sbcl-cl-ana.map) + ("cl-ana.statistics" ,sbcl-cl-ana.statistics))) + (native-inputs + `(("cl-fad" ,sbcl-cl-fad))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") + "statistical-learning/cl-ana.statistical-learning.asd") + ((#:asd-system-name _ #f) "cl-ana.statistical-learning"))))) + +(define-public cl-ana.statistical-learning + (sbcl-package->cl-source-package sbcl-cl-ana.statistical-learning)) + +(define-public sbcl-cl-ana + (package + (inherit sbcl-cl-ana-boot0) + (name "sbcl-cl-ana") + (inputs + `(("cl-ana.binary-tree" ,sbcl-cl-ana.binary-tree) + ("cl-ana.calculus" ,sbcl-cl-ana.calculus) + ("cl-ana.clos-utils" ,sbcl-cl-ana.clos-utils) + ("cl-ana.csv-table" ,sbcl-cl-ana.csv-table) + ("cl-ana.error-propogation" ,sbcl-cl-ana.error-propogation) + ("cl-ana.file-utils" ,sbcl-cl-ana.file-utils) + ("cl-ana.fitting" ,sbcl-cl-ana.fitting) + ("cl-ana.generic-math" ,sbcl-cl-ana.generic-math) + ("cl-ana.hash-table-utils" ,sbcl-cl-ana.hash-table-utils) + ("cl-ana.hdf-table" ,sbcl-cl-ana.hdf-table) + ("cl-ana.histogram" ,sbcl-cl-ana.histogram) + ("cl-ana.int-char" ,sbcl-cl-ana.int-char) + ("cl-ana.linear-algebra" ,sbcl-cl-ana.linear-algebra) + ("cl-ana.lorentz" ,sbcl-cl-ana.lorentz) + ("cl-ana.map" ,sbcl-cl-ana.map) + ("cl-ana.makeres" ,sbcl-cl-ana.makeres) + ("cl-ana.makeres-block" ,sbcl-cl-ana.makeres-block) + ("cl-ana.makeres-branch" ,sbcl-cl-ana.makeres-branch) + ("cl-ana.makeres-graphviz" ,sbcl-cl-ana.makeres-graphviz) + ("cl-ana.makeres-macro" ,sbcl-cl-ana.makeres-macro) + ("cl-ana.makeres-progress" ,sbcl-cl-ana.makeres-progress) + ("cl-ana.makeres-table" ,sbcl-cl-ana.makeres-table) + ("cl-ana.makeres-utils" ,sbcl-cl-ana.makeres-utils) + ("cl-ana.math-functions" ,sbcl-cl-ana.math-functions) + ("cl-ana.ntuple-table" ,sbcl-cl-ana.ntuple-table) + ("cl-ana.package-utils" ,sbcl-cl-ana.package-utils) + ("cl-ana.pathname-utils" ,sbcl-cl-ana.pathname-utils) + ("cl-ana.plotting" ,sbcl-cl-ana.plotting) + ("cl-ana.quantity" ,sbcl-cl-ana.quantity) + ("cl-ana.reusable-table" ,sbcl-cl-ana.reusable-table) + ("cl-ana.serialization" ,sbcl-cl-ana.serialization) + ("cl-ana.statistics" ,sbcl-cl-ana.statistics) + ("cl-ana.statistical-learning" ,sbcl-cl-ana.statistical-learning) + ("cl-ana.table" ,sbcl-cl-ana.table) + ("cl-ana.table-utils" ,sbcl-cl-ana.table-utils) + ("cl-ana.table-viewing" ,sbcl-cl-ana.table-viewing) + ("cl-ana.tensor" ,sbcl-cl-ana.tensor) + ("libffi" ,libffi))) + (native-inputs + `(("cl-fad" ,sbcl-cl-fad))) + (arguments + (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0) + ((#:asd-file _ "") "cl-ana.asd") + ((#:asd-system-name _ #f) "cl-ana"))))) + +(define-public cl-ana + (sbcl-package->cl-source-package sbcl-cl-ana)) diff --git a/gnu/packages/lisp.scm b/gnu/packages/lisp.scm index a3ac957f63..f2f483e0d4 100644 --- a/gnu/packages/lisp.scm +++ b/gnu/packages/lisp.scm @@ -14,7 +14,7 @@ ;;; Copyright © 2018, 2019 Pierre Langlois <pierre.langlois@gmx.com> ;;; Copyright © 2019 Katherine Cox-Buday <cox.katherine.e@gmail.com> ;;; Copyright © 2019 Jesse Gildersleve <jessejohngildersleve@protonmail.com> -;;; Copyright © 2019 Guillaume Le Vaillant <glv@posteo.net> +;;; Copyright © 2019, 2020 Guillaume Le Vaillant <glv@posteo.net> ;;; ;;; This file is part of GNU Guix. ;;; @@ -71,10 +71,10 @@ #:use-module (gnu packages readline) #:use-module (gnu packages sdl) #:use-module (gnu packages tex) + #:use-module (gnu packages tls) #:use-module (gnu packages texinfo) #:use-module (gnu packages version-control) #:use-module (gnu packages xorg) - #:use-module (srfi srfi-1) #:use-module (ice-9 match)) (define (asdf-substitutions lisp) @@ -319,17 +319,17 @@ high-level, object-oriented functional programming language. CLISP includes an interpreter, a compiler, a debugger, and much more.") (license license:gpl2+))) -(define sbcl-boot0 +(define-public sbcl (package - (name "sbcl-boot0") - (version "1.5.8") + (name "sbcl") + (version "2.0.0") (source (origin (method url-fetch) (uri (string-append "mirror://sourceforge/sbcl/sbcl/" version "/sbcl-" version "-source.tar.bz2")) (sha256 - (base32 "0k7zjrky8r2krkd8780cph214hiihg9nh5rxn4nrhg6i6f8jymw4")) + (base32 "1krgd69cirp4ili2pfsh1a0mfvq722jbknlvmf17qhsxh1b94dlh")) (modules '((guix build utils))) (snippet ;; Add sbcl-bundle-systems to 'default-system-source-registry'. @@ -358,8 +358,13 @@ an interpreter, a compiler, a debugger, and much more.") ;; 2019-09-05, ECL was last updated in 2016 while CLISP was last updated ;; in 2010. ;; - ;; For now we stick to CLISP for all systems. - `(("clisp" ,clisp) + ;; For now we stick to CLISP for all systems. We keep the `match' here to + ;; make it easier to change the host compiler for various architectures. + `(,@(match (%current-system) + ((or "x86_64-linux" "i686-linux") + `(("clisp" ,clisp))) + (_ + `(("clisp" ,clisp)))) ("which" ,which) ("inetutils" ,inetutils) ;for hostname(1) ("ed" ,ed) @@ -427,7 +432,11 @@ an interpreter, a compiler, a debugger, and much more.") (replace 'build (lambda* (#:key outputs #:allow-other-keys) (setenv "CC" "gcc") - (invoke "sh" "make.sh" "clisp" + (invoke "sh" "make.sh" ,@(match (%current-system) + ((or "x86_64-linux" "i686-linux") + `("clisp")) + (_ + `("clisp"))) (string-append "--prefix=" (assoc-ref outputs "out")) "--with-sb-core-compression" @@ -485,46 +494,6 @@ statistical profiler, a code coverage tool, and many other extensions.") (license (list license:public-domain license:bsd-2 (license:x11-style "file://src/code/loop.lisp"))))) -(define-public sbcl - ;; Since 1.5.9, SBCL requires itself to build. - ;; See https://bugs.launchpad.net/sbcl/+bug/1855272. - (package - (inherit sbcl-boot0) - (name "sbcl") - (version "1.5.9") - (source - (origin - (method url-fetch) - (uri (string-append "mirror://sourceforge/sbcl/sbcl/" version "/sbcl-" - version "-source.tar.bz2")) - (sha256 - (base32 "1dmrlklil7x3j68mwmjfpd71vkphr24s4rx6d61jpc54x0jhvnyb")) - (modules '((guix build utils))) - (snippet - ;; Add sbcl-bundle-systems to 'default-system-source-registry'. - `(begin - (substitute* "contrib/asdf/asdf.lisp" - ,@(asdf-substitutions name)) - #t)))) - (build-system gnu-build-system) - (outputs '("out" "doc")) - (native-inputs - `(("sbcl" ,sbcl-boot0) - ,@(fold alist-delete (package-native-inputs sbcl-boot0) - '("clisp")))) - (arguments - (substitute-keyword-arguments (package-arguments sbcl-boot0) - ((#:phases phases) - `(modify-phases ,phases - (replace 'build - (lambda* (#:key outputs #:allow-other-keys) - (setenv "CC" "gcc") - (invoke "sh" "make.sh" "sbcl" - (string-append "--prefix=" - (assoc-ref outputs "out")) - "--with-sb-core-compression" - "--with-sb-xref-for-internals"))))))))) - (define-public ccl ;; Warning: according to upstream, CCL is not bootstrappable. ;; See https://github.com/Clozure/ccl/issues/222 from 2019-09-02: @@ -815,3 +784,161 @@ command line, to data scanning and extracting scripts, to full application development in a wide-range of areas.") (home-page "https://nongnu.org/txr/") (license license:bsd-2))) + +(define picolisp32 + (package + (name "picolisp32") + (version "19.12") + (source + (origin + (method url-fetch) + (uri (string-append "https://software-lab.de/picoLisp-" version ".tgz")) + (sha256 + (base32 "10np0mhihr47r3201617zccrvzpkhdl1jwvz7zimk8kxpriydq2j")) + (modules '((guix build utils))) + (snippet '(begin + ;; Delete the pre-compiled jar file. + (delete-file "ersatz/picolisp.jar") + #t)))) + (build-system gnu-build-system) + (inputs + `(("openssl" ,openssl))) + (arguments + `(#:system ,(match (%current-system) + ((or "armhf-linux" "aarch64-linux") + "armhf-linux") + (_ + "i686-linux")) + #:phases + (modify-phases %standard-phases + (delete 'configure) + (add-after 'unpack 'fix-paths + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (shebang-line (string-append + "#!" out "/bin/picolisp " + out "/lib/picolisp/lib.l"))) + (substitute* '("bin/pil" + "bin/pilIndent" + "bin/pilPretty" + "bin/psh" + "bin/replica" + "bin/vip" + "bin/watchdog" + "games/xchess" + "misc/bigtest" + "misc/calc" + "misc/chat" + "misc/mailing" + "src/mkVers") + (("#\\!bin/picolisp lib.l") + shebang-line) + (("#\\!\\.\\./bin/picolisp \\.\\./lib.l") + shebang-line) + (("#\\!/usr/bin/picolisp /usr/lib/picolisp/lib.l") + shebang-line))) + #t)) + (add-after 'fix-paths 'make-build-reproducible + (lambda _ + (substitute* "src64/lib/asm.l" + (("\\(prinl \"/\\* \" \\(datSym \\(date\\)\\) \" \\*/\\)") + "")) + #t)) + (add-after 'make-build-reproducible 'fix-permissions + (lambda _ + (for-each make-file-writable + '("doc/family.tgz" + "doc/family64.tgz" + "lib/map" + "src64/tags")) + #t)) + (replace 'build + (lambda _ + (invoke "make" "-C" "src" "picolisp" "tools" "gate"))) + (add-before 'check 'set-home-for-tests + (lambda _ + (setenv "HOME" "/tmp") + #t)) + (replace 'check + (lambda _ + (invoke "./pil" "test/lib.l" "-bye" "+"))) + (replace 'install + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (bin (string-append out "/bin")) + (man (string-append out "/share/man")) + (picolisp (string-append out "/lib/picolisp"))) + (copy-recursively "man" man) + (copy-recursively "." picolisp) + (for-each (lambda (name) + (let ((path (string-append picolisp "/" name))) + (delete-file-recursively path))) + '("CHANGES" "COPYING" "CREDITS" "cygwin" + "INSTALL" "man" "pil" "README" "src" "src64" + "test")) + (mkdir-p bin) + (symlink (string-append picolisp "/bin/picolisp") + (string-append bin "/picolisp")) + (symlink (string-append picolisp "/bin/pil") + (string-append bin "/pil"))) + #t))))) + (synopsis "Interpreter for the PicoLisp programming language") + (description + "PicoLisp is a programming language, or really a programming system, +including a built-in database engine and a GUI system.") + (home-page "https://picolisp.com/wiki/?home") + (license license:expat))) + +(define-public picolisp + (match (%current-system) + ((or "aarch64-linux" "x86_64-linux") + (package + ;; Use the 32-bit picolisp to generate the assembly files required by + ;; the 64-bit picolisp. + (inherit picolisp32) + (name "picolisp") + (native-inputs + `(("picolisp32" ,picolisp32) + ("which" ,which))) + (arguments + (substitute-keyword-arguments (package-arguments picolisp32) + ((#:system _ "") (%current-system)) + ((#:phases phases) + `(modify-phases ,phases + (delete 'fix-paths) + (add-before 'build 'fix-paths + ;; This must run after the other shebang-patching phases, + ;; or they will override our changes. + (lambda* (#:key inputs outputs #:allow-other-keys) + (let* ((picolisp32 (assoc-ref inputs "picolisp32")) + (out (assoc-ref outputs "out")) + (shebang-line (string-append + "#!" out "/bin/picolisp " + out "/lib/picolisp/lib.l"))) + (substitute* '("bin/pil" + "bin/pilIndent" + "bin/pilPretty" + "bin/psh" + "bin/replica" + "bin/vip" + "bin/watchdog" + "games/xchess" + "misc/bigtest" + "misc/calc" + "misc/chat" + "misc/mailing" + "src/mkVers") + (("#\\!.*picolisp32.*/bin/picolisp .*lib\\.l") + shebang-line)) + (substitute* "src64/mkAsm" + (("/usr/bin/") + (string-append picolisp32 "/bin/")))) + #t)) + (replace 'build + (lambda _ + (invoke "make" "-C" "src" "tools" "gate") + (invoke "make" "-C" "src64" "CC=gcc" "picolisp"))))))))) + (_ + (package + (inherit picolisp32) + (name "picolisp"))))) diff --git a/gnu/packages/lua.scm b/gnu/packages/lua.scm index 23604868a5..a69291ec8a 100644 --- a/gnu/packages/lua.scm +++ b/gnu/packages/lua.scm @@ -3,7 +3,7 @@ ;;; Copyright © 2014 Raimon Grau <raimonster@gmail.com> ;;; Copyright © 2014 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2014 Andreas Enge <andreas@enge.fr> -;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il> +;;; Copyright © 2016, 2017, 2020 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016, 2019 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2016 doncatnip <gnopap@gmail.com> ;;; Copyright © 2016, 2017, 2019 Clément Lassieur <clement@lassieur.org> @@ -196,14 +196,14 @@ language.") (name name) (version "3.0-rc1") (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/diegonehab/luasocket/archive/v" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) + (method git-fetch) + (uri (git-reference + (url "https://github.com/diegonehab/luasocket") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) (sha256 (base32 - "0j8jx8bjicvp9khs26xjya8c495wrpb7parxfnabdqa5nnsxjrwb")))) + "1chs7z7a3i3lck4x7rz60ziwbf793gw169hpjdfca8y4yf1hzsxk")))) (build-system gnu-build-system) (arguments `(#:make-flags @@ -248,16 +248,18 @@ handy.") (define (make-lua-filesystem name lua) (package (name name) - (version "1.6.3") + (version "1.7.0.2") (source (origin - (method url-fetch) - (uri (string-append "https://github.com/keplerproject/" - "luafilesystem/archive/v_" - "1_6_3" ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) + (method git-fetch) + (uri (git-reference + (url "https://github.com/keplerproject/luafilesystem") + (commit (string-append "v" + (string-join + (string-split version #\.) "_"))))) + (file-name (git-file-name name version)) (sha256 (base32 - "0s10ckxin0bysd6gaywqhxkpw3ybjhprr8m655b8cx3pxjwd49am")))) + "0zmprgkm9zawdf9wnw0v3w6ibaj442wlc6alp39hmw610fl4vghi")))) (build-system gnu-build-system) (arguments `(#:make-flags @@ -291,14 +293,16 @@ directory structure and file attributes.") (define (make-lua-sec name lua) (package (name name) - (version "0.7") + (version "0.9") (source (origin - (method url-fetch) - (uri (string-append "https://github.com/brunoos/luasec/archive/" - "luasec-" version ".tar.gz")) + (method git-fetch) + (uri (git-reference + (url "https://github.com/brunoos/luasec") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) (sha256 (base32 - "0c9sdz3gvrsbvvdqzpnsappgwl40hfljlpfybqis6wia3mdyjxi1")))) + "0ssncgkggyr8i3z6zbvgrgsqj2q8676rnsikhpfwnk9n7sx4gwbl")))) (build-system gnu-build-system) (arguments `(#:make-flags @@ -340,14 +344,14 @@ secure session between the peers.") (version "0.9.2") (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/pavouk/lgi/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) + (method git-fetch) + (uri (git-reference + (url "https://github.com/pavouk/lgi") + (commit version))) + (file-name (git-file-name name version)) (sha256 - (base32 - "0kwcaj3ahi9gxfyp0lr5zgr6vi1mgsg9sz0980x0nwxlh9a11i6g")))) + (base32 + "03rbydnj411xpjvwsyvhwy4plm96481d7jax544mvk7apd8sd5jj")))) (build-system gnu-build-system) (arguments '(#:make-flags (list "CC=gcc" @@ -454,7 +458,7 @@ Grammars (PEGs).") (define (make-lua-luv name lua) (package (name name) - (version "1.30.1-1") + (version "1.32.0-0") (source (origin ;; The release tarball includes the sources of libuv but does ;; not include the pkg-config files. @@ -465,7 +469,7 @@ Grammars (PEGs).") (file-name (git-file-name name version)) (sha256 (base32 - "0b2zxrsjxzhzwfp28lchplrp272v6zkbpq1ddz7a0rf20l7dbls1")))) + "0c65c1lhbl0axnyks3910gjs0z0hw7w6jvl07g8kbpnbvfl4qajh")))) (build-system cmake-build-system) (arguments `(#:tests? #f ; there are none diff --git a/gnu/packages/lxqt.scm b/gnu/packages/lxqt.scm index 5a3708e30a..b23d2e17dc 100644 --- a/gnu/packages/lxqt.scm +++ b/gnu/packages/lxqt.scm @@ -7,7 +7,7 @@ ;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018, 2019 Meiyo Peng <meiyo@riseup.net> ;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net> -;;; Copyright © 2019 Reza Alizadeh Majd <r.majd@pantherx.org> +;;; Copyright © 2019, 2020 Reza Alizadeh Majd <r.majd@pantherx.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -984,7 +984,8 @@ components to build desktop file managers which belongs to LXDE.") (base32 "0x3c25inlxll965xszx37mnl5gp3smm2h7x04f67z0qlh3vsbrjq")))) (build-system cmake-build-system) (inputs - `(("libfm-qt" ,libfm-qt) + `(("glib:bin" ,glib "bin") + ("libfm-qt" ,libfm-qt) ("qtbase" ,qtbase) ("qtx11extras" ,qtx11extras))) (native-inputs @@ -1000,7 +1001,17 @@ components to build desktop file managers which belongs to LXDE.") (substitute* '("autostart/CMakeLists.txt") (("DESTINATION \"\\$\\{LXQT_ETC_XDG_DIR\\}") "DESTINATION \"etc/xdg")) - #t))))) + #t)) + (add-after 'install 'wrap-glib + (lambda* (#:key outputs inputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (glib (assoc-ref inputs "glib:bin")) + (gio-exe-path (string-append glib "/bin/gio-launch-desktop"))) + (if (file-exists? gio-exe-path) + (wrap-program (string-append out "/bin/pcmanfm-qt") + `("GIO_LAUNCH_DESKTOP" = (,gio-exe-path))) + (error "could not find gio-launch-desktop")) + #t)))))) (home-page "https://lxqt.org/") (synopsis "File manager and desktop icon manager") (description "PCManFM-Qt is the Qt port of PCManFM, the file manager of diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm index 57cc8eb9b1..7d56949ae9 100644 --- a/gnu/packages/mail.scm +++ b/gnu/packages/mail.scm @@ -22,7 +22,7 @@ ;;; Copyright © 2016, 2018 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be> ;;; Copyright © 2017 Kyle Meyer <kyle@kyleam.com> -;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017, 2018 Rene Saavedra <pacoon@protonmail.com> ;;; Copyright © 2018, 2019 Pierre Langlois <pierre.langlois@gmx.com> ;;; Copyright © 2018 Alex Vong <alexvong1995@gmail.com> @@ -1087,7 +1087,7 @@ useful features.") (define-public libetpan (package (name "libetpan") - (version "1.9.4") + (version "1.9.3") (source (origin (method git-fetch) (uri (git-reference @@ -1095,7 +1095,7 @@ useful features.") (commit version))) (file-name (git-file-name name version)) (sha256 - (base32 "0g7an003simfdn7ihg9yjv7hl2czsmjsndjrp39i7cad8icixscn")))) + (base32 "19g4qskg71jv7sxfxsdkjmrxk9mk5kf9b6fhw06g6wvm3205n95f")))) (build-system gnu-build-system) (native-inputs `(("autoconf" ,autoconf-wrapper) ("automake" ,automake) @@ -1260,21 +1260,25 @@ delivery.") (define-public exim (package (name "exim") - (version "4.92.3") + (version "4.93.0.4") (source (origin (method url-fetch) - (uri (list (string-append "https://ftp.exim.org/pub/exim/exim4/exim-" - version ".tar.bz2") - (string-append "https://ftp.exim.org/pub/exim/exim4/old/exim-" - version ".tar.bz2"))) + (uri (let ((file-name (string-append "exim-" version ".tar.xz"))) + (list (string-append "https://ftp.exim.org/pub/exim/exim4/" + file-name) + ;; ‘Fix’ releases (exim-x.y.z.f) are kept separately. + (string-append "https://ftp.exim.org/pub/exim/exim4/fixes/" + file-name) + ;; After a new non-fix release, the old one is moved here. + (string-append "https://ftp.exim.org/pub/exim/exim4/old/" + file-name)))) (sha256 - (base32 - "0d0h0j9pl3yf089sc59ia60m3dqnkb3qh1qaz6vxfg2ja2mnm5i9")))) + (base32 "01g4sfycv13glnmfrapwhjbdw6z1z7w5bwjldxjmglwfw5p3czak")))) (build-system gnu-build-system) (inputs `(("bdb" ,bdb-5.3) ; ‘#error Version 6 and later BDB API is not supported’ - ("gnutls" ,gnutls) + ("gnutls" ,gnutls/dane) ("gzip" ,gzip) ("bzip2" ,bzip2) ("xz" ,xz) @@ -1284,7 +1288,8 @@ delivery.") ("libxaw" ,libxaw))) (native-inputs `(("pcre" ,pcre "bin") - ("perl" ,perl))) + ("perl" ,perl) + ("pkg-config" ,pkg-config))) (arguments '(#:phases (modify-phases %standard-phases @@ -1313,9 +1318,11 @@ delivery.") (("(COMPRESS_COMMAND=).*" all var) (string-append var gzip "/bin/gzip\n")) (("(ZCAT_COMMAND=).*" all var) - (string-append var gzip "/bin/zcat\n"))) - ;; This file has hardcoded names for tools despite the zcat - ;; configuration above. + (string-append var gzip "/bin/zcat\n")) + (("# (USE_GNUTLS(|_PC)=.*)" all line) + (string-append line "\n"))) + ;; This file has hard-coded relative file names for tools despite + ;; the zcat configuration above. (substitute* '("src/exigrep.src") (("'zcat'") (string-append "'" gzip "/bin/zcat'")) (("'bzcat'") (string-append "'" bzip2 "/bin/bzcat'")) @@ -1331,9 +1338,19 @@ delivery.") (let ((bash (assoc-ref inputs "bash"))) (substitute* '("scripts/Configure-eximon") (("#!/bin/sh") (string-append "#!" bash "/bin/sh")))) - #t))) - #:make-flags '("INSTALL_ARG=-no_chown") - ;; No 'check' target. + #t)) + (add-before 'build 'build-reproducibly + (lambda _ + ;; The ‘compilation number’ is incremented for every build from the + ;; same source tree. It appears to vary over different (parallel?) + ;; builds. Make it a ‘constant number’ instead. + (substitute* "src/version.c" + (("#include \"cnumber.h\"") "1"))))) + #:make-flags + (list "CC=gcc" + "INSTALL_ARG=-no_chown") + ;; No 'check' target. There is a test suite in test/, which assumes that + ;; certain build options were (not) used and that it can freely ‘sudo’. #:tests? #f)) (home-page "https://www.exim.org/") (synopsis diff --git a/gnu/packages/mate.scm b/gnu/packages/mate.scm index ba90ccec73..fa95d0bf66 100644 --- a/gnu/packages/mate.scm +++ b/gnu/packages/mate.scm @@ -2,7 +2,7 @@ ;;; Copyright © 2016 Fabian Harfert <fhmgufs@web.de> ;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2017 ng0 <ng0@n0.is> -;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2019 Guy Fleury Iteriteka <hoonandon@gmail.com> ;;; @@ -301,15 +301,14 @@ the MATE desktop environment.") (define-public mate-terminal (package (name "mate-terminal") - (version "1.22.0") + (version "1.23.0") (source (origin (method url-fetch) (uri (string-append "mirror://mate/" (version-major+minor version) "/" - name "-" version ".tar.xz")) + "mate-terminal-" version ".tar.xz")) (sha256 - (base32 - "16r492s34la2fs2cj1xr0r93wkjglwy77jyrc66i2ahs9gnivj4g")))) + (base32 "1jkw8i2j45p80i7wmm0j0gkbd44nr2qj8bf79jrh5z8kn01b1ibd")))) (build-system glib-or-gtk-build-system) (native-inputs `(("pkg-config" ,pkg-config) diff --git a/gnu/packages/maths.scm b/gnu/packages/maths.scm index 930fe916a7..4ec1ad482f 100644 --- a/gnu/packages/maths.scm +++ b/gnu/packages/maths.scm @@ -582,7 +582,7 @@ large scale eigenvalue problems.") (define-public lapack (package (name "lapack") - (version "3.7.1") + (version "3.9.0") (source (origin (method url-fetch) @@ -590,26 +590,18 @@ large scale eigenvalue problems.") version ".tgz")) (sha256 (base32 - "1j51r7n5w4k7r3lrvy7710xrpkg40wf4rqnmngfz6ck9ypckzign")))) + "1155qixp26c12yrxc76z9mlfw2h3xxymxxv5znpgzh5gaykpndgj")))) (build-system cmake-build-system) (home-page "http://www.netlib.org/lapack/") (inputs `(("fortran" ,gfortran) - ("python" ,python-2))) + ("python" ,python-wrapper))) (arguments `(#:configure-flags (list "-DBUILD_SHARED_LIBS:BOOL=YES" "-DLAPACKE=ON" - ;; Build the 'LAPACKE_clatms' functions. - "-DLAPACKE_WITH_TMG=ON") - #:phases - (modify-phases %standard-phases - (add-before 'check 'patch-python - (lambda* (#:key inputs #:allow-other-keys) - (let ((python (assoc-ref inputs "python"))) - (substitute* "lapack_testing.py" - (("/usr/bin/env python") python))) - #t))))) + "-DLAPACKE_WITH_TMG=ON" + "-DBUILD_TESTING=ON"))) (synopsis "Library for numerical linear algebra") (description "LAPACK is a Fortran 90 library for solving the most commonly occurring @@ -924,7 +916,7 @@ extremely large and complex data collections.") (define-public hdf5-1.10 (package (inherit hdf5) - (version "1.10.5") + (version "1.10.6") (source (origin (method url-fetch) @@ -938,7 +930,7 @@ extremely large and complex data collections.") (take (string-split version #\.) 2)) "/src/hdf5-" version ".tar.bz2"))) (sha256 - (base32 "0i3g6v521vigzbx8wpd32ibsiiw92r65ca3qdbn0d8fj8f4fmmk8")) + (base32 "1gf38x51128hn00744358w27xgzjk0ff4wra4yxh2lk804ck1mh9")) (patches (search-patches "hdf5-config-date.patch")))))) (define-public hdf-java diff --git a/gnu/packages/messaging.scm b/gnu/packages/messaging.scm index 75f611a2e0..989c708ab8 100644 --- a/gnu/packages/messaging.scm +++ b/gnu/packages/messaging.scm @@ -10,14 +10,14 @@ ;;; Copyright © 2016, 2017, 2018, 2019 Clément Lassieur <clement@lassieur.org> ;;; Copyright © 2017 Mekeor Melire <mekeor.melire@gmail.com> ;;; Copyright © 2017, 2018 Arun Isaac <arunisaac@systemreboot.net> -;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017 Theodoros Foradis <theodoros@foradis.org> ;;; Copyright © 2017, 2018, 2019 Rutger Helling <rhelling@mykolab.com> ;;; Copyright © 2018 Leo Famulari <leo@famulari.name> ;;; Copyright © 2018 Pierre-Antoine Rouby <contact@parouby.fr> ;;; Copyright © 2019 Tanguy Le Carrour <tanguy@bioneland.org> -;;; Copyright © 2019 Brett Gilio <brettg@gnu.org> -;;; Copyright © 2019 Timotej Lazar <timotej.lazar@araneo.si> +;;; Copyright © 2019, 2020 Brett Gilio <brettg@gnu.org> +;;; Copyright © 2019, 2020 Timotej Lazar <timotej.lazar@araneo.si> ;;; ;;; This file is part of GNU Guix. ;;; @@ -214,7 +214,7 @@ additional IM client. BitlBee currently supports XMPP/Jabber (including Google Talk), MSN Messenger, Yahoo! Messenger, AIM and ICQ, and the Twitter microblogging network (plus all other Twitter API compatible services like identi.ca and status.net).") - (home-page "http://www.bitlbee.org/") + (home-page "https://www.bitlbee.org/") (license (list license:gpl2+ license:bsd-2)))) (define-public bitlbee-discord @@ -263,15 +263,14 @@ access to servers running the Discord protocol.") (define-public hexchat (package (name "hexchat") - (version "2.14.2") + (version "2.14.3") (source (origin (method url-fetch) (uri (string-append "https://dl.hexchat.net/hexchat/hexchat-" version ".tar.xz")) (sha256 (base32 - "064nq151nzsljv97dmkifyl162d2738vbgvm1phx7yv04pjvk4kp")) - (patches (search-patches "hexchat-crash-exit.patch")))) + "10p829jm1r6kidkgf5lhqhyqc5mxdcq96q3zhadsckasvc9rs6lh")))) (build-system meson-build-system) (native-inputs `(("gettext" ,gettext-minimal) ("glib:bin" ,glib "bin") ;need glib-genmarshal @@ -1245,15 +1244,14 @@ with several different talk daemons at the same time.") (define-public gloox (package (name "gloox") - (version "1.0.22") + (version "1.0.23") (source (origin (method url-fetch) (uri (string-append "https://camaya.net/download/gloox-" version ".tar.bz2")) (sha256 - (base32 - "0r69gq8if9yy1amjzl7qrq9lzhhna7qgz905ln4wvkwchha1ppja")))) + (base32 "12jz8glg9zmyk0iyv1ywf5i0hq93dfq8lvn6lyjgy8730w66mjwp")))) (build-system gnu-build-system) (inputs `(("libidn" ,libidn) @@ -1437,7 +1435,7 @@ including psyced.") #:make-flags (list "install-all"))) (inputs `(("zlib" ,zlib) - ("openssl" ,openssl) + ("openssl" ,openssl-1.0) ("pcre" ,pcre))) (native-inputs `(("pkg-config" ,pkg-config) @@ -1950,9 +1948,9 @@ Telegram messenger.") (license license:gpl2+))) (define-public tdlib - (let ((commit "afca63a4f43531058a079e91eb5c81f54ad744b5") + (let ((commit "80c35676a2eb1e9b71db355ee217bba79fbdce31") (revision "1") - (version "1.5.0")) + (version "1.5.4")) (package (name "tdlib") (version (git-version version revision commit)) @@ -1963,11 +1961,14 @@ Telegram messenger.") (commit commit))) (sha256 (base32 - "1aa3p4k32mfshgc6fv58gwg8pnaix39rv455hfx6znj7llr8na6k")) + "09c0pygqirapgxxzcc3sr0x67qhz8cx2klznrbdyi0118r9s8a7a")) (file-name (git-file-name name version)))) (build-system cmake-build-system) (arguments `(#:tests? #t + #:configure-flags + (list "-DCMAKE_BUILD_TYPE=Release" + "-DTD_ENABLE_LTO=OFF") ; FIXME: Get LTO to work. #:phases (modify-phases %standard-phases (add-after 'unpack 'remove-failing-tests diff --git a/gnu/packages/mp3.scm b/gnu/packages/mp3.scm index 695a01a297..af3cc2540f 100644 --- a/gnu/packages/mp3.scm +++ b/gnu/packages/mp3.scm @@ -5,7 +5,7 @@ ;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be> ;;; Copyright © 2017, 2019 Pierre Langlois <pierre.langlois@gmx.com> -;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2019 Ricardo Wurmus <rekado@elephly.net> ;;; ;;; This file is part of GNU Guix. @@ -476,13 +476,13 @@ compression format (.mpc files).") (define-public eyed3 (package (name "eyed3") - (version "0.8.11") + (version "0.8.12") (source (origin (method url-fetch) (uri (pypi-uri "eyeD3" version)) (sha256 - (base32 "1347mhjysbdpmmvdqm6lhskdw0qj9vjdn4n172ffnz958adrnk0f")))) + (base32 "0vabr7hh6vy1w8gn35vmx9qwiyrfv734d5ahifg7x3pv0c5fqkp5")))) (build-system python-build-system) (arguments `(#:tests? #f)) ; the required test data contains copyrighted material diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm index 2a1dd57edd..be243d1c67 100644 --- a/gnu/packages/music.scm +++ b/gnu/packages/music.scm @@ -1414,7 +1414,7 @@ users to select LV2 plugins and run them with jalv.") (define-public synthv1 (package (name "synthv1") - (version "0.9.11") + (version "0.9.12") (source (origin (method url-fetch) (uri @@ -1422,7 +1422,7 @@ users to select LV2 plugins and run them with jalv.") "/synthv1-" version ".tar.gz")) (sha256 (base32 - "116k2vca9dygvsd684wvxm61p0l1xrrgdph4qrrprlsr6vj0llgm")))) + "1amxrl1cqwgncw5437r572frgf6xhss3cfpbgh178i8phlq1q731")))) (build-system gnu-build-system) (arguments `(#:tests? #f)) ; there are no tests @@ -1446,7 +1446,7 @@ oscillators and stereo effects.") (define-public drumkv1 (package (name "drumkv1") - (version "0.9.11") + (version "0.9.12") (source (origin (method url-fetch) (uri @@ -1454,7 +1454,7 @@ oscillators and stereo effects.") "/drumkv1-" version ".tar.gz")) (sha256 (base32 - "1wnjn175l0mz51k9pjf3pdzv54c4jlh63saavld9lm6zfgfs13d7")))) + "0hmnmk9vvi43wl6say0dg7j088h7mmwmfdwjhsq89c7i7cpg78da")))) (build-system gnu-build-system) (arguments `(#:tests? #f)) ; there are no tests @@ -1479,7 +1479,7 @@ effects.") (define-public samplv1 (package (name "samplv1") - (version "0.9.11") + (version "0.9.12") (source (origin (method url-fetch) (uri @@ -1487,7 +1487,7 @@ effects.") "/samplv1-" version ".tar.gz")) (sha256 (base32 - "17zs8kvvwqv00bm4lxpn09a5hxjlbz7k5mkl3k7jspw7rqn3djf2")))) + "0xzjxiqzcf1ygabrjsy0iachhnpy85rp9519fmj2f568r6ml6hzg")))) (build-system gnu-build-system) (arguments `(#:tests? #f)) ; there are no tests @@ -1512,7 +1512,7 @@ effects.") (define-public padthv1 (package (name "padthv1") - (version "0.9.11") + (version "0.9.12") (source (origin (method url-fetch) (uri @@ -1520,7 +1520,7 @@ effects.") "/padthv1-" version ".tar.gz")) (sha256 (base32 - "02yfwyirjqxa075yqdnci9b9k57kdmkjvn9gnpdbnjp887pds76g")))) + "1zz3rz990k819q0rlzllqdwvag0x9k63443lb0mp8lwlczxnza6l")))) (build-system gnu-build-system) (arguments `(#:tests? #f)) ; there are no tests @@ -1733,7 +1733,7 @@ is subjective.") (define-public tuxguitar (package (name "tuxguitar") - (version "1.5.2") + (version "1.5.3") (source (origin (method url-fetch) (uri (string-append @@ -1741,7 +1741,7 @@ is subjective.") version "/tuxguitar-" version "-src.tar.gz")) (sha256 (base32 - "10arfpgm2pw7mn922klklzn05lw5ifqx070shdrar81afmkfbbd9")))) + "1qy5kjcsl3c86kdlyvsf6dsfmfl1mv8zg0ln6g3qg3i8f35vlpp6")))) (build-system ant-build-system) (arguments `(#:build-target "build" @@ -2387,14 +2387,14 @@ from the command line.") (define-public qtractor (package (name "qtractor") - (version "0.9.11") + (version "0.9.12") (source (origin (method url-fetch) (uri (string-append "http://downloads.sourceforge.net/qtractor/" "qtractor-" version ".tar.gz")) (sha256 (base32 - "1482da0lr77i57jby80cnn4bb9ws3v1i1j6m2hbwdnvqab9csvnx")))) + "06493sf4hr178jkvric3rmc2phh1ph2jlyh8kl9z248amq3zfnhy")))) (build-system gnu-build-system) (arguments `(#:tests? #f)) ; no "check" target @@ -4822,7 +4822,7 @@ and debugging of event signal flows inside plugin graphs.") (define-public x42-plugins (package (name "x42-plugins") - (version "20191013") + (version "20191215") (source (origin (method url-fetch) @@ -4830,8 +4830,7 @@ and debugging of event signal flows inside plugin graphs.") (string-append "http://gareus.org/misc/x42-plugins/x42-plugins-" version ".tar.xz")) (sha256 - (base32 - "18kn1bmc0s6dp834kc51ibifzzn3bxwya4p8s8yq9f4mpmkghi24")))) + (base32 "1mwfvhsvc0qgjyiwd8pmmam1mav43lmv39fljhmj9yri558v5g1c")))) (build-system gnu-build-system) (arguments `(#:tests? #f ; no "check" target @@ -4876,7 +4875,7 @@ audio and MIDI plugins that can also run as standalone JACK applications.") (define-public zam-plugins (package (name "zam-plugins") - (version "3.11") + (version "3.12") (source (origin (method git-fetch) @@ -4890,8 +4889,7 @@ audio and MIDI plugins that can also run as standalone JACK applications.") (recursive? #t))) (file-name (git-file-name name version)) (sha256 - (base32 - "0jlbxm0g93plgd3g4r9rsr0c7868ms49bs0ljpqb6kw6132hsapp")))) + (base32 "0icsbarc9azcp0kjjydmiqn401v60jmf16zdcp4040q8g7bpfmfa")))) (build-system gnu-build-system) (arguments `(#:tests? #f ;no "check" target diff --git a/gnu/packages/musl.scm b/gnu/packages/musl.scm index 1356b8d14d..6a6344efb5 100644 --- a/gnu/packages/musl.scm +++ b/gnu/packages/musl.scm @@ -1,7 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2016 Vincent Legoll <vincent.legoll@gmail.com> ;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net> -;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; ;;; This file is part of GNU Guix. ;;; @@ -28,14 +28,14 @@ (define-public musl (package (name "musl") - (version "1.1.22") + (version "1.1.24") (source (origin (method url-fetch) (uri (string-append "https://www.musl-libc.org/releases/" "musl-" version ".tar.gz")) (sha256 (base32 - "1qr9xqdzziy5bsyyqlh6k8yz056ll55d5yvc0gbhz61ginj422cb")))) + "18r2a00k82hz0mqdvgm7crzc7305l36109c0j9yjmkxj2alcjw0k")))) (build-system gnu-build-system) (arguments `(#:tests? #f ; musl has no tests diff --git a/gnu/packages/networking.scm b/gnu/packages/networking.scm index 482305de35..28c683ea83 100644 --- a/gnu/packages/networking.scm +++ b/gnu/packages/networking.scm @@ -4,7 +4,7 @@ ;;; Copyright © 2015 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2015, 2016, 2017 Stefan Reichör <stefan@xsteve.at> ;;; Copyright © 2016 Raimon Grau <raimonster@gmail.com> -;;; Copyright © 2016, 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2016, 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2016 John Darrington <jmd@gnu.org> ;;; Copyright © 2016, 2017, 2018, 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; Copyright © 2016 Eric Bavier <bavier@member.fsf.org> @@ -14,7 +14,7 @@ ;;; Copyright © 2016, 2017 Pjotr Prins <pjotr.guix@thebird.nl> ;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2017 Leo Famulari <leo@famulari.name> -;;; Copyright © 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il> +;;; Copyright © 2017, 2018, 2019, 2020 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2017, 2018, 2019 Rutger Helling <rhelling@mykolab.com> ;;; Copyright © 2017, 2019 Gábor Boskovits <boskovits@gmail.com> ;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be> @@ -24,7 +24,7 @@ ;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org> ;;; Copyright © 2018 Theodoros Foradis <theodoros@foradis.org> ;;; Copyright © 2018 Marius Bakke <mbakke@fastmail.com> -;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com> +;;; Copyright © 2018, 2020 Oleg Pykhalov <go.wigust@gmail.com> ;;; Copyright © 2018 Pierre Neidhardt <mail@ambrevar.xyz> ;;; Copyright © 2019 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2019 Vasile Dumitrascu <va511e@yahoo.com> @@ -559,15 +559,14 @@ and up to 1 Mbit/s downstream.") (define-public whois (package (name "whois") - (version "5.5.3") + (version "5.5.4") (source (origin (method url-fetch) (uri (string-append "mirror://debian/pool/main/w/whois/" "whois_" version ".tar.xz")) (sha256 - (base32 - "0imb87iz17a530fg1x9wnsm4bvr61hxydv29chfwzh015af3zhsm")))) + (base32 "0k97aiz7ngkjz3vhzvk27kqhnmqmkskdfx310c94qnh8fd7hiqfi")))) (build-system gnu-build-system) (arguments `(#:tests? #f ; no test suite @@ -1238,6 +1237,14 @@ It is intended primarily for use in testing.") (base32 "0ln5f57vc8388kyh9vhx2infrdzfhbpgyby74h1qsnhwds95m0vh")))) (build-system perl-build-system) + (arguments + '(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'dont-link-with-nsl ; Borrowed from Debian. + (lambda _ + (substitute* "Makefile.PL" + (("-lnsl") "")) + #t))))) (inputs `(("perl-net-cidr-lite" ,perl-net-cidr-lite) ("perl-socket6" ,perl-socket6))) @@ -1491,14 +1498,14 @@ that block port 22.") (define-public iperf (package (name "iperf") - (version "3.1.7") + (version "3.7") (source (origin (method url-fetch) (uri (string-append "http://downloads.es.net/pub/iperf" "/iperf-" version ".tar.gz")) (sha256 (base32 - "0kvk8d0a3dcxc8fisyprbn01y8akxj4sx8ld5dh508p9dx077vx4")))) + "033is7b5grfbiil98jxlz4ixp9shm44x6hy8flpsyz1i4h108inq")))) (build-system gnu-build-system) (synopsis "TCP, UDP and SCTP bandwidth measurement tool") (description diff --git a/gnu/packages/nfs.scm b/gnu/packages/nfs.scm index 9d7acc3592..b81623fd07 100644 --- a/gnu/packages/nfs.scm +++ b/gnu/packages/nfs.scm @@ -2,6 +2,7 @@ ;;; Copyright © 2016 John Darrington <jmd@gnu.org> ;;; Copyright © 2017, 2018 Leo Famulari <leo@famulari.name> ;;; Copyright © 2018 Efraim Flashner <efraim@flashner.co.il> +;;; Copyright © 2020 Ricardo Wurmus <rekado@elephly.net> ;;; ;;; This file is part of GNU Guix. ;;; @@ -20,6 +21,7 @@ (define-module (gnu packages nfs) #:use-module (gnu packages) + #:use-module (gnu packages crypto) #:use-module (gnu packages linux) #:use-module (gnu packages libevent) #:use-module (gnu packages kerberos) @@ -42,32 +44,28 @@ (define-public nfs-utils (package (name "nfs-utils") - (version "2.1.1") + (version "2.4.2") (source (origin (method url-fetch) (uri (string-append "mirror://kernel.org/linux/utils/nfs-utils/" version "/nfs-utils-" version ".tar.xz")) - (patches (search-patches "nfs-utils-missing-headers.patch")) (sha256 (base32 - "1vqrqzhg9nh2wj1icp7k8v9dibgnn521b45np79nnkmqf16bbbhg")))) + "0f0hm8jq1p5gra55v621qpbb3mryakaikzpy5znkvxym0dx76r24")))) (build-system gnu-build-system) (arguments `(#:configure-flags `("--without-tcp-wrappers" ,(string-append "--with-start-statd=" (assoc-ref %outputs "out") "/sbin/start-statd") - ,(string-append "--with-krb5=" (assoc-ref %build-inputs "mit-krb5"))) + ,(string-append "--with-krb5=" (assoc-ref %build-inputs "mit-krb5")) + ,(string-append "--with-pluginpath=" + (assoc-ref %outputs "out") + "/lib/libnfsidmap") + "--enable-svcgss") #:phases (modify-phases %standard-phases - (add-after 'unpack 'fix-glibc-compatability - (lambda _ - (substitute* '("utils/blkmapd/device-discovery.c" - "utils/blkmapd/dm-device.c") - (("<sys/stat.h>") - "<sys/stat.h>\n#include <sys/sysmacros.h>")) - #t)) (add-before 'configure 'adjust-command-file-names (lambda _ ;; Remove assumptions of FHS from start-statd script @@ -81,6 +79,11 @@ (string-append "exec " (assoc-ref %outputs "out") "/sbin/rpc.statd"))) + ;; find rpcgen + (substitute* "configure" + (("/usr/local/bin/rpcgen") + (which "rpcgen"))) + ;; This hook tries to write to /var ;; That needs to be done by a service too. (substitute* `("Makefile.in") @@ -96,20 +99,23 @@ (substitute* `("utils/statd/statd.c") (("/usr/sbin/") (string-append (assoc-ref %outputs "out") "/sbin/"))) - (substitute* `("utils/osd_login/Makefile.in" - "utils/mount/Makefile.in" + (substitute* `("utils/mount/Makefile.in" + "utils/nfsdcld/Makefile.in" "utils/nfsdcltrack/Makefile.in") (("^sbindir = /sbin") (string-append "sbindir = " (assoc-ref %outputs "out") "/sbin"))) #t))))) - (inputs `(("libevent" ,libevent) - ("libnfsidmap" ,libnfsidmap) - ("sqlite" ,sqlite) - ("lvm2" ,lvm2) - ("util-linux" ,util-linux) - ("mit-krb5" ,mit-krb5) - ("libtirpc" ,libtirpc))) + (inputs + `(("keyutils" ,keyutils) + ("libevent" ,libevent) + ("libnfsidmap" ,libnfsidmap) + ("rpcsvc-proto" ,rpcsvc-proto) ;for 'rpcgen' + ("sqlite" ,sqlite) + ("lvm2" ,lvm2) + ("util-linux" ,util-linux) + ("mit-krb5" ,mit-krb5) + ("libtirpc" ,libtirpc))) (native-inputs `(("pkg-config" ,pkg-config))) (home-page "http://www.kernel.org/pub/linux/utils/nfs-utils/") diff --git a/gnu/packages/nss.scm b/gnu/packages/nss.scm index 6ed197b578..518739465d 100644 --- a/gnu/packages/nss.scm +++ b/gnu/packages/nss.scm @@ -34,7 +34,7 @@ (define-public nspr (package (name "nspr") - (version "4.22") + (version "4.24") (source (origin (method url-fetch) (uri (string-append @@ -42,7 +42,7 @@ version "/src/nspr-" version ".tar.gz")) (sha256 (base32 - "0c6ljv3bdqhc169srbpjy0cs52xk715p04zy08rcjvl54k6bdr69")))) + "1l0ksiny032jijgk0g76wf0kiq673i01izj7jrs2h5d1yq6rm9ch")))) (build-system gnu-build-system) (native-inputs `(("perl" ,perl))) @@ -70,7 +70,7 @@ in the Mozilla clients.") (define-public nss (package (name "nss") - (version "3.46.1") + (version "3.48") (source (origin (method url-fetch) (uri (let ((version-with-underscores @@ -81,10 +81,9 @@ in the Mozilla clients.") "nss-" version ".tar.gz"))) (sha256 (base32 - "0l9ns44rlkp1bpblplspfbqmyhb8rhvc89y56kqh725rgpny1xrv")) + "1b7qs1q7jqhw9dvkdznanzhc5dyq4bwx0biywszy3qx4hqm8571z")) ;; Create nss.pc and nss-config. - (patches (search-patches "nss-CVE-2019-11745.patch" - "nss-pkgconfig.patch" + (patches (search-patches "nss-pkgconfig.patch" "nss-freebl-stubs.patch" "nss-increase-test-timeout.patch")))) (build-system gnu-build-system) @@ -131,7 +130,7 @@ in the Mozilla clients.") ;; leading to test failures: ;; <https://bugzilla.mozilla.org/show_bug.cgi?id=609734>. To ;; work around that, set the time to roughly the release date. - (invoke "faketime" "2019-10-01" "./nss/tests/all.sh"))) + (invoke "faketime" "2019-12-01" "./nss/tests/all.sh"))) (replace 'install (lambda* (#:key outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) diff --git a/gnu/packages/ocaml.scm b/gnu/packages/ocaml.scm index 2988810fc7..3253d0285a 100644 --- a/gnu/packages/ocaml.scm +++ b/gnu/packages/ocaml.scm @@ -13,6 +13,7 @@ ;;; Copyright © 2018, 2019 Gabriel Hondet <gabrielhondet@gmail.com> ;;; Copyright © 2018 Kei Kebreau <kkebreau@posteo.net> ;;; Copyright © 2019 Ricardo Wurmus <rekado@elephly.net> +;;; Copyright © 2020 Brett Gilio <brettg@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -31,6 +32,7 @@ (define-module (gnu packages ocaml) #:use-module (gnu packages) + #:use-module (gnu packages algebra) #:use-module (gnu packages autotools) #:use-module (gnu packages base) #:use-module (gnu packages bison) @@ -3070,7 +3072,7 @@ instead of bindings to a C library.") (define-public ocaml-utop (package (name "ocaml-utop") - (version "2.4.2") + (version "2.4.3") (source (origin (method git-fetch) @@ -3079,7 +3081,7 @@ instead of bindings to a C library.") (commit version))) (file-name (git-file-name name version)) (sha256 - (base32 "0z8klqwqmq5i111p4awzvlvirhm1dxp0mbfagwfiwq1wg72v6zdm")))) + (base32 "1bl4943qpi3qy152dbdm5glhx19zsiylmn4rcxi8l66g58hikyjp")))) (build-system dune-build-system) (arguments `(#:jbuild? #t @@ -3092,7 +3094,7 @@ instead of bindings to a C library.") ("react" ,ocaml-react) ("camomile" ,ocaml-camomile) ("zed" ,ocaml-zed))) - (home-page "https://github.com/diml/utop") + (home-page "https://github.com/ocaml-community/utop") (synopsis "Improved interface to the OCaml toplevel") (description "UTop is an improved toplevel for OCaml. It can run in a terminal or in Emacs. It supports line editing, history, real-time and context @@ -5177,3 +5179,142 @@ Text inside doc comments is marked up in ocamldoc syntax. Odoc's main advantage over ocamldoc is an accurate cross-referencer, which handles the complexity of the OCaml module system.") (license license:isc))) + +(define-public ocaml-fftw3 + (package + (name "ocaml-fftw3") + (version "0.8.4") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/Chris00/fftw-ocaml.git") + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0l66yagjkwdcib6q55wd8wiap50vi23qiahkghlvm28z7nvbclfk")))) + (build-system dune-build-system) + (arguments + `(#:tests? #t + #:test-target "tests")) + (propagated-inputs + `(("fftw" ,fftw) + ("fftwf" ,fftwf))) + (native-inputs + `(("ocaml-cppo" ,ocaml-cppo) + ("ocaml-lacaml" ,ocaml-lacaml))) + (home-page + "https://github.com/Chris00/fftw-ocaml") + (synopsis + "Bindings to FFTW3") + (description + "Bindings providing OCaml support for the seminal Fast Fourier Transform +library FFTW.") + (license license:lgpl2.1))) ; with static linking exception. + +(define-public ocaml-lacaml + (package + (name "ocaml-lacaml") + (version "11.0.5") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/mmottl/lacaml.git") + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "180yb79a3qgx067qcpm50q12hrimjygf06rgkzbish9d1zfm670c")))) + (build-system dune-build-system) + (arguments + `(#:tests? #f)) ; No test target. + (native-inputs + `(("openblas" ,openblas) + ("lapack" ,lapack) + ("ocaml-base" ,ocaml-base) + ("ocaml-stdio" ,ocaml-stdio))) + (home-page "https://mmottl.github.io/lacaml/") + (synopsis + "OCaml-bindings to BLAS and LAPACK") + (description + "Lacaml interfaces the BLAS-library (Basic Linear Algebra Subroutines) and +LAPACK-library (Linear Algebra routines). It also contains many additional +convenience functions for vectors and matrices.") + (license license:lgpl2.1))) + +(define-public ocaml-cairo2 + (package + (name "ocaml-cairo2") + (version "0.6.1") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/Chris00/ocaml-cairo.git") + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0wzysis9fa850s68qh8vrvqc6svgllhwra3kzll2ibv0wmdqrich")))) + (build-system dune-build-system) + (arguments + `(#:test-target "tests")) + (inputs + `(("cairo" ,cairo) + ("gtk+-2" ,gtk+-2) + ("lablgtk" ,lablgtk))) + (native-inputs + `(("pkg-config" ,pkg-config))) + (home-page "https://github.com/Chris00/ocaml-cairo") + (synopsis "Binding to Cairo, a 2D Vector Graphics Library") + (description "Ocaml-cairo2 is a binding to Cairo, a 2D graphics library +with support for multiple output devices. Currently supported output targets +include the X Window System, Quartz, Win32, image buffers, PostScript, PDF, +and SVG file output.") + (license license:lgpl3+))) + +(define-public lablgtk3 + (package + (name "lablgtk") + (version "3.0.beta8") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/garrigue/lablgtk.git") + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "08pgwnia240i2rw1rbgiahg673kwa7b6bvhsg3z4b47xr5sh9pvz")))) + (build-system dune-build-system) + (arguments + `(#:tests? #t + #:test-target "." + #:phases + (modify-phases %standard-phases + (add-before 'build 'make-writable + (lambda _ + (for-each (lambda (file) + (chmod file #o644)) + (find-files "." ".")) + #t))))) + (propagated-inputs + `(("ocaml-cairo2" ,ocaml-cairo2))) + (inputs + `(("camlp5" ,camlp5) + ("gtk+" ,gtk+) + ("gtksourceview-3" ,gtksourceview-3) + ("gtkspell3" ,gtkspell3))) + (native-inputs + `(("pkg-config" ,pkg-config))) + (home-page "https://github.com/garrigue/lablgtk") + (synopsis "OCaml interface to GTK+3") + (description "LablGtk is an OCaml interface to GTK+ 1.2, 2.x and 3.x. It +provides a strongly-typed object-oriented interface that is compatible with the +dynamic typing of GTK+. Most widgets and methods are available. LablGtk +also provides bindings to gdk-pixbuf, the GLArea widget (in combination with +LablGL), gnomecanvas, gnomeui, gtksourceview, gtkspell, libglade (and it can +generate OCaml code from .glade files), libpanel, librsvg and quartz.") + ;; Version 2 only, with linking exception. + (license license:lgpl2.0))) diff --git a/gnu/packages/opencog.scm b/gnu/packages/opencog.scm new file mode 100644 index 0000000000..c6828d6603 --- /dev/null +++ b/gnu/packages/opencog.scm @@ -0,0 +1,295 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2020 Ricardo Wurmus <rekado@elephly.net> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu packages opencog) + #:use-module (gnu packages) + #:use-module (gnu packages boost) + #:use-module (gnu packages check) + #:use-module (gnu packages databases) + #:use-module (gnu packages guile) + #:use-module (gnu packages language) + #:use-module (gnu packages linux) + #:use-module (gnu packages multiprecision) + #:use-module (gnu packages pkg-config) + #:use-module (gnu packages python) + #:use-module ((guix licenses) #:prefix license:) + #:use-module (guix packages) + #:use-module (guix git-download) + #:use-module (guix build-system cmake) + #:use-module (guix utils)) + +(define-public cogutil + ;; The last release was in 2016. Other OpenCog packages require a later + ;; version. + (let ((commit "b07b41b2eaf01627c78b27f1f28bb09ef7086f8e") + (revision "1")) + (package + (name "cogutil") + (version (git-version "2.0.3" revision commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/opencog/cogutil.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1ymmcrinp0prlxsmxmwdjjl4kgaj7wzq39d5b1q2apgg94yfdhqb")))) + (build-system cmake-build-system) + (arguments + `(#:test-target "tests")) + (inputs + `(("boost" ,boost))) + (native-inputs + `(("cxxtest" ,cxxtest) + ("python" ,python-minimal) + ("pkg-config" ,pkg-config))) + (home-page "https://github.com/opencog/cogutil/") + (synopsis "Low-level C++ programming utilities used by OpenCog components") + (description "The OpenCog utilities is a miscellaneous collection of C++ +utilities use for typical programming tasks in multiple OpenCog projects.") + ;; Either of these licenses. + (license (list license:agpl3 license:asl2.0))))) + +(define-public atomspace + ;; The last release was in 2016 and doesn't build with our Boost package. + (let ((commit "86c848dfc7135b3c47deb581f8da54a60f6711c9") + (revision "1")) + (package + (name "atomspace") + (version (git-version "5.0.3" revision commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/opencog/atomspace.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0vxzhszb0z8081li38hid07a5axzxyflsmq1mcn4b1k4z1j8ggch")))) + (build-system cmake-build-system) + (arguments + `(#:test-target "tests" + #:configure-flags + (list (string-append "-DGUILE_INCLUDE_DIR=" + (assoc-ref %build-inputs "guile") + "/include/guile/2.2/") + (string-append "-DGUILE_SITE_DIR=" + (assoc-ref %outputs "out") + "/share/guile/site/2.2/")))) + (inputs + `(("boost" ,boost) + ("cogutil" ,cogutil) + ("gmp" ,gmp) + ("guile" ,guile-2.2) + ("postgresql" ,postgresql))) + (native-inputs + `(("cxxtest" ,cxxtest) + ("python" ,python-minimal) + ("pkg-config" ,pkg-config))) + (home-page "https://github.com/opencog/atomspace/") + (synopsis "OpenCog hypergraph database, query system and rule engine") + (description "The OpenCog AtomSpace is an in-RAM @dfn{knowledge +representation} (KR) database, an associated query engine and graph-re-writing +system, and a rule-driven inferencing engine that can apply and manipulate +sequences of rules to perform reasoning. It is a layer that sits on top of +ordinary distributed (graph) databases, providing a large variety of advanced +features not otherwise available.") + (license license:agpl3)))) + +(define-public cogserver + ;; There are no releases. + (let ((commit "c8ad85fef446819e6bd711f0791887a5aa6a41f9") + (revision "1")) + (package + (name "cogserver") + (version (git-version "0" revision commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/opencog/cogserver.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0flwl2cbmnj7kjcx8vwk7rbhsp2si0a51ci0hx88a3xx1f76cp3f")))) + (build-system cmake-build-system) + (arguments + `(#:tests? #f ; See https://github.com/opencog/cogserver/issues/24 + #:test-target "tests" + #:configure-flags + (list (string-append "-DGUILE_INCLUDE_DIR=" + (assoc-ref %build-inputs "guile") + "/include/guile/2.2/") + (string-append "-DGUILE_SITE_DIR=" + (assoc-ref %outputs "out") + "/share/guile/site/2.2/")))) + (inputs + `(("atomspace" ,atomspace) + ("boost" ,boost) + ("cogutil" ,cogutil) + ("gmp" ,gmp) + ("guile" ,guile-2.2))) + (native-inputs + `(("cxxtest" ,cxxtest) + ("python" ,python-minimal) + ("pkg-config" ,pkg-config))) + (home-page "https://github.com/opencog/cogserver/") + (synopsis "OpenCog network server") + (description "The OpenCog Cogserver is a network and job server for the +OpenCog framework.") + (license license:agpl3)))) + +(define-public attention + ;; There are no releases. + (let ((commit "87d43679280ce486cd6757765d2e1df6d502991d") + (revision "1")) + (package + (name "attention") + (version (git-version "0" revision commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/opencog/attention.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0sndslphicv6w9qpag168rqkxq5sf71l5qbfx6zhsd5bzlf5fhwv")))) + (build-system cmake-build-system) + (arguments + `(#:test-target "tests" + #:configure-flags + (list + (string-append "-DGUILE_INCLUDE_DIR=" + (assoc-ref %build-inputs "guile") + "/include/guile/2.2/") + (string-append "-DGUILE_SITE_DIR=" + (assoc-ref %outputs "out") + "/share/guile/site/2.2/")))) + (inputs + `(("atomspace" ,atomspace) + ("boost" ,boost) + ("cogserver" ,cogserver) + ("cogutil" ,cogutil) + ("gmp" ,gmp) + ("guile" ,guile-2.2))) + (native-inputs + `(("cxxtest" ,cxxtest) + ("python" ,python-minimal) + ("pkg-config" ,pkg-config))) + (home-page "https://github.com/opencog/attention/") + (synopsis "OpenCog attention allocation subsystem") + (description "Attention Allocation is an OpenCog subsystem meant to +control the application of processing and memory resources to specific +tasks.") + (license license:agpl3)))) + +(define-public opencog + ;; There are no recent releases. + (let ((commit "ceac90507610cb2d0ee98f97a2086865292b1204") + (revision "1")) + (package + (name "opencog") + (version (git-version "0.1.4" revision commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/opencog/opencog.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1j8wv910fvrmph370wv5pv2f4bc2s9vl6i7bw3pkmwbdhxkhjbhm")))) + (build-system cmake-build-system) + (arguments + `(#:test-target "tests" + #:configure-flags + (list + (string-append "-DGUILE_INCLUDE_DIR=" + (assoc-ref %build-inputs "guile") + "/include/guile/2.2/") + (string-append "-DGUILE_SITE_DIR=" + (assoc-ref %outputs "out") + "/share/guile/site/2.2/")))) + (inputs + `(("attention" ,attention) + ("atomspace" ,atomspace) + ("boost" ,boost) + ("cogserver" ,cogserver) + ("cogutil" ,cogutil) + ("gmp" ,gmp) + ("guile" ,guile-2.2) + ("libuuid" ,util-linux) + ("link-grammar" ,link-grammar))) + (native-inputs + `(("cxxtest" ,cxxtest) + ("python" ,python-minimal) + ("pkg-config" ,pkg-config))) + (home-page "https://github.com/opencog/attention/") + (synopsis "Framework for integrated artificial intelligence") + (description "OpenCog is a framework for developing AI systems, +especially appropriate for integrative multi-algorithm systems, and artificial +general intelligence systems. It currently contains a functional core +framework, and a number of cognitive agents at varying levels of completion, +some already displaying interesting and useful functionalities alone and in +combination.") + (license license:agpl3)))) + +(define-public agi-bio + ;; There are no releases. + (let ((commit "b5c6f3d99e8cca3798bf0cdf2c32f4bdb8098efb") + (revision "1")) + (package + (name "agi-bio") + (version (git-version "0" revision commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/opencog/agi-bio.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0c3q0nhmd03nvqm1ih10y28n596cjvfhkcfvzw2fmz1sn3ywdah4")))) + (build-system cmake-build-system) + (arguments + `(#:tests? #f ; there are none + #:configure-flags + (list + (string-append "-DGUILE_INCLUDE_DIR=" + (assoc-ref %build-inputs "guile") + "/include/guile/2.2/") + (string-append "-DGUILE_SITE_DIR=" + (assoc-ref %outputs "out") + "/share/guile/site/2.2/")))) + (inputs + `(("atomspace" ,atomspace) + ("cogutil" ,cogutil) + ("gmp" ,gmp) + ("guile" ,guile-2.2))) + (native-inputs + `(("cxxtest" ,cxxtest) + ("python" ,python-minimal) + ("pkg-config" ,pkg-config))) + (home-page "https://github.com/opencog/agi-bio") + (synopsis "Genomic and proteomic data exploration and pattern mining") + (description "This is a package for genomic and proteomic research using +the OpenCog toolset with Guile. This includes experiments in applying pattern +mining and other OpenCog components.") + (license license:agpl3)))) diff --git a/gnu/packages/package-management.scm b/gnu/packages/package-management.scm index 1daab4e879..6becdb22a9 100644 --- a/gnu/packages/package-management.scm +++ b/gnu/packages/package-management.scm @@ -1,15 +1,15 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2015, 2017 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2017 Muriithi Frederick Muriuki <fredmanglis@gmail.com> ;;; Copyright © 2017, 2018 Oleg Pykhalov <go.wigust@gmail.com> ;;; Copyright © 2017 Roel Janssen <roel@gnu.org> -;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018 Julien Lepiller <julien@lepiller.eu> ;;; Copyright © 2018, 2019 Rutger Helling <rhelling@mykolab.com> ;;; Copyright © 2018 Sou Bunnbu <iyzsong@member.fsf.org> ;;; Copyright © 2018, 2019 Eric Bavier <bavier@member.fsf.org> -;;; Copyright © 2019 Efraim Flashner <efraim@flashner.co.il> +;;; Copyright © 2019, 2020 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2019 Jonathan Brielmaier <jonathan.brielmaier@web.de> ;;; ;;; This file is part of GNU Guix. @@ -110,8 +110,8 @@ ;; Note: the 'update-guix-package.scm' script expects this definition to ;; start precisely like this. (let ((version "1.0.1") - (commit "41b4b713f4892918a9a1950acdd89f33b977d143") - (revision 10)) + (commit "f38eabe952608478230895e380ef441d65ea625e") + (revision 11)) (package (name "guix") @@ -127,7 +127,7 @@ (commit commit))) (sha256 (base32 - "08sblj4xy78va6zlxmxdq2id58pjr8rjqxxycd77hiacsqbjh9g6")) + "1wnm1wqa38dpd5bk6avyfm0rgx72vlx36a06scyg8d57kl47mzjf")) (file-name (string-append "guix-" version "-checkout")))) (build-system gnu-build-system) (arguments @@ -176,16 +176,27 @@ ;; Copy the bootstrap guile tarball in the store used ;; by the test suite. (define (intern file recursive?) - (let ((base (strip-store-file-name file))) - ;; Note: don't use 'guix download' here because we - ;; need to set the 'recursive?' argument. - (invoke "./test-env" "guile" "-c" - (object->string - `(begin - (use-modules (guix)) - (with-store store - (add-to-store store ,base ,recursive? - "sha256" ,file))))))) + ;; Note: don't use 'guix download' here because we + ;; need to set the 'recursive?' argument. + (define base + (strip-store-file-name file)) + + (define code + `(begin + (use-modules (guix)) + (with-store store + (let* ((item (add-to-store store ,base + ,recursive? + "sha256" ,file)) + (root (string-append "/tmp/gc-root-" + (basename item)))) + ;; Register a root so that the GC tests + ;; don't delete those. + (symlink item root) + (add-indirect-root store root))))) + + (invoke "./test-env" "guile" "-c" + (object->string code))) (intern (assoc-ref inputs "boot-guile") #f) @@ -566,13 +577,14 @@ transactions from C or Python.") (version "1.6.3") (source (origin - (method url-fetch) - (uri (string-append "https://github.com/Anaconda-Platform/" - "anaconda-client/archive/" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) + (method git-fetch) + (uri (git-reference + (url "https://github.com/Anaconda-Platform/anaconda-client") + (commit version))) + (file-name (git-file-name name version)) (sha256 (base32 - "1wv4wi6k5jz7rlwfgvgfdizv77x3cr1wa2aj0k1595g7fbhkjhz2")))) + "0w1bfxnydjl9qp53r2gcvr6vlpdqqilcrzqxrll9sgg6vwdyiyyp")))) (build-system python-build-system) (propagated-inputs `(("python-pyyaml" ,python-pyyaml) @@ -621,13 +633,14 @@ environments.") (version "4.3.16") (source (origin - (method url-fetch) - (uri (string-append "https://github.com/conda/conda/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) + (method git-fetch) + (uri (git-reference + (url "https://github.com/conda/conda") + (commit version))) + (file-name (git-file-name name version)) (sha256 (base32 - "1jq8hyrc5npb5sf4vw6s6by4602yj8f79vzpbwdfgpkn02nfk1dv")))) + "1qwy0awx4qf2pbk8z2b7q6wdcq7mvwpxxjhg27mbirdvs5hw7hb2")))) (build-system python-build-system) (arguments `(#:phases @@ -663,6 +676,8 @@ environments.") ;; directory left when you build with the --keep-failed ;; option (delete-file "gateways/disk/test_delete.py") + ;; This file is no longer writable after downloading with 'git-fetch' + (make-file-writable "conda_env/support/saved-env/environment.yml") #t)))) (replace 'check (lambda _ diff --git a/gnu/packages/patches/abiword-black-drawing-with-gtk322.patch b/gnu/packages/patches/abiword-black-drawing-with-gtk322.patch deleted file mode 100644 index 88a5ca4c38..0000000000 --- a/gnu/packages/patches/abiword-black-drawing-with-gtk322.patch +++ /dev/null @@ -1,49 +0,0 @@ -commit 2ee38d1881aeea27bb49acc450631d813d1f28ba -Author: Hubert Figuière <hub@figuiere.net> -Date: Wed Dec 7 09:44:01 2016 -0500 - - Bug 13815 - draw event should return TRUE - - This fix the black drawing regression witj Gtk3.22 - -diff --git a/src/af/xap/gtk/xap_UnixFrameImpl.cpp b/src/af/xap/gtk/xap_UnixFrameImpl.cpp -index 780000e..10f8e00 100644 ---- a/src/af/xap/gtk/xap_UnixFrameImpl.cpp -+++ b/src/af/xap/gtk/xap_UnixFrameImpl.cpp -@@ -1208,9 +1208,9 @@ gint XAP_UnixFrameImpl::_fe::delete_event(GtkWidget * w, GdkEvent * /*event*/, g - } - - #if GTK_CHECK_VERSION(3,0,0) --gint XAP_UnixFrameImpl::_fe::draw(GtkWidget * w, cairo_t * cr) -+gboolean XAP_UnixFrameImpl::_fe::draw(GtkWidget * w, cairo_t * cr) - #else --gint XAP_UnixFrameImpl::_fe::expose(GtkWidget * w, GdkEventExpose* pExposeEvent) -+gboolean XAP_UnixFrameImpl::_fe::expose(GtkWidget * w, GdkEventExpose* pExposeEvent) - #endif - { - XAP_UnixFrameImpl * pUnixFrameImpl = static_cast<XAP_UnixFrameImpl *>(g_object_get_data(G_OBJECT(w), "user_data")); -@@ -1243,7 +1243,7 @@ gint XAP_UnixFrameImpl::_fe::expose(GtkWidget * w, GdkEventExpose* pExposeEvent) - pView->draw(&rClip); - #endif - } -- return FALSE; -+ return TRUE; - } - - static bool bScrollWait = false; -diff --git a/src/af/xap/gtk/xap_UnixFrameImpl.h b/src/af/xap/gtk/xap_UnixFrameImpl.h -index 30ee5d8..a0ff57f 100644 ---- a/src/af/xap/gtk/xap_UnixFrameImpl.h -+++ b/src/af/xap/gtk/xap_UnixFrameImpl.h -@@ -152,9 +152,9 @@ protected: - static gint key_release_event(GtkWidget* w, GdkEventKey* e); - static gint delete_event(GtkWidget * w, GdkEvent * /*event*/, gpointer /*data*/); - #if GTK_CHECK_VERSION(3,0,0) -- static gint draw(GtkWidget * w, cairo_t * cr); -+ static gboolean draw(GtkWidget * w, cairo_t * cr); - #else -- static gint expose(GtkWidget * w, GdkEventExpose* pExposeEvent); -+ static gboolean expose(GtkWidget * w, GdkEventExpose* pExposeEvent); - #endif - static gint do_ZoomUpdate( gpointer /* xap_UnixFrame * */ p); - static void vScrollChanged(GtkAdjustment * w, gpointer /*data*/); diff --git a/gnu/packages/patches/abiword-explictly-cast-bools.patch b/gnu/packages/patches/abiword-explictly-cast-bools.patch index 97ae6653c2..1d026a68b0 100644 --- a/gnu/packages/patches/abiword-explictly-cast-bools.patch +++ b/gnu/packages/patches/abiword-explictly-cast-bools.patch @@ -13,24 +13,6 @@ casted. } /* -@@ -161,7 +161,7 @@ bool UT_JPEG_getDimensions(const UT_ByteBuf* pBB, UT_sint32& iImageWidth, - /* set the data source */ - _JPEG_ByteBufSrc (&cinfo, pBB); - -- jpeg_read_header(&cinfo, TRUE); -+ jpeg_read_header(&cinfo, (boolean)TRUE); - jpeg_start_decompress(&cinfo); - iImageWidth = cinfo.output_width; - iImageHeight = cinfo.output_height; -@@ -189,7 +189,7 @@ bool UT_JPEG_getRGBData(const UT_ByteBuf* pBB, UT_Byte* pDest, UT_sint32 iDestRo - /* set the data source */ - _JPEG_ByteBufSrc (&cinfo, pBB); - -- jpeg_read_header(&cinfo, TRUE); -+ jpeg_read_header(&cinfo, (boolean)TRUE); - jpeg_start_decompress(&cinfo); - - int row_stride = cinfo.output_width * cinfo.output_components; In the following file, we also need to reverse header include order: JPEG needs diff --git a/gnu/packages/patches/appstream-glib-2020.patch b/gnu/packages/patches/appstream-glib-2020.patch new file mode 100644 index 0000000000..ab8a4bbdee --- /dev/null +++ b/gnu/packages/patches/appstream-glib-2020.patch @@ -0,0 +1,31 @@ +2020 is no longer the future. + +Taken from upstream: +https://github.com/hughsie/appstream-glib/commit/953c8e529d7291e60a95e580967ed79ce2c9ccf0 + +diff --git a/data/tests/broken.appdata.xml b/data/tests/broken.appdata.xml +index f7a5386e..cf80f5b4 100644 +--- a/data/tests/broken.appdata.xml ++++ b/data/tests/broken.appdata.xml +@@ -40,7 +40,7 @@ + <p>This is a duplicate release on the same day!</p> + </description> + </release> +- <release date="2020-01-01" version="0.6.2"> ++ <release date="2050-01-01" version="0.6.2"> + <description> + <p>This is a release in the future!</p> + </description> +diff --git a/libappstream-glib/as-app-validate.c b/libappstream-glib/as-app-validate.c +index c1103ace..f50e4e41 100644 +--- a/libappstream-glib/as-app-validate.c ++++ b/libappstream-glib/as-app-validate.c +@@ -864,7 +864,7 @@ as_app_validate_release (AsApp *app, + AS_PROBLEM_KIND_ATTRIBUTE_MISSING, + "<release> has no timestamp"); + } +- if (timestamp > 20120101 && timestamp < 20251231) { ++ if (timestamp > 20120101 && timestamp < 20351231) { + ai_app_validate_add (helper, + AS_PROBLEM_KIND_ATTRIBUTE_INVALID, + "<release> timestamp should be a UNIX time"); diff --git a/gnu/packages/patches/arm-trusted-firmware-optional-bin-generation.patch b/gnu/packages/patches/arm-trusted-firmware-optional-bin-generation.patch deleted file mode 100644 index b2b8a12e1d..0000000000 --- a/gnu/packages/patches/arm-trusted-firmware-optional-bin-generation.patch +++ /dev/null @@ -1,86 +0,0 @@ -From b02de4cb14ee9c2bfff53d36f0b7ec6a2065bc94 Mon Sep 17 00:00:00 2001 -From: =?UTF-8?q?Christoph=20M=C3=BCllner?= <christophm30@gmail.com> -Date: Wed, 24 Apr 2019 09:45:30 +0200 -Subject: [PATCH 1/2] build_macros: Add mechanism to prevent bin generation. -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -On certain platforms it does not make sense to generate -TF-A binary images. For example a platform could make use of serveral -memory areas, which are non-continuous and the resulting binary -therefore would suffer from the padding-bytes. -Typically these platforms use the ELF image. - -This patch introduces a variable DISABLE_BIN_GENERATION, which -can be set to '1' in the platform makefile to prevent the binary -generation. - -Signed-off-by: Christoph Müllner <christophm30@gmail.com> -Change-Id: I62948e88bab685bb055fe6167d9660d14e604462 ---- - docs/user-guide.rst | 4 ++++ - make_helpers/build_macros.mk | 9 +++++++++ - make_helpers/defaults.mk | 3 +++ - 3 files changed, 16 insertions(+) - -diff --git a/docs/user-guide.rst b/docs/user-guide.rst -index 0848769b3..19919f112 100644 ---- a/docs/user-guide.rst -+++ b/docs/user-guide.rst -@@ -369,6 +369,10 @@ Common build options - - ``DEBUG``: Chooses between a debug and release build. It can take either 0 - (release) or 1 (debug) as values. 0 is the default. - -+- ``DISABLE_BIN_GENERATION``: Boolean option to disable the generation -+ of the binary image. If set to 1, then only the ELF image is built. -+ 0 is the default. -+ - - ``DYN_DISABLE_AUTH``: Provides the capability to dynamically disable Trusted - Board Boot authentication at runtime. This option is meant to be enabled only - for development platforms. ``TRUSTED_BOARD_BOOT`` flag must be set if this -diff --git a/make_helpers/build_macros.mk b/make_helpers/build_macros.mk -index 5d33954ad..2d41b2db1 100644 ---- a/make_helpers/build_macros.mk -+++ b/make_helpers/build_macros.mk -@@ -438,6 +438,11 @@ else - --script $(LINKERFILE) $(BUILD_DIR)/build_message.o \ - $(OBJS) $(LDPATHS) $(LIBWRAPPER) $(LDLIBS) $(BL_LIBS) - endif -+ifeq ($(DISABLE_BIN_GENERATION),1) -+ @${ECHO_BLANK_LINE} -+ @echo "Built $$@ successfully" -+ @${ECHO_BLANK_LINE} -+endif - - $(DUMP): $(ELF) - $${ECHO} " OD $$@" -@@ -451,7 +456,11 @@ $(BIN): $(ELF) - @${ECHO_BLANK_LINE} - - .PHONY: bl$(1) -+ifeq ($(DISABLE_BIN_GENERATION),1) -+bl$(1): $(ELF) $(DUMP) -+else - bl$(1): $(BIN) $(DUMP) -+endif - - all: bl$(1) - -diff --git a/make_helpers/defaults.mk b/make_helpers/defaults.mk -index be84f7791..dc797ed1f 100644 ---- a/make_helpers/defaults.mk -+++ b/make_helpers/defaults.mk -@@ -62,6 +62,9 @@ DEBUG := 0 - # Build platform - DEFAULT_PLAT := fvp - -+# Disable the generation of the binary image (ELF only). -+DISABLE_BIN_GENERATION := 0 -+ - # Enable capability to disable authentication dynamically. Only meant for - # development platforms. - DYN_DISABLE_AUTH := 0 --- -2.20.1 - diff --git a/gnu/packages/patches/arm-trusted-firmware-rockchip-disable-binary.patch b/gnu/packages/patches/arm-trusted-firmware-rockchip-disable-binary.patch deleted file mode 100644 index 8819a7cfad..0000000000 --- a/gnu/packages/patches/arm-trusted-firmware-rockchip-disable-binary.patch +++ /dev/null @@ -1,73 +0,0 @@ -From 42383dcf7db5debb9e183c7c5631974a4c2f91ea Mon Sep 17 00:00:00 2001 -From: =?UTF-8?q?Christoph=20M=C3=BCllner?= <christophm30@gmail.com> -Date: Wed, 24 Apr 2019 09:52:54 +0200 -Subject: [PATCH 2/2] rockchip: Disable binary generation for all SoCs. -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -All supported Rockchip SoCs (RK3288, RK3328, RK3368 and RK3399) -have non-continuous memory areas in the linker script with a huge -gap between them. This results in extremely padded binary images -with a size of about 4 GiB. - -E.g. on the RK3399 we have the following memory areas (and base addresses): -RAM (0x1000), SRAM (0xFF8C0000), and PMUSRAM (0xFF3B0000). - -Consumers of the TF-A project (e.g. coreboot or U-Boot) therefore -use the ELF image instead, which has a size of a few hundred kBs. - -In order to prevent the generation of a huge and useless file, -this patch disables the binary generation for all affected Rockchip -SoCs. - -Signed-off-by: Christoph Müllner <christophm30@gmail.com> -Change-Id: I4ac65bdf1e598c3e1a59507897d183aee9a36916 ---- - plat/rockchip/rk3328/platform.mk | 2 ++ - plat/rockchip/rk3368/platform.mk | 2 ++ - plat/rockchip/rk3399/platform.mk | 2 ++ - 3 files changed, 6 insertions(+) - -diff --git a/plat/rockchip/rk3328/platform.mk b/plat/rockchip/rk3328/platform.mk -index 18b1b9419..01c5af6a2 100644 ---- a/plat/rockchip/rk3328/platform.mk -+++ b/plat/rockchip/rk3328/platform.mk -@@ -8,6 +8,8 @@ RK_PLAT := plat/rockchip - RK_PLAT_SOC := ${RK_PLAT}/${PLAT} - RK_PLAT_COMMON := ${RK_PLAT}/common - -+DISABLE_BIN_GENERATION := 1 -+ - include lib/libfdt/libfdt.mk - - PLAT_INCLUDES := -Idrivers/arm/gic/common/ \ -diff --git a/plat/rockchip/rk3368/platform.mk b/plat/rockchip/rk3368/platform.mk -index d1315fc58..4ec36ce06 100644 ---- a/plat/rockchip/rk3368/platform.mk -+++ b/plat/rockchip/rk3368/platform.mk -@@ -8,6 +8,8 @@ RK_PLAT := plat/rockchip - RK_PLAT_SOC := ${RK_PLAT}/${PLAT} - RK_PLAT_COMMON := ${RK_PLAT}/common - -+DISABLE_BIN_GENERATION := 1 -+ - include lib/libfdt/libfdt.mk - - PLAT_INCLUDES := -I${RK_PLAT_COMMON}/ \ -diff --git a/plat/rockchip/rk3399/platform.mk b/plat/rockchip/rk3399/platform.mk -index 101359856..25c498da8 100644 ---- a/plat/rockchip/rk3399/platform.mk -+++ b/plat/rockchip/rk3399/platform.mk -@@ -8,6 +8,8 @@ RK_PLAT := plat/rockchip - RK_PLAT_SOC := ${RK_PLAT}/${PLAT} - RK_PLAT_COMMON := ${RK_PLAT}/common - -+DISABLE_BIN_GENERATION := 1 -+ - include lib/libfdt/libfdt.mk - - PLAT_INCLUDES := -I${RK_PLAT_COMMON}/ \ --- -2.20.1 - diff --git a/gnu/packages/patches/ceph-boost-compat.patch b/gnu/packages/patches/ceph-boost-compat.patch new file mode 100644 index 0000000000..b3df659d6b --- /dev/null +++ b/gnu/packages/patches/ceph-boost-compat.patch @@ -0,0 +1,81 @@ +Fix compatibility with Boost 1.70. + +Adapted for 14.2.5 from these upstream commits: +https://github.com/ceph/ceph/commit/064f142746ae97f54865069cdacf5aae2b1b14f6 +https://github.com/ceph/ceph/commit/f1651b8c509d60787d10c4115e29fecfd2da237c + +diff --git a/src/rgw/rgw_asio_frontend.cc b/src/rgw/rgw_asio_frontend.cc +--- a/src/rgw/rgw_asio_frontend.cc ++++ b/src/rgw/rgw_asio_frontend.cc +@@ -83,7 +83,8 @@ + using SharedMutex = ceph::async::SharedMutex<boost::asio::io_context::executor_type>; + + template <typename Stream> +-void handle_connection(RGWProcessEnv& env, Stream& stream, ++void handle_connection(boost::asio::io_context& context, ++ RGWProcessEnv& env, Stream& stream, + parse_buffer& buffer, bool is_ssl, + SharedMutex& pause_mutex, + rgw::dmclock::Scheduler *scheduler, +@@ -160,7 +161,7 @@ + rgw::io::add_conlen_controlling( + &real_client)))); + RGWRestfulIO client(cct, &real_client_io); +- auto y = optional_yield{socket.get_io_context(), yield}; ++ auto y = optional_yield{context, yield}; + process_request(env.store, env.rest, &req, env.uri_prefix, + *env.auth_registry, &client, env.olog, y, scheduler); + } +@@ -604,7 +605,7 @@ + return; + } + buffer->consume(bytes); +- handle_connection(env, stream, *buffer, true, pause_mutex, ++ handle_connection(context, env, stream, *buffer, true, pause_mutex, + scheduler.get(), ec, yield); + if (!ec) { + // ssl shutdown (ignoring errors) +@@ -622,7 +623,7 @@ + auto c = connections.add(conn); + auto buffer = std::make_unique<parse_buffer>(); + boost::system::error_code ec; +- handle_connection(env, s, *buffer, false, pause_mutex, ++ handle_connection(context, env, s, *buffer, false, pause_mutex, + scheduler.get(), ec, yield); + s.shutdown(tcp::socket::shutdown_both, ec); + }); +diff --git a/src/rgw/rgw_dmclock_async_scheduler.h b/src/rgw/rgw_dmclock_async_scheduler.h +--- a/src/rgw/rgw_dmclock_async_scheduler.h ++++ b/src/rgw/rgw_dmclock_async_scheduler.h +@@ -82,7 +82,12 @@ class AsyncScheduler : public md_config_obs_t, public Scheduler { + using Completion = async::Completion<Signature, async::AsBase<Request>>; + + using Clock = ceph::coarse_real_clock; ++#if BOOST_VERSION < 107000 + using Timer = boost::asio::basic_waitable_timer<Clock>; ++#else ++ using Timer = boost::asio::basic_waitable_timer<Clock, ++ boost::asio::wait_traits<Clock>, executor_type>; ++#endif + Timer timer; //< timer for the next scheduled request + + CephContext *const cct; +diff --git a/src/rgw/rgw_reshard.h b/src/rgw/rgw_reshard.h +--- a/src/rgw/rgw_reshard.h ++++ b/src/rgw/rgw_reshard.h +@@ -183,7 +183,14 @@ class RGWReshardWait { + ceph::condition_variable cond; + + struct Waiter : boost::intrusive::list_base_hook<> { +- boost::asio::basic_waitable_timer<Clock> timer; ++#if BOOST_VERSION < 107000 ++ using Timer = boost::asio::basic_waitable_timer<Clock>; ++#else ++ using Executor = boost::asio::io_context::executor_type; ++ using Timer = boost::asio::basic_waitable_timer<Clock, ++ boost::asio::wait_traits<Clock>, Executor>; ++#endif ++ Timer timer; + explicit Waiter(boost::asio::io_context& ioc) : timer(ioc) {} + }; + boost::intrusive::list<Waiter> waiters; diff --git a/gnu/packages/patches/ceph-detect-rocksdb.patch b/gnu/packages/patches/ceph-detect-rocksdb.patch deleted file mode 100644 index badad6d1b9..0000000000 --- a/gnu/packages/patches/ceph-detect-rocksdb.patch +++ /dev/null @@ -1,24 +0,0 @@ -Help the build system find system RocksDB. - -Taken from this upstream commit: -https://github.com/ceph/ceph/commit/2ac26bd0e01fd6c82bd59936cf25c25173f7775a - -diff --git a/cmake/modules/Findrocksdb.cmake b/cmake/modules/Findrocksdb.cmake -index f8369f73fc..5926647348 100644 ---- a/cmake/modules/Findrocksdb.cmake -+++ b/cmake/modules/Findrocksdb.cmake -@@ -15,11 +15,11 @@ find_library(ROCKSDB_LIBRARIES rocksdb) - - if(ROCKSDB_INCLUDE_DIR AND EXISTS "${ROCKSDB_INCLUDE_DIR}/rocksdb/version.h") - foreach(ver "MAJOR" "MINOR" "PATCH") -- file(STRINGS "${ROCKSDB_INCLUDE_DIR}/version.h" ROCKSDB_VER_${ver}_LINE -+ file(STRINGS "${ROCKSDB_INCLUDE_DIR}/rocksdb/version.h" ROCKSDB_VER_${ver}_LINE - REGEX "^#define[ \t]+ROCKSDB_${ver}[ \t]+[0-9]+$") - string(REGEX REPLACE "^#define[ \t]+ROCKSDB_${ver}[ \t]+([0-9]+)$" -- "\\1" ROCKSDB_VERSION_${ver} "${ROCKDB_VER_${ver}_LINE}") -- unset(${ROCKDB_VER_${ver}_LINE}) -+ "\\1" ROCKSDB_VERSION_${ver} "${ROCKSDB_VER_${ver}_LINE}") -+ unset(${ROCKSDB_VER_${ver}_LINE}) - endforeach() - set(ROCKSDB_VERSION_STRING - "${ROCKSDB_VERSION_MAJOR}.${ROCKSDB_VERSION_MINOR}.${ROCKSDB_VERSION_PATCH}") diff --git a/gnu/packages/patches/ceph-skip-collect-sys-info-test.patch b/gnu/packages/patches/ceph-skip-collect-sys-info-test.patch deleted file mode 100644 index 429087c661..0000000000 --- a/gnu/packages/patches/ceph-skip-collect-sys-info-test.patch +++ /dev/null @@ -1,24 +0,0 @@ -This test fails because /etc/os-release is not available. - -diff --git a/src/test/common/test_util.cc b/src/test/common/test_util.cc -index 64eace923c..6daf4aa514 100644 ---- a/src/test/common/test_util.cc -+++ b/src/test/common/test_util.cc -@@ -32,17 +32,3 @@ TEST(util, unit_to_bytesize) - ASSERT_EQ(65536ll, unit_to_bytesize(" 64K", &cerr)); - } - --#if defined(__linux__) --TEST(util, collect_sys_info) --{ -- map<string, string> sys_info; -- -- CephContext *cct = (new CephContext(CEPH_ENTITY_TYPE_CLIENT))->get(); -- collect_sys_info(&sys_info, cct); -- -- ASSERT_TRUE(sys_info.find("distro") != sys_info.end()); -- ASSERT_TRUE(sys_info.find("distro_description") != sys_info.end()); -- -- cct->put(); --} --#endif diff --git a/gnu/packages/patches/ceph-skip-unittest_blockdev.patch b/gnu/packages/patches/ceph-skip-unittest_blockdev.patch deleted file mode 100644 index 407bd93278..0000000000 --- a/gnu/packages/patches/ceph-skip-unittest_blockdev.patch +++ /dev/null @@ -1,24 +0,0 @@ -This test tries to walk a sysfs path and hits a null pointer exception. - -/tmp/guix-build-ceph-12.0.0.drv-0/ceph-12.0.0/src/test/common/test_blkdev.cc:32: Failure -Expected: (dir) != (nullptr), actual: NULL vs 8-byte object <00-00 00-00 00-00 00-00> - -diff --git a/src/test/common/CMakeLists.txt b/src/test/common/CMakeLists.txt ---- a/src/test/common/CMakeLists.txt -+++ b/src/test/common/CMakeLists.txt -@@ -12,15 +12,6 @@ - ${CMAKE_DL_LIBS} - ) - --if(HAVE_BLKID) -- # unittest_blkdev -- add_executable(unittest_blkdev -- test_blkdev.cc -- ) -- add_ceph_unittest(unittest_blkdev) -- target_link_libraries(unittest_blkdev ceph-common ${BLKID_LIBRARIES}) --endif() -- - # unittest_bloom_filter - add_executable(unittest_bloom_filter - test_bloom_filter.cc diff --git a/gnu/packages/patches/hexchat-crash-exit.patch b/gnu/packages/patches/hexchat-crash-exit.patch deleted file mode 100644 index e67fef73e0..0000000000 --- a/gnu/packages/patches/hexchat-crash-exit.patch +++ /dev/null @@ -1,31 +0,0 @@ -From d9c637ae8a1137d3ca512d2c560589903a4bd79d Mon Sep 17 00:00:00 2001 -From: Adam Williamson <awilliam@redhat.com> -Date: Tue, 30 Apr 2019 11:16:01 -0700 -Subject: [PATCH] Python plugin: Call EndInterpreter when deinit'ing the plugin - -This fixes https://github.com/hexchat/hexchat/issues/2237 , a -commonly-encountered bug when using Hexchat 2.14 on Python 3.7. -Thanks to @ncoghlan for the fix. - -Signed-off-by: Adam Williamson <awilliam@redhat.com> ---- - plugins/python/python.c | 3 +++ - 1 file changed, 3 insertions(+) - -diff --git a/plugins/python/python.c b/plugins/python/python.c -index 4403474d..475756ba 100644 ---- a/plugins/python/python.c -+++ b/plugins/python/python.c -@@ -2806,6 +2806,9 @@ hexchat_plugin_deinit(void) - xchatout_buffer = NULL; - - if (interp_plugin) { -+ PyThreadState *tstate = ((PluginObject*)interp_plugin)->tstate; -+ PyThreadState_Swap(tstate); -+ Py_EndInterpreter(tstate); - Py_DECREF(interp_plugin); - interp_plugin = NULL; - } --- -2.21.0 - diff --git a/gnu/packages/patches/icecat-makeicecat.patch b/gnu/packages/patches/icecat-makeicecat.patch index daa67f6a7a..172b1dcadd 100644 --- a/gnu/packages/patches/icecat-makeicecat.patch +++ b/gnu/packages/patches/icecat-makeicecat.patch @@ -25,7 +25,7 @@ index 8be2362..48716f2 100755 -wget -N https://ftp.mozilla.org/pub/mozilla.org/firefox/releases/${FFVERSION}esr/source/firefox-${FFVERSION}esr.source.tar.xz.asc -gpg --recv-keys --keyserver keyserver.ubuntu.com 14F26682D0916CDD81E37B6D61B7B526D98F0353 -gpg --verify firefox-${FFVERSION}esr.source.tar.xz.asc --echo -n e131149a70e7ae867d9b0ea081e8c081d056500ee51bb9270df247e977badc69 firefox-${FFVERSION}esr.source.tar.xz |sha256sum -c - +-echo -n a00a7712d0f919162ce8181a9a3fc3e9ef37adf1caff0945a863b4c0c1d9f360 firefox-${FFVERSION}esr.source.tar.xz |sha256sum -c - - -echo Extracting Firefox tarball -tar -xf firefox-${FFVERSION}esr.source.tar.xz @@ -37,7 +37,7 @@ index 8be2362..48716f2 100755 +# wget -N https://ftp.mozilla.org/pub/mozilla.org/firefox/releases/${FFVERSION}esr/source/firefox-${FFVERSION}esr.source.tar.xz.asc +# gpg --recv-keys --keyserver keyserver.ubuntu.com 14F26682D0916CDD81E37B6D61B7B526D98F0353 +# gpg --verify firefox-${FFVERSION}esr.source.tar.xz.asc -+# echo -n e131149a70e7ae867d9b0ea081e8c081d056500ee51bb9270df247e977badc69 firefox-${FFVERSION}esr.source.tar.xz |sha256sum -c - ++# echo -n a00a7712d0f919162ce8181a9a3fc3e9ef37adf1caff0945a863b4c0c1d9f360 firefox-${FFVERSION}esr.source.tar.xz |sha256sum -c - +# +# echo Extracting Firefox tarball +# tar -xf firefox-${FFVERSION}esr.source.tar.xz diff --git a/gnu/packages/patches/jfsutils-add-sysmacros.patch b/gnu/packages/patches/jfsutils-add-sysmacros.patch new file mode 100644 index 0000000000..2349e37c06 --- /dev/null +++ b/gnu/packages/patches/jfsutils-add-sysmacros.patch @@ -0,0 +1,26 @@ +From: Tobias Geerinckx-Rice <me@tobias.gr> +Date: Thu, 12 Dec 2019 02:15:37 +0100 +Subject: gnu: jfsutils: Include sys/sysmacros.h. + +Copied verbatim[0] from the Debian package. + +[0]: https://sources.debian.org/patches/jfsutils/1.1.15-4/add_sysmacros.patch + +Description: Include sys/sysmacros.h + Mentioned header needed for major() definition. +Author: Laszlo Boszormenyi (GCS) <gcs@debian.org> +Last-Update: 2018-12-11 + +--- + +--- jfsutils-1.1.15.orig/libfs/devices.c ++++ jfsutils-1.1.15/libfs/devices.c +@@ -49,6 +49,8 @@ + #include <sys/disklabel.h> + #endif + ++#include <sys/sysmacros.h> ++ + #include "jfs_types.h" + #include "jfs_filsys.h" + #include "devices.h" diff --git a/gnu/packages/patches/jfsutils-include-systypes.patch b/gnu/packages/patches/jfsutils-include-systypes.patch new file mode 100644 index 0000000000..ef1515d02c --- /dev/null +++ b/gnu/packages/patches/jfsutils-include-systypes.patch @@ -0,0 +1,25 @@ +From: Tobias Geerinckx-Rice <me@tobias.gr> +Date: Thu, 12 Dec 2019 02:15:37 +0100 +Subject: gnu: jfsutils: Include sys/types.h. + +Copied verbatim[0] from the Debian package. + +[0]: https://sources.debian.org/patches/jfsutils/1.1.15-4/missing-includes.diff + +Description: Add missing include to fix FTBFS with eglibc 2.17 +Origin: vendor, http://patches.ubuntu.com/j/jfsutils/jfsutils_1.1.15-2ubuntu1.patch +Bug-Debian: http://bugs.debian.org/701433 +Last-Update: 2013-07-05 + +Index: b/fscklog/extract.c +=================================================================== +--- a/fscklog/extract.c 2006-06-05 19:31:40.000000000 +0000 ++++ b/fscklog/extract.c 2013-04-02 07:13:08.737654963 +0000 +@@ -28,6 +28,7 @@ + #include <stdio.h> + #include <string.h> + #include <unistd.h> ++#include <sys/types.h> + + #include "devices.h" + #include "diskmap.h" diff --git a/gnu/packages/patches/libtgvoip-disable-sse2.patch b/gnu/packages/patches/libtgvoip-disable-sse2.patch new file mode 100644 index 0000000000..0e4faeab26 --- /dev/null +++ b/gnu/packages/patches/libtgvoip-disable-sse2.patch @@ -0,0 +1,51 @@ +Copied from Debian. + +Description: Disable SSE2 code on i386 + This patch is not complete. A high-graded solution may use automatic switching + between SSE2 and C++ implementations based on the results of runtime checks. + The webrtc code already provides for one of them inside its GetCPUInfo function. +Bug-Debian: https://bugs.debian.org/892823 +Author: Nicholas Guriev <guriev-ns@ya.ru> +Last-Update: Tue, 29 Jan 2019 23:26:38 +0300 + +--- a/libtgvoip.gyp ++++ b/libtgvoip.gyp +@@ -871,11 +871,7 @@ + 'WEBRTC_POSIX', + ], + 'conditions': [ +- [ '"<!(uname -m)" == "i686"', { +- 'cflags_cc': [ +- '-msse2', +- ], +- }], ['"<!(uname -s)" == "Linux"', { ++ [ '"<!(uname -s)" == "Linux"', { + 'defines': [ + 'WEBRTC_LINUX', + ], +--- a/webrtc_dsp/rtc_base/system/arch.h ++++ b/webrtc_dsp/rtc_base/system/arch.h +@@ -28,7 +28,10 @@ + #define WEBRTC_ARCH_64_BITS + #define WEBRTC_ARCH_LITTLE_ENDIAN + #elif defined(_M_IX86) || defined(__i386__) ++#if defined(__SSE2__) ++// This macro is mostly used to detect SSE2 extension. + #define WEBRTC_ARCH_X86_FAMILY ++#endif + #define WEBRTC_ARCH_X86 + #define WEBRTC_ARCH_32_BITS + #define WEBRTC_ARCH_LITTLE_ENDIAN +--- a/webrtc_dsp/typedefs.h ++++ b/webrtc_dsp/typedefs.h +@@ -28,7 +28,10 @@ + #define WEBRTC_ARCH_64_BITS + #define WEBRTC_ARCH_LITTLE_ENDIAN + #elif defined(_M_IX86) || defined(__i386__) ++#if defined(__SSE2__) ++// This macro is mostly used to detect SSE2 extension. + #define WEBRTC_ARCH_X86_FAMILY ++#endif + #define WEBRTC_ARCH_X86 + #define WEBRTC_ARCH_32_BITS + #define WEBRTC_ARCH_LITTLE_ENDIAN diff --git a/gnu/packages/patches/libtgvoip-disable-webrtc.patch b/gnu/packages/patches/libtgvoip-disable-webrtc.patch new file mode 100644 index 0000000000..0ca532301c --- /dev/null +++ b/gnu/packages/patches/libtgvoip-disable-webrtc.patch @@ -0,0 +1,47 @@ +Copied from Debian. + +Description: Fix build of WebRTC on non-Linux systems + * Define the WEBRTC_LINUX macro only on Linux, and not on GNU/Hurd or FreeBSD. + * Fix type cast in the CurrentThreadId function. +Bug-Debian: https://bugs.debian.org/920851 +Author: Nicholas Guriev <guriev-ns@ya.ru> +Last-Update: Tue, 29 Jan 2019 23:26:44 +0300 + +--- a/libtgvoip.gyp ++++ b/libtgvoip.gyp +@@ -869,20 +869,18 @@ + '"<(OS)" == "linux"', { + 'defines': [ + 'WEBRTC_POSIX', +- 'WEBRTC_LINUX', + ], + 'conditions': [ + [ '"<!(uname -m)" == "i686"', { + 'cflags_cc': [ + '-msse2', + ], ++ }], ['"<!(uname -s)" == "Linux"', { ++ 'defines': [ ++ 'WEBRTC_LINUX', ++ ], + }] + ], +- 'direct_dependent_settings': { +- 'libraries': [ +- +- ], +- }, + }, + ], + ], +--- a/webrtc_dsp/rtc_base/platform_thread_types.cc ++++ b/webrtc_dsp/rtc_base/platform_thread_types.cc +@@ -31,7 +31,7 @@ PlatformThreadId CurrentThreadId() { + return syscall(__NR_gettid); + #else + // Default implementation for nacl and solaris. +- return reinterpret_cast<pid_t>(pthread_self()); ++ return static_cast<pid_t>(pthread_self()); + #endif + #endif // defined(WEBRTC_POSIX) + } diff --git a/gnu/packages/patches/mesa-timespec-test-32bit.patch b/gnu/packages/patches/mesa-timespec-test-32bit.patch deleted file mode 100644 index 3e4890f3a4..0000000000 --- a/gnu/packages/patches/mesa-timespec-test-32bit.patch +++ /dev/null @@ -1,17 +0,0 @@ -Fix a test failure on 32-bit systems. - -Taken from upstream: -https://gitlab.freedesktop.org/mesa/mesa/commit/dd1dba80b9ee74ec8b90761285a8262e374bf8ef - -diff --git a/src/util/tests/timespec/timespec_test.cpp b/src/util/tests/timespec/timespec_test.cpp ---- a/src/util/tests/timespec/timespec_test.cpp -+++ b/src/util/tests/timespec/timespec_test.cpp -@@ -206,7 +206,7 @@ TEST(timespec_test, timespec_from_nsec) - - timespec_from_nsec(&a, UINT64_MAX); - EXPECT_EQ(a.tv_nsec, UINT64_MAX % NSEC_PER_SEC); -- EXPECT_EQ(a.tv_sec, UINT64_MAX / NSEC_PER_SEC); -+ EXPECT_EQ(a.tv_sec, (time_t)(UINT64_MAX / NSEC_PER_SEC)); - } - - TEST(timespec_test, timespec_from_usec) diff --git a/gnu/packages/patches/ncompress-fix-softlinks.patch b/gnu/packages/patches/ncompress-fix-softlinks.patch index 98752e8e64..d667e3ef74 100644 --- a/gnu/packages/patches/ncompress-fix-softlinks.patch +++ b/gnu/packages/patches/ncompress-fix-softlinks.patch @@ -1,4 +1,5 @@ -Patch taken from Debian sid. +Patch taken from Debian sid. Adapted to 4.2.4.6 for Guix by Tobias +Geerinckx-Rice <me@tobias.gr>. Description: Support uncompressing and compressing soft links. Historically, ncompress for Debian has been built using a command line @@ -17,8 +18,8 @@ Index: ncompress/GNUmakefile Makefile: Makefile.def GNUmakefile sed \ -- -e 's:options= :options= $$(CFLAGS) -DNOFUNCDEF -DUTIME_H -DLSTAT $$(LDFLAGS) :' \ -+ -e 's:options= :options= $$(CFLAGS) -DNOFUNCDEF -DUTIME_H $$(LDFLAGS) :' \ +- -e 's:options= :options= -DUTIME_H -DLSTAT :' \ ++ -e 's:options= :options= -DUTIME_H :' \ Makefile.def > Makefile check: diff --git a/gnu/packages/patches/nfs-utils-missing-headers.patch b/gnu/packages/patches/nfs-utils-missing-headers.patch deleted file mode 100644 index 7f0542836e..0000000000 --- a/gnu/packages/patches/nfs-utils-missing-headers.patch +++ /dev/null @@ -1,19 +0,0 @@ -Fix compilation failure with glibc 2.26 caused by missing type -declarations: - ------- -rpc.c: In function ‘nsm_recv_getport’: -rpc.c:469:13: error: ‘UINT16_MAX’ undeclared (first use in this function) - if (port > UINT16_MAX) { ------- - ---- a/support/nsm/rpc.c.orig 2016-08-03 20:25:15.000000000 +0200 -+++ b/support/nsm/rpc.c 2017-08-26 07:41:11.884000000 +0200 -@@ -40,6 +40,7 @@ - - #include <time.h> - #include <stdbool.h> -+#include <stdint.h> - #include <string.h> - #include <unistd.h> - #include <fcntl.h> diff --git a/gnu/packages/patches/nss-CVE-2019-11745.patch b/gnu/packages/patches/nss-CVE-2019-11745.patch deleted file mode 100644 index ae0eeda3c8..0000000000 --- a/gnu/packages/patches/nss-CVE-2019-11745.patch +++ /dev/null @@ -1,24 +0,0 @@ -Fix CVE-2019-11745 (Out-of-bounds write when passing an output buffer smaller -than the block size to NSC_EncryptUpdate). - -Copied from Debian, equivalent to upstream fix: -<https://hg.mozilla.org/projects/nss/rev/1e22a0c93afe9f46545560c86caedef9dab6cfda>. - -# HG changeset patch -# User Craig Disselkoen <cdisselk@cs.ucsd.edu> -# Date 1574189697 25200 -# Node ID 60bca7c6dc6dc44579b9b3e0fb62ca3b82d92eec -# Parent 64e55c9f658e2a75f0835d00a8a1cdc2f25c74d6 -Bug 1586176 - EncryptUpdate should use maxout not block size. r=franziskus - ---- a/nss/lib/softoken/pkcs11c.c -+++ b/nss/lib/softoken/pkcs11c.c -@@ -1285,7 +1285,7 @@ NSC_EncryptUpdate(CK_SESSION_HANDLE hSes - } - /* encrypt the current padded data */ - rv = (*context->update)(context->cipherInfo, pEncryptedPart, -- &padoutlen, context->blockSize, context->padBuf, -+ &padoutlen, maxout, context->padBuf, - context->blockSize); - if (rv != SECSuccess) { - return sftk_MapCryptError(PORT_GetError()); diff --git a/gnu/packages/patches/orc-typedef-enum.patch b/gnu/packages/patches/orc-typedef-enum.patch deleted file mode 100644 index 207bf32ba9..0000000000 --- a/gnu/packages/patches/orc-typedef-enum.patch +++ /dev/null @@ -1,17 +0,0 @@ -Orc 0.4.30 has a bug that causes duplicate symbols due to a missing typedef. - -Taken from upstream: -https://gitlab.freedesktop.org/gstreamer/orc/merge_requests/32 - -diff --git a/orc/orctarget.h b/orc/orctarget.h ---- a/orc/orctarget.h -+++ b/orc/orctarget.h -@@ -19,7 +19,7 @@ enum { - ORC_TARGET_FAST_DENORMAL = (1<<31) - }; - --enum { -+typedef enum { - ORC_TARGET_POWERPC_64BIT = (1<<0), - ORC_TARGET_POWERPC_LE = (1<<1), - ORC_TARGET_POWERPC_ALTIVEC = (1<<2), diff --git a/gnu/packages/patches/pcre2-fix-jit_match-crash.patch b/gnu/packages/patches/pcre2-fix-jit_match-crash.patch deleted file mode 100644 index 7543319ee9..0000000000 --- a/gnu/packages/patches/pcre2-fix-jit_match-crash.patch +++ /dev/null @@ -1,25 +0,0 @@ -From: Tobias Geerinckx-Rice <me@tobias.gr> -Date: Thu, 01 Aug 2019 21:12:52 +0200 -Subject: [PATCH] gnu: pcre2: Fix jit_match crash. - -Fixes <https://bugs.exim.org/show_bug.cgi?id=2421>, reported as a ‘secrity -problem’. - -Copied verbatim from upstream[0]. - -[0]: https://vcs.pcre.org/pcre2/code/trunk/src/pcre2_jit_compile.c?view=patch&r1=1089&r2=1092&pathrev=1092 - ---- trunk/src/pcre2_jit_compile.c 2019/05/10 13:15:20 1089 -+++ trunk/src/pcre2_jit_compile.c 2019/05/13 16:38:18 1092 -@@ -8571,7 +8571,10 @@ - PCRE2_SPTR bptr; - uint32_t c; - --GETCHARINC(c, cc); -+/* Patch by PH */ -+/* GETCHARINC(c, cc); */ -+ -+c = *cc++; - #if PCRE2_CODE_UNIT_WIDTH == 32 - if (c >= 0x110000) - return NULL; diff --git a/gnu/packages/patches/u-boot-fix-mkimage-header-verification.patch b/gnu/packages/patches/u-boot-fix-mkimage-header-verification.patch deleted file mode 100644 index 063677db4a..0000000000 --- a/gnu/packages/patches/u-boot-fix-mkimage-header-verification.patch +++ /dev/null @@ -1,57 +0,0 @@ -From 48b52117235928cfd7ef1ec5c3f2cff5d7b03862 Mon Sep 17 00:00:00 2001 -From: Jordan Hand <jordanhand22@gmail.com> -Date: Wed, 10 Apr 2019 09:46:32 -0700 -Subject: [PATCH,v2] fdt: Fix mkimage list to try every header type -Origin: https://patchwork.ozlabs.org/patch/1083495/ - -Image type is not supplied to `mkimage -l`. For this reason, we cannot -use imagetool_verify_print_header_by_type. Instead, this patch uses -imagetool_verify_print_header to look through all header types to find -one where image validation succeeds. - -This patch fixes failures in test/image/test-imagetools.sh - -Signed-off-by: Jordan Hand <jorhand@microsoft.com> -Tested-by: Alex Kiernan <alex.kiernan@gmail.com> -Tested-by: Vagrant Cascadian <vagrant@debian.org> ---- - tools/mkimage.c | 23 +++++++++++++++-------- - 1 file changed, 15 insertions(+), 8 deletions(-) - -diff --git a/tools/mkimage.c b/tools/mkimage.c -index 2899adff81..76c3406d37 100644 ---- a/tools/mkimage.c -+++ b/tools/mkimage.c -@@ -403,14 +403,21 @@ int main(int argc, char **argv) - exit (EXIT_FAILURE); - } - -- /* -- * scan through mkimage registry for all supported image types -- * and verify the input image file header for match -- * Print the image information for matched image type -- * Returns the error code if not matched -- */ -- retval = imagetool_verify_print_header_by_type(ptr, &sbuf, -- tparams, ¶ms); -+ if (params.fflag) { -+ /* -+ * Verifies the header format based on the expected header for -+ * image type in tparams -+ */ -+ retval = imagetool_verify_print_header_by_type(ptr, &sbuf, -+ tparams, ¶ms); -+ } else { -+ /** -+ * When listing the image, we are not given the image type. Simply check all -+ * image types to find one that matches our header -+ */ -+ retval = imagetool_verify_print_header(ptr, &sbuf, -+ tparams, ¶ms); -+ } - - (void) munmap((void *)ptr, sbuf.st_size); - (void) close (ifd); --- -2.20.1 - diff --git a/gnu/packages/pcre.scm b/gnu/packages/pcre.scm index 91c32d6e5d..ea45a3d06b 100644 --- a/gnu/packages/pcre.scm +++ b/gnu/packages/pcre.scm @@ -89,15 +89,14 @@ POSIX regular expression API.") (define-public pcre2 (package (name "pcre2") - (version "10.33") + (version "10.34") (source (origin (method url-fetch) (uri (string-append "mirror://sourceforge/pcre/pcre2/" version "/pcre2-" version ".tar.bz2")) - (patches (search-patches "pcre2-fix-jit_match-crash.patch")) (sha256 (base32 - "1anqi7vpbfzag7imccrc6di1zl5rl63ab7rfpmajpw6d1kzlsl9m")))) + "1jlqnzcz2yi70dm40wyfa9w8is9z2kh4dl8zjnv3vqd9mgzp7i3l")))) (build-system gnu-build-system) (inputs `(("bzip2" ,bzip2) ("readline" ,readline) @@ -109,7 +108,8 @@ POSIX regular expression API.") "--enable-pcre2test-libreadline" "--enable-pcre2-16" "--enable-pcre2-32" - "--enable-jit") + "--enable-jit" + "--disable-static") #:phases (modify-phases %standard-phases (add-after 'unpack 'patch-paths diff --git a/gnu/packages/pdf.scm b/gnu/packages/pdf.scm index ebe0168ff2..368b2ce69e 100644 --- a/gnu/packages/pdf.scm +++ b/gnu/packages/pdf.scm @@ -13,7 +13,7 @@ ;;; Copyright © 2017, 2018 Leo Famulari <leo@famulari.name> ;;; Copyright © 2017 Alex Vong <alexvong1995@gmail.com> ;;; Copyright © 2017, 2018 Rene Saavedra <pacoon@protonmail.com> -;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2019 Alex Griffin <a@ajgrf.com> ;;; Copyright © 2019 Ben Sturmfels <ben@sturm.com.au> ;;; Copyright © 2019 Hartmut Goebel <h.goebel@crazy-compilers.com> @@ -670,14 +670,14 @@ line tools for batch rendering @command{pdfdraw}, rewriting files (define-public qpdf (package (name "qpdf") - (version "9.0.1") + (version "9.1.0") (source (origin (method url-fetch) (uri (string-append "mirror://sourceforge/qpdf/qpdf/" version "/qpdf-" version ".tar.gz")) (sha256 (base32 - "0lhgb82s2402ad2yiswkj227vjlw9zypphdfdivfkbril7dg6495")) + "0ygd80wxcmh613n04x2kmf8wlsl0drxyd5wwdcrm1rzj0xwvpfrs")) (modules '((guix build utils))) (snippet ;; Replace shebang with the bi-lingual shell/Perl trick to remove @@ -784,7 +784,7 @@ vector formats.") (define-public impressive (package (name "impressive") - (version "0.12.0") + (version "0.12.1") (source (origin (method url-fetch) (uri (string-append @@ -792,7 +792,7 @@ vector formats.") version "/Impressive-" version ".tar.gz")) (sha256 (base32 - "0zaqq3yvd296mfr5bxpj2hqlk7vrb0rsbgd4dc1l5ag46giqvivx")))) + "1r7ihv41awnlnlry1kymb8fka053wdhzibfwcarn78rr3vs338vl")))) (build-system python-build-system) ;; TODO: Add dependency on pdftk. diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm index 89254de339..a805962b08 100644 --- a/gnu/packages/perl.scm +++ b/gnu/packages/perl.scm @@ -6,7 +6,7 @@ ;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr> ;;; Copyright © 2016, 2018 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2016 Jochem Raat <jchmrt@riseup.net> -;;; Copyright © 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il> +;;; Copyright © 2016, 2017, 2018, 2019, 2020 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016 ng0 <ng0@n0.is> ;;; Copyright © 2016 Alex Sassmannshausen <alex@pompo.co> ;;; Copyright © 2016, 2018 Roel Janssen <roel@gnu.org> @@ -23,6 +23,7 @@ ;;; Copyright © 2018 Kei Kebreau <kkebreau@posteo.net> ;;; Copyright © 2019 Alex Griffin <a@ajgrf.com> ;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com> +;;; Copyright © 2019 Stephen J. Scheck <sscheck@cpan.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -6688,6 +6689,31 @@ cycle. Functions called in the package itself will still be bound by their name, but they won't show up as methods on your class or instances.") (license (package-license perl)))) +(define-public perl-net-bgp + (package + (name "perl-net-bgp") + (version "0.17") + (source + (origin + (method url-fetch) + (uri (string-append + "mirror://cpan/authors/id/S/SS/SSCHECK/Net-BGP-" version ".tar.gz")) + (sha256 (base32 "0za8x9cn5n2hasb14p7dr537lggvrcsl23pgldxf5y03wmk6h35y")))) + (build-system perl-build-system) + (home-page "https://metacpan.org/release/Net-BGP") + (synopsis "Object-oriented API to the BGP protocol") + (description + "This module is an implementation of the BGP-4 inter-domain routing protocol. +It encapsulates all of the functionality needed to establish and maintain a +BGP peering session and exchange routing update information with the peer. +It aims to provide a simple API to the BGP protocol for the purposes of +automation, logging, monitoring, testing, and similar tasks using the +power and flexibility of perl. The module does not implement the +functionality of a RIB (Routing Information Base) nor does it modify the +kernel routing table of the host system. However, such operations could be +implemented using the API provided by the module.") + (license perl-license))) + (define-public perl-net-dns-native (package (name "perl-net-dns-native") @@ -6847,7 +6873,7 @@ signatures.") (define-public perl-ole-storage-lite (package (name "perl-ole-storage-lite") - (version "0.19") + (version "0.20") (source (origin (method url-fetch) @@ -6857,7 +6883,7 @@ signatures.") ".tar.gz")) (sha256 (base32 - "179cxwqxb0f9dpx8954nvwjmggxxi5ndnang41yav1dx6mf0abp7")))) + "1fpqhhgb8blj4hhs97fsbnbhk29s9yms057a9s9yl20f3hbsc65b")))) (build-system perl-build-system) (home-page "https://metacpan.org/release/OLE-Storage_Lite") (synopsis "Read and write OLE storage files") diff --git a/gnu/packages/profiling.scm b/gnu/packages/profiling.scm index 57f6b5ca81..5cc9113ffe 100644 --- a/gnu/packages/profiling.scm +++ b/gnu/packages/profiling.scm @@ -1,6 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2017 Dave Love <fx@gnu.org> -;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; ;;; This file is part of GNU Guix. ;;; @@ -173,13 +173,14 @@ memory-efficient event trace data format plus support library.") (define-public opari2 (package (name "opari2") - (version "2.0.4") + (version "2.0.5") (source (origin (method url-fetch) (uri (string-append "https://www.vi-hps.org/cms/upload/packages/opari2/" "opari2-" version ".tar.gz")) - (sha256 (base32 "0cd1l30x8hygvbh6yay7mn483vjq3z4b7wnsffs80rznj93k57pn")))) + (sha256 + (base32 "1xaf25lcxk4ky1kzfks40ja9mayh8pnmrzch2107c8dcjrsxsd4h")))) (build-system gnu-build-system) (inputs `(("gfortran" ,gfortran))) (native-inputs `(("gawk" ,gawk) ; for tests diff --git a/gnu/packages/prolog.scm b/gnu/packages/prolog.scm new file mode 100644 index 0000000000..ca280f77fa --- /dev/null +++ b/gnu/packages/prolog.scm @@ -0,0 +1,152 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2013 Nikita Karetnikov <nikita@karetnikov.org> +;;; Copyright © 2013 Mark H Weaver <mhw@netris.org> +;;; Copyright © 2020 Brett Gilio <brettg@gnu.org> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu packages prolog) + #:use-module (guix download) + #:use-module (guix git-download) + #:use-module ((guix licenses) #:prefix license:) + #:use-module (guix packages) + #:use-module (guix build-system cmake) + #:use-module (guix build-system gnu) + #:use-module (gnu packages backup) + #:use-module (gnu packages compression) + #:use-module (gnu packages fontutils) + #:use-module (gnu packages image) + #:use-module (gnu packages libunwind) + #:use-module (gnu packages multiprecision) + #:use-module (gnu packages perl) + #:use-module (gnu packages pkg-config) + #:use-module (gnu packages readline) + #:use-module (gnu packages texinfo) + #:use-module (gnu packages tls) + #:use-module (gnu packages xorg) + #:use-module (srfi srfi-1)) + +(define-public gprolog + (package + (name "gprolog") + (version "1.4.5") + (source + (origin + (method url-fetch) + ;; Recent versions are not hosted on the GNU mirrors. + (uri (list (string-append "http://gprolog.org/gprolog-" version + ".tar.gz") + (string-append "mirror://gnu/gprolog/gprolog-" version + ".tar.gz"))) + (sha256 + (base32 + "0z4cc42n3k6i35b8mr816iwsvrpxshw6d7dgz6s2h1hy0l7g1p5z")))) + (build-system gnu-build-system) + (arguments + `(#:configure-flags + (list (string-append + "--with-install-dir=" %output "/share/gprolog")) + #:phases + (modify-phases %standard-phases + (add-before 'configure 'change-dir-n-fix-shells + (lambda _ + (chdir "src") + (substitute* "configure" + (("-/bin/sh") (string-append "-" (which "sh"))) + (("= /bin/sh") (string-append "= " (which "sh")))) + #t))))) + (home-page "https://www.gnu.org/software/gprolog/") + (synopsis "Prolog compiler") + (description + "GNU Prolog is a standards-compliant Prolog compiler with constraint +solving over finite domains. It accepts Prolog+ constraint programs and +produces a compiled, native binary which can function in a stand-alone +manner. It also features an interactive interpreter.") + (license (list license:gpl2+ + license:lgpl3+)) + + ;; See 'configure' for the list of supported architectures. + (supported-systems (fold delete + %supported-systems + '("armhf-linux" "mips64el-linux"))))) + +(define-public swi-prolog + (package + (name "swi-prolog") + (version "8.1.20") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/SWI-Prolog/swipl-devel.git") + (recursive? #t) ; TODO: Determine if this can be split out. + (commit (string-append "V" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0blpw5g0gszi83wmvyhlh7pk4wlyx00vgaj6qr3ris36cdl8j10a")))) + (build-system cmake-build-system) + (arguments + `(#:parallel-build? #t + #:tests? #t + #:configure-flags + (list "-DINSTALL_DOCUMENTATION=ON" + "-DSWIPL_INSTALL_IN_LIB=OFF") ; FIXME: Breaks RUNPATH validation. + #:phases + (modify-phases %standard-phases + ;; XXX: Delete a variety of tests which fail either attempting to + ;; establish a network connection, or attempts to write to the + ;; immutable store. Phases marked *-pre are disabled /before/ building. + ;; Phases marked *-post are disabled /after/ building. + (add-after 'unpack 'delete-failing-tests-pre + (lambda _ + (substitute* "src/CMakeLists.txt" + ((" save") "")) + (substitute* "src/test.pl" + (("testdir\\('Tests/save'\\).") "")) + (with-directory-excursion "src/Tests" + (for-each delete-file-recursively + '("save"))) + #t)) + (add-before 'check 'delete-failing-tests-post + (lambda _ + (with-directory-excursion "packages" + (for-each delete-file-recursively + '("http" + "pengines" + "RDF" + "semweb" + "ssl"))) + #t))))) + (native-inputs + `(("zlib" ,zlib) + ("gmp" ,gmp) + ("readline" ,readline) + ("texinfo" ,texinfo) + ("libarchive" ,libarchive) + ("libunwind" ,libunwind) + ("libjpeg", libjpeg) + ("libxft" ,libxft) + ("fontconfig" ,fontconfig) + ("perl" ,perl) + ("pkg-config" ,pkg-config) + ("openssl" ,openssl))) + (home-page "https://www.swi-prolog.org/") + (synopsis "ISO/Edinburgh-style Prolog interpreter") + (description "SWI-Prolog is a fast and powerful ISO/Edinburgh-style Prolog +compiler with a rich set of built-in predicates. It offers a fast, robust and +small environment which enables substantial applications to be developed with +it.") + (license license:bsd-2))) diff --git a/gnu/packages/protobuf.scm b/gnu/packages/protobuf.scm index 5c22072132..9ef9587975 100644 --- a/gnu/packages/protobuf.scm +++ b/gnu/packages/protobuf.scm @@ -3,7 +3,7 @@ ;;; Copyright © 2016 Daniel Pimentel <d4n1@d4n1.org> ;;; Copyright © 2016 Leo Famulari <leo@famulari.name> ;;; Copyright © 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net> -;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; ;;; This file is part of GNU Guix. ;;; @@ -180,7 +180,7 @@ code.") (define-public protozero (package (name "protozero") - (version "1.6.7") + (version "1.6.8") (source (origin (method git-fetch) @@ -189,7 +189,7 @@ code.") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 - (base32 "1ryvn3iwxiaih3mvyy45nbwxnhzfc8vby0xh9m6d6fpakhcpf6s3")))) + (base32 "1hfijpfylf1c71wa3mk70gjc88b6k1q7cxb87cwqdflw5q2x8ma6")))) (build-system cmake-build-system) (home-page "https://github.com/mapbox/protozero") (synopsis "Minimalistic protocol buffer decoder and encoder in C++") diff --git a/gnu/packages/python-compression.scm b/gnu/packages/python-compression.scm index 705a7ffa3b..0f2bc78c12 100644 --- a/gnu/packages/python-compression.scm +++ b/gnu/packages/python-compression.scm @@ -4,6 +4,7 @@ ;;; Copyright © 2017 ng0 <ng0@n0.is> ;;; Copyright © 2017 Julien Lepiller <julien@lepiller.eu> ;;; Copyright © 2018, 2019 Efraim Flashner <efraim@flashner.co.il> +;;; Copyright © 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; ;;; This file is part of GNU Guix. ;;; @@ -234,3 +235,23 @@ install: libbitshuffle.so "This package provides a @code{pathlib}-compatible @code{Zipfile} object wrapper. It provides a backport of the @code{Path} object.") (license license:expat))) + +(define-public python-zstandard + (package + (name "python-zstandard") + (version "0.13.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "zstandard" version)) + (sha256 + (base32 "0q9msi00s93iqm8vzd839r7yc51gz54z90h5bckqyjdxa6vxijz5")))) + (build-system python-build-system) + (native-inputs + `(("python-hypothesis" ,python-hypothesis))) + (home-page "https://github.com/indygreg/python-zstandard") + (synopsis "Zstandard bindings for Python") + (description "This project provides Python bindings for interfacing with +the Zstandard compression library. A C extension and CFFI interface are +provided.") + (license license:bsd-3))) diff --git a/gnu/packages/python-crypto.scm b/gnu/packages/python-crypto.scm index b9e32109ae..44a4eab50b 100644 --- a/gnu/packages/python-crypto.scm +++ b/gnu/packages/python-crypto.scm @@ -1,6 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr> -;;; Copyright © 2015, 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il> +;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2015, 2016, 2017, 2019 Leo Famulari <leo@famulari.name> ;;; Copyright © 2016, 2017, 2020 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2017 Ben Sturmfels <ben@sturm.com.au> @@ -537,14 +537,14 @@ python-axolotl.") (version "0.1.39") (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/tgalal/python-axolotl/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) + (method git-fetch) + (uri (git-reference + (url "https://github.com/tgalal/python-axolotl") + (commit version))) + (file-name (git-file-name name version)) (patches (search-patches "python-axolotl-AES-fix.patch")) (sha256 - (base32 "0badsgkgz0ir3hqynxzsfjgacppi874syvvmgccc6j164053x6zm")))) + (base32 "0xm9qgcwf6fq7rhzfcviwhbzcbj4i7wkxkab2z55fy1x82lya9g6")))) (build-system python-build-system) (arguments `(#:phases diff --git a/gnu/packages/python-xyz.scm b/gnu/packages/python-xyz.scm index a369720202..75ab361616 100644 --- a/gnu/packages/python-xyz.scm +++ b/gnu/packages/python-xyz.scm @@ -14,7 +14,7 @@ ;;; Copyright © 2015, 2016, 2017, 2019 Leo Famulari <leo@famulari.name> ;;; Copyright © 2015, 2017 Ben Woodcroft <donttrustben@gmail.com> ;;; Copyright © 2015, 2016 Erik Edrosa <erik.edrosa@gmail.com> -;;; Copyright © 2015, 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il> +;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2015, 2017 Kyle Meyer <kyle@kyleam.com> ;;; Copyright © 2015, 2016 Chris Marusich <cmmarusich@gmail.com> ;;; Copyright © 2016 Danny Milosavljevic <dannym+a@scratchpost.org> @@ -32,7 +32,7 @@ ;;; Copyright © 2016, 2017, 2019 Alex Vong <alexvong1995@gmail.com> ;;; Copyright © 2016, 2017, 2018 Arun Isaac <arunisaac@systemreboot.net> ;;; Copyright © 2016, 2017, 2018 Julien Lepiller <julien@lepiller.eu> -;;; Copyright © 2016, 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2016, 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2016, 2017 Thomas Danckaert <post@thomasdanckaert.be> ;;; Copyright © 2017 Carlo Zancanaro <carlo@zancanaro.id.au> ;;; Copyright © 2017 Frederick M. Muriithi <fredmanglis@gmail.com> @@ -57,7 +57,7 @@ ;;; Copyright © 2018, 2019 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2018 Luther Thompson <lutheroto@gmail.com> ;;; Copyright © 2018 Vagrant Cascadian <vagrant@debian.org> -;;; Copyright © 2019 Brett Gilio <brettg@gnu.org> +;;; Copyright © 2019, 2020 Brett Gilio <brettg@gnu.org> ;;; Copyright © 2019 Sam <smbaines8@gmail.com> ;;; Copyright © 2019 Jack Hill <jackhill@jackhill.us> ;;; Copyright © 2019 Guillaume Le Vaillant <glv@posteo.net> @@ -3055,14 +3055,14 @@ Server (PLS).") (define-public python-language-server (package (name "python-language-server") - (version "0.31.2") + (version "0.31.4") (source (origin (method url-fetch) (uri (pypi-uri "python-language-server" version)) (sha256 (base32 - "1iq69wc1fyhirfyq25ih41wq9yvr7bchiw0i116adpdgcq6m9idq")))) + "1nrs56jpx7dvghaas0kc5k9lxas5vr3awj3k87p4akki43nsblb8")))) (build-system python-build-system) (propagated-inputs `(("python-pluggy" ,python-pluggy) @@ -3430,13 +3430,14 @@ capabilities.") (version "1.8.2") (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/numpy/numpy/archive/v" version ".tar.gz")) - (file-name (string-append "python2-numpy-" version ".tar.gz")) + (method git-fetch) + (uri (git-reference + (url "https://github.com/numpy/numpy") + (commit (string-append "v" version)))) + (file-name (git-file-name "numpy" version)) (sha256 (base32 - "0sc20gz1b17xnyrkp5frca3ql5qfalpv916hfg2kqxpwr6jg0f1g")))) + "0ikgi15rsqwbkfsjjxrwh40lqyal2wvyp3923y6w6ch3dcr82sfk")))) (arguments (substitute-keyword-arguments (package-arguments python2-numpy) ((#:phases phases) @@ -5620,18 +5621,20 @@ features useful for text console applications.") (version "1.0.2") (source (origin - (method url-fetch) + (method git-fetch) ;; package author intends on distributing via github rather than pypi: ;; https://github.com/pazz/alot/issues/877#issuecomment-230173331 - (uri (string-append "https://github.com/pazz/urwidtrees/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) + (uri (git-reference + (url "https://github.com/pazz/urwidtrees") + (commit version))) + (file-name (git-file-name name version)) (sha256 (base32 - "0d30lyd3s2a97rhqfax5w9ssqds2z6aydqx3c6j2c2lk3cb4ngvh")))) + "1n1kpidvkdnsqyb82vlvk78gmly96kh8351lqxn2pzgwwns6fml2")))) (build-system python-build-system) (arguments - '(#:tests? #f)) ; no tests + '(#:use-setuptools? #f + #:tests? #f)) ; no tests (propagated-inputs `(("python-urwid" ,python-urwid))) (home-page "https://github.com/pazz/urwidtrees") (synopsis "Tree widgets for urwid") @@ -5760,8 +5763,7 @@ the GObject Introspection bindings to libnotify for non-GTK applications.") (method url-fetch) (uri (pypi-uri "lxml" version)) (sha256 - (base32 - "01nvb5j8vs9nk4z5s3250b1m22b4d08kffa36if3g1mdygdrvxpg")))) + (base32 "01nvb5j8vs9nk4z5s3250b1m22b4d08kffa36if3g1mdygdrvxpg")))) (build-system python-build-system) (arguments `(#:phases (modify-phases %standard-phases @@ -5771,9 +5773,8 @@ the GObject Introspection bindings to libnotify for non-GTK applications.") (inputs `(("libxml2" ,libxml2) ("libxslt" ,libxslt))) - (home-page "http://lxml.de/") - (synopsis - "Python XML processing library") + (home-page "https://lxml.de/") + (synopsis "Python XML processing library") (description "The lxml XML toolkit is a Pythonic binding for the C libraries libxml2 and libxslt.") @@ -8073,15 +8074,15 @@ automatically detect a wide range of file encodings.") (version "0.6.2") (source (origin - (method url-fetch) + (method git-fetch) ;; The release on PyPI does not include tests. - (uri (string-append - "https://github.com/docopt/docopt/archive/" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) + (uri (git-reference + (url "https://github.com/docopt/docopt") + (commit version))) + (file-name (git-file-name name version)) (sha256 (base32 - "16bf890xbdz3m30rsv2qacklh2rdn1zrfspfnwzx9g7vwz8yw4r1")))) + "0aad9gbswnnhssin2q0m5lmpm0ahyf80ahs2zjigbn5y7fvljnd0")))) (build-system python-build-system) (native-inputs `(("python-pytest" ,python-pytest))) @@ -9530,15 +9531,16 @@ encoding algorithms to do fuzzy string matching.") (name "python2-unicodecsv") (version "0.14.1") (source (origin - (method url-fetch) + (method git-fetch) ;; The test suite is not included in the PyPi release. ;; https://github.com/jdunck/python-unicodecsv/issues/19 - (uri (string-append "https://github.com/jdunck/python-unicodecsv/" - "archive/" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) + (uri (git-reference + (url "https://github.com/jdunck/python-unicodecsv") + (commit version))) + (file-name (git-file-name name version)) (sha256 (base32 - "087nqanfcyp6mlfbbr5lva5f3w6iz1bybls9xlrb8icmc474wh4w")))) + "15hx2k41a2lpv4hcml9zp4cvlx1171mnb5s4s13xc1pxkq3vgdjy")))) (build-system python-build-system) (arguments `(;; It supports Python 3, but Python 3 can already do Unicode CSV. @@ -9918,7 +9920,7 @@ to occurrences in strings and comments.") (lambda* (#:key inputs #:allow-other-keys) (let ((file-path (assoc-ref inputs "file"))) (substitute* "py3status/parse_config.py" - (("\\['file', '-b'") + (("\\[\"file\", \"-b\"") (string-append "['" file-path "/bin/file', '-b'"))) #t)))) #:tests? #f)) ; TODO: Requires many libraries not in Guix. @@ -11361,14 +11363,13 @@ command @command{natsort} that exposes this functionality in the command line.") (define-public python-glances (package (name "python-glances") - (version "3.1.1") + (version "3.1.2") (source (origin (method url-fetch) (uri (pypi-uri "Glances" version)) (sha256 - (base32 - "07j1ggzsqiskyz1i4mrnyr9i95v0dqi0i0hibnv1l188km8shmi8")) + (base32 "15384pbvw9wj4sb8zgvd9v1812vrypbyjg0acicjf1hdb3p30fkk")) (modules '((guix build utils))) (snippet '(begin @@ -11384,8 +11385,7 @@ command @command{natsort} that exposes this functionality in the command line.") (propagated-inputs `(("python-future" ,python-future) ("python-psutil" ,python-psutil))) - (home-page - "https://github.com/nicolargo/glances") + (home-page "https://github.com/nicolargo/glances") (synopsis "Cross-platform curses-based monitoring tool") (description "Glances is a curses-based monitoring tool for a wide variety of platforms. @@ -12819,29 +12819,27 @@ exception message with a traceback that points to the culprit.") (define-public python-mwclient (package (name "python-mwclient") - (version "0.8.4") + (version "0.10.0") (source (origin - (method url-fetch) + (method git-fetch) ;; The PyPI version wouldn't contain tests. - (uri (string-append "https://github.com/mwclient/mwclient/archive/" - "v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) + (uri (git-reference + (url "https://github.com/mwclient/mwclient") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) (sha256 (base32 - "1jj0yhilkjir00719fc7w133x7hdyhkxhk6xblla4asig45klsfv")))) + "1c3q6lwmb05yqywc4ya98ca7hsl15niili8rccl4n1yqp77c103v")))) (build-system python-build-system) (propagated-inputs - `(("python-requests" ,python-requests) - ("python-requests-oauthlib" - ,python-requests-oauthlib) + `(("python-requests-oauthlib" ,python-requests-oauthlib) ("python-six" ,python-six))) (native-inputs `(("python-mock" ,python-mock) ("python-pytest" ,python-pytest) - ("python-pytest-pep8" ,python-pytest-pep8) - ("python-pytest-cache" ,python-pytest-cache) ("python-pytest-cov" ,python-pytest-cov) + ("python-pytest-runner" ,python-pytest-runner) ("python-responses" ,python-responses))) (home-page "https://github.com/btongminh/mwclient") (synopsis "MediaWiki API client") @@ -13326,14 +13324,15 @@ by path in a JSON document (see RFC 6901).") (version "1.16") (source (origin - (method url-fetch) + (method git-fetch) ;; pypi version lacks tests.js - (uri (string-append "https://github.com/stefankoegl/python-json-patch/" - "archive/v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) + (uri (git-reference + (url "https://github.com/stefankoegl/python-json-patch") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) (sha256 (base32 - "085ykisl8v7mv9h7hvhdy3l2fjzs4214gx32r5k6nx4f76hbv6y5")))) + "0k9pff06lxama3nhsc7cdxbp83422bdy8ifs52i6xkas8hpyzfzr")))) (build-system python-build-system) (native-inputs `(("python-jsonpointer" ,python-jsonpointer))) @@ -13352,13 +13351,14 @@ applying JSON Patches according to RFC 6902.") (version "0.4") (source (origin - (method url-fetch) - (uri (string-append "https://github.com/stefankoegl/python-json-patch/" - "archive/v" version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) + (method git-fetch) + (uri (git-reference + (url "https://github.com/stefankoegl/python-json-patch") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) (sha256 (base32 - "0j0cd9z9zyp8kppp464jxrfgrnbgkzl1yi10i5gsv8yz6d95929d")))))) + "1fq02y57kinyknxjcav0slcb0k9mwdffqw2hnlhdkpj7palh2mwk")))))) (define-public python2-jsonpatch-0.4 (package-with-python2 python-jsonpatch-0.4)) @@ -13679,14 +13679,13 @@ many of the popular cloud service providers using a unified API.") (define-public python-smmap2 (package (name "python-smmap2") - (version "2.0.3") + (version "2.0.5") (source (origin (method url-fetch) (uri (pypi-uri "smmap2" version)) (sha256 - (base32 - "1hvn28p3zvxa98sbi9lrqvv2ps4q284j4jq9a619zw0m7yv0sly7")))) + (base32 "16k03pcnxd3lgzwgbd7nl4jwzm1wmahirvd09kljnzvy96hgza99")))) (build-system python-build-system) (native-inputs `(("python-nosexcover" ,python-nosexcover))) @@ -14621,12 +14620,13 @@ files, and Makefiles.") (version "0.6") (source (origin - (method url-fetch) - (uri (string-append "https://github.com/Suor/whatever/archive/" version - ".tar.gz")) + (method git-fetch) + (uri (git-reference + (url "https://github.com/Suor/whatever") + (commit version))) + (file-name (git-file-name name version)) (sha256 - (base32 "1rchg9hrlvw4sn20lq1zspczr4x1pv57c02gv73igiqx1hqpy2nc")) - (file-name (string-append name "-" version ".tar.gz")))) + (base32 "1q7ajgqjfivxqsqgnhp4lc4p6jxyh4zprcsdbpd6dw54inaf0av5")))) (build-system python-build-system) (arguments `(#:phases @@ -16544,14 +16544,14 @@ time-or-computationally-expensive properties quick and easy and works in Python (define-public python-folium (package (name "python-folium") - (version "0.10.0") + (version "0.10.1") (source (origin (method url-fetch) (uri (pypi-uri "folium" version)) (sha256 (base32 - "18fzxijsgrb95r0a8anc9ba5ijyw3nlnv3rpavfbkqa5v878x84f")))) + "0gcc267wxwxr57ry86pqpbiyfvl0g48hfvgy0f2mz9s58g87kgzd")))) (build-system python-build-system) (propagated-inputs `(("python-branca" ,python-branca) diff --git a/gnu/packages/qt.scm b/gnu/packages/qt.scm index 4036b27b4a..d35dfb6a0b 100644 --- a/gnu/packages/qt.scm +++ b/gnu/packages/qt.scm @@ -11,8 +11,9 @@ ;;; Copyright © 2018 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; Copyright © 2018 Hartmut Goebel <h.goebel@crazy-compilers.com> ;;; Copyright © 2018 Eric Bavier <bavier@member.fsf.org> -;;; Copyright © 2019 Marius Bakke <mbakke@fastmail.com> +;;; Copyright © 2019, 2020 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2018 John Soo <jsoo1@asu.edu> +;;; Copyright © 2020 Mike Rosset <mike.rosset@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -46,36 +47,48 @@ #:use-module (gnu packages cmake) #:use-module (gnu packages compression) #:use-module (gnu packages cups) + #:use-module (gnu packages curl) #:use-module (gnu packages databases) #:use-module (gnu packages documentation) #:use-module (gnu packages fontutils) #:use-module (gnu packages flex) #:use-module (gnu packages freedesktop) #:use-module (gnu packages gcc) + #:use-module (gnu packages ghostscript) #:use-module (gnu packages gl) #:use-module (gnu packages glib) + #:use-module (gnu packages gnupg) #:use-module (gnu packages gperf) #:use-module (gnu packages gstreamer) #:use-module (gnu packages gtk) #:use-module (gnu packages icu4c) #:use-module (gnu packages image) + #:use-module (gnu packages libevent) #:use-module (gnu packages linux) #:use-module (gnu packages llvm) #:use-module (gnu packages maths) + #:use-module (gnu packages ninja) #:use-module (gnu packages nss) #:use-module (gnu packages pciutils) #:use-module (gnu packages pcre) #:use-module (gnu packages perl) #:use-module (gnu packages pkg-config) #:use-module (gnu packages pulseaudio) + #:use-module (gnu packages protobuf) #:use-module (gnu packages python) #:use-module (gnu packages python-xyz) + #:use-module (gnu packages regex) #:use-module (gnu packages ruby) #:use-module (gnu packages sdl) + #:use-module (gnu packages serialization) #:use-module (gnu packages sqlite) + #:use-module (gnu packages telephony) #:use-module (gnu packages tls) + #:use-module (gnu packages valgrind) + #:use-module (gnu packages video) #:use-module (gnu packages vulkan) #:use-module (gnu packages xdisorg) + #:use-module (gnu packages xiph) #:use-module (gnu packages xorg) #:use-module (gnu packages xml) #:use-module (srfi srfi-1)) @@ -723,6 +736,7 @@ from within Qt 5."))) "1l44476ibb8rv4rf80vbjdc3712lmrl1xcxswa513ip66k47p5vn")))) (arguments (substitute-keyword-arguments (package-arguments qtsvg) + ((#:tests? _ #f) #f) ; TODO: Enable the tests ((#:phases phases) `(modify-phases ,phases (add-after 'unpack 'disable-network-tests @@ -730,7 +744,8 @@ from within Qt 5."))) (("qxmlquery") "# qxmlquery") (("xmlpatterns ") "# xmlpatterns")) #t)))))) - (native-inputs `(("perl" ,perl))) + (native-inputs `(("perl" ,perl) + ("qtdeclarative" ,qtdeclarative))) (inputs `(("qtbase" ,qtbase))) (synopsis "Qt XML patterns module") (description "The QtXmlPatterns module is a XQuery and XPath engine for @@ -758,8 +773,7 @@ xmlpatternsvalidator."))) ("pkg-config" ,pkg-config) ("python" ,python) ("python-wrapper" ,python-wrapper) - ("qtsvg" ,qtsvg) - ("qtxmlpatterns" ,qtxmlpatterns))) + ("qtsvg" ,qtsvg))) (inputs `(("mesa" ,mesa) ("qtbase" ,qtbase))) @@ -1501,6 +1515,7 @@ processes or computers."))) (sha256 (base32 "12l7rycjfa6d9gnnjd6i097pf1qqzjnz9c1jgxhpldvkf0n7pbi7")))) + (arguments (substitute-keyword-arguments (package-arguments qtsvg) ((#:tests? _ #f) #f))) ; TODO: Enable the tests @@ -1520,6 +1535,315 @@ the end-user is driving and cannot attend the incoming messages on the phone. In such a scenario, the messaging application can read out the incoming message."))) +(define-public qtwebengine + (package + (inherit qtsvg) + (name "qtwebengine") + (version (package-version qtbase)) + (source + (origin + (method url-fetch) + (uri (string-append "https://download.qt.io/official_releases/qt/" + (version-major+minor version) "/" version + "/submodules/" name "-everywhere-src-" + version ".tar.xz")) + (sha256 + (base32 "08c60nh95m98mcqk444axs76xi6m9x0wvdxrzk9c2cxwqdbz59fa")) + (modules '((ice-9 ftw) + (ice-9 match) + (srfi srfi-1) + (srfi srfi-26) + (guix build utils))) + (snippet + '(begin + (let ((preserved-third-party-files + '("base/third_party/dmg_fp" + "base/third_party/dynamic_annotations" + "base/third_party/icu" + "base/third_party/libevent" + "base/third_party/nspr" + "base/third_party/superfasthash" + "base/third_party/symbolize" + "base/third_party/xdg_mime" + "base/third_party/xdg_user_dirs" + "net/third_party/http2" + "net/third_party/mozilla_security_manager" + "net/third_party/nss" + "net/third_party/spdy" + "net/third_party/quic" + "third_party/abseil-cpp" + "third_party/angle" + "third_party/angle/src/common/third_party/base" + "third_party/angle/src/common/third_party/smhasher" + "third_party/angle/src/third_party/compiler" + "third_party/blink" + "third_party/boringssl" + "third_party/boringssl/src/third_party/fiat" + "third_party/breakpad" + "third_party/brotli" + "third_party/ced" + "third_party/crc32c" + "third_party/ffmpeg" + "third_party/googletest" + "third_party/hunspell" + "third_party/iccjpeg" + "third_party/icu" + "third_party/inspector_protocol" + "third_party/jinja2" + "third_party/jstemplate" + "third_party/khronos" + "third_party/leveldatabase" + "third_party/libaddressinput" + "third_party/libjingle_xmpp" + "third_party/libpng" + "third_party/libsrtp" + "third_party/libsync" + "third_party/libudev" + "third_party/libvpx" + "third_party/libwebm" + "third_party/libwebp" + "third_party/libxml" + "third_party/libxslt" + "third_party/libyuv" + "third_party/lss" + "third_party/markupsafe" + "third_party/mesa" + "third_party/metrics_proto" + "third_party/modp_b64" + "third_party/opus" + "third_party/ots" + "third_party/ply" + "third_party/polymer" + "third_party/protobuf" + "third_party/pyjson5" + "third_party/re2" + "third_party/rnnoise" + "third_party/skia" + "third_party/skia/third_party/gif" + "third_party/skia/third_party/skcms" + "third_party/smhasher" + "third_party/snappy" + "third_party/sqlite" + "third_party/usrsctp" + "third_party/web-animations-js" + "third_party/webrtc" + "third_party/webrtc_overrides" + "third_party/widevine/cdm/widevine_cdm_common.h" + "third_party/widevine/cdm/widevine_cdm_version.h" + "third_party/woff2" + "third_party/yasm" + "third_party/zlib" + "url/third_party/mozilla" + "v8/src/third_party/utf8-decoder" + "v8/src/third_party/valgrind" + "v8/third_party/antlr4" + "v8/third_party/inspector_protocol")) + (protected (make-regexp "\\.(gn|gyp)i?$"))) + (define preserved-club + (map (lambda (member) + (string-append "./" member)) + preserved-third-party-files)) + (define (empty? dir) + (equal? (scandir dir) '("." ".."))) + (define (third-party? file) + (string-contains file "third_party/")) + (define (useless? file) + (any (cute string-suffix? <> file) + '(".zip" ".so" ".dll" ".exe" ".jar"))) + (define (parents child) + ;; Return all parent directories of CHILD up to and including + ;; the closest "third_party". + (let* ((dirs (match (string-split child #\/) + ((dirs ... last) dirs))) + (closest (list-index (lambda (dir) + (string=? "third_party" dir)) + (reverse dirs))) + (delim (- (length dirs) closest))) + (fold (lambda (dir prev) + (cons (string-append (car prev) "/" dir) + prev)) + (list (string-join (list-head dirs delim) "/")) + (list-tail dirs delim)))) + (define (remove-loudly file) + (format #t "deleting ~a...~%" file) + (force-output) + (delete-file file)) + (define (delete-unwanted-files child stat flag base level) + (match flag + ((or 'regular 'symlink 'stale-symlink) + (when (third-party? child) + (unless (or (member child preserved-club) + (any (cute member <> preserved-club) + (parents child)) + (regexp-exec protected child)) + (remove-loudly child))) + (when (and (useless? child) (file-exists? child)) + (remove-loudly child)) + #t) + ('directory-processed + (when (empty? child) + (rmdir child)) + #t) + (_ #t))) + + (with-directory-excursion "src/3rdparty" + ;; TODO: Try removing "gn" too for future versions of qtwebengine. + (delete-file-recursively "ninja") + + (with-directory-excursion "chromium" + ;; Delete bundled software and binaries that were not explicitly + ;; preserved above. + (nftw "." delete-unwanted-files 'depth 'physical) + + ;; Assert that each preserved item is present to catch removals. + (for-each (lambda (third-party) + (unless (file-exists? third-party) + (error (format #f "~s does not exist!~%" third-party)))) + preserved-club) + + ;; Use relative header locations instead of hard coded ones. + (substitute* + "base/third_party/dynamic_annotations/dynamic_annotations.c" + (("base/third_party/valgrind") "valgrind")) + (substitute* + "third_party/breakpad/breakpad/src/common/linux/libcurl_wrapper.h" + (("third_party/curl") "curl")) + + ;; Replace Google Analytics bundle with an empty file and hope + ;; no one notices. + (mkdir-p "third_party/analytics") + (call-with-output-file + "third_party/analytics/google-analytics-bundle.js" + (lambda (port) + (const #t))))) + + ;; Do not enable support for loading the Widevine DRM plugin. + (substitute* "src/core/config/common.pri" + (("enable_widevine=true") + "enable_widevine=false")) + #t))))) + (build-system gnu-build-system) + (native-inputs + `(("bison" ,bison) + ("flex" ,flex) + ("gperf" ,gperf) + ("ninja" ,ninja) + ("perl" ,perl) + ("pkg-config" ,pkg-config) + ("python-2" ,python-2) + ("ruby" ,ruby))) + (inputs + `(("alsa-lib" ,alsa-lib) + ("atk" ,atk) + ("cups-minimal" ,cups-minimal) + ("curl" ,curl) + ("dbus" ,dbus) + ("ffmpeg" ,ffmpeg) + ("fontconfig" ,fontconfig) + ("harbuzz" ,harfbuzz) + ("icu4c" ,icu4c) + ("jsoncpp" ,jsoncpp) + ("lcms" ,lcms) + ("libcap" ,libcap) + ("libevent" ,libevent) + ("libgcrypt" ,libgcrypt) + ("libjpeg" ,libjpeg-turbo) + ("libvpx" ,libvpx) + ;; FIXME: configure does not find system lcms + ;; ("lcms" ,lcms) + ("libwebp" ,libwebp) + ("libx11" ,libx11) + ("libxcb" ,libxcb) + ("libxcomposite" ,libxcomposite) + ("libxcursor" ,libxcursor) + ("libxi" ,libxi) + ("libxkbcommon" ,libxkbcommon) + ;; FIXME: libxml2 needs to built with icu support though it links to + ;; libxml2 configure summary still states "Checking for compatible + ;; system libxml2... no" + ("libxml2" ,libxml2) + ("libxrandr" ,libxrandr) + ("libxrender" ,libxrender) + ("libxslt" ,libxslt) + ("libxtst" ,libxtst) + ("mesa" ,mesa) + ("minizip" ,minizip) + ("nss" ,nss) + ("opus" ,opus) + ("pciutils" ,pciutils) + ("protobuf" ,protobuf) + ("pulseaudio" ,pulseaudio) + ("qtbase" ,qtbase) + ("qtdeclarative" ,qtdeclarative) + ("qtmultimedia" ,qtmultimedia) + ("qtwebchannel" ,qtwebchannel) + ("re2" ,re2) + ("snappy" ,snappy) + ("udev" ,eudev) + ("valgrind" ,valgrind) + ("xcb-util" ,xcb-util))) + (arguments + (substitute-keyword-arguments (package-arguments qtsvg) + ((#:phases phases) + `(modify-phases ,phases + (add-before 'configure 'substitute-source + (lambda* (#:key inputs outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out")) + (nss (assoc-ref inputs "nss")) + (udev (assoc-ref inputs "udev"))) + ;; Qtwebengine is not installed into the same prefix as + ;; qtbase. Some qtbase QTLibraryInfo constants will not + ;; work. Replace with the full path to the qtwebengine + ;; translations and locales in the store. + (substitute* "src/core/web_engine_library_info.cpp" + (("QLibraryInfo::location\\(QLibraryInfo::TranslationsPath\\)") + (string-append "QLatin1String(\"" out "/share/qt5/translations\")")) + (("QLibraryInfo::location\\(QLibraryInfo::DataPath\\)") + (string-append "QLatin1String(\"" out "/share/qt5\")"))) + ;; Substitute full dynamic library path for nss. + (substitute* "src/3rdparty/chromium/crypto/nss_util.cc" + (("libnssckbi.so") + (string-append nss "/lib/nss/libnssckbi.so"))) + ;; Substitute full dynamic library path for udev. + (substitute* "src/3rdparty/chromium/device/udev_linux/udev1_loader.cc" + (("libudev.so.1") + (string-append udev "/lib/libudev.so.1"))) + #t))) + (add-before 'configure 'set-env + (lambda _ + ;; Avoids potential race conditions. + (setenv "PYTHONDONTWRITEBYTECODE" "1") + (setenv "NINJAFLAGS" + (string-append "-k1" ;less verbose build output + ;; Respect the '--cores' option of 'guix build'. + " -j" (number->string (parallel-job-count)))) + #t)) + (replace 'configure + (lambda _ + ;; Valid QT_BUILD_PARTS variables are: + ;; libs tools tests examples demos docs translations + (invoke "qmake" "QT_BUILD_PARTS = libs tools" "--" + "--webengine-printing-and-pdf=no" + "--webengine-ffmpeg=system" + "--webengine-icu=system" + "--webengine-pepper-plugins=no"))))) + ;; Tests are disabled due to "Could not find QtWebEngineProcess error" + ;; It's possible this can be fixed by setting QTWEBENGINEPROCESS_PATH + ;; before running tests. + ((#:tests? _ #f) #f))) + (native-search-paths + (list (search-path-specification + (file-type 'regular) + (separator #f) + (variable "QTWEBENGINEPROCESS_PATH") + (files '("lib/qt5/libexec/QtWebEngineProcess"))))) + (home-page "https://wiki.qt.io/QtWebEngine") + (synopsis "Qt WebEngine module") + (description "The Qt5WebEngine module provides support for web applications +using the Chromium browser project. The Chromium source code has Google services +and binaries removed, and adds modular support for using system libraries.") + (license license:lgpl2.1+))) + (define-public python-sip (package (name "python-sip") diff --git a/gnu/packages/rrdtool.scm b/gnu/packages/rrdtool.scm index fb2afe616f..13419e4d37 100644 --- a/gnu/packages/rrdtool.scm +++ b/gnu/packages/rrdtool.scm @@ -1,6 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2014 Mark H Weaver <mhw@netris.org> -;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; ;;; This file is part of GNU Guix. ;;; @@ -37,14 +37,14 @@ (define-public rrdtool (package (name "rrdtool") - (version "1.7.1") + (version "1.7.2") (source (origin (method url-fetch) (uri (string-append "http://oss.oetiker.ch/rrdtool/pub/rrdtool-" version ".tar.gz")) (sha256 (base32 - "1bhsg119j94xwykp2sbp01hhxcg78gzblfn7j98slrv9va77g6wq")))) + "1nsqra0g2nja19akmf9x5y9hhgc35ml3w9dcdz2ayz7zgvmzm6d1")))) (build-system gnu-build-system) (inputs `(("cairo" ,cairo) diff --git a/gnu/packages/rust-cbindgen.scm b/gnu/packages/rust-apps.scm index 2590af913f..215955214c 100644 --- a/gnu/packages/rust-cbindgen.scm +++ b/gnu/packages/rust-apps.scm @@ -1,4 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2019 John Soo <jsoo1@asu.edu> ;;; Copyright © 2019 Efraim Flashner <efraim@flashner.co.il> ;;; ;;; This file is part of GNU Guix. @@ -16,13 +17,52 @@ ;;; You should have received a copy of the GNU General Public License ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. -(define-module (gnu packages rust-cbindgen) +(define-module (gnu packages rust-apps) #:use-module ((guix licenses) #:prefix license:) - #:use-module (guix packages) - #:use-module (guix download) #:use-module (guix build-system cargo) + #:use-module (guix download) + #:use-module (guix packages) #:use-module (gnu packages crates-io)) +(define-public ripgrep + (package + (name "ripgrep") + (version "11.0.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "ripgrep" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0bn40lz9n08llq615p4qqqbi24zbkf0appfx3zgxg34a86ga9zds")))) + (build-system cargo-build-system) + (arguments + `(#:cargo-inputs + (("rust-bstr" ,rust-bstr-0.1) + ("rust-clap" ,rust-clap-2) + ("rust-grep" ,rust-grep-0.2) + ("rust-ignore" ,rust-ignore-0.4) + ("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-log" ,rust-log-0.4) + ("rust-num-cpus" ,rust-num-cpus-1.10) + ("rust-regex" ,rust-regex-1.1) + ("rust-serde-json" ,rust-serde-json-1.0) + ("rust-termcolor" ,rust-termcolor-1.0)) + #:cargo-development-inputs + (("rust-clap" ,rust-clap-2) + ("rust-lazy-static" ,rust-lazy-static-1.3) + ("rust-serde" ,rust-serde-1.0) + ("rust-serde-derive" ,rust-serde-derive-1.0)))) + (home-page "https://github.com/BurntSushi/ripgrep") + (synopsis "Line-oriented search tool") + (description + "ripgrep is a line-oriented search tool that recursively searches +your current directory for a regex pattern while respecting your +gitignore rules.") + (license (list license:unlicense license:expat)))) + (define-public rust-cbindgen (package (name "rust-cbindgen") @@ -48,38 +88,7 @@ ("tempfile" ,rust-tempfile-3.0) ("toml" ,rust-toml-0.5)) #:cargo-development-inputs - (("ansi-term" ,rust-ansi-term-0.11) - ("atty" ,rust-atty-0.2) - ("autocfg" ,rust-autocfg-0.1) - ("bitflags" ,rust-bitflags-1) - ("cfg-if" ,rust-cfg-if-0.1) - ("cloudabi" ,rust-cloudabi-0.0) - ("fuchsia-cprng" ,rust-fuchsia-cprng-0.1) - ("itoa" ,rust-itoa-0.4) - ("libc" ,rust-libc-0.2) - ("numtoa" ,rust-numtoa-0.1) - ("rand" ,rust-rand-0.6) - ("rand-chacha" ,rust-rand-chacha-0.1) - ("rand-core" ,rust-rand-core-0.3) - ("rand-hc" ,rust-rand-hc-0.1) - ("rand-isaac" ,rust-rand-isaac-0.1) - ("rand-jitter" ,rust-rand-jitter-0.1) - ("rand-os" ,rust-rand-os-0.1) - ("rand-pcg" ,rust-rand-pcg-0.1) - ("rand-xorshift" ,rust-rand-xorshift-0.1) - ("rdrand" ,rust-rdrand-0.4) - ("redox-syscall" ,rust-redox-syscall-0.1) - ("redox-termios" ,rust-redox-termios-0.1) - ("remove-dir-all" ,rust-remove-dir-all-0.5) - ("ryu" ,rust-ryu-1.0) - ("serde-derive" ,rust-serde-derive-1.0) - ("strsim" ,rust-strsim-0.8) - ("termion" ,rust-termion-1.5) - ("textwrap" ,rust-textwrap-0.11) - ("unicode-width" ,rust-unicode-width-0.1) - ("unicode-xid" ,rust-unicode-xid-0.2) - ("vec-map" ,rust-vec-map-0.8) - ("winapi" ,rust-winapi-0.3)))) + (("autocfg" ,rust-autocfg-0.1)))) (home-page "https://github.com/eqrion/cbindgen/") (synopsis "Tool for generating C bindings to Rust code") (description diff --git a/gnu/packages/scheme.scm b/gnu/packages/scheme.scm index cc0bfffea4..a320cbf831 100644 --- a/gnu/packages/scheme.scm +++ b/gnu/packages/scheme.scm @@ -8,7 +8,7 @@ ;;; Copyright © 2016, 2017 ng0 <ng0@n0.is> ;;; Copyright © 2017 John Darrington <jmd@gnu.org> ;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org> -;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018 Adam Massmann <massmannak@gmail.com> ;;; Copyright © 2018 Gabriel Hondet <gabrielhondet@gmail.com> ;;; @@ -555,7 +555,7 @@ of libraries.") (define-public gambit-c (package (name "gambit-c") - (version "4.9.2") + (version "4.9.3") (source (origin (method url-fetch) @@ -565,7 +565,7 @@ of libraries.") (string-map (lambda (c) (if (char=? c #\.) #\_ c)) version) ".tgz")) (sha256 - (base32 "1cpganh3jgjdw6qsapcbwxdbp1xwgx5gvdl4ymwf8p2c5k018dwy")))) + (base32 "1p6172vhcrlpjgia6hsks1w4fl8rdyjf9xjh14wxfkv7dnx8a5hk")))) (build-system gnu-build-system) (arguments '(#:configure-flags @@ -948,8 +948,8 @@ generation.") (license gpl2+)))) (define-public femtolisp - (let ((commit "68c5b1225572ecf2c52baf62f928063e5a30511b") - (revision "1")) + (let ((commit "ec7601076a976f845bc05ad6bd3ed5b8cde58a97") + (revision "2")) (package (name "femtolisp") (version (string-append "0.0.0-" revision "." (string-take commit 7))) @@ -961,7 +961,7 @@ generation.") (file-name (string-append name "-" version "-checkout")) (sha256 (base32 - "04rnwllxnl86zw8c6pwxznn49bvkvh0f1lfliy085vjzvlq3rgja")))) + "1fcyiqlqn27nd4wxi27km8mhmlzpzzsxzpwsl1bxbmhraq468njw")))) ;; See "utils.h" for supported systems. Upstream bug: ;; https://github.com/JeffBezanson/femtolisp/issues/25 (supported-systems diff --git a/gnu/packages/sdl.scm b/gnu/packages/sdl.scm index 3974cc75ab..a01cafb34a 100644 --- a/gnu/packages/sdl.scm +++ b/gnu/packages/sdl.scm @@ -10,6 +10,9 @@ ;;; Copyright © 2019 Kei Kebreau <kkebreau@posteo.net> ;;; Copyright © 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; Copyright © 2019 Marius Bakke <mbakke@fastmail.com> +;;; Copyright © 2019 Pierre Neidhardt <mail@ambrevar.xyz> +;;; Copyright © 2020 Timotej Lazar <timotej.lazar@araneo.si> +;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -34,6 +37,7 @@ #:use-module ((guix licenses) #:hide (freetype)) #:use-module (guix packages) #:use-module (guix download) + #:use-module (guix git-download) #:use-module (guix utils) #:use-module (guix build-system gnu) #:use-module (guix build-system trivial) @@ -46,6 +50,7 @@ #:use-module (gnu packages ibus) #:use-module (gnu packages image) #:use-module (gnu packages linux) + #:use-module (gnu packages mono) #:use-module (gnu packages mp3) #:use-module (gnu packages pkg-config) #:use-module (gnu packages pulseaudio) @@ -258,28 +263,44 @@ WEBP, XCF, XPM, and XV.") "0alrhqgm40p4c92s26mimg9cm1y7rzr6m0p49687jxd9g6130i0n")))) (build-system gnu-build-system) (outputs '("out" "debug")) - ;; no check target - ;; use libmad instead of smpeg - ;; explicitly link against shared libraries instead of dlopening them - (arguments `(#:tests? #f - #:configure-flags '("--enable-music-mp3-mad-gpl" - "--disable-music-mod-shared" - "--disable-music-fluidsynth-shared" - "--disable-music-ogg-shared" - "--disable-music-flac-shared" - "--disable-music-mp3-shared"))) - (inputs `(("libvorbis" ,libvorbis) - ("libflac" ,flac) - ("libmad" ,libmad) - ("libmikmod" ,libmikmod) - ("libmodplug" ,libmodplug))) - ;; FIXME: Add libfluidsynth + (arguments + `(#:tests? #f ; No check target. + #:configure-flags + '("--enable-music-mp3-mad-gpl" ; Use libmad instead of smpeg. + ;; Explicitly link against shared libraries instead of dlopening them. + "--disable-music-flac-shared" + "--disable-music-fluidsynth-shared" + "--disable-music-mod-shared" + "--disable-music-ogg-shared") + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'fix-fluidsynth + (lambda* (#:key inputs #:allow-other-keys) + (substitute* "configure" + (("EXTRA_LDFLAGS -lfluidsynth") + (string-append "EXTRA_LDFLAGS " + "-L" + (assoc-ref inputs "fluidsynth") + "/lib -lfluidsynth"))) + #t))))) + (inputs + `(("fluidsynth" ,fluidsynth) + ("libflac" ,flac) + ("libmad" ,libmad) + ("libmikmod" ,libmikmod) + ("libvorbis" ,libvorbis))) (propagated-inputs `(("sdl" ,sdl))) (synopsis "SDL multi-channel audio mixer library") (description "SDL_mixer is a multi-channel audio mixer library for SDL. It supports any number of simultaneously playing channels of 16 bit stereo -audio, plus a single channel of music. Supported format include FLAC, MOD, -MIDI, Ogg Vorbis, and MP3.") +audio, plus a single channel of music. Supported formats include FLAC, MOD, +MIDI, Ogg Vorbis, and MP3. + +This package supports two MIDI backends, selectable at runtime. To use the +newer @code{fluidsynth} library, install a soundfont such as @code{fluid-3} +and specify it using the @code{SDL_SOUNDFONTS} environment variable. For the +legacy @code{timidity} backend, install a patch set such as @code{freepats} +and set the path to the configuration file with @code{TIMIDITY_CFG}.") (home-page "https://www.libsdl.org/projects/SDL_mixer/") (license zlib))) @@ -384,7 +405,7 @@ directory.") (define-public sdl2-image (package (inherit sdl-image) (name "sdl2-image") - (version "2.0.4") + (version "2.0.5") (source (origin (method url-fetch) @@ -392,7 +413,7 @@ directory.") (string-append "https://www.libsdl.org/projects/SDL_image/release/" "SDL2_image-" version ".tar.gz")) (sha256 - (base32 "1b6f7002bm007y3zpyxb5r6ag0lml51jyvx1pwpj9sq24jfc8kp7")))) + (base32 "1l0864kas9cwpp2d32yxl81g98lx40dhbdp03dz7sbv84vhgdmdx")))) (propagated-inputs (propagated-inputs-with-sdl2 sdl-image)))) @@ -413,6 +434,23 @@ directory.") #t)) (sha256 (base32 "0694vsz5bjkcdgfdra6x9fq8vpzrl8m6q96gh58df7065hw5mkxl")))) + (arguments + (substitute-keyword-arguments (package-arguments sdl-mixer) + ((#:configure-flags flags) + `(cons* + "--disable-music-opus-shared" + ;; These options were renamed in SDL2 mixer. Keeping the inherited + ;; variants produces a harmless warning. + "--disable-music-mod-modplug-shared" + "--disable-music-midi-fluidsynth-shared" + ,flags)))) + (inputs + `(("opusfile" ,opusfile) + ;; The default MOD library changed in SDL2 mixer. + ("libmodplug" ,libmodplug) + ,@(alist-delete "libmikmod" (package-inputs sdl-mixer)))) + (native-inputs + `(("pkgconfig" ,pkg-config))) ; Needed to find the opus library. (propagated-inputs (propagated-inputs-with-sdl2 sdl-mixer)))) @@ -570,3 +608,46 @@ sound and device input (keyboards, joysticks, mice, etc.).") The bindings are written in pure Scheme using Guile's foreign function interface.") (license lgpl3+))) + +(define-public sdl2-cs + (let ((commit "1a3556441e1394eb0b5d46aeb514b8d1090b93f8")) + (package + (name "sdl2-cs") + (version (git-version "B1" "1" commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/flibitijibibo/SDL2-CS") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "007mzkqr9nmvfrvvhs2r6cm36lzgsww24kwshsz9c4fd97f9qk58")))) + (build-system gnu-build-system) + (arguments + '(#:tests? #f ; No tests. + #:phases + (modify-phases %standard-phases + (delete 'configure) + (replace 'build + (lambda _ + (invoke "make" "release"))) + (replace 'install + (lambda* (#:key outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out"))) + (install-file "bin/Release/SDL2-CS.dll" (string-append out "/lib")) + #t)))))) + (native-inputs + `(("mono" ,mono))) + (inputs + `(("sdl2" ,sdl2) + ("sdl2-image" ,sdl2-image) + ("sdl2-mixer" ,sdl2-mixer) + ("sdl2-ttf" ,sdl2-ttf))) + (home-page "https://dthompson.us/projects/guile-sdl2.html") + (synopsis "C# wrapper for SDL2") + (description + "SDL2-CS provides C# bindings for the SDL2 C shared library. +The C# wrapper was written to be used for FNA's platform support. However, this +is written in a way that can be used for any general C# application.") + (license zlib)))) diff --git a/gnu/packages/security-token.scm b/gnu/packages/security-token.scm index d8383ccc0d..800aa0505e 100644 --- a/gnu/packages/security-token.scm +++ b/gnu/packages/security-token.scm @@ -4,7 +4,7 @@ ;;; Copyright © 2016 Mike Gerwitz <mtg@gnu.org> ;;; Copyright © 2016 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be> -;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017, 2019 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2018, 2019 Chris Marusich <cmmarusich@gmail.com> ;;; Copyright © 2018 Arun Isaac <arunisaac@systemreboot.net> @@ -170,15 +170,14 @@ the low-level development kit for the Yubico YubiKey authentication device.") (define-public pcsc-lite (package (name "pcsc-lite") - (version "1.8.25") + (version "1.8.26") (source (origin (method url-fetch) - (uri (string-append - "https://pcsclite.apdu.fr/files/" - name "-" version ".tar.bz2")) + (uri (string-append "https://pcsclite.apdu.fr/files/" + "pcsc-lite-" version ".tar.bz2")) (sha256 (base32 - "14l7irs1nsh8b036ag4cfy8wryyysch78scz5dw6xxqwqgnpjvfp")))) + "1ndvvz0fgqwz70pijymsxmx25mzryb0zav1i8jjc067ndryvxdry")))) (build-system gnu-build-system) (arguments `(#:configure-flags '("--enable-usbdropdir=/var/lib/pcsc/drivers" @@ -255,13 +254,7 @@ website for more information about Yubico and the YubiKey.") (("DEFAULT_PCSC_PROVIDER=\"libpcsclite\\.so\\.1\"") (string-append "DEFAULT_PCSC_PROVIDER=\"" libpcsclite "\""))) - #t))) - (add-before 'check 'disable-broken-test - (lambda _ - ;; XXX: This test is fixed in git, remove this phase for >= 0.19. - (substitute* "doc/tools/Makefile" - (("TESTS = test-manpage.sh") "TESTS = ")) - #t))))) + #t)))))) (inputs `(("readline" ,readline) ("openssl" ,openssl) diff --git a/gnu/packages/serialization.scm b/gnu/packages/serialization.scm index 137ecce4e4..cf80237f11 100644 --- a/gnu/packages/serialization.scm +++ b/gnu/packages/serialization.scm @@ -123,7 +123,7 @@ such as compact binary encodings, XML, or JSON.") (base32 "1ljqmgscdb0f8w8kx2lnswnisyxchcmijbjbmswkv0g187bvqg23")))) (build-system cmake-build-system) (native-inputs - `(("googletest" ,googletest) + `(("googletest" ,googletest-1.8) ("pkg-config" ,pkg-config))) (propagated-inputs `(("zlib" ,zlib))) ;; Msgpack installs two headers (zbuffer.h, diff --git a/gnu/packages/skarnet.scm b/gnu/packages/skarnet.scm index cee50f627a..3768695a8f 100644 --- a/gnu/packages/skarnet.scm +++ b/gnu/packages/skarnet.scm @@ -3,6 +3,7 @@ ;;; Copyright © 2016 Eric Le Bihan <eric.le.bihan.dev@free.fr> ;;; Copyright © 2017 Z. Ren <zren@dlut.edu.cn> ;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -29,14 +30,14 @@ (define-public skalibs (package (name "skalibs") - (version "2.8.1.0") + (version "2.9.1.0") (source (origin (method url-fetch) (uri (string-append "http://skarnet.org/software/skalibs/skalibs-" version ".tar.gz")) (sha256 - (base32 "1fk6n402ywn4kpy6ng7sfnnqcg0mp6wq2hrv8sv3kxd0nh3na723")))) + (base32 "19c6s3f7vxi96l2yqzjk9x9i4xkfg4fdzxhn1jg6bfb2qjph9cnk")))) (build-system gnu-build-system) (arguments '(#:tests? #f ; no tests exist @@ -141,14 +142,14 @@ functionality with a very small amount of code."))) (define-public s6-dns (package (name "s6-dns") - (version "2.3.0.2") + (version "2.3.1.1") (source (origin (method url-fetch) (uri (string-append "http://skarnet.org/software/s6-dns/s6-dns-" version ".tar.gz")) (sha256 - (base32 "1y9bhvx8bqsb2xq5lmlfnc1hw2b3jyqg11i9r4lj0n6vvaqwh1j8")))) + (base32 "0clib10dk3r9rcxv1yfr6gdvqqrx0arzivjpmhz9p8xaif53wpj1")))) (build-system gnu-build-system) (inputs `(("skalibs" ,skalibs))) (arguments @@ -170,14 +171,14 @@ as an alternative to the BIND, djbdns or other DNS clients."))) (define-public s6-networking (package (name "s6-networking") - (version "2.3.0.4") + (version "2.3.1.1") (source (origin (method url-fetch) (uri (string-append "http://skarnet.org/software/s6-networking/s6-networking-" version ".tar.gz")) (sha256 - (base32 "00kqp0mcp8c7f0z5s4399rd1haxasxkqgd6ds0j0607hvi56mqqa")))) + (base32 "127i7ig5wdgjbkjf0py0g96llc6cbxij22ns2j7bwa95figinhcx")))) (build-system gnu-build-system) (inputs `(("skalibs" ,skalibs) ("execline" ,execline) @@ -213,14 +214,14 @@ clock synchronization."))) (define-public s6-rc (package (name "s6-rc") - (version "0.5.0.0") + (version "0.5.1.1") (source (origin (method url-fetch) (uri (string-append "http://skarnet.org/software/s6-rc/s6-rc-" version ".tar.gz")) (sha256 - (base32 "0p97p49i8m44lfiffycgn7xi08yzxkrs5dyb03svdhd6clwh6zyb")))) + (base32 "0lmg517l8inn7bi57q35rjd7b4jmqlmkhrbvs5ybbhinhd12qzi5")))) (build-system gnu-build-system) (inputs `(("skalibs" ,skalibs) ("execline" ,execline) @@ -254,7 +255,7 @@ environment."))) (define-public s6-portable-utils (package (name "s6-portable-utils") - (version "2.2.1.3") + (version "2.2.2.1") (source (origin (method url-fetch) @@ -262,7 +263,7 @@ environment."))) "http://skarnet.org/software/s6-portable-utils/s6-portable-utils-" version ".tar.gz")) (sha256 - (base32 "1ibjns1slyg1p7jl9irzlrjz8b01f506iw87g3s7db5arhf17vv2")))) + (base32 "074kizkxjwvmxspxg69fr8r0lbiy61l2n5nzgbfvwvhc6lj34iqy")))) (build-system gnu-build-system) (inputs `(("skalibs" ,skalibs))) (arguments @@ -286,7 +287,7 @@ systems and other constrained environments, but they work everywhere."))) (define-public s6-linux-init (package (name "s6-linux-init") - (version "0.4.0.1") + (version "1.0.3.1") (source (origin (method url-fetch) @@ -294,16 +295,24 @@ systems and other constrained environments, but they work everywhere."))) "http://skarnet.org/software/s6-linux-init/s6-linux-init-" version ".tar.gz")) (sha256 - (base32 "0i79b0r3amhsf1xqr9k9v9bxmm4imlakfpsybviwhlj8dlawldxm")))) + (base32 "1yq2xnp41a1lqpjzvq5jawgy64jwaxalvjdnlvgdpi9bkicgasi1")))) (build-system gnu-build-system) (inputs - `(("skalibs" ,skalibs))) + `(("execline" ,execline) + ("s6", s6) + ("skalibs" ,skalibs))) (arguments '(#:configure-flags (list (string-append "--with-lib=" (assoc-ref %build-inputs "skalibs") "/lib/skalibs") + (string-append "--with-lib=" + (assoc-ref %build-inputs "execline") + "/lib/execline") + (string-append "--with-lib=" + (assoc-ref %build-inputs "s6") + "/lib/s6") (string-append "--with-sysdeps=" (assoc-ref %build-inputs "skalibs") "/lib/skalibs/sysdeps")) @@ -323,7 +332,7 @@ all the details."))) (define-public s6-linux-utils (package (name "s6-linux-utils") - (version "2.5.0.1") + (version "2.5.1.1") (source (origin (method url-fetch) @@ -331,7 +340,7 @@ all the details."))) "http://skarnet.org/software/s6-linux-utils/s6-linux-utils-" version ".tar.gz")) (sha256 - (base32 "0bpcaah3rbz4i013bkarr7wxmfvisjyxg0z78xg5zfbgajpgjxx1")))) + (base32 "00nw2phd9prgv29hzqzwjnh4y0ivkzhx3srn6n1rlyr4ydhikxi5")))) (build-system gnu-build-system) (inputs `(("skalibs" ,skalibs))) (arguments diff --git a/gnu/packages/ssh.scm b/gnu/packages/ssh.scm index ac95e11f7f..c6c3149a84 100644 --- a/gnu/packages/ssh.scm +++ b/gnu/packages/ssh.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013, 2014 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2014, 2015, 2016 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2015, 2016, 2018, 2019 Efraim Flashner <efraim@flashner.co.il> @@ -33,7 +33,7 @@ #:use-module (gnu packages) #:use-module (gnu packages autotools) #:use-module (gnu packages base) - #:autoload (gnu packages boost) (boost) + #:use-module (gnu packages boost) #:use-module (gnu packages compression) #:use-module (gnu packages crypto) #:use-module (gnu packages elf) @@ -52,7 +52,7 @@ #:use-module (gnu packages perl) #:use-module (gnu packages pkg-config) #:use-module (gnu packages popt) - #:autoload (gnu packages protobuf) (protobuf) + #:use-module (gnu packages protobuf) #:use-module (gnu packages python) #:use-module (gnu packages python-xyz) #:use-module (gnu packages readline) diff --git a/gnu/packages/statistics.scm b/gnu/packages/statistics.scm index dfbed894b1..e7fd5bd084 100644 --- a/gnu/packages/statistics.scm +++ b/gnu/packages/statistics.scm @@ -8,7 +8,7 @@ ;;; Copyright © 2016 Ben Woodcroft <donttrustben@gmail.com> ;;; Copyright © 2016, 2017 Raoul Bonnal <ilpuccio.febo@gmail.com> ;;; Copyright © 2017 Kyle Meyer <kyle@kyleam.com> -;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017 Alex Kost <alezost@gmail.com> ;;; Copyright © 2018 Alex Branham <alex.branham@gmail.com> ;;; @@ -159,14 +159,14 @@ simulation not wholly unlike BUGS. JAGS was written with three aims in mind: (define-public libxls (package (name "libxls") - (version "1.5.1") + (version "1.5.2") (source (origin (method url-fetch) (uri (string-append "https://github.com/libxls/libxls/releases/download/" "v" version "/libxls-" version ".tar.gz")) (sha256 - (base32 "0dam8qgbc5ykzaxmrjhpmfm8lnlcdk6cbpzyaya91qwwa80qbj1v")))) + (base32 "1akadsyl10rp101ccjmrxr7933c3v641k377bn74jv6cdkcm4zld")))) (build-system gnu-build-system) (home-page "https://github.com/libxls/libxls") (synopsis "Read binary (.xls) Excel spreadsheet files") @@ -183,7 +183,7 @@ This package also provides @command{xls2csv} to export Excel files to CSV.") (define r-with-tests (package (name "r-with-tests") - (version "3.6.1") + (version "3.6.2") (source (origin (method url-fetch) (uri (string-append "mirror://cran/src/base/R-" @@ -191,7 +191,7 @@ This package also provides @command{xls2csv} to export Excel files to CSV.") version ".tar.gz")) (sha256 (base32 - "128kifbq0w25y8aq77w289ddax5i5w2djcfsqgffrb3i7syrxajv")))) + "0m69pfi0nxyriyb2yz74xfzaxwfkinnf9kpvf1rz727vvmfa8rdx")))) (build-system gnu-build-system) (arguments `(#:disallowed-references (,tzdata-for-tests) @@ -1843,13 +1843,13 @@ and fast file reading.") (define-public python-patsy (package (name "python-patsy") - (version "0.4.1") + (version "0.5.1") (source (origin (method url-fetch) - (uri (pypi-uri "patsy" version ".zip")) + (uri (pypi-uri "patsy" version)) (sha256 (base32 - "1m6knyq8hbqlx242y4da02j0x86j4qggs1j7q186w3jv0j0c476w")))) + "149rbrdzwns0ay88caf1zsm1r53v1q5np1mrb36na50y432cw5gi")))) (build-system python-build-system) (arguments `(#:phases @@ -1861,8 +1861,7 @@ and fast file reading.") ("python-scipy" ,python-scipy) ("python-six" ,python-six))) (native-inputs - `(("python-nose" ,python-nose) - ("unzip" ,unzip))) + `(("python-nose" ,python-nose))) (home-page "https://github.com/pydata/patsy") (synopsis "Describe statistical models and build design matrices") (description diff --git a/gnu/packages/storage.scm b/gnu/packages/storage.scm index 5c702e3362..a5614777fa 100644 --- a/gnu/packages/storage.scm +++ b/gnu/packages/storage.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2017, 2018, 2019 Marius Bakke <mbakke@fastmail.com> +;;; Copyright © 2017, 2018, 2019, 2020 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2017 Rutger Helling <rhelling@mykolab.com> ;;; ;;; This file is part of GNU Guix. @@ -29,21 +29,19 @@ #:use-module (gnu packages authentication) #:use-module (gnu packages bdw-gc) #:use-module (gnu packages boost) - #:use-module (gnu packages check) #:use-module (gnu packages compression) #:use-module (gnu packages crypto) #:use-module (gnu packages cryptsetup) #:use-module (gnu packages curl) #:use-module (gnu packages databases) #:use-module (gnu packages disk) - #:use-module (gnu packages gcc) #:use-module (gnu packages gperf) #:use-module (gnu packages jemalloc) #:use-module (gnu packages linux) #:use-module (gnu packages lua) + #:use-module (gnu packages ncurses) #:use-module (gnu packages nss) #:use-module (gnu packages openldap) - #:use-module (gnu packages perl) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) #:use-module (gnu packages python-xyz) @@ -55,18 +53,16 @@ (define-public ceph (package (name "ceph") - (version "13.2.6") + (version "14.2.5") (source (origin (method url-fetch) (uri (string-append "https://download.ceph.com/tarballs/ceph-" version ".tar.gz")) (sha256 (base32 - "13f5qs7jpxprplk4irwlx90mc9gvm48fvd3q471xcqc3n6z1qywz")) + "0wbkdplxs8higmlj57a7rydmx9rq08h0arjrmxmp0s80bn0v5x2c")) (patches - (search-patches "ceph-skip-unittest_blockdev.patch" - "ceph-skip-collect-sys-info-test.patch" - "ceph-detect-rocksdb.patch" + (search-patches "ceph-boost-compat.patch" "ceph-volume-respect-PATH.patch" "ceph-disable-cpu-optimizations.patch")) (modules '((guix build utils))) @@ -76,11 +72,13 @@ '(;; TODO: Unbundle these: ;"src/isa-l" ;"src/lua" - ;"src/googletest" ;"src/xxHash" ;"src/zstd" ;"src/civetweb" + "src/seastar/fmt" "src/test/downloads" + "src/c-ares" + "src/googletest" "src/rapidjson" "src/spdk" "src/rocksdb" @@ -100,6 +98,7 @@ (string-append "-DCMAKE_INSTALL_RPATH=" libdir ";" libdir "/ceph") (string-append "-DCMAKE_INSTALL_SYSCONFDIR=" out "/etc") + (string-append "-DCMAKE_INSTALL_DATADIR=" lib "/share") (string-append "-DCMAKE_INSTALL_MANDIR=" out "/share/man") (string-append "-DCMAKE_INSTALL_DOCDIR=" out "/share/ceph/doc") (string-append "-DCMAKE_INSTALL_LIBEXECDIR=" out "/libexec") @@ -117,9 +116,14 @@ "-DWITH_BABELTRACE=OFF" "-DWITH_LTTNG=OFF" "-DWITH_SPDK=OFF" - "-DWITH_XIO=OFF" + "-DWITH_RADOSGW_AMQP_ENDPOINT=OFF" + ;; Use jemalloc instead of tcmalloc. - "-DALLOCATOR=jemalloc")) + "-DALLOCATOR=jemalloc" + + ;; Do not bother building the tests; we are not currently running + ;; them, and they do not build with system googletest as of 14.2.5. + "-DWITH_TESTS=OFF")) ;; FIXME: Some of the tests leak Btrfs subvolumes on Btrfs. See ;; <https://bugs.gnu.org/29674> for details. Disable tests until ;; resolved. @@ -144,111 +148,19 @@ indent "extra_link_args=['-Wl,-rpath=" lib "/lib'],\n"))) - (substitute* "src/ceph-disk/tox.ini" - ;; Disable flake8 test since it complains about too long lines. - (("envlist = flake8,py27") "envlist = py27")) - - (substitute* "src/ceph-detect-init/tox.ini" - ;; Disable python3 tests until we at least get py2 working. - (("envlist = pep8,py27,py3") "envlist = pep8,py27")) - - (substitute* "src/key_value_store/kv_flat_btree_async.cc" - (("/usr/include/") "")) - - (substitute* "src/test/test_subprocess.cc" - (("/bin/sh") (which "sh"))) - (substitute* "qa/standalone/special/ceph_objectstore_tool.py" - (("/bin/rm") (which "rm"))) - (substitute* "src/ceph-disk/ceph_disk/main.py" - (("/bin/mount") "mount") - (("/bin/umount") "umount") - (("/sbin/blkid") (which "blkid")) - (("'cryptsetup'") (string-append "'" (which "cryptsetup") "'")) - (("'sgdisk'") (string-append "'" (which "sgdisk") "'")) - (("'parted'") (string-append "'" (which "parted") "'")) - (("'udevadm'") (string-append "'" (which "udevadm") "'"))) + ;; Statically link libcrc32 because it does not get installed, + ;; yet several libraries end up referring to it. + (substitute* "src/common/CMakeLists.txt" + (("add_library\\(crc32") + "add_library(crc32 STATIC")) (substitute* "udev/50-rbd.rules" (("/usr/bin/ceph-rbdnamer") (string-append out "/bin/ceph-rbdnamer"))) - (substitute* "udev/60-ceph-by-parttypeuuid.rules" - (("/sbin/blkid") (which "blkid"))) - (substitute* "udev/95-ceph-osd.rules" - (("/usr/sbin/ceph-disk") - (string-append out "/bin/ceph-disk"))) - - (substitute* "src/test/run-cli-tests" - ;; Use our python-cram instead of the (un)bundled one. - (("CRAM_BIN=.*$") - (string-append "CRAM_BIN=" (which "cram") "\n"))) - - ;; Disable tests that are known to fail. - ;; TODO: The majority of these fail because - ;; 'qa/workunits/ceph-helpers.sh' expects to find - ;; /tmp/ceph-disk-virtualenv/bin/ceph-disk, but somehow - ;; src/ceph-disk/CMakeLists.txt fails to create it. - (substitute* "src/test/CMakeLists.txt" - ;; FIXME: These tests fails because `ceph-disk' - ;; is not available. - (("^add_ceph_test\\(test-ceph-helpers\\.sh.*$") "\n") - (("^add_ceph_test\\(test_pidfile\\.sh.*$") "\n") - ;; XXX Why does this fail. - (("^add_ceph_test\\(cephtool-test-mon\\.sh.*$") "\n") - ;; This fails due to missing '/etc/fstab'. - (("^add_ceph_test\\(cephtool-test-rados\\.sh.*$") "\n") - ;; `Bad messages to stderr: OSD has the store locked' - (("^add_ceph_test\\(ceph_objectstore_tool\\.py.*$") "\n") - ;; The bundled python-cram fork needs patching to work on - ;; guix, and the system version does not support --error-dir. - ;; https://bitbucket.org/brodie/cram/issues/9 - (("^add_ceph_test\\(run-cli-tests.*$") "\n") - ;; FIXME: tox/virtualenv/pip does not discover the - ;; required packages and tries to go online. - (("^add_test\\(NAME run-tox-ceph-disk.*$") "\n") - (("^add_test\\(NAME run-tox-ceph-detect-init.*$") "\n") - ;; Also remove from the set_property block. - (("run-tox-ceph-disk") "") - (("run-tox-ceph-detect-init") "")) - ;; TODO: This also seems to fail because of /etc/os-release. - ;; How to make src/common/util.cc behave without it. - (substitute* "src/test/crush/CMakeLists.txt" - (("^add_ceph_test\\(crush-classes\\.sh.*$") "\n")) - ;; More 'ceph-disk' issues here.. :-( - (substitute* "src/test/erasure-code/CMakeLists.txt" - (("^add_ceph_test\\(test-erasure-code-plugins\\.sh.*$") "\n") - (("^add_ceph_test\\(test-erasure-code\\.sh.*$") "\n") - (("^add_ceph_test\\(test-erasure-eio\\.sh.*$") "\n")) - (substitute* "src/test/libradosstriper/CMakeLists.txt" - (("^add_ceph_test\\(rados-striper\\.sh.*$") "\n")) - (substitute* "src/test/mon/CMakeLists.txt" - (("^add_ceph_test\\(osd-crush\\.sh.*$") "\n") - (("^add_ceph_test\\(test_pool_quota\\.sh.*$") "\n") - (("^add_ceph_test\\(osd-pool-create\\.sh.*$") "\n")) - (substitute* "src/test/osd/CMakeLists.txt" - (("^add_ceph_test\\(osd-bench\\.sh.*$") "\n") - (("^add_ceph_test\\(osd-config\\.sh.*$") "\n") - (("add_ceph_test\\(osd-dup\\.sh.*$") "\n") - (("^add_ceph_test\\(osd-markdown\\.sh.*$") "\n") - (("^add_ceph_test\\(osd-reactivate\\.sh.*$") "\n") - (("^add_ceph_test\\(osd-reuse-id\\.sh.*$") "\n") - (("^add_ceph_test\\(osd-scrub-repair\\.sh.*$") "\n") - (("^add_ceph_test\\(osd-scrub-snaps\\.sh.*$") "\n") - (("^add_ceph_test\\(osd-copy-from\\.sh.*$") "\n") - (("^add_ceph_test\\(osd-fast-mark-down\\.sh.*$") "\n")) #t))) - (add-before 'check 'set-check-environment - (lambda _ - ;; Run tests in parallel. - (setenv "CTEST_PARALLEL_LEVEL" - (number->string (parallel-job-count))) - ;; `pip' requires write access in $HOME. - (setenv "HOME" "/tmp") - #t)) (add-before 'install 'set-install-environment (lambda* (#:key outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) - (py2sitedir - (string-append out "/lib/python2.7/site-packages")) (py3sitedir (string-append out "/lib/python" ,(version-major+minor @@ -257,20 +169,21 @@ ;; The Python install scripts refuses to function if ;; the install directory is not on PYTHONPATH. (setenv "PYTHONPATH" - (string-append py2sitedir ":" py3sitedir ":" + (string-append py3sitedir ":" (getenv "PYTHONPATH"))) #t))) (add-after 'install 'wrap-python-scripts (lambda* (#:key inputs outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) - (scripts '("ceph" "ceph-mgr" "ceph-volume" - "ceph-detect-init" - "ceph-disk")) ;deprecated - (prettytable (assoc-ref inputs "python2-prettytable")) - (six (assoc-ref inputs "python2-six")) + (scripts '("ceph" "ceph-mgr" "ceph-volume")) + (prettytable (assoc-ref inputs "python-prettytable")) + (six (assoc-ref inputs "python-six")) (sitedir (lambda (package) (string-append package - "/lib/python2.7/site-packages"))) + "/lib/python" + ,(version-major+minor + (package-version python)) + "/site-packages"))) (PYTHONPATH (string-append (sitedir out) ":" (sitedir six) ":" @@ -279,17 +192,6 @@ (wrap-program (string-append out "/bin/" executable) `("PYTHONPATH" ":" prefix (,PYTHONPATH)))) scripts) - #t))) - (add-before 'validate-runpath 'remove-test-executables - (lambda* (#:key outputs #:allow-other-keys) - (let ((out (assoc-ref outputs "out"))) - ;; FIXME: The BUILD_SHARED_LIBS CMake flag causes the test executables - ;; to link the bundled googletest dynamically, which in turn causes - ;; RUNPATH validation failures because 'libgtest.so' and friends do - ;; not get absolute RUNPATH entries. The next version of Ceph can use - ;; an external googletest; for now just remove the test executables. - (for-each delete-file (find-files (string-append out "/bin") - "ceph_(test|perf)")) #t)))))) (outputs '("out" "lib")) @@ -298,33 +200,7 @@ ("pkg-config" ,pkg-config) ("python-cython" ,python-cython) ("python-sphinx" ,python-sphinx) - ("yasm" ,yasm) - - ;; For tests. - ("inetutils" ,inetutils) - ("jq" ,jq) - ("perl" ,perl) - ("xmlstarlet" ,xmlstarlet) - ("python2-cram" ,python2-cram) - ("python2-virtualenv" ,python2-virtualenv) - - ;; These dependencies are taken from test-requirements.txt - ;; of ceph-disk and ceph-detect-init. The latter can also - ;; test against python3, but let's try to get python2 tests - ;; working first since that is the default. - ("python2-configobj" ,python2-configobj) - ("python2-coverage" ,python2-coverage) - ("python2-discover" ,python2-discover) - ("python2-fixtures" ,python2-fixtures) - ("python2-flake8" ,python2-flake8) - ("python2-mock" ,python2-mock) - ("python2-nose" ,python2-nose) - ("python2-pip" ,python2-pip) - ("python2-pytest" ,python2-pytest) - ("python2-subunit" ,python2-subunit) - ("python2-testrepository" ,python2-testrepository) - ("python2-testtools" ,python2-testtools) - ("python2-tox" ,python2-tox))) + ("yasm" ,yasm))) (inputs `(("boost" ,boost) ("curl" ,curl) @@ -332,24 +208,25 @@ ("expat" ,expat) ("fcgi" ,fcgi) ("fuse" ,fuse) - ("gptfdisk" ,gptfdisk) ("jemalloc" ,jemalloc) ("keyutils" ,keyutils) ("leveldb" ,leveldb) ("libaio" ,libaio) ("libatomic-ops" ,libatomic-ops) + ("libcap-ng" ,libcap-ng) + ("libnl" ,libnl) ("lua" ,lua) ("lz4" ,lz4) ("oath-toolkit" ,oath-toolkit) ("openldap" ,openldap) ("openssl" ,openssl) + ("ncurses" ,ncurses) ("nss" ,nss) - ("parted" ,parted) - ("python@2" ,python-2) - ("python2-prettytable" ,python2-prettytable) ;used by ceph_daemon.py - ("python2-six" ,python2-six) ;for ceph-mgr + plugins - ("python@3" ,python-3) + ("python-prettytable" ,python-prettytable) ;used by ceph_daemon.py + ("python-six" ,python-six) ;for ceph-mgr + plugins + ("python" ,python-wrapper) ("rapidjson" ,rapidjson) + ("rdma-core" ,rdma-core) ("rocksdb" ,rocksdb) ("snappy" ,snappy) ("udev" ,eudev) diff --git a/gnu/packages/telephony.scm b/gnu/packages/telephony.scm index ee8385d13c..1ae0724ba2 100644 --- a/gnu/packages/telephony.scm +++ b/gnu/packages/telephony.scm @@ -14,6 +14,7 @@ ;;; Copyright © 2019 Pierre Neidhardt <mail@ambrevar.xyz> ;;; Copyright © 2019 Jan Wielkiewicz <tona_kosmicznego_smiecia@interia.pl> ;;; Copyright © 2019 Ivan Vilata i Balaguer <ivan@selidor.net> +;;; Copyright © 2020 Brett Gilio <brettg@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -927,3 +928,35 @@ This package provides the Jami client for the GNOME desktop.") (define-public jami-client-gnome (deprecated-package "jami-client-gnome" jami)) + +(define-public libtgvoip + (package + (name "libtgvoip") + (version "2.4.4") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/grishka/libtgvoip.git") + (commit version))) + (file-name (git-file-name name version)) + ;; Fix compilation on i686-linux architecture. + ;; NOTE: Applying these patches is order-dependent! + ;; The patch for WebRTC /must/ precede the patch for SSE2. + (patches + (search-patches "libtgvoip-disable-webrtc.patch" + "libtgvoip-disable-sse2.patch")) + (sha256 + (base32 + "122kn3jx6v0kkldlzlpzvlwqxgp6pmzxsjhrhcxw12bx9c08sar5")))) + (build-system gnu-build-system) + (inputs + `(("alsa-lib" ,alsa-lib) + ("libopusenc" ,libopusenc) + ("openssl" ,openssl) + ("pulseaudio" ,pulseaudio))) + (synopsis "VoIP library for Telegram clients") + (description "A collection of libraries and header files for implementing +telephony functionality into custom Telegram clients.") + (home-page "https://github.com/zevlg/libtgvoip") + (license license:unlicense))) diff --git a/gnu/packages/terminals.scm b/gnu/packages/terminals.scm index ae015d9fe7..b5c3b69f53 100644 --- a/gnu/packages/terminals.scm +++ b/gnu/packages/terminals.scm @@ -5,7 +5,7 @@ ;;; Copyright © 2016 David Craven <david@craven.ch> ;;; Copyright © 2016, 2017, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2016, 2017 José Miguel Sánchez García <jmi2k@openmailbox.org> -;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017 Kei Kebreau <kkebreau@posteo.net> ;;; Copyright © 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2017 Petter <petter@mykolab.ch> @@ -396,7 +396,7 @@ to all types of devices that provide serial consoles.") (define-public beep (package (name "beep") - (version "1.4.4") + (version "1.4.7") (source (origin (method git-fetch) @@ -409,7 +409,7 @@ to all types of devices that provide serial consoles.") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 - (base32 "1bk7g63qpiclbq20iz2x238by8s1b2iafdim7i6dq1i5n01s7lgx")))) + (base32 "0dnbvzzxvajc7pl1165wb3l74pfcqcdg12rcjcw86qqy954dx8my")))) (build-system gnu-build-system) (arguments `(#:tests? #f ; no tests diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm index d184d7616b..e4346d1232 100644 --- a/gnu/packages/tex.scm +++ b/gnu/packages/tex.scm @@ -71,7 +71,7 @@ #:use-module (gnu packages xml) #:use-module (gnu packages xorg) #:use-module (gnu packages xdisorg) - #:autoload (gnu packages texinfo) (texinfo) + #:use-module (gnu packages texinfo) #:use-module (ice-9 ftw) #:use-module (ice-9 match) #:use-module ((srfi srfi-1) #:hide (zip))) diff --git a/gnu/packages/text-editors.scm b/gnu/packages/text-editors.scm index ac4c5b82ac..60eed99dbf 100644 --- a/gnu/packages/text-editors.scm +++ b/gnu/packages/text-editors.scm @@ -5,7 +5,7 @@ ;;; Copyright © 2017 Feng Shu <tumashu@163.com> ;;; Copyright © 2017 ng0 <ng0@n0.is> ;;; Copyright © 2014 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.org> -;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2019 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2019 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr> @@ -249,7 +249,7 @@ Wordstar-, EMACS-, Pico, Nedit or vi-like key bindings. e3 can be used on (define-public mg (package (name "mg") - (version "20180408") + (version "20180927") (source (origin (method git-fetch) (uri (git-reference @@ -258,7 +258,7 @@ Wordstar-, EMACS-, Pico, Nedit or vi-like key bindings. e3 can be used on (file-name (git-file-name name version)) (sha256 (base32 - "06w86xk7sjl2x2h3z6msn8kpmwj05qdimcym77wzhz5s94dzh1bl")) + "14vrm8lvwksf697sqks7xfd1xaqjlqjc9afjk33sksq5p27wr203")) (modules '((guix build utils))) (snippet '(begin (substitute* "GNUmakefile" @@ -297,9 +297,9 @@ Wordstar-, EMACS-, Pico, Nedit or vi-like key bindings. e3 can be used on (home-page "https://homepage.boetes.org/software/mg/") (synopsis "Microscopic GNU Emacs clone") (description - "Mg (mg) is a GNU Emacs style editor, with which it is \"broadly\" -compatible. This is a portable version of the mg maintained by the OpenBSD -team.") + "Mg (@command{mg}) is a GNU Emacs style editor, with which it is +\"broadly\" compatible. This is a portable version of the mg maintained by the +OpenBSD team.") (license license:public-domain))) (define-public ghostwriter @@ -444,7 +444,7 @@ and Octave. TeXmacs is completely extensible via Guile.") (define-public scintilla (package (name "scintilla") - (version "4.2.1") + (version "4.2.2") (source (origin (method url-fetch) (uri (let ((v (apply string-append (string-split version #\.)))) @@ -452,7 +452,7 @@ and Octave. TeXmacs is completely extensible via Guile.") "https://www.scintilla.org/scintilla" v ".tgz"))) (sha256 (base32 - "0l52s39zg8l3fcj86nqm3hzh0sa4i981dasil54a40dvz3d3cvrx")))) + "01gq31ggvasw4sy9xs544h7v1dmxrlxs5bzxpasqb9yi3ps3nl0f")))) (build-system gnu-build-system) (arguments `(#:make-flags (list "GTK3=1" "CC=gcc" "-Cgtk") diff --git a/gnu/packages/tigervnc.scm b/gnu/packages/tigervnc.scm index 85ac730f3d..903d8ccd02 100644 --- a/gnu/packages/tigervnc.scm +++ b/gnu/packages/tigervnc.scm @@ -1,5 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2019 Todor Kondić <tk.code@protonmail.com> +;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -39,7 +40,7 @@ (define-public tigervnc-client (package (name "tigervnc-client") - (version "1.9.0") + (version "1.10.1") (source (origin (method git-fetch) @@ -50,7 +51,7 @@ (file-name (git-file-name name version)) (sha256 (base32 - "0b47fg3741qs3zdpl2zr0s6jz46dypp2j6gqrappbzm3ywnnmm1x")))) + "001n189d2f3psn7nxgl8188ml6f7jbk26cxn2835y3mnlk5lmhgr")))) (build-system cmake-build-system) (arguments '(#:tests? #f ; Tests that do exists are not automated. @@ -97,7 +98,7 @@ application which is needed to connect to VNC servers.") (package (inherit xorg-server) (name "tigervnc-server") - (version "1.9.0") + (version "1.10.1") (native-inputs `(("tigervnc-src" ,(origin (method git-fetch) diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm index 5f928716fa..e3c4353b2e 100644 --- a/gnu/packages/version-control.scm +++ b/gnu/packages/version-control.scm @@ -25,6 +25,7 @@ ;;; Copyright © 2019 Jovany Leandro G.C <bit4bit@riseup.net> ;;; Copyright © 2019 Kei Kebreau <kkebreau@posteo.net> ;;; Copyright © 2019 Alex Griffin <a@ajgrf.com> +;;; Copyright © 2020 Roel Janssen <roel@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -1260,22 +1261,43 @@ control to Git repositories.") (define-public mercurial (package (name "mercurial") - (version "5.0.2") + (version "5.2.1") (source (origin (method url-fetch) (uri (string-append "https://www.mercurial-scm.org/" "release/mercurial-" version ".tar.gz")) (sha256 (base32 - "1y60hfc8gh4ha9sw650qs7hndqmvbn0qxpmqwpn4q18z5xwm1f19")))) + "1pxkd37b0a1mi2zakk1hi122lgz1ffy2fxdnbs8acwlqpw55bc8q")))) (build-system python-build-system) (arguments - `(;; Restrict to Python 2, as Python 3 would require - ;; the argument --c2to3. - #:python ,python-2 - ;; FIXME: Disabled tests because they require the nose unit - ;; testing framework: https://nose.readthedocs.org/en/latest/ . - #:tests? #f)) + `(#:phases + (modify-phases %standard-phases + (replace 'check + (lambda _ + ;; The following tests are known to fail. + (for-each (lambda (file) + (delete-file (string-append "tests/" file))) + '("test-extdiff.t" + "test-hghave.t" + "test-hgwebdir.t" + "test-http-branchmap.t" + "test-logtoprocess.t" + "test-merge-combination.t" + "test-nointerrupt.t" + "test-patchbomb.t" + "test-pull-bundle.t" + "test-push-http.t" + "test-run-tests.t" + "test-serve.t" + "test-subrepo-deep-nested-change.t" + "test-subrepo-recursion.t" + "test-transplant.t")) + (invoke "make" "check")))))) + ;; The following inputs are only needed to run the tests. + (native-inputs + `(("python-nose" ,python-nose) + ("unzip" ,unzip))) (home-page "https://www.mercurial-scm.org/") (synopsis "Decentralized version control system") (description diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm index c4a31ebb4c..2b3b9d982d 100644 --- a/gnu/packages/video.scm +++ b/gnu/packages/video.scm @@ -15,7 +15,7 @@ ;;; Copyright © 2016, 2018, 2019 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2017 Feng Shu <tumashu@163.com> -;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017 Chris Marusich <cmmarusich@gmail.com> ;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be> ;;; Copyright © 2017 Ethan R. Jones <doubleplusgood23@gmail.com> @@ -35,6 +35,7 @@ ;;; Copyright © 2019 Timo Eisenmann <eisenmann@fn.de> ;;; Copyright © 2019 Arne Babenhauserheide <arne_bab@web.de> ;;; Copyright © 2019 Riku Viitanen <riku.viitanen@protonmail.com> +;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -1542,7 +1543,7 @@ To load this plugin, specify the following option when starting mpv: (define-public youtube-dl (package (name "youtube-dl") - (version "2019.11.28") + (version "2020.01.01") (source (origin (method url-fetch) (uri (string-append "https://github.com/ytdl-org/youtube-dl/" @@ -1550,7 +1551,7 @@ To load this plugin, specify the following option when starting mpv: version ".tar.gz")) (sha256 (base32 - "19xiwdn3l0kizyj7cik9vyhgrlwg7ss4wl4hy2pbbbqwh5vwppwk")))) + "0p8v18jpf0ijpqlgavqs5vky9v956dhhck7drsv7gkzfw2y6mc0a")))) (build-system python-build-system) (arguments ;; The problem here is that the directory for the man page and completion @@ -2168,15 +2169,14 @@ and custom quantization matrices.") (define-public streamlink (package (name "streamlink") - (version "0.14.2") + (version "1.3.0") (source (origin (method url-fetch) (uri (pypi-uri "streamlink" version)) (sha256 (base32 - "0l2145fd60i76afjisfxd48cwhwyir07i7s3bnimdq5db2kzkix8")) - (patches (search-patches "streamlink-update-test.patch")))) + "0593ffjpz82jrljnzxfafkcmcqad3r1ijjan0hm04xjcnxc9cr00")))) (build-system python-build-system) (home-page "https://github.com/streamlink/streamlink") (native-inputs diff --git a/gnu/packages/vim.scm b/gnu/packages/vim.scm index b33fe42ceb..9331959cb3 100644 --- a/gnu/packages/vim.scm +++ b/gnu/packages/vim.scm @@ -4,9 +4,10 @@ ;;; Copyright © 2016, 2017 ng0 <ng0@n0.is> ;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com> -;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2019 HiPhish <hiphish@posteo.de> ;;; Copyright © 2019 Julien Lepiller <julien@lepiller.eu> +;;; Copyright © 2019 Jakub Kądziołka <kuba@kadziolka.net> ;;; ;;; This file is part of GNU Guix. ;;; @@ -67,7 +68,7 @@ (define-public vim (package (name "vim") - (version "8.1.0644") + (version "8.2.0069") (source (origin (method git-fetch) (uri (git-reference @@ -76,7 +77,7 @@ (file-name (git-file-name name version)) (sha256 (base32 - "1xksb2v8rw1zgrd5fwqvrh44lf277k85sad2y4ia1z17y7i8j2fl")))) + "0kxzfcpv96s1lbx97g6451p1i7yanws5bvzl05jh1ywaqv5f4y7g")))) (build-system gnu-build-system) (arguments `(#:test-target "test" @@ -92,26 +93,42 @@ "src/testdir/test_terminal.vim") (("/bin/sh") (which "sh"))) #t)) - (add-before 'check 'patch-failing-tests + (add-before 'check 'set-TZDIR + (lambda* (#:key inputs #:allow-other-keys) + ;; One of the tests tests timezone-dependent functions. + (setenv "TZDIR" + (string-append (assoc-ref inputs "tzdata") + "/share/zoneinfo")) + #t)) + (add-before 'check 'skip-failing-tests (lambda _ - ;; XXX A single test fails with “Can't create file /dev/stdout” (at - ;; Test_writefile_sync_dev_stdout line 5) while /dev/stdout exists. - (substitute* "src/testdir/test_writefile.vim" - (("/dev/stdout") "a-regular-file")) + ;; This test assumes that PID 1 is run as root and that the user + ;; running the test suite does not have permission to kill(1, 0) + ;; it. This is not true in the build container, where both PID 1 + ;; and the test suite are run as the same user. Skip the test. + ;; An alternative fix would be to patch the PID used to a random + ;; 32-bit value and hope it never shows up in the test environment. + (substitute* "src/testdir/test_swap.vim" + (("if !IsRoot\\(\\)") "if 0")) - ;; XXX: This test fails when run in the build container: - ;; <https://github.com/vim/vim/issues/3348>. - (substitute* "src/testdir/test_search.vim" - ((".*'Test_incsearch_substitute_03'.*" all) - (string-append "\"" all "\n"))) + ;; This test checks how the terminal looks after executing some + ;; actions. The path of the bash binary is shown, which results in + ;; a difference being detected. Patching the expected result is + ;; non-trivial due to the special format used, so skip the test. + (substitute* "src/testdir/test_terminal.vim" + ((".*Test_terminal_postponed_scrollback.*" line) + (string-append line "return\n"))) #t))))) (inputs `(("gawk" ,gawk) ("ncurses" ,ncurses) ("perl" ,perl) - ("tcsh" ,tcsh))) ; For runtime/tools/vim32 + ("tcsh" ,tcsh))) ; For runtime/tools/vim32 (native-inputs - `(("libtool" ,libtool))) + `(("libtool" ,libtool) + + ;; For tests. + ("tzdata" ,tzdata-for-tests))) (home-page "https://www.vim.org/") (synopsis "Text editor based on vi") (description diff --git a/gnu/packages/virtualization.scm b/gnu/packages/virtualization.scm index 33bfdade0f..51ba3c602a 100644 --- a/gnu/packages/virtualization.scm +++ b/gnu/packages/virtualization.scm @@ -87,6 +87,7 @@ #:use-module (guix build-system cmake) #:use-module (guix build-system gnu) #:use-module (guix build-system go) + #:use-module (guix build-system meson) #:use-module (guix build-system python) #:use-module (guix download) #:use-module (guix git-download) @@ -302,21 +303,21 @@ server and embedded PowerPC, and S390 guests.") (define-public libosinfo (package (name "libosinfo") - (version "1.5.0") + (version "1.7.1") (source (origin (method url-fetch) (uri (string-append "https://releases.pagure.org/libosinfo/libosinfo-" - version ".tar.gz")) + version ".tar.xz")) (sha256 (base32 - "12b0xj9fz9q91d1pz9xm6aqap5k1ip0m9m3qvqmwjy1lk1kjasdz")))) - (build-system gnu-build-system) + "1s97sv24bybggjx6hgqba2qdqz3ivfpd4cmkh4zm5y59sim109mv")))) + (build-system meson-build-system) (arguments `(#:configure-flags - (list (string-append "--with-usb-ids-path=" + (list (string-append "-Dwith-usb-ids-path=" (assoc-ref %build-inputs "usb.ids")) - (string-append "--with-pci-ids-path=" + (string-append "-Dwith-pci-ids-path=" (assoc-ref %build-inputs "pci.ids"))))) (inputs `(("libsoup" ,libsoup) diff --git a/gnu/packages/web-browsers.scm b/gnu/packages/web-browsers.scm index 4fdf5f5419..137dccab81 100644 --- a/gnu/packages/web-browsers.scm +++ b/gnu/packages/web-browsers.scm @@ -1,6 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2014 John Darrington <jmd@gnu.org> -;;; Copyright © 2014 Mark H Weaver <mhw@netris.org> +;;; Copyright © 2014, 2019 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2015, 2016, 2019 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016 Kei Kebreau <kkebreau@posteo.net> ;;; Copyright © 2017 Eric Bavier <bavier@member.fsf.org> @@ -84,7 +84,7 @@ ("libxft" ,libxft) ("libxi" ,libxi) ("libxinerama" ,libxinerama) - ("openssl" ,openssl) + ("openssl" ,openssl-1.0) ;XXX try latest openssl for dillo > 3.0.5 ("perl" ,perl) ("zlib" ,zlib))) (synopsis "Very small and fast graphical web browser") @@ -341,7 +341,7 @@ GUI. It is based on PyQt5 and QtWebKit.") (define-public vimb (package (name "vimb") - (version "3.5.0") + (version "3.6.0") (source (origin (method git-fetch) @@ -349,7 +349,7 @@ GUI. It is based on PyQt5 and QtWebKit.") (url "https://github.com/fanglingsu/vimb/") (commit version))) (sha256 - (base32 "13q7mk1hhjri0s30a98r8ncy0skf6m6lrnbqaf0jimf6sbwgiirf")) + (base32 "0228khh3lqbal046k6akqah7s5igq9s0wjfjbdjam75kjj42pbhj")) (file-name (git-file-name name version)))) (build-system glib-or-gtk-build-system) (arguments @@ -377,7 +377,7 @@ driven and does not detract you from your daily work.") (define next-gtk-webkit (package (name "next-gtk-webkit") - (version "1.3.4") + (version "1.4.0") (source (origin (method git-fetch) @@ -388,7 +388,7 @@ driven and does not detract you from your daily work.") (commit version))) (sha256 (base32 - "00iqv4xarabl98gdl1rzqkc5v0vfljx1nawsxqsx9x3a9mnxmgxi")) + "1gkmr746rqqg94698a051gv79fblc8n9dq0zg04llba44adhpmjl")) (file-name (git-file-name "next" version)))) (build-system glib-or-gtk-build-system) (arguments @@ -485,6 +485,24 @@ features for productive professionals.") ("prove-asdf" ,sbcl-prove-asdf))) (synopsis "Infinitely extensible web-browser (password manager)"))) +(define sbcl-next-hooks + (package + (inherit next-gtk-webkit) + (name "sbcl-next-hooks") + (build-system asdf-build-system/sbcl) + (arguments + `(#:tests? #t + #:asd-file "next.asd" + #:asd-system-name "next/hooks")) + (inputs + `(("alexandria" ,sbcl-alexandria) + ("serapeum" ,sbcl-serapeum) + ("fare-quasiquote-extras" ,cl-fare-quasiquote-extras))) + (native-inputs + `(("trivial-features" ,sbcl-trivial-features) + ("prove-asdf" ,sbcl-prove-asdf))) + (synopsis "Infinitely extensible web-browser (hooks)"))) + (define-public next (let ((version (package-version next-gtk-webkit))) (package @@ -551,7 +569,6 @@ features for productive professionals.") ("cl-annot" ,sbcl-cl-annot) ("cl-ansi-text" ,sbcl-cl-ansi-text) ("cl-css" ,sbcl-cl-css) - ("cl-hooks" ,sbcl-cl-hooks) ("cl-json" ,sbcl-cl-json) ("cl-markup" ,sbcl-cl-markup) ("cl-ppcre" ,sbcl-cl-ppcre) @@ -560,16 +577,19 @@ features for productive professionals.") ("closer-mop" ,sbcl-closer-mop) ("dbus" ,cl-dbus) ("dexador" ,sbcl-dexador) + ("fare-quasiquote-extras" ,cl-fare-quasiquote-extras) ; For serapeum. Guix bug? ("ironclad" ,sbcl-ironclad) ("local-time" ,sbcl-local-time) ("log4cl" ,sbcl-log4cl) ("lparallel" ,sbcl-lparallel) ("mk-string-metrics" ,sbcl-mk-string-metrics) ("parenscript" ,sbcl-parenscript) + ("plump" ,sbcl-plump) ("quri" ,sbcl-quri) + ("serapeum" ,sbcl-serapeum) ("sqlite" ,sbcl-cl-sqlite) ("str" ,sbcl-cl-str) - ("swank" ,cl-slime-swank) + ("swank" ,sbcl-slime-swank) ("trivia" ,sbcl-trivia) ("trivial-clipboard" ,sbcl-trivial-clipboard) ("unix-opts" ,sbcl-unix-opts) @@ -578,9 +598,11 @@ features for productive professionals.") ("next-download-manager" ,sbcl-next-download-manager) ("next-ring" ,sbcl-next-ring) ("next-history-tree" ,sbcl-next-history-tree) - ("next-password-manager" ,sbcl-next-password-manager))) + ("next-password-manager" ,sbcl-next-password-manager) + ("next-hooks" ,sbcl-next-hooks))) (native-inputs `(("trivial-features" ,sbcl-trivial-features) + ("trivial-types" ,sbcl-trivial-types) ("prove-asdf" ,sbcl-prove-asdf))) (synopsis "Infinitely extensible web-browser (with Lisp development files)")))) diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm index b3d7d4c614..b22f2776b2 100644 --- a/gnu/packages/web.scm +++ b/gnu/packages/web.scm @@ -105,7 +105,6 @@ #:use-module (gnu packages guile) #:use-module (gnu packages guile-xyz) #:use-module (gnu packages java) - #:use-module (gnu packages javascript) #:use-module (gnu packages jemalloc) #:use-module (gnu packages image) #:use-module (gnu packages imagemagick) @@ -113,6 +112,7 @@ #:use-module (gnu packages libidn) #:use-module (gnu packages libunistring) #:use-module (gnu packages linux) + #:use-module (gnu packages lisp-xyz) #:use-module (gnu packages lua) #:use-module (gnu packages markup) #:use-module (gnu packages ncurses) @@ -4196,8 +4196,8 @@ CDF, Atom 0.3, and Atom 1.0 feeds.") (package-with-python2 python-feedparser)) (define-public guix-data-service - (let ((commit "82b797ee9869ebe24f7dbbcc56c3d500e75dc2d3") - (revision "13")) + (let ((commit "c7e3a1bd0b0648561211f52bd9f674358da59223") + (revision "16")) (package (name "guix-data-service") (version (string-append "0.0.1-" revision "." (string-take commit 7))) @@ -4209,7 +4209,7 @@ CDF, Atom 0.3, and Atom 1.0 feeds.") (file-name (git-file-name name version)) (sha256 (base32 - "0m500f40b4dmw1nsjhci7v4jxk8fsn2pp0xkiw2s13rmdnqar31s")))) + "08c6bpzmsh62ng4bx008xcgayrrxz815jbpb96n98didk2zyzfg0")))) (build-system gnu-build-system) (arguments '(#:modules ((guix build utils) diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm index 7d11a048f2..9832f0079c 100644 --- a/gnu/packages/wm.scm +++ b/gnu/packages/wm.scm @@ -15,7 +15,7 @@ ;;; Copyright © 2017 Mekeor Melire <mekeor.melire@gmail.com> ;;; Copyright © 2017, 2019 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2017 Oleg Pykhalov <go.wigust@gmail.com> -;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018 Pierre-Antoine Rouby <contact@parouby.fr> ;;; Copyright © 2018, 2019 Meiyo Peng <meiyo@riseup.net> ;;; Copyright © 2019 Rutger Helling <rhelling@mykolab.com> @@ -1243,14 +1243,14 @@ its size (define-public polybar (package (name "polybar") - (version "3.4.1") + (version "3.4.2") (source (origin (method url-fetch) (uri (string-append "https://github.com/polybar/polybar/releases/" "download/" version "/polybar-" version ".tar")) (sha256 - (base32 "1sy4xnx9rnj5z22kca8al84ivjg4mkvb9wj68pqq2y02l54gldwy")))) + (base32 "0fmnviz4b01aw50nkv4yibm8ykc5ff860ynw3xb1ymlsjrvwj8jd")))) (build-system cmake-build-system) (arguments ;; Test is disabled because it requires downloading googletest from the diff --git a/gnu/packages/xdisorg.scm b/gnu/packages/xdisorg.scm index 081d683759..067278d9b9 100644 --- a/gnu/packages/xdisorg.scm +++ b/gnu/packages/xdisorg.scm @@ -18,7 +18,7 @@ ;;; Copyright © 2016 Petter <petter@mykolab.ch> ;;; Copyright © 2017 Mekeor Melire <mekeor.melire@gmail.com> ;;; Copyright © 2017 ng0 <ng0@n0.is> -;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017 Marek Benc <dusxmt@gmx.com> ;;; Copyright © 2017 Mike Gerwitz <mtg@gnu.org> ;;; Copyright © 2018 Thomas Sigurdsen <tonton@riseup.net> @@ -29,6 +29,7 @@ ;;; Copyright © 2019 Kyle Andrews <kyle.c.andrews@gmail.com> ;;; Copyright © 2019 Josh Holland <josh@inv.alid.pw> ;;; Copyright © 2019 Tanguy Le Carrour <tanguy@bioneland.org> +;;; Copyright © 2020 Guillaume Le Vaillant <glv@posteo.net> ;;; ;;; This file is part of GNU Guix. ;;; @@ -72,6 +73,7 @@ #:use-module (gnu packages gl) #:use-module (gnu packages glib) #:use-module (gnu packages gnome) + #:use-module (gnu packages haskell-xyz) #:use-module (gnu packages icu4c) #:use-module (gnu packages man) #:use-module (gnu packages maths) @@ -115,20 +117,28 @@ #t)))) (build-system python-build-system) (arguments - `(#:python ,python-2 ;incompatible with python 3 - #:phases + `(#:phases (modify-phases %standard-phases (add-before 'build 'configure (lambda* (#:key inputs #:allow-other-keys) (substitute* "screenlayout/xrandr.py" (("\"xrandr\"") (string-append "\"" (assoc-ref inputs "xrandr") "/bin/xrandr\""))) + #t)) + (add-after 'install 'wrap-gi-typelib + (lambda* (#:key inputs outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out")) + (gi-typelib-path (getenv "GI_TYPELIB_PATH"))) + (wrap-program (string-append out "/bin/arandr") + `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))) #t))) #:tests? #f)) ;no tests - (inputs `(("pygtk" ,python2-pygtk) + (inputs `(("gtk+" ,gtk+) + ("pycairo" ,python-pycairo) + ("pygobject" ,python-pygobject) ("xrandr" ,xrandr))) (native-inputs `(("gettext" ,gettext-minimal) - ("python-docutils" ,python2-docutils))) + ("python-docutils" ,python-docutils))) (home-page "https://christian.amsuess.com/tools/arandr/") (synopsis "Another RandR graphical user interface") ;; TRANSLATORS: "X11 resize-and-rotate" should not be translated. @@ -292,28 +302,31 @@ avoiding password prompts when X11 forwarding has already been setup.") (define-public libxkbcommon (package (name "libxkbcommon") - (version "0.8.4") + (version "0.9.1") (source (origin (method url-fetch) (uri (string-append "https://xkbcommon.org/download/libxkbcommon-" version ".tar.xz")) (sha256 (base32 - "12vc91ydhphd5sddz15560r41l7k0i7mq6nma8kkbzdp6bwwzpb0")))) - (build-system gnu-build-system) + "1q4v378sr9ad8fy9znl7k8xpf0wch655r9m6z0bcc7sw1azsminl")))) + (build-system meson-build-system) (inputs `(("libx11" ,libx11) ("libxcb" ,libxcb) + ("wayland" ,wayland) + ("wayland-protocols" ,wayland-protocols) ("xkeyboard-config" ,xkeyboard-config))) (native-inputs `(("bison" ,bison) + ("doxygen" ,doxygen) ("pkg-config" ,pkg-config))) (arguments `(#:configure-flags - (list (string-append "--with-xkb-config-root=" + (list (string-append "-Dxkb-config-root=" (assoc-ref %build-inputs "xkeyboard-config") "/share/X11/xkb") - (string-append "--with-x-locale-root=" + (string-append "-Dx-locale-root=" (assoc-ref %build-inputs "libx11") "/share/X11/locale")))) (home-page "https://xkbcommon.org/") @@ -454,7 +467,7 @@ rasterisation.") (define-public libdrm (package (name "libdrm") - (version "2.4.99") + (version "2.4.100") (source (origin (method url-fetch) @@ -464,7 +477,7 @@ rasterisation.") ".tar.bz2")) (sha256 (base32 - "0pnsw4bmajzdbz8pk4wswdmw93shhympf2q9alhbnpfjgsf57gsd")) + "0p8a1l3a3s40i81mawm8nhrbk7p97ss05qkawp1yx73c30lchz67")) (patches (search-patches "libdrm-symbol-check.patch")))) (build-system meson-build-system) (arguments @@ -1038,7 +1051,7 @@ Escape key when Left Control is pressed and released on its own.") (define-public libwacom (package (name "libwacom") - (version "1.1") + (version "1.2") (source (origin (method url-fetch) (uri (string-append @@ -1046,7 +1059,7 @@ Escape key when Left Control is pressed and released on its own.") "libwacom-" version "/libwacom-" version ".tar.bz2")) (sha256 (base32 - "00lyv419ijyng6ak5vpw0swnn4qg6lbfh7zysf92wcvn6rcq7d4c")))) + "1hv3z2qkvycqcyv99zfpbbgrlbyppdq8kk2y9x51578mwbgcy162")))) (build-system glib-or-gtk-build-system) (arguments `(#:configure-flags '("--disable-static"))) @@ -1073,7 +1086,7 @@ Wacom tablet applet.") (define-public xf86-input-wacom (package (name "xf86-input-wacom") - (version "0.38.0") + (version "0.39.0") (source (origin (method url-fetch) @@ -1082,7 +1095,7 @@ Wacom tablet applet.") "xf86-input-wacom-" version "/" "xf86-input-wacom-" version ".tar.bz2")) (sha256 - (base32 "0w53hv3g7d5vv328x04wb57sa1lyv2h631c37csp1drfp7ghikd1")))) + (base32 "11qk58az6qwii774ga45h5yqzipwn56f0d74kdbajqdv45p85gqj")))) (arguments `(#:configure-flags (list (string-append "--with-sdkdir=" @@ -1850,6 +1863,52 @@ colors on all monitors attached to an XRandR-capable X11 display server.") temperature of the screen.") (license (license:non-copyleft "file://sct.c")))) ; "OpenBSD" license +(define-public xsecurelock + (package + (name "xsecurelock") + (version "1.6.0") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/google/xsecurelock/releases" + "/download/v" version "/xsecurelock-" version ".tar.gz")) + (sha256 + (base32 "070gknyv0s5hz9hkc6v73m2v7ssyjwgl93b5hd4glayfqxqjbmdp")))) + (build-system gnu-build-system) + (arguments + '(#:configure-flags + '("--with-pam-service-name=login" + "--with-xkb" + "--with-default-authproto-module=/run/setuid-programs/authproto_pam"))) + (native-inputs + `(("pandoc" ,ghc-pandoc) + ("pkg-config" ,pkg-config))) + (inputs + `(("fontconfig" ,fontconfig) + ("libX11" ,libx11) + ("libxcomposite" ,libxcomposite) + ("libxext" ,libxext) + ("libxfixes" ,libxfixes) + ("libxft" ,libxft) + ("libxmu" ,libxmu) + ("libxrandr" ,libxrandr) + ("libxscrnsaver" ,libxscrnsaver) + ("linux-pam" ,linux-pam))) + (home-page "https://github.com/google/xsecurelock") + (synopsis "X11 screen lock utility with the primary goal of security") + (description "@code{xsecurelock} is an X11 screen locker which uses +a modular design to avoid the usual pitfallsof screen locking utility design. + +As a consequence of the modular design, the usual screen locker service +shouldn't be used with @code{xsecurelock}. Instead, you need to add a helper +binary to setuid-binaries: +@example +(setuid-programs (cons* + (file-append xsecurelock \"/libexec/xsecurelock/authproto_pam\") + %setuid-programs)) +@end example") + (license license:asl2.0))) + (define-public wl-clipboard (package (name "wl-clipboard") @@ -1899,3 +1958,51 @@ and clipboard selection. When the clipboard is changed, it updates the cutbuffer. When the cutbuffer is changed, it owns the clipboard selection. The cutbuffer and clipboard selection are always synchronized.") (license license:gpl2+))) + +(define-public jgmenu + (package + (name "jgmenu") + (version "3.5") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/johanmalm/jgmenu.git") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0q0m3sskgmjv28gzvjkphgg3yhwzc9w9fj9i342pibb50impjazy")))) + (build-system gnu-build-system) + (native-inputs + `(("perl" ,perl) + ("pkg-config" ,pkg-config))) + (inputs + `(("cairo" ,cairo) + ("librsvg" ,librsvg) + ("libx11" ,libx11) + ("libxml2" ,libxml2) + ("libxrandr" ,libxrandr) + ("pango" ,pango) + ("python" ,python))) + (arguments + '(#:phases (modify-phases %standard-phases + (add-after 'unpack 'fix-paths + (lambda* (#:key inputs #:allow-other-keys) + (let ((python (assoc-ref inputs "python"))) + (substitute* "src/jgmenu-pmenu.py" + (("#!/usr/bin/env python3") + (string-append "#!" python "/bin/python3"))) + #t))) + (replace 'configure + (lambda* (#:key outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out"))) + (setenv "prefix" out) + (setenv "CC" "gcc") + #t)))))) + (synopsis "Simple X11 menu") + (description + "This is a simple menu for X11 designed for scripting and tweaking. It +can optionally use some appearance settings from XSettings, tint2 and GTK.") + (home-page "https://jgmenu.github.io/") + (license license:gpl2))) diff --git a/gnu/packages/xfce.scm b/gnu/packages/xfce.scm index ccf8c83103..7489624646 100644 --- a/gnu/packages/xfce.scm +++ b/gnu/packages/xfce.scm @@ -7,7 +7,7 @@ ;;; Copyright © 2017, 2019 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2017 Petter <petter@mykolab.ch> ;;; Copyright © 2017 ng0 <ng0@n0.is> -;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2019 Pkill -9 <pkill9@runbox.com> ;;; Copyright © 2019 L p R n d n <guix@lprndn.info> ;;; Copyright © 2019 Ingo Ruhnke <grumbel@gmail.com> @@ -645,7 +645,7 @@ like appearance, display, keyboard and mouse settings.") (define-public thunar (package (name "thunar") - (version "1.8.10") + (version "1.8.11") (source (origin (method url-fetch) (uri (string-append "http://archive.xfce.org/src/xfce/" @@ -653,7 +653,7 @@ like appearance, display, keyboard and mouse settings.") "thunar-" version ".tar.bz2")) (sha256 (base32 - "02g72bpbb8dkwspay9qii8bi99l87jn39gz6bamgp7p4q20qsi1x")))) + "0f5jw61z1dbvyyf1nks5dagnbs6sxxw7spybgwvpb3hfljrlvphq")))) (build-system gnu-build-system) (native-inputs `(("pkg-config" ,pkg-config) diff --git a/gnu/packages/xiph.scm b/gnu/packages/xiph.scm index 61d836a50b..edb690b5ff 100644 --- a/gnu/packages/xiph.scm +++ b/gnu/packages/xiph.scm @@ -7,7 +7,7 @@ ;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org> ;;; Copyright © 2015, 2016, 2017, 2019 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2017, 2018, 2019 Marius Bakke <mbakke@fastmail.com> -;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018 Leo Famulari <leo@famulari.name> ;;; ;;; This file is part of GNU Guix. @@ -69,6 +69,8 @@ (base32 "1zlk33vxvxr0l9lhkbhkdwvylw96d2n0fnd3d8dl031hph9bqqy1")))) (build-system gnu-build-system) + (arguments + '(#:configure-flags '("--disable-static"))) (synopsis "Library for manipulating the ogg multimedia format") (description "The libogg library allows to manipulate the ogg multimedia container @@ -93,7 +95,8 @@ periodic timestamps for seeking.") "05dlzjkdpv46zb837wysxqyn8l636x3dw8v8ymlrwz2fg1dbn05g")))) (build-system gnu-build-system) (propagated-inputs `(("libogg" ,libogg))) - (arguments `(#:configure-flags '("LDFLAGS=-lm") + (arguments `(#:configure-flags '("LDFLAGS=-lm" + "--disable-static") #:parallel-tests? #f)) (synopsis "Library implementing the vorbis audio format") (description @@ -119,6 +122,8 @@ polyphonic) audio and music at fixed and variable bitrates from 16 to "0q8wark9ribij57dciym5vdikg2464p8q2mgqvfb78ksjh4s8vgk")) (patches (search-patches "libtheora-config-guess.patch")))) (build-system gnu-build-system) + (arguments + '(#:configure-flags '("--disable-static"))) (inputs `(("libvorbis" ,libvorbis))) ;; The .pc files refer to libogg. (propagated-inputs `(("libogg" ,libogg))) @@ -174,7 +179,8 @@ stereo encoding, and voice activity detection.") "0wa7sqpk3x61zz99m7lwkgr6yv62ml6lfgs5xja65vlvdzy44838")))) (build-system gnu-build-system) (arguments - `(#:configure-flags '(,@(if (string=? "aarch64-linux" + `(#:configure-flags '("--disable-static" + ,@(if (string=? "aarch64-linux" (%current-system)) '("--enable-neon=no") ; neon defaults to armv7-a '())))) @@ -352,6 +358,8 @@ ogginfo, to obtain information (tags, bitrate, length, etc.) about (base32 "17gz8kxs4i7icsc1gj713gadiapyklynlwqlf0ai98dj4lg8xdb5")))) (build-system gnu-build-system) + (arguments + '(#:configure-flags '("--disable-static"))) (synopsis "Versatile audio codec") (description "Opus is a totally open, royalty-free, highly versatile audio codec. Opus @@ -483,7 +491,7 @@ things in between.") (define-public libshout (package (name "libshout") - (version "2.4.2") + (version "2.4.3") (source (origin (method url-fetch) (uri (string-append @@ -491,7 +499,7 @@ things in between.") "libshout-" version ".tar.gz")) (sha256 (base32 - "0qgwarqp2p6jy3zadds6dzj8z1jfb2mbwc3lsdlidf527h0a86ym")))) + "1zhdshas539cs8fsz8022ljxnnncr5lafhfd1dqr1gs125fzb2hd")))) (build-system gnu-build-system) (native-inputs `(("pkg-config" ,pkg-config))) diff --git a/gnu/packages/xml.scm b/gnu/packages/xml.scm index 65e0608948..e9a9ec20ed 100644 --- a/gnu/packages/xml.scm +++ b/gnu/packages/xml.scm @@ -12,7 +12,7 @@ ;;; Copyright © 2016 Ben Woodcroft <donttrustben@gmail.com> ;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2016, 2017 ng0 <ng0@n0.is> -;;; Copyright © 2016, 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2016, 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2016, 2017, 2018, 2019 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2017 Adriano Peluso <catonano@gmail.com> ;;; Copyright © 2017 Gregor Giesen <giesen@zaehlwerk.net> @@ -1154,7 +1154,7 @@ XSLT and EXSLT.") (define-public html-xml-utils (package (name "html-xml-utils") - (version "7.7") + (version "7.8") (source (origin (method url-fetch) @@ -1162,8 +1162,7 @@ XSLT and EXSLT.") "https://www.w3.org/Tools/HTML-XML-utils/html-xml-utils-" version ".tar.gz")) (sha256 - (base32 - "1vwqp5q276j8di9zql3kygf31z2frp2c59yjqlrvvwcvccvkcdwr")))) + (base32 "0p8df3c6mw879vdi8l63kbdqylkf1is10b067mh9kipgfy91rd4s")))) (build-system gnu-build-system) (home-page "https://www.w3.org/Tools/HTML-XML-utils/") (synopsis "Command line utilities to manipulate HTML and XML files") diff --git a/gnu/packages/xorg.scm b/gnu/packages/xorg.scm index a7ec5851e2..9127d38c3a 100644 --- a/gnu/packages/xorg.scm +++ b/gnu/packages/xorg.scm @@ -21,6 +21,7 @@ ;;; Copyright © 2019 nee <nee@cock.li> ;;; Copyright © 2019 Yoshinori Arai <kumagusu08@gmail.com> ;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com> +;;; Copyright © 2020 Leo Prikler <leo.prikler@student.tugraz.at> ;;; ;;; This file is part of GNU Guix. ;;; @@ -6536,3 +6537,29 @@ Thai).") ;; by simple permissive licenses. See the 'COPYRIGHT' file. (license (list license:gpl2+ license:expat)))) + +(define-public xcur2png + (package + (name "xcur2png") + (version "0.7.1") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/eworm-de/xcur2png.git") + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 "0858wn2p14bxpv9lvaz2bz1rk6zk0g8zgxf8iy595m8fqv4q2fya")))) + (build-system gnu-build-system) + (native-inputs + `(("pkg-config" ,pkg-config))) + (inputs + `(("libpng" ,libpng) + ("libxcursor" ,libxcursor))) + (synopsis "Decode X cursors") + (description + "xcur2png is a program decomposes an X cursor into a set of PNG images and +a configuration file reusable by xcursorgen.") + (home-page "https://github.com/eworm-de/xcur2png") + (license license:gpl3+))) diff --git a/gnu/services/base.scm b/gnu/services/base.scm index b1eff89ecc..0c154d1c4e 100644 --- a/gnu/services/base.scm +++ b/gnu/services/base.scm @@ -10,6 +10,7 @@ ;;; Copyright © 2019 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2019 John Soo <jsoo1@asu.edu> +;;; Copyright © 2019 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -705,7 +706,7 @@ to add @var{device} to the kernel's entropy pool. The service will fail if (provision '(host-name)) (start #~(lambda _ (sethostname #$name))) - (respawn? #f))))) + (one-shot? #t))))) (define (host-name-service name) "Return a service that sets the host name to @var{name}." @@ -818,7 +819,10 @@ package or any valid argument to @command{setfont}, as in this example: '((\"tty1\" . \"LatGrkCyr-8x16\") (\"tty2\" . (file-append font-tamzen - \"/share/kbd/consolefonts/TamzenForPowerline10x20.psf\"))) + \"/share/kbd/consolefonts/TamzenForPowerline10x20.psf\")) + (\"tty3\" . (file-append + font-terminus + \"/share/consolefonts/ter-132n\"))) ; for HDPI @end example\n"))) (define* (console-font-service tty #:optional (font "LatGrkCyr-8x16")) diff --git a/gnu/services/cuirass.scm b/gnu/services/cuirass.scm index d92421762a..7bfb021161 100644 --- a/gnu/services/cuirass.scm +++ b/gnu/services/cuirass.scm @@ -1,6 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org> -;;; Copyright © 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2017 Jan Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2018, 2019 Ricardo Wurmus <rekado@elephly.net> @@ -25,8 +25,8 @@ #:use-module (guix gexp) #:use-module (guix records) #:use-module (gnu packages admin) - #:autoload (gnu packages ci) (cuirass) - #:autoload (gnu packages version-control) (git) + #:use-module (gnu packages ci) + #:use-module (gnu packages version-control) #:use-module (gnu services) #:use-module (gnu services base) #:use-module (gnu services shepherd) diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm index b40622a637..1be05fda4e 100644 --- a/gnu/services/desktop.scm +++ b/gnu/services/desktop.scm @@ -1183,6 +1183,7 @@ or setting its password with passwd."))) x11-socket-directory-service + (service pulseaudio-service-type) (service alsa-service-type) %base-services)) diff --git a/gnu/services/mcron.scm b/gnu/services/mcron.scm index 1327516b49..d9627c6bd0 100644 --- a/gnu/services/mcron.scm +++ b/gnu/services/mcron.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -19,7 +19,7 @@ (define-module (gnu services mcron) #:use-module (gnu services) #:use-module (gnu services shepherd) - #:autoload (gnu packages guile-xyz) (mcron) + #:use-module (gnu packages guile-xyz) #:use-module (guix deprecation) #:use-module (guix records) #:use-module (guix gexp) diff --git a/gnu/services/nfs.scm b/gnu/services/nfs.scm index 6ed4c0eabf..ddc9e2c47e 100644 --- a/gnu/services/nfs.scm +++ b/gnu/services/nfs.scm @@ -1,5 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2016 John Darrington <jmd@gnu.org> +;;; Copyright © 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net> ;;; ;;; This file is part of GNU Guix. ;;; @@ -21,8 +22,10 @@ #:use-module (gnu services shepherd) #:use-module (gnu packages onc-rpc) #:use-module (gnu packages linux) + #:use-module (gnu packages nfs) #:use-module (guix) #:use-module (guix records) + #:use-module (srfi srfi-1) #:use-module (ice-9 match) #:use-module (gnu build file-systems) #:export (rpcbind-service-type @@ -39,7 +42,11 @@ gss-service-type gss-configuration - gss-configuration?)) + gss-configuration? + + nfs-service-type + nfs-configuration + nfs-configuration?)) (define default-pipefs-directory "/var/lib/nfs/rpc_pipefs") @@ -55,23 +62,36 @@ (default #t))) (define rpcbind-service-type - (shepherd-service-type - 'rpcbind - (lambda (config) - (define nfs-utils - (rpcbind-configuration-rpcbind config)) - - (define rpcbind-command - #~(list (string-append #$nfs-utils "/bin/rpcbind") "-f" - #$@(if (rpcbind-configuration-warm-start? config) '("-w") '()))) - - (shepherd-service - (documentation "Start the RPC bind daemon.") - (requirement '(networking)) - (provision '(rpcbind-daemon)) - - (start #~(make-forkexec-constructor #$rpcbind-command)) - (stop #~(make-kill-destructor)))))) + (let ((proc + (lambda (config) + (define rpcbind + (rpcbind-configuration-rpcbind config)) + + (define rpcbind-command + #~(list (string-append #$rpcbind "/bin/rpcbind") "-f" + #$@(if (rpcbind-configuration-warm-start? config) '("-w") '()))) + + (shepherd-service + (documentation "Start the RPC bind daemon.") + (requirement '(networking)) + (provision '(rpcbind-daemon)) + + (start #~(make-forkexec-constructor #$rpcbind-command)) + (stop #~(make-kill-destructor)))))) + (service-type + (name 'rpcbind) + (extensions + (list (service-extension shepherd-root-service-type + (compose list proc)))) + ;; We use the extensions feature to allow other services to automatically + ;; configure and start this service. Only one value can be provided. We + ;; override it with the value returned by the extending service. + (compose identity) + (extend (lambda (config values) + (match values + ((first . rest) first) + (_ config)))) + (default-value (rpcbind-configuration))))) @@ -82,100 +102,314 @@ (default default-pipefs-directory))) (define pipefs-service-type - (shepherd-service-type - 'pipefs - (lambda (config) - (define pipefs-directory (pipefs-configuration-mount-point config)) - - (shepherd-service - (documentation "Mount the pipefs pseudo file system.") - (provision '(rpc-pipefs)) - - (start #~(lambda () - (mkdir-p #$pipefs-directory) - (mount "rpc_pipefs" #$pipefs-directory "rpc_pipefs") - (member #$pipefs-directory (mount-points)))) - - (stop #~(lambda (pid . args) - (umount #$pipefs-directory MNT_DETACH) - (not (member #$pipefs-directory (mount-points))))))))) + (let ((proc + (lambda (config) + (define pipefs-directory (pipefs-configuration-mount-point config)) + + (shepherd-service + (documentation "Mount the pipefs pseudo file system.") + (provision '(rpc-pipefs)) + + (start #~(lambda () + (mkdir-p #$pipefs-directory) + (mount "rpc_pipefs" #$pipefs-directory "rpc_pipefs") + (member #$pipefs-directory (mount-points)))) + + (stop #~(lambda (pid . args) + (umount #$pipefs-directory MNT_DETACH) + (not (member #$pipefs-directory (mount-points))))))))) + (service-type + (name 'pipefs) + (extensions + (list (service-extension shepherd-root-service-type + (compose list proc)))) + ;; We use the extensions feature to allow other services to automatically + ;; configure and start this service. Only one value can be provided. We + ;; override it with the value returned by the extending service. + (compose identity) + (extend (lambda (config values) (first values))) + (default-value (pipefs-configuration))))) (define-record-type* <gss-configuration> gss-configuration make-gss-configuration gss-configuration? - (pipefs-directory gss-configuration-pipefs-directory + (pipefs-directory gss-configuration-pipefs-directory (default default-pipefs-directory)) (nfs-utils gss-configuration-gss (default nfs-utils))) (define gss-service-type - (shepherd-service-type - 'gss - (lambda (config) - (define nfs-utils - (gss-configuration-gss config)) - - (define pipefs-directory - (gss-configuration-pipefs-directory config)) - - (define gss-command - #~(list (string-append #$nfs-utils "/sbin/rpc.gssd") "-f" - "-p" #$pipefs-directory)) - - (shepherd-service - (documentation "Start the RPC GSS daemon.") - (requirement '(rpcbind-daemon rpc-pipefs)) - (provision '(gss-daemon)) - - (start #~(make-forkexec-constructor #$gss-command)) - (stop #~(make-kill-destructor)))))) + (let ((proc + (lambda (config) + (define nfs-utils + (gss-configuration-gss config)) + + (define pipefs-directory + (gss-configuration-pipefs-directory config)) + + (define gss-command + #~(list (string-append #$nfs-utils "/sbin/rpc.gssd") "-f" + "-p" #$pipefs-directory)) + + (shepherd-service + (documentation "Start the RPC GSS daemon.") + (requirement '(rpcbind-daemon rpc-pipefs)) + (provision '(gss-daemon)) + + (start #~(make-forkexec-constructor #$gss-command)) + (stop #~(make-kill-destructor)))))) + (service-type + (name 'gss) + (extensions + (list (service-extension shepherd-root-service-type + (compose list proc)))) + ;; We use the extensions feature to allow other services to automatically + ;; configure and start this service. Only one value can be provided. We + ;; override it with the value returned by the extending service. + (compose identity) + (extend (lambda (config values) + (match values + ((first . rest) first) + (_ config)))) + (default-value (gss-configuration))))) (define-record-type* <idmap-configuration> idmap-configuration make-idmap-configuration idmap-configuration? - (pipefs-directory idmap-configuration-pipefs-directory + (pipefs-directory idmap-configuration-pipefs-directory (default default-pipefs-directory)) (domain idmap-configuration-domain - (default #f)) - (nfs-utils idmap-configuration-idmap - (default nfs-utils))) + (default #f)) + (nfs-utils idmap-configuration-nfs-utils + (default nfs-utils)) + (verbosity idmap-configuration-verbosity + (default 0))) (define idmap-service-type - (shepherd-service-type - 'idmap - (lambda (config) - - (define nfs-utils - (idmap-configuration-idmap config)) - - (define pipefs-directory - (idmap-configuration-pipefs-directory config)) - - (define domain (idmap-configuration-domain config)) - - (define (idmap-config-file config) - (plain-file "idmapd.conf" - (string-append - "\n[General]\n" - (if domain - (format #f "Domain = ~a\n" domain)) - "\n[Mapping]\n" - "Nobody-User = nobody\n" - "Nobody-Group = nogroup\n"))) - - (define idmap-command - #~(list (string-append #$nfs-utils "/sbin/rpc.idmapd") "-f" - "-p" #$pipefs-directory - "-c" #$(idmap-config-file config))) - - (shepherd-service - (documentation "Start the RPC IDMAP daemon.") - (requirement '(rpcbind-daemon rpc-pipefs)) - (provision '(idmap-daemon)) - (start #~(make-forkexec-constructor #$idmap-command)) - (stop #~(make-kill-destructor)))))) - + (let ((proc + (lambda (config) + + (define nfs-utils + (idmap-configuration-nfs-utils config)) + + (define pipefs-directory + (idmap-configuration-pipefs-directory config)) + + (define domain (idmap-configuration-domain config)) + + (define (idmap-config-file config) + (plain-file "idmapd.conf" + (string-append + "\n[General]\n" + "Verbosity = " + (number->string + (idmap-configuration-verbosity config)) + "\n" + (if domain + (format #f "Domain = ~a\n" domain) + "") + "\n[Mapping]\n" + "Nobody-User = nobody\n" + "Nobody-Group = nogroup\n"))) + + (define idmap-command + #~(list (string-append #$nfs-utils "/sbin/rpc.idmapd") "-f" + "-p" #$pipefs-directory + ;; TODO: this is deprecated + "-c" #$(idmap-config-file config))) + + (shepherd-service + (documentation "Start the RPC IDMAP daemon.") + (requirement '(rpcbind-daemon rpc-pipefs)) + (provision '(idmap-daemon)) + (start #~(make-forkexec-constructor #$idmap-command)) + (stop #~(make-kill-destructor)))))) + (service-type + (name 'idmap) + (extensions + (list (service-extension shepherd-root-service-type + (compose list proc)))) + ;; We use the extensions feature to allow other services to automatically + ;; configure and start this service. Only one value can be provided. We + ;; override it with the value returned by the extending service. + (compose identity) + (extend (lambda (config values) (first values))) + (default-value (idmap-configuration))))) + +(define-record-type* <nfs-configuration> + nfs-configuration make-nfs-configuration + nfs-configuration? + (nfs-utils nfs-configuration-nfs-utils + (default nfs-utils)) + (nfs-version nfs-configuration-nfs-version + (default #f)) ; string + (exports nfs-configuration-exports + (default '())) + (rpcmountd-port nfs-configuration-rpcmountd-port + (default #f)) + (rpcstatd-port nfs-configuration-rpcstatd-port + (default #f)) + (rpcbind nfs-configuration-rpcbind + (default rpcbind)) + (idmap-domain nfs-configuration-idmap-domain + (default "localdomain")) + (nfsd-port nfs-configuration-nfsd-port + (default 2049)) + (nfsd-threads nfs-configuration-nfsd-threads + (default 8)) + (pipefs-directory nfs-configuration-pipefs-directory + (default default-pipefs-directory)) + ;; List of modules to debug; any of nfsd, nfs, rpc, idmap, statd, or mountd. + (debug nfs-configuration-debug + (default '()))) + +(define (nfs-shepherd-services config) + "Return a list of <shepherd-service> for the NFS daemons with CONFIG." + (match-record config <nfs-configuration> + (nfs-utils nfs-version exports + rpcmountd-port rpcstatd-port nfsd-port nfsd-threads + pipefs-directory debug) + (list (shepherd-service + (documentation "Run the NFS statd daemon.") + (provision '(rpc.statd)) + (requirement '(rpcbind-daemon)) + (start + #~(make-forkexec-constructor + (list #$(file-append nfs-utils "/sbin/rpc.statd") + ;; TODO: notification support may require a little more + ;; configuration work. + "--no-notify" + #$@(if (member 'statd debug) + '("--no-syslog") ; verbose logging to stderr + '()) + "--foreground" + #$@(if rpcstatd-port + '("--port" (number->string rpcstatd-port)) + '())) + #:pid-file "/var/run/rpc.statd.pid")) + (stop #~(make-kill-destructor))) + (shepherd-service + (documentation "Run the NFS mountd daemon.") + (provision '(rpc.mountd)) + (requirement '(rpc.statd)) + (start + #~(make-forkexec-constructor + (list #$(file-append nfs-utils "/sbin/rpc.mountd") + #$@(if (member 'mountd debug) + '("--debug" "all") + '()) + #$@(if rpcmountd-port + '("--port" (number->string rpcmountd-port)) + '())))) + (stop #~(make-kill-destructor))) + (shepherd-service + (documentation "Run the NFS daemon.") + (provision '(rpc.nfsd)) + (requirement '(rpc.statd networking)) + (start + #~(lambda _ + (zero? (system* #$(file-append nfs-utils "/sbin/rpc.nfsd") + #$@(if (member 'nfsd debug) + '("--debug") + '()) + "--port" #$(number->string nfsd-port) + #$@(if nfs-version + '("--nfs-version" nfs-version) + '()) + #$(number->string nfsd-threads))))) + (stop + #~(lambda _ + (zero? + (system* #$(file-append nfs-utils "/sbin/rpc.nfsd") "0"))))) + (shepherd-service + (documentation "Run the NFS mountd daemon and refresh exports.") + (provision '(nfs)) + (requirement '(rpc.nfsd rpc.mountd rpc.statd rpcbind-daemon)) + (start + #~(lambda _ + (let ((rpcdebug #$(file-append nfs-utils "/sbin/rpcdebug"))) + (cond + ((member 'nfsd '#$debug) + (system* rpcdebug "-m" "nfsd" "-s" "all")) + ((member 'nfs '#$debug) + (system* rpcdebug "-m" "nfs" "-s" "all")) + ((member 'rpc '#$debug) + (system* rpcdebug "-m" "rpc" "-s" "all")))) + (zero? (system* + #$(file-append nfs-utils "/sbin/exportfs") + "-r" ; re-export + "-a" ; everthing + "-v" ; be verbose + "-d" "all" ; debug + )))) + (stop + #~(lambda _ + (let ((rpcdebug #$(file-append nfs-utils "/sbin/rpcdebug"))) + (cond + ((member 'nfsd '#$debug) + (system* rpcdebug "-m" "nfsd" "-c" "all")) + ((member 'nfs '#$debug) + (system* rpcdebug "-m" "nfs" "-c" "all")) + ((member 'rpc '#$debug) + (system* rpcdebug "-m" "rpc" "-c" "all")))) + #t)) + (respawn? #f))))) + +(define nfs-service-type + (service-type + (name 'nfs) + (extensions + (list + (service-extension shepherd-root-service-type nfs-shepherd-services) + (service-extension activation-service-type + (const #~(begin + (use-modules (guix build utils)) + (system* "mount" "-t" "nfsd" + "nfsd" "/proc/fs/nfsd") + + (mkdir-p "/var/lib/nfs") + ;; directory containing monitor list + (mkdir-p "/var/lib/nfs/sm") + ;; Needed for client recovery tracking + (mkdir-p "/var/lib/nfs/v4recovery") + (let ((user (getpw "nobody"))) + (chown "/var/lib/nfs" + (passwd:uid user) + (passwd:gid user)) + (chown "/var/lib/nfs/v4recovery" + (passwd:uid user) + (passwd:gid user))) + #t))) + (service-extension etc-service-type + (lambda (config) + `(("exports" + ,(plain-file "exports" + (string-join + (map string-join + (nfs-configuration-exports config)) + "\n")))))) + ;; The NFS service depends on these other services. They are extended so + ;; that users don't need to configure them manually. + (service-extension idmap-service-type + (lambda (config) + (idmap-configuration + (domain (nfs-configuration-idmap-domain config)) + (verbosity + (if (member 'idmap (nfs-configuration-debug config)) + 10 0)) + (pipefs-directory (nfs-configuration-pipefs-directory config)) + (nfs-utils (nfs-configuration-nfs-utils config))))) + (service-extension pipefs-service-type + (lambda (config) + (pipefs-configuration + (mount-point (nfs-configuration-pipefs-directory config))))) + (service-extension rpcbind-service-type + (lambda (config) + (rpcbind-configuration + (rpcbind (nfs-configuration-rpcbind config))))))) + (description + "Run all NFS daemons and refresh the list of exported file systems."))) diff --git a/gnu/services/sound.scm b/gnu/services/sound.scm index f2dd24402f..a1c928222a 100644 --- a/gnu/services/sound.scm +++ b/gnu/services/sound.scm @@ -1,5 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com> +;;; Copyright © 2018, 2020 Oleg Pykhalov <go.wigust@gmail.com> +;;; Copyright © 2020 Leo Prikler <leo.prikler@student.tugraz.at> ;;; ;;; This file is part of GNU Guix. ;;; @@ -21,16 +22,24 @@ #:use-module (gnu services configuration) #:use-module (gnu services shepherd) #:use-module (gnu services) + #:use-module (gnu system pam) #:use-module (gnu system shadow) #:use-module (guix gexp) #:use-module (guix packages) #:use-module (guix records) #:use-module (guix store) + #:use-module (gnu packages audio) #:use-module (gnu packages linux) #:use-module (gnu packages pulseaudio) #:use-module (ice-9 match) #:export (alsa-configuration - alsa-service-type)) + alsa-service-type + + pulseaudio-configuration + pulseaudio-service-type + + ladspa-configuration + ladspa-service-type)) ;;; Commentary: ;;; @@ -97,4 +106,92 @@ ctl.!default { (default-value (alsa-configuration)) (description "Configure low-level Linux sound support, ALSA."))) + +;;; +;;; PulseAudio +;;; + +(define-record-type* <pulseaudio-configuration> + pulseaudio-configuration make-pulseaudio-configuration + pulseaudio-configuration? + (client-conf pulseaudio-client-conf + (default '())) + (daemon-conf pulseaudio-daemon-conf + ;; Flat volumes may cause unpleasant experiences to users + ;; when applications inadvertently max out the system volume + ;; (see e.g. <https://bugs.gnu.org/38172>). + (default '((flat-volumes . no)))) + (script-file pulseaudio-script-file + (default (file-append pulseaudio "/etc/pulse/default.pa"))) + (system-script-file pulseaudio-system-script-file + (default + (file-append pulseaudio "/etc/pulse/system.pa")))) + +(define (pulseaudio-environment config) + `(;; Define these variables, so that pulseaudio honors /etc. + ("PULSE_CONFIG" . "/etc/pulse/daemon.conf") + ("PULSE_CLIENTCONFIG" . "/etc/pulse/client.conf"))) + +(define (pulseaudio-conf-entry arg) + (match arg + ((key . value) + (format #f "~a = ~s~%" key value)) + ((? string? _) + (string-append arg "\n")))) + +(define pulseaudio-etc + (match-lambda + (($ <pulseaudio-configuration> client-conf daemon-conf + default-script-file system-script-file) + `(("pulse" + ,(file-union + "pulse" + `(("client.conf" + ,(apply mixed-text-file "client.conf" + (map pulseaudio-conf-entry client-conf))) + ("daemon.conf" + ,(apply mixed-text-file "daemon.conf" + "default-script-file = " default-script-file "\n" + (map pulseaudio-conf-entry daemon-conf))) + ("default.pa" ,default-script-file) + ("system.pa" ,system-script-file)))))))) + +(define pulseaudio-service-type + (service-type + (name 'pulseaudio) + (extensions + (list (service-extension session-environment-service-type + pulseaudio-environment) + (service-extension etc-service-type pulseaudio-etc))) + (default-value (pulseaudio-configuration)) + (description "Configure PulseAudio sound support."))) + + +;;; +;;; LADSPA +;;; + +(define-record-type* <ladspa-configuration> + ladspa-configuration make-ladspa-configuration + ladspa-configuration? + (plugins ladspa-plugins (default '()))) + +(define (ladspa-environment config) + ;; Define this variable in the global environment such that + ;; pulseaudio swh-plugins (and similar LADSPA plugins) work. + `(("LADSPA_PATH" . + (string-join + ',(map (lambda (package) (file-append package "/lib/ladspa")) + (ladspa-plugins config)) + ":")))) + +(define ladspa-service-type + (service-type + (name 'ladspa) + (extensions + (list (service-extension session-environment-service-type + ladspa-environment))) + (default-value (ladspa-configuration)) + (description "Configure LADSPA plugins."))) + ;;; sound.scm ends here diff --git a/gnu/system.scm b/gnu/system.scm index abdbb081e6..7033671526 100644 --- a/gnu/system.scm +++ b/gnu/system.scm @@ -565,7 +565,7 @@ of PROVENANCE-SERVICE-TYPE to its services." ;; required for basic administrator tasks. (cons* procps psmisc which less zile nano pciutils usbutils - util-linux + util-linux+udev inetutils isc-dhcp (@ (gnu packages admin) shadow) ;for 'passwd' diff --git a/gnu/system/install.scm b/gnu/system/install.scm index 4d1612ac7f..c15c2c7814 100644 --- a/gnu/system/install.scm +++ b/gnu/system/install.scm @@ -3,7 +3,7 @@ ;;; Copyright © 2015 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2016 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com> -;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2017, 2019 Tobias Geerinckx-Rice <me@tobias.gr> ;;; ;;; This file is part of GNU Guix. ;;; @@ -38,6 +38,7 @@ #:use-module (gnu packages bash) #:use-module (gnu packages bootloaders) #:use-module (gnu packages certs) + #:use-module (gnu packages file-systems) #:use-module (gnu packages fonts) #:use-module (gnu packages fontutils) #:use-module (gnu packages guile) @@ -488,6 +489,7 @@ Access documentation at any time by pressing Alt-F2.\x1b[0m mdadm dosfstools ;mkfs.fat, for the UEFI boot partition btrfs-progs + jfsutils openssh ;we already have sshd, having ssh/scp can help wireless-tools iw wpa-supplicant-minimal iproute ;; XXX: We used to have GNU fdisk here, but as of version diff --git a/gnu/system/linux-container.scm b/gnu/system/linux-container.scm index 2ab679ff3f..c8807398b3 100644 --- a/gnu/system/linux-container.scm +++ b/gnu/system/linux-container.scm @@ -2,6 +2,7 @@ ;;; Copyright © 2015 David Thompson <davet@gnu.org> ;;; Copyright © 2016, 2017, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2019 Arun Isaac <arunisaac@systemreboot.net> +;;; Copyright © 2020 Efraim Flashner <efraim@flashner.co.il> ;;; ;;; This file is part of GNU Guix. ;;; @@ -194,11 +195,13 @@ that will be shared with the host system." (define (explain pid) ;; XXX: We can't quite call 'bindtextdomain' so there's actually ;; no i18n. + ;; XXX: Should we really give both options? 'guix container exec' + ;; is a more verbose command. Hard to fail to enter the container + ;; when we list two options. (info (G_ "system container is running as PID ~a~%") pid) - ;; XXX: Should we recommend 'guix container exec'? It's more - ;; verbose and doesn't bring much. - (info (G_ "Run 'sudo nsenter -a -t ~a' to get a shell into it.~%") + (info (G_ "Run 'sudo guix container exec ~a /run/current-system/profile/bin/bash --login'\n") pid) + (info (G_ "or run 'sudo nsenter -a -t ~a' to get a shell into it.~%") pid) (newline (guix-warning-port))) (call-with-container file-systems diff --git a/gnu/system/linux-initrd.scm b/gnu/system/linux-initrd.scm index 0efb8fb222..dcc9b6b937 100644 --- a/gnu/system/linux-initrd.scm +++ b/gnu/system/linux-initrd.scm @@ -3,6 +3,7 @@ ;;; Copyright © 2016 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2017, 2019 Mathieu Othacehe <m.othacehe@gmail.com> +;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr> ;;; ;;; This file is part of GNU Guix. ;;; @@ -30,6 +31,7 @@ #:use-module (gnu packages compression) #:use-module (gnu packages disk) #:use-module (gnu packages linux) + #:use-module (gnu packages file-systems) #:use-module (gnu packages guile) #:use-module ((gnu packages xorg) #:select (console-setup xkeyboard-config)) @@ -240,6 +242,9 @@ FILE-SYSTEMS." '()) ,@(if (find (file-system-type-predicate "btrfs") file-systems) (list btrfs-progs/static) + '()) + ,@(if (find (file-system-type-predicate "jfs") file-systems) + (list jfs_fsck/static) '()))) (define-syntax vhash ;TODO: factorize @@ -269,6 +274,7 @@ FILE-SYSTEMS." ("9p" => '("9p" "9pnet_virtio")) ("btrfs" => '("btrfs")) ("iso9660" => '("isofs")) + ("jfs" => '("jfs")) (else '()))) (define (file-system-modules file-systems) diff --git a/gnu/system/uuid.scm b/gnu/system/uuid.scm index e7a3a0439d..225959e2b7 100644 --- a/gnu/system/uuid.scm +++ b/gnu/system/uuid.scm @@ -1,6 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2017 Danny Milosavljevic <dannym@scratchpost.org> +;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr> ;;; ;;; This file is part of GNU Guix. ;;; @@ -43,6 +44,7 @@ string->ext4-uuid string->btrfs-uuid string->fat-uuid + string->jfs-uuid iso9660-uuid->string ;; XXX: For lack of a better place. @@ -202,6 +204,7 @@ ISO9660 UUID representation." (define string->ext3-uuid string->dce-uuid) (define string->ext4-uuid string->dce-uuid) (define string->btrfs-uuid string->dce-uuid) +(define string->jfs-uuid string->dce-uuid) (define-syntax vhashq (syntax-rules (=>) @@ -215,13 +218,13 @@ ISO9660 UUID representation." (define %uuid-parsers (vhashq - ('dce 'ext2 'ext3 'ext4 'btrfs 'luks => string->dce-uuid) + ('dce 'ext2 'ext3 'ext4 'btrfs 'jfs 'luks => string->dce-uuid) ('fat32 'fat16 'fat => string->fat-uuid) ('iso9660 => string->iso9660-uuid))) (define %uuid-printers (vhashq - ('dce 'ext2 'ext3 'ext4 'btrfs 'luks => dce-uuid->string) + ('dce 'ext2 'ext3 'ext4 'btrfs 'jfs 'luks => dce-uuid->string) ('iso9660 => iso9660-uuid->string) ('fat32 'fat16 'fat => fat-uuid->string))) diff --git a/gnu/tests/install.scm b/gnu/tests/install.scm index bce4c4b9d4..8842d48df8 100644 --- a/gnu/tests/install.scm +++ b/gnu/tests/install.scm @@ -1,6 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> -;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2017, 2019 Tobias Geerinckx-Rice <me@tobias.gr> ;;; ;;; This file is part of GNU Guix. ;;; @@ -43,7 +43,8 @@ %test-separate-home-os %test-raid-root-os %test-encrypted-root-os - %test-btrfs-root-os)) + %test-btrfs-root-os + %test-jfs-root-os)) ;;; Commentary: ;;; @@ -810,4 +811,77 @@ build (current-guix) and then store a couple of full system images.") (command (qemu-command/writable-image image))) (run-basic-test %btrfs-root-os command "btrfs-root-os"))))) + +;;; +;;; JFS root file system. +;;; + +(define-os-with-source (%jfs-root-os %jfs-root-os-source) + ;; The OS we want to install. + (use-modules (gnu) (gnu tests) (srfi srfi-1)) + + (operating-system + (host-name "liberigilo") + (timezone "Europe/Paris") + (locale "en_US.UTF-8") + + (bootloader (bootloader-configuration + (bootloader grub-bootloader) + (target "/dev/vdb"))) + (kernel-arguments '("console=ttyS0")) + (file-systems (cons (file-system + (device (file-system-label "my-root")) + (mount-point "/") + (type "jfs")) + %base-file-systems)) + (users (cons (user-account + (name "charlie") + (group "users") + (supplementary-groups '("wheel" "audio" "video"))) + %base-user-accounts)) + (services (cons (service marionette-service-type + (marionette-configuration + (imported-modules '((gnu services herd) + (guix combinators))))) + %base-services)))) + +(define %jfs-root-installation-script + ;; Shell script of a simple installation. + "\ +. /etc/profile +set -e -x +guix --version + +export GUIX_BUILD_OPTIONS=--no-grafts +ls -l /run/current-system/gc-roots +parted --script /dev/vdb mklabel gpt \\ + mkpart primary ext2 1M 3M \\ + mkpart primary ext2 3M 2G \\ + set 1 boot on \\ + set 1 bios_grub on +jfs_mkfs -L my-root -q /dev/vdb2 +mount /dev/vdb2 /mnt +herd start cow-store /mnt +mkdir /mnt/etc +cp /etc/target-config.scm /mnt/etc/config.scm +guix system build /mnt/etc/config.scm +guix system init /mnt/etc/config.scm /mnt --no-substitutes +sync +reboot\n") + +(define %test-jfs-root-os + (system-test + (name "jfs-root-os") + (description + "Test basic functionality of an OS installed like one would do by hand. +This test is expensive in terms of CPU and storage usage since we need to +build (current-guix) and then store a couple of full system images.") + (value + (mlet* %store-monad ((image (run-install %jfs-root-os + %jfs-root-os-source + #:script + %jfs-root-installation-script)) + (command (qemu-command/writable-image image))) + (run-basic-test %jfs-root-os command "jfs-root-os"))))) + ;;; install.scm ends here diff --git a/gnu/tests/nfs.scm b/gnu/tests/nfs.scm index 7ef9f1f7bf..014d049ab5 100644 --- a/gnu/tests/nfs.scm +++ b/gnu/tests/nfs.scm @@ -4,6 +4,7 @@ ;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org> +;;; Copyright © 2019, 2020 Ricardo Wurmus <rekado@elephly.net> ;;; ;;; This file is part of GNU Guix. ;;; @@ -33,10 +34,12 @@ #:use-module (gnu services nfs) #:use-module (gnu services networking) #:use-module (gnu packages onc-rpc) + #:use-module (gnu packages nfs) #:use-module (guix gexp) #:use-module (guix store) #:use-module (guix monads) - #:export (%test-nfs)) + #:export (%test-nfs + %test-nfs-server)) (define %base-os (operating-system @@ -53,8 +56,7 @@ rpcbind %base-packages)) (services (cons* - (service rpcbind-service-type - (rpcbind-configuration)) + (service rpcbind-service-type) (service dhcp-client-service-type) %base-services)))) @@ -133,3 +135,152 @@ (name "nfs") (description "Test some things related to NFS.") (value (run-nfs-test name "/var/run/rpcbind.sock")))) + + +(define %nfs-os + (let ((os (simple-operating-system + (simple-service 'create-target-directory activation-service-type + #~(begin + (mkdir "/remote") + (chmod "/remote" #o777) + #t)) + (service dhcp-client-service-type) + (service nfs-service-type + (nfs-configuration + (debug '(nfs nfsd mountd)) + (exports '(("/export" + ;; crossmnt = This is the pseudo root. + ;; fsid=0 = root file system of the export + "*(ro,insecure,no_subtree_check,crossmnt,fsid=0)")))))))) + (operating-system + (inherit os) + (host-name "nfs-server") + ;; We need to use a tmpfs here, because the test system's root file + ;; system cannot be re-exported via NFS. + (file-systems (cons + (file-system + (device "none") + (mount-point "/export") + (type "tmpfs") + (create-mount-point? #t)) + %base-file-systems)) + (services + ;; Enable debugging output. + (modify-services (operating-system-user-services os) + (syslog-service-type config + => + (syslog-configuration + (inherit config) + (config-file + (plain-file + "syslog.conf" + "*.* /dev/console\n"))))))))) + +(define (run-nfs-server-test) + "Run a test of an OS running a service of NFS-SERVICE-TYPE." + (define os + (marionette-operating-system + %nfs-os + #:requirements '(nscd) + #:imported-modules '((gnu services herd) + (guix combinators)))) + (define test + (with-imported-modules '((gnu build marionette)) + #~(begin + (use-modules (gnu build marionette) + (srfi srfi-64)) + + (define marionette + (make-marionette (list #$(virtual-machine os)))) + (define (wait-for-file file) + ;; Wait until FILE exists in the guest + (marionette-eval + `(let loop ((i 10)) + (cond ((file-exists? ,file) + #t) + ((> i 0) + (sleep 1) + (loop (- i 1))) + (else + (error "File didn't show up: " ,file)))) + marionette)) + + (mkdir #$output) + (chdir #$output) + + (test-begin "nfs-daemon") + (marionette-eval + '(begin + (current-output-port + (open-file "/dev/console" "w0")) + (chmod "/export" #o777) + (with-output-to-file "/export/hello" + (lambda () (display "hello world"))) + (chmod "/export/hello" #o777)) + marionette) + + (test-assert "nscd PID file is created" + (marionette-eval + '(begin + (use-modules (gnu services herd)) + (start-service 'nscd)) + marionette)) + + (test-assert "nscd is listening on its socket" + (marionette-eval + ;; XXX: Work around a race condition in nscd: nscd creates its + ;; PID file before it is listening on its socket. + '(let ((sock (socket PF_UNIX SOCK_STREAM 0))) + (let try () + (catch 'system-error + (lambda () + (connect sock AF_UNIX "/var/run/nscd/socket") + (close-port sock) + (format #t "nscd is ready~%") + #t) + (lambda args + (format #t "waiting for nscd...~%") + (usleep 500000) + (try))))) + marionette)) + + (test-assert "network is up" + (marionette-eval + '(begin + (use-modules (gnu services herd)) + (start-service 'networking)) + marionette)) + + ;; Wait for the NFS services to be up and running. + (test-assert "nfs services are running" + (and (marionette-eval + '(begin + (use-modules (gnu services herd)) + (start-service 'nfs)) + marionette) + (wait-for-file "/var/run/rpc.statd.pid"))) + + (test-assert "nfs share is advertised" + (marionette-eval + '(zero? (system* (string-append #$nfs-utils "/sbin/showmount") + "-e" "nfs-server")) + marionette)) + + (test-assert "nfs share mounted" + (marionette-eval + '(begin + (and (zero? (system* (string-append #$nfs-utils "/sbin/mount.nfs4") + "nfs-server:/" "/remote" "-v")) + (file-exists? "/remote/hello"))) + marionette)) + (test-end) + (exit (= (test-runner-fail-count (test-runner-current)) 0))))) + + (gexp->derivation "nfs-server-test" test)) + +(define %test-nfs-server + (system-test + (name "nfs-server") + (description "Test that an NFS server can be started and exported +directories can be mounted.") + (value (run-nfs-server-test)))) diff --git a/guix/build-system/clojure.scm b/guix/build-system/clojure.scm index d70535c9e3..607f67aaec 100644 --- a/guix/build-system/clojure.scm +++ b/guix/build-system/clojure.scm @@ -1,5 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2018 Alex Vong <alexvong1995@gmail.com> +;;; Copyright © 2020 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -43,12 +44,18 @@ ;; Code: (define-with-docs %clojure-build-system-modules - "Build-side modules imported and used by default." + "Build-side modules imported by default." `((guix build clojure-build-system) (guix build clojure-utils) (guix build guile-build-system) ,@%ant-build-system-modules)) +(define %default-modules + ;; Modules in scope in the build-side environment. + '((guix build clojure-build-system) + (guix build clojure-utils) + (guix build utils))) + (define-with-docs %default-clojure "The default Clojure package." (delay (@* (gnu packages clojure) clojure))) @@ -133,15 +140,14 @@ (test-include `',%test-include) (test-exclude `',%test-exclude) - (phases '(@ (guix build clojure-build-system) - %standard-phases)) + (phases '%standard-phases) (outputs '("out")) (search-paths '()) (system (%current-system)) (guile #f) (imported-modules %clojure-build-system-modules) - (modules %clojure-build-system-modules)) + (modules %default-modules)) "Build SOURCE with INPUTS." (let ((builder `(begin (use-modules ,@modules) diff --git a/guix/build-system/guile.scm b/guix/build-system/guile.scm index 2c5cc968ce..3693014694 100644 --- a/guix/build-system/guile.scm +++ b/guix/build-system/guile.scm @@ -36,6 +36,7 @@ (define* (lower name #:key source inputs native-inputs outputs system target + (implicit-inputs? #t) #:allow-other-keys #:rest arguments) "Return a bag for NAME." @@ -45,7 +46,8 @@ ;; procedures like 'package-for-guile-2.0' unchanged and simple. (define private-keywords - '(#:target #:inputs #:native-inputs)) + '(#:target #:inputs #:native-inputs + #:implicit-inputs?)) (bag (name name) @@ -56,8 +58,10 @@ `(("source" ,source)) '()) ,@native-inputs - ,@(map (cute assoc <> (standard-packages)) - '("tar" "gzip" "bzip2" "xz" "locales")))) + ,@(if implicit-inputs? + (map (cute assoc <> (standard-packages)) + '("tar" "gzip" "bzip2" "xz" "locales")) + '()))) (outputs outputs) (build (if target guile-cross-build guile-build)) (arguments (strip-keyword-arguments private-keywords arguments)))) diff --git a/guix/build-system/minify.scm b/guix/build-system/minify.scm index 1418a71091..28a6781c06 100644 --- a/guix/build-system/minify.scm +++ b/guix/build-system/minify.scm @@ -44,8 +44,8 @@ (define (default-uglify-js) "Return the default package to minify JavaScript source files." ;; Lazily resolve the binding to avoid a circular dependency. - (let ((js-mod (resolve-interface '(gnu packages javascript)))) - (module-ref js-mod 'uglify-js))) + (let ((mod (resolve-interface '(gnu packages lisp-xyz)))) + (module-ref mod 'uglify-js))) (define* (lower name #:key source inputs native-inputs outputs system diff --git a/guix/build/asdf-build-system.scm b/guix/build/asdf-build-system.scm index dd6373b33a..1be2b3c5f0 100644 --- a/guix/build/asdf-build-system.scm +++ b/guix/build/asdf-build-system.scm @@ -79,7 +79,7 @@ valid." (let ((source (getcwd)) (target (source-directory out name)) (system-path (string-append out %system-install-prefix))) - (copy-recursively source target) + (copy-recursively source target #:keep-mtime? #t) (mkdir-p system-path) (for-each (lambda (file) diff --git a/guix/build/download.scm b/guix/build/download.scm index 53a144f126..0f2d5f402a 100644 --- a/guix/build/download.scm +++ b/guix/build/download.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2015 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr> ;;; @@ -28,6 +28,7 @@ #:use-module (guix build utils) #:use-module (guix progress) #:use-module (rnrs io ports) + #:use-module ((ice-9 binary-ports) #:select (unget-bytevector)) #:use-module (rnrs bytevectors) #:use-module (srfi srfi-1) #:use-module (srfi srfi-11) @@ -154,20 +155,12 @@ out if the connection could not be established in less than TIMEOUT seconds." ;; be bound if we need them, because (guix download) adds GnuTLS as an ;; input in that case. -;; XXX: Use this hack instead of #:autoload to avoid compilation errors. -;; See <http://bugs.gnu.org/12202>. -(module-autoload! (current-module) - '(gnutls) - '(make-session connection-end/client)) - -(define %tls-ports - ;; Mapping of session record ports to the underlying file port. - (make-weak-key-hash-table)) - -(define (register-tls-record-port record-port port) - "Hold a weak reference from RECORD-PORT to PORT, where RECORD-PORT is a TLS -session record port using PORT as its underlying communication port." - (hashq-set! %tls-ports record-port port)) +(define (load-gnutls) + ;; XXX: Use this hack instead of #:autoload to avoid compilation errors. + ;; See <http://bugs.gnu.org/12202>. + (module-use! (resolve-module '(guix build download)) + (resolve-interface '(gnutls))) + (set! load-gnutls (const #t))) (define %x509-certificate-directory ;; The directory where X.509 authority PEM certificates are stored. @@ -253,6 +246,7 @@ host name without trailing dot." (format (current-error-port) "gnutls: [~a|~a] ~a" (getpid) level str)) + (load-gnutls) (let ((session (make-session connection-end/client)) (ca-certs (%x509-certificate-directory))) @@ -311,17 +305,40 @@ host name without trailing dot." (apply throw args)))) (let ((record (session-record-port session))) - ;; Since we use `fileno' above, the file descriptor behind PORT would be - ;; closed when PORT is GC'd. If we used `port->fdes', it would instead - ;; never be closed. So we use `fileno', but keep a weak reference to - ;; PORT, so the file descriptor gets closed when RECORD is GC'd. - (register-tls-record-port record port) - - ;; Write HTTP requests line by line rather than byte by byte: - ;; <https://bugs.gnu.org/22966>. This is possible with Guile >= 2.2. - (setvbuf record 'line) - - record))) + (define (read! bv start count) + (define read-bv (get-bytevector-some record)) + (if (eof-object? read-bv) + 0 ; read! returns 0 on eof-object + (let ((read-bv-len (bytevector-length read-bv))) + (bytevector-copy! read-bv 0 bv start (min read-bv-len count)) + (when (< count read-bv-len) + (unget-bytevector record bv count (- read-bv-len count))) + read-bv-len))) + (define (write! bv start count) + (put-bytevector record bv start count) + (force-output record) + count) + (define (get-position) + (port-position record)) + (define (set-position! new-position) + (set-port-position! record new-position)) + (define (close) + (unless (port-closed? port) + (close-port port)) + (unless (port-closed? record) + (close-port record))) + + (setvbuf record 'block) + + ;; Return a port that wraps RECORD to ensure that closing it also + ;; closes PORT, the actual socket port, and its file descriptor. + ;; XXX: This wrapper would be unnecessary if GnuTLS could + ;; automatically close SESSION's file descriptor when RECORD is + ;; closed, but that doesn't seem to be possible currently (as of + ;; 3.6.9). + (make-custom-binary-input/output-port "gnutls wrapped port" read! write! + get-position set-position! + close)))) (define (ensure-uri uri-or-string) ;XXX: copied from (web http) (cond @@ -429,16 +446,9 @@ VERIFY-CERTIFICATE? is true, verify HTTPS server certificates." #:verify-certificate? verify-certificate?) s))))) -(define (close-connection port) - "Like 'close-port', but (1) idempotent, and (2) also closes the underlying -port if PORT is a TLS session record port." - ;; FIXME: This is a partial workaround for <http://bugs.gnu.org/20145>, - ;; because 'http-fetch' & co. may return a chunked input port whose 'close' - ;; method calls 'close-port', not 'close-connection'. +(define (close-connection port) ;deprecated (unless (port-closed? port) - (close-port port)) - (and=> (hashq-ref %tls-ports port) - close-connection)) + (close-port port))) ;; XXX: This is an awful hack to make sure the (set-port-encoding! p ;; "ISO-8859-1") call in `read-response' passes, even during bootstrap diff --git a/guix/channels.scm b/guix/channels.scm index 826ee729ad..f0261dc2da 100644 --- a/guix/channels.scm +++ b/guix/channels.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2018, 2019 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2019 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; @@ -36,7 +36,8 @@ #:use-module (guix i18n) #:use-module ((guix utils) #:select (source-properties->location - &error-location)) + &error-location + &fix-hint)) #:use-module (srfi srfi-1) #:use-module (srfi srfi-2) #:use-module (srfi srfi-9) @@ -457,6 +458,9 @@ INSTANCES." (raise (apply make-compound-condition (condition (&message (message "'guix' channel is lacking"))) + (condition + (&fix-hint (hint (G_ "Make sure your list of channels +contains one channel named @code{guix} providing the core of Guix.")))) (if loc (list (condition (&error-location (location loc)))) '()))))) diff --git a/guix/gexp.scm b/guix/gexp.scm index cacc2bf183..8fea42c757 100644 --- a/guix/gexp.scm +++ b/guix/gexp.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org> ;;; Copyright © 2018 Jan Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com> @@ -79,6 +79,9 @@ file-append-base file-append-suffix + raw-derivation-file + raw-derivation-file? + load-path-expression gexp-modules @@ -265,6 +268,29 @@ The expander specifies how an object is converted to its sexp representation." (with-monad %store-monad (return drv))) +;; Expand to a raw ".drv" file for the lowerable object it wraps. In other +;; words, this gives the raw ".drv" file instead of its build result. +(define-record-type <raw-derivation-file> + (raw-derivation-file obj) + raw-derivation-file? + (obj raw-derivation-file-object)) ;lowerable object + +(define-gexp-compiler raw-derivation-file-compiler <raw-derivation-file> + compiler => (lambda (obj system target) + (mlet %store-monad ((obj (lower-object + (raw-derivation-file-object obj) + system #:target target))) + ;; Returning the .drv file name instead of the <derivation> + ;; record ensures that 'lower-gexp' will classify it as a + ;; "source" and not as an "input". + (return (if (derivation? obj) + (derivation-file-name obj) + obj)))) + expander => (lambda (obj lowered output) + (if (derivation? lowered) + (derivation-file-name lowered) + lowered))) + ;;; ;;; File declarations. @@ -1597,7 +1623,12 @@ imported modules in its search path. Look up EXP's modules in MODULE-PATH." (chmod port #o555)))) #:system system #:target target - #:module-path module-path))) + #:module-path module-path + + ;; These derivations are not worth offloading or + ;; substituting. + #:local-build? #t + #:substitutable? #f))) (define* (gexp->file name exp #:key (set-load-path? #t) diff --git a/guix/git.scm b/guix/git.scm index 83af596ef5..a12f1eec8e 100644 --- a/guix/git.scm +++ b/guix/git.scm @@ -1,6 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com> -;;; Copyright © 2018, 2019 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -48,11 +48,6 @@ git-checkout-url git-checkout-branch)) -;; XXX: Use this hack instead of #:autoload to avoid compilation errors. -;; See <http://bugs.gnu.org/12202>. -(module-autoload! (current-module) - '(git submodule) '(repository-submodules)) - (define %repository-cache-directory (make-parameter (string-append (cache-directory #:ensure? #f) "/checkouts"))) @@ -200,11 +195,23 @@ dynamic extent of EXP." (call-with-repository directory (lambda (repository) exp ...))) +(define (load-git-submodules) + "Attempt to load (git submodules), which was missing until Guile-Git 0.2.0. +Return true on success, false on failure." + (match (false-if-exception (resolve-interface '(git submodule))) + (#f + (set! load-git-submodules (const #f)) + #f) + (iface + (module-use! (resolve-module '(guix git)) iface) + (set! load-git-submodules (const #t)) + #t))) + (define* (update-submodules repository #:key (log-port (current-error-port))) "Update the submodules of REPOSITORY, a Git repository object." ;; Guile-Git < 0.2.0 did not have (git submodule). - (if (false-if-exception (resolve-interface '(git submodule))) + (if (load-git-submodules) (for-each (lambda (name) (let ((submodule (submodule-lookup repository name))) (format log-port (G_ "updating submodule '~a'...~%") diff --git a/guix/http-client.scm b/guix/http-client.scm index 067002a79a..5a5a33b4c0 100644 --- a/guix/http-client.scm +++ b/guix/http-client.scm @@ -70,14 +70,13 @@ (define* (http-fetch uri #:key port (text? #f) (buffered? #t) - keep-alive? (verify-certificate? #t) + (verify-certificate? #t) (headers '((user-agent . "GNU Guile")))) "Return an input port containing the data at URI, and the expected number of bytes available or #f. If TEXT? is true, the data at URI is considered to be textual. Follow any HTTP redirection. When BUFFERED? is #f, return an -unbuffered port, suitable for use in `filtered-port'. When KEEP-ALIVE? is -true, send a 'Connection: keep-alive' HTTP header, in which case PORT may be -reused for future HTTP requests. HEADERS is an alist of extra HTTP headers. +unbuffered port, suitable for use in `filtered-port'. HEADERS is an alist of +extra HTTP headers. When VERIFY-CERTIFICATE? is true, verify HTTPS server certificates. @@ -100,7 +99,11 @@ Raise an '&http-get-error' condition if downloading fails." (setvbuf port 'none)) (let*-values (((resp data) (http-get uri #:streaming? #t #:port port - #:keep-alive? #t + ;; XXX: When #:keep-alive? is true, if DATA is + ;; a chunked-encoding port, closing DATA won't + ;; close PORT, leading to a file descriptor + ;; leak. + #:keep-alive? #f #:headers headers)) ((code) (response-code resp))) diff --git a/guix/import/cran.scm b/guix/import/cran.scm index f3f1747e43..13771ec598 100644 --- a/guix/import/cran.scm +++ b/guix/import/cran.scm @@ -1,6 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2015, 2016, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net> -;;; Copyright © 2015, 2016, 2017, 2019 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2015, 2016, 2017, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com> ;;; ;;; This file is part of GNU Guix. @@ -161,7 +161,10 @@ release." ;; alist of attributes. (map (lambda (chunk) (description->alist (string-join chunk "\n"))) - (chunk-lines (read-lines (http-fetch/cached url))))))) + (let* ((port (http-fetch/cached url)) + (lines (read-lines port))) + (close-port port) + (chunk-lines lines)))))) (define* (latest-bioconductor-package-version name #:optional type) "Return the version string corresponding to the latest release of the @@ -206,7 +209,10 @@ from ~s: ~a (~s)~%" (http-get-error-code c) (http-get-error-reason c)) #f)) - (description->alist (read-string (http-fetch url)))))) + (let* ((port (http-fetch url)) + (result (description->alist (read-string port)))) + (close-port port) + result)))) ((bioconductor) ;; Currently, the bioconductor project does not offer a way to access a ;; package's DESCRIPTION file over HTTP, so we determine the version, diff --git a/guix/import/crate.scm b/guix/import/crate.scm index 4c3f8000d0..405a26a877 100644 --- a/guix/import/crate.scm +++ b/guix/import/crate.scm @@ -231,10 +231,13 @@ latest version of CRATE-NAME." string->license)) (append cargo-inputs cargo-development-inputs))))) -(define (crate-recursive-import crate-name) +(define* (crate-recursive-import crate-name #:optional version) (recursive-import crate-name #f - #:repo->guix-package (lambda (name repo) - (crate->guix-package name)) + #:repo->guix-package + (lambda (name repo) + (let ((version (and (string=? name crate-name) + version))) + (crate->guix-package name version))) #:guix-name crate-name->package-name)) (define (guix-package->crate-name package) diff --git a/guix/lint.scm b/guix/lint.scm index cd2ea571ed..ed2f06bc64 100644 --- a/guix/lint.scm +++ b/guix/lint.scm @@ -1,7 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2014 Cyril Roelandt <tipecaml@gmail.com> ;;; Copyright © 2014, 2015 Eric Bavier <bavier@member.fsf.org> -;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2015, 2016 Mathieu Lirzin <mthl@gnu.org> ;;; Copyright © 2016 Danny Milosavljevic <dannym+a@scratchpost.org> ;;; Copyright © 2016 Hartmut Goebel <h.goebel@crazy-compilers.com> @@ -26,7 +26,7 @@ ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. (define-module (guix lint) - #:use-module ((guix store) #:hide (close-connection)) + #:use-module (guix store) #:use-module (guix base32) #:use-module (guix diagnostics) #:use-module (guix download) @@ -45,7 +45,8 @@ #:use-module (guix gnu-maintenance) #:use-module (guix cve) #:use-module ((guix swh) #:hide (origin?)) - #:autoload (guix git-download) (git-reference?) + #:autoload (guix git-download) (git-reference? + git-reference-url git-reference-commit) #:use-module (ice-9 match) #:use-module (ice-9 regex) #:use-module (ice-9 format) @@ -54,8 +55,7 @@ #:use-module ((guix build download) #:select (maybe-expand-mirrors (open-connection-for-uri - . guix:open-connection-for-uri) - close-connection)) + . guix:open-connection-for-uri))) #:use-module (web request) #:use-module (web response) #:use-module (srfi srfi-1) @@ -286,11 +286,24 @@ of a package, and INPUT-NAMES, a list of package specifications such as (let ((inputs (package-inputs package)) (input-names '("pkg-config" + "autoconf" + "automake" + "bison" "cmake" + "dejagnu" + "desktop-file-utils" + "doxygen" "extra-cmake-modules" + "flex" + "gettext" "glib:bin" + "gobject-introspection" + "googletest-source" + "groff" + "help2man" "intltool" "itstool" + "libtool" "qttools" "yasm" "nasm" "fasm" "python-coverage" "python2-coverage" @@ -302,7 +315,13 @@ of a package, and INPUT-NAMES, a list of package specifications such as "python-pytest" "python2-pytest" "python-pytest-cov" "python2-pytest-cov" "python-setuptools-scm" "python2-setuptools-scm" - "python-sphinx" "python2-sphinx"))) + "python-sphinx" "python2-sphinx" + "swig" + "qmake" + "qttools" + "texinfo" + "xorg-server-for-tests" + "yelp-tools"))) (map (lambda (input) (make-warning package @@ -453,7 +472,7 @@ for connections to complete; when TIMEOUT is #f, wait as long as needed." (force-output port) (read-response port)) (lambda () - (close-connection port)))) + (close-port port)))) (case (response-code response) ((302 ; found (redirection) diff --git a/guix/scripts/build.scm b/guix/scripts/build.scm index a853ac6c7d..bf307d1421 100644 --- a/guix/scripts/build.scm +++ b/guix/scripts/build.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013 Mark H Weaver <mhw@netris.org> ;;; ;;; This file is part of GNU Guix. @@ -43,10 +43,10 @@ #:use-module (srfi srfi-26) #:use-module (srfi srfi-34) #:use-module (srfi srfi-37) - #:autoload (gnu packages) (specification->package %package-module-path) + #:use-module (gnu packages) #:autoload (guix download) (download-to-store) - #:autoload (guix git-download) (git-reference?) - #:autoload (guix git) (git-checkout?) + #:autoload (guix git-download) (git-reference? git-reference-url) + #:autoload (guix git) (git-checkout git-checkout? git-checkout-url) #:use-module ((guix status) #:select (with-status-verbosity)) #:use-module ((guix progress) #:select (current-terminal-columns)) #:use-module ((guix build syscalls) #:select (terminal-columns)) diff --git a/guix/scripts/gc.scm b/guix/scripts/gc.scm index 3f20a2e192..ab7c13315f 100644 --- a/guix/scripts/gc.scm +++ b/guix/scripts/gc.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012, 2013, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2012, 2013, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -22,7 +22,9 @@ #:use-module (guix store) #:use-module (guix store roots) #:autoload (guix build syscalls) (free-disk-space) - #:autoload (guix profiles) (generation-profile) + #:autoload (guix profiles) (generation-profile + profile-generations + generation-number) #:autoload (guix scripts package) (delete-generations) #:use-module (ice-9 match) #:use-module (ice-9 regex) diff --git a/guix/scripts/import/crate.scm b/guix/scripts/import/crate.scm index 92034dab3c..d834518c18 100644 --- a/guix/scripts/import/crate.scm +++ b/guix/scripts/import/crate.scm @@ -100,7 +100,7 @@ Import and convert the crate.io package for PACKAGE-NAME.\n")) `(define-public ,(string->symbol name) ,pkg)) (_ #f)) - (crate-recursive-import name)) + (crate-recursive-import name version)) (let ((sexp (crate->guix-package name version))) (unless sexp (leave (G_ "failed to download meta-data for package '~a'~%") diff --git a/guix/scripts/pack.scm b/guix/scripts/pack.scm index b84e37cbf2..c8d8546e29 100644 --- a/guix/scripts/pack.scm +++ b/guix/scripts/pack.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2015, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2015, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2017, 2018 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2018 Konrad Hinsen <konrad.hinsen@fastmail.net> ;;; Copyright © 2018 Chris Marusich <cmmarusich@gmail.com> @@ -29,7 +29,9 @@ #:use-module ((guix status) #:select (with-status-verbosity)) #:use-module ((guix self) #:select (make-config.scm)) #:use-module (guix grafts) - #:autoload (guix inferior) (inferior-package?) + #:autoload (guix inferior) (inferior-package? + inferior-package-name + inferior-package-version) #:use-module (guix monads) #:use-module (guix modules) #:use-module (guix packages) diff --git a/guix/scripts/publish.scm b/guix/scripts/publish.scm index 8fb67f9268..71a349d2fe 100644 --- a/guix/scripts/publish.scm +++ b/guix/scripts/publish.scm @@ -1,6 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2015 David Thompson <davet@gnu.org> -;;; Copyright © 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -51,7 +51,9 @@ #:use-module (guix store) #:use-module ((guix serialization) #:select (write-file)) #:use-module (guix zlib) - #:autoload (guix lzlib) (lzlib-available?) + #:autoload (guix lzlib) (lzlib-available? + call-with-lzip-output-port + make-lzip-output-port) #:use-module (guix cache) #:use-module (guix ui) #:use-module (guix scripts) diff --git a/guix/scripts/pull.scm b/guix/scripts/pull.scm index 04cc51829d..cb1be989e1 100644 --- a/guix/scripts/pull.scm +++ b/guix/scripts/pull.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2013, 2014, 2015, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2013, 2014, 2015, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com> ;;; ;;; This file is part of GNU Guix. @@ -33,7 +33,9 @@ #:use-module (guix memoization) #:use-module (guix monads) #:use-module (guix channels) - #:autoload (guix inferior) (open-inferior) + #:autoload (guix inferior) (open-inferior + inferior-available-packages + close-inferior) #:use-module (guix scripts build) #:autoload (guix build utils) (which) #:use-module ((guix build syscalls) diff --git a/guix/scripts/substitute.scm b/guix/scripts/substitute.scm index 7eca2c6874..3bf9b8735f 100755 --- a/guix/scripts/substitute.scm +++ b/guix/scripts/substitute.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2014 Nikita Karetnikov <nikita@karetnikov.org> ;;; Copyright © 2018 Kyle Meyer <kyle@kyleam.com> ;;; @@ -20,7 +20,7 @@ (define-module (guix scripts substitute) #:use-module (guix ui) - #:use-module ((guix store) #:hide (close-connection)) + #:use-module (guix store) #:use-module (guix utils) #:use-module (guix combinators) #:use-module (guix config) @@ -37,7 +37,6 @@ #:select (uri-abbreviation nar-uri-abbreviation (open-connection-for-uri . guix:open-connection-for-uri) - close-connection store-path-abbreviation byte-count->string)) #:use-module (guix progress) #:use-module ((guix build syscalls) @@ -556,7 +555,7 @@ initial connection on which HTTP requests are sent." ;; Note that even upon "Connection: close", we can read from BODY. (match (assq 'connection (response-headers resp)) (('connection 'close) - (close-connection p) + (close-port p) (connect #f ;try again (append tail (drop requests processed)) result)) diff --git a/guix/ui.scm b/guix/ui.scm index 540671f3dd..023e604085 100644 --- a/guix/ui.scm +++ b/guix/ui.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013, 2018 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2013 Nikita Karetnikov <nikita@karetnikov.org> ;;; Copyright © 2014 Cyril Roelandt <tipecaml@gmail.com> @@ -494,7 +494,7 @@ See the \"Application Setup\" section in the manual, for more info.\n"))))) "Display version information for COMMAND and `(exit 0)'." (simple-format #t "~a (~a) ~a~%" command %guix-package-name %guix-version) - (format #t "Copyright ~a 2019 ~a" + (format #t "Copyright ~a 2020 ~a" ;; TRANSLATORS: Translate "(C)" to the copyright symbol ;; (C-in-a-circle), if this symbol is available in the user's ;; locale. Otherwise, do not translate "(C)"; leave it as-is. */ diff --git a/guix/utils.scm b/guix/utils.scm index 728039fbf0..3e8e59b8dc 100644 --- a/guix/utils.scm +++ b/guix/utils.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013, 2014, 2015 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2014 Ian Denhardt <ian@zenhack.net> @@ -31,16 +31,13 @@ #:use-module (srfi srfi-26) #:use-module (srfi srfi-35) #:use-module (srfi srfi-39) - #:use-module (ice-9 binary-ports) #:use-module (ice-9 ftw) - #:autoload (rnrs io ports) (make-custom-binary-input-port) + #:use-module (rnrs io ports) ;need 'port-position' etc. #:use-module ((rnrs bytevectors) #:select (bytevector-u8-set!)) #:use-module (guix memoization) #:use-module ((guix build utils) #:select (dump-port mkdir-p delete-file-recursively)) #:use-module ((guix build syscalls) #:select (mkdtemp! fdatasync)) #:use-module (ice-9 format) - #:autoload (ice-9 popen) (open-pipe*) - #:autoload (ice-9 rdelim) (read-line) #:use-module (ice-9 regex) #:use-module (ice-9 match) #:use-module (ice-9 format) diff --git a/tests/gexp.scm b/tests/gexp.scm index 8b1596f66d..7c8985d846 100644 --- a/tests/gexp.scm +++ b/tests/gexp.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -879,6 +879,17 @@ (eq? (derivation-input-derivation (lowered-gexp-guile lexp)) (%guile-for-build))))))) +(test-assertm "lower-gexp, raw-derivation-file" + (mlet* %store-monad ((thing -> (program-file "prog" #~(display "hi!"))) + (exp -> #~(list #$(raw-derivation-file thing))) + (drv (lower-object thing)) + (lexp (lower-gexp exp #:effective-version "2.0"))) + (return (and (equal? `(list ,(derivation-file-name drv)) + (lowered-gexp-sexp lexp)) + (equal? (list (derivation-file-name drv)) + (lowered-gexp-sources lexp)) + (null? (lowered-gexp-inputs lexp)))))) + (test-eq "lower-gexp, non-self-quoting input" + (guard (c ((gexp-input-error? c) @@ -1157,6 +1168,24 @@ (equal? `(list "foo" ,text) (call-with-input-file out read))))))))) +(test-assertm "raw-derivation-file" + (let* ((exp #~(let ((drv #$(raw-derivation-file coreutils))) + (when (file-exists? drv) + (symlink drv #$output))))) + (mlet* %store-monad ((dep (lower-object coreutils)) + (drv (gexp->derivation "drv-ref" exp)) + (out -> (derivation->output-path drv))) + (mbegin %store-monad + (built-derivations (list drv)) + (mlet %store-monad ((refs (references* out))) + (return (and (member (derivation-file-name dep) + (derivation-sources drv)) + (not (member (derivation-file-name dep) + (map derivation-input-path + (derivation-inputs drv)))) + (equal? (readlink out) (derivation-file-name dep)) + (equal? refs (list (derivation-file-name dep)))))))))) + (test-assert "text-file*" (run-with-store %store (mlet* %store-monad |