nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge branch 'master' into core-updates

This commit is contained in:
Mark H Weaver 2018-03-20 00:49:05 -04:00
parent fe15613cdf c657716ede
commit 647888845c
No known key found for this signature in database
GPG Key ID: 7CEF29847562C516
100 changed files with 1294 additions and 694 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
doc/guix.texi
View File

@ -10479,7 +10479,7 @@ gexps to introduce job definitions that are passed to mcron
for more information on mcron job specifications. Below is the for more information on mcron job specifications. Below is the
reference of the mcron service. reference of the mcron service.
@deffn {Scheme Procedure} mcron-service @var{jobs} [#:mcron @var{mcron2}] @deffn {Scheme Procedure} mcron-service @var{jobs} [#:mcron @var{mcron}]
Return an mcron service running @var{mcron} that schedules @var{jobs}, a Return an mcron service running @var{mcron} that schedules @var{jobs}, a
list of gexps denoting mcron job specifications. list of gexps denoting mcron job specifications.
@ -10504,7 +10504,7 @@ mcron jobs to run.
Data type representing the configuration of mcron. Data type representing the configuration of mcron.
@table @asis @table @asis
@item @code{mcron} (default: @var{mcron2}) @item @code{mcron} (default: @var{mcron})
The mcron package to use. The mcron package to use.
@item @code{jobs} @item @code{jobs}
@ -11158,6 +11158,23 @@ server. Alternately, one can specify the @command{sftp-server} command:
`(("sftp" ,(file-append openssh "/libexec/sftp-server")))))) `(("sftp" ,(file-append openssh "/libexec/sftp-server"))))))
@end example @end example
@item @code{accepted-environment} (default: @code{'()})
List of strings describing which environment variables may be exported.
Each string gets on its own line. See the @code{AcceptEnv} option in
@code{man sshd_config}.
This example allows ssh-clients to export the @code{COLORTERM} variable.
It is set by terminal emulators, which support colors. You can use it in
your shell's ressource file to enable colors for the prompt and commands
if this variable is set.
@example
(service openssh-service-type
(openssh-configuration
(accepted-environment '("COLORTERM"))))
@end example
@item @code{authorized-keys} (default: @code{'()}) @item @code{authorized-keys} (default: @code{'()})
@cindex authorized keys, SSH @cindex authorized keys, SSH
@cindex SSH authorized keys @cindex SSH authorized keys

19
gnu/build/linux-modules.scm
View File

@ -206,7 +206,9 @@ appears in BLACK-LIST are not loaded."
(define (load-dependencies file) (define (load-dependencies file)
(let ((dependencies (module-dependencies file))) (let ((dependencies (module-dependencies file)))
(every (cut load-linux-module* <> #:lookup-module lookup-module) (every (cut load-linux-module* <>
#:lookup-module lookup-module
#:black-list black-list)
(map lookup-module dependencies)))) (map lookup-module dependencies))))
(and (not (black-listed? (file-name->module-name file))) (and (not (black-listed? (file-name->module-name file)))
@ -327,7 +329,7 @@ The modules corresponding to these aliases can then be found using
list of alias/module pairs where each alias is a glob pattern as like the list of alias/module pairs where each alias is a glob pattern as like the
result of: result of:
(compile-glob-pattern \"scsi:t-0x01*\") (string->compiled-sglob \"scsi:t-0x01*\")
and each module is a module name like \"snd_hda_intel\"." and each module is a module name like \"snd_hda_intel\"."
(define (comment? str) (define (comment? str)
@ -352,17 +354,20 @@ and each module is a module name like \"snd_hda_intel\"."
(line (line
(match (tokenize line) (match (tokenize line)
(("alias" alias module) (("alias" alias module)
(loop (alist-cons (compile-glob-pattern alias) module (loop (alist-cons (string->compiled-sglob alias) module
aliases))) aliases)))
(() ;empty line (() ;empty line
(loop aliases))))))) (loop aliases)))))))
(define (current-alias-file) (define (current-kernel-directory)
"Return the absolute file name of the default 'modules.alias' file." "Return the directory of the currently running Linux kernel."
(string-append (or (getenv "LINUX_MODULE_DIRECTORY") (string-append (or (getenv "LINUX_MODULE_DIRECTORY")
"/run/booted-system/kernel/lib/modules") "/run/booted-system/kernel/lib/modules")
"/" (utsname:release (uname)) "/" (utsname:release (uname))))
"/" "modules.alias"))
(define (current-alias-file)
"Return the absolute file name of the default 'modules.alias' file."
(string-append (current-kernel-directory) "/modules.alias"))
(define* (known-module-aliases #:optional (alias-file (current-alias-file))) (define* (known-module-aliases #:optional (alias-file (current-alias-file)))
"Return the list of alias/module pairs read from ALIAS-FILE. Each alias is "Return the list of alias/module pairs read from ALIAS-FILE. Each alias is

3
gnu/local.mk
View File

@ -411,6 +411,7 @@ GNU_SYSTEM_MODULES = \
%D%/packages/tcl.scm \ %D%/packages/tcl.scm \
%D%/packages/telephony.scm \ %D%/packages/telephony.scm \
%D%/packages/terminals.scm \ %D%/packages/terminals.scm \
%D%/packages/terraform.scm \
%D%/packages/texinfo.scm \ %D%/packages/texinfo.scm \
%D%/packages/tex.scm \ %D%/packages/tex.scm \
%D%/packages/textutils.scm \ %D%/packages/textutils.scm \
@ -787,6 +788,7 @@ dist_patch_DATA = \
%D%/packages/patches/jacal-fix-texinfo.patch \ %D%/packages/patches/jacal-fix-texinfo.patch \
%D%/packages/patches/java-jeromq-fix-tests.patch \ %D%/packages/patches/java-jeromq-fix-tests.patch \
%D%/packages/patches/java-powermock-fix-java-files.patch \ %D%/packages/patches/java-powermock-fix-java-files.patch \
%D%/packages/patches/java-simple-xml-fix-tests.patch \
%D%/packages/patches/java-xerces-bootclasspath.patch \ %D%/packages/patches/java-xerces-bootclasspath.patch \
%D%/packages/patches/java-xerces-build_dont_unzip.patch \ %D%/packages/patches/java-xerces-build_dont_unzip.patch \
%D%/packages/patches/java-xerces-xjavac_taskdef.patch \ %D%/packages/patches/java-xerces-xjavac_taskdef.patch \
@ -858,7 +860,6 @@ dist_patch_DATA = \
%D%/packages/patches/libssh2-fix-build-failure-with-gcrypt.patch \ %D%/packages/patches/libssh2-fix-build-failure-with-gcrypt.patch \
%D%/packages/patches/libtar-CVE-2013-4420.patch \ %D%/packages/patches/libtar-CVE-2013-4420.patch \
%D%/packages/patches/libtheora-config-guess.patch \ %D%/packages/patches/libtheora-config-guess.patch \
%D%/packages/patches/libtirpc-missing-headers.patch \
%D%/packages/patches/libtiff-CVE-2017-9935.patch \ %D%/packages/patches/libtiff-CVE-2017-9935.patch \
%D%/packages/patches/libtiff-CVE-2017-18013.patch \ %D%/packages/patches/libtiff-CVE-2017-18013.patch \
%D%/packages/patches/libtool-skip-tests2.patch \ %D%/packages/patches/libtool-skip-tests2.patch \

2
gnu/packages/android.scm
View File

@ -457,7 +457,7 @@ def _FindRepo():
;; TODO: Add git-remote-persistent-https once it is available in guix ;; TODO: Add git-remote-persistent-https once it is available in guix
`(("git" ,git) `(("git" ,git)
("gnupg" ,gnupg) ("gnupg" ,gnupg)
("ssh", openssh))) ("ssh" ,openssh)))
(native-inputs (native-inputs
`(("nose" ,python2-nose))) `(("nose" ,python2-nose)))
(home-page "https://code.google.com/p/git-repo/") (home-page "https://code.google.com/p/git-repo/")

16
gnu/packages/avahi.scm
View File

@ -99,10 +99,18 @@ DNS-SD (for \"DNS-Based Service Discovery\") protocols.")
(method url-fetch)))))) (method url-fetch))))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
;; The Avahi daemon socket is expected by src/Makefile.am to be at '(#:phases (modify-phases %standard-phases
;; "$(localstatedir)/run/avahi-daemon/socket", so set $(localstatedir) (add-after 'unpack 'set-avahi-socket-name
;; appropriately. (lambda _
'(#:configure-flags '("--localstatedir=/var"))) ;; The Avahi daemon socket is expected by
;; src/Makefile.am to be at
;; "$(localstatedir)/run/avahi-daemon/socket", but
;; nowadays it lives in /run/avahi-daemon/socket.
;; Remove the "$(localstatedir)" bit.
(substitute* "src/Makefile.in"
(("\\$\\(localstatedir)/run/avahi-daemon/socket")
"/run/avahi-daemon/socket"))
#t)))))
(synopsis "Multicast DNS Name Service Switch (@dfn{NSS}) plug-in") (synopsis "Multicast DNS Name Service Switch (@dfn{NSS}) plug-in")
(description (description
"Nss-mdns is a plug-in for the GNU C Library's Name Service Switch "Nss-mdns is a plug-in for the GNU C Library's Name Service Switch

5
gnu/packages/bash.scm
View File

@ -3,6 +3,7 @@
;;; Copyright © 2014, 2015, 2018 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2014, 2015, 2018 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2015, 2017 Leo Famulari <leo@famulari.name> ;;; Copyright © 2015, 2017 Leo Famulari <leo@famulari.name>
;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -269,7 +270,7 @@ without modification.")
(define-public bash-completion (define-public bash-completion
(package (package
(name "bash-completion") (name "bash-completion")
(version "2.7") (version "2.8")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append (uri (string-append
@ -277,7 +278,7 @@ without modification.")
version "/" name "-" version ".tar.xz")) version "/" name "-" version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"07j484vb3k90f4989xh1g1x99g01akrp69p3dml4lza27wnqkfj1")) "0kgmflrr1ga9wfk770vmakna3nj46ylb5ky9ipd0v2k9ymq5a7y0"))
(patches (patches
(search-patches "bash-completion-directories.patch")))) (search-patches "bash-completion-directories.patch"))))
(build-system gnu-build-system) (build-system gnu-build-system)

60
gnu/packages/bioinformatics.scm
View File

@ -8448,7 +8448,7 @@ paired-end data.")
("r-testthat" ,r-testthat) ("r-testthat" ,r-testthat)
;; During vignette building knitr checks that "pandoc-citeproc" ;; During vignette building knitr checks that "pandoc-citeproc"
;; is in the PATH. ;; is in the PATH.
("ghc-pandoc-citeproc" ,ghc-pandoc-citeproc))) ("ghc-pandoc-citeproc" ,ghc-pandoc-citeproc-with-pandoc-1)))
(propagated-inputs (propagated-inputs
`(("r-data-table" ,r-data-table) `(("r-data-table" ,r-data-table)
("r-biomart" ,r-biomart) ("r-biomart" ,r-biomart)
@ -11521,7 +11521,7 @@ Browser.")
(delete 'configure) (delete 'configure)
(delete 'build) (delete 'build)
(replace 'install (replace 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let ((bin (string-append (assoc-ref outputs "out") (let ((bin (string-append (assoc-ref outputs "out")
"/bin")) "/bin"))
(docdir (string-append (assoc-ref outputs "out") (docdir (string-append (assoc-ref outputs "out")
@ -11544,7 +11544,16 @@ Browser.")
scripts) scripts)
(for-each (lambda (file) (install-file file docdir)) (for-each (lambda (file) (install-file file docdir))
docs) docs)
;; Fix references to gunzip
(substitute* (map (lambda (file)
(string-append bin "/" file))
scripts)
(("\"gunzip -c")
(string-append "\"" (assoc-ref inputs "gzip")
"/bin/gunzip -c")))
#t)))))) #t))))))
(inputs
`(("gzip" ,gzip)))
(home-page "http://www.bioinformatics.babraham.ac.uk/projects/bismark/") (home-page "http://www.bioinformatics.babraham.ac.uk/projects/bismark/")
(synopsis "Map bisulfite treated sequence reads and analyze methylation") (synopsis "Map bisulfite treated sequence reads and analyze methylation")
(description "Bismark is a program to map bisulfite treated sequencing (description "Bismark is a program to map bisulfite treated sequencing
@ -12729,8 +12738,8 @@ once. This package provides tools to perform Drop-seq analyses.")
("r-rtracklayer" ,r-rtracklayer) ("r-rtracklayer" ,r-rtracklayer)
("r-rjson" ,r-rjson) ("r-rjson" ,r-rjson)
("salmon" ,salmon) ("salmon" ,salmon)
("ghc-pandoc" ,ghc-pandoc) ("ghc-pandoc" ,ghc-pandoc-1)
("ghc-pandoc-citeproc" ,ghc-pandoc-citeproc) ("ghc-pandoc-citeproc" ,ghc-pandoc-citeproc-with-pandoc-1)
("python-wrapper" ,python-wrapper) ("python-wrapper" ,python-wrapper)
("python-pyyaml" ,python-pyyaml))) ("python-pyyaml" ,python-pyyaml)))
(home-page "http://bioinformatics.mdc-berlin.de/pigx/") (home-page "http://bioinformatics.mdc-berlin.de/pigx/")
@ -12746,7 +12755,7 @@ expression report comparing samples in an easily configurable manner.")
(define-public pigx-chipseq (define-public pigx-chipseq
(package (package
(name "pigx-chipseq") (name "pigx-chipseq")
(version "0.0.2") (version "0.0.8")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://github.com/BIMSBbioinfo/pigx_chipseq/" (uri (string-append "https://github.com/BIMSBbioinfo/pigx_chipseq/"
@ -12754,10 +12763,11 @@ expression report comparing samples in an easily configurable manner.")
"/pigx_chipseq-" version ".tar.gz")) "/pigx_chipseq-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1jliwhifnjgl9x0z730bzpxswi2s84fyg5y8cagbyzpw509452f5")))) "1plw0bz0b7flj0g9irbn8n520005lmajkiq5flpizzapsl0a0r9g"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases `(#:tests? #f ; parts of the tests rely on access to the network
#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'install 'wrap-executable (add-after 'install 'wrap-executable
;; Make sure the executable finds all R modules. ;; Make sure the executable finds all R modules.
@ -12782,13 +12792,16 @@ expression report comparing samples in an easily configurable manner.")
("r-ggplot2" ,r-ggplot2) ("r-ggplot2" ,r-ggplot2)
("r-plotly" ,r-plotly) ("r-plotly" ,r-plotly)
("python-wrapper" ,python-wrapper) ("python-wrapper" ,python-wrapper)
("python-magic" ,python-magic)
("python-pyyaml" ,python-pyyaml) ("python-pyyaml" ,python-pyyaml)
("python-xlrd" ,python-xlrd)
("snakemake" ,snakemake) ("snakemake" ,snakemake)
("trim-galore" ,trim-galore)
("macs" ,macs) ("macs" ,macs)
("multiqc" ,multiqc) ("multiqc" ,multiqc)
("perl" ,perl) ("perl" ,perl)
("ghc-pandoc" ,ghc-pandoc) ("ghc-pandoc" ,ghc-pandoc-1)
("ghc-pandoc-citeproc" ,ghc-pandoc-citeproc) ("ghc-pandoc-citeproc" ,ghc-pandoc-citeproc-with-pandoc-1)
("fastqc" ,fastqc) ("fastqc" ,fastqc)
("bowtie" ,bowtie) ("bowtie" ,bowtie)
("idr" ,idr) ("idr" ,idr)
@ -12812,7 +12825,7 @@ in an easily configurable manner.")
(define-public pigx-bsseq (define-public pigx-bsseq
(package (package
(name "pigx-bsseq") (name "pigx-bsseq")
(version "0.0.5") (version "0.0.7")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://github.com/BIMSBbioinfo/pigx_bsseq/" (uri (string-append "https://github.com/BIMSBbioinfo/pigx_bsseq/"
@ -12820,7 +12833,7 @@ in an easily configurable manner.")
"/pigx_bsseq-" version ".tar.gz")) "/pigx_bsseq-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1h8ma99vi7hs83nafvjpq8jmaq9977j3n11c4zd95hai0cf7zxmp")))) "0pw797gxx6x1n56lyrvglj7q5hqq4ylfqkvlcrzq1z3j5lxcyl69"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases `(#:phases
@ -12844,7 +12857,10 @@ in an easily configurable manner.")
(native-inputs (native-inputs
`(("tzdata" ,tzdata))) `(("tzdata" ,tzdata)))
(inputs (inputs
`(("r-minimal" ,r-minimal) `(("coreutils" ,coreutils)
("sed" ,sed)
("grep" ,grep)
("r-minimal" ,r-minimal)
("r-annotationhub" ,r-annotationhub) ("r-annotationhub" ,r-annotationhub)
("r-dt" ,r-dt) ("r-dt" ,r-dt)
("r-genomation" ,r-genomation) ("r-genomation" ,r-genomation)
@ -12854,8 +12870,8 @@ in an easily configurable manner.")
("r-bookdown" ,r-bookdown) ("r-bookdown" ,r-bookdown)
("r-ggplot2" ,r-ggplot2) ("r-ggplot2" ,r-ggplot2)
("r-ggbio" ,r-ggbio) ("r-ggbio" ,r-ggbio)
("ghc-pandoc" ,ghc-pandoc) ("ghc-pandoc" ,ghc-pandoc-1)
("ghc-pandoc-citeproc" ,ghc-pandoc-citeproc) ("ghc-pandoc-citeproc" ,ghc-pandoc-citeproc-with-pandoc-1)
("python-wrapper" ,python-wrapper) ("python-wrapper" ,python-wrapper)
("python-pyyaml" ,python-pyyaml) ("python-pyyaml" ,python-pyyaml)
("snakemake" ,snakemake) ("snakemake" ,snakemake)
@ -12876,7 +12892,7 @@ methylation and segmentation.")
(define-public pigx-scrnaseq (define-public pigx-scrnaseq
(package (package
(name "pigx-scrnaseq") (name "pigx-scrnaseq")
(version "0.0.2") (version "0.0.3")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://github.com/BIMSBbioinfo/pigx_scrnaseq/" (uri (string-append "https://github.com/BIMSBbioinfo/pigx_scrnaseq/"
@ -12884,7 +12900,7 @@ methylation and segmentation.")
"/pigx_scrnaseq-" version ".tar.gz")) "/pigx_scrnaseq-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"03gwp83823ji59y6nvyz89i4yd3faaqpc3791qia71i91470vfsg")))) "12qdq0nj1wdkyighdxj6924bmbpd1a0b3gam6w64l4hiqrv5sijz"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:configure-flags `(#:configure-flags
@ -12903,7 +12919,9 @@ methylation and segmentation.")
`("PYTHONPATH" ":" = (,(getenv "PYTHONPATH"))))) `("PYTHONPATH" ":" = (,(getenv "PYTHONPATH")))))
#t))))) #t)))))
(inputs (inputs
`(("dropseq-tools" ,dropseq-tools) `(("coreutils" ,coreutils)
("perl" ,perl)
("dropseq-tools" ,dropseq-tools)
("fastqc" ,fastqc) ("fastqc" ,fastqc)
("java-picard" ,java-picard) ("java-picard" ,java-picard)
("java" ,icedtea-8) ("java" ,icedtea-8)
@ -12912,8 +12930,8 @@ methylation and segmentation.")
("python-pandas" ,python-pandas) ("python-pandas" ,python-pandas)
("python-numpy" ,python-numpy) ("python-numpy" ,python-numpy)
("python-loompy" ,python-loompy) ("python-loompy" ,python-loompy)
("ghc-pandoc" ,ghc-pandoc) ("ghc-pandoc" ,ghc-pandoc-1)
("ghc-pandoc-citeproc" ,ghc-pandoc-citeproc) ("ghc-pandoc-citeproc" ,ghc-pandoc-citeproc-with-pandoc-1)
("snakemake" ,snakemake) ("snakemake" ,snakemake)
("star" ,star) ("star" ,star)
("r-minimal" ,r-minimal) ("r-minimal" ,r-minimal)
@ -12953,7 +12971,7 @@ based methods.")
(define-public pigx (define-public pigx
(package (package
(name "pigx") (name "pigx")
(version "0.0.1") (version "0.0.2")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://github.com/BIMSBbioinfo/pigx/" (uri (string-append "https://github.com/BIMSBbioinfo/pigx/"
@ -12961,7 +12979,7 @@ based methods.")
"/pigx-" version ".tar.gz")) "/pigx-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1nxb2hbp40yg3j7n56k4dhsd2fl1j8g0wpiiln56prqzljwnlgmf")))) "0sb708sl42h3s5z872jb1w70bbqplwapnsc1wm27zcsvi7li4gw8"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs (inputs
`(("python" ,python) `(("python" ,python)

2
gnu/packages/bootloaders.scm
View File

@ -181,7 +181,7 @@ menu to select one of the installed operating systems.")
(synopsis "GRand Unified Boot loader (UEFI version)") (synopsis "GRand Unified Boot loader (UEFI version)")
(inputs (inputs
`(("efibootmgr" ,efibootmgr) `(("efibootmgr" ,efibootmgr)
("mtools", mtools) ("mtools" ,mtools)
,@(package-inputs grub))) ,@(package-inputs grub)))
(arguments (arguments
`(;; TODO: Tests need a UEFI firmware for qemu. There is one at `(;; TODO: Tests need a UEFI firmware for qemu. There is one at

2
gnu/packages/build-tools.scm
View File

@ -81,7 +81,7 @@ makes a few sacrifices to acquire fast full and incremental build times.")
(base32 (base32
"06r8limj38mv884s5riiz6lpzw37cvhbf9jd0smzcbi7fwmv3yah")))) "06r8limj38mv884s5riiz6lpzw37cvhbf9jd0smzcbi7fwmv3yah"))))
(build-system python-build-system) (build-system python-build-system)
(inputs `(("ninja", ninja))) (inputs `(("ninja" ,ninja)))
(propagated-inputs `(("python" ,python))) (propagated-inputs `(("python" ,python)))
(home-page "https://mesonbuild.com/") (home-page "https://mesonbuild.com/")
(synopsis "Build system designed to be fast and user-friendly") (synopsis "Build system designed to be fast and user-friendly")

4
gnu/packages/chemistry.scm
View File

@ -73,8 +73,8 @@ only with Python 2 and NumPy < 1.9.")
(build-system python-build-system) (build-system python-build-system)
(inputs (inputs
`(("python-matplotlib" ,(with-numpy-1.8 python2-matplotlib)) `(("python-matplotlib" ,(with-numpy-1.8 python2-matplotlib))
("python-scientific", python2-scientific) ("python-scientific" ,python2-scientific)
("netcdf", netcdf) ("netcdf" ,netcdf)
("gv" ,gv))) ("gv" ,gv)))
(propagated-inputs (propagated-inputs
`(("python-mmtk" ,python2-mmtk))) `(("python-mmtk" ,python2-mmtk)))

4
gnu/packages/code.scm
View File

@ -421,9 +421,9 @@ functionality such as HTML output.")
"0scjbp1z201q8njvrxqz7lk2m9b6k2rxd5q1shrng6532r7ndif2")))) "0scjbp1z201q8njvrxqz7lk2m9b6k2rxd5q1shrng6532r7ndif2"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
'(#:configure-flags '(#:build-type "RelWithDebInfo"
#:configure-flags
'("-DRTAGS_NO_ELISP_FILES=1" '("-DRTAGS_NO_ELISP_FILES=1"
"-DCMAKE_BUILD_TYPE=RelWithDebInfo"
"-DCMAKE_CXX_FLAGS=-std=c++11" "-DCMAKE_CXX_FLAGS=-std=c++11"
"-DBUILD_TESTING=FALSE") "-DBUILD_TESTING=FALSE")
#:tests? #f)) #:tests? #f))

21
gnu/packages/compression.scm
View File

