Archived
1
0
Fork 0

gnu: blast+: Update to 2.14.0.

* gnu/packages/bioinformatics.scm (blast+): Update to 2.14.0.
[arguments]: Remove trailing #T from build phases; let WHICH* return #FALSE on
failure; use G-expression.
[inputs]: Drop package labels.
This commit is contained in:
Ricardo Wurmus 2023-05-14 12:49:44 +02:00
parent 28bfc5cd08
commit 68ccd1a0d8
No known key found for this signature in database
GPG key ID: 197A5888235FACAC

View file

@ -2474,7 +2474,7 @@ package provides command line tools using the Bio++ library.")
(define-public blast+ (define-public blast+
(package (package
(name "blast+") (name "blast+")
(version "2.11.0") (version "2.14.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append (uri (string-append
@ -2482,7 +2482,7 @@ package provides command line tools using the Bio++ library.")
version "/ncbi-blast-" version "+-src.tar.gz")) version "/ncbi-blast-" version "+-src.tar.gz"))
(sha256 (sha256
(base32 (base32
"0m0r9vkw631ky1za1wilsfk9k9spwqh22nkrb9a57rbwmrc1i3nq")) "003mn7m4y306k7visv3in3ikfgm8m41z0jq9lyvz10iv1hdpyixz"))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet (snippet
'(begin '(begin
@ -2518,7 +2518,8 @@ package provides command line tools using the Bio++ library.")
(("cksum") "cksum >/dev/null")))))) (("cksum") "cksum >/dev/null"))))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(;; There are two(!) tests for this massive library, and both fail with (list
;; There are two(!) tests for this massive library, and both fail with
;; "unparsable timing stats". ;; "unparsable timing stats".
;; ERR [127] -- [serial/datatool] datatool.sh (unparsable timing stats) ;; ERR [127] -- [serial/datatool] datatool.sh (unparsable timing stats)
;; ERR [127] -- [serial/datatool] datatool_xml.sh (unparsable timing stats) ;; ERR [127] -- [serial/datatool] datatool_xml.sh (unparsable timing stats)
@ -2526,12 +2527,12 @@ package provides command line tools using the Bio++ library.")
#:out-of-source? #t #:out-of-source? #t
#:parallel-build? #f ;not supported #:parallel-build? #f ;not supported
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-before 'configure 'set-HOME (add-before 'configure 'set-HOME
;; $HOME needs to be set at some point during the configure phase ;; $HOME needs to be set at some point during the configure phase
(lambda _ (setenv "HOME" "/tmp") #t)) (lambda _ (setenv "HOME" "/tmp")))
(add-after 'unpack 'enter-dir (add-after 'unpack 'enter-dir
(lambda _ (chdir "c++") #t)) (lambda _ (chdir "c++")))
(add-after 'enter-dir 'fix-build-system (add-after 'enter-dir 'fix-build-system
(lambda _ (lambda _
(define (which* cmd) (define (which* cmd)
@ -2544,7 +2545,7 @@ package provides command line tools using the Bio++ library.")
(format (current-error-port) (format (current-error-port)
"WARNING: Unable to find absolute path for ~s~%" "WARNING: Unable to find absolute path for ~s~%"
cmd) cmd)
#f))) #false)))
;; Rewrite hardcoded paths to various tools ;; Rewrite hardcoded paths to various tools
(substitute* (append '("src/build-system/configure.ac" (substitute* (append '("src/build-system/configure.ac"
@ -2563,7 +2564,7 @@ package provides command line tools using the Bio++ library.")
"src/build-system/Makefile.requirements" "src/build-system/Makefile.requirements"
"src/build-system/Makefile.rules_with_autodep.in") "src/build-system/Makefile.rules_with_autodep.in")
(find-files "scripts/common/check" "\\.sh$")) (find-files "scripts/common/check" "\\.sh$"))
(("(/usr/bin/|/bin/)([a-z][-_.a-z]*)" all dir cmd) (("(/usr/bin/|/bin/)([a-z][-_.a-z]*(\\+\\+)?)" all dir cmd)
(or (which* cmd) all))) (or (which* cmd) all)))
(substitute* (find-files "src/build-system" "^config.*") (substitute* (find-files "src/build-system" "^config.*")
@ -2578,43 +2579,40 @@ package provides command line tools using the Bio++ library.")
(substitute* (find-files "scripts/common/impl/" "\\.sh$") (substitute* (find-files "scripts/common/impl/" "\\.sh$")
(("^ *PATH=.*") "") (("^ *PATH=.*") "")
(("action=/bin/") "action=") (("action=/bin/") "action=")
(("export PATH") ":")) (("export PATH") ":"))))
#t))
(replace 'configure (replace 'configure
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda _
(let ((out (assoc-ref outputs "out")) (let ((lib (string-append #$output:lib "/lib"))
(lib (string-append (assoc-ref outputs "lib") "/lib")) (include (string-append #$output:include
(include (string-append (assoc-ref outputs "include")
"/include/ncbi-tools++"))) "/include/ncbi-tools++")))
;; The 'configure' script doesn't recognize things like ;; The 'configure' script doesn't recognize things like
;; '--enable-fast-install'. ;; '--enable-fast-install'.
(invoke "./configure.orig" (invoke "./configure.orig"
(string-append "--with-build-root=" (getcwd) "/build") (string-append "--with-build-root=" (getcwd) "/build")
(string-append "--prefix=" out) (string-append "--prefix=" #$output)
(string-append "--libdir=" lib) (string-append "--libdir=" lib)
(string-append "--includedir=" include) (string-append "--includedir=" include)
(string-append "--with-bz2=" (string-append "--with-bz2="
(assoc-ref inputs "bzip2")) #$(this-package-input "bzip2"))
(string-append "--with-z=" (string-append "--with-z="
(assoc-ref inputs "zlib")) #$(this-package-input "zlib"))
(string-append "--with-pcre=" (string-append "--with-pcre="
(assoc-ref inputs "pcre")) #$(this-package-input "pcre"))
;; Each library is built twice by default, once ;; Each library is built twice by default, once
;; with "-static" in its name, and again ;; with "-static" in its name, and again
;; without. ;; without.
"--without-static" "--without-static"
"--with-dll") "--with-dll")))))))
#t))))))
(outputs '("out" ; 21 MB (outputs '("out" ; 21 MB
"lib" ; 226 MB "lib" ; 226 MB
"include")) ; 33 MB "include")) ; 33 MB
(inputs (inputs
`(("bzip2" ,bzip2) (list bzip2
("lmdb" ,lmdb) lmdb
("zlib" ,zlib) zlib
("pcre" ,pcre) pcre
("perl" ,perl) perl
("python" ,python-wrapper))) python-wrapper))
(native-inputs (native-inputs
(list cpio)) (list cpio))
(home-page "https://blast.ncbi.nlm.nih.gov") (home-page "https://blast.ncbi.nlm.nih.gov")