@ -1661,7 +1661,7 @@ speed.")
(source (package-source zstd)) (source (package-source zstd))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
`(("googletest", googletest))) `(("googletest" ,googletest)))
(arguments (arguments
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
@ -1800,16 +1800,15 @@ recreates the stored directory structure by default.")
(define-public zziplib (define-public zziplib
(package (package
(name "zziplib") (name "zziplib")
(version "0.13.68") (version "0.13.69")
(home-page "https://github.com/gdraheim/zziplib")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://sourceforge/zziplib/zziplib13/" (uri (string-append home-page "/archive/v" version ".tar.gz"))
version "/zziplib-"
version ".tar.bz2"))
(sha256 (sha256
(base32 (base32
"1s0wz1hf2q4qxcp4lkg4rzpbz2814xagmvlyicqdj0ww0cvxv036")))) "0i052a7shww0fzsxrdp3rd7g4mbzx7324a8ysbc0br7frpblcql4"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs (inputs
`(("zlib" ,zlib))) `(("zlib" ,zlib)))
@ -1819,16 +1818,12 @@ recreates the stored directory structure by default.")
;; http://forums.gentoo.org/viewtopic-t-863161-start-0.html ;; http://forums.gentoo.org/viewtopic-t-863161-start-0.html
("python" ,python-2) ("python" ,python-2)
("zip" ,zip))) ; to create test files ("zip" ,zip))) ; to create test files
(arguments
;; XXX: "make check" is broken, and the alternative (test/zziptests.py)
;; requires network access. See <https://github.com/gdraheim/zziplib/issues/20>
;; and <https://github.com/gdraheim/zziplib/issues/24>.
`(#:tests? #f))
(home-page "http://zziplib.sourceforge.net/")
(synopsis "Library for accessing zip files") (synopsis "Library for accessing zip files")
(description (description
"ZZipLib is a library based on zlib for accessing zip files.") "ZZipLib is a library based on zlib for accessing zip files.")
(license license:lgpl2.0+))) ;; zziplib is dual licensed under LGPL2.0+ and MPL1.1. Some example source
;; files carry the Zlib license; see "docs/copying.html" for details.
(license (list license:lgpl2.0+ license:mpl1.1))))
(define-public perl-archive-zip (define-public perl-archive-zip
(package (package

4
gnu/packages/connman.scm
View File

@ -70,7 +70,7 @@
(string-append (string-append
"--with-dbusdatadir=" (assoc-ref %outputs "out") "/share")))) "--with-dbusdatadir=" (assoc-ref %outputs "out") "/share"))))
(native-inputs (native-inputs
`(("pkg-config", pkg-config) `(("pkg-config" ,pkg-config)
("python" ,python-2))) ("python" ,python-2)))
(inputs (inputs
`(("dbus" ,dbus) `(("dbus" ,dbus)
@ -84,7 +84,7 @@
;; TODO: add neard, ofono ;; TODO: add neard, ofono
("openconnect" ,openconnect) ("openconnect" ,openconnect)
("openvpn" ,openvpn) ("openvpn" ,openvpn)
("ppp", ppp) ("ppp" ,ppp)
("vpnc" ,vpnc) ("vpnc" ,vpnc)
("wpa-supplicant" ,wpa-supplicant))) ("wpa-supplicant" ,wpa-supplicant)))
(home-page "https://01.org/connman") (home-page "https://01.org/connman")

69
gnu/packages/cran.scm
View File

@ -3,6 +3,7 @@
;;; Copyright © 2017 Roel Janssen <roel@gnu.org> ;;; Copyright © 2017 Roel Janssen <roel@gnu.org>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017 Raoul Bonnal <ilpuccio.febo@gmail.com> ;;; Copyright © 2017 Raoul Bonnal <ilpuccio.febo@gmail.com>
;;; Copyright © 2018 Vijayalakshmi Vedantham <vijimay12@gmail.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -59,6 +60,36 @@ diversification and macroevolution, computing distances from DNA sequences,
and several other tools.") and several other tools.")
(license license:gpl2+))) (license license:gpl2+)))
(define-public r-abbyyr
(package
(name "r-abbyyr")
(version "0.5.1")
(source
(origin
(method url-fetch)
(uri (cran-uri "abbyyR" version))
(sha256
(base32
"1s8zf18sh0s89vk3dl09fzrq50csmmfvmsanf5vfkv9n5lx6pklg"))))
(properties `((upstream-name . "abbyyR")))
(build-system r-build-system)
(propagated-inputs
`(("r-curl" ,r-curl)
("r-httr" ,r-httr)
("r-plyr" ,r-plyr)
("r-progress" ,r-progress)
("r-readr" ,r-readr)
("r-xml" ,r-xml)))
(home-page "https://github.com/soodoku/abbyyR")
(synopsis "Access to Abbyy Optical Character Recognition (OCR) API")
(description
"This package provides tools to get text from images of text using Abbyy
Cloud Optical Character Recognition (OCR) API. With abbyyyR, one can easily
OCR images, barcodes, forms, documents with machine readable zones, e.g.
passports and get the results in a variety of formats including plain text and
XML. To learn more about the Abbyy OCR API, see @url{http://ocrsdk.com/}.")
(license license:expat)))
(define-public r-colorspace (define-public r-colorspace
(package (package
(name "r-colorspace") (name "r-colorspace")
@ -1679,7 +1710,7 @@ simplifying cross-class interoperability.")
`(("r-quadprog" ,r-quadprog) `(("r-quadprog" ,r-quadprog)
("r-xts" ,r-xts) ("r-xts" ,r-xts)
("r-zoo" ,r-zoo))) ("r-zoo" ,r-zoo)))
(home-page "http://r-forge.r-project.org/projects/returnanalytics/") (home-page "https://r-forge.r-project.org/projects/returnanalytics/")
(synopsis "Econometric tools for performance and risk analysis") (synopsis "Econometric tools for performance and risk analysis")
(description "This is a collection of econometric functions for (description "This is a collection of econometric functions for
performance and risk analysis. This package aims to aid practitioners and performance and risk analysis. This package aims to aid practitioners and
@ -1996,7 +2027,7 @@ traveling salesman problem).")
"0d2d1ni1camixyi45lfy00f4pn3p063k7bsi8gj5scp6n15mdgb0")))) "0d2d1ni1camixyi45lfy00f4pn3p063k7bsi8gj5scp6n15mdgb0"))))
(build-system r-build-system) (build-system r-build-system)
(native-inputs `(("gfortran" ,gfortran))) (native-inputs `(("gfortran" ,gfortran)))
(home-page "http://cran.r-project.org/web/packages/qap/") (home-page "https://cran.r-project.org/web/packages/qap/")
(synopsis "Heuristics for the quadratic assignment problem (QAP)") (synopsis "Heuristics for the quadratic assignment problem (QAP)")
(description "This package implements heuristics for the @dfn{quadratic (description "This package implements heuristics for the @dfn{quadratic
assignment problem} (QAP). Currently only a simulated annealing heuristic is assignment problem} (QAP). Currently only a simulated annealing heuristic is
@ -2016,7 +2047,7 @@ available.")
"02ba6zj9bjwrzykamjp40ajynx9xjx9h2i85n0ym0r5lcki4x6fn")))) "02ba6zj9bjwrzykamjp40ajynx9xjx9h2i85n0ym0r5lcki4x6fn"))))
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs `(("r-cluster" ,r-cluster))) (propagated-inputs `(("r-cluster" ,r-cluster)))
(home-page "http://cran.r-project.org/web/packages/gclus/") (home-page "https://cran.r-project.org/web/packages/gclus/")
(synopsis "Clustering graphics") (synopsis "Clustering graphics")
(description "This package orders panels in scatterplot matrices and (description "This package orders panels in scatterplot matrices and
parallel coordinate displays by some merit index. It contains various indices parallel coordinate displays by some merit index. It contains various indices
@ -2355,7 +2386,7 @@ rules with R.")
"11gjmn1azrjw5xlvdb4gknj9985kck9x8zb9np1rnk2smp6pka2m")))) "11gjmn1azrjw5xlvdb4gknj9985kck9x8zb9np1rnk2smp6pka2m"))))
(build-system r-build-system) (build-system r-build-system)
(native-inputs `(("gfortran" ,gfortran))) (native-inputs `(("gfortran" ,gfortran)))
(home-page "http://cran.r-project.org/web/packages/leaps/") (home-page "https://cran.r-project.org/web/packages/leaps/")
(synopsis "Regression subset selection") (synopsis "Regression subset selection")
(description (description
"This package provides tools for regression subset selection, including "This package provides tools for regression subset selection, including
@ -2376,7 +2407,7 @@ exhaustive search.")
(properties `((upstream-name . "splus2R"))) (properties `((upstream-name . "splus2R")))
(build-system r-build-system) (build-system r-build-system)
(native-inputs `(("gfortran" ,gfortran))) (native-inputs `(("gfortran" ,gfortran)))
(home-page "http://cran.r-project.org/web/packages/splus2R/") (home-page "https://cran.r-project.org/web/packages/splus2R/")
(synopsis "Supplemental S-PLUS functionality in R") (synopsis "Supplemental S-PLUS functionality in R")
(description (description
"Currently there are many functions in S-PLUS that are missing in R. To "Currently there are many functions in S-PLUS that are missing in R. To
@ -2399,7 +2430,7 @@ provides some missing S-PLUS functionality in R.")
(propagated-inputs (propagated-inputs
`(("r-mass" ,r-mass) `(("r-mass" ,r-mass)
("r-splus2r" ,r-splus2r))) ("r-splus2r" ,r-splus2r)))
(home-page "http://cran.r-project.org/web/packages/ifultools/") (home-page "https://cran.r-project.org/web/packages/ifultools/")
(synopsis "Insightful research tools") (synopsis "Insightful research tools")
(description "This package provides C code used by the wmtsa, fractal, and (description "This package provides C code used by the wmtsa, fractal, and
sapa R packages.") sapa R packages.")
@ -2420,7 +2451,7 @@ sapa R packages.")
(propagated-inputs (propagated-inputs
`(("r-ifultools" ,r-ifultools) `(("r-ifultools" ,r-ifultools)
("r-splus2r" ,r-splus2r))) ("r-splus2r" ,r-splus2r)))
(home-page "http://cran.r-project.org/web/packages/sapa/") (home-page "https://cran.r-project.org/web/packages/sapa/")
(synopsis "Spectral analysis for physical applications") (synopsis "Spectral analysis for physical applications")
(description "This package provides software for the book Spectral (description "This package provides software for the book Spectral
Analysis for Physical Applications, Donald B. Percival and Andrew T. Walden, Analysis for Physical Applications, Donald B. Percival and Andrew T. Walden,
@ -2444,7 +2475,7 @@ Cambridge University Press, 1993.")
("r-ttr" ,r-ttr) ("r-ttr" ,r-ttr)
("r-xts" ,r-xts) ("r-xts" ,r-xts)
("r-zoo" ,r-zoo))) ("r-zoo" ,r-zoo)))
(home-page "http://cran.r-project.org/web/packages/quantmod/") (home-page "https://cran.r-project.org/web/packages/quantmod/")
(synopsis "Quantitative financial modelling framework") (synopsis "Quantitative financial modelling framework")
(description "This package provides a quantitative financial modelling (description "This package provides a quantitative financial modelling
framework to allow users to specify, build, trade, and analyse quantitative framework to allow users to specify, build, trade, and analyse quantitative
@ -2469,7 +2500,7 @@ financial trading strategies.")
("r-zoo" ,r-zoo))) ("r-zoo" ,r-zoo)))
(native-inputs (native-inputs
`(("gfortran" ,gfortran))) `(("gfortran" ,gfortran)))
(home-page "http://cran.r-project.org/web/packages/tseries/") (home-page "https://cran.r-project.org/web/packages/tseries/")
(synopsis "Time series analysis and computational finance") (synopsis "Time series analysis and computational finance")
(description (description
"This package provides functions relating to time series analysis and "This package provides functions relating to time series analysis and
@ -2492,7 +2523,7 @@ computational finance.")
`(("r-ifultools" ,r-ifultools) `(("r-ifultools" ,r-ifultools)
("r-mass" ,r-mass) ("r-mass" ,r-mass)
("r-splus2r" ,r-splus2r))) ("r-splus2r" ,r-splus2r)))
(home-page "http://cran.r-project.org/web/packages/wmtsa/") (home-page "https://cran.r-project.org/web/packages/wmtsa/")
(synopsis "Wavelet methods for time series analysis") (synopsis "Wavelet methods for time series analysis")
(description (description
"This package provides software to accompany the book \"Wavelet Methods "This package provides software to accompany the book \"Wavelet Methods
@ -2568,7 +2599,7 @@ multivariate distributions.")
("r-scatterplot3d" ,r-scatterplot3d) ("r-scatterplot3d" ,r-scatterplot3d)
("r-splus2r" ,r-splus2r) ("r-splus2r" ,r-splus2r)
("r-wmtsa" ,r-wmtsa))) ("r-wmtsa" ,r-wmtsa)))
(home-page "http://cran.r-project.org/web/packages/fractal/") (home-page "https://cran.r-project.org/web/packages/fractal/")
(synopsis "Fractal time series modeling and analysis") (synopsis "Fractal time series modeling and analysis")
(description (description
"This package provides tools for stochastic fractal and deterministic "This package provides tools for stochastic fractal and deterministic
@ -2589,7 +2620,7 @@ chaotic time series analysis.")
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs `(("r-nlme" ,r-nlme))) (propagated-inputs `(("r-nlme" ,r-nlme)))
(native-inputs `(("gfortran" ,gfortran))) (native-inputs `(("gfortran" ,gfortran)))
(home-page "http://cran.r-project.org/web/packages/urca/") (home-page "https://cran.r-project.org/web/packages/urca/")
(synopsis "Unit root and cointegration tests for time series data") (synopsis "Unit root and cointegration tests for time series data")
(description (description
"This package provides unit root and cointegration tests encountered in "This package provides unit root and cointegration tests encountered in
@ -2637,7 +2668,7 @@ interface.")
`(("r-extradistr" ,r-extradistr))) `(("r-extradistr" ,r-extradistr)))
(native-inputs (native-inputs
`(("gfortran" ,gfortran))) `(("gfortran" ,gfortran)))
(home-page "http://cran.r-project.org/web/packages/trend/") (home-page "https://cran.r-project.org/web/packages/trend/")
(synopsis "Non-parametric trend tests and change-point detection") (synopsis "Non-parametric trend tests and change-point detection")
(description (description
"The analysis of environmental data often requires the detection of "The analysis of environmental data often requires the detection of
@ -2666,7 +2697,7 @@ sample Robust Rank-Order Distributional Test.")
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs `(("r-matrix" ,r-matrix))) (propagated-inputs `(("r-matrix" ,r-matrix)))
(native-inputs `(("gfortran" ,gfortran))) (native-inputs `(("gfortran" ,gfortran)))
(home-page "http://r-forge.r-project.org/projects/expm/") (home-page "https://r-forge.r-project.org/projects/expm/")
(synopsis "Tools for matrix exponentials and related quantities") (synopsis "Tools for matrix exponentials and related quantities")
(description (description
"This package provides tools for the computation of the matrix "This package provides tools for the computation of the matrix
@ -2688,7 +2719,7 @@ exponential, logarithm, square root, and related quantities.")
(propagated-inputs (propagated-inputs
`(("r-expm" ,r-expm) `(("r-expm" ,r-expm)
("r-matrix" ,r-matrix))) ("r-matrix" ,r-matrix)))
(home-page "http://cran.r-project.org/web/packages/complexplus/") (home-page "https://cran.r-project.org/web/packages/complexplus/")
(synopsis "Functions of complex or real variables") (synopsis "Functions of complex or real variables")
(description (description
"This package extends several functions to the complex domain, including "This package extends several functions to the complex domain, including
@ -2759,7 +2790,7 @@ ordered factor data types.")
("r-mass" ,r-mass) ("r-mass" ,r-mass)
("r-matrix" ,r-matrix) ("r-matrix" ,r-matrix)
("r-phontools" ,r-phontools))) ("r-phontools" ,r-phontools)))
(home-page "http://cran.r-project.org/web/packages/powerplus/") (home-page "https://cran.r-project.org/web/packages/powerplus/")
(synopsis "Exponentiation operations") (synopsis "Exponentiation operations")
(description (description
"This package provides tools for the computation of matrix and scalar "This package provides tools for the computation of matrix and scalar
@ -2966,7 +2997,7 @@ and within plot factors interact.")
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs `(("r-mass" ,r-mass))) (propagated-inputs `(("r-mass" ,r-mass)))
(native-inputs `(("gfortran" ,gfortran))) (native-inputs `(("gfortran" ,gfortran)))
(home-page "http://cran.r-project.org/web/packages/signal/") (home-page "https://cran.r-project.org/web/packages/signal/")
(synopsis "Signal processing") (synopsis "Signal processing")
(description (description
"This package provides a set of signal processing functions originally "This package provides a set of signal processing functions originally
@ -3075,7 +3106,7 @@ R itself can handle.")
(base32 (base32
"0b1zd8jbnl6l292cr9rb50m09fy3ylxvzkpgi5lfb1nbzddcwfis")))) "0b1zd8jbnl6l292cr9rb50m09fy3ylxvzkpgi5lfb1nbzddcwfis"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/abind/") (home-page "https://cran.r-project.org/web/packages/abind/")
(synopsis "Combine multidimensional arrays") (synopsis "Combine multidimensional arrays")
(description (description
"This package provides tools to combine multidimensional arrays into a "This package provides tools to combine multidimensional arrays into a
@ -3098,7 +3129,7 @@ extracting and replacing data in arrays.")
"03hvh92lq4i4w4mla9bvwrwb4626f4hvlxgdn57hamp70960vjyc")))) "03hvh92lq4i4w4mla9bvwrwb4626f4hvlxgdn57hamp70960vjyc"))))
(properties `((upstream-name . "PRROC"))) (properties `((upstream-name . "PRROC")))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/PRROC/") (home-page "https://cran.r-project.org/web/packages/PRROC/")
(synopsis "Precision-Recall and ROC curves for weighted and unweighted data") (synopsis "Precision-Recall and ROC curves for weighted and unweighted data")
(description (description
"This package computes the areas under the @dfn{precision-recall} (PR) "This package computes the areas under the @dfn{precision-recall} (PR)

2
gnu/packages/crypto.scm
View File

@ -581,7 +581,7 @@ cryptographically-secure replacement for Perl's built-in @code{rand} function.
@item No matter how many numbers you see generated by the random number @item No matter how many numbers you see generated by the random number
generator, you cannot guess the future numbers, and you cannot guess the seed. generator, you cannot guess the future numbers, and you cannot guess the seed.
@item There are so many possible seeds that it would take decades, centuries, @item There are so many possible seeds that it would take decades, centuries,
or millenia for an attacker to try them all. or millennia for an attacker to try them all.
@item The seed comes from a source that generates relatively strong random @item The seed comes from a source that generates relatively strong random
data on your platform, so the seed itself will be as random as possible. data on your platform, so the seed itself will be as random as possible.
@end enumerate\n") @end enumerate\n")

8
gnu/packages/databases.scm
View File

@ -1360,7 +1360,7 @@ module, and nothing else.")
(define-public perl-sql-abstract (define-public perl-sql-abstract
(package (package
(name "perl-sql-abstract") (name "perl-sql-abstract")
(version "1.84") (version "1.85")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -1368,7 +1368,7 @@ module, and nothing else.")
"SQL-Abstract-" version ".tar.gz")) "SQL-Abstract-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"0xayvgv6nic61jm3nhg41rzwgm8h83wfyazvpaks0z7asjillpv5")))) "1aycggrvppy2zgkwwn85jkdz93n5gsx4dambrjk67k5067hayi4z"))))
(build-system perl-build-system) (build-system perl-build-system)
(native-inputs (native-inputs
`(("perl-module-install" ,perl-module-install) `(("perl-module-install" ,perl-module-install)
@ -2769,9 +2769,9 @@ Monitor read/write activity on a mongo server
(setenv "JEMALLOC_HOME" (assoc-ref %build-inputs "jemalloc")) (setenv "JEMALLOC_HOME" (assoc-ref %build-inputs "jemalloc"))
(setenv "RAPIDJSON_HOME" (assoc-ref %build-inputs "rapidjson")) (setenv "RAPIDJSON_HOME" (assoc-ref %build-inputs "rapidjson"))
#t))) #t)))
#:build-type "Release"
#:configure-flags #:configure-flags
(list "-DCMAKE_BUILD_TYPE=Release" (list "-DARROW_PYTHON=ON"
"-DARROW_PYTHON=ON"
;; Install to PREFIX/lib (the default is ;; Install to PREFIX/lib (the default is
;; PREFIX/lib64). ;; PREFIX/lib64).

4
gnu/packages/datamash.scm
View File

@ -28,7 +28,7 @@
(define-public datamash (define-public datamash
(package (package
(name "datamash") (name "datamash")
(version "1.2") (version "1.3")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -36,7 +36,7 @@
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"15jrv3ly0vgvwwi2qjmhi39n7wrklwifdk961wwfaxyc5jr6zm78")))) "19jpcv4ryvbz0476d6dgpxpbjkpmih4q84wj06nslls338bm5fzf"))))
(native-inputs (native-inputs
`(("which" ,which) ;for tests `(("which" ,which) ;for tests
("perl" ,perl))) ;for help2man ("perl" ,perl))) ;for help2man

4
gnu/packages/django.scm
View File

@ -75,7 +75,7 @@
(zero? (system* "python" "tests/runtests.py"))))))) (zero? (system* "python" "tests/runtests.py")))))))
;; TODO: Install extras/django_bash_completion. ;; TODO: Install extras/django_bash_completion.
(native-inputs (native-inputs
`(("tzdata", tzdata-for-tests) `(("tzdata" ,tzdata-for-tests)
;; bcrypt and argon2-cffi are extra requirements not yet in guix ;; bcrypt and argon2-cffi are extra requirements not yet in guix
;;("python-argon2-cffi" ,python-argon2-cffi) ; >= 16.1.0 ;;("python-argon2-cffi" ,python-argon2-cffi) ; >= 16.1.0
;;("python-bcrypt" ,python-bcrypt) ; not py-bcrypt! ;;("python-bcrypt" ,python-bcrypt) ; not py-bcrypt!
@ -199,7 +199,7 @@ useful tools for testing Django applications and projects.")
(native-inputs (native-inputs
`(("python-django" ,python-django) `(("python-django" ,python-django)
("python-djangorestframework" ,python-djangorestframework) ("python-djangorestframework" ,python-djangorestframework)
("python-django-crispy-forms", python-django-crispy-forms) ("python-django-crispy-forms" ,python-django-crispy-forms)
("python-mock" ,python-mock))) ("python-mock" ,python-mock)))
(home-page "https://django-filter.readthedocs.io/en/latest/") (home-page "https://django-filter.readthedocs.io/en/latest/")
(synopsis "Reusable Django application to filter querysets dynamically") (synopsis "Reusable Django application to filter querysets dynamically")

13
gnu/packages/dns.scm
View File

@ -59,7 +59,7 @@
(define-public dnsmasq (define-public dnsmasq
(package (package
(name "dnsmasq") (name "dnsmasq")
(version "2.78") (version "2.79")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append (uri (string-append
@ -67,7 +67,7 @@
version ".tar.xz")) version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"0ar5h5v3kas2qx2wgy5iqin15gc4jhqrqs067xacgc3lii1rz549")))) "07w6cw706yyahwvbvslhkrbjf2ynv567cgy9pal8bz8lrbsp9bbq"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config))) `(("pkg-config" ,pkg-config)))
@ -79,16 +79,15 @@
#:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")) #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
"CC=gcc" "CC=gcc"
"COPTS=\"-DHAVE_DBUS\"") "COPTS=\"-DHAVE_DBUS\"")
;; No 'check' target. #:tests? #f)) ; no ‘check’ target
#:tests? #f))
(home-page "http://www.thekelleys.org.uk/dnsmasq/doc.html") (home-page "http://www.thekelleys.org.uk/dnsmasq/doc.html")
(synopsis "Small caching DNS proxy and DHCP/TFTP server") (synopsis "Small caching DNS proxy and DHCP/TFTP server")
(description (description
"Dnsmasq is a lightweight DNS forwarder and DHCP server. It is designed "Dnsmasq is a light-weight DNS forwarder and DHCP server. It is designed
to provide DNS and optionally, DHCP, to a small network. It can serve the to provide DNS and, optionally, DHCP to a small network. It can serve the
names of local machines which are not in the global DNS. The DHCP server names of local machines which are not in the global DNS. The DHCP server
integrates with the DNS server and allows machines with DHCP-allocated integrates with the DNS server and allows machines with DHCP-allocated
addresses to appear in the DNS with names configured either in each host or in addresses to appear in the DNS with names configured either on each host or in
a central configuration file. Dnsmasq supports static and dynamic DHCP leases a central configuration file. Dnsmasq supports static and dynamic DHCP leases
and BOOTP/TFTP for network booting of diskless machines.") and BOOTP/TFTP for network booting of diskless machines.")
;; Source files only say GPL2 and GPL3 are allowed. ;; Source files only say GPL2 and GPL3 are allowed.

2
gnu/packages/elf.scm
View File

@ -108,7 +108,7 @@ Executable and Linkable Format (@dfn{ELF}). This includes @command{ld},
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append (uri (string-append
"http://nixos.org/releases/patchelf/patchelf-" "https://nixos.org/releases/patchelf/patchelf-"
version version
"/patchelf-" version ".tar.bz2")) "/patchelf-" version ".tar.bz2"))
(sha256 (sha256

2
gnu/packages/emacs.scm
View File

@ -3780,7 +3780,7 @@ programming language.")
texlive-latex-seminar texlive-latex-seminar
texlive-latex-hyperref texlive-latex-hyperref
texlive-tex-texinfo))))) texlive-tex-texinfo)))))
(home-page "http://ess.r-project.org/") (home-page "https://ess.r-project.org/")
(synopsis "Emacs mode for statistical analysis programs") (synopsis "Emacs mode for statistical analysis programs")
(description "Emacs Speaks Statistics (ESS) is an add-on package for GNU (description "Emacs Speaks Statistics (ESS) is an add-on package for GNU
Emacs. It is designed to support editing of scripts and interaction with Emacs. It is designed to support editing of scripts and interaction with

2
gnu/packages/emulators.scm
View File

@ -1098,7 +1098,7 @@ emulation community. It provides highly accurate emulation.")
("sdl" ,sdl2) ("sdl" ,sdl2)
("udev" ,eudev) ("udev" ,eudev)
("vulkan-icd-loader" ,vulkan-icd-loader) ("vulkan-icd-loader" ,vulkan-icd-loader)
("wayland", wayland) ("wayland" ,wayland)
("zlib" ,zlib))) ("zlib" ,zlib)))
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config) `(("pkg-config" ,pkg-config)

4
gnu/packages/engineering.scm
View File

@ -699,12 +699,12 @@ language.")
(arguments (arguments
`(#:out-of-source? #t `(#:out-of-source? #t
#:tests? #f ; no tests #:tests? #f ; no tests
#:build-type "Release"
#:configure-flags #:configure-flags
(list "-DKICAD_STABLE_VERSION=ON" (list "-DKICAD_STABLE_VERSION=ON"
"-DKICAD_REPO_NAME=stable" "-DKICAD_REPO_NAME=stable"
,(string-append "-DKICAD_BUILD_VERSION=4.0-" ,(string-append "-DKICAD_BUILD_VERSION=4.0-"
(string-take commit 7)) (string-take commit 7))
"-DCMAKE_BUILD_TYPE=Release"
"-DKICAD_SKIP_BOOST=ON"; Use our system's boost library. "-DKICAD_SKIP_BOOST=ON"; Use our system's boost library.
"-DKICAD_SCRIPTING=ON" "-DKICAD_SCRIPTING=ON"
"-DKICAD_SCRIPTING_MODULES=ON" "-DKICAD_SCRIPTING_MODULES=ON"
@ -865,7 +865,7 @@ the 'showing the effect of'-style of operation.")
(inputs (inputs
`(("boost" ,boost))) `(("boost" ,boost)))
(native-inputs (native-inputs
`(("python-2", python-2) `(("python-2" ,python-2)
("python2-cheetah" ,python2-cheetah))) ("python2-cheetah" ,python2-cheetah)))
(home-page "http://libvolk.org/") (home-page "http://libvolk.org/")
(synopsis "Vector-Optimized Library of Kernels") (synopsis "Vector-Optimized Library of Kernels")

5
gnu/packages/enlightenment.scm
View File

@ -3,6 +3,7 @@
;;; Copyright © 2015 Daniel Pimentel <d4n1@member.fsf.org> ;;; Copyright © 2015 Daniel Pimentel <d4n1@member.fsf.org>
;;; Copyright © 2015, 2016, 2017, 2018 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2015, 2016, 2017, 2018 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017 ng0 <ng0@infotropique.org> ;;; Copyright © 2017 ng0 <ng0@infotropique.org>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -256,7 +257,7 @@ Libraries with some extra bells and whistles.")
(define-public enlightenment (define-public enlightenment
(package (package
(name "enlightenment") (name "enlightenment")
(version "0.22.1") (version "0.22.2")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (uri
@ -264,7 +265,7 @@ Libraries with some extra bells and whistles.")
name "/" name "-" version ".tar.xz")) name "/" name "-" version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"1q57fz57d0b26z06m1wiq7c1sniwh885b0vs02mk4jgwva46nyr0")))) "0b33w75s4w7xmz9cv8dyp8vy2gcffnrvjys20fhcpw26abw1wn2d"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:configure-flags '("--enable-mount-eeze") `(#:configure-flags '("--enable-mount-eeze")

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

@ -236,7 +236,7 @@ All of this is accomplished without a centralized metadata server.")
(inputs (inputs
`(("curl" ,curl) `(("curl" ,curl)
("glib" ,glib) ("glib" ,glib)
("fuse", fuse))) ("fuse" ,fuse)))
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config))) `(("pkg-config" ,pkg-config)))
(home-page "http://curlftpfs.sourceforge.net/") (home-page "http://curlftpfs.sourceforge.net/")

6
gnu/packages/flashing-tools.scm
View File

@ -104,7 +104,7 @@ programmer devices.")
"1g4032c81wkk37wvbg1dxcqq6mnd76y9x7f2crmzqi6z4q9jcxmj")))) "1g4032c81wkk37wvbg1dxcqq6mnd76y9x7f2crmzqi6z4q9jcxmj"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs (inputs
`(("libusb",libusb-0.1))) ; doesn't work with libusb-compat `(("libusb" ,libusb-0.1))) ; doesn't work with libusb-compat
(arguments (arguments
'(#:phases '(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
@ -300,8 +300,8 @@ RK3036, RK3066, RK312X, RK3168, RK3188, RK3288, RK3368.")
"1y7gwg3lipyp2zcysm2vid1qg5nwin9bxbvgzs28lz2rya4fz6sq")))) "1y7gwg3lipyp2zcysm2vid1qg5nwin9bxbvgzs28lz2rya4fz6sq"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
`(#:configure-flags '("-DCMAKE_BUILD_TYPE=Release") `(#:build-type "Release"
#:tests? #f; no tests #:tests? #f ; no tests
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'patch-invocations (add-after 'unpack 'patch-invocations

6
gnu/packages/freedesktop.scm
View File

@ -358,7 +358,7 @@ of a the system to know what users are logged in, and where.")
("glib:bin" ,glib "bin"))) ("glib:bin" ,glib "bin")))
(inputs (inputs
`(("glib" ,glib) `(("glib" ,glib)
("bash-completion", bash-completion) ("bash-completion" ,bash-completion)
("polkit" ,polkit))) ("polkit" ,polkit)))
(propagated-inputs (propagated-inputs
`(("sqlite" ,sqlite))) `(("sqlite" ,sqlite)))
@ -1135,7 +1135,7 @@ manually by a user.")
(define-public perl-file-basedir (define-public perl-file-basedir
(package (package
(name "perl-file-basedir") (name "perl-file-basedir")
(version "0.07") (version "0.08")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -1143,7 +1143,7 @@ manually by a user.")
"File-BaseDir-" version ".tar.gz")) "File-BaseDir-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"0aq8d4hsaxqibp36f773y6dfck7zd82v85sp8vhi6pjkg3pmf2hj")))) "1qq5ag9zffx8zc5i9b4z03ar80pqj4drgk3vjdlyfapjwb9zqrf0"))))
(build-system perl-build-system) (build-system perl-build-system)
(native-inputs (native-inputs
`(("perl-module-build" ,perl-module-build) `(("perl-module-build" ,perl-module-build)

21
gnu/packages/fvwm.scm
View File

@ -45,6 +45,27 @@
(base32 (base32
"0wzghjgy65pkn31rgl14fngizw7nbkzbxsfa670xmrndpmd4sr81")))) "0wzghjgy65pkn31rgl14fngizw7nbkzbxsfa670xmrndpmd4sr81"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'install 'install-xsession
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(xsessions (string-append out "/share/xsessions")))
(mkdir-p xsessions)
(with-output-to-file
(string-append xsessions "/fvwm2.desktop")
(lambda _
(format #t
"[Desktop Entry]~@
Name=FVWM~@
Comment=FVWM~@
Exec=~a/bin/fvwm~@
TryExec=~@*~a/bin/fvwm~@
Icon=~@
Type=Application~%"
out))))
#t)))))
(native-inputs (native-inputs
`(("perl" ,perl) `(("perl" ,perl)
("pkg-config" ,pkg-config) ("pkg-config" ,pkg-config)

26
gnu/packages/games.scm
View File

@ -236,7 +236,7 @@ settings to tweak as well.")
("libvorbis" ,libvorbis) ("libvorbis" ,libvorbis)
("ncurses" ,ncurses) ("ncurses" ,ncurses)
("sdl2" ,sdl2) ("sdl2" ,sdl2)
("sdl2-image", sdl2-image) ("sdl2-image" ,sdl2-image)
("sdl2-ttf" ,sdl2-ttf) ("sdl2-ttf" ,sdl2-ttf)
("sdl2-mixer" ,sdl2-mixer))) ("sdl2-mixer" ,sdl2-mixer)))
(home-page "http://en.cataclysmdda.com/") (home-page "http://en.cataclysmdda.com/")
@ -2240,19 +2240,19 @@ Transport Tycoon Deluxe.")
(substitute* "cmake_install.cmake" (substitute* "cmake_install.cmake"
(("EXPECTED_HASH SHA1=b587d83de508d0b104d14c599b76f8565900fce0") (("EXPECTED_HASH SHA1=b587d83de508d0b104d14c599b76f8565900fce0")
""))))))) "")))))))
(inputs `(("curl", curl) (inputs `(("curl" ,curl)
("fontconfig", fontconfig) ("fontconfig" ,fontconfig)
("freetype", freetype) ("freetype" ,freetype)
("jansson", jansson) ("jansson" ,jansson)
("libpng", libpng) ("libpng" ,libpng)
("libzip", libzip) ("libzip" ,libzip)
("mesa", mesa) ("mesa" ,mesa)
("openssl", openssl) ("openssl" ,openssl)
("sdl2", sdl2) ("sdl2" ,sdl2)
("speexdsp", speexdsp) ("speexdsp" ,speexdsp)
("zlib", zlib))) ("zlib" ,zlib)))
(native-inputs (native-inputs
`(("pkg-config", pkg-config))) `(("pkg-config" ,pkg-config)))
(home-page "https://github.com/OpenRCT2/OpenRCT2") (home-page "https://github.com/OpenRCT2/OpenRCT2")
(synopsis "Free software re-implementation of RollerCoaster Tycoon 2") (synopsis "Free software re-implementation of RollerCoaster Tycoon 2")
(description "OpenRCT2 is a free software re-implementation of (description "OpenRCT2 is a free software re-implementation of

12
gnu/packages/gimp.scm
View File

@ -175,12 +175,12 @@ buffers.")
("libjpeg" ,libjpeg-8) ("libjpeg" ,libjpeg-8)
("atk" ,atk) ("atk" ,atk)
("gtk+" ,gtk+-2) ("gtk+" ,gtk+-2)
("exif" ,libexif) ;optional, EXIF + XMP support ("exif" ,libexif) ; optional, EXIF + XMP support
("lcms" ,lcms) ;optional, color management ("lcms" ,lcms) ; optional, color management
("librsvg" ,librsvg) ;optional, SVG support ("librsvg" ,librsvg) ; optional, SVG support
("poppler", poppler) ; optional, PDF support ("poppler" ,poppler) ; optional, PDF support
("python" ,python-2) ;optional, Python support ("python" ,python-2) ; optional, Python support
("python2-pygtk" ,python2-pygtk) ;optional, Python support ("python2-pygtk" ,python2-pygtk) ; optional, Python support
("gegl" ,gegl))) ("gegl" ,gegl)))
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config) `(("pkg-config" ,pkg-config)

2
gnu/packages/gl.scm
View File

@ -755,7 +755,7 @@ mixed vector/bitmap output.")
("libjpeg-turbo" ,libjpeg-turbo) ("libjpeg-turbo" ,libjpeg-turbo)
("mesa" ,mesa) ("mesa" ,mesa)
("openssl" ,openssl))) ("openssl" ,openssl)))
(native-inputs `(("pkg-config", pkg-config))) (native-inputs `(("pkg-config" ,pkg-config)))
(home-page "https://www.virtualgl.org") (home-page "https://www.virtualgl.org")
(synopsis "Redirects 3D commands from an OpenGL application onto a 3D (synopsis "Redirects 3D commands from an OpenGL application onto a 3D
graphics card") graphics card")

6
gnu/packages/gnome.scm
View File

@ -273,7 +273,7 @@ features to enable users to create their discs easily and quickly.")
("gettext" ,gettext-minimal) ("gettext" ,gettext-minimal)
("itstool" ,itstool) ("itstool" ,itstool)
("intltool" ,intltool) ("intltool" ,intltool)
("cmake", cmake))) ("cmake" ,cmake)))
(home-page "https://launchpad.net/deja-dup") (home-page "https://launchpad.net/deja-dup")
(synopsis "Simple backup tool, for regular encrypted backups") (synopsis "Simple backup tool, for regular encrypted backups")
(description (description
@ -4422,7 +4422,7 @@ metadata in photo and video files of various formats.")
(define-public shotwell (define-public shotwell
(package (package
(name "shotwell") (name "shotwell")
(version "0.27.4") (version "0.28.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://gnome/sources/" name "/" (uri (string-append "mirror://gnome/sources/" name "/"
@ -4430,7 +4430,7 @@ metadata in photo and video files of various formats.")
name "-" version ".tar.xz")) name "-" version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"0g2vphhpxrljpy9sryfsgaayix807i1i9plj9bay72dk0zphqab2")))) "1d797nmlz9gs6ri0h65b76s40ss6ma6h6405xqx03lhg5xni3kmg"))))
(build-system glib-or-gtk-build-system) (build-system glib-or-gtk-build-system)
(propagated-inputs (propagated-inputs
`(("dconf" ,dconf))) `(("dconf" ,dconf)))

5
gnu/packages/gnuzilla.scm
View File

@ -449,7 +449,10 @@ security standards.")
(mozilla-patch "icecat-bug-1442127-pt2.patch" "da5792b70f30" "116k9qja5ir9b3laazasp43f5jx59qq72nknmq5bn5v1ixya9r4l") (mozilla-patch "icecat-bug-1442127-pt2.patch" "da5792b70f30" "116k9qja5ir9b3laazasp43f5jx59qq72nknmq5bn5v1ixya9r4l")
(mozilla-patch "icecat-CVE-2018-5125-pt8.patch" "62b831df8269" "109pn0hqn7s27580glv4z7qv1pmjzii9szvf3wkn97k5wybrzgkx") (mozilla-patch "icecat-CVE-2018-5125-pt8.patch" "62b831df8269" "109pn0hqn7s27580glv4z7qv1pmjzii9szvf3wkn97k5wybrzgkx")
(mozilla-patch "icecat-bug-1442504.patch" "8954ce68a364" "0bl65zw82bwqg0mmcri94pxqq6ibff7y5rclkzapb081p6yvf73q") (mozilla-patch "icecat-bug-1442504.patch" "8954ce68a364" "0bl65zw82bwqg0mmcri94pxqq6ibff7y5rclkzapb081p6yvf73q")
(mozilla-patch "icecat-CVE-2018-5125-pt9.patch" "8a16f439117c" "108iarql6z7h1r4rlzac6n6lrzs78x7kcdbfa0b5dbr5xc66jmgb"))) (mozilla-patch "icecat-CVE-2018-5125-pt9.patch" "8a16f439117c" "108iarql6z7h1r4rlzac6n6lrzs78x7kcdbfa0b5dbr5xc66jmgb")
(mozilla-patch "icecat-bug-1426603.patch" "ca0b92ecedee" "0dc3mdl4a3hrq4j384zjavf3splj6blv4masign710hk7svlgbhq")
(mozilla-patch "icecat-CVE-2018-5146.patch" "494e5d5278ba" "1yb4lxjw499ppwhk31vz0vzl0cfqvj9d4jwqag7ayj53ybwsqgjr")
(mozilla-patch "icecat-CVE-2018-5147.patch" "5cd5586a2f48" "10s774pwvj6xfk3kk6ivnhp2acc8x9sqq6na8z47nkhgwl2712i5")))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet (snippet
'(begin '(begin

52
gnu/packages/golang.scm
View File

@ -8,6 +8,7 @@
;;; Copyright © 2017 Sergei Trofimovich <slyfox@inbox.ru> ;;; Copyright © 2017 Sergei Trofimovich <slyfox@inbox.ru>
;;; Copyright © 2017 Alex Vong <alexvong1995@gmail.com> ;;; Copyright © 2017 Alex Vong <alexvong1995@gmail.com>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Christopher Baines <mail@cbaines.net>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -639,3 +640,54 @@ termination.")
per-goroutine.") per-goroutine.")
(home-page "https://github.com/jtolds/gls") (home-page "https://github.com/jtolds/gls")
(license license:expat))) (license license:expat)))
(define-public go-github-com-tj-docopt
(package
(name "go-github-com-tj-docopt")
(version "1.0.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/tj/docopt")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"06h8hdg1mh3s78zqlr01g4si7k0f0g6pr7fj7lnvfg446hgc7080"))))
(build-system go-build-system)
(arguments
'(#:import-path "github.com/tj/docopt"))
(synopsis "Go implementation of docopt")
(description
"This library allows the user to define a command-line interface from a
program's help message rather than specifying it programatically with
command-line parsers.")
(home-page "https://github.com/tj/docopt")
(license license:expat)))
(define-public go-github-com-hashicorp-hcl
(let ((commit "23c074d0eceb2b8a5bfdbb271ab780cde70f05a8")
(revision "0"))
(package
(name "go-github-com-hashicorp-hcl")
(version (git-version "0.0.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/hashicorp/hcl")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0db4lpqb5m130rmfy3s3gjjf4dxllypmyrzxv6ggqhkmwmc7w4mc"))))
(build-system go-build-system)
(arguments
'(#:tests? #f
#:import-path "github.com/hashicorp/hcl"))
(synopsis "Go implementation of HashiCorp Configuration Language")
(description
"This package contains the main implementation of the @acronym{HCL,
HashiCorp Configuration Language}. HCL is designed to be a language for
expressing configuration which is easy for both humans and machines to read.")
(home-page "https://github.com/hashicorp/hcl")
(license license:mpl2.0))))

2
gnu/packages/graph.scm
View File

@ -142,7 +142,7 @@ more.")
`(("r-igraph" ,r-igraph) `(("r-igraph" ,r-igraph)
("r-matrix" ,r-matrix) ("r-matrix" ,r-matrix)
("r-scatterplot3d" ,r-scatterplot3d))) ("r-scatterplot3d" ,r-scatterplot3d)))
(home-page "http://www.r-project.org") (home-page "https://www.r-project.org")
(synopsis "Diffusion map") (synopsis "Diffusion map")
(description "This package implements the diffusion map method of data (description "This package implements the diffusion map method of data
parametrization, including creation and visualization of diffusion maps, parametrization, including creation and visualization of diffusion maps,

27
gnu/packages/graphics.scm
View File

@ -7,7 +7,7 @@
;;; Copyright © 2016 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2016 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2017 Manolis Fragkiskos Ragkousis <manolis837@gmail.com> ;;; Copyright © 2017 Manolis Fragkiskos Ragkousis <manolis837@gmail.com>
;;; Copyright © 2017, 2018 Ben Woodcroft <donttrustben@gmail.com> ;;; Copyright © 2017, 2018 Ben Woodcroft <donttrustben@gmail.com>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
@ -424,25 +424,24 @@ visual effects work for film.")
(file-name (string-append name "-" version ".zip")))) (file-name (string-append name "-" version ".zip"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
`(#:tests? #f ;; No test target available. `(#:tests? #f ; no test target available
;; Without this flag, 'rd' will be added to the name of the
;; library binaries and break linking with other programs.
#:build-type "Release"
#:configure-flags #:configure-flags
(list (string-append "-DCMAKE_INSTALL_RPATH=" (list (string-append "-DCMAKE_INSTALL_RPATH="
(assoc-ref %outputs "out") "/lib:" (assoc-ref %outputs "out") "/lib:"
(assoc-ref %outputs "out") "/lib64") (assoc-ref %outputs "out") "/lib64"))))
;; We need to set this flag or otherwise 'rd' will be added
;; to the name of the library binaries and break linking
;; with other programs.
"-DCMAKE_BUILD_TYPE=Release")))
(native-inputs (native-inputs
`(("unzip" ,unzip))) `(("unzip" ,unzip)))
(inputs (inputs
`(("giflib", giflib) `(("giflib" ,giflib)
("jasper", jasper) ("jasper" ,jasper)
("librsvg", librsvg) ("librsvg" ,librsvg)
("pth", pth) ("pth" ,pth)
("qtbase", qtbase) ("qtbase" ,qtbase)
("ffmpeg", ffmpeg) ("ffmpeg" ,ffmpeg)
("mesa", mesa))) ("mesa" ,mesa)))
(synopsis "High performance real-time graphics toolkit") (synopsis "High performance real-time graphics toolkit")
(description (description
"The OpenSceneGraph is a high performance 3D graphics toolkit "The OpenSceneGraph is a high performance 3D graphics toolkit

109
gnu/packages/guile.scm
View File

@ -665,18 +665,51 @@ library.")
(define-public mcron (define-public mcron
(package (package
(name "mcron") (name "mcron")
(version "1.0.8") (version "1.1")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://gnu/mcron/mcron-" (uri (string-append "mirror://gnu/mcron/mcron-"
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"0zparwgf01jgl1x53ik71ghabldq6zz18ha4dscps1i0qrzgap1b")) "1f547sqqfbp0k02sqk4ivwx8y9mx8l0rrx1c9rrj033av073h6xq"))))
(patches (search-patches "mcron-install.patch"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs `(("pkg-config" ,pkg-config))) (arguments
(inputs `(("ed" ,ed) ("which" ,which) ("guile" ,guile-2.0))) '(#:phases (modify-phases %standard-phases
(add-before 'check 'set-timezone
(lambda* (#:key inputs #:allow-other-keys)
;; 'tests/schedule.sh' expects to be running in UTC+1.
(let ((tzdata (assoc-ref inputs "tzdata")))
(setenv "TZDIR"
(string-append tzdata
"/share/zoneinfo"))
(setenv "TZ" "UTC+1")
#t)))
(add-before 'check 'disable-schedule-test
(lambda _
;; But! As it turns out, that test additionally relies
;; on non-deterministic behavior; see
;; <https://lists.gnu.org/archive/html/bug-mcron/2018-03/msg00001.html>.
(substitute* "tests/schedule.sh"
(("mkdir cron") "exit 77\n"))
#t))
(add-after 'install 'wrap-programs
(lambda* (#:key outputs #:allow-other-keys)
;; By default mcron doesn't have its own modules in the
;; search path, so the 'mcron' command fails to start.
(let* ((output (assoc-ref outputs "out"))
(modules (string-append output
"/share/guile/site/2.2"))
(go (string-append output
"/lib/guile/2.2/site-ccache")))
(wrap-program (string-append output "/bin/mcron")
`("GUILE_LOAD_PATH" ":" prefix
(,modules))
`("GUILE_LOAD_COMPILED_PATH" ":" prefix (,go)))
#t))))))
(native-inputs `(("pkg-config" ,pkg-config)
("tzdata" ,tzdata-for-tests)))
(inputs `(("ed" ,ed) ("which" ,which) ("guile" ,guile-2.2)))
(home-page "https://www.gnu.org/software/mcron/") (home-page "https://www.gnu.org/software/mcron/")
(synopsis "Run jobs at scheduled times") (synopsis "Run jobs at scheduled times")
(description (description
@ -687,64 +720,8 @@ format is also supported.")
(license license:gpl3+))) (license license:gpl3+)))
(define-public mcron2 (define-public mcron2
;; This is mthl's mcron development branch, not yet merged in mcron. ;; This was mthl's mcron development branch, and it became mcron 1.1.
(let ((commit "31baff1a5187d8ddc89324cbe42dbeffc309c962")) (deprecated-package "mcron2" mcron))
(package
(inherit mcron)
(name "mcron2")
(version (string-append (package-version mcron) "-0."
(string-take commit 7)))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://notabug.org/mthl/mcron/")
(commit commit)))
(sha256
(base32
"1h5wxy997hxi718hpx419c23q09939kbxrjbbq54lv0cgw1bb63z"))
(file-name (string-append name "-" version "-checkout"))))
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
("pkg-config" ,pkg-config)
("texinfo" ,texinfo)
("help2man" ,help2man)))
(inputs
`(("guile-2.2" ,guile-2.2)
,@(srfi-1:alist-delete "guile" (package-inputs mcron))))
(arguments
`(#:modules ((ice-9 match) (ice-9 ftw)
,@%gnu-build-system-modules)
;; When building the targets in parallel, help2man tries to generate
;; the manpage from ./cron --help before it is built, which fails.
#:parallel-build? #f
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'use-guile-2.2
(lambda _
(substitute* "configure.ac"
(("PKG_CHECK_MODULES\\(\\[GUILE\\],.*$")
"PKG_CHECK_MODULES([GUILE], [guile-2.2])\n")
(("guile/site/2.0")
"guile/site/2.2"))
#t))
(add-after 'install 'wrap-mcron
(lambda* (#:key outputs #:allow-other-keys)
;; Wrap the 'mcron' command to refer to the right
;; modules.
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin"))
(site (string-append
out "/share/guile/site")))
(match (scandir site)
(("." ".." version)
(let ((modules (string-append site "/" version)))
(wrap-program (string-append bin "/mcron")
`("GUILE_LOAD_PATH" ":" prefix
(,modules))
`("GUILE_LOAD_COMPILED_PATH" ":" prefix
(,modules)))
#t))))))))))))
(define-public guile-ics (define-public guile-ics
(package (package
@ -1974,8 +1951,8 @@ is not available for Guile 2.0.")
(license license:lgpl3+))) (license license:lgpl3+)))
(define-public guile-git (define-public guile-git
(let ((revision "4") (let ((revision "5")
(commit "951a32c56cc4d80f8836e3c7394783e69c1fcbad")) (commit "2bb9fbbf93cf93496718efc85ad9394aefa21029"))
(package (package
(name "guile-git") (name "guile-git")
(version (string-append "0.0-" revision "." (string-take commit 7))) (version (string-append "0.0-" revision "." (string-take commit 7)))
@ -1985,7 +1962,7 @@ is not available for Guile 2.0.")
(uri (git-reference (url home-page) (commit commit))) (uri (git-reference (url home-page) (commit commit)))
(sha256 (sha256
(base32 (base32
"0qri9x73ij6g40ijs4hyhj8knxw39ydgghiafq74dp99bc8hh0qc")) "0z3v0v89dyp35zx2h2gsq6v29lba3wbzabc5n2g4hx2fcb6q5qqy"))
(file-name (git-file-name name version)))) (file-name (git-file-name name version))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments

21
gnu/packages/haskell.scm
View File

@ -6398,6 +6398,19 @@ and also has a mode for converting bibliographic databases a YAML format
suitable for inclusion in pandoc YAML metadata.") suitable for inclusion in pandoc YAML metadata.")
(license license:bsd-3))) (license license:bsd-3)))
(define-public ghc-pandoc-citeproc-with-pandoc-1
(let ((for-pandoc-1
(package-input-rewriting
`((,ghc-aeson . ,ghc-aeson-for-pandoc-1)
(,ghc-yaml . ,ghc-yaml-for-pandoc-1)
(,ghc-texmath . ,ghc-texmath-for-pandoc-1)
(,ghc-pandoc-types . ,ghc-pandoc-types-for-pandoc-1)
(,ghc-hslua . ,ghc-hslua-for-pandoc-1)
(,ghc-skylighting . ,ghc-skylighting-for-pandoc-1)
(,ghc-doctemplates . ,ghc-doctemplates-for-pandoc-1)
(,ghc-pandoc . ,ghc-pandoc-1)))))
(for-pandoc-1 ghc-pandoc-citeproc)))
(define-public ghc-union-find (define-public ghc-union-find
(package (package
(name "ghc-union-find") (name "ghc-union-find")
@ -7883,7 +7896,7 @@ files in Haskell.")
(inputs (inputs
`(("ghc-mtl" ,ghc-mtl) `(("ghc-mtl" ,ghc-mtl)
("ghc-network" ,ghc-network) ("ghc-network" ,ghc-network)
("ghc-directory", ghc-directory) ("ghc-directory" ,ghc-directory)
("ghc-old-locale" ,ghc-old-locale))) ("ghc-old-locale" ,ghc-old-locale)))
(native-inputs (native-inputs
`(("ghc-hunit" ,ghc-hunit))) `(("ghc-hunit" ,ghc-hunit)))
@ -8460,7 +8473,7 @@ that are much lighter weight than IO-threads.")
(native-inputs (native-inputs
`(("ghc-hunit" ,ghc-hunit) `(("ghc-hunit" ,ghc-hunit)
("ghc-quickcheck" ,ghc-quickcheck) ("ghc-quickcheck" ,ghc-quickcheck)
("ghc-ieee754", ghc-ieee754) ("ghc-ieee754" ,ghc-ieee754)
("ghc-test-framework" ,ghc-test-framework) ("ghc-test-framework" ,ghc-test-framework)
("ghc-test-framework-hunit" ,ghc-test-framework-hunit) ("ghc-test-framework-hunit" ,ghc-test-framework-hunit)
("ghc-test-framework-quickcheck2" ,ghc-test-framework-quickcheck2))) ("ghc-test-framework-quickcheck2" ,ghc-test-framework-quickcheck2)))
@ -8584,7 +8597,7 @@ statically known size.")
(build-system haskell-build-system) (build-system haskell-build-system)
(inputs `(("ghc-tuple-th" ,ghc-tuple-th) (inputs `(("ghc-tuple-th" ,ghc-tuple-th)
("ghc-contravariant" ,ghc-contravariant) ("ghc-contravariant" ,ghc-contravariant)
("ghc-base-prelude",ghc-base-prelude))) ("ghc-base-prelude" ,ghc-base-prelude)))
(home-page "https://github.com/nikita-volkov/contravariant-extras") (home-page "https://github.com/nikita-volkov/contravariant-extras")
(synopsis "Extras for the @code{ghc-contravariant} Haskell package") (synopsis "Extras for the @code{ghc-contravariant} Haskell package")
(description "This Haskell package provides extras for the (description "This Haskell package provides extras for the
@ -8899,7 +8912,7 @@ and are often as efficient as hand-written folds.")
("ghc-vector-algorithms" ,ghc-vector-algorithms) ("ghc-vector-algorithms" ,ghc-vector-algorithms)
("ghc-split" ,ghc-split))) ("ghc-split" ,ghc-split)))
(native-inputs `(("ghc-hspec" ,ghc-hspec) (native-inputs `(("ghc-hspec" ,ghc-hspec)
("ghc-hunit",ghc-hunit) ("ghc-hunit" ,ghc-hunit)
("ghc-quickcheck" ,ghc-quickcheck) ("ghc-quickcheck" ,ghc-quickcheck)
("ghc-semigroups" ,ghc-semigroups) ("ghc-semigroups" ,ghc-semigroups)
("ghc-foldl" ,ghc-foldl))) ("ghc-foldl" ,ghc-foldl)))

4
gnu/packages/image.scm
View File

@ -626,7 +626,7 @@ compose, and analyze GIF images.")
(define-public imlib2 (define-public imlib2
(package (package
(name "imlib2") (name "imlib2")
(version "1.5.0") (version "1.5.1")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append (uri (string-append
@ -634,7 +634,7 @@ compose, and analyze GIF images.")
"/imlib2-" version ".tar.bz2")) "/imlib2-" version ".tar.bz2"))
(sha256 (sha256
(base32 (base32
"0kg28b5wp886hiy12v7abdybrvlymb7g3nvg0ysn2y8h883s5w8m")))) "1bms2iwmvnvpz5jqq3r52glarqkafif47zbh1ykz8hw85d2mfkps"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
`(("pkgconfig" ,pkg-config))) `(("pkgconfig" ,pkg-config)))

4
gnu/packages/imagemagick.scm
View File

@ -47,14 +47,14 @@
;; The 7 release series has an incompatible API, while the 6 series is still ;; 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 ;; maintained. Don't update to 7 until we've made sure that the ImageMagick
;; users are ready for the 7-series API. ;; users are ready for the 7-series API.
(version "6.9.9-37") (version "6.9.9-39")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://imagemagick/ImageMagick-" (uri (string-append "mirror://imagemagick/ImageMagick-"
version ".tar.xz")) version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"1hmfw0jcpc3s3gz9zrzjy9amyrfz6gzzjdsyaw3xw994aq9qf4lq")))) "0cgrvfg8722cdv2y0hw2f7xhzdfmfiqc1348l71ki38dg4b0q4sn"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:configure-flags '("--with-frozenpaths" "--without-gcc-arch") `(#:configure-flags '("--with-frozenpaths" "--without-gcc-arch")

6
gnu/packages/irc.scm
View File

@ -101,7 +101,7 @@
("qttools" ,qttools))) ("qttools" ,qttools)))
(inputs (inputs
`(("qca" ,qca) `(("qca" ,qca)
("qtbase", qtbase) ("qtbase" ,qtbase)
("qtscript" ,qtscript) ("qtscript" ,qtscript)
("snorenotify" ,snorenotify) ("snorenotify" ,snorenotify)
("zlib" ,zlib))) ("zlib" ,zlib)))
@ -156,14 +156,14 @@ SILC and ICB protocols via plugins.")
(define-public weechat (define-public weechat
(package (package
(name "weechat") (name "weechat")
(version "2.0.1") (version "2.1")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://weechat.org/files/src/weechat-" (uri (string-append "https://weechat.org/files/src/weechat-"
version ".tar.xz")) version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"1l854dramvn9vfba7jpazkjwm4k4i5pshq58vjv6z2mxmcp5hhv9")) "0f7d2vdbxc5kgjl7lkamnbxvidgxwa8f9j3nr9fd4gr4z0gzi86d"))
(patches (search-patches "weechat-python.patch")))) (patches (search-patches "weechat-python.patch"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(native-inputs (native-inputs

36
gnu/packages/kde-frameworks.scm
View File

@ -157,7 +157,7 @@ common build settings used in software produced by the KDE community.")
;; TODO: Add building the super experimental QML support ;; TODO: Add building the super experimental QML support
`(("extra-cmake-modules" ,extra-cmake-modules) `(("extra-cmake-modules" ,extra-cmake-modules)
("pkg-config" ,pkg-config) ("pkg-config" ,pkg-config)
("qttools", qttools))) ("qttools" ,qttools)))
(inputs (inputs
`(("qtbase" ,qtbase))) `(("qtbase" ,qtbase)))
(arguments (arguments
@ -1186,7 +1186,7 @@ lower level classes for interaction with the X Windowing System.")
("pkg-config" ,pkg-config))) ("pkg-config" ,pkg-config)))
(propagated-inputs (propagated-inputs
;; Headers contain #include <ModemManager/ModemManager.h> ;; Headers contain #include <ModemManager/ModemManager.h>
`(("modem-manager", modem-manager))) `(("modem-manager" ,modem-manager)))
(inputs (inputs
`(("qtbase" ,qtbase))) `(("qtbase" ,qtbase)))
(arguments (arguments
@ -1284,7 +1284,7 @@ which are used in DBus communication.")
(native-inputs (native-inputs
`(("extra-cmake-modules" ,extra-cmake-modules))) `(("extra-cmake-modules" ,extra-cmake-modules)))
(inputs (inputs
`(("libdmtx", libdmtx) `(("libdmtx" ,libdmtx)
("qrencode" ,qrencode) ("qrencode" ,qrencode)
("qtbase" ,qtbase))) ;; TODO: rethink: nix propagates this ("qtbase" ,qtbase))) ;; TODO: rethink: nix propagates this
(home-page "https://api.kde.org/frameworks/prison/html/index.html") (home-page "https://api.kde.org/frameworks/prison/html/index.html")
@ -2209,7 +2209,7 @@ their settings.")
("kwidgetsaddons" ,kwidgetsaddons) ("kwidgetsaddons" ,kwidgetsaddons)
("kwindowsystem" ,kwindowsystem) ("kwindowsystem" ,kwindowsystem)
("kxmlgui" ,kxmlgui) ("kxmlgui" ,kxmlgui)
("libepoxy", libepoxy) ("libepoxy" ,libepoxy)
("qtbase" ,qtbase) ("qtbase" ,qtbase)
("qtdeclarative" ,qtdeclarative) ("qtdeclarative" ,qtdeclarative)
("solid" ,solid))) ("solid" ,solid)))
@ -3003,7 +3003,7 @@ types or handled by application specific code.")
("libgit2" ,libgit2) ("libgit2" ,libgit2)
("perl" ,perl) ("perl" ,perl)
("qtbase" ,qtbase) ("qtbase" ,qtbase)
("qtdeclarative", qtdeclarative) ("qtdeclarative" ,qtdeclarative)
("qtscript" ,qtscript) ("qtscript" ,qtscript)
("qtxmlpatterns" ,qtxmlpatterns) ("qtxmlpatterns" ,qtxmlpatterns)
("solid" ,solid) ("solid" ,solid)
@ -3071,7 +3071,7 @@ library.")
("kwidgetsaddons" ,kwidgetsaddons) ("kwidgetsaddons" ,kwidgetsaddons)
("kwindowsystem" ,kwindowsystem) ("kwindowsystem" ,kwindowsystem)
("qtbase" ,qtbase) ("qtbase" ,qtbase)
("qtspeech", qtspeech))) ("qtspeech" ,qtspeech)))
(arguments (arguments
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
@ -3150,7 +3150,7 @@ the passwords on KDE work spaces.")
`(("extra-cmake-modules" ,extra-cmake-modules))) `(("extra-cmake-modules" ,extra-cmake-modules)))
(inputs (inputs
`(("attica" ,attica) `(("attica" ,attica)
("kauth", kauth) ("kauth" ,kauth)
("kcodecs" ,kcodecs) ("kcodecs" ,kcodecs)
("kcoreaddons" ,kcoreaddons) ("kcoreaddons" ,kcoreaddons)
("kglobalaccel" ,kglobalaccel) ("kglobalaccel" ,kglobalaccel)
@ -3395,7 +3395,7 @@ workspace.")
`(("dbus" ,dbus) `(("dbus" ,dbus)
("docbook-xml" ,docbook-xml-4.4) ; optional ("docbook-xml" ,docbook-xml-4.4) ; optional
("extra-cmake-modules" ,extra-cmake-modules) ("extra-cmake-modules" ,extra-cmake-modules)
("perl", perl) ("perl" ,perl)
("perl-uri" ,perl-uri) ("perl-uri" ,perl-uri)
("pkg-config" ,pkg-config) ("pkg-config" ,pkg-config)
("shared-mime-info" ,shared-mime-info) ("shared-mime-info" ,shared-mime-info)
@ -3421,7 +3421,7 @@ workspace.")
("knotifications" ,knotifications) ("knotifications" ,knotifications)
("kparts" ,kparts) ("kparts" ,kparts)
("ktextwidgets" ,ktextwidgets) ("ktextwidgets" ,ktextwidgets)
("kunitconversion", kunitconversion) ("kunitconversion" ,kunitconversion)
("kwindowsystem" ,kwindowsystem) ("kwindowsystem" ,kwindowsystem)
("qtbase" ,qtbase))) ("qtbase" ,qtbase)))
(inputs (inputs
@ -3434,9 +3434,9 @@ workspace.")
("kservice" ,kservice) ("kservice" ,kservice)
("kwidgetsaddons" ,kwidgetsaddons) ("kwidgetsaddons" ,kwidgetsaddons)
("kxmlgui" ,kxmlgui) ("kxmlgui" ,kxmlgui)
("libsm", libsm) ("libsm" ,libsm)
("networkmanager-qt", networkmanager-qt) ("networkmanager-qt" ,networkmanager-qt)
("openssl", openssl) ("openssl" ,openssl)
("qtsvg" ,qtsvg) ("qtsvg" ,qtsvg)
("qttools" ,qttools) ("qttools" ,qttools)
("qtx11extras" ,qtx11extras))) ("qtx11extras" ,qtx11extras)))
@ -3507,7 +3507,7 @@ http://community.kde.org/Frameworks/Porting_Notes should help with this.")
(build-system cmake-build-system) (build-system cmake-build-system)
(native-inputs (native-inputs
`(("extra-cmake-modules" ,extra-cmake-modules) `(("extra-cmake-modules" ,extra-cmake-modules)
("perl", perl))) ("perl" ,perl)))
(inputs (inputs
`(("giflib" ,giflib) `(("giflib" ,giflib)
("gperf" ,gperf) ("gperf" ,gperf)
@ -3521,14 +3521,14 @@ http://community.kde.org/Frameworks/Porting_Notes should help with this.")
("knotifications" ,knotifications) ("knotifications" ,knotifications)
("kparts" ,kparts) ("kparts" ,kparts)
("ktextwidgets" ,ktextwidgets) ("ktextwidgets" ,ktextwidgets)
("kwallet", kwallet) ("kwallet" ,kwallet)
("kwidgetsaddons" ,kwidgetsaddons) ("kwidgetsaddons" ,kwidgetsaddons)
("kwindowsystem" ,kwindowsystem) ("kwindowsystem" ,kwindowsystem)
("kxmlgui" ,kxmlgui) ("kxmlgui" ,kxmlgui)
("libjpeg", libjpeg) ("libjpeg" ,libjpeg)
("libpng", libpng) ("libpng" ,libpng)
("openssl", openssl) ("openssl" ,openssl)
("phonon", phonon) ("phonon" ,phonon)
("qtbase" ,qtbase) ("qtbase" ,qtbase)
("qtx11extras" ,qtx11extras) ("qtx11extras" ,qtx11extras)
("sonnet" ,sonnet))) ("sonnet" ,sonnet)))

48
gnu/packages/linux.scm
View File

@ -383,8 +383,8 @@ It has been modified to remove all non-free binary blobs.")
;; supports qemu "virt" machine and possibly a large number of ARM boards. ;; supports qemu "virt" machine and possibly a large number of ARM boards.
;; See : https://wiki.debian.org/DebianKernel/ARMMP. ;; See : https://wiki.debian.org/DebianKernel/ARMMP.
(define %linux-libre-version "4.15.10") (define %linux-libre-version "4.15.11")
(define %linux-libre-hash "10fp8jmy0fxq8l01m1nnagpq1hznl9jmhcwknk8izjmdcb5snq6c") (define %linux-libre-hash "0nrsmw7x5nsc3906dfvfakkibv8pv09r1sf5ckzbkcbkwpyq62h8")
(define-public linux-libre (define-public linux-libre
(make-linux-libre %linux-libre-version (make-linux-libre %linux-libre-version
@ -392,8 +392,8 @@ It has been modified to remove all non-free binary blobs.")
%linux-compatible-systems %linux-compatible-systems
#:configuration-file kernel-config)) #:configuration-file kernel-config))
(define %linux-libre-4.14-version "4.14.27") (define %linux-libre-4.14-version "4.14.28")
(define %linux-libre-4.14-hash "0mgkka9niyd0lj4qliy4v7jjh9lg1a5jwlv60yw7z0s4k7ajyyrp") (define %linux-libre-4.14-hash "0xg3zsm1yjsvxir8sz7zliz8gcc8d45xh23qyiszl75cfqjl36l3")
(define-public linux-libre-4.14 (define-public linux-libre-4.14
(make-linux-libre %linux-libre-4.14-version (make-linux-libre %linux-libre-4.14-version
@ -402,14 +402,14 @@ It has been modified to remove all non-free binary blobs.")
#:configuration-file kernel-config)) #:configuration-file kernel-config))
(define-public linux-libre-4.9 (define-public linux-libre-4.9
(make-linux-libre "4.9.87" (make-linux-libre "4.9.88"
"1p8phvmxp04npzqzqcfmv8k9l5l65s7vpjcakdm0fxfkzvnswsp6" "0qlhd8xw3g00i7krpfndkwxzjszk067h26qsxxsszvxyx2s6gp4x"
%intel-compatible-systems %intel-compatible-systems
#:configuration-file kernel-config)) #:configuration-file kernel-config))
(define-public linux-libre-4.4 (define-public linux-libre-4.4
(make-linux-libre "4.4.121" (make-linux-libre "4.4.122"
"1d7djrhiib0ds9ssjkali6b5w6rzap4zgj5hf9jq1jmqpp54jkm4" "1ayilv7474vsif3jpb723jbcy4kymv1fpdr96c1g743bad1wkqqq"
%intel-compatible-systems %intel-compatible-systems
#:configuration-file kernel-config)) #:configuration-file kernel-config))
@ -1776,9 +1776,9 @@ file system is as easy as logging into the server with an SSH client.")
(base32 (base32
"0v4si1ri6lhnq9q87gkx7fsh6lv6xz4bynknwndqncpvfp5cy1jg")))) "0v4si1ri6lhnq9q87gkx7fsh6lv6xz4bynknwndqncpvfp5cy1jg"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs `(("fuse", fuse) (inputs `(("fuse" ,fuse)
("libarchive", libarchive))) ("libarchive" ,libarchive)))
(native-inputs `(("pkg-config", pkg-config))) (native-inputs `(("pkg-config" ,pkg-config)))
(home-page "http://www.cybernoia.de/software/archivemount") (home-page "http://www.cybernoia.de/software/archivemount")
(synopsis "Tool for mounting archive files with FUSE") (synopsis "Tool for mounting archive files with FUSE")
(description "archivemount is a FUSE-based file system for Unix variants, (description "archivemount is a FUSE-based file system for Unix variants,
@ -2033,7 +2033,7 @@ from the module-init-tools project.")
("docbook-xml" ,docbook-xml-4.2) ("docbook-xml" ,docbook-xml-4.2)
("docbook-xsl" ,docbook-xsl) ("docbook-xsl" ,docbook-xsl)
("libxml2" ,libxml2) ;for $XML_CATALOG_FILES ("libxml2" ,libxml2) ;for $XML_CATALOG_FILES
("xsltproc", libxslt))) ("xsltproc" ,libxslt)))
(inputs (inputs
;; When linked against libblkid, eudev can populate /dev/disk/by-label ;; When linked against libblkid, eudev can populate /dev/disk/by-label
;; and similar; it also installs the '60-persistent-storage.rules' file, ;; and similar; it also installs the '60-persistent-storage.rules' file,
@ -2542,14 +2542,14 @@ thanks to the use of namespaces.")
(define-public hdparm (define-public hdparm
(package (package
(name "hdparm") (name "hdparm")
(version "9.54") (version "9.55")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://sourceforge/" name "/" name "/" (uri (string-append "mirror://sourceforge/" name "/" name "/"
name "-" version ".tar.gz")) name "-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"0ghnhdj7wfw6acfyhdawpfa5n9kvkvzgi1fw6i7sghgbjx5nhyjd")))) "1ivdvrzimaayiq03by8mcq0mhmdljndj06h012zkdpw34irnpixm"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:make-flags (let ((out (assoc-ref %outputs "out"))) `(#:make-flags (let ((out (assoc-ref %outputs "out")))
@ -3403,8 +3403,8 @@ The package provides additional NTFS tools.")
;; Upstream uses the "ninja" build system and encourage distros ;; Upstream uses the "ninja" build system and encourage distros
;; to do the same for consistency. They also recommend using the ;; to do the same for consistency. They also recommend using the
;; "Release" build type. ;; "Release" build type.
#:configure-flags (list "-GNinja" #:build-type "Release"
"-DCMAKE_BUILD_TYPE=Release") #:configure-flags (list "-GNinja")
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(replace 'build (replace 'build
@ -3704,7 +3704,7 @@ are exceeded.")
(inputs (inputs
`(("acl" ,acl) `(("acl" ,acl)
("libuuid" ,util-linux) ("libuuid" ,util-linux)
("lzo", lzo) ("lzo" ,lzo)
("zlib" ,zlib))) ("zlib" ,zlib)))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
@ -4134,13 +4134,13 @@ used by nftables.")
(base32 (base32
"1i1gfy8l7qyhc5vlrpp63s0n5kybmc9pi4dywiq8rmkhrrnddsla")))) "1i1gfy8l7qyhc5vlrpp63s0n5kybmc9pi4dywiq8rmkhrrnddsla"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs `(("bison", bison) (inputs `(("bison" ,bison)
("flex", flex) ("flex" ,flex)
("gmp", gmp) ("gmp" ,gmp)
("libmnl", libmnl) ("libmnl" ,libmnl)
("libnftnl", libnftnl) ("libnftnl" ,libnftnl)
("readline", readline))) ("readline" ,readline)))
(native-inputs `(("pkg-config", pkg-config))) (native-inputs `(("pkg-config" ,pkg-config)))
(home-page "http://www.nftables.org") (home-page "http://www.nftables.org")
(synopsis "Userspace utility for Linux packet filtering") (synopsis "Userspace utility for Linux packet filtering")
(description "nftables is the project that aims to replace the existing (description "nftables is the project that aims to replace the existing

10
gnu/packages/lua.scm
View File

@ -354,12 +354,12 @@ secure session between the peers.")
(inputs (inputs
`(("gobject-introspection" ,gobject-introspection) `(("gobject-introspection" ,gobject-introspection)
("glib" ,glib) ("glib" ,glib)
("pango", pango) ("pango" ,pango)
("gtk", gtk+-2) ("gtk" ,gtk+-2)
("lua" ,lua) ("lua" ,lua)
("cairo" ,cairo) ("cairo" ,cairo)
("libffi" ,libffi) ("libffi" ,libffi)
("xorg-server", xorg-server))) ("xorg-server" ,xorg-server)))
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config) `(("pkg-config" ,pkg-config)
("dbus" ,dbus))) ;tests use 'dbus-run-session' ("dbus" ,dbus))) ;tests use 'dbus-run-session'
@ -397,7 +397,7 @@ Notable examples are GTK+, GStreamer and Webkit.")
(string-append out "/share/lua/" lua-version)) (string-append out "/share/lua/" lua-version))
#t)))) #t))))
#:test-target "test")) #:test-target "test"))
(inputs `(("lua", lua))) (inputs `(("lua" ,lua)))
(synopsis "Pattern-matching library for Lua") (synopsis "Pattern-matching library for Lua")
(description (description
"LPeg is a pattern-matching library for Lua, based on Parsing Expression "LPeg is a pattern-matching library for Lua, based on Parsing Expression
@ -436,7 +436,7 @@ Grammars (PEGs).")
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(delete 'configure)))) (delete 'configure))))
(inputs `(("lua", lua))) (inputs `(("lua" ,lua)))
(home-page "https://bitop.luajit.org/index.html") (home-page "https://bitop.luajit.org/index.html")
(synopsis "Bitwise operations on numbers for Lua") (synopsis "Bitwise operations on numbers for Lua")
(description (description

2
gnu/packages/mail.scm
View File

@ -1814,7 +1814,7 @@ in Perl.")
(patch-shebang "mb2md" (list (string-append perl "/bin"))) (patch-shebang "mb2md" (list (string-append perl "/bin")))
(chmod "mb2md" #o555)) (chmod "mb2md" #o555))
#t)))) #t))))
(native-inputs `(("gzip", gzip))) (native-inputs `(("gzip" ,gzip)))
(inputs `(("perl" ,perl) (inputs `(("perl" ,perl)
("perl-timedate" ,perl-timedate))) ("perl-timedate" ,perl-timedate)))
(home-page "http://batleth.sapienti-sat.org/projects/mb2md/") (home-page "http://batleth.sapienti-sat.org/projects/mb2md/")

2
gnu/packages/make-bootstrap.scm
View File

@ -110,7 +110,7 @@ for `sh' in $PATH, and without nscd, and with static NSS modules."
("gcc" ,(package (inherit gcc) ("gcc" ,(package (inherit gcc)
(outputs '("out")) ; all in one so libgcc_s is easily found (outputs '("out")) ; all in one so libgcc_s is easily found
(inputs (inputs
`(("libc",(glibc-for-bootstrap)) `(("libc" ,(glibc-for-bootstrap))
("libc:static" ,(glibc-for-bootstrap) "static") ("libc:static" ,(glibc-for-bootstrap) "static")
,@(package-inputs gcc))))) ,@(package-inputs gcc)))))
,@(fold alist-delete (%final-inputs) '("libc" "gcc"))))) ,@(fold alist-delete (%final-inputs) '("libc" "gcc")))))

34
gnu/packages/maths.scm
View File

@ -53,6 +53,7 @@
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module (guix build-system ocaml) #:use-module (guix build-system ocaml)
#:use-module (guix build-system r) #:use-module (guix build-system r)
#:use-module (guix build-system ruby)
#:use-module (gnu packages algebra) #:use-module (gnu packages algebra)
#:use-module (gnu packages autotools) #:use-module (gnu packages autotools)
#:use-module (gnu packages bison) #:use-module (gnu packages bison)
@ -97,6 +98,7 @@
#:use-module (gnu packages python-web) #:use-module (gnu packages python-web)
#:use-module (gnu packages qt) #:use-module (gnu packages qt)
#:use-module (gnu packages readline) #:use-module (gnu packages readline)
#:use-module (gnu packages ruby)
#:use-module (gnu packages tbb) #:use-module (gnu packages tbb)
#:use-module (gnu packages scheme) #:use-module (gnu packages scheme)
#:use-module (gnu packages shells) #:use-module (gnu packages shells)
@ -1947,6 +1949,38 @@ special functions. It uses Matlab function names where appropriate to simplify
porting.") porting.")
(license license:gpl3+))) (license license:gpl3+)))
(define-public ruby-asciimath
(package
(name "ruby-asciimath")
(version "1.0.4")
(source
(origin
(method url-fetch)
(uri (rubygems-uri "asciimath" version))
(sha256
(base32
"1d80kiph5mc78zps7si1hv48kv4k12mzaq8jk5kb3pqpjdr72qmc"))))
(build-system ruby-build-system)
(arguments
'(#:phases
(modify-phases %standard-phases
;; Apply this patch
;; https://github.com/asciidoctor/asciimath/commit/1c06fdc8086077f4785479f78b0823a4a72d7948
(add-after 'unpack 'patch-remove-spurious-backslashes
(lambda _
(substitute* "spec/parser_spec.rb"
(("\\\\\"")
"\"")))))))
(native-inputs
`(("bundler" ,bundler)
("ruby-rspec" ,ruby-rspec)))
(synopsis "AsciiMath parsing and conversion library")
(description
"A pure Ruby AsciiMath parsing and conversion library. AsciiMath is an
easy-to-write markup language for mathematics.")
(home-page "https://github.com/asciidoctor/asciimath")
(license license:expat)))
(define-public superlu (define-public superlu
(package (package
(name "superlu") (name "superlu")

12
gnu/packages/messaging.scm
View File

@ -144,9 +144,9 @@ keys, no previous conversation is compromised.")
#:configure-flags '("-DBUILD_SHARED_LIBS=on" "-DBUILD_TESTING=1"))) #:configure-flags '("-DBUILD_SHARED_LIBS=on" "-DBUILD_TESTING=1")))
(build-system cmake-build-system) (build-system cmake-build-system)
(inputs `( ;; Required for tests: (inputs `( ;; Required for tests:
("check", check) ("check" ,check)
("openssl", openssl))) ("openssl" ,openssl)))
(native-inputs `(("pkg-config", pkg-config))) (native-inputs `(("pkg-config" ,pkg-config)))
(home-page "https://github.com/WhisperSystems/libsignal-protocol-c") (home-page "https://github.com/WhisperSystems/libsignal-protocol-c")
(synopsis "Implementation of a ratcheting forward secrecy protocol") (synopsis "Implementation of a ratcheting forward secrecy protocol")
(description "libsignal-protocol-c is an implementation of a ratcheting (description "libsignal-protocol-c is an implementation of a ratcheting
@ -614,8 +614,8 @@ end-to-end encryption support; XML console.")
(assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap))))) (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
(inputs (inputs
`(("libgee" ,libgee) `(("libgee" ,libgee)
("libsignal-protocol-c", libsignal-protocol-c) ("libsignal-protocol-c" ,libsignal-protocol-c)
("libgcrypt", libgcrypt) ("libgcrypt" ,libgcrypt)
("libsoup" ,libsoup) ("libsoup" ,libsoup)
("sqlite" ,sqlite) ("sqlite" ,sqlite)
("gpgme" ,gpgme) ("gpgme" ,gpgme)
@ -624,7 +624,7 @@ end-to-end encryption support; XML console.")
("gsettings-desktop-schemas" ,gsettings-desktop-schemas))) ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)))
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config) `(("pkg-config" ,pkg-config)
("libsignal-protocol-c-source", (package-source libsignal-protocol-c)) ("libsignal-protocol-c-source" ,(package-source libsignal-protocol-c))
("glib" ,glib "bin") ("glib" ,glib "bin")
("vala" ,vala) ("vala" ,vala)
("gettext" ,gettext-minimal))) ("gettext" ,gettext-minimal)))

31
gnu/packages/monitoring.scm
View File

@ -28,6 +28,7 @@
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module (gnu packages admin) #:use-module (gnu packages admin)
#:use-module (gnu packages base) #:use-module (gnu packages base)
#:use-module (gnu packages check)
#:use-module (gnu packages compression) #:use-module (gnu packages compression)
#:use-module (gnu packages django) #:use-module (gnu packages django)
#:use-module (gnu packages gd) #:use-module (gnu packages gd)
@ -264,3 +265,33 @@ and persisting them to disk using the Whisper time-series library.")
two things: store numeric time-series data, and render graphs of this data on two things: store numeric time-series data, and render graphs of this data on
demand.") demand.")
(license license:asl2.0))) (license license:asl2.0)))
(define-public python-prometheus-client
(package
(name "python-prometheus-client")
(version "0.1.1")
(source
(origin
(method url-fetch)
(uri (pypi-uri "prometheus_client" version))
(sha256
(base32
"164qzzg8q8awqk0angcm87p2sjiibaj1wgjz0xk6j0klvqi5q2mz"))))
(build-system python-build-system)
(arguments
'(;; No included tests.
#:tests? #f))
(home-page
"https://github.com/prometheus/client_python")
(synopsis "Python client for the Prometheus monitoring system")
(description
"The @code{prometheus_client} package supports exposing metrics from
software written in Python, so that they can be scraped by a Prometheus
service.
Metrics can be exposed through a standalone web server, or through Twisted,
WSGI and the node exporter textfile collector.")
(license license:asl2.0)))
(define-public python2-prometheus-client
(package-with-python2 python-prometheus-client))

8
gnu/packages/music.scm
View File

@ -401,7 +401,7 @@ many input formats and provides a customisable Vi-style user interface.")
"Clarinet in Bb.denemo")) "Clarinet in Bb.denemo"))
#t))))) #t)))))
(native-inputs (native-inputs
`(("glib:bin", glib "bin") ; for gtester `(("glib:bin" ,glib "bin") ; for gtester
("pkg-config" ,pkg-config))) ("pkg-config" ,pkg-config)))
(inputs (inputs
`(("alsa-lib" ,alsa-lib) `(("alsa-lib" ,alsa-lib)
@ -419,7 +419,7 @@ many input formats and provides a customisable Vi-style user interface.")
("libsndfile" ,libsndfile) ("libsndfile" ,libsndfile)
("libtool" ,libtool) ("libtool" ,libtool)
("libxml2" ,libxml2) ("libxml2" ,libxml2)
("lilypond", lilypond) ("lilypond" ,lilypond)
("portaudio" ,portaudio) ("portaudio" ,portaudio)
("portmidi" ,portmidi) ("portmidi" ,portmidi)
("rubberband" ,rubberband))) ("rubberband" ,rubberband)))
@ -1757,9 +1757,9 @@ projects.")
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
`(#:tests? #f ; tests cannot be linked `(#:tests? #f ; tests cannot be linked
#:build-type "Release" ; needed to have PMALSA set
#:configure-flags #:configure-flags
(list "-DPORTMIDI_ENABLE_JAVA=Off" (list "-DPORTMIDI_ENABLE_JAVA=Off"
"-DCMAKE_BUILD_TYPE=Release" ; needed to have PMALSA set
"-DPORTMIDI_ENABLE_TEST=Off"))) ; tests fail linking "-DPORTMIDI_ENABLE_TEST=Off"))) ; tests fail linking
(inputs (inputs
`(("alsa-lib" ,alsa-lib))) `(("alsa-lib" ,alsa-lib)))
@ -2520,7 +2520,7 @@ websites such as Libre.fm.")
(build-system python-build-system) (build-system python-build-system)
(propagated-inputs (propagated-inputs
`(("python-requests" ,python-requests) `(("python-requests" ,python-requests)
("eyed3", eyed3) ("eyed3" ,eyed3)
("python-beautifulsoup4" ,python-beautifulsoup4) ("python-beautifulsoup4" ,python-beautifulsoup4)
("youtube-dl" ,youtube-dl))) ("youtube-dl" ,youtube-dl)))
(arguments (arguments

20
gnu/packages/networking.scm
View File

@ -1227,11 +1227,11 @@ gone wild and are suddenly taking up your bandwidth.")
(assoc-ref %build-inputs "ncurses") "/lib") (assoc-ref %build-inputs "ncurses") "/lib")
(string-append "--with-tlslib=GnuTLS")))) (string-append "--with-tlslib=GnuTLS"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs `(("gnutls", gnutls) (inputs `(("gnutls" ,gnutls)
("libxml2", libxml2) ("libxml2" ,libxml2)
("ncurses", ncurses) ("ncurses" ,ncurses)
("zlib", zlib))) ("zlib" ,zlib)))
(native-inputs `(("pkg-config", pkg-config))) (native-inputs `(("pkg-config" ,pkg-config)))
(home-page "https://github.com/nzbget/nzbget") (home-page "https://github.com/nzbget/nzbget")
(synopsis "Usenet binary file downloader") (synopsis "Usenet binary file downloader")
(description (description
@ -1457,11 +1457,11 @@ does not use SSH and requires a pre-shared symmetric key.")
(patches (patches
(search-patches "quagga-reproducible-build.patch")))) (search-patches "quagga-reproducible-build.patch"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs `(("pkg-config",pkg-config) (native-inputs `(("pkg-config" ,pkg-config)
("perl",perl) ("perl" ,perl)
("dejagnu",dejagnu))) ("dejagnu" ,dejagnu)))
(inputs `(("readline",readline) (inputs `(("readline" ,readline)
("c-ares",c-ares))) ("c-ares" ,c-ares)))
(synopsis "Routing Software Suite") (synopsis "Routing Software Suite")
(description "Quagga is a routing software suite, providing implementations (description "Quagga is a routing software suite, providing implementations
of OSPFv2, OSPFv3, RIP v1 and v2, RIPng and BGP-4 for Unix platforms. of OSPFv2, OSPFv3, RIP v1 and v2, RIPng and BGP-4 for Unix platforms.

6
gnu/packages/ocaml.scm
View File

@ -3759,7 +3759,7 @@ sensitive completion, colors, and more.")
(delete 'configure)))) (delete 'configure))))
(inputs (inputs
`(("topkg" ,ocaml-topkg) `(("topkg" ,ocaml-topkg)
("opam", opam))) ("opam" ,opam)))
(synopsis "Various signed and unsigned integer types for OCaml") (synopsis "Various signed and unsigned integer types for OCaml")
(description "The ocaml-integers library provides a number of 8-, 16-, 32- (description "The ocaml-integers library provides a number of 8-, 16-, 32-
and 64-bit signed and unsigned integer types, together with aliases such as and 64-bit signed and unsigned integer types, together with aliases such as
@ -3793,7 +3793,7 @@ long and size_t whose sizes depend on the host platform.")
("integers" ,ocaml-integers) ("integers" ,ocaml-integers)
("lwt" ,ocaml-lwt) ("lwt" ,ocaml-lwt)
("topkg" ,ocaml-topkg) ("topkg" ,ocaml-topkg)
("opam", opam))) ("opam" ,opam)))
(synopsis "Library for binding to C libraries using pure OCaml") (synopsis "Library for binding to C libraries using pure OCaml")
(description "Ctypes is a library for binding to C libraries using pure (description "Ctypes is a library for binding to C libraries using pure
OCaml. The primary aim is to make writing C extensions as straightforward as OCaml. The primary aim is to make writing C extensions as straightforward as
@ -3826,7 +3826,7 @@ without writing or generating any C!")
(delete 'configure)))) (delete 'configure))))
(inputs (inputs
`(("topkg" ,ocaml-topkg) `(("topkg" ,ocaml-topkg)
("opam", opam))) ("opam" ,opam)))
(native-inputs (native-inputs
`(("astring" ,ocaml-astring))) `(("astring" ,ocaml-astring)))
(synopsis "OCamlbuild plugin for C stubs") (synopsis "OCamlbuild plugin for C stubs")

8
gnu/packages/onc-rpc.scm
View File

@ -33,16 +33,15 @@
(define-public libtirpc (define-public libtirpc
(package (package
(name "libtirpc") (name "libtirpc")
(version "1.0.2") (version "1.0.3")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://sourceforge/libtirpc/libtirpc/" (uri (string-append "mirror://sourceforge/libtirpc/libtirpc/"
version "/libtirpc-" version "/libtirpc-"
version ".tar.bz2")) version ".tar.bz2"))
(patches (search-patches "libtirpc-missing-headers.patch"))
(sha256 (sha256
(base32 (base32
"1xchbxy0xql7yl7z4n1icj8r7dmly46i22fvm00vdjq64zlmqg3j")))) "0ppxl3k3nsz0qdakq844i2kj4fvh9h937lhx26bgmpmxq67sghw6"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases `(#:phases
@ -59,7 +58,8 @@
;; Remove the dangling symlinks since it breaks the ;; Remove the dangling symlinks since it breaks the
;; 'patch-source-shebangs' file tree traversal. ;; 'patch-source-shebangs' file tree traversal.
(delete-file "INSTALL")))))) (delete-file "INSTALL")
#t)))))
(inputs `(("mit-krb5" ,mit-krb5))) (inputs `(("mit-krb5" ,mit-krb5)))
(home-page "https://sourceforge.net/projects/libtirpc/") (home-page "https://sourceforge.net/projects/libtirpc/")
(synopsis "Transport-independent Sun/ONC RPC implementation") (synopsis "Transport-independent Sun/ONC RPC implementation")

12
gnu/packages/openstack.scm
View File

@ -452,14 +452,14 @@ pipeline and used by various modules such as logging.")
(define-public python-oslo.i18n (define-public python-oslo.i18n
(package (package
(name "python-oslo.i18n") (name "python-oslo.i18n")
(version "3.19.0") (version "3.20.0")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "oslo.i18n" version)) (uri (pypi-uri "oslo.i18n" version))
(sha256 (sha256
(base32 (base32
"18lbfq55cqrbmwm5p6vci9mkjfzr0zwz54ax3ysa463wba5m84cp")))) "0kjcdw4bk3mi4vqmqwhhq053kxbbbj05si6nwxd1pzx33z067ky3"))))
(build-system python-build-system) (build-system python-build-system)
(propagated-inputs (propagated-inputs
`(("python-babel" ,python-babel) `(("python-babel" ,python-babel)
@ -646,14 +646,14 @@ from the OpenStack project.")
(define-public python-oslotest (define-public python-oslotest
(package (package
(name "python-oslotest") (name "python-oslotest")
(version "3.2.0") (version "3.3.0")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "oslotest" version)) (uri (pypi-uri "oslotest" version))
(sha256 (sha256
(base32 (base32
"1xay6wjxzqm4bg87fahqas84dhvhgf1gghzldkcczsfx897mqdkh")))) "006i73w8kbc9s0av2v5mbni6mnkb91c2nq17wa0lz7bwk5zss992"))))
(build-system python-build-system) (build-system python-build-system)
(propagated-inputs (propagated-inputs
`(("python-fixtures" ,python-fixtures) `(("python-fixtures" ,python-fixtures)
@ -680,14 +680,14 @@ and better support for mocking results.")
(define-public python-oslo.utils (define-public python-oslo.utils
(package (package
(name "python-oslo.utils") (name "python-oslo.utils")
(version "3.35.0") (version "3.36.0")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "oslo.utils" version)) (uri (pypi-uri "oslo.utils" version))
(sha256 (sha256
(base32 (base32
"1ai9yyasyh1563khsri6ryk6iqdprmyiashg377m9h4nmv700ybx")))) "0zvm31qdvqywxppqdjwbxxsqaga3dg4slpvbbmqqm9ig4n78mhay"))))
(build-system python-build-system) (build-system python-build-system)
(propagated-inputs (propagated-inputs
`(("python-debtcollector" ,python-debtcollector) `(("python-debtcollector" ,python-debtcollector)

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

@ -458,14 +458,14 @@ winner of the 2015 Password Hashing Competition.")
(define-public python-bcrypt (define-public python-bcrypt
(package (package
(name "python-bcrypt") (name "python-bcrypt")
(version "3.1.0") (version "3.1.4")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "bcrypt" version)) (uri (pypi-uri "bcrypt" version))
(sha256 (sha256
(base32 (base32
"1giy0dvd8gvq6flxh44np1v2nqwsji5qsnrz038mgwzgp7c20j75")))) "13cyrnqwkhc70rs6dg65z4yrrr3dc42fhk11804fqmci9hvimvb7"))))
(build-system python-build-system) (build-system python-build-system)
(native-inputs (native-inputs
`(("python-pycparser" ,python-pycparser) `(("python-pycparser" ,python-pycparser)

8
gnu/packages/patches/bash-completion-directories.patch
View File

@ -8,9 +8,9 @@ directory, but also in the user's profile and in the system profile.
This is what this patch does. This is what this patch does.
--- a/bash_completion 2016-08-03 10:23:02.356782287 +0200 --- a/bash_completion
+++ b/bash_completion 2016-08-03 10:27:50.120140403 +0200 +++ b/bash_completion
@@ -1960,7 +1960,13 @@ @@ -2016,7 +2016,13 @@ complete -F _minimal ''
__load_completion() __load_completion()
{ {
@ -22,6 +22,6 @@ This is what this patch does.
+ "/run/current-system/profile/etc/bash_completion.d/$base" + "/run/current-system/profile/etc/bash_completion.d/$base"
+ ${BASH_COMPLETION_USER_DIR:-${XDG_DATA_HOME:-$HOME/.local/share}/bash-completion}/completions ) + ${BASH_COMPLETION_USER_DIR:-${XDG_DATA_HOME:-$HOME/.local/share}/bash-completion}/completions )
+ +
local OIFS=$IFS IFS=: dir cmd="$1" compfile local OIFS=$IFS IFS=: dir cmd="${1##*/}" compfile
for dir in ${XDG_DATA_DIRS:-/usr/local/share:/usr/share}; do for dir in ${XDG_DATA_DIRS:-/usr/local/share:/usr/share}; do
dirs+=( $dir/bash-completion/completions ) dirs+=( $dir/bash-completion/completions )

37
gnu/packages/patches/java-simple-xml-fix-tests.patch Normal file
View File

@ -0,0 +1,37 @@
From b3b7a305f1278ec414500bf96c4c7a7f634c941b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jens=20Thee=C3=9F?= <theess@subshell.com>
Date: Thu, 15 Sep 2016 13:08:26 +0200
Subject: [PATCH] Dictionary uses stable order. This fixes unit tests.
This is upstream pull request #15:
https://github.com/ngallagher/simplexml/pull/15
This software is unmaintained, this pull request will no get merged.
The patch is modified, to match the directory layout of the tarball.
---
src/main/java/org/simpleframework/xml/util/Dictionary.java | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/main/java/org/simpleframework/xml/util/Dictionary.java b/src/main/java/org/simpleframework/xml/util/Dictionary.java
index 077d2514..c7327426 100644
--- a/src/org/simpleframework/xml/util/Dictionary.java
+++ b/src/org/simpleframework/xml/util/Dictionary.java
@@ -19,8 +19,8 @@
package org.simpleframework.xml.util;
import java.util.AbstractSet;
-import java.util.HashMap;
import java.util.Iterator;
+import java.util.LinkedHashMap;
/**
* The <code>Dictionary</code> object represents a mapped set of entry
@@ -134,7 +134,7 @@ public T remove(String name) {
*
* @see org.simpleframework.xml.util.Entry
*/
- private static class Table<T> extends HashMap<String, T> {
+ private static class Table<T> extends LinkedHashMap<String, T> {
/**
* Constructor for the <code>Table</code> object. This will

40
gnu/packages/patches/libtirpc-missing-headers.patch
View File

@ -1,40 +0,0 @@
Fix compilation failure with glibc 2.26 caused by missing type
declarations:
------
xdr_sizeof.c: In function ‘x_inline’:
xdr_sizeof.c:93:13: error: ‘uintptr_t’ undeclared (first use in this function)
if (len < (uintptr_t)xdrs->x_base) {
------
Patch copied from upstream source repository:
http://git.linux-nfs.org/?p=steved/libtirpc.git;a=commit;h=acb9a37977cf0a9630eac74af9adebf35e38e719
From acb9a37977cf0a9630eac74af9adebf35e38e719 Mon Sep 17 00:00:00 2001
From: Thorsten Kukuk <kukuk@thkukuk.de>
Date: Tue, 14 Nov 2017 10:39:08 -0500
Subject: [PATCH] Include stdint.h from xdr_sizeof.c to avoid missing
declaration errors.
Signed-off-by: Thorsten Kukuk <kukuk@suse.de>
Signed-off-by: Steve Dickson <steved@redhat.com>
---
src/xdr_sizeof.c | 1 +
1 file changed, 1 insertion(+)
diff --git a/src/xdr_sizeof.c b/src/xdr_sizeof.c
index d23fbd1..79d6707 100644
--- a/src/xdr_sizeof.c
+++ b/src/xdr_sizeof.c
@@ -39,6 +39,7 @@
#include <rpc/xdr.h>
#include <sys/types.h>
#include <stdlib.h>
+#include <stdint.h>
#include "un-namespace.h"
/* ARGSUSED */
--
1.8.3.1

6
gnu/packages/perl.scm
View File

@ -2044,7 +2044,7 @@ Date::Calc.")
(define-public perl-date-manip (define-public perl-date-manip
(package (package
(name "perl-date-manip") (name "perl-date-manip")
(version "6.50") (version "6.70")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -2052,7 +2052,7 @@ Date::Calc.")
"Date-Manip-" version ".tar.gz")) "Date-Manip-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"0zd0wbf91i49753rnf7m1lw197hdl5r97mxy0n43zdmcmhvkb3qq")))) "0r4k4ypb09xwhvq6das0vpx2c0xbhhhx83knq6jfpf8m55h8qi9r"))))
(build-system perl-build-system) (build-system perl-build-system)
(native-inputs `(("perl-module-build" ,perl-module-build))) (native-inputs `(("perl-module-build" ,perl-module-build)))
(arguments (arguments
@ -5760,7 +5760,7 @@ most specific one) is instantiated.")
("perl-file-configdir" ,perl-file-configdir) ("perl-file-configdir" ,perl-file-configdir)
("perl-file-find-rule" ,perl-file-find-rule) ("perl-file-find-rule" ,perl-file-find-rule)
("perl-hash-merge" ,perl-hash-merge) ("perl-hash-merge" ,perl-hash-merge)
("perl-moo", perl-moo) ("perl-moo" ,perl-moo)
("perl-moox-file-configdir" ,perl-moox-file-configdir) ("perl-moox-file-configdir" ,perl-moox-file-configdir)
("perl-namespace-clean" ,perl-namespace-clean))) ("perl-namespace-clean" ,perl-namespace-clean)))
(home-page "http://search.cpan.org/dist/MooX-ConfigFromFile/") (home-page "http://search.cpan.org/dist/MooX-ConfigFromFile/")

2
gnu/packages/photo.scm
View File

@ -481,11 +481,11 @@ a complete panorama and stitch any series of overlapping pictures.")
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
'(#:tests? #f ; no test suite '(#:tests? #f ; no test suite
#:build-type "release"
#:configure-flags #:configure-flags
(list (string-append "-DLENSFUNDBDIR=" (list (string-append "-DLENSFUNDBDIR="
(assoc-ref %build-inputs "lensfun") (assoc-ref %build-inputs "lensfun")
"/share/lensfun") "/share/lensfun")
"-DCMAKE_BUILD_TYPE=release"
; Don't optimize the build for the host machine. See the file ; Don't optimize the build for the host machine. See the file
; 'ProcessorTargets.cmake' in the source distribution for more ; 'ProcessorTargets.cmake' in the source distribution for more
; information. ; information.

6
gnu/packages/protobuf.scm
View File

@ -3,7 +3,7 @@
;;; Copyright © 2016 Daniel Pimentel <d4n1@d4n1.org> ;;; Copyright © 2016 Daniel Pimentel <d4n1@d4n1.org>
;;; Copyright © 2016 Leo Famulari <leo@famulari.name> ;;; Copyright © 2016 Leo Famulari <leo@famulari.name>
;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -149,14 +149,14 @@ code.")
(define-public python-protobuf (define-public python-protobuf
(package (package
(name "python-protobuf") (name "python-protobuf")
(version "3.4.0") (version "3.5.2")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "protobuf" version)) (uri (pypi-uri "protobuf" version))
(sha256 (sha256
(base32 (base32
"0x33xz85cy5ilg1n2rn92l4qwlcw25vzysx2ldv7k625yjg600pg")))) "1q4b1m55w4gvcbzklbk8iylaii98n4in41k27d94w8ypbwlrm1q9"))))
(build-system python-build-system) (build-system python-build-system)
(propagated-inputs (propagated-inputs
`(("python-six" ,python-six))) `(("python-six" ,python-six)))

19
gnu/packages/python-crypto.scm
View File

@ -122,14 +122,14 @@ John the Ripper).")
(define-public python-paramiko (define-public python-paramiko
(package (package
(name "python-paramiko") (name "python-paramiko")
(version "2.1.2") (version "2.1.5")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "paramiko" version)) (uri (pypi-uri "paramiko" version))
(sha256 (sha256
(base32 (base32
"04734n0wy3hxk6rij4fr29in5jmr70nxpc7pqi2ksbjysfz4kbjz")))) "1pf0zxzhgyy4avby3ajg5hp18b0d8iirbkdfw53z0h6w611bp0wk"))))
(build-system python-build-system) (build-system python-build-system)
(arguments (arguments
'(#:phases '(#:phases
@ -281,14 +281,14 @@ is used by the Requests library to verify HTTPS requests.")
(define-public python-cryptography-vectors (define-public python-cryptography-vectors
(package (package
(name "python-cryptography-vectors") (name "python-cryptography-vectors")
(version "2.1.4") (version "2.2")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "cryptography_vectors" version)) (uri (pypi-uri "cryptography_vectors" version))
(sha256 (sha256
(base32 (base32
"1jm5c33qaz297sf99kz9kw8xi792ap9m6bwf0dfylls8z3rv9i3q")))) "03cpmi5azvipphmva7dxv8k3w7ffblvn5452rs5r6smdhxyiqq6g"))))
(build-system python-build-system) (build-system python-build-system)
(home-page "https://github.com/pyca/cryptography") (home-page "https://github.com/pyca/cryptography")
(synopsis "Test vectors for the cryptography package") (synopsis "Test vectors for the cryptography package")
@ -303,14 +303,14 @@ is used by the Requests library to verify HTTPS requests.")
(define-public python-cryptography (define-public python-cryptography
(package (package
(name "python-cryptography") (name "python-cryptography")
(version "2.1.4") (version "2.2")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "cryptography" version)) (uri (pypi-uri "cryptography" version))
(sha256 (sha256
(base32 (base32
"14aj5ipbj1w5kba2hv6323954pachhflfrjhhmkjwssv3hvngng4")))) "0j2gwr4qxvskip77z4n9nqvr4vi243n3bzij18ay4drc6sg2g87m"))))
(build-system python-build-system) (build-system python-build-system)
(inputs (inputs
`(("openssl" ,openssl))) `(("openssl" ,openssl)))
@ -556,7 +556,7 @@ PKCS#8, PKCS#12, PKCS#5, X.509 and TSP.")
(define-public python-pynacl (define-public python-pynacl
(package (package
(name "python-pynacl") (name "python-pynacl")
(version "1.1.2") (version "1.2.0")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -567,7 +567,7 @@ PKCS#8, PKCS#12, PKCS#5, X.509 and TSP.")
#t)) #t))
(sha256 (sha256
(base32 (base32
"135gz0020fqx8fbr9izpwyq49aww202nkqacq0cw61xz99sjpx9j")))) "01vjq0pxyw1mxaqy013hzs8nknmvg3kpzlzmh69jxznyipgvria5"))))
(build-system python-build-system) (build-system python-build-system)
(arguments (arguments
`(#:phases `(#:phases
@ -577,7 +577,8 @@ PKCS#8, PKCS#12, PKCS#5, X.509 and TSP.")
(setenv "SODIUM_INSTALL" "system") (setenv "SODIUM_INSTALL" "system")
#t))))) #t)))))
(native-inputs (native-inputs
`(("python-pytest" ,python-pytest))) `(("python-hypothesis" ,python-hypothesis)
("python-pytest" ,python-pytest)))
(propagated-inputs (propagated-inputs
`(("python-cffi" ,python-cffi) `(("python-cffi" ,python-cffi)
("python-six" ,python-six) ("python-six" ,python-six)

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

@ -823,7 +823,7 @@ internationalized messages within program source text.")
'(#:tests? #f)) ; FIXME: Tests can't find zope.event. '(#:tests? #f)) ; FIXME: Tests can't find zope.event.
(propagated-inputs (propagated-inputs
`(("python-zope-event" ,python-zope-event) `(("python-zope-event" ,python-zope-event)
("python-zope-exceptions", python-zope-exceptions) ("python-zope-exceptions" ,python-zope-exceptions)
("python-zope-interface" ,python-zope-interface))) ("python-zope-interface" ,python-zope-interface)))
(native-inputs (native-inputs
`(("python-zope-testing" ,python-zope-testing) `(("python-zope-testing" ,python-zope-testing)

58
gnu/packages/python.scm
View File

@ -1232,14 +1232,14 @@ after Andy Lester’s Perl module WWW::Mechanize.")
(define-public python-simplejson (define-public python-simplejson
(package (package
(name "python-simplejson") (name "python-simplejson")
(version "3.10.0") (version "3.13.2")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "simplejson" version)) (uri (pypi-uri "simplejson" version))
(sha256 (sha256
(base32 (base32
"1qhwsykjlb85igb4cfl6v6gkprzbbg8gyqdd7zscc8w3x0ifcfwm")))) "02jg5nixffqyicfqdl4dil82fh1z9p2as758wp0nqwalw0hcykjc"))))
(build-system python-build-system) (build-system python-build-system)
(home-page "http://simplejson.readthedocs.org/en/latest/") (home-page "http://simplejson.readthedocs.org/en/latest/")
(synopsis (synopsis
@ -1925,7 +1925,7 @@ version numbers.")
(define-public python-jsonschema (define-public python-jsonschema
(package (package
(name "python-jsonschema") (name "python-jsonschema")
(version "2.5.1") (version "2.6.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (uri
@ -1934,7 +1934,7 @@ version numbers.")
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"0hddbqjm4jq63y8jf44nswina1crjs16l9snb6m3vvgyg31klrrn")))) "00kf3zmpp9ya4sydffpifn0j0mzm342a2vzh82p6r0vh10cg7xbg"))))
(build-system python-build-system) (build-system python-build-system)
(arguments (arguments
'(#:phases '(#:phases
@ -4125,13 +4125,13 @@ PNG, PostScript, PDF, and SVG file output.")
(define-public python-decorator (define-public python-decorator
(package (package
(name "python-decorator") (name "python-decorator")
(version "4.1.2") (version "4.2.1")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "decorator" version)) (uri (pypi-uri "decorator" version))
(sha256 (sha256
(base32 "1d8npb11kxyi36mrvjdpcjij76l5zfyrz2f820brf0l0rcw4vdkw")))) (base32 "03iaf116rm3w8b4agb8hzf6z9331mrvi4khfxq35zkx17sgxsikx"))))
(build-system python-build-system) (build-system python-build-system)
(arguments '(#:tests? #f)) ; no test target (arguments '(#:tests? #f)) ; no test target
(home-page "https://pypi.python.org/pypi/decorator/") (home-page "https://pypi.python.org/pypi/decorator/")
@ -4497,14 +4497,14 @@ without using the configuration machinery.")
(define-public python-jupyter-core (define-public python-jupyter-core
(package (package
(name "python-jupyter-core") (name "python-jupyter-core")
(version "4.2.1") (version "4.4.0")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append (pypi-uri "jupyter_core" version))) (uri (string-append (pypi-uri "jupyter_core" version)))
(sha256 (sha256
(base32 (base32
"1cy7inv218dgh4m1fbzbsiqpz733ylgjrj62jxqpfzs3r2cm7ic9")))) "1dy083rarba8prn9f9srxq3c7n7vyql02ycrqq306c40lr57aw5s"))))
(build-system python-build-system) (build-system python-build-system)
;; FIXME: not sure how to run the tests ;; FIXME: not sure how to run the tests
(arguments `(#:tests? #f)) (arguments `(#:tests? #f))
@ -5683,7 +5683,7 @@ markdown_py is also provided to convert Markdown files to HTML.")
(define-public python-ptyprocess (define-public python-ptyprocess
(package (package
(name "python-ptyprocess") (name "python-ptyprocess")
(version "0.5.1") (version "0.5.2")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -5692,7 +5692,7 @@ markdown_py is also provided to convert Markdown files to HTML.")
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"19l1xrjn4l9gjz01s3vg92gn2dd9d8mw1v86ppkzlnr9m5iwwc05")))) "0ra31k10v3629xq0kdn8lwmfbi97anmk48r03yvh7mks0kq96hg6"))))
(build-system python-build-system) (build-system python-build-system)
(native-inputs (native-inputs
`(("python-nose" ,python-nose))) `(("python-nose" ,python-nose)))
@ -6502,14 +6502,14 @@ Debian-related files, such as:
(define-public python-nbformat (define-public python-nbformat
(package (package
(name "python-nbformat") (name "python-nbformat")
(version "4.3.0") (version "4.4.0")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "nbformat" version)) (uri (pypi-uri "nbformat" version))
(sha256 (sha256
(base32 (base32
"12s7j4qja8b5bs1kyw5dzmrqbjxxj8wk52cyasbiqbv7fblcrssz")))) "00nlf08h8yc4q73nphfvfhxrcnilaqanb8z0mdy6nxk0vzq4wjgp"))))
(build-system python-build-system) (build-system python-build-system)
(arguments `(#:tests? #f)) ; no test target (arguments `(#:tests? #f)) ; no test target
(propagated-inputs (propagated-inputs
@ -6554,7 +6554,7 @@ Jupyter Notebook format and Python APIs for working with notebooks.")
(define-public python-entrypoints (define-public python-entrypoints
(package (package
(name "python-entrypoints") (name "python-entrypoints")
(version "0.2.2") (version "0.2.3")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -6563,7 +6563,7 @@ Jupyter Notebook format and Python APIs for working with notebooks.")
(file-name (string-append name "-" version ".tar.gz")) (file-name (string-append name "-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"0azqlkh3j0za080lsf5crnhaxx3c93k9dpv5ihkhf5cppgw5sjz5")))) "1pdvgfr5bxyvnfvxbsd3zi0dh3il71pc4k6rinx6zpps91b84a56"))))
(build-system python-build-system) (build-system python-build-system)
;; The package does not come with a setup.py file, so we have to generate ;; The package does not come with a setup.py file, so we have to generate
;; one ourselves. ;; one ourselves.
@ -6760,14 +6760,14 @@ in the data.")
(define-public python-jupyter-console (define-public python-jupyter-console
(package (package
(name "python-jupyter-console") (name "python-jupyter-console")
(version "5.0.0") (version "5.2.0")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "jupyter_console" version)) (uri (pypi-uri "jupyter_console" version))
(sha256 (sha256
(base32 (base32
"04acmkwsi99rcg3vb54c6n492zv35s92h2ahabc0w6wj976cipvx")))) "1kam1qzgwr7srhm5r6aj90di5sws4bq0jmiw15452ddamb9yspal"))))
(build-system python-build-system) (build-system python-build-system)
;; FIXME: it's not clear how to run the tests. ;; FIXME: it's not clear how to run the tests.
(arguments `(#:tests? #f)) (arguments `(#:tests? #f))
@ -8954,14 +8954,14 @@ data in Python.")
(define-public python-kazoo (define-public python-kazoo
(package (package
(name "python-kazoo") (name "python-kazoo")
(version "2.2.1") (version "2.4.0")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "kazoo" version)) (uri (pypi-uri "kazoo" version))
(sha256 (sha256
(base32 (base32
"10pb864if9qi2pq9lfb9m8f7z7ss6rml80gf1d9h64lap5crjnjj")))) "16y213k7r8shyn2zw1k6lkzjgcrvm441pqv8scvcjixhvpbx3hm7"))))
(build-system python-build-system) (build-system python-build-system)
(arguments '(#:tests? #f)) ; XXX: needs zookeeper (arguments '(#:tests? #f)) ; XXX: needs zookeeper
(propagated-inputs (propagated-inputs
@ -9061,13 +9061,13 @@ etc.")
(define-public python-chai (define-public python-chai
(package (package
(name "python-chai") (name "python-chai")
(version "1.1.1") (version "1.1.2")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "chai" version)) (uri (pypi-uri "chai" version))
(sha256 (sha256
(base32 (base32
"016kf3irrclpkpvcm7q0gmkfibq7jgy30a9v73pp42bq9h9a32bl")))) "1k6n6zbgrrs83crp6mr3yqj9zlv40b8rpisyrliwsq7naml2p3gz"))))
(build-system python-build-system) (build-system python-build-system)
(home-page "https://github.com/agoragames/chai") (home-page "https://github.com/agoragames/chai")
(synopsis "Mocking framework for Python") (synopsis "Mocking framework for Python")
@ -12044,7 +12044,7 @@ library.")
"08if5yax1xn5yfp8p3765ccjmfcv9di7i4m5jckgnwvdsgznwkbj")))) "08if5yax1xn5yfp8p3765ccjmfcv9di7i4m5jckgnwvdsgznwkbj"))))
(build-system python-build-system) (build-system python-build-system)
(native-inputs `(("pkg-config" ,pkg-config) (native-inputs `(("pkg-config" ,pkg-config)
("python-cython", python-cython))) ("python-cython" ,python-cython)))
(home-page "https://github.com/aresch/rencode") (home-page "https://github.com/aresch/rencode")
(synopsis "Serialization of heterogeneous data structures") (synopsis "Serialization of heterogeneous data structures")
(description (description
@ -12186,14 +12186,14 @@ design and layout.")
(define-public python-pkginfo (define-public python-pkginfo
(package (package
(name "python-pkginfo") (name "python-pkginfo")
(version "1.4.1") (version "1.4.2")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "pkginfo" version)) (uri (pypi-uri "pkginfo" version))
(sha256 (sha256
(base32 (base32
"17pqjfpq3c6xzdmk8pski6jcjgjv78q00zjf2bgzb668pzm6l6mv")))) "0x6lm17p1ks031mj6pajyp4rkq74vpqq8qwjb7ikgwmkli1day2q"))))
(build-system python-build-system) (build-system python-build-system)
(arguments (arguments
;; The tests are broken upstream. ;; The tests are broken upstream.
@ -12227,7 +12227,7 @@ created by running @code{python setup.py develop}).")
(build-system python-build-system) (build-system python-build-system)
(propagated-inputs (propagated-inputs
`(("python-tqdm" ,python-tqdm) `(("python-tqdm" ,python-tqdm)
("python-pkginfo", python-pkginfo) ("python-pkginfo" ,python-pkginfo)
("python-requests" ,python-requests) ("python-requests" ,python-requests)
("python-requests-toolbelt" ,python-requests-toolbelt))) ("python-requests-toolbelt" ,python-requests-toolbelt)))
(home-page "https://github.com/pypa/twine") (home-page "https://github.com/pypa/twine")
@ -12637,7 +12637,7 @@ is the new Pyro version that is actively developed.")
`(("netcdf" ,netcdf))) `(("netcdf" ,netcdf)))
(propagated-inputs (propagated-inputs
`(("python-numpy" ,python2-numpy-1.8) `(("python-numpy" ,python2-numpy-1.8)
("python-pyro", python2-pyro))) ("python-pyro" ,python2-pyro)))
(arguments (arguments
;; ScientificPython is not compatible with Python 3 ;; ScientificPython is not compatible with Python 3
`(#:python ,python-2 `(#:python ,python-2
@ -12702,14 +12702,14 @@ and works only with Python 2 and NumPy < 1.9.")
(define-public python-phonenumbers (define-public python-phonenumbers
(package (package
(name "python-phonenumbers") (name "python-phonenumbers")
(version "8.8.9") (version "8.9.1")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "phonenumbers" version)) (uri (pypi-uri "phonenumbers" version))
(sha256 (sha256
(base32 (base32
"1lhhxmx3hk0b5891nc0p82dl5bq2w9cqbawmh8j5zy587af2j6fq")))) "03fmrgb4r8x3ykmddjs9i3zhs703in8smikj3a6447blqpimwyh1"))))
(build-system python-build-system) (build-system python-build-system)
(home-page (home-page
"https://github.com/daviddrysdale/python-phonenumbers") "https://github.com/daviddrysdale/python-phonenumbers")
@ -12984,7 +12984,7 @@ and other tools.")
#t))))) #t)))))
(propagated-inputs (propagated-inputs
`(("python-pygments" ,python-pygments) `(("python-pygments" ,python-pygments)
("python-requests", python-requests) ("python-requests" ,python-requests)
("python-babel" ,python-babel) ; optional, for internationalization ("python-babel" ,python-babel) ; optional, for internationalization
("python-curtsies" ,python-curtsies) ; >= 0.1.18 ("python-curtsies" ,python-curtsies) ; >= 0.1.18
("python-greenlet" ,python-greenlet) ("python-greenlet" ,python-greenlet)
@ -13057,7 +13057,7 @@ interpreter. bpython's main features are
(synopsis "Python library for monitoring inotify events") (synopsis "Python library for monitoring inotify events")
(description (description
"@code{pyinotify} provides a Python interface for monitoring "@code{pyinotify} provides a Python interface for monitoring
filesystem events on Linux.") file system events on Linux.")
(license license:expat))) (license license:expat)))
(define-public python2-pyinotify (define-public python2-pyinotify

2
gnu/packages/qt.scm
View File

@ -1944,7 +1944,7 @@ different kinds of sliders, and much more.")
("libwebp" ,libwebp) ("libwebp" ,libwebp)
("sqlite" ,sqlite) ("sqlite" ,sqlite)
("fontconfig" ,fontconfig) ("fontconfig" ,fontconfig)
("libxrender", libxrender) ("libxrender" ,libxrender)
("qtbase" ,qtbase) ("qtbase" ,qtbase)
("qtdeclarative" ,qtdeclarative) ("qtdeclarative" ,qtdeclarative)
("qtmultimedia" ,qtmultimedia) ("qtmultimedia" ,qtmultimedia)

2
gnu/packages/ratpoison.scm
View File

@ -78,7 +78,7 @@
("readline" ,readline) ("readline" ,readline)
("xorgproto" ,xorgproto))) ("xorgproto" ,xorgproto)))
(native-inputs (native-inputs
`(("perl",perl) `(("perl" ,perl)
("pkg-config" ,pkg-config) ("pkg-config" ,pkg-config)
("ratpoison.desktop" ,ratpoison.desktop))) ("ratpoison.desktop" ,ratpoison.desktop)))
(home-page "https://www.nongnu.org/ratpoison/") (home-page "https://www.nongnu.org/ratpoison/")

7
gnu/packages/rdesktop.scm
View File

@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2015 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be> ;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -111,9 +112,9 @@ to remotely control a user's Windows desktop.")
("zlib" ,zlib) ("zlib" ,zlib)
("openssl" ,openssl))) ("openssl" ,openssl)))
(arguments (arguments
`(#:configure-flags `(#:build-type "RELEASE"
(list "-DCMAKE_BUILD_TYPE=RELEASE" #:configure-flags
"-DWITH_JPEG=ON" (list "-DWITH_JPEG=ON"
,@(if (string-prefix? "x86_64" ,@(if (string-prefix? "x86_64"
(or (%current-target-system) (or (%current-target-system)
(%current-system))) (%current-system)))

260
gnu/packages/ruby.scm
View File

@ -36,6 +36,7 @@
#:use-module (gnu packages autotools) #:use-module (gnu packages autotools)
#:use-module (gnu packages java) #:use-module (gnu packages java)
#:use-module (gnu packages libffi) #:use-module (gnu packages libffi)
#:use-module (gnu packages maths)
#:use-module (gnu packages networking) #:use-module (gnu packages networking)
#:use-module (gnu packages python) #:use-module (gnu packages python)
#:use-module (gnu packages ragel) #:use-module (gnu packages ragel)
@ -665,6 +666,72 @@ line of code.")
;; of the Expat license. ;; of the Expat license.
(license license:bsd-3))) (license license:bsd-3)))
(define-public ruby-asciidoctor
(package
(name "ruby-asciidoctor")
(version "1.5.6.1")
(source
(origin
(method url-fetch)
(uri (rubygems-uri "asciidoctor" version))
(sha256
(base32
"1jnf9y8q5asfdzilp8vcqafrc2faj719df4yh1993mh6jd0iqdy4"))))
(build-system ruby-build-system)
(arguments
`(#:test-target "test:all"
#:phases
(modify-phases %standard-phases
(add-before 'check 'remove-circular-tests
(lambda _
;; Remove tests that require circular dependencies to load or pass.
(delete-file "test/invoker_test.rb")
(delete-file "test/converter_test.rb")
(delete-file "test/options_test.rb")
#t)))))
(native-inputs
`(("ruby-minitest" ,ruby-minitest)
("ruby-nokogiri" ,ruby-nokogiri)
("ruby-asciimath" ,ruby-asciimath)
("ruby-coderay" ,ruby-coderay)))
(synopsis "Converter from AsciiDoc content to other formats")
(description
"Asciidoctor is a text processor and publishing toolchain for converting
AsciiDoc content to HTML5, DocBook 5 (or 4.5) and other formats.")
(home-page "http://asciidoctor.org")
(license license:expat)))
(define-public ruby-sporkmonger-rack-mount
;; Testing the addressable gem requires a newer commit than that released, so
;; use an up to date version.
(let ((revision "1")
(commit "076aa2c47d9a4c081f1e9bcb56a826a9e72bd5c3"))
(package
(name "ruby-sporkmonger-rack-mount")
(version (git-version "0.8.3" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/sporkmonger/rack-mount.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1scx273g3xd93424x9lxc4zyvcp2niknbw5mkz6wkivpf7xsyxdq"))))
(build-system ruby-build-system)
(arguments
;; Tests currently fail so disable them.
;; https://github.com/sporkmonger/rack-mount/pull/1
`(#:tests? #f))
(propagated-inputs `(("ruby-rack" ,ruby-rack)))
(synopsis "Stackable dynamic tree based Rack router")
(description
"@code{Rack::Mount} supports Rack's @code{X-Cascade} convention to
continue trying routes if the response returns pass. This allows multiple
routes to be nested or stacked on top of each other.")
(home-page "https://github.com/sporkmonger/rack-mount")
(license license:expat))))
(define-public ruby-ci-reporter (define-public ruby-ci-reporter
(package (package
(name "ruby-ci-reporter") (name "ruby-ci-reporter")
@ -824,6 +891,29 @@ functions.")
(home-page "https://github.com/ahoward/options") (home-page "https://github.com/ahoward/options")
(license license:ruby))) (license license:ruby)))
(define-public ruby-erubis
(package
(name "ruby-erubis")
(version "2.7.0")
(source
(origin
(method url-fetch)
(uri (rubygems-uri "erubis" version))
(sha256
(base32
"1fj827xqjs91yqsydf0zmfyw9p4l2jz5yikg3mppz6d7fi8kyrb3"))))
(build-system ruby-build-system)
(arguments
'(#:tests? #f)) ; tests do not run properly with Ruby 2.0
(synopsis "Implementation of embedded Ruby (eRuby)")
(description
"Erubis is a fast implementation of embedded Ruby (eRuby) with several
features such as multi-language support, auto escaping, auto trimming spaces
around @code{<% %>}, a changeable embedded pattern, and Ruby on Rails
support.")
(home-page "http://www.kuwata-lab.com/erubis/")
(license license:expat)))
(define-public ruby-orderedhash (define-public ruby-orderedhash
(package (package
(name "ruby-orderedhash") (name "ruby-orderedhash")
@ -3293,6 +3383,106 @@ into a single method call.")
(home-page "https://rack.github.io/") (home-page "https://rack.github.io/")
(license license:expat))) (license license:expat)))
(define-public ruby-rack-test
(package
(name "ruby-rack-test")
(version "0.8.3")
(source
(origin
(method url-fetch)
(uri (rubygems-uri "rack-test" version))
(sha256
(base32
"14ij39zywvr1i9f6jsixfg4zxi2q1m1n1nydvf47f0b6sfc9mv1g"))))
(build-system ruby-build-system)
(arguments
;; Disable tests because of circular dependencies: requires sinatra,
;; which requires rack-protection, which requires rack-test. Instead
;; simply require the library.
`(#:phases
(modify-phases %standard-phases
(replace 'check
(lambda _
(invoke "ruby" "-Ilib" "-r" "rack/test"))))))
(propagated-inputs
`(("ruby-rack" ,ruby-rack)))
(synopsis "Testing API for Rack applications")
(description
"Rack::Test is a small, simple testing API for Rack applications. It can
be used on its own or as a reusable starting point for Web frameworks and
testing libraries to build on.")
(home-page "https://github.com/rack-test/rack-test")
(license license:expat)))
(define-public ruby-rack-protection
(package
(name "ruby-rack-protection")
(version "2.0.1")
(source
(origin
(method url-fetch)
(uri (rubygems-uri "rack-protection" version))
(sha256
(base32
"0ywmgh7x8ljf7jfnq5hmfzki3f803waji3fcvi107w7mlyflbng7"))))
(build-system ruby-build-system)
(arguments
'(;; Tests missing from the gem
#:tests? #f))
(propagated-inputs
`(("ruby-rack" ,ruby-rack)))
(native-inputs
`(("bundler" ,bundler)
("ruby-rspec" ,ruby-rspec-2)
("ruby-rack-test" ,ruby-rack-test)))
(synopsis "Rack middleware that protects against typical web attacks")
(description "Rack middleware that can be used to protect against typical
web attacks. It can protect all Rack apps, including Rails. For instance, it
protects against cross site request forgery, cross site scripting,
clickjacking, directory traversal, session hijacking and IP spoofing.")
(home-page "https://github.com/sinatra/sinatra/tree/master/rack-protection")
(license license:expat)))
(define-public ruby-contest
(package
(name "ruby-contest")
(version "0.1.3")
(source
(origin
(method url-fetch)
(uri (rubygems-uri "contest" version))
(sha256
(base32
"1p9f2292b7b0fbrcjswvj9v01z7ig5ig52328wyqcabgb553qsdf"))))
(build-system ruby-build-system)
(synopsis "Write declarative tests using nested contexts")
(description
"Contest allows writing declarative @code{Test::Unit} tests using nested
contexts without performance penalties.")
(home-page "https://github.com/citrusbyte/contest")
(license license:expat)))
(define-public ruby-creole
(package
(name "ruby-creole")
(version "0.5.0")
(source
(origin
(method url-fetch)
(uri (rubygems-uri "creole" version))
(sha256
(base32
"00rcscz16idp6dx0dk5yi5i0fz593i3r6anbn5bg2q07v3i025wm"))))
(build-system ruby-build-system)
(native-inputs
`(("ruby-bacon" ,ruby-bacon)))
(synopsis "Creole markup language converter")
(description
"Creole is a lightweight markup language and this library for converting
creole to @code{HTML}.")
(home-page "https://github.com/minad/creole")
(license license:ruby)))
(define-public ruby-docile (define-public ruby-docile
(package (package
(name "ruby-docile") (name "ruby-docile")
@ -3526,6 +3716,55 @@ used to create both network servers and clients.")
(home-page "http://rubyeventmachine.com") (home-page "http://rubyeventmachine.com")
(license (list license:ruby license:gpl3)))) ; GPLv3 only AFAICT (license (list license:ruby license:gpl3)))) ; GPLv3 only AFAICT
(define-public ruby-ruby-engine
(package
(name "ruby-ruby-engine")
(version "1.0.1")
(source
(origin
(method url-fetch)
(uri (rubygems-uri "ruby_engine" version))
(sha256
(base32
"1d0sd4q50zkcqhr395wj1wpn2ql52r0fpwhzjfvi1bljml7k546v"))))
(build-system ruby-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-before 'check 'clean-up
(lambda _
(delete-file "Gemfile.lock")
(substitute* "ruby_engine.gemspec"
;; Remove unnecessary imports that would entail further
;; dependencies.
((".*<rdoc.*") "")
((".*<rubygems-tasks.*") "")
;; Remove extraneous .gem file
(("\\\"pkg/ruby_engine-1.0.0.gem\\\",") "")
;; Soften rake dependency
(("%q<rake>.freeze, \\[\\\"~> 10.0\\\"\\]")
"%q<rake>.freeze, [\">= 10.0\"]")
;; Soften the rspec dependency
(("%q<rspec>.freeze, \\[\\\"~> 2.4\\\"\\]")
"%q<rspec>.freeze, [\">= 2.4\"]"))
(substitute* "Rakefile"
(("require 'rubygems/tasks'") "")
(("Gem::Tasks.new") ""))
;; Remove extraneous .gem file that otherwise gets installed.
(delete-file "pkg/ruby_engine-1.0.0.gem")
#t)))))
(native-inputs
`(("bundler" ,bundler)
("ruby-rake" ,ruby-rake)
("ruby-rspec" ,ruby-rspec)))
(synopsis "Simplifies checking for Ruby implementation")
(description
"@code{ruby_engine} provides an RubyEngine class that can be used to
check which implementation of Ruby is in use. It can provide the interpreter
name and provides query methods such as @{RubyEngine.mri?}.")
(home-page "https://github.com/janlelis/ruby_engine")
(license license:expat)))
(define-public ruby-turn (define-public ruby-turn
(package (package
(name "ruby-turn") (name "ruby-turn")
@ -4721,3 +4960,24 @@ thing this library does today is convert org-mode files to HTML or Textile or
Markdown.") Markdown.")
(home-page "https://github.com/wallyqs/org-ruby") (home-page "https://github.com/wallyqs/org-ruby")
(license license:expat))) (license license:expat)))
(define-public ruby-rake
(package
(name "ruby-rake")
(version "12.3.0")
(source
(origin
(method url-fetch)
(uri (rubygems-uri "rake" version))
(sha256
(base32
"190p7cs8zdn07mjj6xwwsdna3g0r98zs4crz7jh2j2q5b0nbxgjf"))))
(build-system ruby-build-system)
(native-inputs
`(("bundler" ,bundler)))
(synopsis "Rake is a Make-like program implemented in Ruby")
(description
"Rake is a Make-like program where tasks and dependencies are specified
in standard Ruby syntax.")
(home-page "https://github.com/ruby/rake")
(license license:expat)))

6
gnu/packages/sdl.scm
View File

@ -122,9 +122,9 @@ joystick, and graphics hardware.")
("fcitx" ,fcitx) ; helps with CJK input ("fcitx" ,fcitx) ; helps with CJK input
("glib" ,glib) ("glib" ,glib)
("ibus" ,ibus) ("ibus" ,ibus)
("libxkbcommon", libxkbcommon) ("libxkbcommon" ,libxkbcommon)
("wayland", wayland) ("wayland" ,wayland)
("wayland-protocols", wayland-protocols)) ("wayland-protocols" ,wayland-protocols))
(package-inputs sdl))) (package-inputs sdl)))
(license bsd-3))) (license bsd-3)))

8
gnu/packages/serialization.scm
View File

@ -8,7 +8,7 @@
;;; Copyright © 2017 Gregor Giesen <giesen@zaehlwerk.net> ;;; Copyright © 2017 Gregor Giesen <giesen@zaehlwerk.net>
;;; Copyright © 2017 Frederick M. Muriithi <fredmanglis@gmail.com> ;;; Copyright © 2017 Frederick M. Muriithi <fredmanglis@gmail.com>
;;; Copyright © 2017 ng0 <ng0@infotropique.org> ;;; Copyright © 2017 ng0 <ng0@infotropique.org>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Joshua Sierles, Nextjournal <joshua@nextjournal.com> ;;; Copyright © 2018 Joshua Sierles, Nextjournal <joshua@nextjournal.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
@ -431,10 +431,10 @@ to generate and parse. The two primary functions are @code{cbor.loads} and
"0blc978wc5h91662vai24xj92c3bx56y6hzid90qva7il302jl64")))) "0blc978wc5h91662vai24xj92c3bx56y6hzid90qva7il302jl64"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
'(#:configure-flags '(#:build-type "Release"
#:configure-flags
(list (string-append "-DCMAKE_INSTALL_LIBDIR=" (list (string-append "-DCMAKE_INSTALL_LIBDIR="
(assoc-ref %outputs "out") "/lib") (assoc-ref %outputs "out") "/lib"))))
"-DCMAKE_BUILD_TYPE=Release")))
(home-page "https://google.github.io/flatbuffers/") (home-page "https://google.github.io/flatbuffers/")
(synopsis "Memory-efficient serialization library") (synopsis "Memory-efficient serialization library")
(description "FlatBuffers is a cross platform serialization library for C++, (description "FlatBuffers is a cross platform serialization library for C++,

2
gnu/packages/sml.scm
View File

@ -42,7 +42,7 @@
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs (inputs
`(("gmp" ,gmp) `(("gmp" ,gmp)
("lesstif",lesstif) ("lesstif" ,lesstif)
("libffi" ,libffi) ("libffi" ,libffi)
("libx11" ,libx11) ("libx11" ,libx11)
("libxt" ,libxt))) ("libxt" ,libxt)))

8
gnu/packages/statistics.scm
View File

@ -271,7 +271,7 @@ as.POSIXct(if (\"\" != Sys.getenv(\"SOURCE_DATE_EPOCH\")) {\
(list (search-path-specification (list (search-path-specification
(variable "R_LIBS_SITE") (variable "R_LIBS_SITE")
(files (list "site-library/"))))) (files (list "site-library/")))))
(home-page "http://www.r-project.org/") (home-page "https://www.r-project.org/")
(synopsis "Environment for statistical computing and graphics") (synopsis "Environment for statistical computing and graphics")
(description (description
"R is a language and environment for statistical computing and graphics. "R is a language and environment for statistical computing and graphics.
@ -2358,13 +2358,13 @@ tools to simplify the devolpment of R packages.")
(define-public r-withr (define-public r-withr
(package (package
(name "r-withr") (name "r-withr")
(version "2.1.1") (version "2.1.2")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "withr" version)) (uri (cran-uri "withr" version))
(sha256 (sha256
(base32 (base32
"17pbllxv18gf1mli9mm5px4wzp364907a4wrl20r1y5q8qwawpxx")))) "11j6zykklxnvp4xqsr6a2xib665i38m3khdspp887nwagmvnydj1"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "https://github.com/jimhester/withr") (home-page "https://github.com/jimhester/withr")
(synopsis "Run code with temporarily modified global state") (synopsis "Run code with temporarily modified global state")
@ -5018,7 +5018,7 @@ using modular prediction and response module classes.")
`(("r-matrix" ,r-matrix) `(("r-matrix" ,r-matrix)
("r-matrixmodels" ,r-matrixmodels) ("r-matrixmodels" ,r-matrixmodels)
("r-sparsem" ,r-sparsem))) ("r-sparsem" ,r-sparsem)))
(home-page "http://www.r-project.org") (home-page "https://www.r-project.org")
(synopsis "Quantile regression") (synopsis "Quantile regression")
(description (description
"This package provides an estimation and inference methods for models "This package provides an estimation and inference methods for models

6
gnu/packages/syncthing.scm
View File

@ -1693,7 +1693,7 @@ using sh's word-splitting rules.")
'(#:import-path "github.com/zillode/notify")) '(#:import-path "github.com/zillode/notify"))
(propagated-inputs (propagated-inputs
`(("go-golang-org-x-sys-unix" ,go-golang-org-x-sys-unix))) `(("go-golang-org-x-sys-unix" ,go-golang-org-x-sys-unix)))
(synopsis "Filesystem event notification library") (synopsis "File system event notification library")
(description "This package provides @code{notify}, a file system event (description "This package provides @code{notify}, a file system event
notification library in Go.") notification library in Go.")
(home-page "https://github.com/zillode/notify") (home-page "https://github.com/zillode/notify")
@ -1872,8 +1872,8 @@ Prometheus metrics.")
(arguments (arguments
'(#:import-path "github.com/prometheus/procfs")) '(#:import-path "github.com/prometheus/procfs"))
(synopsis "Go library for reading @file{/proc}") (synopsis "Go library for reading @file{/proc}")
(description "This Go package @code{procfs} provides functions to retrieve (description "The @code{procfs} Go package provides functions to retrieve
system, kernel and process metrics from the pseudo-filesystem @file{/proc}.") system, kernel, and process metrics from the @file{/proc} pseudo file system.")
(home-page "https://github.com/prometheus/procfs") (home-page "https://github.com/prometheus/procfs")
(license asl2.0)))) (license asl2.0))))

33
gnu/packages/terminals.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015, 2016, 2017 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2015, 2016, 2017, 2018 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 Mckinley Olsen <mck.olsen@gmail.com> ;;; Copyright © 2016 Mckinley Olsen <mck.olsen@gmail.com>
;;; Copyright © 2016, 2017 Alex Griffin <a@ajgrf.com> ;;; Copyright © 2016, 2017 Alex Griffin <a@ajgrf.com>
;;; Copyright © 2016 David Craven <david@craven.ch> ;;; Copyright © 2016 David Craven <david@craven.ch>
@ -65,22 +65,21 @@
(define-public tilda (define-public tilda
(package (package
(name "tilda") (name "tilda")
(version "1.3.3") (version "1.4.1")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://github.com/lanoxx/tilda/archive/" (uri (string-append "https://github.com/lanoxx/tilda/archive/"
"tilda-" version ".tar.gz")) "tilda-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1cc4qbg1m3i04lj5p6i6xbd0zvy1320pxdgmjhz5p3j95ibsbfki")))) "0w2hry2bqcqrkik4l100b1a9jlsih6sq8zwhfpl8zzfq20i00lfs"))))
(build-system glib-or-gtk-build-system) (build-system glib-or-gtk-build-system)
(arguments (arguments
`(#:phases (modify-phases %standard-phases '(#:phases (modify-phases %standard-phases
(add-before 'patch-source-shebangs 'autogen (add-before 'patch-source-shebangs 'bootstrap
(lambda _ ; Avoid running ./configure. (lambda _
(substitute* "autogen.sh" (setenv "NOCONFIGURE" "true")
(("^.*\\$srcdir/configure.*") "")) (invoke "sh" "autogen.sh"))))))
(zero? (system* "sh" "autogen.sh")))))))
(native-inputs (native-inputs
`(("autoconf" ,autoconf) `(("autoconf" ,autoconf)
("automake" ,automake) ("automake" ,automake)
@ -128,9 +127,9 @@ configurable through a graphical wizard.")
(string-append "DESTDIR=" (string-append "DESTDIR="
(assoc-ref %outputs "out"))))) (assoc-ref %outputs "out")))))
(inputs (inputs
`(("vte", vte-ng) `(("vte" ,vte-ng)
("gtk+", gtk+) ("gtk+" ,gtk+)
("ncurses", ncurses))) ("ncurses" ,ncurses)))
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config))) `(("pkg-config" ,pkg-config)))
@ -293,10 +292,10 @@ multi-seat support, a replacement for @command{mingetty}, and more.")
#:phases (modify-phases %standard-phases #:phases (modify-phases %standard-phases
(delete 'configure)) (delete 'configure))
#:test-target "test")) #:test-target "test"))
(inputs `(("ncurses", ncurses))) (inputs `(("ncurses" ,ncurses)))
(native-inputs `(("libtool", libtool) (native-inputs `(("libtool" ,libtool)
("perl-test-harness" ,perl-test-harness) ("perl-test-harness" ,perl-test-harness)
("pkg-config", pkg-config))) ("pkg-config" ,pkg-config)))
(synopsis "Keyboard entry processing library for terminal-based programs") (synopsis "Keyboard entry processing library for terminal-based programs")
(description (description
"Libtermkey handles all the necessary logic to recognise special keys, UTF-8 "Libtermkey handles all the necessary logic to recognise special keys, UTF-8
@ -695,7 +694,7 @@ terminal or piped input.")
(delete-file "tests/test_input_output.py") (delete-file "tests/test_input_output.py")
#t))))) #t)))))
(propagated-inputs (propagated-inputs
`(("python-wcwidth", python-wcwidth))) `(("python-wcwidth" ,python-wcwidth)))
(native-inputs (native-inputs
`(("python-pytest-runner" ,python-pytest-runner) `(("python-pytest-runner" ,python-pytest-runner)
("python-pytest" ,python-pytest))) ("python-pytest" ,python-pytest)))
@ -765,7 +764,7 @@ than a terminal.")
(invoke "nosetests" "-v")))))) (invoke "nosetests" "-v"))))))
(propagated-inputs (propagated-inputs
`(("python-blessings" ,python-blessings) `(("python-blessings" ,python-blessings)
("python-wcwidth", python-wcwidth))) ("python-wcwidth" ,python-wcwidth)))
(native-inputs (native-inputs
`(("python-mock" ,python-mock) `(("python-mock" ,python-mock)
("python-pyte" ,python-pyte) ("python-pyte" ,python-pyte)

52
gnu/packages/terraform.scm Normal file
View File

@ -0,0 +1,52 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018 Christopher Baines <mail@cbaines.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 terraform)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix git-download)
#:use-module (guix build-system go)
#:use-module (gnu packages golang))
(define-public terraform-docs
(package
(name "terraform-docs")
(version "0.3.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/segmentio/terraform-docs")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0xchpik32ab8m89s6jv671vswg8xhprfvh6s5md0zd36482d2nmm"))))
(build-system go-build-system)
(native-inputs
`(("go-github-com-hashicorp-hcl" ,go-github-com-hashicorp-hcl)
("go-github-com-tj-docopt" ,go-github-com-tj-docopt)))
(arguments
'(#:import-path "github.com/segmentio/terraform-docs"))
(synopsis "Generate documentation from Terraform modules")
(description
"The @code{terraform-docs} utility can generate documentation describing
the inputs and outputs for modules of the Terraform infrastructure management
tool. These can be shown, or written to a file in JSON or Markdown formats.")
(home-page "https://github.com/segmentio/terraform-docs")
(license license:expat)))

2
gnu/packages/tex.scm
View File

@ -3591,7 +3591,7 @@ this is particularly useful when using scalable versions of the CM
fonts (Bakoma, or the versions from BSR/Y&Y, or True Type versions from Kinch, fonts (Bakoma, or the versions from BSR/Y&Y, or True Type versions from Kinch,
PCTeX, etc.). In fact, since modern distributions will automatically generate PCTeX, etc.). In fact, since modern distributions will automatically generate
any bitmap font you might need, @code{type1cm} has wider application than just any bitmap font you might need, @code{type1cm} has wider application than just
those using scaleable versions of the fonts. Note that the LaTeX distribution those using scalable versions of the fonts. Note that the LaTeX distribution
now contains a package @code{fix-cm},f which performs the task of now contains a package @code{fix-cm},f which performs the task of
@code{type1cm}, as well as doing the same job for T1- and TS1-encoded @code{type1cm}, as well as doing the same job for T1- and TS1-encoded
@code{ec} fonts.") @code{ec} fonts.")

8
gnu/packages/text-editors.scm
View File

@ -81,10 +81,10 @@
(list (search-path-specification (list (search-path-specification
(variable "VIS_PATH") (variable "VIS_PATH")
(files '("share/vis"))))) (files '("share/vis")))))
(inputs `(("lua", lua) (inputs `(("lua" ,lua)
("ncurses", ncurses) ("ncurses" ,ncurses)
("libtermkey", libtermkey) ("libtermkey" ,libtermkey)
("lua-lpeg", lua-lpeg) ("lua-lpeg" ,lua-lpeg)
("tre" ,tre))) ("tre" ,tre)))
(synopsis "Vim-like text editor") (synopsis "Vim-like text editor")
(description (description

6
gnu/packages/tls.scm
View File

@ -500,13 +500,13 @@ netcat implementation that supports TLS.")
(package (package
(name "python-acme") (name "python-acme")
;; Remember to update the hash of certbot when updating python-acme. ;; Remember to update the hash of certbot when updating python-acme.
(version "0.22.0") (version "0.22.1")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "acme" version)) (uri (pypi-uri "acme" version))
(sha256 (sha256
(base32 (base32
"1s2zamyb99zdyga3c75xxgnj0z2hixw8wv24v1l4p49fncnxab2a")))) "0cbw062xmaqhmdb5d04d2xs9aacmq1i7yvnd37gw1d71qgxlnmsz"))))
(build-system python-build-system) (build-system python-build-system)
(arguments (arguments
`(#:phases `(#:phases
@ -555,7 +555,7 @@ netcat implementation that supports TLS.")
(uri (pypi-uri name version)) (uri (pypi-uri name version))
(sha256 (sha256
(base32 (base32
"1cyb3lhxrw7ghyhrl2wc95vqhdaxz6n4pai66c573gcly7c7sc7f")))) "1d9abvlwi2d4d991dakds7jyrzxcsqkl13sd0clkriav9cdqwhv4"))))
(build-system python-build-system) (build-system python-build-system)
(arguments (arguments
`(,@(substitute-keyword-arguments (package-arguments python-acme) `(,@(substitute-keyword-arguments (package-arguments python-acme)

8
gnu/packages/video.scm
View File

@ -1062,7 +1062,7 @@ SVCD, DVD, 3ivx, DivX 3/4/5, WMV and H.264 movies.")
("waf" ,python-waf) ("waf" ,python-waf)
("wayland" ,wayland) ("wayland" ,wayland)
("wayland-protocols" ,wayland-protocols) ("wayland-protocols" ,wayland-protocols)
("libxkbcommon", libxkbcommon) ("libxkbcommon" ,libxkbcommon)
("youtube-dl" ,youtube-dl) ("youtube-dl" ,youtube-dl)
("zlib" ,zlib))) ("zlib" ,zlib)))
(arguments (arguments
@ -1158,7 +1158,7 @@ access to mpv's powerful playback capabilities.")
(define-public youtube-dl (define-public youtube-dl
(package (package
(name "youtube-dl") (name "youtube-dl")
(version "2018.03.10") (version "2018.03.14")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://yt-dl.org/downloads/" (uri (string-append "https://yt-dl.org/downloads/"
@ -1166,7 +1166,7 @@ access to mpv's powerful playback capabilities.")
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1ibmz91anli1vzkgw2i3h4wf1i8arzd74730ylwcwyg3375xryjb")))) "0j8j797gqc29fd5ra3cjvwkp8dgvigdydsj0zzjs05zccfqrj9lh"))))
(build-system python-build-system) (build-system python-build-system)
(arguments (arguments
;; The problem here is that the directory for the man page and completion ;; The problem here is that the directory for the man page and completion
@ -2463,7 +2463,7 @@ MPEG-2, MPEG-4, DVD (VOB)...
("libtool" ,libtool) ("libtool" ,libtool)
("pkg-config" ,pkg-config) ("pkg-config" ,pkg-config)
("zlib" ,zlib) ("zlib" ,zlib)
("libmediainfo", libmediainfo) ("libmediainfo" ,libmediainfo)
("libzen" ,libzen))) ("libzen" ,libzen)))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments

2
gnu/packages/virtualization.scm
View File

@ -747,7 +747,7 @@ Machine Protocol.")
("sdl2" ,sdl2) ("sdl2" ,sdl2)
("sdl2-ttf" ,sdl2-ttf) ("sdl2-ttf" ,sdl2-ttf)
("spice-protocol" ,spice-protocol))) ("spice-protocol" ,spice-protocol)))
(native-inputs `(("pkg-config", pkg-config))) (native-inputs `(("pkg-config" ,pkg-config)))
(arguments (arguments
`(#:tests? #f ;; No tests are available. `(#:tests? #f ;; No tests are available.
#:phases (modify-phases %standard-phases #:phases (modify-phases %standard-phases

44
gnu/packages/vulkan.scm
View File

@ -1,5 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017, 2018 Rutger Helling <rhelling@mykolab.com> ;;; Copyright © 2017, 2018 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Efraim Flashner <efraim@flashner.co.il>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -102,7 +104,7 @@ and for the GLSL.std.450 extended instruction set.
(assoc-ref %build-inputs (assoc-ref %build-inputs
"spirv-headers"))))) "spirv-headers")))))
(inputs `(("spirv-headers" ,spirv-headers))) (inputs `(("spirv-headers" ,spirv-headers)))
(native-inputs `(("pkg-config", pkg-config) (native-inputs `(("pkg-config" ,pkg-config)
("python" ,python))) ("python" ,python)))
(home-page "https://github.com/KhronosGroup/SPIRV-Tools") (home-page "https://github.com/KhronosGroup/SPIRV-Tools")
(synopsis "API and commands for processing SPIR-V modules") (synopsis "API and commands for processing SPIR-V modules")
@ -189,7 +191,7 @@ interpretation of the specifications for these languages.")
("mesa" ,mesa) ("mesa" ,mesa)
("spirv-tools" ,spirv-tools) ("spirv-tools" ,spirv-tools)
("wayland" ,wayland))) ("wayland" ,wayland)))
(native-inputs `(("pkg-config", pkg-config) (native-inputs `(("pkg-config" ,pkg-config)
("python" ,python))) ("python" ,python)))
(home-page (home-page
"https://github.com/KhronosGroup/Vulkan-LoaderAndValidationLayers") "https://github.com/KhronosGroup/Vulkan-LoaderAndValidationLayers")
@ -211,7 +213,7 @@ and the ICD.")
(revision "1")) (revision "1"))
(package (package
(name "shaderc") (name "shaderc")
(version (string-append "0.0-" revision "." (string-take commit 9))) (version (git-version "0.0.0" revision commit))
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -224,7 +226,7 @@ and the ICD.")
"0b41inb1czxv3mciip0lfdxv19ccx2ys31fivfywjn2q8va1gd1f")))) "0b41inb1czxv3mciip0lfdxv19ccx2ys31fivfywjn2q8va1gd1f"))))
(build-system meson-build-system) (build-system meson-build-system)
(arguments (arguments
`(#:tests? #f ;; Tests don't work yet. `(#:tests? #f ; tests don't work yet.
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(replace 'configure (replace 'configure
@ -253,31 +255,25 @@ and the ICD.")
out))))) out)))))
(add-after 'unpack 'unpack-sources (add-after 'unpack 'unpack-sources
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((spirv-tools-source (assoc-ref %build-inputs (let ((spirv-tools-source (assoc-ref inputs "spirv-tools-source"))
"spirv-tools-source")) (spirv-headers-source (assoc-ref inputs "spirv-headers-source"))
(spirv-headers-source (assoc-ref %build-inputs (glslang-source (assoc-ref inputs "glslang-source")))
"spirv-headers-source")) (copy-recursively spirv-tools-source "third_party/spirv-tools")
(glslang-source (assoc-ref %build-inputs
"glslang-source")))
(mkdir-p "third-party/spirv-tools")
(copy-recursively spirv-tools-source
"third_party/spirv-tools")
(mkdir-p "third-party/spirv-tools/external/spirv-headers")
(copy-recursively spirv-headers-source (copy-recursively spirv-headers-source
(string-append "third_party/spirv-tools" (string-append "third_party/spirv-tools"
"/external/spirv-headers")) "/external/spirv-headers"))
(mkdir-p "third-party/glslang") (copy-recursively glslang-source "third_party/glslang")
(copy-recursively glslang-source
"third_party/glslang")
#t)))))) #t))))))
(inputs `(("python" ,python))) (inputs
(native-inputs `(("cmake" ,cmake) `(("python" ,python)))
("glslang-source", (package-source glslang)) (native-inputs
("pkg-config", pkg-config) `(("cmake" ,cmake)
("spirv-headers-source", (package-source spirv-headers)) ("glslang-source" ,(package-source glslang))
("spirv-tools-source", (package-source spirv-tools)))) ("pkg-config" ,pkg-config)
("spirv-headers-source" ,(package-source spirv-headers))
("spirv-tools-source" ,(package-source spirv-tools))))
(home-page "https://github.com/google/shaderc") (home-page "https://github.com/google/shaderc")
(synopsis "Tools for shader compilation") (synopsis "Tools for shader compilation")
(description "Shaderc is a collection of tools, libraries and tests for (description "Shaderc is a collection of tools, libraries, and tests for
shader compilation.") shader compilation.")
(license license:asl2.0)))) (license license:asl2.0))))

18
gnu/packages/web.scm
View File

@ -957,9 +957,9 @@ of people.")
; named 'stubout'". The tests can be run by replacing the check phase with ; named 'stubout'". The tests can be run by replacing the check phase with
; the command "python setup.py nosetests --verbosity=3". ; the command "python setup.py nosetests --verbosity=3".
(native-inputs `(; Required for tests: (native-inputs `(; Required for tests:
("python-mox3", python-mox3) ("python-mox3" ,python-mox3)
("python-nose", python-nose))) ("python-nose" ,python-nose)))
(propagated-inputs `(("python-numpy", python-numpy))) (propagated-inputs `(("python-numpy" ,python-numpy)))
(home-page "https://github.com/novnc/websockify") (home-page "https://github.com/novnc/websockify")
(synopsis "WebSockets support for any application/server") (synopsis "WebSockets support for any application/server")
(description "Websockify translates WebSockets traffic to normal socket (description "Websockify translates WebSockets traffic to normal socket
@ -986,7 +986,7 @@ directions.")
#:tests? #f)) ; no test target #:tests? #f)) ; no test target
(native-inputs `(("flex" ,flex))) (native-inputs `(("flex" ,flex)))
(inputs `(("gnutls" ,gnutls) (inputs `(("gnutls" ,gnutls)
("libcrypt", libgcrypt))) ("libcrypt" ,libgcrypt)))
(home-page "https://www.gedanken.org.uk/software/wwwoffle/") (home-page "https://www.gedanken.org.uk/software/wwwoffle/")
(synopsis "Caching web proxy optimized for intermittent internet links") (synopsis "Caching web proxy optimized for intermittent internet links")
(description "WWWOFFLE is a proxy web server that is especially good for (description "WWWOFFLE is a proxy web server that is especially good for
@ -4048,14 +4048,14 @@ a pure C99 library.")
(define-public uwsgi (define-public uwsgi
(package (package
(name "uwsgi") (name "uwsgi")
(version "2.0.15") (version "2.0.17")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "http://projects.unbit.it/downloads/uwsgi-" (uri (string-append "https://projects.unbit.it/downloads/uwsgi-"
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1zvj28wp3c1hacpd4c6ra5ilwvvfq3l8y6gn8i7mnncpddlzjbjp")))) "1wlbaairsmhp6bx5wv282q9pgh6w7w6yrb8vxjznfaxrinsfkhix"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(outputs '("out" "python")) (outputs '("out" "python"))
(arguments (arguments
@ -4970,8 +4970,8 @@ used to start services with both privileged and non-privileged port numbers.")
(outputs '("out" (outputs '("out"
"static")) ; 1.0MiB of .a files "static")) ; 1.0MiB of .a files
(arguments (arguments
`(#:tests? #f ; No tests available `(#:tests? #f ; no tests available
#:configure-flags (list "-DCMAKE_BUILD_TYPE=Release") #:build-type "Release"
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'install 'move-static-libraries (add-after 'install 'move-static-libraries

28
gnu/packages/wget.scm
View File

@ -152,21 +152,21 @@ online pastebin services.")
(zero? (system* "sh" "./bootstrap" (zero? (system* "sh" "./bootstrap"
"--gnulib-srcdir=gnulib" "--gnulib-srcdir=gnulib"
"--no-git"))))))) "--no-git")))))))
(inputs `(("autoconf", autoconf) (inputs `(("autoconf" ,autoconf)
("automake", automake) ("automake" ,automake)
("doxygen", doxygen) ("doxygen" ,doxygen)
("flex", flex) ("flex" ,flex)
("gettext", gettext-minimal) ("gettext" ,gettext-minimal)
("gnutls", gnutls/dane) ("gnutls" ,gnutls/dane)
("libiconv", libiconv) ("libiconv" ,libiconv)
("libidn2", libidn2) ("libidn2" ,libidn2)
("libmicrohttpd", libmicrohttpd) ("libmicrohttpd" ,libmicrohttpd)
("libpsl", libpsl) ("libpsl" ,libpsl)
("libtool", libtool) ("libtool" ,libtool)
("pcre2", pcre2) ("pcre2" ,pcre2)
("python", python))) ("python" ,python)))
;; TODO: Add libbrotlidec, libnghttp2. ;; TODO: Add libbrotlidec, libnghttp2.
(native-inputs `(("pkg-config", pkg-config))) (native-inputs `(("pkg-config" ,pkg-config)))
(home-page "https://gitlab.com/gnuwget/wget2") (home-page "https://gitlab.com/gnuwget/wget2")
(synopsis "Successor of GNU Wget") (synopsis "Successor of GNU Wget")
(description "GNU Wget2 is the successor of GNU Wget, a file and recursive (description "GNU Wget2 is the successor of GNU Wget, a file and recursive

15
gnu/packages/wine.scm
View File

@ -221,7 +221,7 @@ integrate Windows applications into your desktop.")
(define-public wine-staging-patchset-data (define-public wine-staging-patchset-data
(package (package
(name "wine-staging-patchset-data") (name "wine-staging-patchset-data")
(version "3.3") (version "3.4")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -230,7 +230,7 @@ integrate Windows applications into your desktop.")
(file-name (string-append name "-" version ".zip")) (file-name (string-append name "-" version ".zip"))
(sha256 (sha256
(base32 (base32
"16l28vrhqn27kipqwms622jz1prfky8qkjb8pj747k3qjnm2k1g9")))) "00yzh9bqs2rjgvk78xv3gfkbv4f2bkch9vb1ii4xh883f7wvkz93"))))
(build-system trivial-build-system) (build-system trivial-build-system)
(native-inputs (native-inputs
`(("bash" ,bash) `(("bash" ,bash)
@ -270,15 +270,16 @@ integrate Windows applications into your desktop.")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append (uri (string-append
"https://dl.winehq.org/wine/source/3.x/wine-" version "https://dl.winehq.org/wine/source/"
".tar.xz")) (version-major version) ".x"
"/wine-" version ".tar.xz"))
(file-name (string-append name "-" version ".tar.xz")) (file-name (string-append name "-" version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"0cx31jsll7mxd9r7v0vpahajqwb6da6cpwybv06l5ydkgfrbv505")))) "14wf7536rkmhav9ibbvhqqkfqmbk1dckhd2679i5scizr5x290x4"))))
(inputs `(("autoconf" ,autoconf) ; for autoreconf (inputs `(("autoconf" ,autoconf) ; for autoreconf
("gtk+", gtk+) ("gtk+" ,gtk+)
("libva", libva) ("libva" ,libva)
("python" ,python) ("python" ,python)
("sdl2" ,sdl2) ("sdl2" ,sdl2)
("util-linux" ,util-linux) ; for hexdump ("util-linux" ,util-linux) ; for hexdump

2
gnu/packages/wm.scm
View File

@ -706,7 +706,7 @@ experience.")
("libxdg-basedir" ,libxdg-basedir) ("libxdg-basedir" ,libxdg-basedir)
("libxkbcommon" ,libxkbcommon) ("libxkbcommon" ,libxkbcommon)
("lua" ,lua) ("lua" ,lua)
("lua-lgi",lua-lgi) ("lua-lgi" ,lua-lgi)
("pango" ,pango) ("pango" ,pango)
("startup-notification" ,startup-notification) ("startup-notification" ,startup-notification)
("xcb-util" ,xcb-util) ("xcb-util" ,xcb-util)

10
gnu/packages/xdisorg.scm
View File

@ -1096,7 +1096,7 @@ connectivity of the X server running on a particular @code{DISPLAY}.")
(define-public rofi (define-public rofi
(package (package
(name "rofi") (name "rofi")
(version "1.5.0") (version "1.5.1")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://github.com/DaveDavenport/rofi/" (uri (string-append "https://github.com/DaveDavenport/rofi/"
@ -1104,7 +1104,7 @@ connectivity of the X server running on a particular @code{DISPLAY}.")
version "/rofi-" version ".tar.xz")) version "/rofi-" version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"0li2hl55sxzdpbxxiwgxsvkhyy6bh8qd2j1r8xh8y6q8a318zsz9")))) "10r1jd3h5i22pdr619hmvxv6dhzf9i13j50c28g7yffdggx8ncjg"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs (inputs
`(("pango" ,pango) `(("pango" ,pango)
@ -1329,9 +1329,9 @@ XCB util-xrm module provides the following libraries:
(install-file "README" doc) (install-file "README" doc)
;; Avoid unspecified return value. ;; Avoid unspecified return value.
#t)))))) #t))))))
(inputs `(("libx11", libx11) (inputs `(("libx11" ,libx11)
("libxext", libxext) ("libxext" ,libxext)
("libxxf86vm", libxxf86vm))) ("libxxf86vm" ,libxxf86vm)))
(synopsis "Tiny monitor calibration loader for XFree86 (or X.org)") (synopsis "Tiny monitor calibration loader for XFree86 (or X.org)")
(description "xcalib is a tiny tool to load the content of vcgt-Tags in ICC (description "xcalib is a tiny tool to load the content of vcgt-Tags in ICC
profiles to the video card's gamma ramp. It does work with most video card profiles to the video card's gamma ramp. It does work with most video card

15
gnu/packages/xml.scm
View File

@ -560,7 +560,7 @@ callback.")
(define-public perl-xml-simple (define-public perl-xml-simple
(package (package
(name "perl-xml-simple") (name "perl-xml-simple")
(version "2.22") (version "2.25")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append (uri (string-append
@ -568,7 +568,7 @@ callback.")
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"0jgbk30jizafpl7078jhw1di1yh08gf8d85dsvjllr595vr0widr")))) "1y6vh328zrh085d40852v4ij2l4g0amxykswxd1nfhd2pspds7sk"))))
(build-system perl-build-system) (build-system perl-build-system)
(propagated-inputs (propagated-inputs
`(("perl-xml-parser" ,perl-xml-parser) `(("perl-xml-parser" ,perl-xml-parser)
@ -707,14 +707,14 @@ a schema.")
(define-public perl-xml-compile-soap (define-public perl-xml-compile-soap
(package (package
(name "perl-xml-compile-soap") (name "perl-xml-compile-soap")
(version "3.21") (version "3.24")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://cpan/authors/id/M/MA/MARKOV/" (uri (string-append "mirror://cpan/authors/id/M/MA/MARKOV/"
"XML-Compile-SOAP-" version ".tar.gz")) "XML-Compile-SOAP-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"0rxidh7kjyhnw2y789bqbwccnp8n0m3xskn524y9c752s64qpjcz")))) "0pkcph562l2ij7rlwlvm58v6y062qsbydfpaz2qnph2ixqy0xfd1"))))
(build-system perl-build-system) (build-system perl-build-system)
(propagated-inputs (propagated-inputs
`(("perl-file-slurp-tiny" ,perl-file-slurp-tiny) `(("perl-file-slurp-tiny" ,perl-file-slurp-tiny)
@ -1309,7 +1309,8 @@ SAX2 APIs.")
version ".zip")) version ".zip"))
(sha256 (sha256
(base32 (base32
"0w19k1awslmihpwsxwjbg89hv0vjhk4k3i0vrfchy3mqknd988y5")))) "0w19k1awslmihpwsxwjbg89hv0vjhk4k3i0vrfchy3mqknd988y5"))
(patches (search-patches "java-simple-xml-fix-tests.patch"))))
(build-system ant-build-system) (build-system ant-build-system)
(arguments (arguments
`(#:build-target "build" `(#:build-target "build"
@ -1415,7 +1416,7 @@ characters into a single event.")
(propagated-inputs (propagated-inputs
`(("perl-libxml" ,perl-libxml) `(("perl-libxml" ,perl-libxml)
("perl-xml-filter-buffertext" ,perl-xml-filter-buffertext) ("perl-xml-filter-buffertext" ,perl-xml-filter-buffertext)
("perl-xml-namespacesupport", perl-xml-namespacesupport) ("perl-xml-namespacesupport" ,perl-xml-namespacesupport)
("perl-xml-sax-base" ,perl-xml-sax-base))) ("perl-xml-sax-base" ,perl-xml-sax-base)))
(home-page "http://search.cpan.org/dist/XML-SAX-Writer/") (home-page "http://search.cpan.org/dist/XML-SAX-Writer/")
(synopsis "SAX2 XML Writer") (synopsis "SAX2 XML Writer")
@ -1472,7 +1473,7 @@ It provides a flexible escaping technique and pretty printing.")
("perl-xml-sax-writer" ,perl-xml-sax-writer) ("perl-xml-sax-writer" ,perl-xml-sax-writer)
("perl-xml-simple" ,perl-xml-simple) ("perl-xml-simple" ,perl-xml-simple)
("perl-xml-xpathengine" ,perl-xml-xpathengine) ("perl-xml-xpathengine" ,perl-xml-xpathengine)
("perl-test-pod", perl-test-pod) ("perl-test-pod" ,perl-test-pod)
("perl-tree-xpathengine" ,perl-tree-xpathengine))) ("perl-tree-xpathengine" ,perl-tree-xpathengine)))
(home-page "http://search.cpan.org/dist/XML-Twig/") (home-page "http://search.cpan.org/dist/XML-Twig/")
(synopsis "Perl module for processing huge XML documents in tree mode") (synopsis "Perl module for processing huge XML documents in tree mode")

2
gnu/packages/xorg.scm
View File

@ -5932,7 +5932,7 @@ basic eye-candy effects.")
("python2-rencode" ,python2-rencode) ("python2-rencode" ,python2-rencode)
("xorg-server" ,xorg-server))) ("xorg-server" ,xorg-server)))
(native-inputs `(("pkg-config" ,pkg-config) (native-inputs `(("pkg-config" ,pkg-config)
("python2-cython", python2-cython))) ("python2-cython" ,python2-cython)))
(arguments (arguments
`(#:python ,python-2 ;; no full Python 3 support yet `(#:python ,python-2 ;; no full Python 3 support yet
#:configure-flags '("--with-tests" #:configure-flags '("--with-tests"

8
gnu/services/databases.scm
View File

@ -112,7 +112,7 @@ host all all ::1/128 trust"))
(match file (match file
(($ <postgresql-config-file> log-destination hba-file (($ <postgresql-config-file> log-destination hba-file
ident-file extra-config) ident-file extra-config)
(define (quote' string) (define (single-quote string)
(if string (if string
(list "'" string "'") (list "'" string "'")
'())) '()))
@ -124,9 +124,9 @@ host all all ::1/128 trust"))
((key . #f) '()) ((key . #f) '())
((key values ...) `(,key " = " ,@values "\n"))) ((key values ...) `(,key " = " ,@values "\n")))
`(("log_destination" ,@(quote' log-destination)) `(("log_destination" ,@(single-quote log-destination))
("hba_file" ,@(quote' hba-file)) ("hba_file" ,@(single-quote hba-file))
("ident_file" ,@(quote' ident-file)) ("ident_file" ,@(single-quote ident-file))
,@extra-config))) ,@extra-config)))
(gexp->derivation (gexp->derivation

8
gnu/services/mcron.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016, 2017 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -20,7 +20,7 @@
#:use-module (gnu services) #:use-module (gnu services)
#:use-module (gnu services base) #:use-module (gnu services base)
#:use-module (gnu services shepherd) #:use-module (gnu services shepherd)
#:autoload (gnu packages guile) (mcron2) #:autoload (gnu packages guile) (mcron)
#:use-module (guix records) #:use-module (guix records)
#:use-module (guix gexp) #:use-module (guix gexp)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
@ -53,7 +53,7 @@
make-mcron-configuration make-mcron-configuration
mcron-configuration? mcron-configuration?
(mcron mcron-configuration-mcron ;package (mcron mcron-configuration-mcron ;package
(default mcron2)) (default mcron))
(jobs mcron-configuration-jobs ;list of <mcron-job> (jobs mcron-configuration-jobs ;list of <mcron-job>
(default '()))) (default '())))
@ -100,7 +100,7 @@
jobs))))) jobs)))))
(default-value (mcron-configuration)))) ;empty job list (default-value (mcron-configuration)))) ;empty job list
(define* (mcron-service jobs #:optional (mcron mcron2)) (define* (mcron-service jobs #:optional (mcron mcron))
"Return an mcron service running @var{mcron} that schedules @var{jobs}, a "Return an mcron service running @var{mcron} that schedules @var{jobs}, a
list of gexps denoting mcron job specifications. list of gexps denoting mcron job specifications.

7
gnu/services/ssh.scm
View File

@ -302,6 +302,10 @@ The other options should be self-descriptive."
(subsystems openssh-configuration-subsystems (subsystems openssh-configuration-subsystems
(default '(("sftp" "internal-sftp")))) (default '(("sftp" "internal-sftp"))))
;; list of strings
(accepted-environment openssh-configuration-accepted-environment
(default '()))
;; list of user-name/file-like tuples ;; list of user-name/file-like tuples
(authorized-keys openssh-authorized-keys (authorized-keys openssh-authorized-keys
(default '())) (default '()))
@ -430,6 +434,9 @@ of user-name/file-like tuples."
(format port "AuthorizedKeysFile \ (format port "AuthorizedKeysFile \
.ssh/authorized_keys .ssh/authorized_keys2 /etc/ssh/authorized_keys.d/%u\n") .ssh/authorized_keys .ssh/authorized_keys2 /etc/ssh/authorized_keys.d/%u\n")
(for-each (lambda (s) (format port "AcceptEnv ~a\n" s))
'#$(openssh-configuration-accepted-environment config))
(for-each (for-each
(match-lambda (match-lambda
((name command) (format port "Subsystem\t~a\t~a\n" name command))) ((name command) (format port "Subsystem\t~a\t~a\n" name command)))

1
gnu/system/vm.scm
View File

@ -144,6 +144,7 @@ made available under the /xchg CIFS share."
(initrd (if initrd ; use the default initrd? (initrd (if initrd ; use the default initrd?
(return initrd) (return initrd)
(base-initrd %linux-vm-file-systems (base-initrd %linux-vm-file-systems
#:on-error 'backtrace
#:linux linux #:linux linux
#:linux-modules %base-initrd-modules #:linux-modules %base-initrd-modules
#:qemu-networking? #t)))) #:qemu-networking? #t))))

4
gnu/tests/base.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016, 2017 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -477,7 +477,7 @@ in a loop. See <http://bugs.gnu.org/26931>.")
(define %mcron-os (define %mcron-os
;; System with an mcron service, with one mcron job for "root" and one mcron ;; System with an mcron service, with one mcron job for "root" and one mcron
;; job for an unprivileged user (note: #:user is an 'mcron2' thing.) ;; job for an unprivileged user.
(let ((job1 #~(job next-second-from (let ((job1 #~(job next-second-from
(lambda () (lambda ()
(call-with-output-file "witness" (call-with-output-file "witness"

3
guix/download.scm
View File

@ -66,7 +66,6 @@
"ftp://gcc.gnu.org/pub/gcc/" "ftp://gcc.gnu.org/pub/gcc/"
,@(map (cut string-append <> "/gcc") gnu-mirrors)) ,@(map (cut string-append <> "/gcc") gnu-mirrors))
(gnupg (gnupg
"http://gd.tuwien.ac.at/privacy/gnupg/"
"http://artfiles.org/gnupg.org" "http://artfiles.org/gnupg.org"
"http://www.crysys.hu/" "http://www.crysys.hu/"
"https://gnupg.org/ftp/gcrypt/" "https://gnupg.org/ftp/gcrypt/"
@ -143,7 +142,6 @@
"http://apache.belnet.be/" "http://apache.belnet.be/"
"http://mirrors.ircam.fr/pub/apache/" "http://mirrors.ircam.fr/pub/apache/"
"http://apache-mirror.rbc.ru/pub/apache/" "http://apache-mirror.rbc.ru/pub/apache/"
"ftp://gd.tuwien.ac.at/pub/infosys/servers/http/apache/dist/"
;; As a last resort, try the archive. ;; As a last resort, try the archive.
"http://archive.apache.org/dist/") "http://archive.apache.org/dist/")
@ -163,7 +161,6 @@
"ftp://ftp.piotrkosoft.net/pub/mirrors/ftp.x.org/" "ftp://ftp.piotrkosoft.net/pub/mirrors/ftp.x.org/"
"ftp://ftp.portal-to-web.de/pub/mirrors/x.org/" "ftp://ftp.portal-to-web.de/pub/mirrors/x.org/"
"ftp://ftp.solnet.ch/mirror/x.org/" "ftp://ftp.solnet.ch/mirror/x.org/"
"ftp://gd.tuwien.ac.at/X11/"
"ftp://mi.mirror.garr.it/mirrors/x.org/" "ftp://mi.mirror.garr.it/mirrors/x.org/"
"ftp://mirror.cict.fr/x.org/" "ftp://mirror.cict.fr/x.org/"
"ftp://mirror.switch.ch/mirror/X11/" "ftp://mirror.switch.ch/mirror/X11/"

2
guix/git-download.scm
View File

@ -109,7 +109,7 @@ HASH-ALGO (a symbol). Use NAME as the file name, or a generic name if #f."
;; grep, etc. to be in $PATH. ;; grep, etc. to be in $PATH.
(set-path-environment-variable "PATH" '("bin") (set-path-environment-variable "PATH" '("bin")
(match '#+inputs (match '#+inputs
(((names dirs) ...) (((names dirs outputs ...) ...)
dirs))) dirs)))
(or (git-fetch (getenv "git url") (getenv "git commit") (or (git-fetch (getenv "git url") (getenv "git commit")

34
guix/git.scm
View File

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2018 Ludovic Courtès <ludo@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -27,6 +28,8 @@
#:use-module (rnrs bytevectors) #:use-module (rnrs bytevectors)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (srfi srfi-34)
#:use-module (srfi srfi-35)
#:export (%repository-cache-directory #:export (%repository-cache-directory
latest-repository-commit)) latest-repository-commit))
@ -94,17 +97,32 @@ create the store directory name."
(define (switch-to-ref repository ref) (define (switch-to-ref repository ref)
"Switch to REPOSITORY's branch, commit or tag specified by REF." "Switch to REPOSITORY's branch, commit or tag specified by REF."
(let* ((oid (match ref (define obj
(match ref
(('branch . branch) (('branch . branch)
(reference-target (let ((oid (reference-target
(branch-lookup repository branch BRANCH-REMOTE))) (branch-lookup repository branch BRANCH-REMOTE))))
(object-lookup repository oid)))
(('commit . commit) (('commit . commit)
(string->oid commit)) (let ((len (string-length commit)))
;; 'object-lookup-prefix' appeared in Guile-Git in Mar. 2018, so we
;; can't be sure it's available. Furthermore, 'string->oid' used to
;; read out-of-bounds when passed a string shorter than 40 chars,
;; which is why we delay calls to it below.
(if (< len 40)
(if (module-defined? (resolve-interface '(git object))
'object-lookup-prefix)
(object-lookup-prefix repository (string->oid commit) len)
(raise (condition
(&message
(message "long Git object ID is required")))))
(object-lookup repository (string->oid commit)))))
(('tag . tag) (('tag . tag)
(reference-name->oid repository (let ((oid (reference-name->oid repository
(string-append "refs/tags/" tag))))) (string-append "refs/tags/" tag))))
(obj (object-lookup repository oid))) (object-lookup repository oid)))))
(reset repository obj RESET_HARD)))
(reset repository obj RESET_HARD))
(define* (latest-repository-commit store url (define* (latest-repository-commit store url
#:key #:key

124
guix/glob.scm
View File

@ -18,80 +18,120 @@
(define-module (guix glob) (define-module (guix glob)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:export (compile-glob-pattern #:export (string->sglob
compile-sglob
string->compiled-sglob
glob-match?)) glob-match?))
;;; Commentary: ;;; Commentary:
;;; ;;;
;;; This is a minimal implementation of "glob patterns" (info "(libc) ;;; This is a minimal implementation of "glob patterns" (info "(libc)
;;; Globbbing"). It is currently limited to simple patterns and does not ;;; Globbbing"). It is currently limited to simple patterns and does not
;;; support braces and square brackets, for instance. ;;; support braces, for instance.
;;; ;;;
;;; Code: ;;; Code:
(define (wildcard-indices str) (define (parse-bracket chars)
"Return the list of indices in STR where wildcards can be found." "Parse CHARS, a list of characters that extracted from a '[...]' sequence."
(let loop ((index 0) (match chars
(result '())) ((start #\- end)
(if (= index (string-length str)) `(range ,start ,end))
(reverse result) (lst
(loop (+ 1 index) `(set ,@lst))))
(case (string-ref str index)
((#\? #\*) (cons index result))
(else result))))))
(define (compile-glob-pattern str) (define (string->sglob str)
"Return an sexp that represents the compiled form of STR, a glob pattern "Return an sexp, called an \"sglob\", that represents the compiled form of
such as \"foo*\" or \"foo??bar\"." STR, a glob pattern such as \"foo*\" or \"foo??bar\"."
(define flatten (define flatten
(match-lambda (match-lambda
(((? string? str)) str) (((? string? str)) str)
(x x))) (x x)))
(let loop ((index 0) (define (cons-string chars lst)
(indices (wildcard-indices str)) (match chars
(() lst)
(_ (cons (list->string (reverse chars)) lst))))
(let loop ((chars (string->list str))
(pending '())
(brackets 0)
(result '())) (result '()))
(match indices (match chars
(() (()
(flatten (cond ((zero? index) (flatten (reverse (if (null? pending)
(list str)) result
((= index (string-length str)) (cons-string pending result)))))
(reverse result)) (((and chr (or #\? #\*)) . rest)
(else (let ((wildcard (match chr
(reverse (cons (string-drop str index)
result))))))
((wildcard-index . rest)
(let ((wildcard (match (string-ref str wildcard-index)
(#\? '?) (#\? '?)
(#\* '*)))) (#\* '*))))
(match (substring str index wildcard-index) (if (zero? brackets)
("" (loop (+ 1 wildcard-index) (loop rest '() 0
rest (cons* wildcard (cons-string pending result)))
(cons wildcard result))) (loop rest (cons chr pending) brackets result))))
(str (loop (+ 1 wildcard-index) ((#\[ . rest)
rest (if (zero? brackets)
(cons* wildcard str result))))))))) (loop rest '() (+ 1 brackets)
(cons-string pending result))
(loop rest (cons #\[ pending) (+ 1 brackets) result)))
((#\] . rest)
(cond ((zero? brackets)
(error "unexpected closing bracket" str))
((= 1 brackets)
(loop rest '() 0
(cons (parse-bracket (reverse pending)) result)))
(else
(loop rest (cons #\] pending) (- brackets 1) result))))
((chr . rest)
(loop rest (cons chr pending) brackets result)))))
(define (compile-sglob sglob)
"Compile SGLOB into a more efficient representation."
(if (string? sglob)
sglob
(let loop ((sglob sglob)
(result '()))
(match sglob
(()
(reverse result))
(('? . rest)
(loop rest (cons char-set:full result)))
((('range start end) . rest)
(loop rest (cons (ucs-range->char-set
(char->integer start)
(+ 1 (char->integer end)))
result)))
((('set . chars) . rest)
(loop rest (cons (list->char-set chars) result)))
((head . rest)
(loop rest (cons head result)))))))
(define string->compiled-sglob
(compose compile-sglob string->sglob))
(define (glob-match? pattern str) (define (glob-match? pattern str)
"Return true if STR matches PATTERN, a compiled glob pattern as returned by "Return true if STR matches PATTERN, a compiled glob pattern as returned by
'compile-glob-pattern'." 'compile-sglob'."
(let loop ((pattern pattern) (let loop ((pattern pattern)
(str str)) (str str))
(match pattern (match pattern
((? string? literal) (string=? literal str)) ((? string? literal)
(((? string? one)) (string=? one str)) (string=? literal str))
(('*) #t) (()
(('?) (= 1 (string-length str))) (string-null? str))
(() #t) (('*)
#t)
(('* suffix . rest) (('* suffix . rest)
(match (string-contains str suffix) (match (string-contains str suffix)
(#f #f) (#f #f)
(index (loop rest (index (loop rest
(string-drop str (string-drop str
(+ index (string-length suffix))))))) (+ index (string-length suffix)))))))
(('? . rest) (((? char-set? cs) . rest)
(and (>= (string-length str) 1) (and (>= (string-length str) 1)
(loop rest (string-drop str 1)))) (let ((chr (string-ref str 0)))
(and (char-set-contains? cs chr)
(loop rest (string-drop str 1))))))
((prefix . rest) ((prefix . rest)
(and (string-prefix? prefix str) (and (string-prefix? prefix str)
(loop rest (string-drop str (string-length prefix)))))))) (loop rest (string-drop str (string-length prefix))))))))

25
guix/import/elpa.scm
View File

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch> ;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch>
;;; Copyright © 2015, 2016, 2017 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2015, 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -67,15 +67,15 @@ NAMES (strings)."
(string-append package-name-prefix (string-downcase name))))) (string-append package-name-prefix (string-downcase name)))))
(define* (elpa-url #:optional (repo 'gnu)) (define* (elpa-url #:optional (repo 'gnu))
"Retrun the URL of REPO." "Retrieve the URL of REPO."
(let ((elpa-archives (let ((elpa-archives
'((gnu . "http://elpa.gnu.org/packages") '((gnu . "https://elpa.gnu.org/packages")
(melpa-stable . "http://stable.melpa.org/packages") (melpa-stable . "https://stable.melpa.org/packages")
(melpa . "http://melpa.org/packages")))) (melpa . "https://melpa.org/packages"))))
(assq-ref elpa-archives repo))) (assq-ref elpa-archives repo)))
(define* (elpa-fetch-archive #:optional (repo 'gnu)) (define* (elpa-fetch-archive #:optional (repo 'gnu))
"Retrive the archive with the list of packages available from REPO." "Retrieve the archive with the list of packages available from REPO."
(let ((url (and=> (elpa-url repo) (let ((url (and=> (elpa-url repo)
(cut string-append <> "/archive-contents")))) (cut string-append <> "/archive-contents"))))
(if url (if url
@ -190,7 +190,7 @@ include VERSION."
url))) url)))
(_ #f)))) (_ #f))))
(define* (elpa-package->sexp pkg) (define* (elpa-package->sexp pkg #:optional license)
"Return the `package' S-expression for the Emacs package PKG, a record of "Return the `package' S-expression for the Emacs package PKG, a record of
type '<elpa-package>'." type '<elpa-package>'."
@ -234,12 +234,17 @@ type '<elpa-package>'."
(home-page ,(elpa-package-home-page pkg)) (home-page ,(elpa-package-home-page pkg))
(synopsis ,(elpa-package-synopsis pkg)) (synopsis ,(elpa-package-synopsis pkg))
(description ,(elpa-package-description pkg)) (description ,(elpa-package-description pkg))
(license license:gpl3+)))) (license ,license))))
(define* (elpa->guix-package name #:optional (repo 'gnu)) (define* (elpa->guix-package name #:optional (repo 'gnu))
"Fetch the package NAME from REPO and produce a Guix package S-expression." "Fetch the package NAME from REPO and produce a Guix package S-expression."
(let ((pkg (fetch-elpa-package name repo))) (match (fetch-elpa-package name repo)
(and=> pkg elpa-package->sexp))) (#f #f)
(package
;; ELPA is known to contain only GPLv3+ code. Other repos may contain
;; code under other license but there's no license metadata.
(let ((license (and (eq? 'gnu repo) 'license:gpl3+)))
(elpa-package->sexp package license)))))
;;; ;;;

11
tests/elpa.scm
View File

@ -81,6 +81,13 @@ information about package NAME. (Function 'elpa-package-info'.)"
auctex-readme-mock auctex-readme-mock
url))) url)))
(_ #f))))) (_ #f)))))
(mock
((guix build download) url-fetch
(lambda (url file . _)
(call-with-output-file file
(lambda (port)
(display "fake tarball" port)))))
(match (elpa->guix-package pkg) (match (elpa->guix-package pkg)
(('package (('package
('name "emacs-auctex") ('name "emacs-auctex")
@ -89,7 +96,7 @@ information about package NAME. (Function 'elpa-package-info'.)"
('origin ('origin
('method 'url-fetch) ('method 'url-fetch)
('uri ('string-append ('uri ('string-append
"http://elpa.gnu.org/packages/auctex-" 'version ".tar")) "https://elpa.gnu.org/packages/auctex-" 'version ".tar"))
('sha256 ('base32 (? string? hash))))) ('sha256 ('base32 (? string? hash)))))
('build-system 'emacs-build-system) ('build-system 'emacs-build-system)
('home-page "http://www.gnu.org/software/auctex/") ('home-page "http://www.gnu.org/software/auctex/")
@ -98,7 +105,7 @@ information about package NAME. (Function 'elpa-package-info'.)"
('license 'license:gpl3+)) ('license 'license:gpl3+))
#t) #t)
(x (x
(pk 'fail x #f))))) (pk 'fail x #f))))))
(test-assert "elpa->guix-package test 1" (test-assert "elpa->guix-package test 1"
(eval-test-with-elpa "auctex")) (eval-test-with-elpa "auctex"))

67
tests/glob.scm
View File

@ -23,36 +23,47 @@
(test-begin "glob") (test-begin "glob")
(test-equal "compile-glob-pattern, no wildcards" (define-syntax test-string->sglob
"foo" (syntax-rules (=>)
(compile-glob-pattern "foo")) ((_ pattern => result rest ...)
(begin
(test-equal (format #f "string->sglob, ~s" pattern)
result
(string->sglob pattern))
(test-string->sglob rest ...)))
((_)
#t)))
(test-equal "compile-glob-pattern, Kleene star" (define-syntax test-glob-match
'("foo" * "bar") (syntax-rules (matches and not)
(compile-glob-pattern "foo*bar")) ((_ (pattern-string matches strings ... (and not others ...)) rest ...)
(begin
(test-assert (format #f "glob-match? ~s" pattern-string)
(let ((pattern (string->compiled-sglob pattern-string)))
(and (glob-match? pattern strings) ...
(not (glob-match? pattern others)) ...)))
(test-glob-match rest ...)))
((_)
#t)))
(test-equal "compile-glob-pattern, question mark" (test-string->sglob
'(? "foo" *) "foo" => "foo"
(compile-glob-pattern "?foo*")) "?foo*" => '(? "foo" *)
"foo[1-5]" => '("foo" (range #\1 #\5))
"foo[abc]bar" => '("foo" (set #\a #\b #\c) "bar")
"foo[a[b]c]bar" => '("foo" (set #\a #\[ #\b #\] #\c) "bar")
"[123]x" => '((set #\1 #\2 #\3) "x")
"[a-z]" => '((range #\a #\z)))
(test-assert "literal match" (test-glob-match
(let ((pattern (compile-glob-pattern "foo"))) ("foo" matches "foo" (and not "foobar" "barfoo"))
(and (glob-match? pattern "foo") ("foo*" matches "foo" "foobar" (and not "xfoo"))
(not (glob-match? pattern "foobar")) ("foo??bar" matches "fooxxbar" "fooZZbar"
(not (glob-match? pattern "barfoo"))))) (and not "foobar" "fooxxxbar" "fooxxbarzz"))
("foo?" matches "foox" (and not "fooxx"))
(test-assert "trailing star" ("ab[0-9]c" matches "ab0c" "ab7c" "ab9c"
(let ((pattern (compile-glob-pattern "foo*"))) (and not "ab-c" "ab00c" "ab3"))
(and (glob-match? pattern "foo") ("ab[cdefg]" matches "abc" "abd" "abg"
(glob-match? pattern "foobar") (and not "abh" "abcd" "ab[")))
(not (glob-match? pattern "xfoo")))))
(test-assert "question marks"
(let ((pattern (compile-glob-pattern "foo??bar")))
(and (glob-match? pattern "fooxxbar")
(glob-match? pattern "fooZZbar")
(not (glob-match? pattern "foobar"))
(not (glob-match? pattern "fooxxxbar"))
(not (glob-match? pattern "fooxxbarzz")))))
(test-end "glob") (test-end "glob")